-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathZ80Monitor.asm
270 lines (244 loc) · 9.51 KB
/
Z80Monitor.asm
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
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
;***************************************************************************
; PROGRAM: Z80 Monitor
; PURPOSE: ROM Monitor Program
; ASSEMBLER: original: TASM 3.2 , converted to z80pack/z80asm
; LICENCE: The MIT Licence
; AUTHOR : MCook. Extended MPF-I version: F.J. Kraan
; CREATE DATE : 05 May 15 / 2022-03-28
;***************************************************************************
VERSMYR: EQU '1'
VERSMIN: EQU '0'
INCLUDE CONSTANTS.asm ; copy or edit one of the
; CONSTANTS-aaaa-pp.asm files to
; CONSTANTS.asm
SCAN EQU 005FEh
;ROM_BOTTOM: EQU 0F000h ; Bottom address of ROM
ROM_TOP: EQU ROM_BOTTOM + 00FFFh ; Top address of ROM
;RAM_BOTTOM: EQU 01800h ; Bottom address of RAM
RAM_TOP: EQU RAM_BOTTOM + 1FFh ; Top address of RAM
;UART_BASE: EQU 0E0h ; Base port address, DART uses 4 ports
MPFMON: EQU 0000h
ASCDMPBUF: EQU RAM_BOTTOM + 0h ;Buffer to construct ASCII part of memory dump
ASCDMPEND: EQU RAM_BOTTOM + 10h ;End of buffer, fill with EOS
DMPADDR: EQU RAM_BOTTOM + 11h ;Last dump address
MVADDR: EQU RAM_BOTTOM + 12h ; 6 bytes: start-address, end-address, dest-address or fill-value (23, 24, 25, 26, 27, 28)
ERRFLAG: EQU RAM_BOTTOM + 18h ; Location to store
MUTE: EQU RAM_BOTTOM + 19h ; 0 - print received chars, 1 - do not print received chars
ULSIZE: EQU RAM_BOTTOM + 1Ah ; actual size of current/last hex-intel message
IECHECKSUM: EQU RAM_BOTTOM + 1Bh ; hex-intel record checksum
IECADDR: EQU RAM_BOTTOM + 1Ch ; hex-intel record address (2 bytes)
IERECTYPE: EQU RAM_BOTTOM + 1Eh ; hex-intel record type
DEBUG: EQU RAM_BOTTOM + 1Fh
MTPHFLAG EQU RAM_BOTTOM + 1Fh ; Phase counter: phase 1 doesn't check old value (being unknown)
RX_READ_P: EQU RAM_BOTTOM + 20h ; read pointer
RX_WRITE_P: EQU RAM_BOTTOM + 22h ; write pointer
CHKSUM_C: EQU RAM_BOTTOM + 24h ; uses 3 bytes
CF_SECCNT: EQU RAM_BOTTOM + 27h
CF_LBA0: EQU RAM_BOTTOM + 28h
CF_LBA1: EQU RAM_BOTTOM + 29h
CF_LBA2: EQU RAM_BOTTOM + 2Ah
CF_LBA3: EQU RAM_BOTTOM + 2Bh
UPLOADBUF: EQU RAM_BOTTOM + 2Ch ; Buffer for hex-intel upload. Allows up to 32 bytes (20h) per line.
ULBUFSIZE: EQU 50h ; a 20h byte hex-intel record use 75 bytes...
ULBEND: EQU UPLOADBUF + ULBUFSIZE
MSGBUF: EQU UPLOADBUF
; Error codes intel Hex record
E_NONE: EQU 00h
E_NOHEX: EQU 01h ; input char not 0-9, A-F
E_PARAM: EQU 02h ; inconsistent range; start > end
E_BUFSIZE: EQU 03h ; size larger than buffer
E_HITYP: EQU 04h ; unsupported hex-intel record type
E_HICKSM: EQU 05h ; hex-intel record checksum error
E_HIEND: EQU 06h ; hex-intel end record type found
HI_DATA: EQU 00h
HI_END: EQU 01h
ESC: EQU 01Bh ;
EOS: EQU 000h ; End of string
MUTEON: EQU 001h
LF: EQU 00Ah
CR: EQU 00Dh
ORG ROM_BOTTOM
ROUTINES:
R_MAIN: JP MAIN ; init DART and starts command loop
R_U_INIT: JP UART_INIT ; configures DARTchannel B
R_PRT_NL: JP PRINT_NEW_LINE ; sends a CR LF
R_PRT_STR: JP PRINT_STRING ; sends a NULL terminated string
DEFS 3 ; spare entries
DEFS 3
DEFS 3
DEFS 3
ORG ROM_BOTTOM + 24 ; room for eight routine entries
;***************************************************************************
;MAIN
;Function: Entrance to user program
;***************************************************************************
MAIN:
LD SP,RAM_TOP ;Load the stack pointer for stack operations.
CALL UART_INIT ;Initialize UART
CALL PRINT_MON_HDR ;Print the monitor header info
LD A, 00h
LD (DMPADDR), A
LD A, 0FFh ; FF00h and next should result in 0000h
LD (DMPADDR+1), A
CALL CLEAR_ERROR
CALL MON_PROMPT_LOOP ;Monitor user prompt loop
HALT
;***************************************************************************
;CLEAR_SCREEN
;Function: Clears terminal screen
;***************************************************************************
MON_CLS: DEFB 0Ch, EOS ;Escape sequence for CLS. (aka form feed)
CLEAR_SCREEN:
LD HL,MON_CLS
CALL PRINT_STRING
RET
;***************************************************************************
;RESET_COMMAND
;Function: Software Reset to $0000
;***************************************************************************
RESET_COMMAND:
JP MPFMON ;Jumps to 0000 (MPF-1 monitor re-entry)
;***************************************************************************
;PRINT_MON_HDR
;Function: Print out program header info
;***************************************************************************
MNMSG1: DEFB 0DH, 0Ah, 'ZMC80 Computer', 09h, 09h, 09h, '2015 MCook', EOS
MNMSG2: DEFB 0DH, 0Ah, ' adaptation to MPF-1 / Z80 DART', 09h, '2022 F.J.Kraan', 0Dh, 0Ah, EOS
MNMSG3A: DEFB 'Monitor v', VERSMYR, '.', VERSMIN, ', ROM: ', EOS
MNMSG3B: DEFB 'h, RAM: ', EOS
MNMSG3C: DEFB 'h, DART: ', EOS
MNMSG3D: DEFB 'h', 0Dh, 0AH, 0Dh, 0AH, EOS
MONHLP: DEFB 09h,' Input ? for command list', 0Dh, 0AH, EOS
MONERR: DEFB 0Dh, 0AH, 'Error in params: ', EOS
PRINT_MON_HDR:
CALL CLEAR_SCREEN ;Clear the terminal screen
LD HL, MNMSG1 ;Print some messages
CALL PRINT_STRING
LD HL, MNMSG2 ;Print some extra message
CALL PRINT_STRING
LD HL, MNMSG3A ; 1st part, version & ROM
CALL PRINT_STRING
LD HL, ROM_BOTTOM
CALL PRINTHWORD
LD HL, MNMSG3B ; 2nd part, RAM
CALL PRINT_STRING
LD HL, RAM_BOTTOM
CALL PRINTHWORD
LD HL, MNMSG3C ; 3rd part UART
CALL PRINT_STRING
LD A, UART_BASE
CALL PRINTHBYTE
LD HL, MNMSG3D ; 4th part, line ending
CALL PRINT_STRING
LD HL, MONHLP
CALL PRINT_STRING
RET
;***************************************************************************
;MON_PROMPT
;Function: Prompt user for input
;***************************************************************************
MON_PROMPT: DEFB '>', EOS
MON_PRMPT_LOOP:
LD A, 00h
LD (MUTE), A ; Enables echo of received chars
LD HL,MON_PROMPT ; Print monitor prompt
CALL PRINT_STRING
CALL GET_CHAR ; Get a character from user into Acc
CALL PRINT_CHAR
CP CR
JR Z, _MPL_CR
CALL PRINT_NEW_LINE ; Print a new line
_MPL_CR
CALL MON_COMMAND ; Respond to user input
CALL PRINT_NEW_LINE ; Print a new line
JR MON_PRMPT_LOOP
;***************************************************************************
;MON_COMMAND
;Function: User input in accumulator to respond to
;***************************************************************************
MON_COMMAND: ; Inserted ERROR_CHK for all commands requiring input
CALL CLEAR_ERROR
CP '?'
CALL Z,HELP_COMMAND
CP 'D'
CALL Z,MDCMD
CP 'C'
CALL Z,CLEAR_SCREEN
CP 'O'
CALL Z,PW_COMMAND
CP 'P'
CALL Z,PSCOMMAND
CP 'Q'
CALL Z,UTERMTST
CP 'R'
CALL Z,RESET_COMMAND
CP 'M'
CALL Z,MOVE_COMMAND
CP 'F'
CALL Z,FILL_COMMAND
CP 'G'
CALL Z,GO_COMMAND
CP 'K'
CALL Z,CL_COMMAND
CP '+'
CALL Z,NEXTP_COMMAND
CP '-'
CALL Z,PREVP_COMMAND
CP 'E'
CALL Z,EDIT_COMMAND
CP ':'
CALL Z,HEXI_COMMAND
CP 'S'
CALL Z,CCKSM_COMMAND
CP 'T'
CALL Z, TRAM_COMMAND
CP 'Z'
CALL Z,REGDUMP_COMMAND
CALL ERROR_CHK
RET
UTERMTST:
; micro terminal: scans MPF keyboard and sends ASCII
; '0'-'F' for the hex keys and '10-1F' for other keys.
CALL RX_CHK
RET NZ ; Return on serial received char
LD IX, SCTXT
CALL SCAN
CP 010h ; A - 010h
JR C, _UTHEX
CALL PRINTHBYTE
LD A, ' '
CALL PRINT_CHAR
JR UTERMTST
_UTHEX
CALL NIB2CHAR
CALL PRINT_CHAR
LD A, ' '
CALL PRINT_CHAR
JR UTERMTST
; dpcbafge ; 7-segment pattern to bit map
SCTXT DB 10000111b ; t
DB 10101110b ; S
DB 10000111b ; t
DB 01000011b ; r.
DB 10001111b ; E
DB 10101110b ; S
ERROR_CHK:
LD A, (ERRFLAG)
CP E_NONE
RET Z
LD HL, MONERR
CALL PRINT_STRING
LD A, (ERRFLAG)
CALL PRINTHBYTE
CALL PRINT_NEW_LINE
CLEAR_ERROR:
PUSH AF
LD A, E_NONE
LD (ERRFLAG), A
POP AF
RET
INCLUDE DARTDriver.asm
INCLUDE MONCommands.asm
INCLUDE CONIO.asm
; INCLUDE CFDriver.asm
END