]> cloudbase.mooo.com Git - ddt180.git/blob - ddtz.z80
projects / ddt180.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Add Z180 instructions
[ddt180.git] / ddtz.z80
1 ; Disassembled ddtz.com, version "DDT/Z [8101]"
2 ; with modified relocater.
3 ;
4 ; Build steps:
5 ; - Assemble to a .REL file with M80 or a compatible assembler.
6 ; - Use Digital Research Link-80 to generate a .PRL file (op switch).
7 ; - Cut the .PRL header (first 256 byte) end rename the result to DDTZ.COM.
8
9 ;-------------------------------------------------------------------------------
10 ; Relocation loader
11 ;
12
13 TPA equ 0100h
14 cseg
15 .phase TPA
16
17 LD SP,ldr_end+(stack-ddtz_base)
18 LD DE,ldr_end+(expr_buf-ddtz_base)
19 LD C,BDOS_PSTR
20 CALL BDOS
21
22 LD HL,ldr_end+ddtz_size ;start of reloc bitmap
23 ld bc,0108h ;init bit counter
24
25 EXX
26 LD HL,(BDOS+1)
27 LD (ldr_end+1),HL
28 LD BC,ddtz_size-1
29 LD D,B
30 LD E,0FFH
31 INC DE ;size rounded up to next page boundary
32 INC BC ;ddtz_size
33 OR A
34 SBC HL,DE ;BDOS - size
35 LD (BDOS+1),HL ;-> new BDOS entry
36
37 push hl
38 PUSH BC
39 ld de,ldr_end
40 sbc hl,de
41 EX DE,HL ;-> DE
42 LD HL,ldr_size
43 add hl,bc
44 ld b,h
45 ld c,l
46 LD HL,TPA
47 reloc_lp:
48 EXX
49 djnz reloc_nl
50 ld b,c ;reload bit counter
51 LD e,(HL) ;get next 8 relocation bits
52 INC HL
53 reloc_nl:
54 sla e
55 EXX
56 JR NC,reloc_next
57 DEC HL
58 LD A,(HL)
59 ADD A,E
60 LD (HL),A
61 INC HL
62 LD A,(HL)
63 ADC A,D
64 LD (HL),A
65 reloc_next:
66 cpi
67 jp pe,reloc_lp
68 dec hl
69
70 POP BC
71 pop de
72 EX DE,HL
73 ADD HL,BC
74 EX DE,HL
75 DEC DE
76 LDDR
77 LD HL,conbuf+2-ddtz_base
78 ADD HL,DE
79 JP (HL)
80
81 ldr_end:
82 ldr_size equ $ - TPA
83
84 .dephase
85 ;-------------------------------------------------------------------------------
86 ; DDT/Z core
87 ;
88
89 ; Some greneral definitions
90
91 TAB equ 9
92 LF equ 10
93 CR equ 13
94
95 ; CP/M memory layout
96
97 BDOS equ 5
98 FCB equ 05ch
99 FCB2 equ 06ch
100 DMA_BUF equ 080h
101 TPA equ 0100h
102
103 ; BDOS function calls
104
105 BDOS_CIN equ 1 ;Console Input
106 BDOS_COUT equ 2 ;Console Output
107 BDOS_PSTR equ 9 ;Print String
108 BDOS_CBUF equ 10 ;Read Console Buffer
109 BDOS_CSTAT equ 11 ;Get Console Status
110 BDOS_OPEN equ 15 ;Open File
111 BDOS_CLOSE equ 16 ;Close File
112 BDOS_DELETE equ 19 ;Delete File
113 BDOS_READ equ 20 ;Read Sequential
114 BDOS_WRITE equ 21 ;Write Sequential
115 BDOS_CREATE equ 22 ;Make File
116 BDOS_SETDMA equ 26 ;Set DMA Address
117
118 ; ddtz specific definitions
119
120 STACK_SIZE equ 64 ;ddtz internal stack
121 CONBUF_SIZE equ 80 ;Size of console input buffer
122 EXPR_BUF_SIZE equ 128 ;expressen buffer for conditional breakpoints
123 BP_CNT equ 12 ;Number of breakpoints
124 BP_SIZE equ 8 ;Size of a breakpoint record
125 YREG_CNT equ 10 ;Number of Y registers (0..9)
126
127 ;-------------------------------------------------------------------------------
128
129 ddtz_base:
130 jp 0 ;0000 c3 00 00 . . .
131 l0003h:
132 rst 30h ;0003 f7 .
133 sub_0004h:
134 nop ;0004 00 .
135 ret ;0005 c9 .
136
137 ds STACK_SIZE
138
139 stack:
140 reg.l2: db 000h ;0046 00 .
141 reg.h2: db 000h ;0047 00 .
142 reg.e2: db 000h ;0048 00 .
143 reg.d2: db 000h ;0049 00 .
144 reg.c2: db 000h ;004a 00 .
145 reg.b2: db 000h ;004b 00 .
146 reg.f2: db 000h ;004c 00 .
147 reg.a2: db 000h ;004d 00 .
148 l004eh: db 000h ;004e 00 .
149 reg.i: db 000h ;004f 00 .
150 reg.iy: dw 0000h ;0050 00 .
151 reg.ix: dw 0000h ;0052 00 .
152 reg.f: db 000h ;0054 00 .
153 reg.a: db 000h ;0055 00 .
154 reg.c: db 000h ;0056 00 .
155 reg.b: db 000h ;0057 00 .
156 reg.e: db 000h ;0058 00 .
157 reg.d: db 000h ;0059 00 .
158 reg.l: db 000h ;005a 00 .
159 reg.h: db 000h ;005b 00 .
160 reg_sp: dw TPA ;005c 00 01 .
161 reg.iff:
162 db 0f3h ;005e f3 .
163 db 0c3h ;005f c3 .
164 REG.PC: dw TPA ;0060 00 01 .
165 l0062h: dw 0000h ;0062 00 00 .
166 offs.@: dw 0 ;0064 00 00 .
167
168 CMD_ERR:dw l0146h ;0066 46 01 F .
169 cmd_rpt:dw mainloop ;0068 bd 00 . .
170
171 conbuf:
172 db CONBUF_SIZE ;006a 50 P
173
174 ld sp,stack ;006b 31 46 00 1 F .
175 exx ;006e d9 .
176 ld de,ddtz_base ;006f 11 00 00 . . .
177 or a ;0072 b7 .
178 sbc hl,de ;0073 ed 52 . R
179 add hl,de ;0075 19 .
180 jr c,l0079h ;0076 38 01 8 .
181 ex de,hl ;0078 eb .
182 l0079h:
183 ld de,TPA ;0079 11 00 01 . . .
184 l007ch:
185 dec hl ;007c 2b +
186 ld (hl),000h ;007d 36 00 6 .
187 ld a,h ;007f 7c |
188 sub d ;0080 92 .
189 ld b,a ;0081 47 G
190 ld a,l ;0082 7d }
191 sub e ;0083 93 .
192 or b ;0084 b0 .
193 jr nz,l007ch ;0085 20 f5 .
194 ld a,i ;0087 ed 57 . W
195 ld (reg.i),a ;0089 32 4f 00 2 O .
196 ld a,0f3h ;008c 3e f3 > .
197 jp po,l0093h ;008e e2 93 00 . . .
198 ld a,0fbh ;0091 3e fb > .
199 l0093h:
200 ld (reg.iff),a ;0093 32 5e 00 2 ^ .
201 call sub_0004h ;0096 cd 04 00 . . .
202 ld hl,ddtz_base ;0099 21 00 00 ! . .
203 ld l,000h ;009c 2e 00 . .
204 ld (reg_sp),hl ;009e 22 5c 00 " \ .
205 ld a,(FCB+1) ;00a1 3a 5d 00 : ] .
206 cp ' ' ;00a4 fe 20 .
207 ld hl,0 ;00a6 21 00 00 ! . .
208 call nz,read_file ;00a9 c4 68 10 . h .
209 jr mainloop ;00ac 18 0f . .
210
211 ds CONBUF_SIZE + 3 - ($ - conbuf)
212
213 mainloop:
214 ld sp,stack ;00bd 31 46 00 1 F .
215 ld hl,l0146h ;00c0 21 46 01 ! F .
216 ld (CMD_ERR),hl ;00c3 22 66 00 " f .
217 ld hl,(REG.PC) ;00c6 2a 60 00 * ` .
218 ld (l0062h),hl ;00c9 22 62 00 " b .
219 call bp_clr_temporary ;00cc cd 54 07 . T .
220 ld hl,(cmd_rpt) ;00cf 2a 68 00 * h .
221 ld de,mainloop ;00d2 11 bd 00 . . .
222 call cp_hl_de ;00d5 cd ee 02 . . .
223 ld a,'>' ;00d8 3e 3e > >
224 call outchar ;00da cd 5d 02 . ] .
225 call nz,outchar ;00dd c4 5d 02 . ] .
226 call z,outbl ;00e0 cc 9f 02 . . .
227 call get_line ;00e3 cd 4e 01 . N .
228 call skipbl ;00e6 cd bf 02 . . .
229 jr z,exe_hl ;00e9 28 1f ( .
230 ld hl,mainloop ;00eb 21 bd 00 ! . .
231 ld (cmd_rpt),hl ;00ee 22 68 00 " h .
232 inc de ;00f1 13 .
233 sub '@' ;00f2 d6 40 . @
234 jr c,ERROR ;00f4 38 11 8 .
235 cp 'Z'+1-'@' ;00f6 fe 1b . .
236 jr nc,ERROR ;00f8 30 0d 0 .
237 add a,a ;00fa 87 .
238 ld hl,CMDTAB ;00fb 21 10 01 ! . .
239 call add_hl_a ;00fe cd b9 02 . . .
240 ld a,(hl) ;0101 7e ~
241 inc hl ;0102 23 #
242 ld h,(hl) ;0103 66 f
243 ld l,a ;0104 6f o
244 jr exe_hl ;0105 18 03 . .
245 ERROR:
246 ld hl,(CMD_ERR) ;0107 2a 66 00 * f .
247 exe_hl:
248 call CALL_HL ;010a cd 0f 01 . . .
249 jr mainloop ;010d 18 ae . .
250 CALL_HL:
251 jp (hl) ;010f e9 .
252
253 CMDTAB:
254 defw cmd_@ ;0110 92 0d . .
255 defw cmd_A ;0112 fe 11 . .
256 defw cmd_B ;0114 6d 07 m .
257 defw cmd_C ;0116 17 21 . !
258 defw cmd_D ;0118 48 0f H .
259 defw ERROR ;011a 07 01 . .
260 defw cmd_F ;011c af 0f . .
261 defw cmd_G ;011e 31 07 1 .
262 defw cmd_H ;0120 3d 0e = .
263 defw cmd_I ;0122 a3 0d . .
264 defw ERROR ;0124 07 01 . .
265 defw ERROR ;0126 07 01 . .
266 defw cmd_L ;0128 cd 18 . .
267 defw cmd_M ;012a 19 0e . .
268 defw ERROR ;012c 07 01 . .
269 defw cmd_O ;012e c7 0d . .
270 defw ERROR ;0130 07 01 . .
271 defw cmd_Q ;0132 84 0e . .
272 defw cmd_R ;0134 62 10 b .
273 defw cmd_S ;0136 5a 0d Z .
274 defw cmd_T ;0138 1e 21 . !
275 defw ERROR ;013a 07 01 . .
276 defw cmd_V ;013c ea 0d . .
277 defw cmd_W ;013e a0 11 . .
278 defw cmd_X ;0140 f1 0b . .
279 defw cmd_Y ;0142 b2 0b . .
280 defw cmd_Z ;0144 ba 0e . .
281
282 l0146h:
283 ld a,'?' ;0146 3e 3f > ?
284 call outchar ;0148 cd 5d 02 . ] .
285 jp crlf ;014b c3 a3 02 . . .
286 get_line:
287 push hl ;014e e5 .
288 ld de,conbuf ;014f 11 6a 00 . j .
289 ld c,BDOS_CBUF ;0152 0e 0a . .
290 call ddtz_base ;0154 cd 00 00 . . .
291 call crlf ;0157 cd a3 02 . . .
292 ld de,conbuf+1 ;015a 11 6b 00 . k .
293 ld a,(de) ;015d 1a .
294 ld b,a ;015e 47 G
295 ld c,000h ;015f 0e 00 . .
296 inc b ;0161 04 .
297 l0162h:
298 inc de ;0162 13 .
299 dec b ;0163 05 .
300 jr z,l0194h ;0164 28 2e ( .
301 ld a,(de) ;0166 1a .
302 bit 0,c ;0167 cb 41 . A
303 call z,toupper ;0169 cc 9b 01 . . .
304 ld (de),a ;016c 12 .
305 cp '''' ;016d fe 27 . '
306 jr nz,l0162h ;016f 20 f1 .
307 push de ;0171 d5 .
308 dec de ;0172 1b .
309 ld a,(de) ;0173 1a .
310 cp '''' ;0174 fe 27 . '
311 jr z,l0190h ;0176 28 18 ( .
312 dec de ;0178 1b .
313 ld a,(de) ;0179 1a .
314 cp '^' ;017a fe 5e . ^
315 jr z,l0184h ;017c 28 06 ( .
316 dec de ;017e 1b .
317 ld a,(de) ;017f 1a .
318 cp '^' ;0180 fe 5e . ^
319 jr nz,l0190h ;0182 20 0c .
320 l0184h:
321 inc de ;0184 13 .
322 push bc ;0185 c5 .
323 call sub_0303h ;0186 cd 03 03 . . .
324 pop bc ;0189 c1 .
325 dec de ;018a 1b .
326 ld a,(de) ;018b 1a .
327 cp '''' ;018c fe 27 . '
328 jr z,l0191h ;018e 28 01 ( .
329 l0190h:
330 inc c ;0190 0c .
331 l0191h:
332 pop de ;0191 d1 .
333 jr l0162h ;0192 18 ce . .
334 l0194h:
335 xor a ;0194 af .
336 ld (de),a ;0195 12 .
337 ld de,conbuf+2 ;0196 11 6c 00 . l .
338 pop hl ;0199 e1 .
339 ret ;019a c9 .
340
341 toupper:
342 cp 'a' ;019b fe 61 . a
343 ret c ;019d d8 .
344 cp 'z'+1 ;019e fe 7b . {
345 ret nc ;01a0 d0 .
346 and 05fh ;01a1 e6 5f . _
347 ret ;01a3 c9 .
348
349 out.hl.@:
350 call out_hl ;01a4 cd 13 02 . . .
351 push de ;01a7 d5 .
352 push hl ;01a8 e5 .
353 ld de,(offs.@) ;01a9 ed 5b 64 00 . [ d .
354 ld a,d ;01ad 7a z
355 or e ;01ae b3 .
356 jr z,l01bfh ;01af 28 0e ( .
357 call outbl ;01b1 cd 9f 02 . . .
358 ld a,'@' ;01b4 3e 40 > @
359 call outchar ;01b6 cd 5d 02 . ] .
360 and a ;01b9 a7 .
361 sbc hl,de ;01ba ed 52 . R
362 call out_hl ;01bc cd 13 02 . . .
363 l01bfh:
364 pop hl ;01bf e1 .
365 pop de ;01c0 d1 .
366 ret ;01c1 c9 .
367 out.bin.w:
368 ld a,h ;01c2 7c |
369 call out.bin.b ;01c3 cd c7 01 . . .
370 ld a,l ;01c6 7d }
371 out.bin.b:
372 ld b,8 ;01c7 06 08 . .
373 l01c9h:
374 add a,a ;01c9 87 .
375 push af ;01ca f5 .
376 ld a,00 ;01cb 3e 00 > .
377 adc a,a ;01cd 8f .
378 call out_dgt ;01ce cd 21 02 . ! .
379 pop af ;01d1 f1 .
380 djnz l01c9h ;01d2 10 f5 . .
381 ld a,'"' ;01d4 3e 22 > "
382 jp outchar ;01d6 c3 5d 02 . ] .
383
384 sub_01d9h:
385 ld a,'-' ;01d9 3e 2d > -
386 call outchar ;01db cd 5d 02 . ] .
387 dec hl ;01de 2b +
388 jp cpl.hl ;01df c3 79 05 . y .
389
390 out_hl_dec_neg:
391 push hl ;01e2 e5 .
392 call sub_01d9h ;01e3 cd d9 01 . . .
393 defb 03eh ;01e6 3e >
394 out.hl.dec:
395 push hl ;01e7 e5 .
396 ld b,006h ;01e8 06 06 . .
397 call sub_01f9h ;01ea cd f9 01 . . .
398 pop hl ;01ed e1 .
399 ld a,'.' ;01ee 3e 2e > .
400 call outchar ;01f0 cd 5d 02 . ] .
401 l01f3h:
402 call outbl ;01f3 cd 9f 02 . . .
403 djnz l01f3h ;01f6 10 fb . .
404 ret ;01f8 c9 .
405 sub_01f9h:
406 dec b ;01f9 05 .
407 push de ;01fa d5 .
408 ld de,10 ;01fb 11 0a 00 . . .
409 call div_hl_de ;01fe cd 75 04 . u .
410 ld a,h ;0201 7c |
411 or l ;0202 b5 .
412 call nz,sub_01f9h ;0203 c4 f9 01 . . .
413 ld a,e ;0206 7b {
414 pop de ;0207 d1 .
415 jr out_dgt ;0208 18 17 . .
416
417 out_hl_neg:
418 push hl ;020a e5 .
419 call sub_01d9h ;020b cd d9 01 . . .
420 call out_hl ;020e cd 13 02 . . .
421 pop hl ;0211 e1 .
422 ret ;0212 c9 .
423
424 out_hl:
425 ld a,h ;0213 7c |
426 call out_hex ;0214 cd 18 02 . . .
427 ld a,l ;0217 7d }
428
429 out_hex:
430 push af ;0218 f5 .
431 rra ;0219 1f .
432 rra ;021a 1f .
433 rra ;021b 1f .
434 rra ;021c 1f .
435 call out_dgt ;021d cd 21 02 . ! .
436 pop af ;0220 f1 .
437
438 out_dgt:
439 and 0fh ;0221 e6 0f . .
440 cp 10 ;0223 fe 0a . .
441 jr c,l0229h ;0225 38 02 8 .
442 add a,007h ;0227 c6 07 . .
443 l0229h:
444 add a,'0' ;0229 c6 30 . 0
445 jr outchar ;022b 18 30 . 0
446 l022dh:
447 ld a,'-' ;022d 3e 2d > -
448 call outchar ;022f cd 5d 02 . ] .
449 ld a,040h ;0232 3e 40 > @
450 out.ascii:
451 ex af,af' ;0234 08 .
452 call outquote ;0235 cd 5b 02 . [ .
453 ex af,af' ;0238 08 .
454 push af ;0239 f5 .
455 res 7,a ;023a cb bf . .
456 cp ' ' ;023c fe 20 .
457 jr nc,l0242h ;023e 30 02 0 .
458 sub 0c0h ;0240 d6 c0 . .
459 l0242h:
460 call outchar ;0242 cd 5d 02 . ] .
461 push af ;0245 f5 .
462 cp '''' ;0246 fe 27 . '
463 call z,outchar ;0248 cc 5d 02 . ] .
464 pop af ;024b f1 .
465 ex af,af' ;024c 08 .
466 call outquote ;024d cd 5b 02 . [ .
467 pop af ;0250 f1 .
468 or a ;0251 b7 .
469 ld a,'.' ;0252 3e 2e > .
470 call m,outchar ;0254 fc 5d 02 . ] .
471 ex af,af' ;0257 08 .
472 jr c,l022dh ;0258 38 d3 8 .
473 ret ;025a c9 .
474 outquote:
475 ld a,'''' ;025b 3e 27 > '
476 outchar:
477 push hl ;025d e5 .
478 push de ;025e d5 .
479 push bc ;025f c5 .
480 push af ;0260 f5 .
481 and 07fh ;0261 e6 7f . \7f
482 ld e,a ;0263 5f _
483 ld c,BDOS_COUT ;0264 0e 02 . .
484 call ddtz_base ;0266 cd 00 00 . . .
485 ld hl,con_col ;0269 21 72 02 ! r .
486 inc (hl) ;026c 34 4
487 pop af ;026d f1 .
488 pop bc ;026e c1 .
489 pop de ;026f d1 .
490 pop hl ;0270 e1 .
491 ret ;0271 c9 .
492 con_col:
493 db 0 ;0272 00 .
494 inchar:
495 push hl ;0273 e5 .
496 push de ;0274 d5 .
497 push bc ;0275 c5 .
498 ld c,BDOS_CSTAT ;0276 0e 0b . .
499 call ddtz_base ;0278 cd 00 00 . . .
500 and a ;027b a7 .
501 jr z,l0284h ;027c 28 06 ( .
502 ld c,BDOS_CIN ;027e 0e 01 . .
503 call ddtz_base ;0280 cd 00 00 . . .
504 scf ;0283 37 7
505 l0284h:
506 pop bc ;0284 c1 .
507 pop de ;0285 d1 .
508 pop hl ;0286 e1 .
509 ret ;0287 c9 .
510 pstr:
511 ld c,000h ;0288 0e 00 . .
512 l028ah:
513 ld a,(hl) ;028a 7e ~
514 and a ;028b a7 .
515 ret z ;028c c8 .
516 call outchar ;028d cd 5d 02 . ] .
517 inc c ;0290 0c .
518 inc hl ;0291 23 #
519 and a ;0292 a7 .
520 ret m ;0293 f8 .
521 jr l028ah ;0294 18 f4 . .
522
523 outbl6:
524 call outbl2 ;0296 cd 9c 02 . . .
525 outbl4:
526 call outbl2 ;0299 cd 9c 02 . . .
527 outbl2:
528 call outbl ;029c cd 9f 02 . . .
529 outbl:
530 ld a,' ' ;029f 3e 20 >
531 jr outchar ;02a1 18 ba . .
532 crlf:
533 call inchar ;02a3 cd 73 02 . s .
534 ld a,CR ;02a6 3e 0d > .
535 call outchar ;02a8 cd 5d 02 . ] .
536 ld a,LF ;02ab 3e 0a > .
537 call outchar ;02ad cd 5d 02 . ] .
538 ld a,0 ;02b0 3e 00 > .
539 ld (con_col),a ;02b2 32 72 02 2 r .
540 jp c,mainloop ;02b5 da bd 00 . . .
541 ret ;02b8 c9 .
542 add_hl_a:
543 add a,l ;02b9 85 .
544 ld l,a ;02ba 6f o
545 ret nc ;02bb d0 .
546 inc h ;02bc 24 $
547 ret ;02bd c9 .
548
549 skipbl0:
550 inc de ;02be 13 .
551 skipbl:
552 ld a,(de) ;02bf 1a .
553 cp ' ' ;02c0 fe 20 .
554 jr z,skipbl0 ;02c2 28 fa ( .
555 cp TAB ;02c4 fe 09 . .
556 jr z,skipbl0 ;02c6 28 f6 ( .
557 or a ;02c8 b7 .
558 ret ;02c9 c9 .
559
560 next_arg:
561 call skipbl ;02ca cd bf 02 . . .
562 cp ',' ;02cd fe 2c . ,
563 ret nz ;02cf c0 .
564 inc de ;02d0 13 .
565 call skipbl ;02d1 cd bf 02 . . .
566 cp a ;02d4 bf .
567 ret ;02d5 c9 .
568
569 assert_eol:
570 call skipbl ;02d6 cd bf 02 . . .
571 ret z ;02d9 c8 .
572 to_error:
573 jp ERROR ;02da c3 07 01 . . .
574
575 chk_sp:
576 push hl ;02dd e5 .
577 push de ;02de d5 .
578 ld hl,0 ;02df 21 00 00 ! . .
579 add hl,sp ;02e2 39 9
580 ld de,stack-40 ;02e3 11 1e 00 . . .
581 call cp_hl_de ;02e6 cd ee 02 . . .
582 pop de ;02e9 d1 .
583 pop hl ;02ea e1 .
584 jr c,to_error ;02eb 38 ed 8 .
585 ret ;02ed c9 .
586
587 cp_hl_de:
588 and a ;02ee a7 .
589 sbc hl,de ;02ef ed 52 . R
590 add hl,de ;02f1 19 .
591 ret ;02f2 c9 .
592
593 lookupch:
594 ld b,0 ;02f3 06 00 . .
595 l02f5h:
596 ld a,(hl) ;02f5 7e ~
597 and a ;02f6 a7 .
598 ret z ;02f7 c8 .
599 ld a,(de) ;02f8 1a .
600 cp (hl) ;02f9 be .
601 jr z,l0300h ;02fa 28 04 ( .
602 inc hl ;02fc 23 #
603 inc b ;02fd 04 .
604 jr l02f5h ;02fe 18 f5 . .
605 l0300h:
606 scf ;0300 37 7
607 inc de ;0301 13 .
608 ret ;0302 c9 .
609
610 sub_0303h:
611 ld hl,b_0cc3_start ;0303 21 c3 0c ! . .
612 ld b,07fh ;0306 06 7f .
613 jr l030ch ;0308 18 02 . .
614
615 sub_030ah:
616 ld b,0ffh ;030a 06 ff . .
617 l030ch:
618 inc b ;030c 04 .
619 ld a,(hl) ;030d 7e ~
620 and a ;030e a7 .
621 ret z ;030f c8 .
622 call sub_031ch ;0310 cd 1c 03 . . .
623 jr nc,l030ch ;0313 30 f7 0 .
624 res 7,b ;0315 cb b8 . .
625 ret ;0317 c9 .
626
627 sub_0318h:
628 push bc ;0318 c5 .
629 res 7,b ;0319 cb b8 . .
630 defb 03eh ;031b 3e >
631 sub_031ch:
632 push bc ;031c c5 .
633 push de ;031d d5 .
634 l031eh:
635 ld a,(de) ;031e 1a .
636 xor (hl) ;031f ae .
637 and 07fh ;0320 e6 7f .
638 jr nz,l0336h ;0322 20 12 .
639 bit 7,(hl) ;0324 cb 7e . ~
640 inc hl ;0326 23 #
641 inc de ;0327 13 .
642 jr z,l031eh ;0328 28 f4 ( .
643 scf ;032a 37 7
644 bit 7,b ;032b cb 78 . x
645 call z,sub_060ch ;032d cc 0c 06 . . .
646 jr nc,l0339h ;0330 30 07 0 .
647 pop af ;0332 f1 .
648 scf ;0333 37 7
649 pop bc ;0334 c1 .
650 ret ;0335 c9 .
651 l0336h:
652 call sub_0345h ;0336 cd 45 03 . E .
653 l0339h:
654 pop de ;0339 d1 .
655 and a ;033a a7 .
656 pop bc ;033b c1 .
657 ret ;033c c9 .
658 sub_033dh:
659 inc b ;033d 04 .
660 l033eh:
661 dec b ;033e 05 .
662 ret z ;033f c8 .
663 call sub_0345h ;0340 cd 45 03 . E .
664 jr l033eh ;0343 18 f9 . .
665 sub_0345h:
666 ld a,(hl) ;0345 7e ~
667 and a ;0346 a7 .
668 ret z ;0347 c8 .
669 l0348h:
670 ld a,(hl) ;0348 7e ~
671 inc hl ;0349 23 #
672 and a ;034a a7 .
673 ret m ;034b f8 .
674 jr l0348h ;034c 18 fa . .
675 sub_034eh:
676 call get_arg_range ;034e cd 7d 03 . } .
677 push hl ;0351 e5 .
678 push bc ;0352 c5 .
679 call next_arg ;0353 cd ca 02 . . .
680 call sub_0363h ;0356 cd 63 03 . c .
681 ex de,hl ;0359 eb .
682 pop bc ;035a c1 .
683 pop hl ;035b e1 .
684 ret ;035c c9 .
685
686 sub_035dh:
687 call expr ;035d cd be 03 . . .
688 jr c,error0 ;0360 38 33 8 3
689 ret ;0362 c9 .
690
691 sub_0363h:
692 call sub_035dh ;0363 cd 5d 03 . ] .
693 l0366h:
694 jp assert_eol ;0366 c3 d6 02 . . .
695
696 get_lastarg_def:
697 call get_arg_def ;0369 cd 6e 03 . n .
698 jr l0366h ;036c 18 f8 . .
699
700 get_arg_def:
701 push hl ;036e e5 .
702 call expr ;036f cd be 03 . . .
703 jr c,l0375h ;0372 38 01 8 .
704 ex (sp),hl ;0374 e3 .
705 l0375h:
706 pop hl ;0375 e1 .
707 ret ;0376 c9 .
708
709 sub_0377h:
710 call b_037c_start ;0377 cd 7c 03 . | .
711 jr l0366h ;037a 18 ea . .
712
713 b_037c_start:
714 defb 0e6h ;037c e6 .
715 get_arg_range:
716 scf ;037d 37 7
717 ex af,af' ;037e 08 .
718 push bc ;037f c5 .
719 push hl ;0380 e5 .
720 call expr ;0381 cd be 03 . . .
721 jr nc,l038ch ;0384 30 06 0 .
722 ex af,af' ;0386 08 .
723 jr c,error0 ;0387 38 0c 8 .
724 ex af,af' ;0389 08 .
725 pop hl ;038a e1 .
726 defb 03eh ;038b 3e >
727 l038ch:
728 pop af ;038c f1 .
729 call get_range ;038d cd 9a 03 . . .
730 jr nc,l0398h ;0390 30 06 0 .
731 ex af,af' ;0392 08 .
732 pop bc ;0393 c1 .
733 ret nc ;0394 d0 .
734 error0:
735 jp ERROR ;0395 c3 07 01 . . .
736 l0398h:
737 pop af ;0398 f1 .
738 ret ;0399 c9 .
739
740 get_range:
741 call next_arg ;039a cd ca 02 . . .
742 cp 'S' ;039d fe 53 . S
743 jr nz,l03a2h ;039f 20 01 .
744 inc de ;03a1 13 .
745 l03a2h:
746 push hl ;03a2 e5 .
747 push af ;03a3 f5 .
748 call expr ;03a4 cd be 03 . . .
749 jr c,l03b8h ;03a7 38 0f 8 .
750 ld b,h ;03a9 44 D
751 ld c,l ;03aa 4d M
752 pop af ;03ab f1 .
753 pop hl ;03ac e1 .
754 jr z,l03b6h ;03ad 28 07 ( .
755 ld a,c ;03af 79 y
756 sub l ;03b0 95 .
757 ld c,a ;03b1 4f O
758 ld a,b ;03b2 78 x
759 sbc a,h ;03b3 9c .
760 ld b,a ;03b4 47 G
761 inc bc ;03b5 03 .
762 l03b6h:
763 and a ;03b6 a7 .
764 ret ;03b7 c9 .
765 l03b8h:
766 pop af ;03b8 f1 .
767 pop hl ;03b9 e1 .
768 jr z,error0 ;03ba 28 d9 ( .
769 scf ;03bc 37 7
770 ret ;03bd c9 .
771
772 expr:
773 call skipbl ;03be cd bf 02 . . .
774 expr1:
775 call do_subexpr ;03c1 cd 2f 04 . / .
776 ret c ;03c4 d8 .
777 call do_rel_op ;03c5 cd ef 03 . . .
778 ret nc ;03c8 d0 .
779 push bc ;03c9 c5 .
780 push hl ;03ca e5 .
781 call do_subexpr ;03cb cd 2f 04 . / .
782 jr c,error0 ;03ce 38 c5 8 .
783 ex de,hl ;03d0 eb .
784 ex (sp),hl ;03d1 e3 .
785 and a ;03d2 a7 .
786 sbc hl,de ;03d3 ed 52 . R
787 ld hl,0ffffh ;03d5 21 ff ff ! . .
788 pop de ;03d8 d1 .
789 ret ;03d9 c9 .
790
791 do_op_eq:
792 jr z,l03edh ;03da 28 11 ( .
793 jr l03ech ;03dc 18 0e . .
794 do_op_ne:
795 jr nz,l03edh ;03de 20 0d .
796 jr l03ech ;03e0 18 0a . .
797 do_op_le:
798 jr z,l03edh ;03e2 28 09 ( .
799 do_op_lt:
800 jr c,l03edh ;03e4 38 07 8 .
801 jr l03ech ;03e6 18 04 . .
802 do_op_gt:
803 jr z,l03ech ;03e8 28 02 ( .
804 do_op_ge:
805 jr nc,l03edh ;03ea 30 01 0 .
806 l03ech:
807 inc hl ;03ec 23 #
808 l03edh:
809 and a ;03ed a7 .
810 ret ;03ee c9 .
811 do_rel_op:
812 push hl ;03ef e5 .
813 ld hl,tab_eq_le_ge ;03f0 21 1f 04 ! . .
814 call lookupch ;03f3 cd f3 02 . . .
815 jr nc,l041dh ;03f6 30 25 0 %
816 ld a,b ;03f8 78 x
817 or a ;03f9 b7 .
818 jr z,l0411h ;03fa 28 15 ( .
819 ld a,(de) ;03fc 1a .
820 cp '=' ;03fd fe 3d . =
821 jr nz,l0406h ;03ff 20 05 .
822 inc de ;0401 13 .
823 inc b ;0402 04 .
824 inc b ;0403 04 .
825 jr l0411h ;0404 18 0b . .
826 l0406h:
827 bit 0,b ;0406 cb 40 . @
828 jr z,l0411h ;0408 28 07 ( .
829 cp '>' ;040a fe 3e . >
830 jr nz,l0411h ;040c 20 03 .
831 inc de ;040e 13 .
832 ld b,005h ;040f 06 05 . .
833 l0411h:
834 ld hl,tab_func_eqlege ;0411 21 23 04 ! # .
835 ld a,b ;0414 78 x
836 add a,a ;0415 87 .
837 call add_hl_a ;0416 cd b9 02 . . .
838 ld c,(hl) ;0419 4e N
839 inc hl ;041a 23 #
840 ld b,(hl) ;041b 46 F
841 scf ;041c 37 7
842 l041dh:
843 pop hl ;041d e1 .
844 ret ;041e c9 .
845
846 tab_eq_le_ge:
847 db '=<>',0
848
849 tab_func_eqlege:
850 defw do_op_eq ;0423 da 03 . .
851 defw do_op_lt ;0425 e4 03 . .
852 defw do_op_gt ;0427 e8 03 . .
853 defw do_op_le ;0429 e2 03 . .
854 defw do_op_ge ;042b ea 03 . .
855 defw do_op_ne ;042d de 03 . .
856
857 do_subexpr:
858 call do_factor ;042f cd e4 04 . . .
859 ret c ;0432 d8 .
860 l0433h:
861 call do_binary_op ;0433 cd ae 04 . . .
862 push hl ;0436 e5 .
863 push bc ;0437 c5 .
864 call do_factor ;0438 cd e4 04 . . .
865 pop bc ;043b c1 .
866 ex de,hl ;043c eb .
867 ex (sp),hl ;043d e3 .
868 jr nc,l0447h ;043e 30 07 0 .
869 pop de ;0440 d1 .
870 ld a,b ;0441 78 x
871 or c ;0442 b1 .
872 ret z ;0443 c8 .
873 jp ERROR ;0444 c3 07 01 . . .
874
875 l0447h:
876 ld a,b ;0447 78 x
877 or c ;0448 b1 .
878 push bc ;0449 c5 .
879 ret nz ;044a c0 .
880 pop bc ;044b c1 .
881
882 doop_add:
883 add hl,de ;044c 19 .
884 l044dh:
885 pop de ;044d d1 .
886 jr l0433h ;044e 18 e3 . .
887
888 doop_sub:
889 and a ;0450 a7 .
890 sbc hl,de ;0451 ed 52 . R
891 jr l044dh ;0453 18 f8 . .
892
893 doop_mlt:
894 push bc ;0455 c5 .
895 ld b,h ;0456 44 D
896 ld c,l ;0457 4d M
897 ld hl,0 ;0458 21 00 00 ! . .
898 ld a,010h ;045b 3e 10 > .
899 l045dh:
900 add hl,hl ;045d 29 )
901 ex de,hl ;045e eb .
902 add hl,hl ;045f 29 )
903 ex de,hl ;0460 eb .
904 jr nc,l0464h ;0461 30 01 0 .
905 add hl,bc ;0463 09 .
906 l0464h:
907 dec a ;0464 3d =
908 jr nz,l045dh ;0465 20 f6 .
909 pop bc ;0467 c1 .
910 jr l044dh ;0468 18 e3 . .
911
912 doop_div:
913 call div_hl_de ;046a cd 75 04 . u .
914 jr l044dh ;046d 18 de . .
915
916 doop_mod:
917 call div_hl_de ;046f cd 75 04 . u .
918 ex de,hl ;0472 eb .
919 jr l044dh ;0473 18 d8 . .
920
921 ; divide x/y
922 ; hl: x
923 ; de: y
924 ; return:
925 ; hl: q (x/y)
926 ; de: r (x%y)
927
928 div_hl_de:
929 push bc ;0475 c5 .
930 ex de,hl ;0476 eb .
931 ld b,h ;0477 44 D
932 ld c,l ;0478 4d M
933 ld hl,0 ;0479 21 00 00 ! . .
934 ld a,16 ;047c 3e 10 > .
935
936 ; de: x (x shifted out, q shifted in)
937 ; bc: y
938 ; hl: r (initially 0)
939
940 l047eh:
941 push af ;047e f5 .
942 add hl,hl ;047f 29 )
943 ex de,hl ;0480 eb .
944 xor a ;0481 af .
945 add hl,hl ;0482 29 )
946 ex de,hl ;0483 eb .
947 adc a,l ;0484 8d .
948 sub c ;0485 91 .
949 ld l,a ;0486 6f o
950 ld a,h ;0487 7c |
951 sbc a,b ;0488 98 .
952 ld h,a ;0489 67 g
953 inc de ;048a 13 .
954 jr nc,l048fh ;048b 30 02 0 .
955 add hl,bc ;048d 09 .
956 dec de ;048e 1b .
957 l048fh:
958 pop af ;048f f1 .
959 dec a ;0490 3d =
960 jr nz,l047eh ;0491 20 eb .
961 ex de,hl ;0493 eb .
962 pop bc ;0494 c1 .
963 ret ;0495 c9 .
964
965 doop_and:
966 ld a,h ;0496 7c |
967 and d ;0497 a2 .
968 ld h,a ;0498 67 g
969 ld a,l ;0499 7d }
970 and e ;049a a3 .
971 ld l,a ;049b 6f o
972 jr l044dh ;049c 18 af . .
973
974 doop_or:
975 ld a,h ;049e 7c |
976 or d ;049f b2 .
977 ld h,a ;04a0 67 g
978 ld a,l ;04a1 7d }
979 or e ;04a2 b3 .
980 ld l,a ;04a3 6f o
981 jr l044dh ;04a4 18 a7 . .
982
983 doop_xor:
984 ld a,h ;04a6 7c |
985 xor d ;04a7 aa .
986 ld h,a ;04a8 67 g
987 ld a,l ;04a9 7d }
988 xor e ;04aa ab .
989 ld l,a ;04ab 6f o
990 jr l044dh ;04ac 18 9f . .
991
992 do_binary_op:
993 push hl ;04ae e5 .
994 ld hl,tab_op_a ;04af 21 c2 04 ! . .
995 call lookupch ;04b2 cd f3 02 . . .
996 ld a,b ;04b5 78 x
997 ld hl,tblf_opa ;04b6 21 cb 04 ! . .
998 add a,a ;04b9 87 .
999 call add_hl_a ;04ba cd b9 02 . . .
1000 ld c,(hl) ;04bd 4e N
1001 inc hl ;04be 23 #
1002 ld b,(hl) ;04bf 46 F
1003 pop hl ;04c0 e1 .
1004 ret ;04c1 c9 .
1005
1006 tab_op_a:
1007 DB '+-*/%&!#',0
1008
1009 tblf_opa:
1010 defw doop_add ;04cb 4c 04 L .
1011 defw doop_sub ;04cd 50 04 P .
1012 defw doop_mlt ;04cf 55 04 U .
1013 defw doop_div ;04d1 6a 04 j .
1014 defw doop_mod ;04d3 6f 04 o .
1015 defw doop_and ;04d5 96 04 . .
1016 defw doop_or ;04d7 9e 04 . .
1017 defw doop_xor ;04d9 a6 04 . .
1018 defw 0 ;04db 00 00 . .
1019
1020 fact_factor:
1021 call do_factor ;04dd cd e4 04 . . .
1022 ret nc ;04e0 d0 .
1023 jp ERROR ;04e1 c3 07 01 . . .
1024
1025 do_factor:
1026 call chk_sp ;04e4 cd dd 02 . . .
1027 call get.number ;04e7 cd aa 05 . . .
1028 ret nc ;04ea d0 .
1029 inc de ;04eb 13 .
1030 ld hl,ddtz_base-1 ;04ec 21 ff ff ! . .
1031 cp 'T' ;04ef fe 54 . T
1032 ret z ;04f1 c8 .
1033 ld hl,(high_load) ;04f2 2a 9c 11 * . .
1034 cp 'H' ;04f5 fe 48 . H
1035 ret z ;04f7 c8 .
1036 ld hl,(max_load) ;04f8 2a 9e 11 * . .
1037 cp 'M' ;04fb fe 4d . M
1038 ret z ;04fd c8 .
1039 ld hl,TPA ;04fe 21 00 01 ! . .
1040 cp 'L' ;0501 fe 4c . L
1041 ret z ;0503 c8 .
1042 ld hl,(offs.@) ;0504 2a 64 00 * d .
1043 cp '@' ;0507 fe 40 . @
1044 ret z ;0509 c8 .
1045 ld hl,(l0062h) ;050a 2a 62 00 * b .
1046 cp '$' ;050d fe 24 . $
1047 ret z ;050f c8 .
1048 cp '-' ;0510 fe 2d . -
1049 jr z,fact_factneg ;0512 28 61 ( a
1050 cp '~' ;0514 fe 7e . ~
1051 jr z,fact_factinv ;0516 28 68 ( h
1052 cp '+' ;0518 fe 2b . +
1053 jr z,fact_factor ;051a 28 c1 ( .
1054 cp '^' ;051c fe 5e . ^
1055 jr z,fact_reg.CPU ;051e 28 45 ( E
1056 cp 'Y' ;0520 fe 59 . Y
1057 jr z,fact_reg.Y ;0522 28 10 ( .
1058 cp '(' ;0524 fe 28 . (
1059 jr z,fact_mem ;0526 28 5d ( ]
1060 cp '[' ;0528 fe 5b . [
1061 jp z,expr_brckt ;052a ca 9d 05 . . .
1062 cp '''' ;052d fe 27 . '
1063 jr z,fact_factstring ;052f 28 17 ( .
1064 dec de ;0531 1b .
1065 scf ;0532 37 7
1066 ret ;0533 c9 .
1067
1068 fact_reg.Y:
1069 call get.decdigit ;0534 cd 1d 06 . . .
1070 jp c,ERROR ;0537 da 07 01 . . .
1071 inc de ;053a 13 .
1072 add a,a ;053b 87 .
1073 ld hl,reg_Y ;053c 21 9e 0b ! . .
1074 call add_hl_a ;053f cd b9 02 . . .
1075 ld a,(hl) ;0542 7e ~
1076 inc hl ;0543 23 #
1077 ld h,(hl) ;0544 66 f
1078 ld l,a ;0545 6f o
1079 and a ;0546 a7 .
1080 ret ;0547 c9 .
1081
1082 fact_factstring:
1083 ld hl,0 ;0548 21 00 00 ! . .
1084 l054bh:
1085 ld a,(de) ;054b 1a .
1086 cp '''' ;054c fe 27 . '
1087 jr z,l0557h ;054e 28 07 ( .
1088 and a ;0550 a7 .
1089 ret z ;0551 c8 .
1090 l0552h:
1091 ld h,l ;0552 65 e
1092 ld l,a ;0553 6f o
1093 inc de ;0554 13 .
1094 jr l054bh ;0555 18 f4 . .
1095 l0557h:
1096 inc de ;0557 13 .
1097 ld a,(de) ;0558 1a .
1098 cp '''' ;0559 fe 27 . '
1099 jr z,l0552h ;055b 28 f5 ( .
1100 sub '.' ;055d d6 2e . .
1101 or a ;055f b7 .
1102 ret nz ;0560 c0 .
1103 inc de ;0561 13 .
1104 set 7,l ;0562 cb fd . .
1105 ret ;0564 c9 .
1106
1107 fact_reg.CPU:
1108 call sub_0caeh ;0565 cd ae 0c . . .
1109 jr nc,error4 ;0568 30 3d 0 =
1110 ld a,(hl) ;056a 7e ~
1111 inc hl ;056b 23 #
1112 ld h,(hl) ;056c 66 f
1113 ld l,a ;056d 6f o
1114 and a ;056e a7 .
1115 bit 0,c ;056f cb 41 . A
1116 ret nz ;0571 c0 .
1117 ld h,000h ;0572 26 00 & .
1118 ret ;0574 c9 .
1119
1120 fact_factneg:
1121 call fact_factor ;0575 cd dd 04 . . .
1122 dec hl ;0578 2b +
1123 cpl.hl:
1124 ld a,h ;0579 7c |
1125 cpl ;057a 2f /
1126 ld h,a ;057b 67 g
1127 ld a,l ;057c 7d }
1128 cpl ;057d 2f /
1129 ld l,a ;057e 6f o
1130 ret ;057f c9 .
1131
1132 fact_factinv:
1133 call fact_factor ;0580 cd dd 04 . . .
1134 jr cpl.hl ;0583 18 f4 . .
1135
1136 fact_mem:
1137 call expr1 ;0585 cd c1 03 . . .
1138 jr c,error4 ;0588 38 1d 8 .
1139 ld a,(de) ;058a 1a .
1140 cp ')' ;058b fe 29 . )
1141 jr nz,error4 ;058d 20 18 .
1142 inc de ;058f 13 .
1143 ld a,(hl) ;0590 7e ~
1144 inc hl ;0591 23 #
1145 ld h,(hl) ;0592 66 f
1146 ld l,a ;0593 6f o
1147 ld a,(de) ;0594 1a .
1148 inc de ;0595 13 .
1149 cp '.' ;0596 fe 2e . .
1150 ret z ;0598 c8 .
1151 dec de ;0599 1b .
1152 xor a ;059a af .
1153 ld h,a ;059b 67 g
1154 ret ;059c c9 .
1155
1156 expr_brckt:
1157 call expr1 ;059d cd c1 03 . . .
1158 jr c,error4 ;05a0 38 05 8 .
1159 ld a,(de) ;05a2 1a .
1160 cp ']' ;05a3 fe 5d . ]
1161 inc de ;05a5 13 .
1162 ret z ;05a6 c8 .
1163 error4:
1164 jp ERROR ;05a7 c3 07 01 . . .
1165
1166 get.number:
1167 call get.hexdigit ;05aa cd 11 06 . . .
1168 ret c ;05ad d8 .
1169 push de ;05ae d5 .
1170 test_number:
1171 inc de ;05af 13 .
1172 call get.hexdigit ;05b0 cd 11 06 . . .
1173 jr nc,test_number ;05b3 30 fa 0 .
1174 pop de ;05b5 d1 .
1175 cp '.' ;05b6 fe 2e . .
1176 jr z,get_dec_number ;05b8 28 36 ( 6
1177 cp '"' ;05ba fe 22 . "
1178 jr z,get_bin_number ;05bc 28 17 ( .
1179 ld hl,0 ;05be 21 00 00 ! . .
1180 next_hexdigit:
1181 call get.hexdigit ;05c1 cd 11 06 . . .
1182 jr c,hexnum_done ;05c4 38 0a 8 .
1183 add hl,hl ;05c6 29 )
1184 add hl,hl ;05c7 29 )
1185 add hl,hl ;05c8 29 )
1186 add hl,hl ;05c9 29 )
1187 call add_hl_a ;05ca cd b9 02 . . .
1188 inc de ;05cd 13 .
1189 jr next_hexdigit ;05ce 18 f1 . .
1190
1191 hexnum_done:
1192 xor 'H' ;05d0 ee 48 . H
1193 ret nz ;05d2 c0 .
1194 inc de ;05d3 13 .
1195 ret ;05d4 c9 .
1196
1197 get_bin_number:
1198 ld hl,0 ;05d5 21 00 00 ! . .
1199 next_bindigit:
1200 call get.bindigit ;05d8 cd 22 06 . " .
1201 l05dbh:
1202 inc de ;05db 13 .
1203 jr c,l05e4h ;05dc 38 06 8 .
1204 add hl,hl ;05de 29 )
1205 call add_hl_a ;05df cd b9 02 . . .
1206 jr next_bindigit ;05e2 18 f4 . .
1207 l05e4h:
1208 cp '"' ;05e4 fe 22 . "
1209 jp nz,ERROR ;05e6 c2 07 01 . . .
1210 call get.bindigit ;05e9 cd 22 06 . " .
1211 jr nc,l05dbh ;05ec 30 ed 0 .
1212 or a ;05ee b7 .
1213 ret ;05ef c9 .
1214
1215 get_dec_number:
1216 ld hl,0 ;05f0 21 00 00 ! . .
1217 next_decdigit:
1218 call get.decdigit ;05f3 cd 1d 06 . . .
1219 inc de ;05f6 13 .
1220 jr c,decnum_done ;05f7 38 0d 8 .
1221 push bc ;05f9 c5 .
1222 add hl,hl ;05fa 29 )
1223 ld b,h ;05fb 44 D
1224 ld c,l ;05fc 4d M
1225 add hl,hl ;05fd 29 )
1226 add hl,hl ;05fe 29 )
1227 add hl,bc ;05ff 09 .
1228 pop bc ;0600 c1 .
1229 call add_hl_a ;0601 cd b9 02 . . .
1230 jr next_decdigit ;0604 18 ed . .
1231 decnum_done:
1232 cp '.' ;0606 fe 2e . .
1233 ret z ;0608 c8 .
1234 jp ERROR ;0609 c3 07 01 . . .
1235
1236 sub_060ch:
1237 ld a,(de) ;060c 1a .
1238 cp '[' ;060d fe 5b . [
1239 jr l0614h ;060f 18 03 . .
1240
1241 get.hexdigit:
1242 ld a,(de) ;0611 1a .
1243 hex_digit:
1244 cp 'F'+1 ;0612 fe 47 . G
1245 l0614h:
1246 ccf ;0614 3f ?
1247 ret c ;0615 d8 .
1248 cp 'A' ;0616 fe 41 . A
1249 jr c,l061eh ;0618 38 04 8 .
1250 sub 'A'-10 ;061a d6 37 . 7
1251 ret ;061c c9 .
1252
1253 get.decdigit:
1254 ld a,(de) ;061d 1a .
1255 l061eh:
1256 cp '9'+1 ;061e fe 3a . :
1257 jr l0625h ;0620 18 03 . .
1258
1259 get.bindigit:
1260 ld a,(de) ;0622 1a .
1261 cp '1'+1 ;0623 fe 32 . 2
1262 l0625h:
1263 ccf ;0625 3f ?
1264 ret c ;0626 d8 .
1265 cp '0' ;0627 fe 30 . 0
1266 ret c ;0629 d8 .
1267 sub '0' ;062a d6 30 . 0
1268 ret ;062c c9 .
1269
1270 prnt_cpustat0:
1271 call assert_eol ;062d cd d6 02 . . .
1272 prnt_cpustat:
1273 call prnt_f ;0630 cd 6e 06 . n .
1274 call outbl2 ;0633 cd 9c 02 . . .
1275 ld hl,b_06e9_start ;0636 21 e9 06 ! . .
1276 ld de,b_0709_start ;0639 11 09 07 . . .
1277 ld b,6 ;063c 06 06 . .
1278 l063eh:
1279 call prnt_regs ;063e cd b2 06 . . .
1280 djnz l063eh ;0641 10 fb . .
1281 push hl ;0643 e5 .
1282 push de ;0644 d5 .
1283 ld iy,(REG.PC) ;0645 fd 2a 60 00 . * ` .
1284 call prnt_disas_instr ;0649 cd 65 19 . e .
1285 exx ;064c d9 .
1286 ex af,af' ;064d 08 .
1287 call crlf ;064e cd a3 02 . . .
1288 call prnt_f2 ;0651 cd 81 06 . . .
1289 call outbl2 ;0654 cd 9c 02 . . .
1290 pop de ;0657 d1 .
1291 pop hl ;0658 e1 .
1292 ld b,7 ;0659 06 07 . .
1293 l065bh:
1294 call prnt_regs ;065b cd b2 06 . . .
1295 djnz l065bh ;065e 10 fb . .
1296 exx ;0660 d9 .
1297 ex af,af' ;0661 08 .
1298 and a ;0662 a7 .
1299 jr z,l066bh ;0663 28 06 ( .
1300 call outbl6 ;0665 cd 96 02 . . .
1301 call prnt_offset ;0668 cd 49 19 . I .
1302 l066bh:
1303 jp crlf ;066b c3 a3 02 . . .
1304
1305 prnt_f:
1306 ld a,(reg.f) ;066e 3a 54 00 : T .
1307 call prnt_flags ;0671 cd 8a 06 . . .
1308 ld a,(reg.iff) ;0674 3a 5e 00 : ^ .
1309 cp 0f3h ;0677 fe f3 . .
1310 jp z,outbl ;0679 ca 9f 02 . . .
1311 ld a,'E' ;067c 3e 45 > E
1312 jp outchar ;067e c3 5d 02 . ] .
1313 prnt_f2:
1314 ld a,(reg.f2) ;0681 3a 4c 00 : L .
1315 call prnt_flags ;0684 cd 8a 06 . . .
1316 jp outbl ;0687 c3 9f 02 . . .
1317 prnt_flags:
1318 ld b,a ;068a 47 G
1319 ld a,'S' ;068b 3e 53 > S
1320 call sub_06aah ;068d cd aa 06 . . .
1321 ld a,'Z' ;0690 3e 5a > Z
1322 call sub_06aah ;0692 cd aa 06 . . .
1323 rl b ;0695 cb 10 . .
1324 ld a,'H' ;0697 3e 48 > H
1325 call sub_06aah ;0699 cd aa 06 . . .
1326 rl b ;069c cb 10 . .
1327 ld a,'V' ;069e 3e 56 > V
1328 call sub_06aah ;06a0 cd aa 06 . . .
1329 ld a,'N' ;06a3 3e 4e > N
1330 call sub_06aah ;06a5 cd aa 06 . . .
1331 ld a,'C' ;06a8 3e 43 > C
1332 sub_06aah:
1333 rl b ;06aa cb 10 . .
1334 jp c,outchar ;06ac da 5d 02 . ] .
1335 jp outbl ;06af c3 9f 02 . . .
1336 prnt_regs:
1337 push bc ;06b2 c5 .
1338 push de ;06b3 d5 .
1339 call pstr ;06b4 cd 88 02 . . .
1340 ld a,'=' ;06b7 3e 3d > =
1341 call outchar ;06b9 cd 5d 02 . ] .
1342 ex (sp),hl ;06bc e3 .
1343 ld e,(hl) ;06bd 5e ^
1344 inc hl ;06be 23 #
1345 ld d,(hl) ;06bf 56 V
1346 inc hl ;06c0 23 #
1347 ld a,(hl) ;06c1 7e ~
1348 inc hl ;06c2 23 #
1349 push hl ;06c3 e5 .
1350 and a ;06c4 a7 .
1351 jr z,l06deh ;06c5 28 17 ( .
1352 push af ;06c7 f5 .
1353 ld a,(de) ;06c8 1a .
1354 ld l,a ;06c9 6f o
1355 inc de ;06ca 13 .
1356 ld a,(de) ;06cb 1a .
1357 ld h,a ;06cc 67 g
1358 pop af ;06cd f1 .
1359 dec a ;06ce 3d =
1360 jr z,l06d9h ;06cf 28 08 ( .
1361 call out.hl.@ ;06d1 cd a4 01 . . .
1362 call z,outbl6 ;06d4 cc 96 02 . . .
1363 jr l06e2h ;06d7 18 09 . .
1364 l06d9h:
1365 call out_hl ;06d9 cd 13 02 . . .
1366 jr l06e2h ;06dc 18 04 . .
1367 l06deh:
1368 ld a,(de) ;06de 1a .
1369 call out_hex ;06df cd 18 02 . . .
1370 l06e2h:
1371 call outbl ;06e2 cd 9f 02 . . .
1372 pop de ;06e5 d1 .
1373 pop hl ;06e6 e1 .
1374 pop bc ;06e7 c1 .
1375 ret ;06e8 c9 .
1376
1377 b_06e9_start:
1378 DC 'A '
1379 DC 'BC '
1380 DC 'DE '
1381 DC 'HL '
1382 DC 'SP'
1383 DC 'PC'
1384 DC 'A'''
1385 DC 'BC'''
1386 DC 'DE'''
1387 DC 'HL'''
1388 DC 'IX'
1389 DC 'IY'
1390 DC 'I'
1391 DB 0
1392
1393 b_0709_start:
1394 defw reg.a ;0709 55 00 U .
1395 defb 000h ;070b 00 .
1396 defw reg.c ;070c 56 00 V .
1397 defb 001h ;070e 01 .
1398 defw reg.e ;070f 58 00 X .
1399 defb 001h ;0711 01 .
1400 defw reg.l ;0712 5a 00 Z .
1401 defb 001h ;0714 01 .
1402 defw reg_sp ;0715 5c 00 \ .
1403 defb 001h ;0717 01 .
1404 defw REG.PC ;0718 60 00 ` .
1405 defb 002h ;071a 02 .
1406 defw reg.a2 ;071b 4d 00 M .
1407 defb 000h ;071d 00 .
1408 defw reg.c2 ;071e 4a 00 J .
1409 defb 001h ;0720 01 .
1410 defw reg.e2 ;0721 48 00 H .
1411 defb 001h ;0723 01 .
1412 defw reg.l2 ;0724 46 00 F .
1413 defb 001h ;0726 01 .
1414 defw reg.ix ;0727 52 00 R .
1415 defb 001h ;0729 01 .
1416 defw reg.iy ;072a 50 00 P .
1417 defb 001h ;072c 01 .
1418 defw reg.i ;072d 4f 00 O .
1419 defb 000h ;072f 00 .
1420 defb 000h ;0730 00 .
1421
1422 cmd_G:
1423 sub a ;0731 97 .
1424 ld (trace_call_flag),a ;0732 32 e3 21 2 . !
1425 ld (l0941h),a ;0735 32 41 09 2 A .
1426 call expr ;0738 cd be 03 . . .
1427 jr c,l0740h ;073b 38 03 8 .
1428 ld (REG.PC),hl ;073d 22 60 00 " ` .
1429 l0740h:
1430 call skipbl ;0740 cd bf 02 . . .
1431 jp z,user_go ;0743 ca 25 0a . % .
1432 cp ';' ;0746 fe 3b . ;
1433 jp nz,ERROR ;0748 c2 07 01 . . .
1434 inc de ;074b 13 .
1435 ld a,002h ;074c 3e 02 > .
1436 call bp_enter ;074e cd 10 08 . . .
1437 jp user_go ;0751 c3 25 0a . % .
1438
1439 bp_clr_temporary:
1440 ld b,BP_CNT ;0754 06 0c . .
1441 ld ix,bp_tab ;0756 dd 21 b8 0a . ! . .
1442 l075ah:
1443 ld a,(ix+000h) ;075a dd 7e 00 . ~ .
1444 and 0f1h ;075d e6 f1 . .
1445 ld (ix+000h),a ;075f dd 77 00 . w .
1446 call bp_clr_condition ;0762 cd 5f 0a . _ .
1447 ld de,BP_SIZE ;0765 11 08 00 . . .
1448 add ix,de ;0768 dd 19 . .
1449 djnz l075ah ;076a 10 ee . .
1450 ret ;076c c9 .
1451
1452 cmd_B:
1453 call skipbl ;076d cd bf 02 . . .
1454 jr z,l07b7h ;0770 28 45 ( E
1455 inc de ;0772 13 .
1456 cp 'X' ;0773 fe 58 . X
1457 jr z,l077dh ;0775 28 06 ( .
1458 dec de ;0777 1b .
1459 ld a,001h ;0778 3e 01 > .
1460 jp bp_enter ;077a c3 10 08 . . .
1461 l077dh:
1462 call skipbl ;077d cd bf 02 . . .
1463 jr z,bp_clr_all ;0780 28 10 ( .
1464 l0782h:
1465 call expr ;0782 cd be 03 . . .
1466 jp c,assert_eol ;0785 da d6 02 . . .
1467 push de ;0788 d5 .
1468 call bp_clr ;0789 cd 93 07 . . .
1469 pop de ;078c d1 .
1470 call next_arg ;078d cd ca 02 . . .
1471 jr l0782h ;0790 18 f0 . .
1472
1473 bp_clr_all:
1474 scf ;0792 37 7
1475 bp_clr:
1476 ld b,BP_CNT ;0793 06 0c . .
1477 ld ix,bp_tab ;0795 dd 21 b8 0a . ! . .
1478 l0799h:
1479 push af ;0799 f5 .
1480 jr c,l07a7h ;079a 38 0b 8 .
1481 ld e,(ix+002h) ;079c dd 5e 02 . ^ .
1482 ld d,(ix+003h) ;079f dd 56 03 . V .
1483 call cp_hl_de ;07a2 cd ee 02 . . .
1484 jr nz,l07aeh ;07a5 20 07 .
1485 l07a7h:
1486 ld (ix+000h),000h ;07a7 dd 36 00 00 . 6 . .
1487 call bp_clr_condition ;07ab cd 5f 0a . _ .
1488 l07aeh:
1489 ld de,BP_SIZE ;07ae 11 08 00 . . .
1490 add ix,de ;07b1 dd 19 . .
1491 pop af ;07b3 f1 .
1492 djnz l0799h ;07b4 10 e3 . .
1493 ret ;07b6 c9 .
1494
1495 l07b7h:
1496 ld b,BP_CNT ;07b7 06 0c . .
1497 ld ix,bp_tab ;07b9 dd 21 b8 0a . ! . .
1498 l07bdh:
1499 bit 0,(ix+000h) ;07bd dd cb 00 46 . . . F
1500 jr z,l0808h ;07c1 28 45 ( E
1501 ld a,'R' ;07c3 3e 52 > R
1502 bit 4,(ix+000h) ;07c5 dd cb 00 66 . . . f
1503 jr nz,l07cdh ;07c9 20 02 .
1504 ld a,' ' ;07cb 3e 20 >
1505 l07cdh:
1506 call outchar ;07cd cd 5d 02 . ] .
1507 call outbl ;07d0 cd 9f 02 . . .
1508 ld l,(ix+002h) ;07d3 dd 6e 02 . n .
1509 ld h,(ix+003h) ;07d6 dd 66 03 . f .
1510 call out.hl.@ ;07d9 cd a4 01 . . .
1511 call outbl2 ;07dc cd 9c 02 . . .
1512 ld a,':' ;07df 3e 3a > :
1513 call outchar ;07e1 cd 5d 02 . ] .
1514 ld l,(ix+004h) ;07e4 dd 6e 04 . n .
1515 ld h,(ix+005h) ;07e7 dd 66 05 . f .
1516 call out_hl ;07ea cd 13 02 . . .
1517 ld l,(ix+006h) ;07ed dd 6e 06 . n .
1518 ld h,(ix+007h) ;07f0 dd 66 07 . f .
1519 ld a,h ;07f3 7c |
1520 or l ;07f4 b5 .
1521 jr z,l0805h ;07f5 28 0e ( .
1522 call outbl4 ;07f7 cd 99 02 . . .
1523 ld a,'I' ;07fa 3e 49 > I
1524 call outchar ;07fc cd 5d 02 . ] .
1525 call outbl2 ;07ff cd 9c 02 . . .
1526 call pstr ;0802 cd 88 02 . . .
1527 l0805h:
1528 call crlf ;0805 cd a3 02 . . .
1529 l0808h:
1530 ld de,BP_SIZE ;0808 11 08 00 . . .
1531 add ix,de ;080b dd 19 . .
1532 djnz l07bdh ;080d 10 ae . .
1533 ret ;080f c9 .
1534
1535 ; Add break points to list
1536 ; A = 1 Permanent (B command)
1537 ; A = 2 Temporary (G command)
1538
1539 bp_enter:
1540 ld b,a ;0810 47 G
1541 call skipbl ;0811 cd bf 02 . . .
1542 ret z ;0814 c8 .
1543 cp 'R' ;0815 fe 52 . R
1544 jr nz,l081ch ;0817 20 03 .
1545 inc de ;0819 13 .
1546 set 4,b ;081a cb e0 . .
1547 l081ch:
1548 push bc ;081c c5 .
1549 call expr ;081d cd be 03 . . .
1550 jp c,ERROR ;0820 da 07 01 . . .
1551 pop bc ;0823 c1 .
1552 bit 0,b ;0824 cb 40 . @
1553 push bc ;0826 c5 .
1554 push de ;0827 d5 .
1555 push hl ;0828 e5 .
1556 call nz,bp_clr ;0829 c4 93 07 . . .
1557 pop hl ;082c e1 .
1558 call bp_get_freeslot ;082d cd 54 08 . T .
1559 pop de ;0830 d1 .
1560 ld (ix+002h),l ;0831 dd 75 02 . u .
1561 ld (ix+003h),h ;0834 dd 74 03 . t .
1562 call bp_get_count ;0837 cd 6c 08 . l .
1563 ld (ix+004h),l ;083a dd 75 04 . u .
1564 ld (ix+005h),h ;083d dd 74 05 . t .
1565 call bp_get_condition ;0840 cd 7d 08 . } .
1566 ld (ix+006h),l ;0843 dd 75 06 . u .
1567 ld (ix+007h),h ;0846 dd 74 07 . t .
1568 call next_arg ;0849 cd ca 02 . . .
1569 pop af ;084c f1 .
1570 ld (ix+000h),a ;084d dd 77 00 . w .
1571 and 00fh ;0850 e6 0f . .
1572 jr bp_enter ;0852 18 bc . .
1573
1574 bp_get_freeslot:
1575 ld b,BP_CNT ;0854 06 0c . .
1576 ld ix,bp_tab ;0856 dd 21 b8 0a . ! . .
1577 l085ah:
1578 ld a,(ix+000h) ;085a dd 7e 00 . ~ .
1579 and 00fh ;085d e6 0f . .
1580 ret z ;085f c8 .
1581 push bc ;0860 c5 .
1582 ld bc,BP_SIZE ;0861 01 08 00 . . .
1583 add ix,bc ;0864 dd 09 . .
1584 pop bc ;0866 c1 .
1585 djnz l085ah ;0867 10 f1 . .
1586 jp ERROR ;0869 c3 07 01 . . .
1587
1588 bp_get_count:
1589 call skipbl ;086c cd bf 02 . . .
1590 ld hl,1 ;086f 21 01 00 ! . .
1591 cp ':' ;0872 fe 3a . :
1592 ret nz ;0874 c0 .
1593 inc de ;0875 13 .
1594 call expr ;0876 cd be 03 . . .
1595 jp c,ERROR ;0879 da 07 01 . . .
1596 ret ;087c c9 .
1597
1598 bp_get_condition:
1599 call skipbl ;087d cd bf 02 . . .
1600 cp 'I' ;0880 fe 49 . I
1601 ld hl,0 ;0882 21 00 00 ! . .
1602 ret nz ;0885 c0 .
1603 inc de ;0886 13 .
1604 call skipbl ;0887 cd bf 02 . . .
1605 push de ;088a d5 .
1606 call expr ;088b cd be 03 . . .
1607 jp c,ERROR ;088e da 07 01 . . .
1608 ex de,hl ;0891 eb .
1609 pop de ;0892 d1 .
1610 push de ;0893 d5 .
1611 sbc hl,de ;0894 ed 52 . R
1612 ld b,h ;0896 44 D
1613 ld c,l ;0897 4d M
1614 ld hl,(expr_p1) ;0898 2a 18 0b * . .
1615 push hl ;089b e5 .
1616 add hl,bc ;089c 09 .
1617 ld de,expr_bufe ;089d 11 9c 0b . . .
1618 call cp_hl_de ;08a0 cd ee 02 . . .
1619 jp nc,ERROR ;08a3 d2 07 01 . . .
1620 pop hl ;08a6 e1 .
1621 ld (expr_p2),hl ;08a7 22 1a 0b " . .
1622 pop de ;08aa d1 .
1623 ex de,hl ;08ab eb .
1624 ldir ;08ac ed b0 . .
1625 xor a ;08ae af .
1626 ld (de),a ;08af 12 .
1627 inc de ;08b0 13 .
1628 ex de,hl ;08b1 eb .
1629 ld (expr_p1),hl ;08b2 22 18 0b " . .
1630 ld hl,(expr_p2) ;08b5 2a 1a 0b * . .
1631 ret ;08b8 c9 .
1632
1633 bpddtz:
1634 ld (reg.l),hl ;08b9 22 5a 00 " Z .
1635 pop hl ;08bc e1 .
1636 dec hl ;08bd 2b +
1637 ld (REG.PC),hl ;08be 22 60 00 " ` .
1638 ld (reg_sp),sp ;08c1 ed 73 5c 00 . s \ .
1639 ld sp,reg.l ;08c5 31 5a 00 1 Z .
1640 push de ;08c8 d5 .
1641 push bc ;08c9 c5 .
1642 push af ;08ca f5 .
1643 push ix ;08cb dd e5 . .
1644 push iy ;08cd fd e5 . .
1645 ld a,i ;08cf ed 57 . W
1646 call sub_0004h ;08d1 cd 04 00 . . .
1647 ld h,a ;08d4 67 g
1648 ld l,000h ;08d5 2e 00 . .
1649 push hl ;08d7 e5 .
1650 ld a,0f3h ;08d8 3e f3 > .
1651 jp po,l08dfh ;08da e2 df 08 . . .
1652 ld a,0fbh ;08dd 3e fb > .
1653 l08dfh:
1654 ld (reg.iff),a ;08df 32 5e 00 2 ^ .
1655 ex af,af' ;08e2 08 .
1656 push af ;08e3 f5 .
1657 exx ;08e4 d9 .
1658 push bc ;08e5 c5 .
1659 push de ;08e6 d5 .
1660 push hl ;08e7 e5 .
1661 call sub_097ah ;08e8 cd 7a 09 . z .
1662 ld a,(b_21e2_start) ;08eb 3a e2 21 : . !
1663 dec a ;08ee 3d =
1664 jr z,l090bh ;08ef 28 1a ( .
1665 call inchar ;08f1 cd 73 02 . s .
1666 jr c,l0902h ;08f4 38 0c 8 .
1667 call sub_0913h ;08f6 cd 13 09 . . .
1668 and a ;08f9 a7 .
1669 jp z,user_go ;08fa ca 25 0a . % .
1670 and 083h ;08fd e6 83 . .
1671 jp z,l2151h ;08ff ca 51 21 . Q !
1672 l0902h:
1673 call bp_clr_temporary ;0902 cd 54 07 . T .
1674 call prnt_cpustat ;0905 cd 30 06 . 0 .
1675 jp mainloop ;0908 c3 bd 00 . . .
1676
1677 l090bh:
1678 ld (b_21e2_start),a ;090b 32 e2 21 2 . !
1679 ld c,007h ;090e 0e 07 . .
1680 jp l0a41h ;0910 c3 41 0a . A .
1681
1682 sub_0913h:
1683 ld a,080h ;0913 3e 80 > .
1684 ex af,af' ;0915 08 .
1685 sub a ;0916 97 .
1686 ld (l0941h),a ;0917 32 41 09 2 A .
1687 ld b,BP_CNT ;091a 06 0c . .
1688 ld ix,bp_tab ;091c dd 21 b8 0a . ! . .
1689 l0920h:
1690 ld a,(ix+000h) ;0920 dd 7e 00 . ~ .
1691 and 007h ;0923 e6 07 . .
1692 jr z,l0938h ;0925 28 11 ( .
1693 ld e,(ix+002h) ;0927 dd 5e 02 . ^ .
1694 ld d,(ix+003h) ;092a dd 56 03 . V .
1695 ld hl,(REG.PC) ;092d 2a 60 00 * ` .
1696 call cp_hl_de ;0930 cd ee 02 . . .
1697 push bc ;0933 c5 .
1698 call z,sub_0942h ;0934 cc 42 09 . B .
1699 pop bc ;0937 c1 .
1700 l0938h:
1701 ld de,BP_SIZE ;0938 11 08 00 . . .
1702 add ix,de ;093b dd 19 . .
1703 djnz l0920h ;093d 10 e1 . .
1704 ex af,af' ;093f 08 .
1705 ret ;0940 c9 .
1706
1707 l0941h:
1708 db 0 ;0941 00 .
1709
1710 sub_0942h:
1711 ex af,af' ;0942 08 .
1712 res 7,a ;0943 cb bf . .
1713 ex af,af' ;0945 08 .
1714 ld e,(ix+006h) ;0946 dd 5e 06 . ^ .
1715 ld d,(ix+007h) ;0949 dd 56 07 . V .
1716 ld a,d ;094c 7a z
1717 or e ;094d b3 .
1718 ld hl,0ffffh ;094e 21 ff ff ! . .
1719 call nz,expr ;0951 c4 be 03 . . .
1720 ld a,h ;0954 7c |
1721 or l ;0955 b5 .
1722 jr z,l0969h ;0956 28 11 ( .
1723 ld e,(ix+004h) ;0958 dd 5e 04 . ^ .
1724 ld d,(ix+005h) ;095b dd 56 05 . V .
1725 dec de ;095e 1b .
1726 ld a,d ;095f 7a z
1727 or e ;0960 b3 .
1728 jr z,l0974h ;0961 28 11 ( .
1729 ld (ix+004h),e ;0963 dd 73 04 . s .
1730 ld (ix+005h),d ;0966 dd 72 05 . r .
1731 l0969h:
1732 bit 4,(ix+000h) ;0969 dd cb 00 66 . . . f
1733 ret z ;096d c8 .
1734 ld a,001h ;096e 3e 01 > .
1735 ld (l0941h),a ;0970 32 41 09 2 A .
1736 ret ;0973 c9 .
1737 l0974h:
1738 ex af,af' ;0974 08 .
1739 or (ix+000h) ;0975 dd b6 00 . . .
1740 ex af,af' ;0978 08 .
1741 ret ;0979 c9 .
1742
1743 sub_097ah:
1744 ld b,BP_CNT ;097a 06 0c . .
1745 ld ix,bp_tab ;097c dd 21 b8 0a . ! . .
1746 l0980h:
1747 bit 5,(ix+000h) ;0980 dd cb 00 6e . . . n
1748 res 5,(ix+000h) ;0984 dd cb 00 ae . . . .
1749 jr z,l099ah ;0988 28 10 ( .
1750 ld l,(ix+002h) ;098a dd 6e 02 . n .
1751 ld h,(ix+003h) ;098d dd 66 03 . f .
1752 ld a,(l0003h) ;0990 3a 03 00 : . .
1753 cp (hl) ;0993 be .
1754 jr nz,l099ah ;0994 20 04 .
1755 ld a,(ix+001h) ;0996 dd 7e 01 . ~ .
1756 ld (hl),a ;0999 77 w
1757 l099ah:
1758 res 3,(ix+000h) ;099a dd cb 00 9e . . . .
1759 ld de,BP_SIZE ;099e 11 08 00 . . .
1760 add ix,de ;09a1 dd 19 . .
1761 djnz l0980h ;09a3 10 db . .
1762 ret ;09a5 c9 .
1763
1764 sub_09a6h:
1765 ld b,BP_CNT ;09a6 06 0c . .
1766 ld ix,bp_tab ;09a8 dd 21 b8 0a . ! . .
1767 l09ach:
1768 ld a,(ix+000h) ;09ac dd 7e 00 . ~ .
1769 and 003h ;09af e6 03 . .
1770 jr z,l09c0h ;09b1 28 0d ( .
1771 ld e,(ix+002h) ;09b3 dd 5e 02 . ^ .
1772 ld d,(ix+003h) ;09b6 dd 56 03 . V .
1773 ld hl,(REG.PC) ;09b9 2a 60 00 * ` .
1774 call cp_hl_de ;09bc cd ee 02 . . .
1775 ret z ;09bf c8 .
1776 l09c0h:
1777 ld de,BP_SIZE ;09c0 11 08 00 . . .
1778 add ix,de ;09c3 dd 19 . .
1779 djnz l09ach ;09c5 10 e5 . .
1780 sub a ;09c7 97 .
1781 inc a ;09c8 3c <
1782 ret ;09c9 c9 .
1783
1784 sub_09cah:
1785 call bp_get_freeslot ;09ca cd 54 08 . T .
1786 ld (ix+004h),001h ;09cd dd 36 04 01 . 6 . .
1787 ld (ix+005h),000h ;09d1 dd 36 05 00 . 6 . .
1788 ld (ix+002h),l ;09d5 dd 75 02 . u .
1789 ld (ix+003h),h ;09d8 dd 74 03 . t .
1790 ld (ix+006h),000h ;09db dd 36 06 00 . 6 . .
1791 ld (ix+007h),000h ;09df dd 36 07 00 . 6 . .
1792 ld a,(b_21e2_start) ;09e3 3a e2 21 : . !
1793 and a ;09e6 a7 .
1794 ld a,008h ;09e7 3e 08 > .
1795 jr nz,l09edh ;09e9 20 02 .
1796 ld a,004h ;09eb 3e 04 > .
1797 l09edh:
1798 ld (ix+000h),a ;09ed dd 77 00 . w .
1799 ret ;09f0 c9 .
1800
1801 sub_09f1h:
1802 ld b,BP_CNT ;09f1 06 0c . .
1803 ld ix,bp_tab ;09f3 dd 21 b8 0a . ! . .
1804 l09f7h:
1805 ld a,(ix+000h) ;09f7 dd 7e 00 . ~ .
1806 and c ;09fa a1 .
1807 jr z,l0a1dh ;09fb 28 20 (
1808 set 5,(ix+000h) ;09fd dd cb 00 ee . . . .
1809 ld l,(ix+002h) ;0a01 dd 6e 02 . n .
1810 ld h,(ix+003h) ;0a04 dd 66 03 . f .
1811 ld a,(hl) ;0a07 7e ~
1812 ld (ix+001h),a ;0a08 dd 77 01 . w .
1813 ld a,(l0003h) ;0a0b 3a 03 00 : . .
1814 ld (hl),a ;0a0e 77 w
1815 and 038h ;0a0f e6 38 . 8
1816 ld h,000h ;0a11 26 00 & .
1817 ld l,a ;0a13 6f o
1818 ld (hl),0c3h ;0a14 36 c3 6 .
1819 inc hl ;0a16 23 #
1820 ld de,bpddtz ;0a17 11 b9 08 . . .
1821 ld (hl),e ;0a1a 73 s
1822 inc hl ;0a1b 23 #
1823 ld (hl),d ;0a1c 72 r
1824 l0a1dh:
1825 ld de,BP_SIZE ;0a1d 11 08 00 . . .
1826 add ix,de ;0a20 dd 19 . .
1827 djnz l09f7h ;0a22 10 d3 . .
1828 ret ;0a24 c9 .
1829
1830 user_go:
1831 sub a ;0a25 97 .
1832 ld (b_21e2_start),a ;0a26 32 e2 21 2 . !
1833 ld a,(l0941h) ;0a29 3a 41 09 : A .
1834 and a ;0a2c a7 .
1835 call nz,prnt_cpustat ;0a2d c4 30 06 . 0 .
1836 call sub_09a6h ;0a30 cd a6 09 . . .
1837 ld c,007h ;0a33 0e 07 . .
1838 jr nz,l0a41h ;0a35 20 0a .
1839 ld a,001h ;0a37 3e 01 > .
1840 ld (b_21e2_start),a ;0a39 32 e2 21 2 . !
1841 call sub_1ffeh ;0a3c cd fe 1f . . .
1842 ld c,008h ;0a3f 0e 08 . .
1843 l0a41h:
1844 call sub_09f1h ;0a41 cd f1 09 . . .
1845 ld sp,reg.l2 ;0a44 31 46 00 1 F .
1846 pop hl ;0a47 e1 .
1847 pop de ;0a48 d1 .
1848 pop bc ;0a49 c1 .
1849 pop af ;0a4a f1 .
1850 exx ;0a4b d9 .
1851 ex af,af' ;0a4c 08 .
1852 pop af ;0a4d f1 .
1853 ld i,a ;0a4e ed 47 . G
1854 pop iy ;0a50 fd e1 . .
1855 pop ix ;0a52 dd e1 . .
1856 pop af ;0a54 f1 .
1857 pop bc ;0a55 c1 .
1858 pop de ;0a56 d1 .
1859 pop hl ;0a57 e1 .
1860 ld sp,(reg_sp) ;0a58 ed 7b 5c 00 . { \ .
1861 jp reg.iff ;0a5c c3 5e 00 . ^ .
1862
1863 bp_clr_condition:
1864 ld a,(ix+000h) ;0a5f dd 7e 00 . ~ .
1865 and 003h ;0a62 e6 03 . .
1866 ret nz ;0a64 c0 .
1867 ld e,(ix+006h) ;0a65 dd 5e 06 . ^ .
1868 ld d,(ix+007h) ;0a68 dd 56 07 . V .
1869 ld a,d ;0a6b 7a z
1870 or e ;0a6c b3 .
1871 ret z ;0a6d c8 .
1872 push bc ;0a6e c5 .
1873 ld h,d ;0a6f 62 b
1874 ld l,e ;0a70 6b k
1875 sub a ;0a71 97 .
1876 ld (ix+006h),a ;0a72 dd 77 06 . w .
1877 ld (ix+007h),a ;0a75 dd 77 07 . w .
1878 ld bc,0ffffh ;0a78 01 ff ff . . .
1879 cpir ;0a7b ed b1 . .
1880 l0a7dh:
1881 push de ;0a7d d5 .
1882 ld de,(expr_p1) ;0a7e ed 5b 18 0b . [ . .
1883 call cp_hl_de ;0a82 cd ee 02 . . .
1884 pop de ;0a85 d1 .
1885 jr nc,l0a93h ;0a86 30 0b 0 .
1886 call sub_0a99h ;0a88 cd 99 0a . . .
1887 l0a8bh:
1888 ld a,(hl) ;0a8b 7e ~
1889 ldi ;0a8c ed a0 . .
1890 and a ;0a8e a7 .
1891 jr nz,l0a8bh ;0a8f 20 fa .
1892 jr l0a7dh ;0a91 18 ea . .
1893 l0a93h:
1894 ld (expr_p1),de ;0a93 ed 53 18 0b . S . .
1895 pop bc ;0a97 c1 .
1896 ret ;0a98 c9 .
1897
1898 sub_0a99h:
1899 ld iy,bp_tab ;0a99 fd 21 b8 0a . ! . .
1900 push de ;0a9d d5 .
1901 l0a9eh:
1902 ld e,(iy+006h) ;0a9e fd 5e 06 . ^ .
1903 ld d,(iy+007h) ;0aa1 fd 56 07 . V .
1904 call cp_hl_de ;0aa4 cd ee 02 . . .
1905 jr z,l0ab0h ;0aa7 28 07 ( .
1906 ld de,BP_SIZE ;0aa9 11 08 00 . . .
1907 add iy,de ;0aac fd 19 . .
1908 jr l0a9eh ;0aae 18 ee . .
1909 l0ab0h:
1910 pop de ;0ab0 d1 .
1911 ld (iy+006h),e ;0ab1 fd 73 06 . s .
1912 ld (iy+007h),d ;0ab4 fd 72 07 . r .
1913 ret ;0ab7 c9 .
1914
1915 bp_tab:
1916 rept BP_CNT
1917 rept BP_SIZE
1918 db 0
1919 endm
1920 endm
1921
1922 expr_p1:
1923 defw expr_buf ;0b18 1c 0b . .
1924 expr_p2:
1925 defw expr_buf ;0b1a 1c 0b . .
1926
1927 expr_buf:
1928 db 'DDT/Z',TAB
1929 db '[8101] 001',CR,LF,'$'
1930
1931 ds EXPR_BUF_SIZE - ($ - expr_buf)
1932 expr_bufe:
1933
1934 msg_Y:
1935 dc 'Yn' ;0b9c 59 ee Y n.
1936 reg_Y:
1937 rept YREG_CNT
1938 dw 0
1939 endm
1940
1941 cmd_Y:
1942 call get.decdigit ;0bb2 cd 1d 06 . . .
1943 jr c,l0bc3h ;0bb5 38 0c 8 .
1944 inc de ;0bb7 13 .
1945 push af ;0bb8 f5 .
1946 call assert_eol ;0bb9 cd d6 02 . . .
1947 pop af ;0bbc f1 .
1948 call sub_0bdch ;0bbd cd dc 0b . . .
1949 jp l0c15h ;0bc0 c3 15 0c . . .
1950 l0bc3h:
1951 call assert_eol ;0bc3 cd d6 02 . . .
1952 xor a ;0bc6 af .
1953 l0bc7h:
1954 push af ;0bc7 f5 .
1955 call sub_0bdch ;0bc8 cd dc 0b . . .
1956 call outbl4 ;0bcb cd 99 02 . . .
1957 pop af ;0bce f1 .
1958 inc a ;0bcf 3c <
1959 bit 0,a ;0bd0 cb 47 . G
1960 push af ;0bd2 f5 .
1961 call z,crlf ;0bd3 cc a3 02 . . .
1962 pop af ;0bd6 f1 .
1963 cp YREG_CNT ;0bd7 fe 0a . .
1964 jr c,l0bc7h ;0bd9 38 ec 8 .
1965 ret ;0bdb c9 .
1966
1967 sub_0bdch:
1968 ld c,a ;0bdc 4f O
1969 ld b,0 ;0bdd 06 00 . .
1970 add a,'0'+080h ;0bdf c6 b0 . .
1971 ld de,msg_Y+1 ;0be1 11 9d 0b . . .
1972 ld (de),a ;0be4 12 .
1973 dec de ;0be5 1b .
1974 ld hl,reg_Y ;0be6 21 9e 0b ! . .
1975 add hl,bc ;0be9 09 .
1976 add hl,bc ;0bea 09 .
1977 ex de,hl ;0beb eb .
1978 ld c,003h ;0bec 0e 03 . .
1979 jp l0c33h ;0bee c3 33 0c . 3 .
1980
1981 cmd_X:
1982 call skipbl ;0bf1 cd bf 02 . . .
1983 call sub_0caeh ;0bf4 cd ae 0c . . .
1984 jp nc,prnt_cpustat0 ;0bf7 d2 2d 06 . - .
1985 call assert_eol ;0bfa cd d6 02 . . .
1986 ld a,b ;0bfd 78 x
1987 cp 01eh ;0bfe fe 1e . .
1988 jr z,l0c5fh ;0c00 28 5d ( ]
1989 cp 01fh ;0c02 fe 1f . .
1990 jr z,l0c4fh ;0c04 28 49 ( I
1991 cp 01dh ;0c06 fe 1d . .
1992 jp z,ERROR ;0c08 ca 07 01 . . .
1993 ex de,hl ;0c0b eb .
1994 ld hl,b_0cc3_start ;0c0c 21 c3 0c ! . .
1995 call sub_033dh ;0c0f cd 3d 03 . = .
1996 l0c12h:
1997 call l0c33h ;0c12 cd 33 0c . 3 .
1998 l0c15h:
1999 call outbl ;0c15 cd 9f 02 . . .
2000 push de ;0c18 d5 .
2001 push bc ;0c19 c5 .
2002 call get_line ;0c1a cd 4e 01 . N .
2003 call skipbl ;0c1d cd bf 02 . . .
2004 jr z,l0c30h ;0c20 28 0e ( .
2005 call sub_0363h ;0c22 cd 63 03 . c .
2006 ld b,h ;0c25 44 D
2007 ld c,l ;0c26 4d M
2008 pop af ;0c27 f1 .
2009 pop hl ;0c28 e1 .
2010 ld (hl),c ;0c29 71 q
2011 bit 0,a ;0c2a cb 47 . G
2012 ret z ;0c2c c8 .
2013 inc hl ;0c2d 23 #
2014 ld (hl),b ;0c2e 70 p
2015 ret ;0c2f c9 .
2016 l0c30h:
2017 pop af ;0c30 f1 .
2018 pop hl ;0c31 e1 .
2019 ret ;0c32 c9 .
2020 l0c33h:
2021 ld b,c ;0c33 41 A
2022 call pstr ;0c34 cd 88 02 . . .
2023 ld a,'=' ;0c37 3e 3d > =
2024 call outchar ;0c39 cd 5d 02 . ] .
2025 ld a,(de) ;0c3c 1a .
2026 bit 0,b ;0c3d cb 40 . @
2027 jp z,out_hex ;0c3f ca 18 02 . . .
2028 ld l,a ;0c42 6f o
2029 inc de ;0c43 13 .
2030 ld a,(de) ;0c44 1a .
2031 dec de ;0c45 1b .
2032 ld h,a ;0c46 67 g
2033 bit 1,b ;0c47 cb 48 . H
2034 jp z,out_hl ;0c49 ca 13 02 . . .
2035 jp out.hl.@ ;0c4c c3 a4 01 . . .
2036
2037 l0c4fh:
2038 call prnt_f ;0c4f cd 6e 06 . n .
2039 ld a,0f3h ;0c52 3e f3 > .
2040 ld (reg.iff),a ;0c54 32 5e 00 2 ^ .
2041 scf ;0c57 37 7
2042 call sub_0c6ah ;0c58 cd 6a 0c . j .
2043 ld (reg.f),a ;0c5b 32 54 00 2 T .
2044 ret ;0c5e c9 .
2045 l0c5fh:
2046 call prnt_f2 ;0c5f cd 81 06 . . .
2047 and a ;0c62 a7 .
2048 call sub_0c6ah ;0c63 cd 6a 0c . j .
2049 ld (reg.f2),a ;0c66 32 4c 00 2 L .
2050 ret ;0c69 c9 .
2051 sub_0c6ah:
2052 ex af,af' ;0c6a 08 .
2053 ld b,000h ;0c6b 06 00 . .
2054 call outbl ;0c6d cd 9f 02 . . .
2055 call assert_eol ;0c70 cd d6 02 . . .
2056 call get_line ;0c73 cd 4e 01 . N .
2057 l0c76h:
2058 call skipbl ;0c76 cd bf 02 . . .
2059 ld a,b ;0c79 78 x
2060 ret z ;0c7a c8 .
2061 push bc ;0c7b c5 .
2062 ld hl,b_0ca4_start ;0c7c 21 a4 0c ! . .
2063 call lookupch ;0c7f cd f3 02 . . .
2064 jp nc,ERROR ;0c82 d2 07 01 . . .
2065 ld a,b ;0c85 78 x
2066 cp 008h ;0c86 fe 08 . .
2067 jr z,l0c97h ;0c88 28 0d ( .
2068 pop bc ;0c8a c1 .
2069 rlca ;0c8b 07 .
2070 rlca ;0c8c 07 .
2071 rlca ;0c8d 07 .
2072 add a,0c0h ;0c8e c6 c0 . .
2073 ld (l0c94h),a ;0c90 32 94 0c 2 . .
2074 defb 0cbh ;0c93 cb .
2075 l0c94h:
2076 defb 0c0h ;0c94 c0 .
2077 jr l0c76h ;0c95 18 df . .
2078 l0c97h:
2079 ex af,af' ;0c97 08 .
2080 jp nc,ERROR ;0c98 d2 07 01 . . .
2081 ex af,af' ;0c9b 08 .
2082 ld a,0fbh ;0c9c 3e fb > .
2083 ld (reg.iff),a ;0c9e 32 5e 00 2 ^ .
2084 pop bc ;0ca1 c1 .
2085 jr l0c76h ;0ca2 18 d2 . .
2086
2087 b_0ca4_start:
2088 db 'CNV H ZSE',0
2089
2090 sub_0caeh:
2091 call sub_0303h ;0cae cd 03 03 . . .
2092 ret nc ;0cb1 d0 .
2093 ld a,b ;0cb2 78 x
2094 add a,b ;0cb3 80 .
2095 add a,b ;0cb4 80 .
2096 ld hl,b_0cfa_start ;0cb5 21 fa 0c ! . .
2097 call add_hl_a ;0cb8 cd b9 02 . . .
2098 ld c,(hl) ;0cbb 4e N
2099 inc hl ;0cbc 23 #
2100 ld a,(hl) ;0cbd 7e ~
2101 inc hl ;0cbe 23 #
2102 ld h,(hl) ;0cbf 66 f
2103 ld l,a ;0cc0 6f o
2104 scf ;0cc1 37 7
2105 ret ;0cc2 c9 .
2106
2107 b_0cc3_start:
2108 DC 'BC'''
2109 DC 'DE'''
2110 DC 'HL'''
2111 DC 'BC'
2112 DC 'DE'
2113 DC 'HL'
2114 DC 'A'''
2115 DC 'B'''
2116 DC 'C'''
2117 DC 'D'''
2118 DC 'E'''
2119 DC 'H'''
2120 DC 'L'''
2121 DC 'A'
2122 DC 'B'
2123 DC 'C'
2124 DC 'D'
2125 DC 'E'
2126 DC 'H'
2127 DC 'L'
2128 DC 'IX'
2129 DC 'IY'
2130 DC 'SP'
2131 DC 'PC'
2132 DC 'X'
2133 DC 'Y'
2134 DC 'S'
2135 DC 'P'
2136 DC 'I'
2137 DC 'IP'
2138 DC 'F'''
2139 DC 'F'
2140 DB 0
2141
2142 b_0cfa_start:
2143 defb 003h ;0cfa 03 .
2144 defw reg.c2 ;0cfb 4a 00 J .
2145 defb 003h ;0cfd 03 .
2146 defw reg.e2 ;0cfe 48 00 H .
2147 defb 003h ;0d00 03 .
2148 defw reg.l2 ;0d01 46 00 F .
2149 defb 003h ;0d03 03 .
2150 defw reg.c ;0d04 56 00 V .
2151 defb 003h ;0d06 03 .
2152 defw reg.e ;0d07 58 00 X .
2153 defb 003h ;0d09 03 .
2154 defw reg.l ;0d0a 5a 00 Z .
2155 defb 000h ;0d0c 00 .
2156 defw reg.a2 ;0d0d 4d 00 M .
2157 defb 000h ;0d0f 00 .
2158 defw reg.b2 ;0d10 4b 00 K .
2159 defb 000h ;0d12 00 .
2160 defw reg.c2 ;0d13 4a 00 J .
2161 defb 000h ;0d15 00 .
2162 defw reg.d2 ;0d16 49 00 I .
2163 defb 000h ;0d18 00 .
2164 defw reg.e2 ;0d19 48 00 H .
2165 defb 000h ;0d1b 00 .
2166 defw reg.h2 ;0d1c 47 00 G .
2167 defb 000h ;0d1e 00 .
2168 defw reg.l2 ;0d1f 46 00 F .
2169 defb 000h ;0d21 00 .
2170 defw reg.a ;0d22 55 00 U .
2171 defb 000h ;0d24 00 .
2172 defw reg.b ;0d25 57 00 W .
2173 defb 000h ;0d27 00 .
2174 defw reg.c ;0d28 56 00 V .
2175 defb 000h ;0d2a 00 .
2176 defw reg.d ;0d2b 59 00 Y .
2177 defb 000h ;0d2d 00 .
2178 defw reg.e ;0d2e 58 00 X .
2179 defb 000h ;0d30 00 .
2180 defw reg.h ;0d31 5b 00 [ .
2181 defb 000h ;0d33 00 .
2182 defw reg.l ;0d34 5a 00 Z .
2183 defb 003h ;0d36 03 .
2184 defw reg.ix ;0d37 52 00 R .
2185 defb 003h ;0d39 03 .
2186 defw reg.iy ;0d3a 50 00 P .
2187 defb 003h ;0d3c 03 .
2188 defw reg_sp ;0d3d 5c 00 \ .
2189 defb 003h ;0d3f 03 .
2190 defw REG.PC ;0d40 60 00 ` .
2191 defb 003h ;0d42 03 .
2192 defw reg.ix ;0d43 52 00 R .
2193 defb 003h ;0d45 03 .
2194 defw reg.iy ;0d46 50 00 P .
2195 defb 003h ;0d48 03 .
2196 defw reg_sp ;0d49 5c 00 \ .
2197 defb 003h ;0d4b 03 .
2198 defw REG.PC ;0d4c 60 00 ` .
2199 defb 000h ;0d4e 00 .
2200 defw reg.i ;0d4f 4f 00 O .
2201 defb 003h ;0d51 03 .
2202 defw l004eh ;0d52 4e 00 N .
2203 defb 000h ;0d54 00 .
2204 defw reg.f2 ;0d55 4c 00 L .
2205 defb 000h ;0d57 00 .
2206 defw reg.f ;0d58 54 00 T .
2207
2208 cmd_S:
2209 ld hl,(last_S) ;0d5a 2a 90 0d * . .
2210 call get_lastarg_def ;0d5d cd 69 03 . i .
2211 l0d60h:
2212 ld (last_S),hl ;0d60 22 90 0d " . .
2213 call out.hl.@ ;0d63 cd a4 01 . . .
2214 call outbl ;0d66 cd 9f 02 . . .
2215 ld a,(hl) ;0d69 7e ~
2216 call out_hex ;0d6a cd 18 02 . . .
2217 call outbl2 ;0d6d cd 9c 02 . . .
2218 call get_line ;0d70 cd 4e 01 . N .
2219 call skipbl ;0d73 cd bf 02 . . .
2220 inc hl ;0d76 23 #
2221 jr z,l0d60h ;0d77 28 e7 ( .
2222 dec hl ;0d79 2b +
2223 inc de ;0d7a 13 .
2224 cp '.' ;0d7b fe 2e . .
2225 jp z,assert_eol ;0d7d ca d6 02 . . .
2226 cp '-' ;0d80 fe 2d . -
2227 jr nz,l0d8ah ;0d82 20 06 .
2228 ld a,(de) ;0d84 1a .
2229 or a ;0d85 b7 .
2230 dec hl ;0d86 2b +
2231 jr z,l0d60h ;0d87 28 d7 ( .
2232 inc hl ;0d89 23 #
2233 l0d8ah:
2234 dec de ;0d8a 1b .
2235 call sub_0ef8h ;0d8b cd f8 0e . . .
2236 jr l0d60h ;0d8e 18 d0 . .
2237
2238 last_S:
2239 defw TPA ;0d90 00 01 . .
2240 cmd_@:
2241 call assert_eol ;0d92 cd d6 02 . . .
2242 ld hl,msg_offset ;0d95 21 a0 0d ! . .
2243 ld de,offs.@ ;0d98 11 64 00 . d .
2244 ld c,001h ;0d9b 0e 01 . .
2245 jp l0c12h ;0d9d c3 12 0c . . .
2246
2247 msg_offset:
2248 dc '@' ;0da0 c0 .
2249
2250 last_I:
2251 defw 0 ;0da1 00 00 . .
2252 cmd_I:
2253 ld hl,cmd_I ;0da3 21 a3 0d ! . .
2254 ld (cmd_rpt),hl ;0da6 22 68 00 " h .
2255 ld hl,(last_I) ;0da9 2a a1 0d * . .
2256 call get_lastarg_def ;0dac cd 69 03 . i .
2257 ld (last_I),hl ;0daf 22 a1 0d " . .
2258 ld b,h ;0db2 44 D
2259 ld c,l ;0db3 4d M
2260 in a,(c) ;0db4 ed 78 . x
2261 push af ;0db6 f5 .
2262 call out_hex ;0db7 cd 18 02 . . .
2263 call outbl4 ;0dba cd 99 02 . . .
2264 pop af ;0dbd f1 .
2265 call out.bin.b ;0dbe cd c7 01 . . .
2266 jp crlf ;0dc1 c3 a3 02 . . .
2267
2268 last_O_addr:
2269 dw 0 ;0dc4 00 .
2270 last_O_val:
2271 db 0 ;0dc6 00 .
2272 cmd_O:
2273 ld hl,cmd_O ;0dc7 21 c7 0d ! . .
2274 ld (cmd_rpt),hl ;0dca 22 68 00 " h .
2275 ld hl,(last_O_val) ;0dcd 2a c6 0d * . .
2276 call get_arg_def ;0dd0 cd 6e 03 . n .
2277 ld a,l ;0dd3 7d }
2278 ld (last_O_val),a ;0dd4 32 c6 0d 2 . .
2279 push af ;0dd7 f5 .
2280 call next_arg ;0dd8 cd ca 02 . . .
2281 ld hl,(last_O_addr) ;0ddb 2a c4 0d * . .
2282 call get_lastarg_def ;0dde cd 69 03 . i .
2283 ld (last_O_addr),hl ;0de1 22 c4 0d " . .
2284 ld b,h ;0de4 44 D
2285 ld c,l ;0de5 4d M
2286 pop af ;0de6 f1 .
2287 out (c),a ;0de7 ed 79 . y
2288 ret ;0de9 c9 .
2289
2290 cmd_V:
2291 call sub_034eh ;0dea cd 4e 03 . N .
2292 l0dedh:
2293 push bc ;0ded c5 .
2294 ld a,(de) ;0dee 1a .
2295 ld b,(hl) ;0def 46 F
2296 cp b ;0df0 b8 .
2297 jr z,l0e10h ;0df1 28 1d ( .
2298 ld c,a ;0df3 4f O
2299 call out.hl.@ ;0df4 cd a4 01 . . .
2300 call outbl ;0df7 cd 9f 02 . . .
2301 ld a,b ;0dfa 78 x
2302 call out_hex ;0dfb cd 18 02 . . .
2303 call outbl2 ;0dfe cd 9c 02 . . .
2304 ld a,c ;0e01 79 y
2305 call out_hex ;0e02 cd 18 02 . . .
2306 call outbl ;0e05 cd 9f 02 . . .
2307 ex de,hl ;0e08 eb .
2308 call out.hl.@ ;0e09 cd a4 01 . . .
2309 ex de,hl ;0e0c eb .
2310 call crlf ;0e0d cd a3 02 . . .
2311 l0e10h:
2312 pop bc ;0e10 c1 .
2313 inc hl ;0e11 23 #
2314 inc de ;0e12 13 .
2315 dec bc ;0e13 0b .
2316 ld a,b ;0e14 78 x
2317 or c ;0e15 b1 .
2318 jr nz,l0dedh ;0e16 20 d5 .
2319 ret ;0e18 c9 .
2320
2321 cmd_M:
2322 ld a,(de) ;0e19 1a .
2323 cp 'V' ;0e1a fe 56 . V
2324 jr nz,l0e1fh ;0e1c 20 01 .
2325 inc de ;0e1e 13 .
2326 l0e1fh:
2327 push af ;0e1f f5 .
2328 call sub_034eh ;0e20 cd 4e 03 . N .
2329 push hl ;0e23 e5 .
2330 push de ;0e24 d5 .
2331 push bc ;0e25 c5 .
2332 call cp_hl_de ;0e26 cd ee 02 . . .
2333 jr nc,$+11 ;0e29 30 09 0 .
2334 add hl,bc ;0e2b 09 .
2335 ex de,hl ;0e2c eb .
2336 add hl,bc ;0e2d 09 .
2337 ex de,hl ;0e2e eb .
2338 dec hl ;0e2f 2b +
2339 dec de ;0e30 1b .
2340 lddr ;0e31 ed b8 . .
2341 ld bc,0b0edh ;0e33 01 ed b0 . . .
2342 pop bc ;0e36 c1 .
2343 pop de ;0e37 d1 .
2344 pop hl ;0e38 e1 .
2345 pop af ;0e39 f1 .
2346 jr z,l0dedh ;0e3a 28 b1 ( .
2347 ret ;0e3c c9 .
2348
2349 cmd_H:
2350 call expr ;0e3d cd be 03 . . .
2351 jp c,prnt_max_high0 ;0e40 da 6f 11 . o .
2352 call next_arg ;0e43 cd ca 02 . . .
2353 push hl ;0e46 e5 .
2354 call expr ;0e47 cd be 03 . . .
2355 push af ;0e4a f5 .
2356 call assert_eol ;0e4b cd d6 02 . . .
2357 pop af ;0e4e f1 .
2358 ex de,hl ;0e4f eb .
2359 pop hl ;0e50 e1 .
2360 jr c,l0e5eh ;0e51 38 0b 8 .
2361 push hl ;0e53 e5 .
2362 push de ;0e54 d5 .
2363 add hl,de ;0e55 19 .
2364 call l0e5eh ;0e56 cd 5e 0e . ^ .
2365 pop de ;0e59 d1 .
2366 pop hl ;0e5a e1 .
2367 and a ;0e5b a7 .
2368 sbc hl,de ;0e5c ed 52 . R
2369 l0e5eh:
2370 call out_hl ;0e5e cd 13 02 . . .
2371 call outbl2 ;0e61 cd 9c 02 . . .
2372 call out_hl_neg ;0e64 cd 0a 02 . . .
2373 call outbl4 ;0e67 cd 99 02 . . .
2374 call out.hl.dec ;0e6a cd e7 01 . . .
2375 call outbl2 ;0e6d cd 9c 02 . . .
2376 call out_hl_dec_neg ;0e70 cd e2 01 . . .
2377 call outbl4 ;0e73 cd 99 02 . . .
2378 call out.bin.w ;0e76 cd c2 01 . . .
2379 call outbl2 ;0e79 cd 9c 02 . . .
2380 ld a,l ;0e7c 7d }
2381 call out.ascii ;0e7d cd 34 02 . 4 .
2382 jp crlf ;0e80 c3 a3 02 . . .
2383
2384 cmd_Q_jopt:
2385 db -1 ;0e83 ff .
2386
2387 cmd_Q:
2388 ld a,(de) ;0e84 1a .
2389 sub 'J' ;0e85 d6 4a . J
2390 ld (cmd_Q_jopt),a ;0e87 32 83 0e 2 . .
2391 jr nz,l0e8dh ;0e8a 20 01 .
2392 inc de ;0e8c 13 .
2393 l0e8dh:
2394 call get_arg_range ;0e8d cd 7d 03 . } .
2395 push bc ;0e90 c5 .
2396 push hl ;0e91 e5 .
2397 call sub_0ee6h ;0e92 cd e6 0e . . .
2398 pop hl ;0e95 e1 .
2399 l0e96h:
2400 call sub_0ed7h ;0e96 cd d7 0e . . .
2401 jr nz,l0eb0h ;0e99 20 15 .
2402 push bc ;0e9b c5 .
2403 push hl ;0e9c e5 .
2404 ld a,(cmd_Q_jopt) ;0e9d 3a 83 0e : . .
2405 or a ;0ea0 b7 .
2406 jr nz,l0ea7h ;0ea1 20 04 .
2407 ld bc,-8 ;0ea3 01 f8 ff . . .
2408 add hl,bc ;0ea6 09 .
2409 l0ea7h:
2410 ld bc,16 ;0ea7 01 10 00 . . .
2411 and a ;0eaa a7 .
2412 call sub_0f58h ;0eab cd 58 0f . X .
2413 pop hl ;0eae e1 .
2414 pop bc ;0eaf c1 .
2415 l0eb0h:
2416 inc hl ;0eb0 23 #
2417 ex (sp),hl ;0eb1 e3 .
2418 dec hl ;0eb2 2b +
2419 ld a,h ;0eb3 7c |
2420 or l ;0eb4 b5 .
2421 ex (sp),hl ;0eb5 e3 .
2422 jr nz,l0e96h ;0eb6 20 de .
2423 pop bc ;0eb8 c1 .
2424 ret ;0eb9 c9 .
2425
2426 cmd_Z:
2427 call get_arg_range ;0eba cd 7d 03 . } .
2428 push bc ;0ebd c5 .
2429 push hl ;0ebe e5 .
2430 call sub_0ee6h ;0ebf cd e6 0e . . .
2431 ld a,b ;0ec2 78 x
2432 pop hl ;0ec3 e1 .
2433 pop bc ;0ec4 c1 .
2434 push hl ;0ec5 e5 .
2435 ex de,hl ;0ec6 eb .
2436 l0ec7h:
2437 ldi ;0ec7 ed a0 . .
2438 jp po,l0ed3h ;0ec9 e2 d3 0e . . .
2439 dec a ;0ecc 3d =
2440 jr nz,l0ec7h ;0ecd 20 f8 .
2441 pop hl ;0ecf e1 .
2442 ldir ;0ed0 ed b0 . .
2443 ret ;0ed2 c9 .
2444 l0ed3h:
2445 pop hl ;0ed3 e1 .
2446 ret ;0ed4 c9 .
2447
2448 last_D:
2449 dw TPA
2450
2451 sub_0ed7h:
2452 push hl ;0ed7 e5 d5 . .
2453 push de
2454 push bc ;0ed9 c5 .
2455 l0edah:
2456 ld a,(de) ;0eda 1a .
2457 cp (hl) ;0edb be .
2458 jr nz,l0ee2h ;0edc 20 04 .
2459 inc de ;0ede 13 .
2460 inc hl ;0edf 23 #
2461 djnz l0edah ;0ee0 10 f8 . .
2462 l0ee2h:
2463 pop bc ;0ee2 c1 .
2464 pop de ;0ee3 d1 .
2465 pop hl ;0ee4 e1 .
2466 ret ;0ee5 c9 .
2467
2468 sub_0ee6h:
2469 ld hl,conbuf+1 ;0ee6 21 6b 00 ! k .
2470 call sub_0ef7h ;0ee9 cd f7 0e . . .
2471 ld de,conbuf+1 ;0eec 11 6b 00 . k .
2472 and a ;0eef a7 .
2473 sbc hl,de ;0ef0 ed 52 . R
2474 ld b,l ;0ef2 45 E
2475 ret nz ;0ef3 c0 .
2476 jp ERROR ;0ef4 c3 07 01 . . .
2477
2478 sub_0ef7h:
2479 db 0e6h ;0ef7 e6 and 037h (clear carry)
2480 sub_0ef8h:
2481 scf ;0ef8 37 . 7
2482 l0ef9h:
2483 push af ;0ef9 f5 .
2484 call next_arg ;0efa cd ca 02 . . .
2485 cp 'W' ;0efd fe 57 . W
2486 jr nz,l0f0eh ;0eff 20 0d .
2487 inc de ;0f01 13 .
2488 push hl ;0f02 e5 .
2489 call sub_035dh ;0f03 cd 5d 03 . ] .
2490 ex de,hl ;0f06 eb .
2491 ex (sp),hl ;0f07 e3 .
2492 ld (hl),e ;0f08 73 s
2493 inc hl ;0f09 23 #
2494 ld a,d ;0f0a 7a z
2495 pop de ;0f0b d1 .
2496 jr l0f1ah ;0f0c 18 0c . .
2497 l0f0eh:
2498 cp '''' ;0f0e fe 27 . '
2499 jr z,l0f1eh ;0f10 28 0c ( .
2500 push hl ;0f12 e5 .
2501 call expr ;0f13 cd be 03 . . .
2502 ld a,l ;0f16 7d }
2503 pop hl ;0f17 e1 .
2504 jr c,l0f42h ;0f18 38 28 8 (
2505 l0f1ah:
2506 ld (hl),a ;0f1a 77 w
2507 inc hl ;0f1b 23 #
2508 jr l0f3ah ;0f1c 18 1c . .
2509 l0f1eh:
2510 inc de ;0f1e 13 .
2511 ld a,(de) ;0f1f 1a .
2512 cp '''' ;0f20 fe 27 . '
2513 jr z,l0f2bh ;0f22 28 07 ( .
2514 or a ;0f24 b7 .
2515 jr z,l0f42h ;0f25 28 1b ( .
2516 l0f27h:
2517 ld (hl),a ;0f27 77 w
2518 inc hl ;0f28 23 #
2519 jr l0f1eh ;0f29 18 f3 . .
2520 l0f2bh:
2521 inc de ;0f2b 13 .
2522 ld a,(de) ;0f2c 1a .
2523 cp '''' ;0f2d fe 27 . '
2524 jr z,l0f27h ;0f2f 28 f6 ( .
2525 cp '.' ;0f31 fe 2e . .
2526 jr nz,l0f3ah ;0f33 20 05 .
2527 inc de ;0f35 13 .
2528 dec hl ;0f36 2b +
2529 set 7,(hl) ;0f37 cb fe . .
2530 inc hl ;0f39 23 #
2531 l0f3ah:
2532 pop af ;0f3a f1 .
2533 jr nc,l0ef9h ;0f3b 30 bc 0 .
2534 ld (last_S),hl ;0f3d 22 90 0d " . .
2535 jr l0ef9h ;0f40 18 b7 . .
2536 l0f42h:
2537 pop af ;0f42 f1 .
2538 ret nc ;0f43 d0 .
2539 ld (last_S),hl ;0f44 22 90 0d " . .
2540 ret ;0f47 c9 .
2541
2542 cmd_D:
2543 ld hl,cmd_D ;0f48 21 48 0f ! H .
2544 ld (cmd_rpt),hl ;0f4b 22 68 00 " h .
2545 ld hl,(last_D) ;0f4e 2a d5 0e * . .
2546 ld bc,128 ;0f51 01 80 00 . . .
2547 call sub_0377h ;0f54 cd 77 03 . w .
2548 scf ;0f57 37 7
2549 sub_0f58h:
2550 push bc ;0f58 c5 .
2551 push de ;0f59 d5 .
2552 push hl ;0f5a e5 .
2553 ex af,af' ;0f5b 08 .
2554 l0f5ch:
2555 call out.hl.@ ;0f5c cd a4 01 . . .
2556 call z,outbl2 ;0f5f cc 9c 02 . . .
2557 call outbl ;0f62 cd 9f 02 . . .
2558 ld de,0 ;0f65 11 00 00 . . .
2559 l0f68h:
2560 ld a,(hl) ;0f68 7e ~
2561 inc hl ;0f69 23 #
2562 call out_hex ;0f6a cd 18 02 . . .
2563 call outbl ;0f6d cd 9f 02 . . .
2564 dec bc ;0f70 0b .
2565 inc e ;0f71 1c .
2566 ld a,e ;0f72 7b {
2567 cp 010h ;0f73 fe 10 . .
2568 jr z,l0f80h ;0f75 28 09 ( .
2569 and 003h ;0f77 e6 03 . .
2570 call z,outbl ;0f79 cc 9f 02 . . .
2571 ld a,b ;0f7c 78 x
2572 or c ;0f7d b1 .
2573 jr nz,l0f68h ;0f7e 20 e8 .
2574 l0f80h:
2575 call outbl ;0f80 cd 9f 02 . . .
2576 and a ;0f83 a7 .
2577 sbc hl,de ;0f84 ed 52 . R
2578 l0f86h:
2579 ld a,(hl) ;0f86 7e ~
2580 call sub_0fa3h ;0f87 cd a3 0f . . .
2581 call outchar ;0f8a cd 5d 02 . ] .
2582 inc hl ;0f8d 23 #
2583 dec e ;0f8e 1d .
2584 jr nz,l0f86h ;0f8f 20 f5 .
2585 ex af,af' ;0f91 08 .
2586 jr nc,l0f97h ;0f92 30 03 0 .
2587 ld (last_D),hl ;0f94 22 d5 0e " . .
2588 l0f97h:
2589 ex af,af' ;0f97 08 .
2590 call crlf ;0f98 cd a3 02 . . .
2591 ld a,b ;0f9b 78 x
2592 or c ;0f9c b1 .
2593 jr nz,l0f5ch ;0f9d 20 bd .
2594 pop hl ;0f9f e1 .
2595 pop de ;0fa0 d1 .
2596 pop bc ;0fa1 c1 .
2597 ret ;0fa2 c9 .
2598
2599 sub_0fa3h:
2600 and 07fh ;0fa3 e6 7f . \7f
2601 cp 07fh ;0fa5 fe 7f . \7f
2602 jr z,l0fach ;0fa7 28 03 ( .
2603 cp ' ' ;0fa9 fe 20 .
2604 ret nc ;0fab d0 .
2605 l0fach:
2606 ld a,'.' ;0fac 3e 2e > .
2607 ret ;0fae c9 .
2608
2609 cmd_F:
2610 push de ;0faf d5 .
2611 ld hl,DMA_BUF+1 ;0fb0 21 81 00 ! . .
2612 ld (hl),' ' ;0fb3 36 20 6
2613 inc hl ;0fb5 23 #
2614 l0fb6h:
2615 ld a,(de) ;0fb6 1a .
2616 ld (hl),a ;0fb7 77 w
2617 inc hl ;0fb8 23 #
2618 inc de ;0fb9 13 .
2619 and a ;0fba a7 .
2620 jr nz,l0fb6h ;0fbb 20 f9 .
2621 ld a,l ;0fbd 7d }
2622 sub DMA_BUF+2 ;0fbe d6 82 . .
2623 ld (DMA_BUF),a ;0fc0 32 80 00 2 . .
2624 pop hl ;0fc3 e1 .
2625 ld de,FCB ;0fc4 11 5c 00 . \ .
2626 call parse_filename ;0fc7 cd cd 0f . . .
2627 ld de,FCB2 ;0fca 11 6c 00 . l .
2628
2629 parse_filename:
2630 call sub_102ch ;0fcd cd 2c 10 . , .
2631 push de ;0fd0 d5 .
2632 push bc ;0fd1 c5 .
2633 ld b,(hl) ;0fd2 46 F
2634 inc hl ;0fd3 23 #
2635 ld a,(hl) ;0fd4 7e ~
2636 cp ':' ;0fd5 fe 3a . :
2637 jr nz,l0fe1h ;0fd7 20 08 .
2638 inc hl ;0fd9 23 #
2639 ld a,b ;0fda 78 x
2640 sub 040h ;0fdb d6 40 . @
2641 and 01fh ;0fdd e6 1f . .
2642 jr l0fe3h ;0fdf 18 02 . .
2643 l0fe1h:
2644 dec hl ;0fe1 2b +
2645 xor a ;0fe2 af .
2646 l0fe3h:
2647 ld (de),a ;0fe3 12 .
2648 inc de ;0fe4 13 .
2649 ld b,8 ;0fe5 06 08 . .
2650 call sub_0ff2h ;0fe7 cd f2 0f . . .
2651 ld b,3 ;0fea 06 03 . .
2652 call sub_0ff2h ;0fec cd f2 0f . . .
2653 pop bc ;0fef c1 .
2654 pop de ;0ff0 d1 .
2655 ret ;0ff1 c9 .
2656
2657 sub_0ff2h:
2658 call sub_1012h ;0ff2 cd 12 10 . . .
2659 jr z,l0ffeh ;0ff5 28 07 ( .
2660 inc hl ;0ff7 23 #
2661 ld (de),a ;0ff8 12 .
2662 inc de ;0ff9 13 .
2663 djnz sub_0ff2h ;0ffa 10 f6 . .
2664 jr l1003h ;0ffc 18 05 . .
2665 l0ffeh:
2666 ld a,c ;0ffe 79 y
2667 l0fffh:
2668 ld (de),a ;0fff 12 .
2669 inc de ;1000 13 .
2670 djnz l0fffh ;1001 10 fc . .
2671 l1003h:
2672 call sub_1012h ;1003 cd 12 10 . . .
2673 inc hl ;1006 23 #
2674 jr nz,l1003h ;1007 20 fa .
2675 cp '*' ;1009 fe 2a . *
2676 jr z,l1003h ;100b 28 f6 ( .
2677 cp '.' ;100d fe 2e . .
2678 ret z ;100f c8 .
2679 dec hl ;1010 2b +
2680 ret ;1011 c9 .
2681
2682 sub_1012h:
2683 ld a,(hl) ;1012 7e ~
2684 ld c,' ' ;1013 0e 20 .
2685 and 01fh ;1015 e6 1f . .
2686 ret z ;1017 c8 .
2687 ld a,(hl) ;1018 7e ~
2688 cp ' ' ;1019 fe 20 .
2689 ret z ;101b c8 .
2690 call sub_1043h ;101c cd 43 10 . C .
2691 ret z ;101f c8 .
2692 cp '/' ;1020 fe 2f . /
2693 ret z ;1022 c8 .
2694 cp '.' ;1023 fe 2e . .
2695 ret z ;1025 c8 .
2696 ld c,'?' ;1026 0e 3f . ?
2697 cp '*' ;1028 fe 2a . *
2698 ret ;102a c9 .
2699
2700 l102bh:
2701 inc hl ;102b 23 #
2702 sub_102ch:
2703 ld a,(hl) ;102c 7e ~
2704 cp '/' ;102d fe 2f . /
2705 jr z,l103bh ;102f 28 0a ( .
2706 call sub_1043h ;1031 cd 43 10 . C .
2707 jr z,l102bh ;1034 28 f5 ( .
2708 l1036h:
2709 cp ' ' ;1036 fe 20 .
2710 jr z,l102bh ;1038 28 f1 ( .
2711 ret ;103a c9 .
2712
2713 l103bh:
2714 ld a,(hl) ;103b 7e ~
2715 cp ' '+1 ;103c fe 21 . !
2716 jr c,l1036h ;103e 38 f6 8 .
2717 inc hl ;1040 23 #
2718 jr l103bh ;1041 18 f8 . .
2719
2720 sub_1043h:
2721 cp '=' ;1043 fe 3d . =
2722 ret z ;1045 c8 .
2723 cp '_' ;1046 fe 5f . _
2724 ret z ;1048 c8 .
2725 cp ',' ;1049 fe 2c . ,
2726 ret ;104b c9 .
2727
2728 fcb_clear_rc:
2729 xor a ;104c af .
2730 ld hl,FCB+12 ;104d 21 68 00 ! h .
2731 ld b,21 ;1050 06 15 . .
2732 l1052h:
2733 ld (hl),a ;1052 77 w
2734 inc hl ;1053 23 #
2735 djnz l1052h ;1054 10 fc . .
2736 ld de,DMA_BUF ;1056 11 80 00 . . .
2737 ld c,BDOS_SETDMA ;1059 0e 1a . .
2738 call ddtz_base ;105b cd 00 00 . . .
2739 ld de,FCB ;105e 11 5c 00 . \ .
2740 ret ;1061 c9 .
2741
2742 cmd_R:
2743 ld hl,0 ;1062 21 00 00 ! . .
2744 call get_lastarg_def ;1065 cd 69 03 . i .
2745 read_file:
2746 push hl ;1068 e5 .
2747 ld hl,0 ;1069 21 00 00 ! . .
2748 ld (high_load),hl ;106c 22 9c 11 " . .
2749 call fcb_clear_rc ;106f cd 4c 10 . L .
2750 ld c,BDOS_OPEN ;1072 0e 0f . .
2751 call ddtz_base ;1074 cd 00 00 . . .
2752 inc a ;1077 3c <
2753 jp z,ERROR ;1078 ca 07 01 . . .
2754 ld hl,FCB+9 ;107b 21 65 00 ! e .
2755 ld de,str_hex ;107e 11 a5 10 . . .
2756 ld b,3 ;1081 06 03 . .
2757 call strncmp ;1083 cd 67 11 . g .
2758 pop hl ;1086 e1 .
2759 jr z,read_hexfile ;1087 28 1f ( .
2760 ld de,TPA ;1089 11 00 01 . . .
2761 add hl,de ;108c 19 .
2762 push hl ;108d e5 .
2763 l108eh:
2764 call read_sector ;108e cd 21 11 . ! .
2765 pop hl ;1091 e1 .
2766 jp z,prnt_max_high ;1092 ca 72 11 . r .
2767 ld de,DMA_BUF ;1095 11 80 00 . . .
2768 ld b,080h ;1098 06 80 . .
2769 l109ah:
2770 ld a,(de) ;109a 1a .
2771 call cmdR_storebyte ;109b cd 36 11 . 6 .
2772 inc de ;109e 13 .
2773 inc hl ;109f 23 #
2774 djnz l109ah ;10a0 10 f8 . .
2775 push hl ;10a2 e5 .
2776 jr l108eh ;10a3 18 e9 . .
2777
2778 str_hex:
2779 db 'HEX' ;10a5 48 H E X
2780
2781 read_hexfile:
2782 push hl ;10a8 e5 .
2783 ld a,080h ;10a9 3e 80 > .
2784 ld (cmdR_rindex),a ;10ab 32 20 11 2 .
2785 l10aeh:
2786 call read_byte ;10ae cd 05 11 . . .
2787 jr z,rdhex_done ;10b1 28 31 ( 1
2788 cp ':' ;10b3 fe 3a . :
2789 jr nz,l10aeh ;10b5 20 f7 .
2790 ld c,0 ;10b7 0e 00 . .
2791 call read_hexchar ;10b9 cd e8 10 . . .
2792 ld b,a ;10bc 47 G
2793 call read_hexchar ;10bd cd e8 10 . . .
2794 ld h,a ;10c0 67 g
2795 call read_hexchar ;10c1 cd e8 10 . . .
2796 ld l,a ;10c4 6f o
2797 ld a,b ;10c5 78 x
2798 and a ;10c6 a7 .
2799 jr z,rdhex_done ;10c7 28 1b ( .
2800 call read_hexchar ;10c9 cd e8 10 . . .
2801 l10cch:
2802 call read_hexchar ;10cc cd e8 10 . . .
2803 pop de ;10cf d1 .
2804 push de ;10d0 d5 .
2805 push hl ;10d1 e5 .
2806 add hl,de ;10d2 19 .
2807 call cmdR_storebyte ;10d3 cd 36 11 . 6 .
2808 pop hl ;10d6 e1 .
2809 inc hl ;10d7 23 #
2810 djnz l10cch ;10d8 10 f2 . .
2811 call read_hexchar ;10da cd e8 10 . . .
2812 ld a,c ;10dd 79 y
2813 and a ;10de a7 .
2814 jp nz,ERROR ;10df c2 07 01 . . .
2815 jr l10aeh ;10e2 18 ca . .
2816 rdhex_done:
2817 pop hl ;10e4 e1 .
2818 jp prnt_max_high ;10e5 c3 72 11 . r .
2819
2820 read_hexchar:
2821 call read_hexdigit ;10e8 cd f9 10 . . .
2822 rlca ;10eb 07 .
2823 rlca ;10ec 07 .
2824 rlca ;10ed 07 .
2825 rlca ;10ee 07 .
2826 ld d,a ;10ef 57 W
2827 call read_hexdigit ;10f0 cd f9 10 . . .
2828 add a,d ;10f3 82 .
2829 ld d,a ;10f4 57 W
2830 add a,c ;10f5 81 .
2831 ld c,a ;10f6 4f O
2832 ld a,d ;10f7 7a z
2833 ret ;10f8 c9 .
2834
2835 read_hexdigit:
2836 call read_byte ;10f9 cd 05 11 . . .
2837 jr z,l1102h ;10fc 28 04 ( .
2838 call hex_digit ;10fe cd 12 06 . . .
2839 ret nc ;1101 d0 .
2840 l1102h:
2841 jp ERROR ;1102 c3 07 01 . . .
2842
2843 read_byte:
2844 ld a,(cmdR_rindex) ;1105 3a 20 11 : .
2845 cp 080h ;1108 fe 80 . .
2846 jr nz,l1111h ;110a 20 05 .
2847 call read_sector ;110c cd 21 11 . ! .
2848 ret z ;110f c8 .
2849 sub a ;1110 97 .
2850 l1111h:
2851 inc a ;1111 3c <
2852 ld (cmdR_rindex),a ;1112 32 20 11 2 .
2853 push hl ;1115 e5 .
2854 add a,07fh ;1116 c6 7f . \7f
2855 ld l,a ;1118 6f o
2856 ld h,000h ;1119 26 00 & .
2857 ld a,(hl) ;111b 7e ~
2858 pop hl ;111c e1 .
2859 cp 01ah ;111d fe 1a . .
2860 ret ;111f c9 .
2861
2862 cmdR_rindex:
2863 db 0 ;1120 00 .
2864
2865 read_sector:
2866 push hl ;1121 e5 .
2867 push de ;1122 d5 .
2868 push bc ;1123 c5 .
2869 ld de,FCB ;1124 11 5c 00 . \ .
2870 ld c,BDOS_READ ;1127 0e 14 . .
2871 call ddtz_base ;1129 cd 00 00 . . .
2872 dec a ;112c 3d =
2873 jr z,l1132h ;112d 28 03 ( .
2874 jp p,ERROR ;112f f2 07 01 . . .
2875 l1132h:
2876 pop bc ;1132 c1 .
2877 pop de ;1133 d1 .
2878 pop hl ;1134 e1 .
2879 ret ;1135 c9 .
2880
2881 cmdR_storebyte:
2882 push af ;1136 f5 .
2883 push de ;1137 d5 .
2884 ld de,TPA ;1138 11 00 01 . . .
2885 call cp_hl_de ;113b cd ee 02 . . .
2886 jp c,ERROR ;113e da 07 01 . . .
2887 ld de,(BDOS+1) ;1141 ed 5b 06 00 . [ . .
2888 call cp_hl_de ;1145 cd ee 02 . . .
2889 jp nc,ERROR ;1148 d2 07 01 . . .
2890 ld de,(high_load) ;114b ed 5b 9c 11 . [ . .
2891 call cp_hl_de ;114f cd ee 02 . . .
2892 jr c,l1157h ;1152 38 03 8 .
2893 ld (high_load),hl ;1154 22 9c 11 " . .
2894 l1157h:
2895 ld de,(max_load) ;1157 ed 5b 9e 11 . [ . .
2896 call cp_hl_de ;115b cd ee 02 . . .
2897 jr c,l1163h ;115e 38 03 8 .
2898 ld (max_load),hl ;1160 22 9e 11 " . .
2899 l1163h:
2900 pop de ;1163 d1 .
2901 pop af ;1164 f1 .
2902 ld (hl),a ;1165 77 w
2903 ret ;1166 c9 .
2904
2905 strncmp:
2906 ld a,(de) ;1167 1a .
2907 cp (hl) ;1168 be .
2908 inc de ;1169 13 .
2909 inc hl ;116a 23 #
2910 ret nz ;116b c0 .
2911 djnz strncmp ;116c 10 f9 . .
2912 ret ;116e c9 .
2913
2914 prnt_max_high0:
2915 call assert_eol ;116f cd d6 02 . . .
2916 prnt_max_high:
2917 ld hl,msg_high ;1172 21 8d 11 ! . .
2918 call pstr ;1175 cd 88 02 . . .
2919 ld hl,(high_load) ;1178 2a 9c 11 * . .
2920 call out_hl ;117b cd 13 02 . . .
2921 ld hl,msg_max ;117e 21 94 11 ! . .
2922 call pstr ;1181 cd 88 02 . . .
2923 ld hl,(max_load) ;1184 2a 9e 11 * . .
2924 call out_hl ;1187 cd 13 02 . . .
2925 jp crlf ;118a c3 a3 02 . . .
2926
2927 msg_high:
2928 DC 'High = '
2929 msg_max:
2930 DC ' Max = '
2931
2932 high_load:
2933 defw TPA ;119c 00 01 . .
2934 max_load:
2935 defw TPA ;119e 00 01 . .
2936
2937 cmd_W:
2938 call get_arg_range ;11a0 cd 7d 03 . } .
2939 call assert_eol ;11a3 cd d6 02 . . .
2940 push hl ;11a6 e5 .
2941 ld a,c ;11a7 79 y
2942 add a,07fh ;11a8 c6 7f . \7f
2943 jr nc,l11adh ;11aa 30 01 0 .
2944 inc b ;11ac 04 .
2945 l11adh:
2946 and 080h ;11ad e6 80 . .
2947 ld c,a ;11af 4f O
2948 push bc ;11b0 c5 .
2949 ld a,(FCB+1) ;11b1 3a 5d 00 : ] .
2950 cp ' ' ;11b4 fe 20 .
2951 jr z,error5 ;11b6 28 3b ( ;
2952 call fcb_clear_rc ;11b8 cd 4c 10 . L .
2953 push de ;11bb d5 .
2954 ld c,BDOS_DELETE ;11bc 0e 13 . .
2955 call ddtz_base ;11be cd 00 00 . . .
2956 pop de ;11c1 d1 .
2957 ld c,BDOS_CREATE ;11c2 0e 16 . .
2958 call ddtz_base ;11c4 cd 00 00 . . .
2959 inc a ;11c7 3c <
2960 jr z,error5 ;11c8 28 29 ( )
2961 pop bc ;11ca c1 .
2962 pop hl ;11cb e1 .
2963 l11cch:
2964 ld a,b ;11cc 78 x
2965 or c ;11cd b1 .
2966 jr z,close_file ;11ce 28 26 ( &
2967 push bc ;11d0 c5 .
2968 ld de,080h ;11d1 11 80 00 . . . DMA_BUF
2969 ld b,d ;11d4 42 B
2970 ld c,e ;11d5 4b K
2971 ldir ;11d6 ed b0 . .
2972 call write_sector ;11d8 cd e4 11 . . .
2973 ex (sp),hl ;11db e3 .
2974 ld bc,0ff80h ;11dc 01 80 ff . . .
2975 add hl,bc ;11df 09 .
2976 ex (sp),hl ;11e0 e3 .
2977 pop bc ;11e1 c1 .
2978 jr l11cch ;11e2 18 e8 . .
2979
2980 write_sector:
2981 push hl ;11e4 e5 .
2982 ld de,FCB ;11e5 11 5c 00 . \ .
2983 ld c,BDOS_WRITE ;11e8 0e 15 . .
2984 call ddtz_base ;11ea cd 00 00 . . .
2985 pop hl ;11ed e1 .
2986 and a ;11ee a7 .
2987 ret z ;11ef c8 .
2988 call close_file ;11f0 cd f6 11 . . .
2989 error5:
2990 jp ERROR ;11f3 c3 07 01 . . .
2991
2992 close_file:
2993 ld de,FCB ;11f6 11 5c 00 . \ .
2994 ld c,BDOS_CLOSE ;11f9 0e 10 . .
2995 jp ddtz_base ;11fb c3 00 00 . . .
2996
2997 cmd_A:
2998 ld hl,(last_A) ;11fe 2a 64 12 * d .
2999 call get_lastarg_def ;1201 cd 69 03 . i .
3000 push hl ;1204 e5 .
3001 pop iy ;1205 fd e1 . .
3002 ld hl,l1259h ;1207 21 59 12 ! Y .
3003 ld (CMD_ERR),hl ;120a 22 66 00 " f .
3004 ld (l1262h),sp ;120d ed 73 62 12 . s b .
3005 l1211h:
3006 push iy ;1211 fd e5 . .
3007 pop hl ;1213 e1 .
3008 ld (last_A),hl ;1214 22 64 12 " d .
3009 ld (l0062h),hl ;1217 22 62 00 " b .
3010 push hl ;121a e5 .
3011 call prnt_disas_line ;121b cd 2d 19 . - .
3012 pop iy ;121e fd e1 . .
3013 ld c,b ;1220 48 H
3014 ld de,(offs.@) ;1221 ed 5b 64 00 . [ d .
3015 ld a,d ;1225 7a z
3016 or e ;1226 b3 .
3017 ld b,011h ;1227 06 11 . .
3018 jr z,l122dh ;1229 28 02 ( .
3019 ld b,019h ;122b 06 19 . .
3020 l122dh:
3021 call outbl ;122d cd 9f 02 . . .
3022 ld a,(con_col) ;1230 3a 72 02 : r .
3023 cp b ;1233 b8 .
3024 jr c,l122dh ;1234 38 f7 8 .
3025 push bc ;1236 c5 .
3026 call get_line ;1237 cd 4e 01 . N .
3027 pop bc ;123a c1 .
3028 call skipbl ;123b cd bf 02 . . .
3029 cp '.' ;123e fe 2e . .
3030 ret z ;1240 c8 .
3031 cp '-' ;1241 fe 2d . -
3032 jr nz,l124bh ;1243 20 06 .
3033 ld iy,(cmd_A_prev) ;1245 fd 2a 66 12 . * f .
3034 jr l1211h ;1249 18 c6 . .
3035 l124bh:
3036 and a ;124b a7 .
3037 call nz,sub_1268h ;124c c4 68 12 . h .
3038 ld (cmd_A_prev),iy ;124f fd 22 66 12 . " f .
3039 ld b,0 ;1253 06 00 . .
3040 add iy,bc ;1255 fd 09 . .
3041 jr l1211h ;1257 18 b8 . .
3042 l1259h:
3043 call l0146h ;1259 cd 46 01 . F .
3044 ld sp,(l1262h) ;125c ed 7b 62 12 . { b .
3045 jr l1211h ;1260 18 af . .
3046
3047 l1262h:
3048 dw 0 ;1262 00 00 .
3049 last_A:
3050 dw TPA ;1264 00 01 .
3051 cmd_A_prev:
3052 dw TPA ;1266 00 01 . .
3053
3054 sub_1268h:
3055 call skipbl ;1268 cd bf 02 . . .
3056 ld hl,t_MNEMONICS ;126b 21 c6 1e ! . .
3057 call sub_030ah ;126e cd 0a 03 . . .
3058 jp nc,ERROR ;1271 d2 07 01 . . .
3059 call skipbl ;1274 cd bf 02 . . .
3060 push de ;1277 d5 .
3061 ld a,b ;1278 78 x
3062 add a,b ;1279 80 .
3063 add a,b ;127a 80 .
3064 ld hl,b_1289_start ;127b 21 89 12 ! . .
3065 call add_hl_a ;127e cd b9 02 . . .
3066 ld e,(hl) ;1281 5e ^
3067 inc hl ;1282 23 #
3068 ld d,(hl) ;1283 56 V
3069 inc hl ;1284 23 #
3070 ld b,(hl) ;1285 46 F
3071 ex de,hl ;1286 eb .
3072 pop de ;1287 d1 .
3073 jp (hl) ;1288 e9 .
3074
3075 b_1289_start:
3076 defw as.ADC_SBC ;ADC 1289 51 15 Q .
3077 defb 088h ; 128b 88 .
3078 defw as.ADD ;ADD 128c 71 15 q .
3079 defb 080h ; 128e 80 .
3080 defw as.AND_CP_OR_SUB_XOR ;AND 128f a8 15 . .
3081 defb 0a0h ; 1291 a0 .
3082 defw as.BITOP ;BIT 1292 09 16 . .
3083 defb 040h ; 1294 40 @
3084 defw as.CALL ;CALL 1295 2d 16 - .
3085 defb 0c4h ; 1297 c4 .
3086 defw as.opc.noarg ;CCF 1298 3b 15 ; .
3087 defb 03fh ; 129a 3f ?
3088 defw as.AND_CP_OR_SUB_XOR ;CP 129b a8 15 . .
3089 defb 0b8h ; 129d b8 .
3090 defw gen.opc.ED2 ;CPD 129e 44 15 D .
3091 defb 0a9h ; 12a0 a9 .
3092 defw gen.opc.ED2 ;CPDR 12a1 44 15 D .
3093 defb 0b9h ; 12a3 b9 .
3094 defw gen.opc.ED2 ;CPI 12a4 44 15 D .
3095 defb 0a1h ; 12a6 a1 .
3096 defw gen.opc.ED2 ;CPIR 12a7 44 15 D .
3097 defb 0b1h ; 12a9 b1 .
3098 defw as.opc.noarg ;CPL 12aa 3b 15 ; .
3099 defb 02fh ; 12ac 2f /
3100 defw as.opc.noarg ;DAA 12ad 3b 15 ; .
3101 defb 027h ; 12af 27 '
3102 defw as.DEC_INC ;DEC 12b0 98 17 . .
3103 defb 005h ; 12b2 05 .
3104 defw as.opc.noarg ;DI 12b3 3b 15 ; .
3105 defb 0f3h ; 12b5 f3 .
3106 defw as.DJNZ ;DJNZ 12b6 99 16 . .
3107 defb 010h ; 12b8 10 .
3108 defw as.opc.noarg ;EI 12b9 3b 15 ; .
3109 defb 0fbh ; 12bb fb .
3110 defw as.EX ;EX 12bc 49 17 I .
3111 defb 0e3h ; 12be e3 .
3112 defw as.opc.noarg ;EXX 12bf 3b 15 ; .
3113 defb 0d9h ; 12c1 d9 .
3114 defw as.opc.noarg ;HALT 12c2 3b 15 ; .
3115 defb 076h ; 12c4 76 v
3116 defw as.IM ;IM 12c5 b4 16 . .
3117 defb 046h ; 12c7 46 F
3118 defw as.IN ;IN 12c8 ed 16 . .
3119 defb 040h ; 12ca 40 @
3120 defw as.DEC_INC ;INC 12cb 98 17 . .
3121 defb 004h ; 12cd 04 .
3122 defw gen.opc.ED2 ;IND 12ce 44 15 D .
3123 defb 0aah ; 12d0 aa .
3124 defw gen.opc.ED2 ;INDR 12d1 44 15 D .
3125 defb 0bah ; 12d3 ba .
3126 defw gen.opc.ED2 ;INI 12d4 44 15 D .
3127 defb 0a2h ; 12d6 a2 .
3128 defw gen.opc.ED2 ;INIR 12d7 44 15 D .
3129 defb 0b2h ; 12d9 b2 .
3130 defw as.JP ;JP 12da 53 16 S .
3131 defb 0c2h ; 12dc c2 .
3132 defw as.JR ;JR 12dd a0 16 . .
3133 defb 020h ; 12df 20
3134 defw as.LD ;LD 12e0 52 13 R .
3135 defb 040h ; 12e2 40 @
3136 defw gen.opc.ED2 ;LDD 12e3 44 15 D .
3137 defb 0a8h ; 12e5 a8 .
3138 defw gen.opc.ED2 ;LDDR 12e6 44 15 D .
3139 defb 0b8h ; 12e8 b8 .
3140 defw gen.opc.ED2 ;LDI 12e9 44 15 D .
3141 defb 0a0h ; 12eb a0 .
3142 defw gen.opc.ED2 ;LDIR 12ec 44 15 D .
3143 defb 0b0h ; 12ee b0 .
3144 defw gen.opc.ED2 ;NEG 12ef 44 15 D .
3145 defb 044h ; 12f1 44 D
3146 defw as.opc.noarg ;NOP 12f2 3b 15 ; .
3147 defb 000h ; 12f4 00 .
3148 defw as.AND_CP_OR_SUB_XOR ;OR 12f5 a8 15 . .
3149 defb 0b0h ; 12f7 b0 .
3150 defw gen.opc.ED2 ;OTDR 12f8 44 15 D .
3151 defb 0bbh ; 12fa bb .
3152 defw gen.opc.ED2 ;OTIR 12fb 44 15 D .
3153 defb 0b3h ; 12fd b3 .
3154 defw as.OUT ;OUT 12fe 21 17 ! .
3155 defb 041h ; 1300 41 A
3156 defw gen.opc.ED2 ;OUTD 1301 44 15 D .
3157 defb 0abh ; 1303 ab .
3158 defw gen.opc.ED2 ;OUTI 1304 44 15 D .
3159 defb 0a3h ; 1306 a3 .
3160 defw as.POP_PUSH ;POP 1307 d9 16 . .
3161 defb 0c1h ; 1309 c1 .
3162 defw as.POP_PUSH ;PUSH 130a d9 16 . .
3163 defb 0c5h ; 130c c5 .
3164 defw as.BITOP ;RES 130d 09 16 . .
3165 defb 080h ; 130f 80 .
3166 defw as.RET ;RET 1310 45 16 E .
3167 defb 0c0h ; 1312 c0 .
3168 defw gen.opc.ED2 ;RETI 1313 44 15 D .
3169 defb 04dh ; 1315 4d M
3170 defw gen.opc.ED2 ;RETN 1316 44 15 D .
3171 defb 045h ; 1318 45 E
3172 defw as.SHIFTOP ;RL 1319 d5 15 . .
3173 defb 010h ; 131b 10 .
3174 defw as.opc.noarg ;RLA 131c 3b 15 ; .
3175 defb 017h ; 131e 17 .
3176 defw as.SHIFTOP ;RLC 131f d5 15 . .
3177 defb 000h ; 1321 00 .
3178 defw as.opc.noarg ;RLCA 1322 3b 15 ; .
3179 defb 007h ; 1324 07 .
3180 defw gen.opc.ED2 ;RLD 1325 44 15 D .
3181 defb 06fh ; 1327 6f o
3182 defw as.SHIFTOP ;RR 1328 d5 15 . .
3183 defb 018h ; 132a 18 .
3184 defw as.opc.noarg ;RRA 132b 3b 15 ; .
3185 defb 01fh ; 132d 1f .
3186 defw as.SHIFTOP ;RRC 132e d5 15 . .
3187 defb 008h ; 1330 08 .
3188 defw as.opc.noarg ;RRCA 1331 3b 15 ; .
3189 defb 00fh ; 1333 0f .
3190 defw gen.opc.ED2 ;RRD 1334 44 15 D .
3191 defb 067h ; 1336 67 g
3192 defw as.RST ;RST 1337 ca 16 . .
3193 defb 0c7h ; 1339 c7 .
3194 defw as.ADC_SBC ;SBC 133a 51 15 Q .
3195 defb 098h ; 133c 98 .
3196 defw as.opc.noarg ;SCF 133d 3b 15 ; .
3197 defb 037h ; 133f 37 7
3198 defw as.BITOP ;SET 1340 09 16 . .
3199 defb 0c0h ; 1342 c0 .
3200 defw as.SHIFTOP ;SLA 1343 d5 15 . .
3201 defb 020h ; 1345 20
3202 defw as.SHIFTOP ;SRA 1346 d5 15 . .
3203 defb 028h ; 1348 28 (
3204 defw as.SHIFTOP ;SRL 1349 d5 15 . .
3205 defb 038h ; 134b 38 8
3206 defw as.AND_CP_OR_SUB_XOR ;SUB 134c a8 15 . .
3207 defb 090h ; 134e 90 .
3208 defw as.AND_CP_OR_SUB_XOR ;XOR 134f a8 15 . .
3209 defb 0a8h ; 1351 a8 .
3210
3211 defw as.IN0 ;IN0
3212 defb 000h ;
3213 defw as.MLT ;MLT
3214 defb 04ch ;
3215 defw gen.opc.ED2 ;OTDM
3216 defb 08bh ;
3217 defw gen.opc.ED2 ;OTDMR
3218 defb 09bh ;
3219 defw gen.opc.ED2 ;OTIM
3220 defb 083h ;
3221 defw gen.opc.ED2 ;OTIMR
3222 defb 093h ;
3223 defw as.OUTO ;OUT0
3224 defb 001h ;
3225 defw gen.opc.ED2 ;SLP
3226 defb 076h ;
3227 defw as.TST ;TST
3228 defb 004h ;
3229 defw as.TSTIO ;TSTIO
3230 defb 074h ;
3231
3232 as.TST:
3233 call arg.r_HL_A ;
3234 jr nc,as.tst_0
3235 rlca
3236 rlca
3237 rlca
3238 add a,b
3239 ld b,a
3240 jp gen.opc.ED2
3241 as.tst_0:
3242 ld b,064h
3243 as.TSTIO:
3244 call arg.imm_8bit ;
3245 jr as.store_io0
3246
3247 as.IN0:
3248 call arg.r_HL_A ;
3249 jr nc,error7
3250 cp 006h
3251 jr z,error7
3252 rlca
3253 rlca
3254 rlca
3255 add a,b
3256 ld b,a
3257 call assert_comma ;
3258 call arg.addr_8bit ;
3259 jr as.store_io0
3260
3261 as.OUTO:
3262 call arg.addr_8bit ;
3263 call assert_comma ;
3264 call arg.r_HL_A ;
3265 jr nc,error7
3266 cp 006h
3267 jr z,error7
3268 rlca
3269 rlca
3270 rlca
3271 add a,b
3272 ld b,a
3273
3274 as.store_io0:
3275 call assert_eol
3276 ld (iy+000h),0edh
3277 ld (iy+001h),b
3278 ld (iy+002h),l
3279 ld c,003h
3280 ret
3281
3282 as.MLT:
3283 call arg.ww ;
3284 jr nc,error7
3285 add a,b
3286 ld b,a
3287 jp gen.opc.ED2
3288
3289 error7:
3290 jp ERROR
3291
3292 as.LD:
3293 call arg.r_HL_A ;1352 cd 2e 18 . . .
3294 jr c,l13d4h ;1355 38 7d 8 }
3295 call arg.IDX_displcmnt ;1357 cd 55 18 . U .
3296 jp c,l1471h ;135a da 71 14 . q .
3297 call arg.ww ;135d cd 1b 18 . . .
3298 jp c,l149ch ;1360 da 9c 14 . . .
3299 call arg.IX_IY ;1363 cd 3d 18 . = .
3300 jp c,l14f5h ;1366 da f5 14 . . .
3301 ld a,(de) ;1369 1a .
3302 cp 'I' ;136a fe 49 . I
3303 jp z,l1511h ;136c ca 11 15 . . .
3304 cp 'R' ;136f fe 52 . R
3305 jp z,l1519h ;1371 ca 19 15 . . .
3306 cp '(' ;1374 fe 28 . (
3307 jp nz,ERROR ;1376 c2 07 01 . . .
3308 inc de ;1379 13 .
3309 call arg.ww ;137a cd 1b 18 . . .
3310 jp c,l1528h ;137d da 28 15 . ( .
3311 call test_expr ;1380 cd 09 18 . . .
3312 call test_paren_close ;1383 cd c5 18 . . .
3313 call assert_comma ;1386 cd be 18 . . .
3314 call arg.ww ;1389 cd 1b 18 . . .
3315 jr c,l13c2h ;138c 38 34 8 4
3316 call arg.IX_IY ;138e cd 3d 18 . = .
3317 jr nc,l13aah ;1391 30 17 0 .
3318 ld b,022h ;1393 06 22 . "
3319 l1395h:
3320 call assert_eol ;1395 cd d6 02 . . .
3321 ld a,(prefix_ixiy) ;1398 3a cc 18 : . .
3322 l139bh:
3323 ld (iy+000h),a ;139b fd 77 00 . w .
3324 ld (iy+001h),b ;139e fd 70 01 . p .
3325 ld (iy+002h),l ;13a1 fd 75 02 . u .
3326 ld (iy+003h),h ;13a4 fd 74 03 . t .
3327 ld c,004h ;13a7 0e 04 . .
3328 ret ;13a9 c9 .
3329 l13aah:
3330 ld a,(de) ;13aa 1a .
3331 cp 'A' ;13ab fe 41 . A
3332 jp nz,ERROR ;13ad c2 07 01 . . .
3333 inc de ;13b0 13 .
3334 ld b,032h ;13b1 06 32 . 2
3335 as.store_3:
3336 call assert_eol ;13b3 cd d6 02 . . .
3337 ld (iy+000h),b ;13b6 fd 70 00 . p .
3338 ld (iy+001h),l ;13b9 fd 75 01 . u .
3339 ld (iy+002h),h ;13bc fd 74 02 . t .
3340 ld c,003h ;13bf 0e 03 . .
3341 ret ;13c1 c9 .
3342 l13c2h:
3343 cp 020h ;13c2 fe 20 .
3344 jr z,l13d0h ;13c4 28 0a ( .
3345 add a,043h ;13c6 c6 43 . C
3346 ld b,a ;13c8 47 G
3347 l13c9h:
3348 call assert_eol ;13c9 cd d6 02 . . .
3349 ld a,0edh ;13cc 3e ed > .
3350 jr l139bh ;13ce 18 cb . .
3351 l13d0h:
3352 ld b,022h ;13d0 06 22 . "
3353 jr as.store_3 ;13d2 18 df . .
3354 l13d4h:
3355 ld b,a ;13d4 47 G
3356 call assert_comma ;13d5 cd be 18 . . .
3357 call arg.r_HL_A ;13d8 cd 2e 18 . . .
3358 jr nc,l13f0h ;13db 30 13 0 .
3359 push af ;13dd f5 .
3360 ld a,b ;13de 78 x
3361 rlca ;13df 07 .
3362 rlca ;13e0 07 .
3363 rlca ;13e1 07 .
3364 ld b,a ;13e2 47 G
3365 pop af ;13e3 f1 .
3366 add a,b ;13e4 80 .
3367 add a,040h ;13e5 c6 40 . @
3368 cp 076h ;13e7 fe 76 . v
3369 jp z,ERROR ;13e9 ca 07 01 . . .
3370 l13ech:
3371 ld b,a ;13ec 47 G
3372 jp as.opc.noarg ;13ed c3 3b 15 . ; .
3373 l13f0h:
3374 call arg.IDX_displcmnt ;13f0 cd 55 18 . U .
3375 jr nc,l1413h ;13f3 30 1e 0 .
3376 ld a,b ;13f5 78 x
3377 rlca ;13f6 07 .
3378 rlca ;13f7 07 .
3379 rlca ;13f8 07 .
3380 add a,046h ;13f9 c6 46 . F
3381 cp 076h ;13fb fe 76 . v
3382 jp z,ERROR ;13fd ca 07 01 . . .
3383
3384 l1400h:
3385 ld b,a ;1400 47 G
3386 call assert_eol ;1401 cd d6 02 . . .
3387 ld (iy+001h),b ;1404 fd 70 01 . p .
3388 ld (iy+002h),c ;1407 fd 71 02 . q .
3389 ld a,(prefix_ixiy) ;140a 3a cc 18 : . .
3390 ld (iy+000h),a ;140d fd 77 00 . w .
3391 ld c,003h ;1410 0e 03 . .
3392 ret ;1412 c9 .
3393 l1413h:
3394 ld a,(de) ;1413 1a .
3395 cp 'I' ;1414 fe 49 . I
3396 jr z,l1426h ;1416 28 0e ( .
3397 cp 'R' ;1418 fe 52 . R
3398 jr nz,l1432h ;141a 20 16 .
3399 ld a,b ;141c 78 x
3400 cp 007h ;141d fe 07 . .
3401 jp nz,ERROR ;141f c2 07 01 . . .
3402 ld b,05fh ;1422 06 5f . _
3403 jr l142eh ;1424 18 08 . .
3404 l1426h:
3405 ld a,b ;1426 78 x
3406 cp 007h ;1427 fe 07 . .
3407 jp nz,ERROR ;1429 c2 07 01 . . .
3408 ld b,057h ;142c 06 57 . W
3409 l142eh:
3410 inc de ;142e 13 .
3411 jp gen.opc.ED2 ;142f c3 44 15 . D .
3412 l1432h:
3413 cp '(' ;1432 fe 28 . (
3414 jr z,l144ch ;1434 28 16 ( .
3415 call arg.imm_8bit ;1436 cd ff 17 . . .
3416 ld a,b ;1439 78 x
3417 rlca ;143a 07 .
3418 rlca ;143b 07 .
3419 rlca ;143c 07 .
3420 add a,006h ;143d c6 06 . .
3421 l143fh:
3422 ld b,a ;143f 47 G
3423 as.store_2:
3424 call assert_eol ;1440 cd d6 02 . . .
3425 ld (iy+000h),b ;1443 fd 70 00 . p .
3426 ld (iy+001h),l ;1446 fd 75 01 . u .
3427 ld c,002h ;1449 0e 02 . .
3428 ret ;144b c9 .
3429 l144ch:
3430 inc de ;144c 13 .
3431 ld a,b ;144d 78 x
3432 cp 007h ;144e fe 07 . .
3433 jp nz,ERROR ;1450 c2 07 01 . . .
3434 call arg.ww ;1453 cd 1b 18 . . .
3435 jr nc,l1466h ;1456 30 0e 0 .
3436 cp 030h ;1458 fe 30 . 0
3437 jp nc,ERROR ;145a d2 07 01 . . .
3438 add a,00ah ;145d c6 0a . .
3439 ld b,a ;145f 47 G
3440 call test_paren_close ;1460 cd c5 18 . . .
3441 jp as.opc.noarg ;1463 c3 3b 15 . ; .
3442 l1466h:
3443 call test_expr ;1466 cd 09 18 . . .
3444 call test_paren_close ;1469 cd c5 18 . . .
3445 ld b,03ah ;146c 06 3a . :
3446 jp as.store_3 ;146e c3 b3 13 . . .
3447
3448 l1471h:
3449 call assert_comma ;1471 cd be 18 . . .
3450 call arg.r_HL_A ;1474 cd 2e 18 . . .
3451 jr nc,l1483h ;1477 30 0a 0 .
3452 cp 006h ;1479 fe 06 . .
3453 jp z,ERROR ;147b ca 07 01 . . .
3454 add a,070h ;147e c6 70 . p
3455 jp l1400h ;1480 c3 00 14 . . .
3456
3457 l1483h:
3458 call arg.imm_8bit ;1483 cd ff 17 . . .
3459 call assert_eol ;1486 cd d6 02 . . .
3460 ld a,(prefix_ixiy) ;1489 3a cc 18 : . .
3461 ld (iy+000h),a ;148c fd 77 00 . w .
3462 ld (iy+001h),036h ;148f fd 36 01 36 . 6 . 6
3463 ld (iy+002h),c ;1493 fd 71 02 . q .
3464 ld (iy+003h),l ;1496 fd 75 03 . u .
3465 ld c,004h ;1499 0e 04 . .
3466 ret ;149b c9 .
3467 l149ch:
3468 ld b,a ;149c 47 G
3469 call assert_comma ;149d cd be 18 . . .
3470 ld hl,t_HL.AF ;14a0 21 af 1f ! . .
3471 call sub_0318h ;14a3 cd 18 03 . . .
3472 jr c,l14c3h ;14a6 38 1b 8 .
3473 call arg.IX_IY ;14a8 cd 3d 18 . = .
3474 jr nc,l14cch ;14ab 30 1f 0 .
3475 ld a,b ;14ad 78 x
3476 cp 030h ;14ae fe 30 . 0
3477 jr nz,error6 ;14b0 20 73 s
3478 ld b,0f9h ;14b2 06 f9 . .
3479 l14b4h:
3480 call assert_eol ;14b4 cd d6 02 . . .
3481 ld a,(prefix_ixiy) ;14b7 3a cc 18 : . .
3482 ld (iy+000h),a ;14ba fd 77 00 . w .
3483 ld (iy+001h),b ;14bd fd 70 01 . p .
3484 ld c,002h ;14c0 0e 02 . .
3485 ret ;14c2 c9 .
3486 l14c3h:
3487 ld a,b ;14c3 78 x
3488 cp 030h ;14c4 fe 30 . 0
3489 jr nz,error6 ;14c6 20 5d ]
3490 ld b,0f9h ;14c8 06 f9 . .
3491 jr as.opc.noarg ;14ca 18 6f . o
3492 l14cch:
3493 ld a,(de) ;14cc 1a .
3494 cp '(' ;14cd fe 28 . (
3495 jr nz,l14e8h ;14cf 20 17 .
3496 inc de ;14d1 13 .
3497 call test_expr ;14d2 cd 09 18 . . .
3498 call test_paren_close ;14d5 cd c5 18 . . .
3499 ld a,b ;14d8 78 x
3500 cp 020h ;14d9 fe 20 .
3501 jr z,l14e3h ;14db 28 06 ( .
3502 add a,04bh ;14dd c6 4b . K
3503 ld b,a ;14df 47 G
3504 jp l13c9h ;14e0 c3 c9 13 . . .
3505 l14e3h:
3506 ld b,02ah ;14e3 06 2a . *
3507 jp as.store_3 ;14e5 c3 b3 13 . . .
3508 l14e8h:
3509 call test_expr ;14e8 cd 09 18 . . .
3510 call assert_eol ;14eb cd d6 02 . . .
3511 ld a,001h ;14ee 3e 01 > .
3512 add a,b ;14f0 80 .
3513 ld b,a ;14f1 47 G
3514 jp as.store_3 ;14f2 c3 b3 13 . . .
3515 l14f5h:
3516 call assert_comma ;14f5 cd be 18 . . .
3517 ld a,(de) ;14f8 1a .
3518 cp '(' ;14f9 fe 28 . (
3519 jr nz,l1509h ;14fb 20 0c .
3520 inc de ;14fd 13 .
3521 call test_expr ;14fe cd 09 18 . . .
3522 call test_paren_close ;1501 cd c5 18 . . .
3523 ld b,02ah ;1504 06 2a . *
3524 jp l1395h ;1506 c3 95 13 . . .
3525 l1509h:
3526 call test_expr ;1509 cd 09 18 . . .
3527 ld b,021h ;150c 06 21 . !
3528 jp l1395h ;150e c3 95 13 . . .
3529 l1511h:
3530 inc de ;1511 13 .
3531 call assert_comma ;1512 cd be 18 . . .
3532 ld b,047h ;1515 06 47 . G
3533 jr l151fh ;1517 18 06 . .
3534 l1519h:
3535 inc de ;1519 13 .
3536 call assert_comma ;151a cd be 18 . . .
3537 ld b,04fh ;151d 06 4f . O
3538 l151fh:
3539 ld a,(de) ;151f 1a .
3540 inc de ;1520 13 .
3541 cp 'A' ;1521 fe 41 . A
3542 jr z,gen.opc.ED2 ;1523 28 1f ( .
3543 error6:
3544 jp ERROR ;1525 c3 07 01 . . .
3545
3546 l1528h:
3547 cp 020h ;1528 fe 20 .
3548 jr nc,error6 ;152a 30 f9 0 .
3549 add a,002h ;152c c6 02 . .
3550 ld b,a ;152e 47 G
3551 call test_paren_close ;152f cd c5 18 . . .
3552 call assert_comma ;1532 cd be 18 . . .
3553 ld a,(de) ;1535 1a .
3554 cp 'A' ;1536 fe 41 . A
3555 jr nz,error6 ;1538 20 eb .
3556 inc de ;153a 13 .
3557 as.opc.noarg:
3558 call assert_eol ;153b cd d6 02 . . .
3559 ld (iy+000h),b ;153e fd 70 00 . p .
3560 ld c,001h ;1541 0e 01 . .
3561 ret ;1543 c9 .
3562
3563 gen.opc.ED2:
3564 call assert_eol ;1544 cd d6 02 . . .
3565 ld (iy+000h),0edh ;1547 fd 36 00 ed . 6 . .
3566 ld (iy+001h),b ;154b fd 70 01 . p .
3567 ld c,002h ;154e 0e 02 . .
3568 ret ;1550 c9 .
3569
3570 as.ADC_SBC:
3571 ld hl,t_HL.AF ;1551 21 af 1f ! . .
3572 call sub_0318h ;1554 cd 18 03 . . .
3573 jr nc,as.AND_CP_OR_SUB_XOR ;1557 30 4f 0 O
3574 call assert_comma ;1559 cd be 18 . . .
3575 call arg.ww ;155c cd 1b 18 . . .
3576 jp nc,ERROR ;155f d2 07 01 . . .
3577 push af ;1562 f5 .
3578 ld a,b ;1563 78 x
3579 cp 088h ;1564 fe 88 . .
3580 ld b,04ah ;1566 06 4a . J
3581 jr z,l156ch ;1568 28 02 ( .
3582 ld b,042h ;156a 06 42 . B
3583 l156ch:
3584 pop af ;156c f1 .
3585 add a,b ;156d 80 .
3586 l156eh:
3587 ld b,a ;156e 47 G
3588 jr gen.opc.ED2 ;156f 18 d3 . .
3589 as.ADD:
3590 ld hl,t_HL.AF ;1571 21 af 1f ! . .
3591 call sub_0318h ;1574 cd 18 03 . . .
3592 jr c,l159ah ;1577 38 21 8 !
3593 call arg.IX_IY ;1579 cd 3d 18 . = .
3594 jr nc,as.AND_CP_OR_SUB_XOR ;157c 30 2a 0 *
3595 call assert_comma ;157e cd be 18 . . .
3596 ld hl,t_BC.DE.IX.SP ;1581 21 bd 1f ! . .
3597 ld a,(prefix_ixiy) ;1584 3a cc 18 : . .
3598 cp 0fdh ;1587 fe fd . .
3599 jr nz,l158eh ;1589 20 03 .
3600 ld hl,t_BC.DE.IY.SP ;158b 21 b4 1f ! . .
3601 l158eh:
3602 call arg.reg_16bit ;158e cd 18 18 . . .
3603 jp nc,ERROR ;1591 d2 07 01 . . .
3604 add a,009h ;1594 c6 09 . .
3605 l1596h:
3606 ld b,a ;1596 47 G
3607 jp l14b4h ;1597 c3 b4 14 . . .
3608 l159ah:
3609 call assert_comma ;159a cd be 18 . . .
3610 call arg.ww ;159d cd 1b 18 . . .
3611 jp nc,ERROR ;15a0 d2 07 01 . . .
3612 add a,009h ;15a3 c6 09 . .
3613 jp l13ech ;15a5 c3 ec 13 . . .
3614 as.AND_CP_OR_SUB_XOR:
3615 ld a,(de) ;15a8 1a .
3616 cp 'A' ;15a9 fe 41 . A
3617 jr nz,l15b8h ;15ab 20 0b .
3618 push de ;15ad d5 .
3619 inc de ;15ae 13 .
3620 call next_arg ;15af cd ca 02 . . .
3621 jr z,l15b7h ;15b2 28 03 ( .
3622 pop de ;15b4 d1 .
3623 jr l15b8h ;15b5 18 01 . .
3624 l15b7h:
3625 pop af ;15b7 f1 .
3626 l15b8h:
3627 call arg.r_HL_A ;15b8 cd 2e 18 . . .
3628 jr c,l15cbh ;15bb 38 0e 8 .
3629 call arg.IDX_displcmnt ;15bd cd 55 18 . U .
3630 jr c,l15cfh ;15c0 38 0d 8 .
3631 call arg.imm_8bit ;15c2 cd ff 17 . . .
3632 ld a,b ;15c5 78 x
3633 add a,046h ;15c6 c6 46 . F
3634 jp l143fh ;15c8 c3 3f 14 . ? .
3635 l15cbh:
3636 add a,b ;15cb 80 .
3637 jp l13ech ;15cc c3 ec 13 . . .
3638 l15cfh:
3639 ld a,b ;15cf 78 x
3640 add a,006h ;15d0 c6 06 . .
3641 jp l1400h ;15d2 c3 00 14 . . .
3642
3643 as.SHIFTOP:
3644 call arg.r_HL_A ;15d5 cd 2e 18 . . .
3645 jr c,l15fah ;15d8 38 20 8
3646 call arg.IDX_displcmnt ;15da cd 55 18 . U .
3647 jp nc,ERROR ;15dd d2 07 01 . . .
3648 ld a,b ;15e0 78 x
3649 add a,006h ;15e1 c6 06 . .
3650 ld b,a ;15e3 47 G
3651 l15e4h:
3652 call assert_eol ;15e4 cd d6 02 . . .
3653 ld a,(prefix_ixiy) ;15e7 3a cc 18 : . .
3654 ld (iy+000h),a ;15ea fd 77 00 . w .
3655 ld (iy+001h),0cbh ;15ed fd 36 01 cb . 6 . .
3656 ld (iy+002h),c ;15f1 fd 71 02 . q .
3657 ld (iy+003h),b ;15f4 fd 70 03 . p .
3658 ld c,004h ;15f7 0e 04 . .
3659 ret ;15f9 c9 .
3660
3661 l15fah:
3662 add a,b ;15fa 80 .
3663 l15fbh:
3664 ld b,a ;15fb 47 G
3665 call assert_eol ;15fc cd d6 02 . . .
3666 ld (iy+001h),b ;15ff fd 70 01 . p .
3667 ld (iy+000h),0cbh ;1602 fd 36 00 cb . 6 . .
3668 ld c,002h ;1606 0e 02 . .
3669 ret ;1608 c9 .
3670
3671 as.BITOP:
3672 call arg.bit ;1609 cd d3 17 . . .
3673 call assert_comma ;160c cd be 18 . . .
3674 call arg.r_HL_A ;160f cd 2e 18 . . .
3675 jr c,l1624h ;1612 38 10 8 .
3676 call arg.IDX_displcmnt ;1614 cd 55 18 . U .
3677 jp nc,ERROR ;1617 d2 07 01 . . .
3678 ld a,l ;161a 7d }
3679 rlca ;161b 07 .
3680 rlca ;161c 07 .
3681 rlca ;161d 07 .
3682 add a,006h ;161e c6 06 . .
3683 add a,b ;1620 80 .
3684 ld b,a ;1621 47 G
3685 jr l15e4h ;1622 18 c0 . .
3686 l1624h:
3687 add a,b ;1624 80 .
3688 ld b,a ;1625 47 G
3689 ld a,l ;1626 7d }
3690 rlca ;1627 07 .
3691 rlca ;1628 07 .
3692 rlca ;1629 07 .
3693 add a,b ;162a 80 .
3694 jr l15fbh ;162b 18 ce . .
3695
3696 as.CALL:
3697 push de ;162d d5 .
3698 call arg.cc_ZCPS ;162e cd a5 18 . . .
3699 jr nc,l163ch ;1631 30 09 0 .
3700 add a,b ;1633 80 .
3701 ld b,a ;1634 47 G
3702 call next_arg ;1635 cd ca 02 . . .
3703 jr z,l163eh ;1638 28 04 ( .
3704 pop de ;163a d1 .
3705 push de ;163b d5 .
3706 l163ch:
3707 ld b,0cdh ;163c 06 cd . .
3708 l163eh:
3709 pop af ;163e f1 .
3710 call test_expr ;163f cd 09 18 . . .
3711 jp as.store_3 ;1642 c3 b3 13 . . .
3712
3713 as.RET:
3714 call arg.cc_ZCPS ;1645 cd a5 18 . . .
3715 jr nc,l164eh ;1648 30 04 0 .
3716 add a,b ;164a 80 .
3717 ld b,a ;164b 47 G
3718 jr l1650h ;164c 18 02 . .
3719 l164eh:
3720 ld b,0c9h ;164e 06 c9 . .
3721 l1650h:
3722 jp as.opc.noarg ;1650 c3 3b 15 . ; .
3723
3724 as.JP:
3725 push de ;1653 d5 .
3726 call arg.cc_ZCPS ;1654 cd a5 18 . . .
3727 jr c,l1666h ;1657 38 0d 8 .
3728 l1659h:
3729 pop de ;1659 d1 .
3730 ld hl,l168ch ;165a 21 8c 16 ! . .
3731 call sub_030ah ;165d cd 0a 03 . . .
3732 jr c,l1674h ;1660 38 12 8 .
3733 ld b,0c3h ;1662 06 c3 . .
3734 jr l166eh ;1664 18 08 . .
3735
3736 l1666h:
3737 add a,b ;1666 80 .
3738 ld b,a ;1667 47 G
3739 call next_arg ;1668 cd ca 02 . . .
3740 jr nz,l1659h ;166b 20 ec .
3741 pop af ;166d f1 .
3742 l166eh:
3743 call test_expr ;166e cd 09 18 . . .
3744 jp as.store_3 ;1671 c3 b3 13 . . .
3745 l1674h:
3746 call assert_eol ;1674 cd d6 02 . . .
3747 ld a,b ;1677 78 x
3748 and a ;1678 a7 .
3749 jr nz,l1680h ;1679 20 05 .
3750 ld b,0e9h ;167b 06 e9 . .
3751 jp as.opc.noarg ;167d c3 3b 15 . ; .
3752 l1680h:
3753 ld b,0ddh ;1680 06 dd . .
3754 dec a ;1682 3d =
3755 jr z,l1687h ;1683 28 02 ( .
3756 ld b,0fdh ;1685 06 fd . .
3757 l1687h:
3758 ld l,0e9h ;1687 2e e9 . .
3759 jp as.store_2 ;1689 c3 40 14 . @ .
3760
3761 l168ch:
3762 DC '(HL)'
3763 DC '(IX)'
3764 DC '(IY)'
3765 DB 0
3766
3767 as.DJNZ:
3768 call next_arg ;1699 cd ca 02 . . .
3769 ld b,010h ;169c 06 10 . .
3770 jr l16aeh ;169e 18 0e . .
3771 as.JR:
3772 call arg.cc_ZC ;16a0 cd ac 18 . . .
3773 jr c,l16a9h ;16a3 38 04 8 .
3774 ld b,018h ;16a5 06 18 . .
3775 jr l16aeh ;16a7 18 05 . .
3776 l16a9h:
3777 add a,b ;16a9 80 .
3778 ld b,a ;16aa 47 G
3779 call assert_comma ;16ab cd be 18 . . .
3780 l16aeh:
3781 call arg.j_displ ;16ae cd dc 17 . . .
3782 jp as.store_2 ;16b1 c3 40 14 . @ .
3783
3784 as.IM:
3785 call arg.imm_8bit ;16b4 cd ff 17 . . .
3786 ld a,l ;16b7 7d }
3787 cp 003h ;16b8 fe 03 . .
3788 jr nc,error2 ;16ba 30 5c 0 \
3789 and a ;16bc a7 .
3790 jr z,l16c7h ;16bd 28 08 ( .
3791 ld b,056h ;16bf 06 56 . V
3792 cp 001h ;16c1 fe 01 . .
3793 jr z,l16c7h ;16c3 28 02 ( .
3794 ld b,05eh ;16c5 06 5e . ^
3795 l16c7h:
3796 jp gen.opc.ED2 ;16c7 c3 44 15 . D .
3797
3798 as.RST:
3799 call arg.imm_8bit ;16ca cd ff 17 . . .
3800 ld a,l ;16cd 7d }
3801 push af ;16ce f5 .
3802 add a,b ;16cf 80 .
3803 ld b,a ;16d0 47 G
3804 pop af ;16d1 f1 .
3805 and 0c7h ;16d2 e6 c7 . .
3806 jr nz,error2 ;16d4 20 42 B
3807 jp as.opc.noarg ;16d6 c3 3b 15 . ; .
3808
3809 as.POP_PUSH:
3810 call arg.IX_IY ;16d9 cd 3d 18 . = .
3811 jr c,l16e7h ;16dc 38 09 8 .
3812 call arg.zz ;16de cd 12 18 . . .
3813 jr nc,error2 ;16e1 30 35 0 5
3814 add a,b ;16e3 80 .
3815 jp l13ech ;16e4 c3 ec 13 . . .
3816 l16e7h:
3817 ld a,b ;16e7 78 x
3818 add a,020h ;16e8 c6 20 .
3819 jp l1596h ;16ea c3 96 15 . . .
3820
3821 as.IN:
3822 call arg.r_HL_A ;16ed cd 2e 18 . . .
3823 jr nc,error2 ;16f0 30 26 0 &
3824 cp 006h ;16f2 fe 06 . .
3825 jr z,error2 ;16f4 28 22 ( "
3826 rlca ;16f6 07 .
3827 rlca ;16f7 07 .
3828 rlca ;16f8 07 .
3829 add a,b ;16f9 80 .
3830 ld b,a ;16fa 47 G
3831 cp 078h ;16fb fe 78 . x
3832 jr nz,l170fh ;16fd 20 10 .
3833 call assert_comma ;16ff cd be 18 . . .
3834 call sub_171bh ;1702 cd 1b 17 . . .
3835 jr c,l1715h ;1705 38 0e 8 .
3836 call arg.addr_8bit ;1707 cd f3 17 . . .
3837 ld b,0dbh ;170a 06 db . .
3838 jp as.store_2 ;170c c3 40 14 . @ .
3839 l170fh:
3840 call assert_comma ;170f cd be 18 . . .
3841 call sub_171bh ;1712 cd 1b 17 . . .
3842 l1715h:
3843 jp c,gen.opc.ED2 ;1715 da 44 15 . D .
3844 error2:
3845 jp ERROR ;1718 c3 07 01 . . .
3846
3847 sub_171bh:
3848 ld hl,t__C_ ;171b 21 f4 1f ! . .
3849 jp sub_0318h ;171e c3 18 03 . . .
3850
3851 as.OUT:
3852 call sub_171bh ;1721 cd 1b 17 . . .
3853 jr nc,l1739h ;1724 30 13 0 .
3854 call assert_comma ;1726 cd be 18 . . .
3855 call arg.r_HL_A ;1729 cd 2e 18 . . .
3856 jr nc,error2 ;172c 30 ea 0 .
3857 cp 006h ;172e fe 06 . .
3858 jr z,error2 ;1730 28 e6 ( .
3859 rlca ;1732 07 .
3860 rlca ;1733 07 .
3861 rlca ;1734 07 .
3862 add a,b ;1735 80 .
3863 jp l156eh ;1736 c3 6e 15 . n .
3864
3865 l1739h:
3866 call arg.addr_8bit ;1739 cd f3 17 . . .
3867 call assert_comma ;173c cd be 18 . . .
3868 cp 'A' ;173f fe 41 . A
3869 jr nz,error2 ;1741 20 d5 .
3870 inc de ;1743 13 .
3871 ld b,0d3h ;1744 06 d3 . .
3872 jp as.store_2 ;1746 c3 40 14 . @ .
3873
3874 as.EX:
3875 ld hl,b_176d_start ;1749 21 6d 17 ! m .
3876 call sub_030ah ;174c cd 0a 03 . . .
3877 jp nc,ERROR ;174f d2 07 01 . . .
3878 ld c,b ;1752 48 H
3879 call assert_eol ;1753 cd d6 02 . . .
3880 ld b,000h ;1756 06 00 . .
3881 ld hl,l178eh ;1758 21 8e 17 ! . .
3882 add hl,bc ;175b 09 .
3883 add hl,bc ;175c 09 .
3884 ld a,(hl) ;175d 7e ~
3885 ld (iy+000h),a ;175e fd 77 00 . w .
3886 ld c,001h ;1761 0e 01 . .
3887 inc hl ;1763 23 #
3888 ld a,(hl) ;1764 7e ~
3889 and a ;1765 a7 .
3890 ret z ;1766 c8 .
3891 ld (iy+001h),a ;1767 fd 77 01 . w .
3892 ld c,002h ;176a 0e 02 . .
3893 ret ;176c c9 .
3894
3895 b_176d_start:
3896 DC 'AF,AF'''
3897 l1773h:
3898 DC 'DE,HL'
3899 DC '(SP),HL'
3900 DC '(SP),IX'
3901 DC '(SP),IY'
3902 db 0
3903 l178eh:
3904 db 008h,000h ;178e 08 .
3905 db 0ebh,000h ;1790 eb .
3906 db 0e3h,000h ;1792 e3 .
3907 db 0ddh,0e3h ;1794 dd .
3908 db 0fdh,0e3h ;1796 fd .
3909
3910 as.DEC_INC:
3911 call arg.IX_IY ;1798 cd 3d 18 . = .
3912 jr c,l17b3h ;179b 38 16 8 .
3913 call arg.ww ;179d cd 1b 18 . . .
3914 jr c,l17bfh ;17a0 38 1d 8 .
3915 call arg.r_HL_A ;17a2 cd 2e 18 . . .
3916 jr c,l17cch ;17a5 38 25 8 %
3917 call arg.IDX_displcmnt ;17a7 cd 55 18 . U .
3918 jp nc,ERROR ;17aa d2 07 01 . . .
3919 ld a,b ;17ad 78 x
3920 add a,030h ;17ae c6 30 . 0
3921 jp l1400h ;17b0 c3 00 14 . . .
3922 l17b3h:
3923 ld a,b ;17b3 78 x
3924 ld b,023h ;17b4 06 23 . #
3925 cp 004h ;17b6 fe 04 . .
3926 jr z,l17bch ;17b8 28 02 ( .
3927 ld b,02bh ;17ba 06 2b . +
3928 l17bch:
3929 jp l14b4h ;17bc c3 b4 14 . . .
3930 l17bfh:
3931 push af ;17bf f5 .
3932 ld a,b ;17c0 78 x
3933 ld b,003h ;17c1 06 03 . .
3934 cp 004h ;17c3 fe 04 . .
3935 jr z,l17c9h ;17c5 28 02 ( .
3936 ld b,00bh ;17c7 06 0b . .
3937 l17c9h:
3938 pop af ;17c9 f1 .
3939 jr l17cfh ;17ca 18 03 . .
3940 l17cch:
3941 rlca ;17cc 07 .
3942 rlca ;17cd 07 .
3943 rlca ;17ce 07 .
3944 l17cfh:
3945 add a,b ;17cf 80 .
3946 jp l13ech ;17d0 c3 ec 13 . . .
3947
3948 arg.bit:
3949 call arg.imm_8bit ;17d3 cd ff 17 . . .
3950 ld a,l ;17d6 7d }
3951 cp 008h ;17d7 fe 08 . .
3952 jr nc,error3 ;17d9 30 34 0 4
3953 ret ;17db c9 .
3954
3955 arg.j_displ:
3956 call test_expr ;17dc cd 09 18 . . .
3957 push bc ;17df c5 .
3958 push iy ;17e0 fd e5 . .
3959 pop bc ;17e2 c1 .
3960 and a ;17e3 a7 .
3961 sbc hl,bc ;17e4 ed 42 . B
3962 dec hl ;17e6 2b +
3963 dec hl ;17e7 2b +
3964 pop bc ;17e8 c1 .
3965 call sub_1802h ;17e9 cd 02 18 . . .
3966 ld a,h ;17ec 7c |
3967 xor l ;17ed ad .
3968 bit 7,a ;17ee cb 7f . \7f
3969 jr nz,error3 ;17f0 20 1d .
3970 ret ;17f2 c9 .
3971
3972 arg.addr_8bit:
3973 ld a,(de) ;17f3 1a .
3974 cp '(' ;17f4 fe 28 . (
3975 jr nz,arg.imm_8bit ;17f6 20 07 .
3976 inc de ;17f8 13 .
3977 call arg.imm_8bit ;17f9 cd ff 17 . . .
3978 jp test_paren_close ;17fc c3 c5 18 . . .
3979
3980 arg.imm_8bit:
3981 call test_expr ;17ff cd 09 18 . . .
3982 sub_1802h:
3983 ld a,h ;1802 7c |
3984 and a ;1803 a7 .
3985 ret z ;1804 c8 .
3986 inc a ;1805 3c <
3987 ret z ;1806 c8 .
3988 jr error3 ;1807 18 06 . .
3989
3990 test_expr:
3991 push bc ;1809 c5 .
3992 call expr ;180a cd be 03 . . .
3993 pop bc ;180d c1 .
3994 ret nc ;180e d0 .
3995 error3:
3996 jp ERROR ;180f c3 07 01 . . .
3997
3998 arg.zz:
3999 push hl ;1812 e5 .
4000 ld hl,t_BC.DE.HL.AF ;1813 21 ab 1f ! . .
4001 jr l181fh ;1816 18 07 . .
4002
4003 arg.reg_16bit:
4004 push hl ;1818 e5 .
4005 jr l181fh ;1819 18 04 . .
4006
4007 arg.ww:
4008 push hl ;181b e5 .
4009 ld hl,t_BC.DE.HL.SP ;181c 21 a2 1f ! . .
4010 l181fh:
4011 push bc ;181f c5 .
4012 call sub_030ah ;1820 cd 0a 03 . . .
4013 jr nc,l182bh ;1823 30 06 0 .
4014 ld a,b ;1825 78 x
4015 rlca ;1826 07 .
4016 rlca ;1827 07 .
4017 rlca ;1828 07 .
4018 rlca ;1829 07 .
4019 scf ;182a 37 7
4020 l182bh:
4021 pop bc ;182b c1 .
4022 pop hl ;182c e1 .
4023 ret ;182d c9 .
4024
4025 arg.r_HL_A:
4026 call skipbl ;182e cd bf 02 . . .
4027 push bc ;1831 c5 .
4028 push hl ;1832 e5 .
4029 ld hl,t_BCDEHL_HL_A ;1833 21 96 1f ! . .
4030 call sub_030ah ;1836 cd 0a 03 . . .
4031 ld a,b ;1839 78 x
4032 pop hl ;183a e1 .
4033 pop bc ;183b c1 .
4034 ret ;183c c9 .
4035
4036 arg.IX_IY:
4037 push hl ;183d e5 .
4038 push bc ;183e c5 .
4039 ld hl,t_IX.IY ;183f 21 c8 1f ! . .
4040 call sub_030ah ;1842 cd 0a 03 . . .
4041 jr nc,l1852h ;1845 30 0b 0 .
4042 ld a,0ddh ;1847 3e dd > .
4043 dec b ;1849 05 .
4044 jr nz,l184eh ;184a 20 02 .
4045 ld a,0fdh ;184c 3e fd > .
4046 l184eh:
4047 ld (prefix_ixiy),a ;184e 32 cc 18 2 . .
4048 scf ;1851 37 7
4049 l1852h:
4050 pop bc ;1852 c1 .
4051 pop hl ;1853 e1 .
4052 ret ;1854 c9 .
4053
4054 arg.IDX_displcmnt:
4055 push hl ;1855 e5 .
4056 push bc ;1856 c5 .
4057 ld a,(de) ;1857 1a .
4058 cp '(' ;1858 fe 28 . (
4059 jr nz,l18a1h ;185a 20 45 E
4060 push de ;185c d5 .
4061 inc de ;185d 13 .
4062 ld hl,t_IX.IY ;185e 21 c8 1f ! . .
4063 call sub_030ah ;1861 cd 0a 03 . . .
4064 jr nc,l18a0h ;1864 30 3a 0 :
4065 pop af ;1866 f1 .
4066 ld a,0ddh ;1867 3e dd > .
4067 dec b ;1869 05 .
4068 jr nz,l186eh ;186a 20 02 .
4069 ld a,0fdh ;186c 3e fd > .
4070 l186eh:
4071 ld (prefix_ixiy),a ;186e 32 cc 18 2 . .
4072 ld a,(de) ;1871 1a .
4073 cp '+' ;1872 fe 2b . +
4074 jr z,l1882h ;1874 28 0c ( .
4075 cp ')' ;1876 fe 29 . )
4076 ld hl,0 ;1878 21 00 00 ! . .
4077 jr z,l189ah ;187b 28 1d ( .
4078 cp '-' ;187d fe 2d . -
4079 jp nz,ERROR ;187f c2 07 01 . . .
4080 l1882h:
4081 push af ;1882 f5 .
4082 inc de ;1883 13 .
4083 call arg.imm_8bit ;1884 cd ff 17 . . .
4084 pop af ;1887 f1 .
4085 cp '+' ;1888 fe 2b . +
4086 jr z,l1894h ;188a 28 08 ( .
4087 ld b,h ;188c 44 D
4088 ld c,l ;188d 4d M
4089 ld hl,0 ;188e 21 00 00 ! . .
4090 and a ;1891 a7 .
4091 sbc hl,bc ;1892 ed 42 . B
4092 l1894h:
4093 ld a,(de) ;1894 1a .
4094 cp ')' ;1895 fe 29 . )
4095 jp nz,ERROR ;1897 c2 07 01 . . .
4096 l189ah:
4097 inc de ;189a 13 .
4098 pop bc ;189b c1 .
4099 ld c,l ;189c 4d M
4100 pop hl ;189d e1 .
4101 scf ;189e 37 7
4102 ret ;189f c9 .
4103 l18a0h:
4104 pop de ;18a0 d1 .
4105 l18a1h:
4106 pop bc ;18a1 c1 .
4107 pop hl ;18a2 e1 .
4108 and a ;18a3 a7 .
4109 ret ;18a4 c9 .
4110
4111 arg.cc_ZCPS:
4112 ld hl,t_tstfl_ZCPS ;18a5 21 dc 1f ! . .
4113 ld c,007h ;18a8 0e 07 . .
4114 jr l18b1h ;18aa 18 05 . .
4115
4116 arg.cc_ZC:
4117 ld hl,t_tstfl_ZC ;18ac 21 cd 1f ! . .
4118 ld c,003h ;18af 0e 03 . .
4119 l18b1h:
4120 push bc ;18b1 c5 .
4121 call sub_030ah ;18b2 cd 0a 03 . . .
4122 ld a,b ;18b5 78 x
4123 pop bc ;18b6 c1 .
4124 ret nc ;18b7 d0 .
4125 and c ;18b8 a1 .
4126 rlca ;18b9 07 .
4127 rlca ;18ba 07 .
4128 rlca ;18bb 07 .
4129 scf ;18bc 37 7
4130 ret ;18bd c9 .
4131
4132 assert_comma:
4133 call next_arg ;18be cd ca 02 . . .
4134 ret z ;18c1 c8 .
4135 l18c2h:
4136 jp ERROR ;18c2 c3 07 01 . . .
4137
4138 test_paren_close:
4139 ld a,(de) ;18c5 1a .
4140 cp ')' ;18c6 fe 29 . )
4141 jr nz,l18c2h ;18c8 20 f8 .
4142 inc de ;18ca 13 .
4143 ret ;18cb c9 .
4144
4145 prefix_ixiy:
4146 db 0 ;18cc 00 .
4147
4148 cmd_L:
4149 ld hl,cmd_L ;18cd 21 cd 18 ! . .
4150 ld (cmd_rpt),hl ;18d0 22 68 00 " h .
4151 call expr ;18d3 cd be 03 . . .
4152 jr nc,l18dbh ;18d6 30 03 0 .
4153 ld hl,(last_L) ;18d8 2a f9 1f * . .
4154 l18dbh:
4155 push hl ;18db e5 .
4156 pop iy ;18dc fd e1 . .
4157 call next_arg ;18de cd ca 02 . . .
4158 call get_range ;18e1 cd 9a 03 . . .
4159 jr nc,l1905h ;18e4 30 1f 0 .
4160 call assert_eol ;18e6 cd d6 02 . . .
4161 ld b,16 ;18e9 06 10 . .
4162 l18ebh:
4163 push bc ;18eb c5 .
4164 push iy ;18ec fd e5 . .
4165 pop hl ;18ee e1 .
4166 push hl ;18ef e5 .
4167 call prnt_disas_line ;18f0 cd 2d 19 . - .
4168 call crlf ;18f3 cd a3 02 . . .
4169 pop iy ;18f6 fd e1 . .
4170 ld c,b ;18f8 48 H
4171 ld b,0 ;18f9 06 00 . .
4172 add iy,bc ;18fb fd 09 . .
4173 ld (last_L),iy ;18fd fd 22 f9 1f . " . .
4174 pop bc ;1901 c1 .
4175 djnz l18ebh ;1902 10 e7 . .
4176 ret ;1904 c9 .
4177 l1905h:
4178 call assert_eol ;1905 cd d6 02 . . .
4179 ld h,b ;1908 60 `
4180 ld l,c ;1909 69 i
4181 ld a,b ;190a 78 x
4182 or c ;190b b1 .
4183 jr nz,l190fh ;190c 20 01 .
4184 dec hl ;190e 2b +
4185 l190fh:
4186 push hl ;190f e5 .
4187 push iy ;1910 fd e5 . .
4188 pop hl ;1912 e1 .
4189 push hl ;1913 e5 .
4190 call prnt_disas_line ;1914 cd 2d 19 . - .
4191 call crlf ;1917 cd a3 02 . . .
4192 pop iy ;191a fd e1 . .
4193 ld e,b ;191c 58 X
4194 ld d,000h ;191d 16 00 . .
4195 add iy,de ;191f fd 19 . .
4196 ld (last_L),iy ;1921 fd 22 f9 1f . " . .
4197 pop hl ;1925 e1 .
4198 and a ;1926 a7 .
4199 sbc hl,de ;1927 ed 52 . R
4200 ret z ;1929 c8 .
4201 ret c ;192a d8 .
4202 jr l190fh ;192b 18 e2 . .
4203
4204 prnt_disas_line:
4205 call out.hl.@ ;192d cd a4 01 . . .
4206 call z,outbl ;1930 cc 9f 02 . . .
4207 call outbl ;1933 cd 9f 02 . . .
4208 sub a ;1936 97 .
4209 ld (con_col),a ;1937 32 72 02 2 r .
4210 call prnt_disas_instr ;193a cd 65 19 . e .
4211 and a ;193d a7 .
4212 ret z ;193e c8 .
4213
4214 l193fh:
4215 call outbl ;193f cd 9f 02 . . .
4216 ld a,(con_col) ;1942 3a 72 02 : r .
4217 cp 16 ;1945 fe 10 . .
4218 jr c,l193fh ;1947 38 f6 8 .
4219
4220 prnt_offset:
4221 ld de,(offs.@) ;1949 ed 5b 64 00 . [ d .
4222 ld a,d ;194d 7a z
4223 or e ;194e b3 .
4224 ret z ;194f c8 .
4225 ld a,'(' ;1950 3e 28 > (
4226 call outchar ;1952 cd 5d 02 . ] .
4227 ld a,'@' ;1955 3e 40 > @
4228 call outchar ;1957 cd 5d 02 . ] .
4229 and a ;195a a7 .
4230 sbc hl,de ;195b ed 52 . R
4231 call out_hl ;195d cd 13 02 . . .
4232 ld a,')' ;1960 3e 29 > )
4233 jp outchar ;1962 c3 5d 02 . ] .
4234
4235 prnt_disas_instr:
4236 sub a ;1965 97 .
4237 ld (l1ffdh),a ;1966 32 fd 1f 2 . .
4238 call disas_get_instrlen ;1969 cd 8c 19 . . .
4239 jr nc,l197fh ;196c 30 11 0 .
4240 push bc ;196e c5 .
4241 call prnt_mnemonic ;196f cd b9 1e . . .
4242 ex de,hl ;1972 eb .
4243 call call_hl ;1973 cd c1 19 . . .
4244 pop bc ;1976 c1 .
4245 ld a,(l1ffdh) ;1977 3a fd 1f : . .
4246 ld hl,(l1ffbh) ;197a 2a fb 1f * . .
4247 scf ;197d 37 7
4248 ret ;197e c9 .
4249
4250 l197fh:
4251 ld hl,msg_undef_opcode ;197f 21 89 19 ! . .
4252 call pstr ;1982 cd 88 02 . . .
4253 ld b,001h ;1985 06 01 . .
4254 sub a ;1987 97 .
4255 ret ;1988 c9 .
4256
4257 msg_undef_opcode:
4258 DC '???'
4259
4260 disas_get_instrlen:
4261 sub a ;198c 97 .
4262 ld (isprefix_ixiy),a ;198d 32 f8 1f 2 . .
4263 ld a,(iy+000h) ;1990 fd 7e 00 . ~ .
4264 cp 0edh ;1993 fe ed . .
4265 jp z,disas_pfx.ED ;1995 ca 19 1a . . .
4266 cp 0ddh ;1998 fe dd . .
4267 jr z,l19abh ;199a 28 0f ( .
4268 cp 0fdh ;199c fe fd . .
4269 jr z,l19afh ;199e 28 0f ( .
4270 sub_19a0h:
4271 ld a,(iy+000h) ;19a0 fd 7e 00 . ~ .
4272 cp 0cbh ;19a3 fe cb . .
4273 jp z,disas_pfx.CB ;19a5 ca 36 1a . 6 .
4274 jp disas_nopfx ;19a8 c3 4d 1a . M .
4275 l19abh:
4276 ld a,1 ;19ab 3e 01 > .
4277 jr l19b1h ;19ad 18 02 . .
4278 l19afh:
4279 ld a,2 ;19af 3e 02 > .
4280 l19b1h:
4281 ld (isprefix_ixiy),a ;19b1 32 f8 1f 2 . .
4282 call disas_pfx.DDFD ;19b4 cd c2 19 . . .
4283 ret nc ;19b7 d0 .
4284 push bc ;19b8 c5 .
4285 call sub_19a0h ;19b9 cd a0 19 . . .
4286 pop af ;19bc f1 .
4287 add a,b ;19bd 80 .
4288 ld b,a ;19be 47 G
4289 scf ;19bf 37 7
4290 ret ;19c0 c9 .
4291
4292 ; TODO:
4293 nop ;jp (hl) ;19c1 e9 .
4294
4295 disas_pfx.DDFD:
4296 inc iy ;19c2 fd 23 . #
4297 ld hl,b_19ef_start ;19c4 21 ef 19 ! . .
4298 call test_DDFD ;19c7 cd 8c 1a . . .
4299 ld b,002h ;19ca 06 02 . .
4300 ret c ;19cc d8 .
4301 ld hl,l1a0ah ;19cd 21 0a 1a ! . .
4302 call test_DDFD ;19d0 cd 8c 1a . . .
4303 ld b,001h ;19d3 06 01 . .
4304 ret c ;19d5 d8 .
4305 ld a,(iy+000h) ;19d6 fd 7e 00 . ~ .
4306 cp 0cbh ;19d9 fe cb . .
4307 jr nz,l19edh ;19db 20 10 .
4308 ld a,(iy+002h) ;19dd fd 7e 02 . ~ .
4309 cp 036h ;19e0 fe 36 . 6
4310 ret z ;19e2 c8 .
4311 and 007h ;19e3 e6 07 . .
4312 cp 006h ;19e5 fe 06 . .
4313 jr nz,l19edh ;19e7 20 04 .
4314 ld b,002h ;19e9 06 02 . .
4315 scf ;19eb 37 7
4316 ret ;19ec c9 .
4317 l19edh:
4318 and a ;19ed a7 .
4319 ret ;19ee c9 .
4320
4321 ; DD/FD 3 byte (ix+d)/(iy+d)
4322 b_19ef_start:
4323 defb 034h ;19ef 34 4
4324 defb 035h ;19f0 35 5
4325 defb 036h ;19f1 36 6
4326 defb 046h ;19f2 46 F
4327 defb 04eh ;19f3 4e N
4328 defb 056h ;19f4 56 V
4329 defb 05eh ;19f5 5e ^
4330 defb 066h ;19f6 66 f
4331 defb 06eh ;19f7 6e n
4332 defb 070h ;19f8 70 p
4333 defb 071h ;19f9 71 q
4334 defb 072h ;19fa 72 r
4335 defb 073h ;19fb 73 s
4336 defb 074h ;19fc 74 t
4337 defb 075h ;19fd 75 u
4338 defb 077h ;19ff 77 w
4339 defb 07eh ;1a00 7e ~
4340 defb 086h ;1a01 86 .
4341 defb 08eh ;1a02 8e .
4342 defb 096h ;1a03 96 .
4343 defb 09eh ;1a04 9e .
4344 defb 0a6h ;1a05 a6 .
4345 defb 0aeh ;1a06 ae .
4346 defb 0b6h ;1a07 b6 .
4347 defb 0beh ;1a08 be .
4348 defb 0 ;1a09 00 .
4349
4350 ; DD/FD 2 byte
4351 l1a0ah:
4352 defb 009h ;1a0a 09 .
4353 defb 019h ;1a0b 19 .
4354 defb 021h ;1a0c 21 !
4355 defb 022h ;1a0d 22 "
4356 defb 023h ;1a0e 23 #
4357 defb 029h ;1a0f 29 )
4358 defb 02ah ;1a10 2a *
4359 defb 02bh ;1a11 2b +
4360 defb 039h ;1a12 39 9
4361 defb 0e1h ;1a13 e1 .
4362 defb 0e3h ;1a14 e3 .
4363 defb 0e5h ;1a15 e5 .
4364 defb 0e9h ;1a16 e9 .
4365 defb 0f9h ;1a17 f9 .
4366 defb 0 ;1a18 00 .
4367
4368 disas_pfx.ED:
4369 inc iy ;1a19 fd 23 . #
4370 ld hl,b_1bc9_start ;1a1b 21 c9 1b ! . .
4371 call sub_1a72h ;1a1e cd 72 1a . r .
4372 ld b,2 ;1a21 06 02 . .
4373 ret c ;1a23 d8 .
4374 ld hl,b_1bf4_start ;1a24 21 f4 1b ! . .
4375 call lookup_opc ;1a27 cd 97 1a . . .
4376 ld b,2 ;1a2a 06 02 . .
4377 ret c ;1a2c d8 .
4378
4379 ld hl,l228bh
4380 call lookup_opc
4381 ld b,3
4382 ret c
4383 ld hl,b_1c40_start ;1a2d 21 40 1c ! @ .
4384 call lookup_opc ;1a30 cd 97 1a . . .
4385 ld b,4 ;1a33 06 04 . .
4386 ret ;1a35 c9 .
4387
4388 disas_pfx.CB:
4389 push iy ;1a36 fd e5 . .
4390 inc iy ;1a38 fd 23 . #
4391 ld a,(isprefix_ixiy) ;1a3a 3a f8 1f : . .
4392 and a ;1a3d a7 .
4393 jr z,l1a42h ;1a3e 28 02 ( .
4394 inc iy ;1a40 fd 23 . #
4395 l1a42h:
4396 ld hl,b_1c55_start ;1a42 21 55 1c ! U .
4397 call lookup_opc ;1a45 cd 97 1a . . .
4398 pop iy ;1a48 fd e1 . .
4399 ld b,2 ;1a4a 06 02 . .
4400 ret ;1a4c c9 .
4401
4402 disas_nopfx:
4403 ld hl,b_1b54_start ;1a4d 21 54 1b ! T .
4404 call lookup_opc ;1a50 cd 97 1a . . .
4405 ld b,2 ;1a53 06 02 . .
4406 ret c ;1a55 d8 .
4407 ld hl,b_1ab6_start ;1a56 21 b6 1a ! . .
4408 call sub_1a72h ;1a59 cd 72 1a . r .
4409 ld b,1 ;1a5c 06 01 . .
4410 ret c ;1a5e d8 .
4411 ld hl,b_1ad1_start ;1a5f 21 d1 1a ! . .
4412 call lookup_opc ;1a62 cd 97 1a . . .
4413 ld b,1 ;1a65 06 01 . .
4414 ret c ;1a67 d8 .
4415 ld hl,b_1b9b_start ;1a68 21 9b 1b ! . .
4416 call lookup_opc ;1a6b cd 97 1a . . .
4417 ret nc ;1a6e d0 .
4418 ld b,3 ;1a6f 06 03 . .
4419 ret ;1a71 c9 .
4420
4421 sub_1a72h:
4422 ld a,(hl) ;1a72 7e ~
4423 cp 0ffh ;1a73 fe ff . .
4424 ret z ;1a75 c8 .
4425 cp (iy+000h) ;1a76 fd be 00 . . .
4426 jr z,l1a7fh ;1a79 28 04 ( .
4427 inc hl ;1a7b 23 #
4428 inc hl ;1a7c 23 #
4429 jr sub_1a72h ;1a7d 18 f3 . .
4430 l1a7fh:
4431 inc hl ;1a7f 23 #
4432 ld c,(hl) ;1a80 4e N
4433 ld hl,t_MNEMONICS ;1a81 21 c6 1e ! . .
4434 ld b,0 ;1a84 06 00 . .
4435 add hl,bc ;1a86 09 .
4436 ld de,l1c97h ;1a87 11 97 1c . . .
4437 scf ;1a8a 37 7
4438 ret ;1a8b c9 .
4439
4440 test_DDFD:
4441 ld a,(hl) ;1a8c 7e ~
4442 and a ;1a8d a7 .
4443 ret z ;1a8e c8 .
4444 inc hl ;1a8f 23 #
4445 cp (iy+000h) ;1a90 fd be 00 . . .
4446 jr nz,test_DDFD ;1a93 20 f7 .
4447 scf ;1a95 37 7
4448 ret ;1a96 c9 .
4449
4450 lookup_opc:
4451 ld a,(iy+000h) ;1a97 fd 7e 00 . ~ .
4452 and (hl) ;1a9a a6 .
4453 inc hl ;1a9b 23 #
4454 cp (hl) ;1a9c be .
4455 jr z,l1aa8h ;1a9d 28 09 ( .
4456 inc hl ;1a9f 23 #
4457 inc hl ;1aa0 23 #
4458 inc hl ;1aa1 23 #
4459 inc hl ;1aa2 23 #
4460 ld a,(hl) ;1aa3 7e ~
4461 and a ;1aa4 a7 .
4462 jr nz,lookup_opc ;1aa5 20 f0 .
4463 ret ;1aa7 c9 .
4464 l1aa8h:
4465 inc hl ;1aa8 23 #
4466 ld c,(hl) ;1aa9 4e N
4467 inc hl ;1aaa 23 #
4468 ld e,(hl) ;1aab 5e ^
4469 inc hl ;1aac 23 #
4470 ld d,(hl) ;1aad 56 V
4471 ld hl,t_MNEMONICS ;1aae 21 c6 1e ! . .
4472 ld b,000h ;1ab1 06 00 . .
4473 add hl,bc ;1ab3 09 .
4474 scf ;1ab4 37 7
4475 ret ;1ab5 c9 .
4476
4477 ; 1 byte opcodes (no parameters)
4478 ; Format: db opcode, t_MNEMONICS-index
4479 b_1ab6_start:
4480 db 076h,039h ;halt
4481 db 0d9h,036h ;exx
4482 db 0f3h,02ch ;di
4483 db 0fbh,032h ;ei
4484 db 000h,069h ;nop
4485 db 007h,09eh ;rlca
4486 db 00fh,0adh ;rrca
4487 db 017h,098h ;rla
4488 db 01fh,0a7h ;rra
4489 db 027h,026h ;daa
4490 db 02fh,023h ;cpl
4491 db 037h,0bah ;scf
4492 db 03fh,010h ;ccf
4493 db 0ffh
4494
4495
4496 ; 1 byte opcodes
4497 ; Format: db mask, match, t_MNEMONICS-index
4498 ; dw argument formating fuction
4499 b_1ad1_start:
4500 db 0c0h,040h,056h ;ld r,r
4501 dw l1c88h
4502 db 0f8h,080h,003h ;add a,r
4503 dw l1c91h
4504 db 0f8h,088h,000h ;adc a,r
4505 dw l1c91h
4506 db 0f8h,090h,0c9h ;
4507 dw l1e30h
4508 db 0f8h,098h,0b7h ;
4509 dw l1c91h
4510 db 0f8h,0a0h,006h ;
4511 dw l1e30h
4512 db 0f8h,0a8h,0cch ;
4513 dw l1e30h
4514 db 0f8h,0b0h,06ch ;
4515 dw l1e30h
4516 db 0f8h,0b8h,013h ;
4517 dw l1e30h
4518 db 0c7h,0c0h,08bh ;ret cc
4519 dw l1e9dh
4520 db 0c7h,0c7h,0b4h ;rst
4521 dw l1c98h
4522 db 0ffh,0c9h,08bh ;ret
4523 dw l1c97h
4524 db 0cfh,0c1h,081h ;pop rr
4525 dw l1e86h
4526 db 0cfh,0c5h,084h ;push rr
4527 dw l1e86h
4528 db 0ffh,0e3h,034h ;ex (sp),hl
4529 dw l1ca0h
4530 db 0ffh,0e9h,052h ;jp (hl)
4531 dw l1caeh
4532 db 0ffh,0ebh,034h ;ex de,hl
4533 dw l1cbbh
4534 db 0ffh,0f9h,056h ;ld sp,hl
4535 dw l1cc1h
4536 db 0cfh,003h,041h ;inc rr
4537 dw l1e8bh
4538 db 0cfh,00bh,029h ;dec rr
4539 dw l1e8bh
4540 db 0c7h,004h,041h ;inc r
4541 dw l1e28h
4542 db 0c7h,005h,029h ;dec r
4543 dw l1e28h
4544 db 0ffh,008h,034h ;ex af,af'
4545 dw l1ccdh
4546 db 0cfh,009h,003h ;add hl,rr
4547 dw l1cd3h
4548 db 0efh,002h,056h ;ld (rr),a ;rr=bc,de
4549 dw l1cdch
4550 db 0efh,00ah,056h ;ld a,(rr) ;rr=bc,de
4551 dw l1ce5h
4552 db 0
4553
4554 ; 2 byte opdodes
4555 b_1b54_start:
4556 db 0c7h,006h,056h ;ld r,nn
4557 dw l1cfah
4558 db 0ffh,0c6h,003h ;add a,nn
4559 dw l1cf5h
4560 db 0ffh,0ceh,000h ;adc a,nn
4561 dw l1cf5h
4562 db 0ffh,0d6h,0c9h ;sub a,nn
4563 dw l1d09h
4564 db 0ffh,0deh,0b7h ;sbc a,nn
4565 dw l1cf5h
4566 db 0ffh,0e6h,006h ;and a,nn
4567 dw l1d09h
4568 db 0ffh,0eeh,0cch ;xor nn
4569 dw l1d09h
4570 db 0ffh,0f6h,06ch ;or nn
4571 dw l1d09h
4572 db 0ffh,0feh,013h ;cp a,nn
4573 dw l1d09h
4574 db 0ffh,010h,02eh ;djnz
4575 dw l1d1ah
4576 db 0ffh,018h,054h ;jr
4577 dw l1d1ah
4578 db 0e7h,020h,054h ;jr,cc
4579 dw l1d0fh
4580 db 0ffh,0d3h,076h ;out (nn),a
4581 dw l1d37h
4582 db 0ffh,0dbh,03fh ;in a,(nn)
4583 dw l1d29h
4584 db 0
4585
4586 ; 3 byte opcodes
4587 b_1b9b_start:
4588 db 0c7h,0c2h,052h ;
4589 dw l1d42h
4590 db 0c7h,0c4h,00ch ;
4591 dw l1d42h
4592 db 0cfh,001h,056h ;
4593 dw l1d5ah
4594 db 0ffh,0c3h,052h ;
4595 dw l1d48h
4596 db 0ffh,0cdh,00ch ;
4597 dw l1d48h
4598 db 0ffh,022h,056h ;
4599 dw l1d62h
4600 db 0ffh,02ah,056h ;
4601 dw l1d6bh
4602 db 0ffh,032h,056h ;
4603 dw l1d74h
4604 db 0ffh,03ah,056h ;
4605 dw l1d7fh
4606 db 0
4607
4608 ; Prefix ED + 1 byte opcode, no arguments
4609 ; Format: opcode, t_MNEMONICS index
4610 b_1bc9_start:
4611 db 044h,066h ;neg
4612 db 045h,092h ;retn
4613 db 04dh,08eh ;reti
4614 db 067h,0b1h ;rrd
4615 db 06fh,0a2h ;rld
4616 db 0a0h,05fh ;ldi
4617 db 0a1h,01ch ;cpi
4618 db 0a2h,04bh ;ini
4619 db 0a3h,07dh ;outi
4620 db 0a8h,058h ;ldd
4621 db 0a9h,015h ;cpd
4622 db 0aah,044h ;ind
4623 db 0abh,079h ;outd
4624 db 0b0h,062h ;ldir
4625 db 0b1h,01fh ;cpir
4626 db 0b2h,04eh ;inir
4627 db 0b3h,072h ;otir
4628 db 0b8h,05bh ;lddr
4629 db 0b9h,018h ;cpdr
4630 db 0bah,047h ;indr
4631 db 0bbh,06eh ;otdr
4632 db 08bh,0d5h ;otdm
4633 db 09bh,0d9h ;otdmr
4634 db 083h,0deh ;otim
4635 db 093h,0e2h ;otimr
4636 db 076h,0ebh ;slp
4637 db 0ffh ;<end mark>
4638
4639 b_1bf4_start:
4640 db 0e7h,040h,03fh ;in r,(c) ;r=bcde
4641 dw l1db3h ;
4642 db 0f7h,060h,03fh ;in r,(c) ;r=hl
4643 dw l1db3h ;
4644 db 0ffh,078h,03fh ;in r,(c) ;r=a
4645 dw l1db3h ;
4646 db 0e7h,041h,076h ;out (c),r ;r=bcde
4647 dw l1dbfh ;
4648 db 0f7h,061h,076h ;out (c),r ;r=hl
4649 dw l1dbfh ;
4650 db 0ffh,079h,076h ;out (c),r ;r=a
4651 dw l1dbfh ;
4652 db 0cfh,042h,0b7h ;sbc hl,rr
4653 dw l1dcah ;
4654 db 0cfh,04ah,000h ;adc hl,rr
4655 dw l1dcah ;
4656 db 0ffh,046h,03dh ;im 0
4657 dw l1d85h ;
4658 db 0ffh,056h,03dh ;im 1
4659 dw l1d89h ;
4660 db 0ffh,05eh,03dh ;im 2
4661 dw l1d8dh ;
4662 db 0ffh,047h,056h ;ld i,a
4663 dw l1d92h ;
4664 db 0ffh,057h,056h ;ld a,i
4665 dw l1d97h ;
4666 db 0ffh,04fh,056h ;ld r,a
4667 dw l1d9ch ;
4668 db 0ffh,05fh,056h ;ld a,r
4669 dw l1da1h
4670 db 0cfh,04ch,0d2h ;mlt rr
4671 dw l1e8bh
4672 db 0c7h,004h,0eeh ;tst r
4673 dw l1e28h
4674 db 0
4675
4676 l228bh:
4677 db 0e7h,000h,0cfh ;
4678 dw l230ch
4679 db 0f7h,020h,0cfh ;
4680 dw l230ch
4681 db 0ffh,038h,0cfh ;in0 a,(m)
4682 dw l230ch
4683 db 0e7h,001h,0e7h ;
4684 dw l2315h
4685 db 0f7h,021h,0e7h ;
4686 dw l2315h
4687 db 0ffh,039h,0e7h ;out0 (m),a
4688 dw l2315h
4689 db 0ffh,064h,0eeh ;tst m
4690 dw l1d09h
4691 db 0ffh,074h,0f1h ;tstio m
4692 dw l1d09h
4693 db 0
4694
4695 b_1c40_start:
4696 db 0efh,043h,056h ;ld (mn),ww ;ww=bc,de
4697 dw l1dd3h
4698 db 0ffh,073h,056h ;ld (mn),sp
4699 dw l1dd3h
4700 db 0efh,04bh,056h ;ld ww,(mn) ;ww=bc,de
4701 dw l1ddch
4702 db 0ffh,07bh,056h ;ld sp,(mn)
4703 dw l1ddch
4704 db 0
4705
4706 ; CB
4707 b_1c55_start:
4708 db 0f8h,000h,09bh ;rlc g
4709 dw l1e03h
4710 db 0f8h,008h,0aah ;rrc g
4711 dw l1e03h
4712 db 0f8h,010h,096h ;rl g
4713 dw l1e03h
4714 db 0f8h,018h,0a5h ;rr g
4715 dw l1e03h
4716 db 0f8h,020h,0c0h ;sla g
4717 dw l1e03h
4718 db 0f8h,028h,0c3h ;sra g
4719 dw l1e03h
4720 db 0f8h,038h,0c6h ;srl g
4721 dw l1e03h
4722 db 0c0h,040h,009h ;bit b,g
4723 dw l1de4h
4724 db 0c0h,080h,088h ;res b,g
4725 dw l1de4h
4726 db 0c0h,0c0h,0bdh ;set b,g
4727 dw l1de4h
4728 db 0
4729
4730 l1c88h:
4731 call l1e28h ;1c88 cd 28 1e . ( .
4732 call prnt_char_comma ;1c8b cd b4 1e . . .
4733 jp l1e30h ;1c8e c3 30 1e . 0 .
4734 l1c91h:
4735 call prnt_A_comma ;1c91 cd b1 1e . . .
4736 jp l1e30h ;1c94 c3 30 1e . 0 .
4737 l1c97h:
4738 ret ;1c97 c9 .
4739
4740 ;-----------------------------------------------------
4741 l230ch:
4742 call l1e28h
4743 call prnt_char_comma
4744 jp sub_1d2ch
4745 l2315h:
4746 call sub_1d2ch
4747 call prnt_char_comma
4748 jp l1e28h
4749 ;-----------------------------------------------------
4750
4751 l1c98h:
4752 ld a,(iy+000h) ;1c98 fd 7e 00 . ~ .
4753 and 038h ;1c9b e6 38 . 8
4754 jp out_hex ;1c9d c3 18 02 . . .
4755 l1ca0h:
4756 ld hl,b_1ca9_start ;1ca0 21 a9 1c ! . .
4757 call pstr ;1ca3 cd 88 02 . . .
4758 jp l1e7eh ;1ca6 c3 7e 1e . ~ .
4759
4760 b_1ca9_start:
4761 DC '(SP),'
4762 l1caeh:
4763 ld a,'(' ;1cae 3e 28 > (
4764 call outchar ;1cb0 cd 5d 02 . ] .
4765 call l1e7eh ;1cb3 cd 7e 1e . ~ .
4766 ld a,')' ;1cb6 3e 29 > )
4767 jp outchar ;1cb8 c3 5d 02 . ] .
4768 l1cbbh:
4769 ld hl,l1773h ;1cbb 21 73 17 ! s .
4770 jp pstr ;1cbe c3 88 02 . . .
4771 l1cc1h:
4772 ld hl,b_1cca_start ;1cc1 21 ca 1c ! . .
4773 call pstr ;1cc4 cd 88 02 . . .
4774 jp l1e7eh ;1cc7 c3 7e 1e . ~ .
4775
4776 b_1cca_start:
4777 DC 'SP,'
4778 l1ccdh:
4779 ld hl,b_176d_start ;1ccd 21 6d 17 ! m .
4780 jp pstr ;1cd0 c3 88 02 . . .
4781 l1cd3h:
4782 call l1e7eh ;1cd3 cd 7e 1e . ~ .
4783 call prnt_char_comma ;1cd6 cd b4 1e . . .
4784 jp l1e8bh ;1cd9 c3 8b 1e . . .
4785 l1cdch:
4786 call sub_1ce8h ;1cdc cd e8 1c . . .
4787 call prnt_char_comma ;1cdf cd b4 1e . . .
4788 jp prnt_char_A ;1ce2 c3 3d 1d . = .
4789
4790 l1ce5h:
4791 call prnt_A_comma ;1ce5 cd b1 1e . . .
4792 sub_1ce8h:
4793 ld a,'(' ;1ce8 3e 28 > (
4794 call outchar ;1cea cd 5d 02 . ] .
4795 call l1e8bh ;1ced cd 8b 1e . . .
4796 ld a,')' ;1cf0 3e 29 > )
4797 jp outchar ;1cf2 c3 5d 02 . ] .
4798 l1cf5h:
4799 call prnt_A_comma ;1cf5 cd b1 1e . . .
4800 jr l1d09h ;1cf8 18 0f . .
4801 l1cfah:
4802 call l1e28h ;1cfa cd 28 1e . ( .
4803 call prnt_char_comma ;1cfd cd b4 1e . . .
4804 ld a,(isprefix_ixiy) ;1d00 3a f8 1f : . .
4805 and a ;1d03 a7 .
4806 ld a,(iy+002h) ;1d04 fd 7e 02 . ~ .
4807 jr nz,l1d0ch ;1d07 20 03 .
4808 l1d09h:
4809 ld a,(iy+001h) ;1d09 fd 7e 01 . ~ .
4810 l1d0ch:
4811 jp out_hex ;1d0c c3 18 02 . . .
4812
4813 l1d0fh:
4814 ld a,(iy+000h) ;1d0f fd 7e 00 . ~ .
4815 and 018h ;1d12 e6 18 . .
4816 call sub_1ea0h ;1d14 cd a0 1e . . .
4817 call prnt_char_comma ;1d17 cd b4 1e . . .
4818 l1d1ah:
4819 ld c,(iy+001h) ;1d1a fd 4e 01 . N .
4820 ld a,c ;1d1d 79 y
4821 rla ;1d1e 17 .
4822 sbc a,a ;1d1f 9f .
4823 ld b,a ;1d20 47 G
4824 push iy ;1d21 fd e5 . .
4825 pop hl ;1d23 e1 .
4826 add hl,bc ;1d24 09 .
4827 inc hl ;1d25 23 #
4828 inc hl ;1d26 23 #
4829 jr l1d4eh ;1d27 18 25 . %
4830 l1d29h:
4831 call prnt_A_comma ;1d29 cd b1 1e . . .
4832 sub_1d2ch:
4833 ld a,'(' ;1d2c 3e 28 > (
4834 call outchar ;1d2e cd 5d 02 . ] .
4835 ld a,(iy+001h) ;1d31 fd 7e 01 . ~ .
4836 jp l1e6bh ;1d34 c3 6b 1e . k .
4837 l1d37h:
4838 call sub_1d2ch ;1d37 cd 2c 1d . , .
4839 call prnt_char_comma ;1d3a cd b4 1e . . .
4840 prnt_char_A:
4841 ld a,'A' ;1d3d 3e 41 > A
4842 jp outchar ;1d3f c3 5d 02 . ] .
4843
4844 l1d42h:
4845 call l1e9dh ;1d42 cd 9d 1e . . .
4846 call prnt_char_comma ;1d45 cd b4 1e . . .
4847 l1d48h:
4848 ld l,(iy+001h) ;1d48 fd 6e 01 . n .
4849 ld h,(iy+002h) ;1d4b fd 66 02 . f .
4850 l1d4eh:
4851 ld a,002h ;1d4e 3e 02 > .
4852 sub_1d50h:
4853 ld (l1ffdh),a ;1d50 32 fd 1f 2 . .
4854 ld (l1ffbh),hl ;1d53 22 fb 1f " . .
4855 call out_hl ;1d56 cd 13 02 . . .
4856 ret ;1d59 c9 .
4857 l1d5ah:
4858 call l1e8bh ;1d5a cd 8b 1e . . .
4859 call prnt_char_comma ;1d5d cd b4 1e . . .
4860 jr l1d48h ;1d60 18 e6 . .
4861 l1d62h:
4862 call sub_1e13h ;1d62 cd 13 1e . . .
4863 call prnt_char_comma ;1d65 cd b4 1e . . .
4864 jp l1e7eh ;1d68 c3 7e 1e . ~ .
4865 l1d6bh:
4866 call l1e7eh ;1d6b cd 7e 1e . ~ .
4867 call prnt_char_comma ;1d6e cd b4 1e . . .
4868 jp sub_1e13h ;1d71 c3 13 1e . . .
4869 l1d74h:
4870 call sub_1e13h ;1d74 cd 13 1e . . .
4871 call prnt_char_comma ;1d77 cd b4 1e . . .
4872 ld a,'A' ;1d7a 3e 41 > A
4873 jp outchar ;1d7c c3 5d 02 . ] .
4874 l1d7fh:
4875 call prnt_A_comma ;1d7f cd b1 1e . . .
4876 jp sub_1e13h ;1d82 c3 13 1e . . .
4877 l1d85h:
4878 ld a,'0' ;1d85 3e 30 > 0
4879 jr l1d8fh ;1d87 18 06 . .
4880 l1d89h:
4881 ld a,'1' ;1d89 3e 31 > 1
4882 jr l1d8fh ;1d8b 18 02 . .
4883 l1d8dh:
4884 ld a,'2' ;1d8d 3e 32 > 2
4885 l1d8fh:
4886 jp outchar ;1d8f c3 5d 02 . ] .
4887 l1d92h:
4888 ld hl,b_1da7_start ;1d92 21 a7 1d ! . .
4889 jr l1da4h ;1d95 18 0d . .
4890 l1d97h:
4891 ld hl,l1daah ;1d97 21 aa 1d ! . .
4892 jr l1da4h ;1d9a 18 08 . .
4893 l1d9ch:
4894 ld hl,l1dadh ;1d9c 21 ad 1d ! . .
4895 jr l1da4h ;1d9f 18 03 . .
4896 l1da1h:
4897 ld hl,l1db0h ;1da1 21 b0 1d ! . .
4898 l1da4h:
4899 jp pstr ;1da4 c3 88 02 . . .
4900
4901 b_1da7_start:
4902 DC 'I,A'
4903 l1daah:
4904 DC 'A,I'
4905 l1dadh:
4906 DC 'R,A'
4907 l1db0h:
4908 DC 'A,R'
4909
4910 l1db3h:
4911 call l1e28h ;1db3 cd 28 1e . ( .
4912 call prnt_char_comma ;1db6 cd b4 1e . . .
4913 ld hl,t__C_ ;1db9 21 f4 1f ! . .
4914 jp pstr ;1dbc c3 88 02 . . .
4915 l1dbfh:
4916 ld hl,t__C_ ;1dbf 21 f4 1f ! . .
4917 call pstr ;1dc2 cd 88 02 . . .
4918 call prnt_char_comma ;1dc5 cd b4 1e . . .
4919 jr l1e28h ;1dc8 18 5e . ^
4920 l1dcah:
4921 call l1e7eh ;1dca cd 7e 1e . ~ .
4922 call prnt_char_comma ;1dcd cd b4 1e . . .
4923 jp l1e8bh ;1dd0 c3 8b 1e . . .
4924 l1dd3h:
4925 call sub_1e13h ;1dd3 cd 13 1e . . .
4926 call prnt_char_comma ;1dd6 cd b4 1e . . .
4927 jp l1e8bh ;1dd9 c3 8b 1e . . .
4928 l1ddch:
4929 call l1e8bh ;1ddc cd 8b 1e . . .
4930 call prnt_char_comma ;1ddf cd b4 1e . . .
4931 jr sub_1e13h ;1de2 18 2f . /
4932 l1de4h:
4933 ld a,(isprefix_ixiy) ;1de4 3a f8 1f : . .
4934 and a ;1de7 a7 .
4935 jr nz,l1defh ;1de8 20 05 .
4936 ld a,(iy+001h) ;1dea fd 7e 01 . ~ .
4937 jr l1df2h ;1ded 18 03 . .
4938 l1defh:
4939 ld a,(iy+002h) ;1def fd 7e 02 . ~ .
4940 l1df2h:
4941 push af ;1df2 f5 .
4942 rra ;1df3 1f .
4943 rra ;1df4 1f .
4944 rra ;1df5 1f .
4945 and 007h ;1df6 e6 07 . .
4946 add a,'0' ;1df8 c6 30 . 0
4947 call outchar ;1dfa cd 5d 02 . ] .
4948 call prnt_char_comma ;1dfd cd b4 1e . . .
4949 pop af ;1e00 f1 .
4950 jr l1e33h ;1e01 18 30 . 0
4951 l1e03h:
4952 ld a,(isprefix_ixiy) ;1e03 3a f8 1f : . .
4953 and a ;1e06 a7 .
4954 jr nz,l1e0eh ;1e07 20 05 .
4955 ld a,(iy+001h) ;1e09 fd 7e 01 . ~ .
4956 jr l1e11h ;1e0c 18 03 . .
4957 l1e0eh:
4958 ld a,(iy+002h) ;1e0e fd 7e 02 . ~ .
4959 l1e11h:
4960 jr l1e33h ;1e11 18 20 .
4961 sub_1e13h:
4962 ld a,'(' ;1e13 3e 28 > (
4963 call outchar ;1e15 cd 5d 02 . ] .
4964 ld l,(iy+001h) ;1e18 fd 6e 01 . n .
4965 ld h,(iy+002h) ;1e1b fd 66 02 . f .
4966 ld a,001h ;1e1e 3e 01 > .
4967 call sub_1d50h ;1e20 cd 50 1d . P .
4968 ld a,')' ;1e23 3e 29 > )
4969 jp outchar ;1e25 c3 5d 02 . ] .
4970 l1e28h:
4971 ld a,(iy+000h) ;1e28 fd 7e 00 . ~ .
4972 rra ;1e2b 1f .
4973 rra ;1e2c 1f .
4974 rra ;1e2d 1f .
4975 jr l1e33h ;1e2e 18 03 . .
4976 l1e30h:
4977 ld a,(iy+000h) ;1e30 fd 7e 00 . ~ .
4978 l1e33h:
4979 and 007h ;1e33 e6 07 . .
4980 cp 006h ;1e35 fe 06 . .
4981 jr nz,l1e73h ;1e37 20 3a :
4982 ld a,(isprefix_ixiy) ;1e39 3a f8 1f : . .
4983 and a ;1e3c a7 .
4984 ld a,006h ;1e3d 3e 06 > .
4985 jr z,l1e73h ;1e3f 28 32 ( 2
4986 ld hl,b_1e78_start ;1e41 21 78 1e ! x .
4987 ld a,(isprefix_ixiy) ;1e44 3a f8 1f : . .
4988 dec a ;1e47 3d =
4989 jr z,l1e4dh ;1e48 28 03 ( .
4990 ld hl,l1e7bh ;1e4a 21 7b 1e ! { .
4991 l1e4dh:
4992 call pstr ;1e4d cd 88 02 . . .
4993 ld a,(iy+001h) ;1e50 fd 7e 01 . ~ .
4994 and a ;1e53 a7 .
4995 jp m,l1e61h ;1e54 fa 61 1e . a .
4996 ld a,'+' ;1e57 3e 2b > +
4997 call outchar ;1e59 cd 5d 02 . ] .
4998 ld a,(iy+001h) ;1e5c fd 7e 01 . ~ .
4999 jr l1e6bh ;1e5f 18 0a . .
5000 l1e61h:
5001 ld a,'-' ;1e61 3e 2d > -
5002 call outchar ;1e63 cd 5d 02 . ] .
5003 ld a,(iy+001h) ;1e66 fd 7e 01 . ~ .
5004 neg ;1e69 ed 44 . D
5005 l1e6bh:
5006 call out_hex ;1e6b cd 18 02 . . .
5007 ld a,')' ;1e6e 3e 29 > )
5008 jp outchar ;1e70 c3 5d 02 . ] .
5009 l1e73h:
5010 ld hl,t_BCDEHL_HL_A ;1e73 21 96 1f ! . .
5011 jr l1eaah ;1e76 18 32 . 2
5012
5013 b_1e78_start:
5014 DC '(IX'
5015 l1e7bh:
5016 DC '(IY'
5017 l1e7eh:
5018 ld a,(isprefix_ixiy) ;1e7e 3a f8 1f : . .
5019 ld hl,t_HL.IX.IY ;1e81 21 c6 1f ! . .
5020 jr l1eaah ;1e84 18 24 . $
5021 l1e86h:
5022 ld hl,t_BC.DE.HL.AF ;1e86 21 ab 1f ! . .
5023 jr l1e8eh ;1e89 18 03 . .
5024 l1e8bh:
5025 ld hl,t_BC.DE.HL.SP ;1e8b 21 a2 1f ! . .
5026 l1e8eh:
5027 ld a,(iy+000h) ;1e8e fd 7e 00 . ~ .
5028 rra ;1e91 1f .
5029 rra ;1e92 1f .
5030 rra ;1e93 1f .
5031 rra ;1e94 1f .
5032 and 003h ;1e95 e6 03 . .
5033 cp 002h ;1e97 fe 02 . .
5034 jr z,l1e7eh ;1e99 28 e3 ( .
5035 jr l1eaah ;1e9b 18 0d . .
5036 l1e9dh:
5037 ld a,(iy+000h) ;1e9d fd 7e 00 . ~ .
5038 sub_1ea0h:
5039 rra ;1ea0 1f .
5040 rra ;1ea1 1f .
5041 rra ;1ea2 1f .
5042 and 007h ;1ea3 e6 07 . .
5043 ld hl,t_tstfl_ZCPS ;1ea5 21 dc 1f ! . .
5044 jr l1eaah ;1ea8 18 00 . .
5045 l1eaah:
5046 ld b,a ;1eaa 47 G
5047 call sub_033dh ;1eab cd 3d 03 . = .
5048 jp pstr ;1eae c3 88 02 . . .
5049
5050 prnt_A_comma:
5051 call prnt_char_A ;1eb1 cd 3d 1d . = .
5052 prnt_char_comma:
5053 ld a,',' ;1eb4 3e 2c > ,
5054 jp outchar ;1eb6 c3 5d 02 . ] .
5055
5056 prnt_mnemonic:
5057 call pstr ;1eb9 cd 88 02 . . .
5058 l1ebch:
5059 call outbl ;1ebc cd 9f 02 . . .
5060 inc c ;1ebf 0c .
5061 ld a,c ;1ec0 79 y
5062 cp 5 ;1ec1 fe 05 . .
5063 jr c,l1ebch ;1ec3 20 f7 .
5064 ret ;1ec5 c9 .
5065
5066 t_MNEMONICS:
5067 DC 'ADC'
5068 DC 'ADD'
5069 DC 'AND'
5070 DC 'BIT'
5071 DC 'CALL'
5072 DC 'CCF'
5073 DC 'CP'
5074 DC 'CPD'
5075 DC 'CPDR'
5076 DC 'CPI'
5077 DC 'CPIR'
5078 DC 'CPL'
5079 DC 'DAA'
5080 DC 'DEC'
5081 DC 'DI'
5082 DC 'DJNZ'
5083 DC 'EI'
5084 DC 'EX'
5085 DC 'EXX'
5086 DC 'HALT'
5087 DC 'IM'
5088 DC 'IN'
5089 DC 'INC'
5090 DC 'IND'
5091 DC 'INDR'
5092 DC 'INI'
5093 DC 'INIR'
5094 DC 'JP'
5095 DC 'JR'
5096 DC 'LD'
5097 DC 'LDD'
5098 DC 'LDDR'
5099 DC 'LDI'
5100 DC 'LDIR'
5101 DC 'NEG'
5102 DC 'NOP'
5103 DC 'OR'
5104 DC 'OTDR'
5105 DC 'OTIR'
5106 DC 'OUT'
5107 DC 'OUTD'
5108 DC 'OUTI'
5109 DC 'POP'
5110 DC 'PUSH'
5111 DC 'RES'
5112 DC 'RET'
5113 DC 'RETI'
5114 DC 'RETN'
5115 DC 'RL'
5116 DC 'RLA'
5117 DC 'RLC'
5118 DC 'RLCA'
5119 DC 'RLD'
5120 DC 'RR'
5121 DC 'RRA'
5122 DC 'RRC'
5123 DC 'RRCA'
5124 DC 'RRD'
5125 DC 'RST'
5126 DC 'SBC'
5127 DC 'SCF'
5128 DC 'SET'
5129 DC 'SLA'
5130 DC 'SRA'
5131 DC 'SRL'
5132 DC 'SUB'
5133 DC 'XOR'
5134 DC 'IN0'
5135 DC 'MLT'
5136 DC 'OTDM'
5137 DC 'OTDMR'
5138 DC 'OTIM'
5139 DC 'OTIMR'
5140 DC 'OUT0'
5141 DC 'SLP'
5142 DC 'TST'
5143 DC 'TSTIO'
5144 DB 0
5145
5146 t_BCDEHL_HL_A:
5147 DC 'B'
5148 DC 'C'
5149 DC 'D'
5150 DC 'E'
5151 DC 'H'
5152 DC 'L'
5153 DC '(HL)'
5154 DC 'A'
5155 DB 0
5156 t_BC.DE.HL.SP:
5157 DC 'BC'
5158 DC 'DE'
5159 DC 'HL'
5160 DC 'SP'
5161 DB 0
5162 t_BC.DE.HL.AF:
5163 DC 'BC'
5164 DC 'DE'
5165 t_HL.AF:
5166 DC 'HL'
5167 DC 'AF'
5168 DB 0
5169 t_BC.DE.IY.SP:
5170 DC 'BC'
5171 DC 'DE'
5172 DC 'IY'
5173 DC 'SP'
5174 DB 0
5175 t_BC.DE.IX.SP:
5176 DC 'BC'
5177 DC 'DE'
5178 DC 'IX'
5179 DC 'SP'
5180 DB 0
5181 t_HL.IX.IY:
5182 DC 'HL'
5183 t_IX.IY:
5184 DC 'IX'
5185 DC 'IY'
5186 DB 0
5187 t_tstfl_ZC:
5188 DC 'NZ'
5189 DC 'Z'
5190 DC 'NC'
5191 DC 'C'
5192 DC 'NE'
5193 DC 'EQ'
5194 DC 'GE'
5195 DC 'LT'
5196 DB 0
5197 t_tstfl_ZCPS:
5198 DC 'NZ'
5199 DC 'Z'
5200 DC 'NC'
5201 DC 'C'
5202 DC 'PO'
5203 DC 'PE'
5204 DC 'P'
5205 DC 'M'
5206 DC 'NE'
5207 DC 'EQ'
5208 DC 'GE'
5209 DC 'LT'
5210 DC 'NV'
5211 DC 'V'
5212 DB 0
5213 t__C_:
5214 DC '(C)'
5215 DB 0
5216
5217 isprefix_ixiy:
5218 db 0 ;1ff8 00 .
5219 last_L:
5220 dw TPA ;1ff9 00 01 .
5221 l1ffbh:
5222 dw 0 ;1ffb 00 00 .
5223 l1ffdh:
5224 db 0 ;1ffd 00 .
5225
5226 sub_1ffeh:
5227 ld hl,(REG.PC) ;1ffe 2a 60 00 * ` .
5228 ld a,h ;2001 7c |
5229 or l ;2002 b5 .
5230 jr z,l2037h ;2003 28 32 ( 2
5231 ld de,BDOS ;2005 11 05 00 . . .
5232 and a ;2008 a7 .
5233 sbc hl,de ;2009 ed 52 . R
5234 ld hl,l20edh ;200b 21 ed 20 ! .
5235 jr z,l2031h ;200e 28 21 ( !
5236 ld iy,(REG.PC) ;2010 fd 2a 60 00 . * ` .
5237 call disas_get_instrlen ;2014 cd 8c 19 . . .
5238 jp nc,ERROR ;2017 d2 07 01 . . .
5239 ld c,b ;201a 48 H
5240 ld b,000h ;201b 06 00 . .
5241 ld hl,(REG.PC) ;201d 2a 60 00 * ` .
5242 add hl,bc ;2020 09 .
5243 call sub_09cah ;2021 cd ca 09 . . .
5244 ld iy,(REG.PC) ;2024 fd 2a 60 00 . * ` .
5245 ld hl,b_2039_start ;2028 21 39 20 ! 9
5246 call lookup_opc ;202b cd 97 1a . . .
5247 ccf ;202e 3f ?
5248 ret c ;202f d8 .
5249 ex de,hl ;2030 eb .
5250 l2031h:
5251 call CALL_HL ;2031 cd 0f 01 . . .
5252 call c,sub_09cah ;2034 dc ca 09 . . .
5253 l2037h:
5254 scf ;2037 37 7
5255 ret ;2038 c9 .
5256
5257 b_2039_start:
5258 db 0ffh,0ddh,000h
5259 dw l20a7h
5260 db 0ffh,0fdh,000h
5261 dw l20ach
5262 db 0ffh,0edh,000h
5263 dw l20b8h
5264
5265 b_2048_start:
5266 db 0ffh,0cdh,000h
5267 dw l2080h
5268 db 0ffh,0c3h,000h
5269 dw l208bh
5270 db 0ffh,0e9h,000h
5271 dw l20a2h
5272 db 0ffh,0c9h,000h
5273 dw l20dch
5274 db 0ffh,0cfh,000h
5275 dw l2115h
5276 db 0c7h,0c7h,000h
5277 dw l20f9h
5278 db 0c7h,0c4h,000h
5279 dw l2080h
5280 db 0f7h,010h,000h
5281 dw l2093h
5282 db 0e7h,020h,000h
5283 dw l2093h
5284 db 0c7h,0c2h,000h
5285 dw l208bh
5286 db 0c7h,0c0h,000h
5287 dw l20c5h
5288 db 0
5289
5290 l2080h:
5291 ld a,(b_21e2_start) ;2080 3a e2 21 : . !
5292 and a ;2083 a7 .
5293 jr nz,l208bh ;2084 20 05 .
5294 ld a,(trace_call_flag) ;2086 3a e3 21 : . !
5295 and a ;2089 a7 .
5296 ret nz ;208a c0 .
5297 l208bh:
5298 ld l,(iy+001h) ;208b fd 6e 01 . n .
5299 ld h,(iy+002h) ;208e fd 66 02 . f .
5300 scf ;2091 37 7
5301 ret ;2092 c9 .
5302 l2093h:
5303 ld c,(iy+001h) ;2093 fd 4e 01 . N .
5304 ld a,c ;2096 79 y
5305 rla ;2097 17 .
5306 sbc a,a ;2098 9f .
5307 ld b,a ;2099 47 G
5308 ld hl,(REG.PC) ;209a 2a 60 00 * ` .
5309 add hl,bc ;209d 09 .
5310 inc hl ;209e 23 #
5311 inc hl ;209f 23 #
5312 scf ;20a0 37 7
5313 ret ;20a1 c9 .
5314 l20a2h:
5315 ld hl,(reg.l) ;20a2 2a 5a 00 * Z .
5316 scf ;20a5 37 7
5317 ret ;20a6 c9 .
5318 l20a7h:
5319 ld hl,(reg.ix) ;20a7 2a 52 00 * R .
5320 jr l20afh ;20aa 18 03 . .
5321 l20ach:
5322 ld hl,(reg.iy) ;20ac 2a 50 00 * P .
5323 l20afh:
5324 ld a,(iy+001h) ;20af fd 7e 01 . ~ .
5325 cp 0e9h ;20b2 fe e9 . .
5326 scf ;20b4 37 7
5327 ret z ;20b5 c8 .
5328 and a ;20b6 a7 .
5329 ret ;20b7 c9 .
5330 l20b8h:
5331 ld a,(iy+001h) ;20b8 fd 7e 01 . ~ .
5332 cp 04dh ;20bb fe 4d . M
5333 jr z,l20dch ;20bd 28 1d ( .
5334 cp 045h ;20bf fe 45 . E
5335 jr z,l20dch ;20c1 28 19 ( .
5336 and a ;20c3 a7 .
5337 ret ;20c4 c9 .
5338 l20c5h:
5339 ld a,(iy+000h) ;20c5 fd 7e 00 . ~ .
5340 ld (l20d7h),a ;20c8 32 d7 20 2 .
5341 ld hl,(reg.f) ;20cb 2a 54 00 * T .
5342 push hl ;20ce e5 .
5343 pop af ;20cf f1 .
5344 call l20d7h ;20d0 cd d7 20 . .
5345 scf ;20d3 37 7
5346 jr c,l20dch ;20d4 38 06 8 .
5347 ret ;20d6 c9 .
5348 l20d7h:
5349 nop ;20d7 00 .
5350 and a ;20d8 a7 .
5351 pop hl ;20d9 e1 .
5352 inc hl ;20da 23 #
5353 jp (hl) ;20db e9 .
5354
5355 l20dch:
5356 ld a,(b_21e2_start) ;20dc 3a e2 21 : . !
5357 and a ;20df a7 .
5358 jr nz,l20edh ;20e0 20 0b .
5359 ld a,(trace_call_flag) ;20e2 3a e3 21 : . !
5360 and a ;20e5 a7 .
5361 jr z,l20edh ;20e6 28 05 ( .
5362 call l20edh ;20e8 cd ed 20 . .
5363 pop hl ;20eb e1 .
5364 ret ;20ec c9 .
5365 l20edh:
5366 ld hl,(reg_sp) ;20ed 2a 5c 00 * \ .
5367 ld e,(hl) ;20f0 5e ^
5368 inc hl ;20f1 23 #
5369 ld d,(hl) ;20f2 56 V
5370 ex de,hl ;20f3 eb .
5371 call sub_09cah ;20f4 cd ca 09 . . .
5372 and a ;20f7 a7 .
5373 ret ;20f8 c9 .
5374
5375 l20f9h:
5376 ld a,(l0003h) ;20f9 3a 03 00 : . .
5377 cp (iy+000h) ;20fc fd be 00 . . .
5378 ret z ;20ff c8 .
5379 ld a,(iy+000h) ;2100 fd 7e 00 . ~ .
5380 and 038h ;2103 e6 38 . 8
5381 ld l,a ;2105 6f o
5382 ld h,000h ;2106 26 00 & .
5383 ld a,(b_21e2_start) ;2108 3a e2 21 : . !
5384 and a ;210b a7 .
5385 jr nz,l2113h ;210c 20 05 .
5386 ld a,(trace_call_flag) ;210e 3a e3 21 : . !
5387 and a ;2111 a7 .
5388 ret nz ;2112 c0 .
5389 l2113h:
5390 scf ;2113 37 7
5391 ret ;2114 c9 .
5392 l2115h:
5393 and a ;2115 a7 .
5394 ret ;2116 c9 .
5395 cmd_C:
5396 ld hl,cmd_C ;2117 21 17 21 ! . !
5397 ld a,001h ;211a 3e 01 > .
5398 jr l2122h ;211c 18 04 . .
5399 cmd_T:
5400 xor a ;211e af .
5401 ld hl,cmd_T ;211f 21 1e 21 ! . !
5402 l2122h:
5403 ld (cmd_rpt),hl ;2122 22 68 00 " h .
5404 ld (trace_call_flag),a ;2125 32 e3 21 2 . !
5405 ld a,(de) ;2128 1a .
5406 sub 'N' ;2129 d6 4e . N
5407 jr nz,l212eh ;212b 20 01 .
5408 inc de ;212d 13 .
5409 l212eh:
5410 ld (trace_N_flag),a ;212e 32 e7 21 2 . !
5411 ld a,(de) ;2131 1a .
5412 sub 'J' ;2132 d6 4a . J
5413 jr nz,l2137h ;2134 20 01 .
5414 inc de ;2136 13 .
5415 l2137h:
5416 ld (trace_J_flag),a ;2137 32 e8 21 2 . !
5417 call sub_21a6h ;213a cd a6 21 . . !
5418 jr z,l2145h ;213d 28 06 ( .
5419 ld hl,1 ;213f 21 01 00 ! . .
5420 call get_lastarg_def ;2142 cd 69 03 . i .
5421 l2145h:
5422 ld (trace_count),hl ;2145 22 e5 21 " . !
5423 sub a ;2148 97 .
5424 ld (l0941h),a ;2149 32 41 09 2 A .
5425 l214ch:
5426 call sub_1ffeh ;214c cd fe 1f . . .
5427 jr l21a3h ;214f 18 52 . R
5428
5429 l2151h:
5430 call bp_clr_temporary ;2151 cd 54 07 . T .
5431 ld a,(trace_J_flag) ;2154 3a e8 21 : . !
5432 and a ;2157 a7 .
5433 jr nz,l216bh ;2158 20 11 .
5434 ld iy,(REG.PC) ;215a fd 2a 60 00 . * ` .
5435 call sub_21c8h ;215e cd c8 21 . . !
5436 jr z,l216bh ;2161 28 08 ( .
5437 ld hl,b_2048_start ;2163 21 48 20 ! H
5438 call lookup_opc ;2166 cd 97 1a . . .
5439 jr nc,l214ch ;2169 30 e1 0 .
5440 l216bh:
5441 ld a,(trace_UW_flag) ;216b 3a e4 21 : . !
5442 and a ;216e a7 .
5443 jr z,l2188h ;216f 28 17 ( .
5444 ld de,(trace_count) ;2171 ed 5b e5 21 . [ . !
5445 call expr ;2175 cd be 03 . . .
5446 ld a,h ;2178 7c |
5447 or l ;2179 b5 .
5448 add a,0ffh ;217a c6 ff . .
5449 sbc a,a ;217c 9f .
5450 ld hl,trace_UW_flag ;217d 21 e4 21 ! . !
5451 xor (hl) ;2180 ae .
5452 bit 1,a ;2181 cb 4f . O
5453 jr z,l2193h ;2183 28 0e ( .
5454 l2185h:
5455 jp l0902h ;2185 c3 02 09 . . .
5456 l2188h:
5457 ld hl,(trace_count) ;2188 2a e5 21 * . !
5458 dec hl ;218b 2b +
5459 ld (trace_count),hl ;218c 22 e5 21 " . !
5460 ld a,h ;218f 7c |
5461 or l ;2190 b5 .
5462 jr z,l2185h ;2191 28 f2 ( .
5463 l2193h:
5464 call sub_1ffeh ;2193 cd fe 1f . . .
5465 jr nc,l2185h ;2196 30 ed 0 .
5466 ld a,(trace_N_flag) ;2198 3a e7 21 : . !
5467 ld b,a ;219b 47 G
5468 ld a,(l0941h) ;219c 3a 41 09 : A .
5469 or b ;219f b0 .
5470 ld (l0941h),a ;21a0 32 41 09 2 A .
5471 l21a3h:
5472 jp user_go ;21a3 c3 25 0a . % .
5473
5474 sub_21a6h:
5475 call skipbl ;21a6 cd bf 02 . . .
5476 xor a ;21a9 af .
5477 ld (trace_UW_flag),a ;21aa 32 e4 21 2 . !
5478 ld a,(de) ;21ad 1a .
5479 cp 'U' ;21ae fe 55 . U
5480 jr z,l21b5h ;21b0 28 03 ( .
5481 cp 'W' ;21b2 fe 57 . W
5482 ret nz ;21b4 c0 .
5483 l21b5h:
5484 inc de ;21b5 13 .
5485 push af ;21b6 f5 .
5486 push de ;21b7 d5 .
5487 call expr ;21b8 cd be 03 . . .
5488 jp c,ERROR ;21bb da 07 01 . . .
5489 call assert_eol ;21be cd d6 02 . . .
5490 pop hl ;21c1 e1 .
5491 pop af ;21c2 f1 .
5492 ld (trace_UW_flag),a ;21c3 32 e4 21 2 . !
5493 sub a ;21c6 97 .
5494 ret ;21c7 c9 .
5495
5496 sub_21c8h:
5497 ld a,(iy+000h) ;21c8 fd 7e 00 . ~ .
5498 cp 0edh ;21cb fe ed . .
5499 jr z,l21dah ;21cd 28 0b ( .
5500 and 0dfh ;21cf e6 df . .
5501 cp 0ddh ;21d1 fe dd . .
5502 ret nz ;21d3 c0 .
5503 ld a,(iy+001h) ;21d4 fd 7e 01 . ~ .
5504 cp 0e9h ;21d7 fe e9 . .
5505 ret ;21d9 c9 .
5506 l21dah:
5507 ld a,(iy+001h) ;21da fd 7e 01 . ~ .
5508 and 0f7h ;21dd e6 f7 . .
5509 cp 045h ;21df fe 45 . E
5510 ret ;21e1 c9 .
5511
5512 b_21e2_start:
5513 db 0 ;21e2 00 .
5514 trace_call_flag:
5515 db 0 ;1=call, 0=trace 21e3 00 .
5516 trace_UW_flag:
5517 db 0 ;0 or 'U' or 'W' 21e4 00 .
5518 trace_count:
5519 dw 0 ;21e5 00 00 .
5520 trace_N_flag:
5521 db 0 ;0 if 'N' 21e7 00 .
5522 trace_J_flag:
5523 db 0 ;0 if 'J' 21e8 00 .
5524
5525 ddtz_size equ $-ddtz_base
5526 ddtz_end:
5527
5528 ;-------------------------------------------------------------------------------
5529
5530 end
DDT/Z [8101] with symbolic debugging and support for the additional 64180/Z180 instructions