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