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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
// license:GPL-2.0+
// copyright-holders:FelipeSanches
/*
ZAP - Z80 Applications Processor
driver by: Felipe Correa da Silva Sanches <juca@members.fsf.org>
Based on the technical descriptions and
assembly listings of the book:
"Build Your Own Z80 Microcomputer"
by Steve Ciarcia (1981)
published by BYTE/McGRAW-HILL
Basic usage instructions:
SHIFT + 0: view and edit memory values
SHIFT + 1: view and edit register values
SHIFT + 2: execution mode
For more info, please check chapter 6 "Monitor software" in the book
and/or the assembly listings of the ZAP monitor software
available at appendix D.
Currently missing features in this driver:
* hookup RS232 support
* maybe also support video terminal described in chapter 9
*/
#include "emu.h"
#include "cpu/z80/z80.h"
#include "zapcomputer.lh"
class zapcomp_state : public driver_device
{
public:
zapcomp_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag)
, m_maincpu(*this, "maincpu")
, m_digits(*this, "digit%u", 0U)
{ }
DECLARE_READ8_MEMBER(keyboard_r);
DECLARE_WRITE8_MEMBER(display_7seg_w);
void zapcomp(machine_config &config);
void zapcomp_io(address_map &map);
void zapcomp_mem(address_map &map);
private:
uint8_t decode7seg(uint8_t data);
virtual void machine_start() override;
required_device<cpu_device> m_maincpu;
output_finder<6> m_digits;
};
uint8_t zapcomp_state::decode7seg(uint8_t data)
{
//These are bit patterns representing the conversion of 4bit values
//into the status of the segments of the 7 segment displays
//controlled by a 82S23 PROM
uint8_t patterns[16] = {
0x77, 0x41, 0x6e, 0x6b,
0x59, 0x3b, 0x3f, 0x61,
0x7f, 0x79, 0x7d, 0x1f,
0x36, 0x4f, 0x3e, 0x3c
};
// Bit order for the FAIRCHILD FND-70
// 7-SEGMENT LCD: . g f e d c b a
return bitswap<8>(patterns[data & 0x0F], 7, 3, 4, 2, 1, 0, 6, 5);
}
WRITE8_MEMBER( zapcomp_state::display_7seg_w )
{
//Port 0x05 : address HI
//Port 0x06 : address LOW
//Port 0x07 : data
m_digits[offset*2] = decode7seg(data >> 4);
m_digits[offset*2+1] = decode7seg(data);
}
READ8_MEMBER( zapcomp_state::keyboard_r )
{
uint8_t retval = 0x00;
uint8_t special = ioport("X1")->read();
uint16_t hex_keys = ioport("X0")->read();
if (BIT(special, 2)) /* "SHIFT" key is pressed */
retval |= 0x40; /* turn on the SHIFT bit but DO NOT turn on the strobe bit */
if (BIT(special, 1)) /* "NEXT" key is pressed */
retval |= 0xA0; /* turn on the strobe & NEXT bits */
if (BIT(special, 0)) /* "EXEC" key is pressed */
retval |= 0x90; /* turn on the strobe & EXEC bit */
for (int i=0; i<16; i++)
if (hex_keys & (1 << i))
retval |= (0x80 | i); /* provide the key index in bits 3-0
as well as turning on the strobe bit */
return retval;
}
void zapcomp_state::zapcomp_mem(address_map &map)
{
map(0x0000, 0x03ff).rom().region("roms", 0); /* system monitor */
map(0x0400, 0x07ff).ram(); /* mandatory 1 kilobyte bank #0 */
map(0x0800, 0x0bff).ram(); /* extra 1 kilobyte bank #1 (optional) */
map(0x0c00, 0x0fff).ram(); /* extra 1 kilobyte bank #2 (optional) */
map(0x1000, 0x13ff).ram(); /* extra 1 kilobyte bank #3 (optional) */
map(0x1400, 0x17ff).ram(); /* extra 1 kilobyte bank #4 (optional) */
map(0x1800, 0x1bff).ram(); /* extra 1 kilobyte bank #5 (optional) */
map(0x1c00, 0x1fff).ram(); /* extra 1 kilobyte bank #6 (optional) */
map(0x2000, 0x23ff).ram(); /* extra 1 kilobyte bank #7 (optional) */
}
void zapcomp_state::zapcomp_io(address_map &map)
{
map.global_mask(0xff);
map(0x00, 0x00).r(this, FUNC(zapcomp_state::keyboard_r));
map(0x05, 0x07).w(this, FUNC(zapcomp_state::display_7seg_w));
}
static INPUT_PORTS_START( zapcomp )
PORT_START("X0")
PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_0) PORT_CHAR('0')
PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_1) PORT_CHAR('1')
PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_2) PORT_CHAR('2')
PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_3) PORT_CHAR('3')
PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_4) PORT_CHAR('4')
PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_5) PORT_CHAR('5')
PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6')
PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_7) PORT_CHAR('7')
PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('8')
PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_9) PORT_CHAR('9')
PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_A) PORT_CHAR('a')
PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_B) PORT_CHAR('b')
PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_C) PORT_CHAR('c')
PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_D) PORT_CHAR('d')
PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_E) PORT_CHAR('e')
PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F) PORT_CHAR('f')
PORT_START("X1")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("EXEC") PORT_CODE(KEYCODE_ENTER)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("NEXT") PORT_CODE(KEYCODE_RIGHT)
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("SHIFT") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT)
INPUT_PORTS_END
void zapcomp_state::machine_start()
{
m_digits.resolve();
}
MACHINE_CONFIG_START(zapcomp_state::zapcomp)
// basic machine hardware
MCFG_DEVICE_ADD("maincpu", Z80, XTAL(2'000'000))
MCFG_DEVICE_PROGRAM_MAP(zapcomp_mem)
MCFG_DEVICE_IO_MAP(zapcomp_io)
/* video hardware */
MCFG_DEFAULT_LAYOUT(layout_zapcomputer)
MACHINE_CONFIG_END
ROM_START( zapcomp )
ROM_REGION( 0x10000, "roms", 0 )
ROM_LOAD("zap.rom", 0x0000, 0x0400, CRC(3f4416e9) SHA1(d6493707bfba1a1e1e551f8144194afa5bda3316) )
ROM_END
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
COMP( 1981, zapcomp, 0, 0, zapcomp, zapcomp, zapcomp_state, 0, "Steve Ciarcia / BYTE / McGRAW-HILL", "ZAP - Z80 Applications Processor", MACHINE_NO_SOUND_HW )
|