; ; reverse engineer of dbug.com [ZDT] ; cr equ 0dh lf equ 0ah sq equ 27h ; org 100h ; LD SP,ourstk LD HL,(6) LD (239H),HL LD DE,prog LD BC,12H LDIR LD HL,(1) INC HL INC HL INC HL LD BC,27H LDIR LD HL,(6) LD DE,relomp-prog XOR A LD L,A PUSH HL SBC HL,DE LD (6),HL LD HL,prog LD DE,relomp LD B,0 mvloop: LD A,(DE) CP 0FFH JR Z,mvdone LD C,A ADD HL,BC CP 80H JR Z,mvskip LD A,(7) ADD A,(HL) LD (HL),A mvskip: INC DE JR mvloop mvdone: POP DE DEC DE LD HL,relomp-1 LD BC,relomp-prog LDDR LD HL,(6) LD L,3bh JP (HL) db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0 db 0dfh,6,9 ourstk: db 80h prog: db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0 LD DE,0EC9H LD C,9 CALL 0 LD SP,0F00H LD HL,0C5FH LD (31H),HL LD A,0C3H LD (30H),A CALL 165H LD A,'M' CALL 122H LD A,'>' CALL 122H LD HL,7AH CALL 0C9H CP 60H JR C,26AH SUB ' ' SUB 'A' JR C,2B7H CP 1AH JR NC,2B7H ADD A,A ADD A,L LD L,A LD E,(HL) INC HL LD D,(HL) PUSH DE RET dw 47fh dw 0aeh dw 293h dw 3b9h dw 2c7h dw 2fah dw 0da2h dw 3fah dw 377h dw 2beh dw 4c2h dw 0a74h dw 272h dw 217h dw 386h dw 392h dw 4a8h dw 520h dw 582h dw 431h dw 0bf5h dw 0c3fh dw 527h dw 0cd9h dw 0b7h dw 263h LD HL,(39H) LD (6),HL JP 0 LD A,'?' CALL 122H JR 251H PUSH BC PUSH HL PUSH DE CALL 12H OR A POP DE POP HL POP BC RET PUSH BC PUSH HL PUSH DE CALL 15H AND 7FH CP 3 JR Z,31BH CP 13H JR NZ,2DEH CALL 15H JR 2CCH CP 10H JR NZ,2EBH LD A,(11FH) CPL LD (11FH),A JR 2CCH CP 8 JR Z,31BH CP 7FH JR NZ,2F5H JR 2F9H CP 5FH JR NZ,2FDH LD A,8 JR 31BH CP 0AH JR Z,309H CP 0DH JR Z,309H CP 20H JR C,31BH LD C,A PUSH AF CALL 18H LD A,(11FH) OR A JR Z,31AH POP AF PUSH AF LD C,A CALL 1BH POP AF POP DE POP HL POP BC RET db 0 db '> ' PUSH BC PUSH HL PUSH DE PUSH AF LD C,A CALL 18H LD A,(11FH) OR A JR Z,336H POP AF PUSH AF LD C,A CALL 1BH POP AF POP DE POP HL POP BC RET CALL 0BEH JR Z,362H PUSH BC PUSH DE PUSH HL CALL 15H AND 7FH CP 3 JP Z,43H CP 13H JR Z,355H CP ' ' JR NZ,35FH CALL 15H AND 7FH CP 3 JP Z,43H POP HL POP DE POP BC LD A,0DH RET CALL 13BH CALL 122H LD A,lf JR 322H CALL 179H CALL 0C9H CP 8 JR NZ,388H LD A,8 CALL 122H CALL 120H LD A,8 CALL 122H OR A RET CP ' ' JR Z,3E7H JP C,43H CP '_' JR C,395H AND 5FH CP '0' JR C,36FH CP ':' JR C,3B0H CP '`' JR C,3A3H SUB ' ' CP 'A' JR C,36FH CP 'G' CCF JR C,36FH JR C,3B0H SUB 7 AND 0FH CP 10H RET CALL 0C9H CP 8 JR Z,37EH CP ' ' CCF RET NC JR 38FH CALL 120H CALL 1B5H JR 3DAH CALL 254H CALL 1D4H JP NC,43H RET CALL 120H CALL 172H RET NC RET Z RLCA RLCA RLCA RLCA LD B,A CALL 172H JR NC,3D7H OR B SCF RET CALL 120H CALL 172H JP NC,43H RLCA RLCA RLCA RLCA LD B,A CALL 172H JR NC,3ECH OR B LD D,A CALL 172H JR NC,3F7H RLCA RLCA RLCA RLCA LD C,A CALL 172H JR NC,3FEH OR C LD E,A PUSH HL LD HL,(22CH) ADD HL,DE EX DE,HL POP HL RET LD HL,0 LD (22CH),HL CALL 1E9H LD HL,100H XOR A SBC HL,DE LD (22CH),HL JP 43H db 0,0 PUSH HL PUSH DE LD DE,(22CH) XOR A SBC HL,DE POP DE LD A,H CALL 23EH LD A,L POP HL PUSH AF RRCA RRCA RRCA RRCA CALL 247H POP AF AND 0FH OR 30H CP ':' JR C,451H ADD A,7 JP 122H CALL 1E9H EX DE,HL CALL 1E9H EX DE,HL SBC HL,DE NOP JP C,43H RET CALL 1CAH LD B,H LD C,L LD H,D LD L,E LD (HL),A DEC BC INC DE LDIR JP 43H CALL 254H EX DE,HL PUSH DE CALL 1E9H POP BC PUSH HL SBC HL,DE POP HL JR C,486H LDIR JP 43H ADD HL,BC PUSH HL EX DE,HL ADD HL,BC EX DE,HL POP HL DEC HL DEC DE LDDR JP 43H CALL 254H PUSH HL EX DE,HL CALL 1E9H POP BC LD A,(DE) CP (HL) JR Z,4B4H CALL 165H CALL 22EH CALL 120H LD A,(HL) CALL 23EH CALL 120H LD A,(DE) CALL 23EH INC HL INC DE DEC BC LD A,B OR C JR NZ,49CH JP 43H CALL 1E9H LD HL,43H PUSH HL EX DE,HL JP (HL) CALL 254H EX DE,HL LD B,D LD C,E PUSH HL PUSH BC CALL 120H LD DE,345H LD C,lf CALL 0 LD A,(346H) OR A JP Z,43H XOR A LD (358H),A CALL 165H POP BC POP HL LD DE,347H CALL 31BH LD A,B OR C JP Z,43H CALL 359H JR 4EAH CALL 254H EX DE,HL LD B,D LD C,E PUSH HL PUSH BC LD DE,346H XOR A LD (DE),A INC DE CALL 1C2H JR NC,519H LD (DE),A LD A,(346H) INC A LD (346H),A CP 10H JR NZ,507H JR 4DAH LD A,B OR C RET Z PUSH DE LD A,(DE) CP (HL) JR Z,528H INC HL DEC BC POP DE JR 51BH PUSH HL PUSH BC LD A,(346H) DEC A JR Z,539H LD B,A INC HL INC DE LD A,(DE) CP (HL) JR NZ,53EH DJNZ 531H POP BC POP HL DEC BC POP DE RET POP BC POP HL POP DE INC HL DEC BC JR 51BH DJNZ 547H NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP CALL 22EH INC HL LD A,(358H) CP 0CH JR NC,56FH INC A LD (358H),A CALL 120H CALL 120H RET XOR A LD (358H),A CALL 165H RET CALL 1CDH LD C,A CALL 120H IN A,(C) CALL 23EH JP 43H CALL 1CDH LD C,A CALL 1CDH OUT (C),A JP 43H CALL 1E9H EX DE,HL DEC HL CALL 165H INC HL CALL 22EH CALL 120H LD A,(HL) CALL 23EH CALL 1D4H JR NC,5AFH JR Z,5B3H LD (HL),A JR 597H DEC HL DEC HL JR 597H CP ' ' JR Z,597H JR 5ACH CALL 254H DEC HL EX DE,HL CALL 165H CALL 22EH PUSH HL LD B,10H CALL 120H LD A,(HL) CALL 23EH INC HL DJNZ 5C7H LD B,10H POP HL CALL 120H LD A,(HL) AND 7FH CP ' ' JR NC,5F4H LD A,'.' CALL 122H INC HL DJNZ 5D7H XOR A PUSH HL LD H,A LD L,10H EX DE,HL SBC HL,DE POP DE JR NC,5BDH JP 43H CP 7FH JR NZ,5E0H JR 5DEH CALL 1E9H EX DE,HL CALL 1E9H CALL 120H LD A,'+' CALL 122H PUSH HL ADD HL,DE PUSH DE LD DE,(22CH) XOR A SBC HL,DE CALL 22EH CALL 120H LD A,'-' CALL 122H POP DE POP HL XOR A SBC HL,DE LD DE,(22CH) EX DE,HL XOR A SBC HL,DE CALL 22EH JP 43H CALL 254H LD A,D ADD A,H LD E,A LD C,0 LD H,D LD L,0 LD (HL),C INC HL LD A,H CP E JR NZ,63CH LD H,D LD L,0 LD A,(HL) CP C JR NZ,669H INC HL LD A,H CP E JR NZ,645H SCF RL C JR NC,639H LD A,'*' CALL 122H CALL 0BEH JR Z,637H CALL 0C9H OR 80H CP 83H JR NZ,637H JP 43H CALL 165H CALL 22EH CALL 120H LD A,C CALL 23EH CALL 120H LD A,(HL) CALL 23EH JR 649H CALL 1E9H CALL 165H EX DE,HL CALL 0C9H CP 3 JR Z,699H CP 8 JR Z,6A2H CP 7FH JR Z,6A2H LD (HL),A INC HL JR 686H CALL 165H CALL 22EH JP 43H DEC HL CALL 179H JR 686H CALL 254H CALL 165H LD A,(DE) AND 7FH CP 0DH CALL Z,13BH CALL 122H INC DE DEC HL LD A,H OR L JR NZ,6AEH JP 43H CALL 165H CALL 0C9H CP 3 JP Z,43H CP 8 CALL Z,179H JR 6C5H CALL 120H CALL 0C9H CP '`' JR C,6E0H SUB ' ' SUB 'A' JP C,43H CP 4 JP NC,43H LD C,A CALL 27H CALL 1CDH CCF JP C,43H LD B,A PUSH BC CALL 1CDH CCF JP C,43H LD C,A LD E,A CALL 2AH CALL 1CDH CCF JP C,43H LD C,A LD D,A PUSH DE CALL 2DH CALL 1E9H LD B,D LD C,E LD H,B LD L,C CALL 30H POP DE POP BC LD A,B ADD A,B LD B,A RET CALL 4D4H LD C,0 JR 72CH CALL 4D4H LD C,1 PUSH BC PUSH DE LD DE,80H ADD HL,DE PUSH HL LD A,C OR A JR Z,73CH CALL 36H JR 73FH CALL 33H JR NZ,765H POP HL LD B,H LD C,L CALL 30H POP DE INC D LD A,1AH CP D JR NC,755H LD D,1 INC E LD C,E CALL 2AH LD C,D CALL 2DH POP BC DJNZ 72CH LD BC,80H CALL 30H JP 43H POP HL POP DE POP BC LD DE,0E27H XOR A OR C JR Z,773H LD A,E ADD A,8 LD E,A LD C,9 CALL 0 LD DE,0E37H LD C,9 CALL 0 JR 75CH CALL 1E9H EX DE,HL CALL 1E9H PUSH DE CALL 165H POP DE PUSH DE XOR A EX DE,HL SBC HL,DE JP C,43H EX DE,HL LD A,(HL) CP 0CBH JP Z,7B9H CP 0EDH JP Z,864H CP 0DDH JP Z,809H CP 0FDH JR NZ,7AFH SCF JP 809H CP 40H JP C,6DCH CP 80H JP C,6AEH CP 0C0H JP C,68CH PUSH AF AND 0FH CP 3 JP Z,799H CP 0BH JP Z,799H CP 0DH JP Z,799H CP 9 JP Z,799H CP 1 JR Z,826H CP 5 JR Z,846H AND 7 JR Z,815H CP 2 JR Z,84CH CP 4 JP Z,65DH CP 6 JP Z,663H POP AF LD BC,1BCH PUSH HL LD H,0 RRCA RRCA RRCA AND 7 CP 2 JR NC,80AH OR A JR NZ,806H LD L,30H JR 80EH LD L,'8' JR 80EH ADD A,A ADD A,50H LD L,A LD (924H),HL POP HL JP 926H POP AF LD BC,1C8H PUSH HL CALL 67FH LD H,0 LD (924H),HL POP HL JP 926H POP AF LD BC,1B8H PUSH HL RRCA RRCA RRCA RRCA AND 3 CP 3 JR Z,83BH ADD A,A ADD A,40H LD L,A JR 83DH LD L,66H LD H,0 LD (924H),HL POP HL JP 926H POP AF LD BC,1B4H JR 82AH POP AF LD BC,3C0H PUSH HL CALL 67FH LD H,69H LD (924H),HL POP HL JP 926H POP AF LD BC,3C4H JR 850H POP AF LD B,2 PUSH HL LD HL,68H LD (924H),HL CALL 675H LD C,A POP HL JP 926H RRCA RRCA RRCA AND 7 ADD A,A ADD A,A ADD A,20H RET RRCA RRCA RRCA AND 7 LD HL,1000H ADD A,70H LD L,A LD L,(HL) RET PUSH HL PUSH AF LD B,1 CALL 6A2H LD H,0 LD L,A POP AF CALL 675H LD C,A LD (924H),HL POP HL JP 926H AND 7 CP 6 JR NZ,8ABH LD A,10H RET ADD A,20H RET CP 76H JR NZ,8C0H LD BC,1A0H PUSH HL LD HL,0 LD (924H),HL POP HL JP 926H LD BC,108H PUSH HL PUSH AF AND 7 CALL 6A2H LD H,A POP AF RRCA RRCA RRCA AND 7 CALL 6A2H LD L,A LD (924H),HL POP HL JP 926H PUSH AF AND 7 CP 0 JP Z,799H CP 2 JP Z,799H CP 1 JR Z,96BH CP 3 JR Z,932H CP 4 JR Z,915H CP 5 JR Z,92DH CP 6 JR Z,954H POP AF LD B,1 PUSH HL LD HL,0 LD (924H),HL RRCA RRCA RRCA AND 7 ADD A,A ADD A,A ADD A,60H LD C,A POP HL JP 926H POP AF LD C,0CH LD B,1 PUSH HL RRCA RRCA RRCA AND 7 CALL 6A2H LD L,A LD H,0 LD (924H),HL POP HL JP 926H POP AF LD C,10H JR 918H POP AF LD B,1 RRCA RRCA RRCA RRCA PUSH AF AND 3 PUSH HL ADD A,A ADD A,40H LD L,A LD H,0 LD (924H),HL POP HL POP AF JR NC,94FH LD C,10H JP 926H LD C,0CH JP 926H POP AF LD BC,208H PUSH HL RRCA RRCA RRCA AND 7 CALL 6A2H LD L,A LD H,68H LD (924H),HL POP HL JP 926H POP AF RRCA RRCA RRCA RRCA JR C,985H LD BC,308H PUSH HL AND 3 ADD A,A ADD A,40H LD L,A LD H,69H LD (924H),HL POP HL JP 926H LD B,1 LD C,' ' AND 3 PUSH HL ADD A,A ADD A,40H LD H,A LD L,'D' LD (924H),HL POP HL JP 926H POP AF AND 3FH LD B,A ADD A,A ADD A,B PUSH HL LD HL,1100H LD L,A LD A,(HL) PUSH AF AND 3 LD B,A POP AF AND 0FCH LD C,A INC HL LD A,(HL) INC HL LD H,(HL) LD L,A LD (924H),HL POP HL JP 926H PUSH HL INC HL LD A,(HL) CP 40H JP C,7ECH CP 80H JR NC,9C9H LD C,80H JR 9D3H CP 0C0H JR NC,9D1H LD C,84H JR 9D3H LD C,88H LD B,2 PUSH AF AND 7 CALL 6A2H LD H,A POP AF RRCA RRCA RRCA AND 7 ADD A,'0' LD L,A LD (924H),HL POP HL JP 926H LD B,2 PUSH AF AND 7 CALL 6A2H LD L,A LD H,0 LD (924H),HL POP AF RRCA RRCA RRCA AND 7 ADD A,A ADD A,A ADD A,40H LD C,A POP HL JP 926H PUSH HL PUSH AF INC HL LD A,(HL) CP 0CBH JP Z,8D4H CP 40H JR C,0A68H CP 0C0H JR NC,0A68H CP 80H JR C,0A3CH LD B,3 RRCA RRCA RRCA AND 7 ADD A,A ADD A,A ADD A,20H LD C,A LD H,0 POP AF JR C,0A33H LD L,6BH JR 0A35H LD L,'l' LD (924H),HL POP HL JP 926H LD B,3 LD C,8 CP 'x' JR NC,0A50H CP 'p' JR C,0A50H AND 7 CALL 6A2H LD H,A JR 0A2CH RRCA RRCA RRCA AND 7 CALL 6A2H LD L,A POP AF JR C,0A60H LD H,'k' JR 0A35H LD H,'l' JR 0A35H PUSH HL XOR A PUSH AF INC HL LD E,(HL) LD D,0 LD HL,1200H ADD HL,DE ADD HL,DE ADD HL,DE LD A,(HL) CP 0E0H JR C,0A7FH LD B,2 LD C,A LD HL,0 POP AF JR 0A8FH PUSH AF AND 3 LD B,A POP AF AND 0FCH LD C,A INC HL LD A,(HL) INC HL LD H,(HL) LD L,A POP AF JR C,0A96H LD (924H),HL POP HL JP 926H LD A,L CP 'k' JR NZ,0A9EH INC L JR 0A8FH CP 'm' JR NZ,0AA5H INC L JR 0A8FH CP 'H' JR NZ,0AADH LD L,'J' JR 0AB5H CP 14H JR NZ,0AB5H LD L,18H JR 0A8FH LD A,H CP 'k' JR NZ,0ABDH INC H JR 0A8FH CP 'm' JR NZ,0AC4H INC H JR 0A8FH CP 'H' JR NZ,0ACCH LD H,'J' JR 0A8FH CP 14H JR NZ,0A8FH LD H,18H JR 0A8FH LD B,0 INC HL INC HL LD A,(HL) CP 40H JR C,0B08H POP AF JR C,0AE4H LD D,'m' JR 0AE6H LD D,'n' LD A,(HL) RRCA RRCA RRCA AND 7 ADD A,'0' LD E,A LD A,(HL) EX DE,HL CP 80H JR NC,0AFAH LD C,80H JP 835H CP 0C0H JR NC,0B03H LD C,84H JP 835H LD C,88H JP 835H POP AF EX DE,HL JR C,0B10H LD L,'m' JR 0B12H LD L,'n' LD H,0 EX DE,HL LD A,(HL) RRCA RRCA RRCA AND 7 ADD A,A ADD A,A ADD A,40H LD C,A EX DE,HL JP 835H db 0,0 CALL 22EH CALL 120H CALL 120H LD A,B OR A JR NZ,0B35H LD B,4 LD A,4 SUB B PUSH AF LD A,(HL) INC HL CALL 23EH CALL 120H DJNZ 0B39H POP AF JR Z,0B4FH LD B,A ADD A,B ADD A,B LD B,A CALL 120H DJNZ 0B4AH CALL 120H LD B,4 PUSH HL LD A,C CP 0E0H JR NC,0B60H LD HL,0F00H LD L,C JR 0B69H AND 0FH ADD A,A ADD A,A LD HL,1080H ADD A,L LD L,A LD A,(HL) INC HL CALL 122H DJNZ 0B69H CALL 120H LD HL,(924H) LD A,L OR A JR Z,0B8AH CALL 98EH LD A,H OR A JR Z,0B8AH LD A,',' CALL 122H LD A,H CALL 98EH POP HL JP 58AH PUSH HL CP ' ' JR C,0BB6H CP 40H JR C,0BB2H CP 60H JR C,0BAEH CP 'e' JR NC,0BBAH LD B,3 LD HL,1000H LD L,A LD A,(HL) CALL 122H INC HL DJNZ 0BA5H POP HL RET LD B,2 JR 0BA1H LD B,1 JR 0BA1H LD B,4 JR 0BA1H CP 'f' JR NZ,0BCAH LD A,'A' CALL 122H LD A,'F' CALL 122H POP HL RET POP DE POP BC POP HL DEC HL CP 'h' JR NZ,0BDBH LD A,(HL) CALL 23EH INC HL PUSH HL PUSH BC EX DE,HL RET CP 'i' JR NZ,0BE4H CALL 0A41H JR 0BD6H CP 'j' JR NZ,0BFFH LD A,'*' CALL 122H LD A,(HL) PUSH HL CALL 0A36H PUSH DE CALL 22EH POP DE POP HL LD A,'*' CALL 122H JR 0BD6H CP 'k' JR NZ,0C08H CALL 0A51H JR 0BD6H CP 'l' JR NZ,0C11H CALL 0A6BH JR 0BD6H CP 'm' JR NZ,0C1CH DEC HL CALL 0A51H INC HL JR 0BD6H CP 'n' JR NZ,0C27H DEC HL CALL 0A6BH INC HL JR 0BD6H LD A,'(' CALL 122H CALL 0A41H LD A,')' CALL 0122H JR 0BD6H INC HL CP 80H JP NC,0A4CH ADD A,L LD L,A RET NC INC H RET LD A,(HL) CALL 023EH DEC HL LD A,(HL) CALL 023EH INC HL RET ADD A,L LD L,A RET C DEC H RET PUSH HL LD HL,1004H PUSH BC LD B,4 LD A,(HL) INC HL CALL 122H DJNZ 0C58H POP BC POP HL LD A,(HL) CALL 23EH LD A,')' CALL 122H RET PUSH HL LD HL,103CH PUSH BC LD B,4 JR 0C58H CALL 120H LD DE,0BD9H LD H,D LD L,E LD B,1AH LD (HL),0 INC HL DJNZ 0C7EH LD A,18H LD (DE),A LD C,0AH CALL 0 LD HL,0BB8H LD B,21H LD (HL),0 INC HL DJNZ 0C90H LD A,(0BDAH) OR A JR Z,0CD5H CP 1AH JR Z,0CCEH LD A,(0BDCH) LD HL,0BDBH CP ':' CALL Z,0B01H LD DE,0BB9H LD B,8 LD A,(HL) CP '`' JR C,0CB6H SUB ' ' CP '.' JR Z,0D1FH OR A JR Z,0D13H LD (DE),A INC HL INC DE DJNZ 0CAFH LD A,(HL) CP '.' JR Z,0D1FH OR A JR Z,0D13H CP ' ' JR Z,0D13H LD E,0DH LD C,2 CALL 0 LD E,0AH LD C,2 CALL 0 LD HL,0BDAH LD B,(HL) LD A,B INC HL JR 0CE5H LD A,(HL) OR A JR Z,0CEBH INC HL DJNZ 0CE5H LD (HL),'?' INC HL LD (HL),cr INC HL LD (HL),lf INC HL LD (HL),'$' LD C,9 LD DE,0BDBH CALL 0 JP 43H LD A,(HL) CP '`' JR C,0D08H SUB ' ' INC HL INC HL SUB 'A' AND 3 INC A LD (0BB8H),A RET LD A,B ADD A,3 LD B,A EX DE,HL LD (HL),' ' INC HL DJNZ 0D18H JR 0D38H LD A,B EX DE,HL INC DE OR A JR Z,0D2AH LD (HL),' ' INC HL DJNZ 0D25H LD B,3 LD A,(DE) CP '`' JR C,0D33H SUB ' ' LD (HL),A INC HL INC DE DJNZ 0D2CH LD A,(DE) EX DE,HL LD DE,100H PUSH DE OR A JR Z,0D6EH LD DE,0 INC HL LD A,(HL) OR A JR Z,0D6CH SUB '0' JR C,0D6EH CP lf JR C,0D5DH CP '0' JR C,0D57H SUB ' ' SUB 7 CP 10H JR NC,0D6EH ADD A,A ADD A,A ADD A,A ADD A,A LD B,4 RLCA RL E RL D DJNZ 0D63H JR 0D44H POP HL PUSH DE LD DE,0BB8H LD C,0FH CALL 0 CP 0FFH POP DE JR Z,0DB3H LD (0BF3H),DE LD C,1AH CALL 0 LD C,14H LD DE,0BB8H CALL 0 OR A JR NZ,0D99H LD HL,(0BF3H) LD DE,80H ADD HL,DE EX DE,HL JR 0D7BH PUSH AF LD DE,80H LD C,1AH CALL 0 POP AF CP 1 JP Z,43H LD DE,0E47H LD C,9 CALL 0 JP 43H LD DE,0E5AH JR 0DABH db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0,0 CALL 1E9H LD HL,0C21H LD A,(HL) CP 6 JR Z,0E34H INC (HL) ADD A,A LD HL,0C28H ADD A,L LD L,A JR NC,0E0AH INC H LD (HL),E INC HL LD (HL),D LD A,(0C21H) DEC A LD HL,0C22H ADD A,L LD L,A JR NC,0E19H INC H LD A,(DE) LD (HL),A EX DE,HL LD (HL),0F7H JP 43H db 0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0 LD DE,0E6CH LD C,9 CALL 0 JP 43H LD A,(0C21H) OR A JP Z,43H LD B,A LD HL,0C28H CALL 165H EX DE,HL LD A,(DE) LD L,A INC DE LD A,(DE) LD H,A INC DE CALL 0D47H CALL 120H DJNZ 0E4EH JP 43H LD (0D96H),HL LD (0D98H),DE LD (0D9AH),BC PUSH AF POP HL LD (0D9CH),HL POP HL DEC HL LD (0DA0H),HL EX DE,HL LD A,(0C21H) OR A JR Z,0EC8H LD B,A LD C,0 LD HL,0C28H LD A,(HL) CP E JR NZ,0EC3H INC HL LD A,(HL) CP D JR NZ,0EC4H DEC HL PUSH HL LD HL,0C22H LD A,C ADD A,L LD L,A JR NC,0E95H INC H LD A,(HL) LD (DE),A DEC B JR NZ,0EA8H LD HL,0C21H DEC (HL) POP HL LD HL,0 ADD HL,SP LD (0D9EH),HL JR 0ED9H LD E,L LD D,H INC DE PUSH BC LD A,(DE) LD (HL),A INC HL INC DE DJNZ 0EACH POP BC POP HL LD D,H LD E,L INC DE INC DE LD A,B ADD A,B LD B,A LD A,(DE) LD (HL),A INC HL INC DE DJNZ 0EBBH JR 0E9AH INC HL INC HL INC C DJNZ 0E81H LD DE,0EB0H LD C,9 CALL 0 LD HL,(0DA0H) CALL 22EH JP 43H CALL 165H LD DE,0DD3H LD C,9 CALL 0 LD HL,(0D9CH) CALL 0D4DH LD HL,(0D9AH) CALL 0D47H LD HL,(0D98H) CALL 0D47H LD HL,(0D96H) CALL 0D47H PUSH IX POP HL CALL 0D47H PUSH IY POP HL CALL 0D47H LD HL,(0D9EH) CALL 0D47H LD A,(HL) INC HL LD H,(HL) LD L,A CALL 0D47H LD HL,(0DA0H) CALL 0D47H EX AF,AF' EXX PUSH AF PUSH HL PUSH AF POP HL CALL 0D4DH LD H,B LD L,C CALL 0D47H LD H,D LD L,E CALL 0D47H POP HL PUSH HL CALL 0D47H LD A,I CALL 023EH CALL 0120H LD A,R CALL 023EH POP HL POP AF EX AF,AF' EXX JP 43H CALL 22EH JP 120H LD A,H CALL 23EH CALL 120H PUSH BC LD B,'0' LD A,B RL L JR NC,0F5DH INC A CALL 122H LD A,B RL L JR NC,0F66H INC A CALL 122H LD A,B RL L RL L JR NC,0F71H INC A CALL 0122H LD A,B RL L RL L JR NC,0F7CH INC A CALL 122H LD A,B RL L JR NC,0F85H INC A CALL 122H LD A,B RL L JR NC,0F8EH INC A CALL 122H CALL 120H POP BC RET db 0,0,0,0,0,0,0,0 db 0,0,0,0 LD A,(0C21H) OR A JR Z,0FC1H LD HL,(0D9EH) LD SP,HL LD HL,(0D9CH) PUSH HL POP AF LD HL,(0DA0H) PUSH HL LD HL,(0D96H) LD DE,(0D98H) LD BC,(0D9AH) RET LD DE,0E8AH LD C,9 CALL 0 CALL 0C9H CP 'Y' JR Z,0FA8H JP 43H db cr,lf db 'A SZHPNC BC' db ' DE HL I' db 'X IY SP R' db 'ET PC A',sq,' SZH' db 'PNC BC',sq,' DE',sq,' ' db 'HL',sq,' I R' db cr,lf,'$' db cr,lf db ' READ$' db cr,lf db 'WRITE$' db ' NOT SUCCESSFUL$' db lf,'FILE LOAD ERROR' db cr,lf,'$' db lf,'FILE NOT FOUND' db cr,lf,'$' db cr,lf,'SIX BREAKPO' db 'INTS ALREADY SET$' db cr,lf,'NO BREAKPOI' db 'NTS SET, CONTINUE' db ' (Y/N)?$' db cr,lf,'OUT OF BOUN' db 'DS JUMP TO $' db cr,lf,'ZDT Version' db ' 1.41 (C) Micron' db 'ics, Inc. 1980',lf db '$' db 0,0,0,0,0,0,0 db 'MTGUNKNNOP LD INC' db ' DEC EX DJNZJR A' db 'DD ADC SUB SBC AND' db ' XOR OR CP RLC R' db 'RC RL RR SLA SRA' db ' UNKNSRL RLCARRCAR' db 'LA RRA DAR CPL SCF' db ' CCF BIT RES SET N' db 'EG RETNRETIRRD RLD' db ' HALTOUT IN DI E' db 'I PUSHPOP RST JP ' db ' CALLRET EXX IM ' db ' ' db ' ' db ' ' db '(IX+(BC)(DE)(HL)(IX)' db '(IY)(SP)BCDEHLFAZCPM' db ',()*012345678IR (IY+' db 'BCDEHLSPIXIYNZNCPEPO' db '162432404856(C)AF',sq db ' L(N)RP*+ ' db ' LDI CPI INI OUTI' db 'LDD CPD IND OUTDLDIR' db 'CPIRINIROTIRLDDRCPDR' db 'INDROTDR ' db ' ' db ' ' db ' ' db 5,0,0 db 2,0,0 db 9,8,27h db 0c3h,69h,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 15h,66h,63h db 0c9h,0,0 db 9,27h,8 db 2,0,0 db 2,0,0 db 0c7h,69h,0 db 2,0,0 db 2,0,0 db 1ah,6ah,0 db 2,0,0 db 9,0ch,27h db 0a6h,68h,27h db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 1eh,6ah,0 db 0cdh,0,0 db 9,27h,0ch db 0aah,27h,68h db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 1eh,4ch,6ah db 2,0,0 db 0bh,6fh,44h db 15h,1ch,44h db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 1eh,28h,6ah db 0c1h,10h,0 db 0bh,44h,6fh db 15h,42h,44h db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 1eh,4eh,6ah db 2,0,0 db 0bh,6fh,27h db 0adh,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 1eh,29h,6ah db 9,46h,44h db 0bh,27h,6fh db 0b1h,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,0,0 db 2,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,22h,48h db 40h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,22h,48h db 42h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,8,48h db 69h,8,6fh db 48h,0eh,48h db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,22h,48h db 48h,8,48h db 6fh,12h,48h db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0fh,6bh db 0,13h,6bh db 0,8,6dh db 68h,2,0 db 0,2,0 db 0,22h,48h db 46h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0aah,20h db 60h,0a6h,60h db 20h,2eh,44h db 40h,8,6fh db 40h,8eh,0 db 0,92h,0 db 0,0d2h,30h db 0,0ah,39h db 27h,0aah,21h db 60h,0a6h,60h db 21h,26h,44h db 40h,8,40h db 6fh,2,0 db 0,96h,0 db 0,2,0 db 0,0ah,3ah db 27h,0aah,22h db 60h,0a6h,60h db 22h,2eh,44h db 42h,8h,6fh db 42h,2,0 db 0,2,0 db 0,0d2h,31h db 0,0ah,27h db 39h,0aah,23h db 60h,0a6h,60h db 23h,26h,44h db 42h,8,42h db 6fh,2,0 db 0,2,0 db 0,0d2h,32h db 0,0ah,27h db 3ah,0aah,24h db 60h,0a6h,60h db 24h,2eh,44h db 44h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,9ah,0 db 0,0aah,25h db 60h,0a6h,60h db 25h,26h,44h db 44h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,9eh,0 db 0,0aah,26h db 60h,0a6h,60h db 26h,2eh,44h db 46h,8,6fh db 46h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0aah,27h db 60h,0a6h,60h db 27h,26h,44h db 46h,8,46h db 6fh,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0e0h,0 db 0,0e1h,0 db 0,0e2h,0 db 0,0e3h,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0e4h,0 db 0,0e5h,0 db 0,0e6h,0 db 0,0e7h,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0e8h,0 db 0,0e9h,0 db 0,0eah,0 db 0,0ebh,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0ech,0 db 0,0edh,0 db 0,0eeh,0 db 0,0efh,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0bah,48h db 0,2,0 db 0,16h,1ch db 48h,2,0 db 0,0b6h,48h db 0,2,0 db 0,2,0 db 0,2,0 db 0,0c2h,14h db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,0ah,46h db 48h,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0,2,0 db 0 relomp: db 3dh,5,3,3,0bh db 5,5,3,3,18h,2 db 2,2,2,2,2,2,2,2 db 2,2,2,2,2,2,2,2 db 2,2,2,2,2,2,2,2 db 3,0bh,8,0bh,0dh,9,4,25h db 3,9,10h,3,9,8,8,7 db 0bh,7,9,3,7,3,9,3 db 5,9,29h,0dh,3,5,3,3 db 4,3,0ah,8,3,3,8,7 db 0ah,8,0ah,3,9,3,8,8 db 0ah,0eh,3,4,7,4,0ch,3 db 5,0ch,0dh,3,5,8,3,3 db 4,3,4,0ah,3,3,6,8 db 3,5,3,4,4,3,5,3 db 5,3,5,8,6,6,4,18h db 2fh,4,8,3,3,5,3,4 db 4,5,3,3,4,5,3,5 db 4,3,4,3,14h,5,3,6 db 4,9,0ch,11h,9,4,3,5 db 7,6,3,5,9,7,3,3 db 24h,3,5,9,3,3,3,4 db 3,4,5,3,4,13h,3,3 db 4,5,3,8,3,9,3,3 db 5,5,5,3,0bh,5,4,3 db 4,5,4,5,3,4,6,3 db 7,9,7,10h,5,8,0eh,4 db 9,3,6,0dh,3,5,5,4 db 4,9,7,5,5,8,5,5 db 5,8,5,5,5,15h,5,22h db 4,8,5,4,1ch,4,0eh,5 db 4,10h,3,5,12h,0ch,7,4 db 4,1ah,4,0ah,0ah,4,4,8 db 5,1eh,0eh,0eh,6,4,19h,9 db 5,0dh,6,4,16h,4,10h,4 db 0ah,12h,4,8,1ah,0dh,4,8 db 6,0fh,9,26h,4,11h,0bh,16h db 24h,4,64h,9,5,1ch,5,3 db 3,0fh,3,0ch,5,0bh,0ah,7 db 5,3,7,9,4,4,16h,5 db 1ah,5,0eh,0ch,0bh,5,4,7 db 9,9,0ah,0bh,8,3,5,8 db 9,5,0bh,8,8,5,5,8 db 3,11,3,0ah,0ah,3,5,3 db 28h,7,3,1ch,3,3,11,5fh db 5,9,5,5,3,6,10h,6 db 3,5,3,3,42h,3,0ah,0bh db 4,0dh,16h,5,3,3,4,4 db 3,0ah,3,5,3,4,4,5 db 5,4,9,0eh,0eh,9,25h,5 db 3,3,3,3,3,5,3,3 db 3,3,3,3,3,3,6,6 db 3,3,7,3,3,9,5,5 db 5,5,3,5,7,3,3,4 db 3,0ch,9,0bh,0bh,9,9,3 db 11h,6,4,5,4,4,4,4 db 5,3,7 db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh db 0ffh,0ffh end