1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
/**********************************************************************************
Fun World / Amatic / TAB / Impera.
Series 7000 hardware.
Video Hardware.
Written by Roberto Fresca.
***********************************************************************************
TAB/Impera/FunWorld color system circuitry
------------------------------------------
74HC174 - Hex D-type flip-flops with reset; positive-edge trigger.
N82S147 - 4K-bit TTL Bipolar PROM.
74LS374 - 3-STATE Octal D-Type transparent latches and edge-triggered flip-flops.
N82S147 74LS374 RESNET PULL-DOWN
74HC174 .-------. .-------.
.-------. (1)-|01 20|--VCC--|20 02|------[(1K)]---+ .-----.
| | (1)-|02 06|-------|03 05|------[(470)]--+--+-----------| RED |
|16: VCC| (1)-|03 07|-------|04 06|------[(220)]--+ | '-----'
| | (1)-|04 08|-------|07 | '--[(100)]--GND
| 02|-------|05 09|-------|08 09|------[(1K)]---+ .------.
| 05|-------|16 11|-------|13 12|------[(470)]--+--+-----------| BLUE |
| 07|-------|17 12|-------|14 15|------[(220)]--+ | '------'
| 10|-------|18 13|-------|17 | '--[(100)]--GND
| 12|-------|19 14|-------|18 16|------[(470)]--+ .-------.
| 13|---+---|15 10|---+---|10 19|------[(220)]--+--+-----------| GREEN |
|15 08 | | | | | | 01 | | '-------'
'-+--+--' | '-------' | '----+--' '--[(100)]--GND
| | | | |
| '------+------GND------' |
'----------------------------------'
(1): Connected either to:
- A custom 40-pin GFX IC
- 2x HYxxx devices (TAB blue PCB).
- A little board with 4x 74LS138 or 74LS137 (Impera green PCB).
NOTE: The 74LS374 could be replaced by a 74HCT373.
***********************************************************************************/
#include "emu.h"
#include "video/resnet.h"
#include "includes/funworld.h"
PALETTE_INIT_MEMBER(funworld_state,funworld)
{
const UINT8 *color_prom = machine().root_device().memregion("proms")->base();
int i;
static const int resistances_rb[3] = { 1000, 470, 220 };
static const int resistances_g [2] = { 470, 220 };
double weights_r[3], weights_b[3], weights_g[2];
compute_resistor_weights(0, 255, -1.0,
3, resistances_rb, weights_r, 100, 0,
3, resistances_rb, weights_b, 100, 0,
2, resistances_g, weights_g, 100, 0);
for (i = 0; i < machine().total_colors(); i++)
{
int bit0, bit1, bit2, r, g, b;
/* red component */
bit0 = (color_prom[i] >> 0) & 0x01;
bit1 = (color_prom[i] >> 1) & 0x01;
bit2 = (color_prom[i] >> 2) & 0x01;
r = combine_3_weights(weights_r, bit0, bit1, bit2);
/* blue component */
bit0 = (color_prom[i] >> 3) & 0x01;
bit1 = (color_prom[i] >> 4) & 0x01;
bit2 = (color_prom[i] >> 5) & 0x01;
b = combine_3_weights(weights_b, bit0, bit1, bit2);
/* green component */
bit0 = (color_prom[i] >> 6) & 0x01;
bit1 = (color_prom[i] >> 7) & 0x01;
g = combine_2_weights(weights_g, bit0, bit1);
palette_set_color(machine(),i,MAKE_RGB(r,g,b));
}
}
WRITE8_MEMBER(funworld_state::funworld_videoram_w)
{
m_videoram[offset] = data;
m_bg_tilemap->mark_tile_dirty(offset);
}
WRITE8_MEMBER(funworld_state::funworld_colorram_w)
{
m_colorram[offset] = data;
m_bg_tilemap->mark_tile_dirty(offset);
}
/**** normal hardware limit ****
- bits -
7654 3210
xxxx xx-- tiles color.
xxx- x-xx tiles color (title).
xxxx -xxx tiles color (background).
*/
TILE_GET_INFO_MEMBER(funworld_state::get_bg_tile_info)
{
/* - bits -
7654 3210
xxxx ---- tiles color.
---- xxxx unused.
*/
int offs = tile_index;
int attr = m_videoram[offs] + (m_colorram[offs] << 8);
int code = attr & 0xfff;
int color = m_colorram[offs] >> 4; // 4 bits for color.
SET_TILE_INFO_MEMBER(0, code, color, 0);
}
VIDEO_START_MEMBER(funworld_state,funworld)
{
m_bg_tilemap = &machine().tilemap().create(tilemap_get_info_delegate(FUNC(funworld_state::get_bg_tile_info),this), TILEMAP_SCAN_ROWS, 4, 8, 96, 29);
}
VIDEO_START_MEMBER(funworld_state,magicrd2)
{
m_bg_tilemap = &machine().tilemap().create(tilemap_get_info_delegate(FUNC(funworld_state::get_bg_tile_info),this), TILEMAP_SCAN_ROWS, 4, 8, 112, 34);
}
UINT32 funworld_state::screen_update_funworld(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
m_bg_tilemap->draw(bitmap, cliprect, 0, 0);
return 0;
}
|