; ; Reverse Engineer of the Intelligent Terminal Corporation ; CP/M Generator for Cromemco systems with hard disks. ; It appears to be output from a compiler, and from the I/O ; I'd guess that it is FORTRAN. It requires some files with ; the file type of .SPR that are images of hardware drivers ; for the FDC, CRT, hard disk, etc. ; ; rzh 4/99 ; squote equ 27h dquote equ 22h cr equ 0dh lf equ 0ah tab equ 9 bdos equ 5 cpm equ 0 org 100h JP begin d103: db 0 d104: db 0 d105: db 0 d106: db 0 d107: db 0 d108: db 0 d109: db 0 d10a: db 0 d10b: db 0 d10c: db 0 d10d: db 0 db 0,0 d110: db 0,0,0 db 0,0,0,0,0,0,0 d11a: db 0 d11b: db 0 d11c: db 0 d11d: db 0 db 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 db 'PMGEN FOR' dw 1 dw 6e80h dw 8eh dw 8fh dw 90h dw 91h dw 92h dw 0a2h dw 0b6h dw 0 dw 6eh db 0,0,0,0,0,0,0,0 db 0,0 db 0 dw 0 db 0,0,0 db 0,0,0,0,0 d17e: db 0 d17f: db 0 d180: db 0 d181: db 0 db 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 dw 6abh db 'PMGEN FOR' db 'REL' db 'CRF' db 'PRN' db 1bh db 0 db 0 db 22h,0c0h,20h db 0ch,99h,40h,80h,4 db 0d5h db 60h,2,3ah,0,1,93h db 11h,53h,91h,0d5h,12h,27h db 0 dw 0 db 9eh,1ah,0,8eh,80h db 0,65h,34h,84h,94h,65h db 44h,0c9h,0c0h,0,0,85h db 91h,93h,91h,15h,14h,93h db 60h,64h,64h,0e4h db 45h,45h db 24h,0d8h,79h,19h,3dh,49h db 31h,25h,8,45h,82h,40h,4 db 20h,0,0,8bh,0,80h,0ah db 0b0h,8 d201: db 3,0ach,55h,82h db 40h,3,27h,0e6h,0b3h,0fdh db 0ach,1,4fh,8ch,0b0h,58h db 2,0ddh,94h,0,0,0ah,0b0h db 8,3,26h,62h,38h,0,2ah db 0c0h,20h,2,31h,16h,1,0 db 61h,0d0h,90h,9,40h,60h db 4 db 0d4h,0b0h,2,3ah,0 dw 9101h dw 9193h db 15h,14h,93h db 67h,0,0,0,85h,93h,11h d240: db 53h,91h,0d5h,12h,20h,64h db 0c4h,54h,0e4h,75h,44h,88h db 79h,19h,3dh,49h,31h,25h,8 db 45h,82h,40h,1dh,62h,2ch db 16h,0,21h,0,80h,4,58h db 34h,0,42h,1,0,3ah,0c5h db 58h,34h,0,0f6h,95h,37h db 9eh,93h,86h,77h,58h,0abh db 5,80h,1fh,84h,66h,63h,78h db 64h,45h,80h,40h,5,6eh db 0b1h,56h,9,0,0ch,9fh,9ah db 0c2h,6,33h,0fdh,3eh db 32h,0c1h,0e0h,0bh,76h db 50h,0,0,2ah,0c0h db 20h,0ch db 99h,89h,0b8h,0,0abh,6,80h db 8,0ddh,62h,0ach,16h,0,7eh db 11h,99h,8dh,0eeh,0b3h db 0dah,54h,0f4h,9ch,79h db 50h,0a0h,1,8,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 d30a: db 0 d30b: db 0 d30c: db 0 d30d: db 0 d30e: db 0 db 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,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 d416: db 0 d417: db 1,0,0,0,0,0 db 0,0,0,0,0,0,0,0 db 0,0,0,0 d429: dw 0 d42b: dw 0 d42d: dw 0 d42f: db 0,0,0,0 db 'Y' db 'MOVCPM COM' d43f: db 0 db 'CPMHARD SPR' d44b: db 0 db 'CPMLOAD COM' dw 1171h dw 1144h dw 1203h d45d: dw 0 d45f: db 0 dw 11adh dw 11f3h dw 1203h db 'CPMLOAD $$$' db 'CPMLOAD COM' dw 1171h dw 1162h dw 11f3h dw 1180h dw 11f3h dw 11f3h d488: db 0 d489: db 0 d48a: db 0 dw 1180h dw 11f3h dw 11f3h db 'FDC HARD' db '3355CRT' db ' CPMLOAD COM' db 'CPMLOAD COM' db 'CPMLOAD $$$' db 'CPMLOAD COM' dw 1171h dw 1162h dw 1207h db 'MOVCPM COM' dw 11cbh dw 11bch dw 1217h dw 11dah dw 11f3H dw 1217H db '$$$ SUB' dw 119eh dw 11f3h dw 11f3h dw 119eh dw 11f3h dw 11f3h dw 119eh dw 11f3h dw 11f3h introm: db '(25(/),16X,',squote db ' Intelligent Terminals' db ' Corporation',squote db ',/,16X,',squote db ' CP/M 2.2 System' db ' Generation',squote db ',/,16X,',squote db ' Release 5b -' db ' 03/27/81',squote db ',5(/),/,',squote db ' This program is used' db ' to generate a new' db squote,',',squote db ' CP/M 2.2 system.' db squote,',/,',squote db ' The following files are' db ' used as input files' db squote,',/,',squote db ' and must all be on the' db ' same drive.',squote db ',/,/,6X,',squote db 'CPMLOAD.COM - ' db 'System Loader',squote db ',/,6X,',squote db 'MOVCPM.COM - ' db 'System Relocator',squote db ',/,6X,',squote db 'SYSGEN.COM - ' db 'System Copier',squote db ',/,6X,',squote db 'CPMCRT.SPR - ' db 'Console and Printer' db ' drivers',squote db ',/,6X,',squote db 'CPMFDC.SPR - ' db '16fdc disk drivers',squote db ',/,6X,',squote db 'CPMHARD.SPR - ' db 'Hard disk drivers,',squote db ',',squote,' (if hard disk' db ' system)',squote db ',/,6X,',squote db 'CPM3355.SPR - ' db '3355 printer drivers,',squote db ',',squote,' (if required)' db squote,',/,/,',squote db ' Which disk drive contains' db ' these files? ',squote,')' db '(',squote,'0Is this' db ' configuration correct? ' db squote,')' db '(',squote,' End of system' db ' generation phase.',squote db '/)' db '(',squote,' MOVCPM.COM file' db ' not found.',squote,'/)' db '(',squote,' Error reading' db ' CPMLOAD.COM file.',squote db '/)' db '(',squote,' SYSGEN CPM',squote db ',I2,',squote,'.COM',squote,')' db '(',squote,' MOVCPM',squote db ',2(I3,',squote,'ITC',squote db '))' db '(',squote,' Enter memory' db ' size in k-bytes: ',squote db ')' db '(',squote,' Error writing' db ' CPMLOAD.$$$ file.',squote db '/)' db '(',squote,'+Unable to rename' db ' CPMLOAD.$$$ to CPMLOAD.COM' db '.',squote,'/)' db '(',squote,' Do you want to' db ' create a new CPMLOAD.COM' db ' file? ',squote,')' db '(',squote,' CPMLOAD.COM file' db ' not found.',squote,'/)' db '(',squote,' Unexpected EOF on' db ' CPMLOAD.COM file.',squote,'/)' db '(',squote,' Erasing CPMLOAD' db '.COM.',squote,'/)' db '(',squote,' Renaming CPMLOAD' db '.$$$ to CPMLOAD.COM.',squote db '/)' db '(',squote,' Creating A:$$$.SUB' db ' file to complete processing' db '.',squote,'/)' db '(',squote,' Error writing' db ' A:$$$.SUB file.',squote db '/)' db '(',squote,' Error writing' db ' CPMLOAD.COM file.',squote db '/)' db '(',squote,' Unexpected EOF' db ' on MOVCPM.COM file.',squote db '/)' db '(',squote,' Error reading' db ' MOVCPM.COM file.',squote db '/)' db '(',squote,' Error writing' db ' MOVCPM.COM file.',squote db '/)' db '(',squote,' Printer assign' db 'ments:',squote,'/)' db '(',squote,' 3102 Function' db ' keys:',squote,'/)' db '(',squote,' Do you have a' db ' CROMEMCO 3102 terminal?' db ' ',squote,')' db '(',squote,' SAVE 34 CPM' db squote,',I2,',squote,'.COM' db squote,')' eoutdr: db '(',squote,' Enter output' db ' drive: ',squote,')' db '+' begin: LD BC,sthere JP strtup sthere: LD A,0FFH LD (d30a),A LD DE,introm LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2049H LD (d42f),HL LD BC,d42f LD DE,434H LD HL,11FFH CALL 4E0DH CPL LD (d43f),A OR A JP NZ,1144H CALL 1350H LD BC,d42f LD DE,440H LD HL,1203H CALL 4E0DH CPL LD (d43f),A OR A JP NZ,0B6CH CALL 126AH LD HL,7 CALL 41EBH XOR A LD (d44b),A CALL 15E5H LD DE,79CH LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2134H LD HL,433H SUB (HL) SUB 1 SBC A,A LD (d43f),A OR A JP NZ,0B9AH CALL 18D1H LD A,0FFH LD (d44b),A JP 0B6CH LD A,(d44b) OR A JP Z,0BA4H CALL 1468H LD HL,6 CALL 41EBH LD BC,d42f LD DE,44CH LD HL,11FFH CALL 4E0DH CPL LD (d43f),A OR A JP NZ,1153H CALL 2632H LD DE,0A82H LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,1 LD (d42b),HL LD HL,d42b CALL 2945H LD HL,(d42b) INC HL LD A,4 SUB L LD A,0 SBC A,H JP P,0BD0H LD DE,79CH LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2134H LD HL,433H SUB (HL) SUB 1 SBC A,A LD (d43f),A OR A JP NZ,0C0CH CALL 2DCBH JP 0BC1H CALL 272EH LD BC,457H LD DE,11F3H LD HL,11FFH CALL 3A67H LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,316H ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,0C1EH CALL 425BH LD DE,0AB5H LD HL,11EFH CALL 3A7AH CALL 425BH XOR A LD (d45f),A LD HL,11F3H CALL 2134H LD HL,433H SUB (HL) ADD A,0FFH SBC A,A LD (d43f),A OR A JP NZ,0CA5H LD A,0FFH LD (d45f),A LD DE,0A9CH LD HL,11EFH CALL 3A7AH CALL 425BH CALL 310FH LD DE,79CH LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2134H LD HL,433H SUB (HL) SUB 1 SBC A,A LD (d43f),A OR A JP NZ,0CA5H CALL 3383H JP 0C70H LD BC,460H LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,316H ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,0CB4H CALL 425BH LD HL,6 CALL 41EBH LD DE,8D4H LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2134H LD HL,433H SUB (HL) ADD A,0FFH SBC A,A LD (d43f),A OR A JP NZ,0ECFH LD DE,eoutdr LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 2049H LD (d42d),HL LD BC,d42d LD DE,466H LD HL,11FFH CALL 4E0DH LD BC,d42f LD DE,471H LD HL,1203H CALL 4E0DH CPL LD (d43f),A OR A JP NZ,1153H LD BC,47CH LD DE,11F3H LD HL,1203H CALL 3A67H LD DE,d10a LD HL,11F7H LD A,2 CALL 3A12H CALL 425BH LD HL,7 CALL 41EBH LD BC,482H LD DE,11F3H LD HL,11FFH CALL 3A6FH LD DE,d10a LD HL,11F7H LD A,2 CALL 3A12H CALL 425BH LD BC,11F3H LD DE,11F7H LD HL,d10a CALL 25A4H LD A,2 LD (d10a),A LD A,(d104) DEC A SUB 7FH SBC A,A LD (d43f),A OR A JP Z,0D96H LD A,3 LD (d10a),A LD A,(d30e) SUB 5 SUB 1 SBC A,A LD (d43f),A LD A,(30dh) SUB 5 SUB 1 SBC A,A LD (d488),A LD A,(d30c) SUB 5 SUB 1 SBC A,A LD (d489),A LD A,(d30b) SUB 5 SUB 1 SBC A,A LD HL,d489 OR (HL) LD HL,d488 OR (HL) LD HL,d43f OR (HL) LD (d48a),A OR A JP Z,0DD9H LD A,(d10a) INC A LD (d10a),A LD A,(d45f) LD (d10d),A LD BC,48BH LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,0DEEH LD DE,317H LD HL,11FBH LD A,2 CALL 3A12H CALL 425BH XOR A LD (d30a),A LD DE,d42f LD HL,491H CALL 22DDH LD A,(d104) DEC A SUB 7FH SBC A,A LD (d43f),A OR A JP Z,0E46H LD DE,d42f LD HL,495H CALL 22DDH LD A,(d30e) SUB 5 SUB 1 SBC A,A LD (d43f),A LD A,(30dh) SUB 5 SUB 1 SBC A,A LD (d488),A LD A,(d30c) SUB 5 SUB 1 SBC A,A LD (d489),A LD A,(d30b) SUB 5 SUB 1 SBC A,A LD HL,d489 OR (HL) LD HL,d488 OR (HL) LD HL,d43f OR (HL) LD (d48a),A OR A JP Z,0E8BH LD DE,d42f LD HL,499H CALL 22DDH LD DE,d42f LD HL,49DH CALL 22DDH LD HL,6 CALL 41EBH LD DE,951H LD HL,11EFH CALL 3A7AH CALL 425BH LD DE,d42d LD HL,4A1H CALL 4E59H LD DE,96BH LD HL,11EFH CALL 3A7AH CALL 425BH LD BC,d42d LD DE,4B7H LD HL,4ACH CALL 4E71H CPL LD (d43f),A OR A JP NZ,118FH LD DE,85AH LD HL,11EFH CALL 3A7AH CALL 425BH LD DE,120FH LD HL,120BH CALL 1F98H LD L,A RLA SBC A,A LD H,A LD (d429),HL LD BC,d42d LD DE,4C2H LD HL,11FFH CALL 4E0DH LD BC,4CDH LD DE,11F3H LD HL,11FFH CALL 3A67H LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,0F06H CALL 425BH LD A,(d429) LD (d10b),A LD A,(d30a) INC A SUB 1 SBC A,A LD (d43f),A OR A JP Z,0F49H LD A,(d10c) LD (d30a),A LD A,(d30a) LD (d10c),A CALL 272EH LD HL,6 CALL 41EBH LD BC,d42f LD DE,4D3H LD HL,11FFH CALL 4E0DH LD BC,4DEH LD DE,11F3H LD HL,11FFH CALL 3A67H LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,0F73H CALL 425BH LD A,(d429) LD (d11a),A LD A,(d30a) LD (d11b),A LD BC,4E4H LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,0FB7H CALL 425BH LD HL,6 CALL 41EBH LD DE,995H LD HL,11EFH CALL 3A7AH CALL 425BH LD BC,11EFH LD DE,4EAH LD HL,11FFH CALL 4E0DH LD BC,11F3H LD DE,1213H LD HL,d10a CALL 25A4H LD DE,82AH LD HL,d10a CALL 3A58H LD DE,d429 LD HL,11EFH LD A,2 CALL 3A04H CALL 425BH LD A,12H LD (d10a),A LD BC,4F5H LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1035H CALL 425BH LD BC,11F3H LD DE,1213H LD HL,d10a CALL 25A4H LD DE,0AE0H LD HL,d10a CALL 3A58H LD DE,d429 LD HL,11EFH LD A,2 CALL 3A04H CALL 425BH LD A,11H LD (d10a),A LD BC,4FBH LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1095H CALL 425BH LD BC,11F3H LD DE,1213H LD HL,d10a CALL 25A4H LD DE,843H LD HL,d10a CALL 3A58H LD DE,d429 LD HL,11EFH LD A,2 CALL 3A04H LD DE,d30a LD HL,11EFH LD A,2 CALL 3A12H CALL 425BH LD A,14H LD (d10a),A LD BC,501H LD DE,11F3H LD HL,11FFH CALL 3A6FH LD HL,1 LD (d42b),HL LD HL,(d42b) LD DE,d109 ADD HL,DE LD (d45d),HL LD HL,(d45d) EX DE,HL LD HL,11EFH LD A,2 CALL 3A12H LD HL,(d42b) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1100H CALL 425BH LD HL,6 CALL 41EBH LD DE,7C0H LD HL,11EFH CALL 3A7AH CALL 425BH LD HL,11F3H CALL 4A68H JP 11E6H LD DE,7E5H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,907H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,928H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,805H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,87DH LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,8A2H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,9CAH LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,9EDH LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,0A12H LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,0A3AH LD HL,11EFH CALL 3A7AH CALL 425BH JP 11E6H LD DE,0A5EH LD HL,11EFH CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0,0 db 0,0,0,0,2 db 0,0,0,1,0 db 0,6,0,0,0 db 7,0,0,0,5 db 0,0,0,14h,0 db 0,0,40h,0,0 db 0,80h,0,0,0 db 13h,0,0,0 db 0f2h d121c: dw 2af5h dw 12e4h dw 12d5h dw 12f9h d1224: dw 3202h d1226: dw 165h db '(',squote,'0Unexpected' db ' EOF on CPMHARD.SPR',squote db '/)' db '(',squote,'0Error reading' db ' CPMHARD.SPR',squote,'/)' LD BC,121EH LD DE,12FDH LD HL, 1301H CALL 3A67H LD HL,1 LD (d121c),HL LD HL,(d121c) LD DE,d109 ADD HL,DE LD (d1224),HL LD HL,(d1224) EX DE,HL LD HL,12F9H LD A,2 CALL 3A12H LD HL,(d121c) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1279H CALL 425BH LD A,(d10a) LD (d417),A LD HL,1 LD (d121c),HL LD HL,(d121c) LD (d1224),HL LD DE,d417 ADD HL,DE LD (d1226),HL LD HL,(d1224) LD DE,129H ADD HL,DE LD A,(HL) LD HL,(d1226) LD (HL),A LD HL,(d121c) INC HL LD A,10H SUB L LD A,0 SBC A,H JP P,12ABH RET LD DE,1228H LD HL,12F9H CALL 3A7AH CALL 425BH JP 12F0H LD DE,124BH LD HL,12F9H CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0,0 db 0,0,0,7,0 db 0,0,0b3h d1306: dw 0cd41h dw 13ceh dw 13bfh dw 13efh d130e: dw 0d7c2h db '(',squote,'0Unexpected' db ' EOF on MOVCPM.COM',squote db '/)' db '(',squote,'0Error reading' db ' MOVCPM.COM',squote,'/)' LD BC,1308H LD DE,13E7H LD HL,13EBH CALL 3A67H LD HL,1 LD (d1306),HL LD HL,(d1306) LD DE,d109 ADD HL,DE LD (d130e),HL LD HL,(d130e) EX DE,HL LD HL,13E3H LD A,2 CALL 3A12H LD HL,(d1306) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,135FH CALL 425BH LD A,(d17e) AND 80H LD (d105),A LD A,(d17e) AND 70H LD L,A RLA SBC A,A LD H,A EX DE,HL LD HL,10H CALL 39BFH LD A,L LD (d103),A LD A,(d17e) AND 0FH LD (d104),A LD A,(d17f) LD (d106),A LD A,(d180) LD (d107),A LD A,(d181) LD (d108),A RET LD DE,1310H LD HL,13E3H CALL 3A7AH CALL 425BH JP 13DAH LD DE,1332H LD HL,13E3H CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0,0 db 0,0,0,6,0 db 0,0,11h,0,0 db 0,63h d13f4: dw 0cd5dh dw 1542h dw 1557h dw 1578h d13fc: dw 38dbh d13fe: db 0cdh dw 152Dh dw 1570h dw 1578h db '(',squote,'0Error' db ' updating MOVCPM.COM.' db squote,'/)' db '(',squote,'0Error' db ' reading MOVCPM.COM.' db squote,'/)' db '(',squote,'0Unexpected' db ' EOF on MOVCPM.COM.' db squote,'/)' db 2 LD BC,13F6H LD DE,1570H LD HL,1574H CALL 3A67H LD HL,1 LD (d13f4),HL LD HL,(d13f4) LD DE,d109 ADD HL,DE LD (d13fc),HL LD HL,(d13fc) EX DE,HL LD HL,156CH LD A,2 CALL 3A12H LD HL,(d13f4) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1477H CALL 425BH LD A,'1' LD (d110),A LD A,(d106) AND 1 SUB 1 SBC A,A LD (d13fe),A OR A JP Z,14B9H LD A,'!' LD (d110),A LD A,(d103) LD L,A RLA SBC A,A LD H,A ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL EX DE,HL LD A,(d105) LD L,A RLA SBC A,A LD H,A OR D LD H,A LD A,L OR E LD L,A EX DE,HL LD A,(d104) LD L,A RLA SBC A,A LD H,A OR D LD H,A LD A,L OR E LD L,A LD A,L LD (d17e),A LD A,(d106) LD (d17f),A LD A,(d107) LD (d180),A LD A,(d108) LD (d181),A LD BC,13FFH LD DE,1570H LD HL,1574H CALL 3A6FH LD HL,1 LD (d13f4),HL LD HL,(d13f4) LD DE,d109 ADD HL,DE LD (d13fc),HL LD HL,(d13fc) EX DE,HL LD HL,156CH LD A,2 CALL 3A12H LD HL,(d13f4) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,1503H CALL 425BH RET LD DE,1405H LD HL,156CH CALL 3A7AH CALL 425BH CALL 397CH db ' ' LD DE,1425H LD HL,156CH CALL 3A7AH CALL 425BH CALL 397CH db ' ' LD DE,1444H LD HL,156CH CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0,0 db 0,0,0,6,0 db 0,0,11h,0,0 db 0,0c8h,11h d157e: db 4 db '(//,',squote,' Current' db ' system configuration.' db squote,')' db '(',squote,' Number of' db ' floppy disks:',squote db ',I3,/,',squote,' Number' db ' of hard disks: ',squote db ',I3)' LD DE,157FH LD HL,1638H CALL 3A7AH CALL 425BH LD DE,15A4H LD HL,1638H CALL 3A7AH LD BC,d104 LD DE,d103 LD HL,1638H LD A,3 CALL 3A12H CALL 425BH LD A,'A' LD (d109),A LD A,(d104) SUB 1 SBC A,A LD (d157e),A OR A JP NZ,1634H LD A,(d105) ADD A,0FFH SBC A,A LD (d157e),A OR A JP NZ,1631H CALL 169AH CALL 17ACH RET CALL 17ACH CALL 169AH RET db 1,0,0,0 db ';x=' d163f: dw 0fecah db 'FastMed N/A Slow' d1651: db '=' d1652: db 0c2h d1653: db 0abh d1654: db 'G' d1655: db '>' d1656: db '<',0c3h db '(/',squote,' Flop' db 'py disk configuration' db ':',squote,')' db '(3X,A1,',squote db ': ',squote,',A1,' db squote,dquote,', ',squote db ',A4,',squote,' Seek' db '.', squote,')' LD A,(d103) SUB 1 SBC A,A LD (d1651),A OR A JP Z,16A8H RET LD DE,1658H LD HL,175DH CALL 3A7AH CALL 425BH LD A,(d106) LD (d1652),A LD A,(d107) LD (d1653),A LD HL,1 LD (163FH),HL LD A,'8' LD (d1654),A LD A,(d1652) AND 1 SUB 1 SBC A,A LD (d1651),A OR A JP Z,16DFH LD A,'5' LD (d1654),A LD A,(d1652) LD L,A RLA SBC A,A LD H,A EX DE,HL LD HL,2 CALL 39BFH LD A,L LD (d1652),A LD A,(d1653) AND 3 INC A LD (d1655),A LD HL,d1653 CALL 3926H EX DE,HL LD HL,4 CALL 39BFH LD A,L LD (d1653),A LD DE,1678H LD HL,175DH CALL 3A7AH LD BC,d1654 LD DE,d109 LD HL,175DH LD A,3 CALL 3A12H LD A,(d1655) LD L,A RLA SBC A,A LD H,A ADD HL,HL ADD HL,HL LD DE,163DH ADD HL,DE LD (d1656),HL LD HL,(d1656) EX DE,HL LD HL,175DH LD A,2 CALL 3A20H CALL 425BH LD A,(d109) INC A LD (d109),A LD HL,(163FH) INC HL EX DE,HL LD A,(d103) LD L,A RLA SBC A,A LD H,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,16C3H RET db 1,0,0,0,0e9h m1762: dw 7801h m1764: dw 0c23dh m1766: dw 3c27h m1768: dw 193eh m176a: dw 0abcdh db '(/',squote,' Hard' db ' disk configuration:' db squote,')' db '(3X,A1,',squote db ': ',squote,',I2,' db squote,'mb, unit' db squote,',I2,',squote db '.',squote,')' db 2 LD DE,176CH LD HL,1840H CALL 3A7AH CALL 425BH LD HL,1 LD (m1766),HL LD HL,1 LD (m1762),HL LD HL,(m1762) DEC HL LD (m1768),HL LD HL,1 LD (m1764),HL LD DE,178AH LD HL,1840H CALL 3A7AH LD DE,d109 LD HL,1840H LD A,2 CALL 3A12H LD HL,(m1766) LD DE,d417 ADD HL,DE LD (m176a),HL LD HL,(m176a) EX DE,HL LD HL,1840H LD A,2 CALL 3A12H LD DE,m1768 LD HL,1840H LD A,2 CALL 3A04H CALL 425BH LD HL,(m1766) INC HL LD (m1766),HL LD A,(d109) INC A LD (d109),A LD HL,(m1764) INC HL EX DE,HL LD A,(d417) LD L,A RLA SBC A,A LD H,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,17CEH LD HL,(m1762) INC HL EX DE,HL LD A,(d104) LD L,A RLA SBC A,A LD H,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,17C1H RET db 1,0,0,0,43h CALL 599CH m1848: db 0c1h db '(',squote,' Enter number' db ' of floppy disk drives: ' db squote,')' db '(',squote,' Enter number' db ' of hard disk units: ' db squote,')' db '(',squote,' Do you want' db ' to select the hard disk' db ' as drive A? ',squote,')' db 91h XOR A LD (d103),A LD DE,1849H LD HL,1963H CALL 3A7AH CALL 425BH LD DE,196BH LD HL,1963H CALL 1F98H LD (d103),A LD A,0FFH LD (d104),A XOR A LD (d105),A LD DE,1872H LD HL,1963H CALL 3A7AH CALL 425BH LD DE,196BH LD HL,1967H CALL 1F98H LD (d104),A SUB 1 SBC A,A LD (m1848),A OR A JP NZ,193DH LD DE,189BH LD HL,1963H CALL 3A7AH CALL 425BH LD HL,1967H CALL 2134H LD HL,1847H SUB (HL) SUB 1 SBC A,A LD (m1848),A OR A JP Z,193DH LD A,80H LD (d105),A LD A,'A' LD (d109),A LD A,(d104) SUB 1 SBC A,A LD (m1848),A OR A JP NZ,195FH LD A,(d105) SUB 1 SBC A,A LD (m1848),A OR A JP NZ,195FH CALL 17ACH CALL 1A62H RET db 1,0,0,0,0 db 0,0,0,4,0 db 0,0 LD A,(d201) db 4,8,3,0ch JR NC,1938H LD BC,1004H db 40h,0,0,0,0 LD BC,1004H db 40h,2,8,20h,80h db 3,0ch JR NC,194CH m198c: db 0e0h m198d: db 47h m198e: db 3eh m198f: db 67h m1990: db 0cdh m1991: db 0abh m1992: db 47h m1993: db 3eh m1994: db 7dh m1995: db 0cdh db '(/)' db '(',squote,' Is drive' db ' ',squote,',A1,',squote db ': [L]arge, [S]mall or' db ' [N]on-standard? ',squote db ')' db '(',squote,'+ drive ' db squote,',A1,',squote db ': must be the same.' db squote,'/)' db '(',squote,'+Is drive' db ' ',squote,',A1,',squote db ': [F]ast, [M]edium or' db ' [S]low seek? ',squote db ')' db '(',squote,'+Is' db ' drive ',squote,',A1,' db squote,': [S]ingle or' db ' [D]ual drive? ',squote db ')' LD A,(d103) SUB 1 SBC A,A LD (m198c),A OR A JP Z,1A70H RET LD DE,1996H LD HL,1C95H CALL 3A7AH CALL 425BH XOR A LD (m198d),A XOR A LD (m198e),A XOR A LD (m198f),A LD A,1 LD (m1990),A LD A,1 LD (m1991),A LD A,(m1991) LD (m198c),A LD A,(m1990) LD L,A RLA SBC A,A LD H,A ADD HL,HL ADD HL,HL EX DE,HL LD A,(m198c) LD L,A RLA SBC A,A LD H,A ADD HL,DE LD DE,1977H ADD HL,DE LD A,(HL) LD HL,m198f OR (HL) LD (m198f),A LD DE,1999H LD HL,1C95H CALL 3A7AH LD DE,d109 LD HL,1C95H LD A,2 CALL 3A12H CALL 425BH LD HL,1C99H CALL 1CD1H LD (m1992),A SUB 1 SBC A,A LD (m198c),A OR A JP NZ,1C06H LD A,(m1991) LD DE,196FH LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198d OR (HL) LD (m198d),A LD A,(m1992) DEC A SUB 1 SBC A,A LD (m198c),A OR A JP NZ,1B8BH LD DE,1A32H LD HL,1C95H CALL 3A7AH LD DE,d109 LD HL,1C95H LD A,2 CALL 3A12H CALL 425BH LD HL,1C99H CALL 1EA4H LD (m1993),A SUB 1 SBC A,A LD (m198c),A OR A JP NZ,1C06H LD DE,19FBH LD HL,1C95H CALL 3A7AH LD DE,d109 LD HL,1C95H LD A,2 CALL 3A12H CALL 425BH LD HL,1C99H CALL 1DBDH LD (m1994),A DEC A SUB 1 SBC A,A LD (m198c),A OR A JP Z,1B69H LD A,(m1991) LD DE,1977H LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198e OR (HL) LD (m198e),A LD A,(m1994) SUB 3 SUB 1 SBC A,A LD (m198c),A OR A JP Z,1B8BH LD A,(m1991) LD DE,1973H LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198e OR (HL) LD (m198e),A LD A,(m1991) LD HL,d103 SUB (HL) SUB 1 SBC A,A LD (m198c),A OR A JP NZ,1C69H LD A,(m1991) INC A LD (m1991),A LD A,(d109) INC A LD (d109),A LD DE,19D3H LD HL,1C95H CALL 3A7AH LD DE,d109 LD HL,1C95H LD A,2 CALL 3A12H CALL 425BH LD A,(m1991) LD (m198c),A LD DE,196FH LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198d OR (HL) LD (m198d),A LD A,(m1990) LD L,A RLA SBC A,A LD H,A ADD HL,HL ADD HL,HL EX DE,HL LD A,(m198c) LD L,A RLA SBC A,A LD H,A ADD HL,DE LD DE,1977H ADD HL,DE LD A,(HL) LD HL,m198f OR (HL) LD (m198f),A LD A,(m1992) DEC A SUB 1 SBC A,A LD (m1995),A OR A JP NZ,1C69H JP 1C26H LD DE,19FBH LD HL,1C95H CALL 3A7AH LD DE,d109 LD HL,1C95H LD A,2 CALL 3A12H CALL 425BH LD HL,1C99H CALL 1DBDH LD (m1994),A LD A,(m1994) DEC A SUB 1 SBC A,A LD (m198c),A OR A JP Z,1C47H LD A,(m1991) LD DE,1977H LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198e OR (HL) LD (m198e),A LD A,(m1994) SUB 3 SUB 1 SBC A,A LD (m198c),A OR A JP Z,1C69H LD A,(m1991) LD DE,1973H LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,(HL) LD HL,m198e OR (HL) LD (m198e),A LD A,(d109) INC A LD (d109),A LD A,(m1990) INC A LD (m1990),A LD A,(m1991) LD HL,103H CP (HL) INC A JP C,1A8FH LD A,(m198d) LD (d106),A LD A,(m198e) LD (d107),A LD A,(m198f) LD (d108),A RET db 1,0,0,0,0 db 0,0,0,80h m1c9e: db 41h LD A,60H CALL 47ABH LD A,'i' m1ca6: dw 0abcdh db 'lLsSnN' m1cae: db 0cdh m1caf: db 62h m1cb0: db 3fh db '(A1)' db '(',squote,'+Please' db ' enter L, S or N ' db squote,')' LD (m1ca6),HL LD DE,1CB1H LD HL,1D84H CALL 3A77H LD DE,m1cae LD HL,1D84H LD A,2 CALL 3A12H CALL 425BH LD A,0FFH LD (m1c9e),A LD A,(m1cae) LD HL,1CABH SUB (HL) SUB 1 SBC A,A LD (m1caf),A LD A,(m1cae) LD HL,1CAAH SUB (HL) SUB 1 SBC A,A LD HL,m1caf OR (HL) LD (m1cb0),A OR A JP Z,1D16H XOR A LD (m1c9e),A LD A,(m1cae) LD HL,1CA9H SUB (HL) SUB 1 SBC A,A LD (m1caf),A LD A,(m1cae) LD HL,1CA8H SUB (HL) SUB 1 SBC A,A LD HL,m1caf OR (HL) LD (m1cb0),A OR A JP Z,1D3DH LD A,1 LD (m1c9e),A LD A,(m1cae) LD HL,1CADH SUB (HL) SUB 1 SBC A,A LD (m1caf),A LD A,(m1cae) LD HL,1CACH SUB (HL) SUB 1 SBC A,A LD HL,m1caf OR (HL) LD (m1cb0),A OR A JP Z,1D64H LD A,2 LD (m1c9e),A LD A,(m1c9e) RLA CCF SBC A,A LD (m1caf),A OR A JP Z,1D75H LD A,(m1c9e) RET LD DE,1CB5H LD HL,1D84H CALL 3A7AH CALL 425BH JP 1CD4H db 1,0,0,0,0abh db 'G' m1d8a: db '>?' db 0c3h,0abh,'G' db '=' dw 59c2h m1d92: dw 3e42h db 'fFsSmM' m1d9a: db 0cdh m1d9b: db 0abh m1d9c: db 'G' db '(A1)' db '(',squote,'+Please' db ' enter F, M or S ' db squote,')' LD (m1d92),HL LD DE,1D9DH LD HL,1E70H CALL 3A77H LD DE,m1d9a LD HL,1E70H LD A,2 CALL 3A12H CALL 425BH LD A,0FFH LD (m1d8a),A LD A,(m1d9a) LD HL,1D95H SUB (HL) SUB 1 SBC A,A LD (m1d9b),A LD A,(m1d9a) LD HL,1D94H SUB (HL) SUB 1 SBC A,A LD HL,m1d9b OR (HL) LD (m1d9c),A OR A JP Z,1E02H XOR A LD (m1d8a),A LD A,(m1d9a) LD HL,1D99H SUB (HL) SUB 1 SBC A,A LD (m1d9b),A LD A,(m1d9a) LD HL,1D98H SUB (HL) SUB 1 SBC A,A LD HL,m1d9b OR (HL) LD (m1d9c),A OR A JP Z,1E29H LD A,1 LD (m1d8a),A LD A,(m1d9a) LD HL,1D97H SUB (HL) SUB 1 SBC A,A LD (m1d9b),A LD A,(m1d9a) LD HL,1D96H SUB (HL) SUB 1 SBC A,A LD HL,m1d9b OR (HL) LD (m1d9c),A OR A JP Z,1E50H LD A,3 LD (m1d8a),A LD A,(m1d8a) RLA CCF SBC A,A LD (m1d9b),A OR A JP Z,1E61H LD A,(m1d8a) RET LD DE,1DA1H LD HL,1E70H CALL 3A7AH CALL 425BH JP 1DC0H db 1,0,0,0,19h db 2 m1e76: db '#',dquote,'i',1 db '>!' db 0cdh,2ah m1e7e: dw 3e48h m1e80: db 'sSdD' m1e84: db 0cdh m1e85: db 0dfh m1e86: db '(A1)' db '(',squote,'+Please' db ' enter S or D ' db squote,')' db 0cch LD (m1e7e),HL LD DE,m1e86 LD HL,1F3CH CALL 3A77H LD DE,m1e84 LD HL,1F3CH LD A,2 CALL 3A12H CALL 425BH LD A,0FFH LD (m1e76),A LD A,(m1e84) LD HL,m1e80 SUB (HL) SUB 1 SBC A,A LD (m1e85),A OR A JP Z,1EDAH LD A,(m1e80+1) LD (m1e84),A LD A,(m1e84) LD HL,1E82H SUB (HL) SUB 1 SBC A,A LD (m1e85),A OR A JP Z,1EF1H LD A,(m1e80+3) LD (m1e84),A LD A,(m1e84) LD HL,m1e80+1 SUB (HL) SUB 1 SBC A,A LD (m1e85),A OR A JP Z,1F06H XOR A LD (m1e76),A LD A,(m1e84) LD HL,m1e80+3 SUB (HL) SUB 1 SBC A,A LD (m1e85),A OR A JP Z,1F1CH LD A,1 LD (m1e76),A LD A,(m1e76) RLA CCF SBC A,A LD (m1e85),A OR A JP Z,1F2DH LD A,(m1e76) RET LD DE,1E8AH LD HL,1F3CH CALL 3A7AH CALL 425BH JP 1EA7H db 1,0,0,0,80h db 'D' m1f42: db 0e5h,'>/' db 0c2h,0abh db 'G>}' m1f4a: dw 0abcdh m1f4c: db 'G>' m1f4e: db '/' m1f4f: db 0cdh db '(I2)' db '(',squote,'+Invalid' db ' entry. Please enter' db ' a number between' db squote,',I3,',squote db ' and',squote,',I3,' db squote,'. ',squote,')' db 03ah LD (m1f4a),HL EX DE,HL LD (m1f4c),HL LD DE,1F50H LD HL,1FFDH CALL 3A77H LD DE,m1f42 LD HL,1FFDH LD A,2 CALL 3A12H CALL 425BH LD A,(m1f42) LD HL,(m1f4c) SUB (HL) DEC A ADD A,81H SBC A,A LD (m1f4e),A LD A,(m1f42) LD HL,(m1f4a) SUB (HL) RLA CCF SBC A,A LD HL,m1f4e AND (HL) LD (m1f4f),A OR A JP Z,1FDDH LD A,(m1f42) RET LD DE,1F54H LD HL,1FFDH CALL 3A7AH LD HL,(m1f4c) LD B,H LD C,L LD HL,(m1f4a) EX DE,HL LD HL,1FFDH LD A,3 CALL 3A12H CALL 425BH JP 1F9FH db 1,0,0,0 db 0b7h,0c2h m2003: dw 44ffh db '<' db 0f5h,0ebh db '*',6,2 m200b: dw 75cdh m200d: db 'a A P z ' m2015: db 2,0b7h m2017: db 'x' m2018: db 0cah db '(A1)' db '(',squote,'+Please' db ' enter a letter' db ' between A and P. ' db squote,')' LD (m200b),HL LD DE,2019H LD HL,2100H CALL 3A77H LD DE,m2015 LD HL,2100H LD A,2 CALL 3A04H CALL 425BH LD HL,(m2015) EX DE,HL LD HL,(m200d+6) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H DEC A ADD A,81H SBC A,A LD (m2017),A LD HL,(m2015) EX DE,HL LD HL,(m200d) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H RLA CCF SBC A,A LD HL,m2017 AND (HL) LD (m2018),A OR A JP Z,20A8H LD HL,(m2015) LD DE,0FFE0H ADD HL,DE LD (m2015),HL LD HL,(m2015) LD DE,0FFC0H ADD HL,DE LD (m2003),HL LD HL,(m2015) EX DE, HL LD HL,(m200d+4) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H DEC A ADD A,81H SBC A,A LD (m2017),A LD HL,(m2015) EX DE,HL LD HL,(200FH) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H RLA CCF SBC A,A LD HL,m2017 AND (HL) LD (m2018),A OR A JP Z,20F1H LD HL,(m2003) RET LD DE,201DH LD HL,2100H CALL 3A7AH CALL 425BH JP 204CH db 1,0,0,0 db '2e' db 1 db '*',19h,2 db 11h,6,0 db 19h dw 5d22h db 'yYnN' db '>' db 1 db '(A1)' db '(',squote,'+Please' db ' enter Y or N ',squote db ')' db 3fh LD (210EH),HL LD DE,2116H LD HL,21B1H CALL 3A77H LD DE,2106H LD HL,21B1H LD A,2 CALL 3A12H CALL 425BH LD A,(2106H) LD HL,2110H SUB (HL) SUB 1 SBC A,A LD (2114H),A OR A JP Z,2165H LD A,(2111H) LD (2106H),A LD A,(2106H) LD HL,2112H SUB (HL) SUB 1 SBC A,A LD (2114H),A OR A JP Z,217CH LD A,(2113H) LD (2106H),A LD A,(2106H) LD HL,2113H SUB (HL) SUB 1 SBC A,A LD (2114H),A LD A,(2106H) LD HL,2111H SUB (HL) SUB 1 SBC A,A LD HL,2114H OR (HL) LD (2115H),A OR A JP Z,21A2H LD A,(2106H) RET LD DE,211AH LD HL,21B1H CALL 3A7AH CALL 425BH JP 2137H db 1,0,0,0 db '!k' dw 2208h dw 263h db 'CPM SPR' dw 2201h dw 1aeh db 0 db 'e' dw 256ch dw 2536h dw 2585h dw 3202h dw 256ch dw 2585h dw 2585h dw 2551h dw 2508h dw 2585h dw 2551h dw 2508h dw 2585h dw 2551h dw 2508h dw 2585h dw 2551h dw 2508h dw 2585h db '(',squote,' Writing' db ' ',squote,',4A1,',squote db ' drivers to CPMLOAD.$$$' db squote,')' db '(',squote,' Unexpected' db ' EOF on CPM',squote db ',4A1,',squote,'.SPR.' db squote,'/)' db '(',squote,' Error' db ' reading CPM',squote db ',4A1,',squote,'.SPR' db ' file.',squote,'/)' db '(',squote,' Error' db ' writing CPMLOAD.$$$' db ' file.',squote db '/)' db '(',squote,' CPM' db squote,',4A1,',squote db '.SPR file not found' db '.',squote,'/)' db '(',squote,' Error' db ' reading CPM',squote db ',4A1,',squote,'.SPR' db ' file.',squote,'/)' LD (21B7H),HL EX DE,HL LD (21B9H),HL LD HL,(21B7H) LD A,(HL) LD (21BEH),A LD HL,1 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (21BFH),A LD HL,2 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (21C0H),A LD HL,3 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (21C1H),A LD DE,21F2H LD HL,2581H CALL 3A7AH LD HL,(21B7H) EX DE,HL LD HL,2589H LD A,2 CALL 3A12H CALL 425BH LD HL,(21B9H) LD B,H LD C,L LD DE,21BBH LD HL,2595H CALL 4E0DH CPL LD (21CBH),A OR A JP NZ,251BH LD BC,21CCH LD DE,2585H LD HL,2595H CALL 3A67H LD HL,1 LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,234CH CALL 425BH LD HL,100H LD (21C8H),HL LD HL,(21B7H) LD A,(HL) LD (d11a),A LD HL,1 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (d11b),A LD HL,2 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (d11c),A LD HL,3 EX DE,HL LD HL,(21B7H) ADD HL,DE LD A,(HL) LD (d11d),A LD A,(d10c) INC A LD HL,d30a ADD A,(HL) LD (d30a),A LD HL,(21C8H) LD A,L RLCA OR L AND 7FH OR H DEC A SUB 7FH SBC A,A LD (21CBH),A OR A JP Z,2400H LD BC,21D4H LD DE,2585H LD HL,2591H CALL 3A6FH LD HL,1 LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL EX DE,HL LD HL,(21C8H) EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,23D4H CALL 425BH LD A,(21CAH) OR A JP NZ,2510H LD BC,2585H LD DE,258DH LD HL,d10a CALL 25A4H LD HL,0 LD (21C8H),HL LD BC,21DAH LD DE,2585H LD HL,2595H CALL 3A67H LD HL,1 LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,2428H CALL 425BH LD HL,100H LD (21C8H),HL LD BC,21E0H LD DE,2585H LD HL,2595H CALL 3A67H LD HL,81H LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,2466H CALL 425BH LD BC,21E6H LD DE,2585H LD HL,2595H CALL 3A67H LD HL,101H LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL LD A,80H SUB L LD A,1 SBC A,H JP P,249EH CALL 425BH LD HL,200H LD (21C8H),HL LD BC,21ECH LD DE,2585H LD HL,2595H CALL 3A67H LD HL,d181 LD (21C6H),HL LD HL,(21C6H) LD DE,d109 ADD HL,DE LD (21D2H),HL LD HL,(21D2H) EX DE,HL LD HL,2581H LD A,2 CALL 3A12H LD HL,(21C6H) INC HL LD A,0 SUB L LD A,2 SBC A,H JP P,24DCH CALL 425BH JP 23B1H LD A,0FFH LD (21CAH),A JP 23B1H LD HL,7 CALL 41EBH XOR A LD (21CAH),A RET LD DE,2291H LD HL,2581H CALL 3A7AH LD HL,(21B7H) EX DE,HL LD HL,2589H LD A,2 CALL 3A12H CALL 425BH JP 2578H LD DE,221DH LD HL,2581H CALL 3A7AH LD HL,(21B7H) EX DE,HL LD HL,2589H LD A,2 CALL 3A12H CALL 425BH JP 2578H LD DE,22B5H LD HL,2581H CALL 3A7AH LD HL,(21B7H) EX DE,HL LD HL,2589H LD A,2 CALL 3A12H CALL 425BH JP 2578H LD DE,226CH LD HL,2581H CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0 db 0,0,0,0 db 4,0,0,0 db 0,2,0,0 db 6,0,0,0 db 7,0,0,0 db 't' db ' S' db 'yn' db 'ta' dw 49f8h dw 6c6ch LD (259AH),HL EX DE,HL LD (259CH),HL LD H,B LD L,C LD (259EH),HL LD HL,1 LD (25A0H),HL LD HL,(25A0H) DEC HL EX DE,HL LD HL,(259AH) ADD HL,DE LD (25A2H),HL LD HL,(259EH) LD A,(HL) LD HL,(25A2H) LD (HL),A LD HL,(25A0H) INC HL EX DE,HL LD HL,(259CH) LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,25B3H RET db ' ' db 'DO' dw 26d2h dw 26c3h dw 26f3h db 'en' db 'c',0e5h db 'Il' db 'le' db '(',squote,'0Unexpected' db ' EOF on CPMLOAD.COM' db squote,'/)' db '(',squote,'0Error' db ' reading CPMLOAD.COM' db squote,'/)' LD BC,25E2H LD DE,26EBH LD HL,26EFH CALL 3A67H LD HL,1 LD (25E0H),HL LD HL,(25E0H) LD DE,d109 ADD HL,DE LD (25E8H),HL LD HL,(25E8H) EX DE,HL LD HL,26E7H LD A,2 CALL 3A12H LD HL,(25E0H) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,2641H CALL 425BH LD HL,1 LD (25E0H),HL LD HL,(25E0H) LD (25E8H),HL LD DE,d30a ADD HL,DE LD (25EAH),HL LD HL,(25E8H) LD DE,119H ADD HL,DE LD A,(HL) LD HL,(25EAH) LD (HL),A LD HL,(25E8H) LD DE,d30e ADD HL,DE LD (25ECH),HL LD HL,(25E8H) LD DE,d11d ADD HL,DE LD A,(HL) LD HL,(25ECH) LD (HL),A LD HL,(25E8H) LD DE,312H ADD HL,DE LD (25EEH),HL LD HL,(25E8H) LD DE,121H ADD HL,DE LD A,(HL) LD HL,(25EEH) LD (HL),A LD HL,(25E0H) INC HL LD A,4 SUB L LD A,0 SBC A,H JP P,266DH RET LD DE,25F0H LD HL,26E7H CALL 3A7AH CALL 425BH JP 26DEH LD DE,2613H LD HL,26E7H CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0 db 0,0,0,0 db 6,0,0,0 db 5,0,0,0 db 'c' db 'k ' db 'Ov' db 'er' db 'fl' db 'o',0f7h dw 27bfh dw 27d8h dw 27e0h db '(',squote,' Error' db ' updating CPMLOAD' db '.COM file.',squote db '/)' LD HL,1 LD (26F8H),HL LD HL,(26F8H) LD (26FAH),HL LD DE,119H ADD HL,DE LD (26FCH),HL LD HL,(26FAH) LD DE,d30a ADD HL,DE LD A,(HL) LD HL,(26FCH) LD (HL),A LD HL,(26FAH) LD DE,d11d ADD HL,DE LD (26FEH),HL LD HL,(26FAH) LD DE,d30e ADD HL,DE LD A,(HL) LD HL,(26FEH) LD (HL),A LD HL,(26FAH) LD DE,121H ADD HL,DE LD (2700H),HL LD HL,(26FAH) LD DE,312H ADD HL,DE LD A,(HL) LD HL,(2700H) LD (HL),A LD HL,(26F8H) INC HL LD A,4 SUB L LD A,0 SBC A,H JP P,2731H LD BC,2702H LD DE,27D8H LD HL,27DCH CALL 3A6FH LD HL,1 LD (26F8H),HL LD HL,(26F8H) LD DE,d109 ADD HL,DE LD (26FAH),HL LD HL,(26FAH) EX DE,HL LD HL,27D4H LD A,2 CALL 3A12H LD HL,(26F8H) INC HL LD A,80H SUB L LD A,0 SBC A,H JP P,2795H CALL 425BH RET LD DE,2708H LD HL,27D4H CALL 3A7AH CALL 425BH CALL 397CH db ' ' db 1,0,0,0 db 0,0,0,0 db 6,0,0,0 db 5,0,0,0 db 'y' db ' E' db 'QU' db 'IV' db 'AL' db 'ENCEd' db ' Within a Grou' db 0f0h db 'M' db 'u' db 'l' db 'ti' db 'p' db '(',squote,' Unassigned' db ' Printer ',squote,')' db '(',squote,' Centronics' db ' Parallel ',squote,')' db '(',squote,' Standard' db ' Serial ',squote,')' db '(',squote,' TI-810 w/' db 'Tuart mod ',squote,')' db '(',squote,' ETX/ACK' db ' protocol ',squote db ')' db '(',squote,' CROMEMCO' db ' 3355 ',squote,')' db '(',squote,' TI-810 w/' db 'Cable mod ',squote,')' db '(',squote,' XON/XOFF' db ' protocol ',squote db ')' db '(',squote,' User Defined' db ' Printer',squote,')' db '(I4,',squote,': ',squote db ',20A1,',squote,' at port' db ' ',squote,',2A1,',squote db ' (hex).',squote,')' db '(I4,',squote,': ',squote db ',20A1,',squote,' at port' db ' ',squote,',2A1,',squote db ' (hex),',squote,',I5,' db squote,' baud.',squote db ')' db 65h LD (27E5H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30a ADD HL,DE LD A,(HL) LD L,A RLA SBC A,A LD H,A LD (27EBH),HL LD DE,0FFF9H ADD HL,DE LD A,L RLCA OR L AND 7FH OR H DEC A SUB 7FH SBC A,A LD (2803H),A OR A JP NZ,29FDH LD HL,(27EBH) CALL 399CH db 7 dw 2994h dw 29a3h dw 29b2h dw 29c1h dw 29d0h dw 29dfh dw 29eeh ; This code block unreferenced LD DE,2807H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,2820H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,2839H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,2852H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,286BH LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,2884H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,289DH LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,28B6H LD HL,27EDH CALL 3A58H CALL 425BH JP 2A09H LD DE,28CFH LD HL,27EDH CALL 3A58H CALL 425BH LD HL,0 LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 81H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2A2DH LD HL,6EH LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 82H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2A4BH LD HL,96H LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 84H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2A69H LD HL,12CH LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 88H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2A87H LD HL,4B0H LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 90H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2AA5H LD HL,960H LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 0A0H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2AC3H LD HL,12C0H LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,d30e ADD HL,DE LD A,(HL) SUB 0C0H SUB 1 SBC A,A LD (2803H),A OR A JP Z,2AE1H LD HL,2580H LD (27E7H),HL LD HL,(27E5H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,312H ADD HL,DE LD (2804H),HL LD A,(HL) AND 0F0H LD (2803H),A LD HL,2803H CALL 3926H EX DE,HL LD HL,10H CALL 39BFH LD DE,30H ADD HL,DE LD A,L LD (2801H),A LD HL,(2804H) LD A,(HL) AND 0FH ADD A,'0' LD (2802H),A LD HL,(27E7H) LD A,L RLCA OR L AND 7FH OR H SUB 1 SBC A,A LD (2806H),A OR A JP Z,2B56H LD DE,28E8H LD HL,2BA7H CALL 3A7AH LD HL,(27E5H) EX DE,HL LD HL,2BA7H LD A,2 CALL 3A04H LD DE,27EDH LD HL,2BABH LD A,2 CALL 3A12H LD DE,2801H LD HL,2BA3H LD A,2 CALL 3A12H CALL 425BH LD HL,(27E7H) LD A,L RLCA OR L AND 7FH OR H ADD A,0FFH SBC A,A LD (2803H),A OR A JP Z,2BA2H LD DE,2910H LD HL,2BA7H CALL 3A7AH LD HL,(27E5H) EX DE,HL LD HL,2BA7H LD A,2 CALL 3A04H LD DE,27EDH LD HL,2BABH LD A,2 CALL 3A12H LD DE,2801H LD HL,2BA3H LD A,2 CALL 3A12H LD DE,27E7H LD HL,2BA7H LD A,2 CALL 3A04H CALL 425BH RET db 2,0,0,0 db 1,0,0,0 db 14h,0,0,0 db 'O' db 0e1h db 0c3h db 'aT' db ':' db 8,'09AFNY' db 0cch db '>]' db 0f1h,0f5h db '=',0c2h db 0aeh db 'P' db '(',squote,' Enter' db ' type of printer' db squote,',I2,',squote db ':',squote,'/,3X,' db squote,'[0] Unassigned' db squote,'/,3X,',squote db '[1] Centronics Para' db 'llel',squote,'/,3X,' db squote,'[2] Standard' db ' Serial',squote,'/,3X,' db squote,'[3] TI-810 w/' db 'Tuart mod',squote,'/,3X,' db squote,'[4] ETX/ACK pr' db 'otocol',squote,'/,3X,' db squote,'[5] CROMEMCO' db ' 3355',squote,'/,3X,' db squote,'[6] TI-810 w/' db 'Cable mod',squote,'/)' db '(',squote,'0Enter baud' db ' rate for printer',squote db ',I2,',squote,':',squote db '/,3X,',squote,'[0] None' db squote,'/,3X,',squote,'[1] ' db '110',squote,'/,3X,',squote db '[2] 150',squote,'/,3X,' db squote,'[3] 300',squote db '/,3X,',squote,'[4] 1200' db squote,'/,3X,',squote,'[5]' db ' 2400',squote,'/,3X,' db squote,'[6] 4800',squote db '/,3X,',squote,'[7] 9600' db squote,'/)' db '(',squote,'0Enter base' db ' port address for pr' db 'inter',squote,',I2,' db squote,': ',squote,')' db '(2A1)' db '(',squote,'+Please' db ' enter a hex number' db ' (e.g. 00,10,...,f0): ' db squote,')' db '(',squote,'0Is this' db ' configuration correct?' db ' ',squote,')' LD HL,1 LD (2BB2H),HL LD HL,2BB2H CALL 2945H LD DE,2DA7H LD HL,3079H CALL 3A7AH CALL 425BH LD HL,307DH CALL 2134H LD HL,2BBBH SUB (HL) SUB 1 SBC A,A LD (2BBCH),A OR A JP NZ,3067H LD DE,2BC5H LD HL,3079H CALL 3A7AH LD DE,2BB2H LD HL,3079H LD A,2 CALL 3A04H CALL 425BH LD HL,(2BB2H) LD (2BBDH),HL LD DE,d30a ADD HL,DE LD (2BBFH),HL LD DE,3081H LD HL,307DH CALL 1F98H LD HL,(2BBFH) LD (HL),A LD HL,(2BBDH) LD DE,d30e ADD HL,DE LD (2BC1H),HL XOR A LD HL,(2BC1H) LD (HL),A LD HL,(2BBFH) LD A,(HL) SUB 5 SUB 1 SBC A,A LD (2BBCH),A LD HL,(2BBFH) LD A,(HL) DEC A DEC A ADD A,81H SBC A,A LD HL,2BBCH OR (HL) LD (2BC3H),A OR A JP NZ,2F4FH LD DE,2CA1H LD HL,3079H CALL 3A7AH LD DE,2BB2H LD HL,3079H LD A,2 CALL 3A04H CALL 425BH LD DE,3085H LD HL,307DH CALL 1F98H LD (2BC4H),A DEC A SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2E95H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,81H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 2 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2EB4H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,82H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 3 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2ED3H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,84H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 4 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2EF2H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,88H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 5 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2F11H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,90H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 6 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2F30H LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,0A0H LD HL,(2BBDH) LD (HL),A LD A,(2BC4H) SUB 7 SUB 1 SBC A,A LD (2BBCH),A OR A JP Z,2F4FH LD HL,(2BB2H) LD DE,d30e ADD HL,DE LD (2BBDH),HL LD A,0C0H LD HL,(2BBDH) LD (HL),A LD DE,2D3EH LD HL,3079H CALL 3A7AH LD DE,2BB2H LD HL,3079H LD A,2 CALL 3A04H CALL 425BH LD DE,2D6EH LD HL,3079H CALL 3A77H LD DE,2BB0H LD HL,3075H LD A,2 CALL 3A12H CALL 425BH LD A,(2BB1H) LD HL,2BB6H SUB (HL) SUB 1 SBC A,A LD (2BBCH),A OR A JP NZ,2F9DH LD DE,2D73H LD HL,3079H CALL 3A7AH CALL 425BH JP 2F4FH LD A,(2BB0H) LD HL,2BB7H SUB (HL) DEC A ADD A,81H SBC A,A LD (2BBCH),A LD A,(2BB0H) LD HL,2BB6H SUB (HL) RLA CCF SBC A,A LD HL,2BBCH AND (HL) LD (2BC3H),A OR A JP NZ,3014H LD DE,2D73H LD HL,3079H CALL 3A7AH CALL 425BH JP 2F4FH ; This block of code unreferenced LD HL,(2BB2H) LD DE,2BAFH ADD HL,DE LD (2BBDH),HL LD A,(2BB0H) AND 5FH LD HL,(2BBDH) LD (HL),A LD A,(2BB0H) LD HL,2BB9H SUB (HL) DEC A ADD A,81H SBC A,A LD (2BBCH),A LD A,(2BB0H) LD HL,2BB8H SUB (HL) RLA CCF SBC A,A LD HL,2BBCH AND (HL) LD (2BC3H),A OR A JP NZ,3014H LD DE,2D73H LD HL,3079H CALL 3A7AH CALL 425BH JP 2F4FH ; LD A,(2BB0H) SUB '0' LD (2BB0H),A SUB 0AH RLA CCF SBC A,A LD (2BBCH),A OR A JP Z,3030H LD A,(2BB0H) SUB 7 LD (2BB0H),A LD A,(2BB1H) SUB '0' LD (2BB1H),A LD HL,(2BB2H) LD DE,312H ADD HL,DE LD (2BBDH),HL LD A,(2BB0H) LD L,A RLA SBC A,A LD H,A ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL LD (2BBFH),HL LD HL,2BBFH CALL 3926H EX DE,HL LD A,(2BB1H) LD L,A RLA SBC A,A LD H,A ADD HL,DE LD A,L LD HL,(2BBDH) LD (HL),A JP 2DD1H LD HL,(2BB2H) INC HL LD A,4 SUB L LD A,0 SBC A,H JP P,2DCEH RET db 2,0,0,0 db 1,0,0,0 db 0,0,0,0 db 7fh,0,0,0 db 7,0,0,0 ; data? db 1 dw 273h dw 170ah LD (BC),A ; . EX DE,HL ; . POP HL ; . LD (HL),E ; s INC HL ; # LD (HL),D ; r INC HL ; # EX DE,HL ; . POP HL ; . POP AF ; . DEC A ; = JP NZ,05523H ; .#U LD A,(0022DH) ; :-. LD HL,00273H ; !s. OR A ; . DEC A ; = JP Z,05588H ; ..U DEC A ; =~ LD A,(HL) ; ~ JP Z,05569H ; .iU LD B,A ; G AND 006H ; .. JP 0556DH ; .mU RLA ; . LD B,A ; G AND 004H ; .. JP Z,05588H ; ..U LD HL,0026AH ; !j. LD A,B ; x RRA ; . RRA ; . JP C,0557EH ; .~U PUSH AF ; . CALL 05597H ; ..U POP AF ; . RRA ; . JP C,05587H ; ..U DEC HL ; + DEC HL ; + CALL 05597H ; ..U SCF ; 7 POP HL ; . PUSH AF ; . CALL 05461H ; .aT POP AF ; . POP HL ; . LD (00174H),HL ; "t. POP HL ; . LD (0015DH),HL ; "]. RET ; . LD D,(HL) ; V DEC HL ; + dw 0e55eh dw 0cdebh dw 520h db 0ebh db '(I4,',squote,': ' db squote,',256A1)' db '(I4,',squote,': ' db 'Not assigned.',squote db ')' LD BC,30E0H LD DE,30B6H LD HL,308EH CALL 3686H LD HL,1 LD (308AH),HL LD HL,(308AH) ADD HL,HL LD (30E6H),HL LD DE,308CH ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD (30E2H),HL LD HL,(30E6H) LD DE,30B4H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD HL,(30E2H) ADD HL,DE LD (30E4H),HL LD HL,(30E6H) LD DE,30B4H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD A,L RLCA OR L AND 7FH OR H SUB 1 SBC A,A LD (30E8H),A OR A JP Z,3178H LD DE,30F8H LD HL,31E6H CALL 3A7AH LD DE,308AH LD HL,31E6H LD A,2 CALL 3A04H CALL 425BH LD HL,(308AH) ADD HL,HL LD DE,30B4H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD A,L RLCA OR L AND 7FH OR H DEC A SUB 7FH SBC A,A LD (30E8H),A OR A JP Z,31D8H LD DE,30E9H LD HL,31E6H CALL 3A7AH LD DE,308AH LD HL,31E6H LD A,2 CALL 3A04H LD HL,(30E2H) LD (308CH),HL LD HL,(308CH) LD DE,316H ADD HL,DE LD (30E6H),HL LD HL,(30E6H) EX DE,HL LD HL,31E6H LD A,2 CALL 3A12H LD HL,(308CH) INC HL EX DE,HL LD HL,(30E4H) EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,31ACH CALL 425BH LD HL,(308AH) INC HL LD A,14H SUB L LD A,0 SBC A,H JP P,311EH RET db 1,0,0,0 db 8 db 0c3h,0eah db 9,3ah dw 296h dw 2efeh JP Z,056D8H ; ..V CP 02AH ; .* JP Z,05721H ; .!W LD DE,00006H ; ... LD HL,00484H ; !.. CP (HL) ; . JP Z,56C8H DEC HL DEC E JP P,56B8H XOR A LD (d240),A JP 56D4H ; Data? EX DE, HL ; . ADD HL, HL ; ) LD DE,004A3H ; ... ADD HL,DE ; . LD A,(HL) ; ~ LD (d240),A ; 2@. INC HL ; # LD A,(HL) ; ~ LD (001B4H),A ; 2.. RET ; . LD A,003H ; >. CALL 018F7H ; ... LD DE,0000AH ; ... LD HL,004A0H ; !.. PUSH DE ; . PUSH HL ; . LD B,003H ; .. LD DE,001DCH ; ... CALL 00677H ; .w. POP HL ; . POP DE ; . JP Z,05708H ; ..w DEC HL ; + DEC HL ; + DEC HL ; + DEC E ; . JP NZ,056E3H ; ..V db 2ah dw d103 dw 3af9h dw 1ceh OR A ; . JP NZ,0647CH ; .|d CALL 013A7H ; ... ADD A,C ; . LD A,006H ; >. ADD A,E ; . LD E,A ; _ LD A,(00296H) ; :.. CP 02EH ; .. JP Z,056C8H ; ..V PUSH DE ; . CALL 01953H ; .S. CP 02EH ; .. POP DE ; . JP Z,056C8H ; ..V JP 056F9H ; ..V CALL 01953H ; .S. CP 02AH ; .* LD DE,00011H ; ... JP Z,056C8H ; ..V LD (00173H),A ; 2s. LD E,002H ; .. JP 056C8H ; ..V LD HL,00000H ; !.. LD A,010H ; >. ADD HL,HL ; ) EX DE,HL ; . ADD HL,HL ; ) EX DE,HL ; . JP NC,05741H ; .AW ADD HL,BC ; . DEC A ; = JP NZ,05739H ; .9W RET ; . XOR A ; . SUB L ; . LD L,A ; o SBC A,H ; . SUB L ; . LD H,A ; 9 RET ; . PUSH BC ; . LD B,000H ; .. CALL 057C5H ; ..W LD B,C ; A LD A,004H ; >. CALL 0578DH ; ..W POP BC ; . LD A,C ; y CP 005H ; .. JP C,05774H ; .tW CP 00FH ; .. RET Z ; . LD A,002H ; >. CALL 0578DH ; ..W LD B,E ; C CALL 047FBH ; ..G LD B,D ; B CALL 047FBH ; ..G LD A,C ; y CP 008H ; .. RET NC ; . LD A,(001B6H) ; :.. LD B,A ; G LD D,A ; W LD A,003H ; >. CALL 0578DH ; ..W PUSH HL ; . dw 5921h dw 4601h db 0cdh dw 047FBH dw 152bh db '(I4,',squote,': ' db squote,',256A1)' db '(I4,',squote db ': Not assigned.' db squote,')' db '(',squote,' Is this' db ' string correct? ' db squote,')' db '(',squote,'+Enter new' db ' string: ',squote,')' db '(128A1)' db '(',squote,'+No room to' db ' insert new string.' db squote,'/',squote,' Some' db ' other string must be' db ' shortened first.',squote db '/)' LD BC,3247H LD DE,321BH LD HL,31F3H CALL 3686H LD HL,1 LD (31EBH),HL LD HL,(31EBH) ADD HL,HL LD (32CAH),HL LD DE,31F1H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD (31EFH),HL LD HL,(32CAH) LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD HL,(31EFH) ADD HL,DE LD (31F1H),HL LD HL,(32CAH) LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD A,L RLCA OR L AND 7FH OR H SUB 1 SBC A,A LD (32CCH),A OR A JP Z,33ECH LD DE,32E0H LD HL,3661H CALL 3A7AH LD DE,31EBH LD HL,3661H LD A,2 CALL 3A04H CALL 425BH LD HL,(31EBH) ADD HL,HL LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD A,L RLCA OR L AND 7FH OR H DEC A SUB 7FH SBC A,A LD (32CCH),A OR A JP Z,344CH LD DE,32D1H LD HL,3661H CALL 3A7AH LD DE,31EBH LD HL,3661H LD A,2 CALL 3A04H LD HL,(31EFH) LD (31EDH),HL LD HL,(31EDH) LD DE,316H ADD HL,DE LD (32CAH),HL LD HL,(32CAH) EX DE,HL LD HL,3661H LD A,2 CALL 3A12H LD HL,(31EDH) INC HL EX DE,HL LD HL,(31F1H) EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,3420H CALL 425BH LD DE,32F7H LD HL,3661H CALL 3A7AH CALL 425BH LD HL,3665H CALL 2134H LD HL,32C9H SUB (HL) SUB 1 SBC A,A LD (32CCH),A OR A JP NZ,3615H LD DE,3314H LD HL,3661H CALL 3A7AH CALL 425BH LD DE,332BH LD HL,3661H CALL 3A77H LD DE,3249H LD HL,3669H LD A,2 CALL 3A12H CALL 425BH LD DE,3669H LD HL,3249H CALL 38CEH LD (3243H),HL LD HL,(31EBH) ADD HL,HL LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD HL,(3247H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A EX DE,HL LD HL,(3243H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD DE,0FFH ADD HL,DE LD A,L RLCA OR L AND 7FH OR H DEC A ADD A,81H SBC A,A LD (32CCH),A OR A JP NZ,3609H LD HL,(31EBH) ADD HL,HL LD DE,3219H ADD HL,DE LD (32CAH),HL LD HL,(3243H) EX DE,HL LD HL,(32CAH) LD A,(HL) INC HL LD H,(HL) LD L,A LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H DEC A SUB 7FH SBC A,A LD (32CCH),A OR A JP Z,3532H LD HL,(31EBH) ADD HL,HL LD (32CAH),HL LD DE,31F1H ADD HL,DE LD (32CDH),HL LD HL,(32CAH) LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD HL,(3243H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A XOR A SUB L LD L,A SBC A,H SUB L LD H,A LD (32CFH),HL LD DE,32CFH LD HL,(32CDH) CALL 3770H LD HL,(31EBH) ADD HL,HL LD DE,3219H ADD HL,DE LD (32CAH),HL LD HL,(3243H) EX DE,HL LD HL,(32CAH) LD A,(HL) INC HL LD H,(HL) LD L,A LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H RLA SBC A,A LD (32CCH),A OR A JP Z,358CH LD HL,(31EBH) ADD HL,HL LD (32CAH),HL LD DE,31F1H ADD HL,DE LD (32CDH),HL LD HL,(32CAH) LD DE,3219H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD HL,(3243H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD (32CFH),HL LD DE,32CFH LD HL,(32CDH) CALL 3810H LD HL,(31EBH) ADD HL,HL LD DE,31F1H ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD (31EFH),HL LD HL,1 LD (31EDH),HL LD HL,(31EFH) LD DE,316H ADD HL,DE LD (32CAH),HL LD HL,(31EDH) LD DE,3248H ADD HL,DE LD A,(HL) LD HL,(32CAH) LD (HL),A LD HL,(31EFH) INC HL LD (31EFH),HL LD HL,(31EDH) INC HL EX DE,HL LD HL,(3243H) EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,359EH LD HL,(31EBH) ADD HL,HL LD DE,3219H ADD HL,DE LD (32CAH),HL LD HL,(3243H) EX DE,HL LD HL,(32CAH) LD A,(HL) INC HL LD H,(HL) LD L,A LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H ADD A,0FFH SBC A,A LD (32CCH),A OR A JP Z,3606H LD BC,3247H LD DE,321BH LD HL,31F3H CALL 3686H JP 3615H LD DE,3332H LD HL,3661H CALL 3A7AH CALL 425BH LD HL,(31EBH) INC HL LD A,14H SUB L LD A,0 SBC A,H JP P,3392H LD HL,(3247H) LD DE,0FF00H ADD HL,DE LD A,L RLCA OR L AND 7FH OR H SUB 1 SBC A,A LD (32CCH),A OR A JP Z,363AH RET LD HL,100H EX DE,HL LD HL,(3247H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD (31EBH),HL LD HL,(3247H) LD DE,317H ADD HL,DE LD (32CAH),HL LD BC,366DH LD DE,31EBH LD HL,(32CAH) CALL 25A4H RET db 1,0,0,0 db 0,0,0,0 db 80h,0,0,0 db 0ffh,0,0,0 db 2,2ah dw 1cch dw 3422h dw 3a02h dw 1e9h dw 0eb32h dw 0cd01h dw 5C29H dw 322ah dw 2202h db 0cch LD (3673H),HL EX DE,HL LD (3675H),HL LD H,B LD L,C LD (3677H),HL LD HL,0 EX DE,HL LD HL,(3677H) LD (HL),E INC HL LD (HL),D LD HL,1 EX DE,HL LD HL,(3673H) LD (HL),E INC HL LD (HL),D LD HL,1 LD (3679H),HL LD HL,(3679H) ADD HL,HL DEC HL DEC HL LD (367FH),HL EX DE,HL LD HL,(3673H) ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A LD (367BH),HL LD HL,(367FH) EX DE,HL LD HL,(3675H) ADD HL,DE LD (3681H),HL LD HL,(367BH) LD DE,316H ADD HL,DE LD (3683H),HL LD HL,(3683H) CALL 3891H EX DE,HL LD HL,(3681H) LD (HL),E INC HL LD (HL),D LD HL,(367FH) EX DE,HL LD HL,(3675H) ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A INC HL EX DE,HL LD HL,(3677H) LD A,(HL) INC HL LD H,(HL) LD L,A ADD HL,DE EX DE,HL LD HL,(3677H) LD (HL),E INC HL LD (HL),D LD HL,(3679H) LD DE,0FFECH ADD HL,DE LD A,L RLCA OR L AND 7FH OR H ADD A,0FFH SBC A,A LD (3685H),A OR A JP Z,3752H LD HL,(3679H) ADD HL,HL LD (367FH),HL EX DE,HL LD HL,(3673H) ADD HL,DE LD (3681H),HL LD HL,(367FH) DEC HL DEC HL EX DE,HL LD HL,(3673H) ADD HL,DE LD (3683H),HL LD HL,(367FH) DEC HL DEC HL EX DE,HL LD HL,(3675H) ADD HL,DE LD A,(HL) INC HL LD H,(HL) LD L,A INC HL EX DE,HL LD HL,(3683H) LD A,(HL) INC HL LD H,(HL) LD L,A ADD HL,DE EX DE,HL LD HL,(3681H) LD (HL),E INC HL LD (HL),D LD HL,(3679H) INC HL LD A,14H SUB L LD A,0 SBC A,H JP P,36A9H RET db dquote dw 234h dw 13eh dw 4032h dw 0cd02h dw 5C29H db 0e1h dw 61cdh dw 0c354h LD (3761H),HL EX DE,HL LD (3763H),HL LD HL,1 LD (3769H),HL LD HL,1 LD (3765H),HL LD HL,101H EX DE,HL LD HL,(3765H) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD (3767H),HL EX DE,HL LD HL,(3761H) LD A,(HL) INC HL LD H,(HL) LD L,A LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H SUB 1 SBC A,A LD (376BH),A OR A JP NZ,37D7H LD HL,(3767H) LD (376CH),HL LD DE,316H ADD HL,DE LD (376EH),HL LD HL,(376CH) LD DE,315H ADD HL,DE LD A,(HL) LD HL,(376EH) LD (HL),A LD HL,(3765H) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,3780H LD HL,(3761H) LD A,(HL) INC HL LD H,(HL) LD L,A LD DE,316H ADD HL,DE LD (376CH),HL LD A,' ' LD HL,(376CH) LD (HL),A LD HL,(3769H) INC HL EX DE,HL LD HL,(3763H) LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,377AH RET db 0cah dw 5CA5H dw 0fab7h dw 5cdbh dw 0e5f5h dw 5b2ah db 1 dw 0d5cdh dw 0e14fh LD (3801H),HL EX DE,HL LD (3803H),HL LD HL,1 LD (3809H),HL LD HL,1 LD (3805H),HL LD HL,(3807H) EX DE,HL LD HL,(3801H) LD A,(HL) INC HL LD H,(HL) LD L,A LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A LD A,L RLCA OR L AND 7FH OR H DEC A ADD A,81H SBC A,A LD (380BH),A OR A JP NZ,385EH LD HL,(3807H) LD (380CH),HL LD DE,316H ADD HL,DE LD (380EH),HL LD HL,(380CH) LD DE,317H ADD HL,DE LD A,(HL) LD HL,(380EH) LD (HL),A LD HL,(3805H) INC HL LD A,0 SUB L LD A,1 SBC A,H JP P,3820H LD A,0FFH LD (d416),A LD HL,(3809H) INC HL EX DE,HL LD HL,(3803H) LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,381AH RET db '>' dw 0f509h LD A,(001BEH) ; :.. OR A ; . db 0c2h,4ah dw 0f15dh db 0c3h LD (388EH),HL LD HL,0 LD (3886H),HL LD HL,(3886H) EX DE,HL LD HL,(388EH) ADD HL,DE LD A,(HL) SUB 0FFH SUB 1 SBC A,A LD (3890H),A OR A JP Z,38B3H LD HL,(3886H) RET LD HL,(3886H) INC HL LD (3886H),HL JP 389AH db 0 db 'O' dw 0d2b8h dw 5cceh LD A,00DH ; >. dw 38c3h dw 0f55dh dw 7fe6h dw 21e5h db 'X' LD (38C7H),HL EX DE,HL LD (38C9H),HL LD HL,1 LD (38CBH),HL LD HL,1 EX DE,HL LD HL,(38CBH) LD A,E SUB L LD L,A LD A,D SBC A,H LD H,A EX DE,HL LD HL,(38C9H) LD A,(HL) INC HL LD H,(HL) LD L,A ADD HL,DE LD (38BFH),HL DEC HL EX DE,HL LD HL,(38C7H) ADD HL,DE LD A,(HL) SUB 20H ADD A,0FFH SBC A,A LD (38CDH),A OR A JP Z,390BH LD HL,(38BFH) RET LD HL,(38CBH) INC HL EX DE,HL LD HL,(38C9H) LD A,(HL) INC HL LD H,(HL) LD L,A EX DE,HL LD A,E SUB L LD A,D SBC A,H JP P,38D8H LD HL,0 LD (38BFH),HL RET LD L,(HL) LD H,0 RET ; This block of code unreferenced CALL 395AH LD A,' ' LD (524BH),A LD HL,4150H LD (524CH),HL LD HL,5355H LD (524EH),HL LD HL,2045H LD (5250H),HL CALL 396BH LD HL,(518FH) LD (HL),0AH CALL 51A0H LD HL,(518FH) LD (HL),0AH CP 'T' JP Z,50EFH RET ; POP HL EX (SP),HL LD B,6 LD DE,5252H LD A,(HL) LD (DE),A INC HL INC DE DEC B JP NZ,3961H EX (SP),HL JP (HL) LD HL,524BH LD B,0DH PUSH BC LD A,(HL) CALL 5191H POP BC DEC B INC HL JP NZ,3970H RET CALL 395AH LD A,' ' LD (524BH),A LD HL,5453H LD (524CH),HL LD HL,504FH LD (524EH),HL LD HL,2020H LD (5250H),HL CALL 396BH JP 50EFH LD A,H OR A JP NZ,39BAH OR L JP Z,39BAH POP DE LD A,(DE) CP L JP C,39B3H ADD HL,HL ADD HL,DE DEC HL LD A,(HL) INC HL LD H,(HL) LD L,A JP (HL) LD L,A LD H,0 ADD HL,HL INC HL ADD HL,DE JP (HL) POP DE LD A,(DE) JP 39B3H EX DE,HL LD A,D OR E JP Z,39E2H LD A,D OR A LD B,D CALL M,39E6H LD A,H XOR B LD B,A LD A,H OR L RET Z LD A,H OR A EX DE, HL CALL M,39E6H PUSH BC CALL 4965H POP AF OR A CALL M,39E6H EX DE,HL RET CALL 5002H ADC A,C XOR A LD C,A SUB E LD E,A LD A,C SBC A,D LD D,A RET ; Data LD HL,05241H ; !AR LD A,(HL) ; ~ CPL ; / LD (HL),A ; w XOR A ; . LD L,A ; o SUB B ; . LD B,A ; G LD A,L ; } SBC A,E ; . LD E,A ; _ LD A,L ; } SBC A,D ; . LD D,A ; W LD A,L ; } SBC A,C ; . LD C,A ; O RET ; . dw 0e141h PUSH HL LD HL,203H JP 3A24H ; This code block not referenced PUSH HL LD HL,405H JP 3A24H ; PUSH HL LD HL,101H JP 3A24H ; This code block not referenced PUSH HL LD HL,806H JP 3A24H ; PUSH HL LD HL,404H LD (5217H),HL POP HL CALL 49ABH CALL 49BFH LD A,(HL) INC HL LD H,(HL) LD L,A LD (51FFH),HL CALL 49BFH RET C LD (51D5H),HL LD HL,(51FFH) LD (51D9H),HL LD A,(5236H) OR A JP Z,3A4FH CALL 3BE1H JP 3A35H CALL 4432H JP 3A35H LD A,001H ; >. CP 0AFH ; .. LD (05221H),A ; 2!R XOR A ; . LD (05222H),A ; 2*R INC A ; < LD (05203H),A ; 2.R JP 03A90H ; ..: LD A,1 LD (5221H),A JP 3A7FH XOR A LD (5221H),A INC A JP 3A7FH LD A,1 db 0feh XOR A LD (5221H),A XOR A LD (5222H),A XOR A LD (5203H),A LD A,(HL) INC HL LD H,(HL) LD L,A LD (5237H),HL LD HL,524BH LD (51DCH),HL EX DE,HL LD A,(HL) INC HL OR (HL) DEC HL JP NZ,3A9EH LD HL,0 LD (5205H),HL LD HL,0 ADD HL,SP INC HL INC HL LD (3A02H),HL LD A,(5222H) OR A JP NZ,3AC2H LD H,A LD L,A LD (5207H),HL LD (5209H),HL LD (520DH),HL LD (520BH),HL JP 3AFEH LD HL,5207H LD A,4 CALL 4999H LD HL,(5207H) LD A,(HL) INC HL OR (HL) JP NZ,3AD8H LD H,A LD L,A LD (5207H),HL LD HL,(5209H) LD A,(HL) INC HL OR (HL) JP NZ,3AE6H LD H,A LD L,A LD (5209H),HL LD HL,(520BH) LD A,(HL) INC HL LD H,(HL) LD L,A LD (520BH),HL LD HL,(520DH) LD A,(HL) INC HL LD H,(HL) LD L,A OR H JP NZ,3AFEH LD (520DH),HL XOR A LD (5223H),A LD (5234H),A LD (5236H),A LD (5230H),A LD (5212H),A LD (51F7H),A LD H,A LD L,A LD (520FH),HL LD (51D9H),HL CALL 48AAH LD HL,(5205H) LD A,H OR L JP Z,3B36H CALL 44A7H LD HL,(520FH) LD (5224H),HL CP '(' JP Z,43FDH CALL 5002H ADC A,B LD (51E0H),A LD (51E1H),A LD (51DEH),A LD (51DFH),A INC A LD (5236H),A LD A,(5221H) OR A RET Z LD A,4 JP 41F8H CALL 475BH CALL 3EA6H JP M,3B67H CP 0DH JP NZ,3B60H LD A,' ' CALL 4540H LD (HL),A JP 3B53H LD A,(51F9H) CPL INC A JP M,3B79H JP Z,3B79H CALL 4540H DEC A JP NZ,3B72H LD (51F9H),A LD A,(5217H) CP 5 JP Z,4644H LD A,(5218H) CPL ADD A,9 JP Z,4644H CALL 4540H DEC A JP 3B8AH CALL 475BH LD A,(51F9H) OR A JP M,3BAFH JP Z,3BAFH LD B,' ' PUSH AF CALL 42E3H POP AF DEC A JP NZ,3BA3H LD (51F9H),A PUSH AF LD A,(5217H) CP 5 JP NZ,3BC1H LD A,4 CALL 4540H DEC A JP NZ,3BBAH LD A,(5219H) LD B,A CALL 42E3H CALL 4540H JP 3BC1H LD HL,5219H LD DE,5243H LD C,8 OR A LD A,(DE) ADC A,(HL) LD (HL),A INC DE INC HL DEC C JP NZ,3BD7H RET LD A,(5221H) OR A JP Z,3C09H LD HL,(51E0H) LD B,H LD C,L LD HL,(51DEH) LD (523CH),HL LD HL,(51DCH) ADD HL,BC EX DE,HL LD HL,(51D5H) CALL 3C28H PUSH HL LD H,B LD L,C LD (51E0H),HL POP HL LD (51D5H),HL RET LD HL,(51DEH) LD B,H LD C,L LD HL,(52DEH) LD (523CH),HL LD HL,(51D5H) EX DE,HL LD HL,(51DCH) ADD HL,BC CALL 3C28H LD H,B LD L,C LD (51DEH),HL EX DE,HL JP 3C05H LD A,(5218H) PUSH AF PUSH HL LD HL,(523CH) DEC HL LD A,L SUB C LD A,H SBC A,B POP HL JP NC,3C6FH PUSH HL PUSH DE LD A,(5221H) OR A JP NZ,3C58H LD HL,(523CH) LD (51DEH),HL LD A,6 CALL 41F8H POP DE POP HL LD BC,0 LD HL,(51DCH) JP 3C2CH LD A,4 CALL 41F8H LD HL,(51DEH) LD (523CH),HL LD HL,(51DCH) EX DE,HL POP HL POP HL LD BC,0 JP 3C2CH LD A,(DE) LD (HL),A INC DE INC HL INC BC POP AF DEC A JP NZ,3C2BH PUSH HL LD HL,(51D9H) DEC HL LD (51D9H),HL LD A,H OR L POP HL JP NZ,3C28H RET INC A CP 13H JP C,3C90H LD A,12H LD B,A LD HL,51E2H LD (HL),'0' INC HL PUSH HL PUSH BC CALL 4767H POP BC LD HL,51F9H INC (HL) POP HL LD A,(5220H) RRA RRA RRA RRA AND 0FH ADD A,'0' LD (HL),A CALL 4865H DEC B JP NZ,3C96H LD (5215H),HL LD B,5 LD A,(HL) ADD A,B CP ':' JP C,3CCAH SUB 0AH LD (HL),A LD B,1 DEC HL JP 3CBAH LD (HL),A EX DE,HL LD HL,51E2H LD A,H CP D JP NZ,3CDFH LD A,L CP E JP NZ,3CDFH LD HL,51F9H INC (HL) EX DE,HL CP '#' LD (51FCH),HL LD A,H CPL LD D,A LD A,L CPL LD E,A INC DE LD HL,(5215H) ADD HL,DE LD (5215H),HL RET LD A,1 CP 0AFH LD (51F7H),A LD A,(5217H) CP 5 JP C,3FE6H CALL 466FH LD A,(51F8H) LD B,A LD A,(5230H) OR A JP M,3D11H ADD A,B CP 'x' LD (51F6H),A CALL 3C88H LD A,(5230H) OR A JP P,3D20H XOR A LD (51FBH),A LD B,5 CALL 4295H LD A,(5230H) OR A JP P,3D41H PUSH AF LD B,'0' CALL 42E3H LD HL,51F6H DEC (HL) JP Z,3D52H POP AF INC A JP NZ,3D2FH PUSH AF LD A,(51F6H) OR A JP M,3D52H JP Z,3D52H CALL 4270H JP 3D42H LD B,'E' LD A,(51F7H) OR A JP Z,3D5DH LD B,'D' CALL 42E3H LD A,(51F9H) LD HL,5230H SUB (HL) LD (51F9H),A JP M,3D72H LD B,'+' JP 3D79H LD B,'-' CPL INC A LD (51F9H),A CALL 42E3H LD A,(51F9H) LD E,A LD D,0 LD HL,0AH CALL 4965H POP AF PUSH HL LD A,E ADD A,'0' LD B,A CALL 42E3H EX (SP),HL LD A,L ADD A,'0' LD B,A CALL 42E3H POP AF RET LD A,(5217H) CP 5 JP C,3FE6H CALL 466FH LD A,(51F8H) LD B,A LD HL,51F9H LD A,(5230H) ADD A,(HL) LD (HL),A ADD A,B OR A JP M,3DBAH CALL 3C88H XOR A LD (51FBH),A LD A,(51F8H) LD (51F6H),A LD A,(51F9H) OR A JP M,3DD3H LD (51FBH),A LD HL,51F6H ADD A,(HL) LD (HL),A LD B,1 CALL 4295H PUSH AF LD A,(51F9H) CPL OR A JP M,3DFDH LD HL,(5215H) LD (5213H),HL LD HL,0FFFFH LD (5215H),HL CALL 4270H LD HL,51F9H INC (HL) JP NZ,3DEDH LD HL,(5213H) LD (5215H),HL CALL 4270H JP 3DFDH LD A,(5217H) CP 5 JP C,3FE6H CALL 466FH LD A,(51F9H) OR A JP M,3D04H LD HL,51F8H CPL INC A ADD A,(HL) JP M,3D04H LD B,(HL) PUSH BC LD (HL),A LD HL,5201H LD A,(HL) PUSH AF SUB 4 LD (HL),A LD (5211H),A LD HL,5230H LD A,(HL) PUSH AF XOR A LD (HL),A INC A LD (5212H),A CALL 3DA6H POP AF LD (5230H),A POP AF LD (5201H),A POP AF LD (51F8H),A XOR A LD (5212H),A LD A,4 LD (5211H),A PUSH AF LD B,' ' CALL 42E3H JP 3E50H LD HL,(520FH) EX DE,HL LD HL,(5205H) ADD HL,DE LD B,H LD C,L LD HL,(522EH) PUSH HL PUSH DE PUSH BC CALL 3ED7H POP BC POP DE POP HL LD (BC),A INC DE INC BC DEC HL LD A,H OR L JP NZ,3E65H LD (522EH),HL EX DE,HL LD (520FH),HL JP 4555H LD HL,(520FH) EX DE,HL LD HL,(5205H) ADD HL,DE LD B,(HL) PUSH HL CALL 42E3H LD HL,(520FH) INC HL LD (520FH),HL LD HL,(522EH) DEC HL LD (522EH),HL LD A,H OR L POP HL INC HL JP NZ,3E89H JP 4555H LD HL,(51E0H) LD B,H LD C,L LD HL,5211H DEC (HL) JP Z,3ECDH LD HL,(51DEH) DEC HL LD A,L SUB C LD A,H SBC A,B JP C,3ED2H LD HL,(51DCH) ADD HL,BC LD A,(HL) INC BC LD (5235H),A OR A LD H,B LD L,C LD (51E0H),HL RET LD A,0FFH JP 3EC3H LD A,' ' JP 3EC3H CALL 3EA6H JP Z,3EE0H CP 0AH RET NZ LD HL,5211H INC (HL) JP 3ED7H LD A,(5204H) CP 'I' JP NZ,3F3BH LD A,(5217H) DEC A JP Z,3F02H DEC A DEC A JP Z,3F02H DEC A JP Z,3F02H JP NZ,3F09H LD A,(51F8H) OR A JP Z,3F0DH CALL 5002H SBC A,D LD HL,521DH LD B,4 XOR A OR (HL) JP Z,3F1EH CALL 5002H DJNZ 3EDFH INC HL CCF INC HL DEC B JP NZ,3F13H LD A,(5231H) OR A JP Z,4644H LD A,(5217H) CP 4 JP Z,3F35H CALL 47B3H CALL 4794H JP 4644H LD A,0C0H LD (51DBH),A LD A,(5217H) CP 5 JP NC,3F4CH CALL 5002H SBC A,D LD HL,51F8H LD A,(51FAH) OR A JP NZ,3F61H LD A,(5202H) OR A JP NZ,3F61H LD A,(51FEH) LD (HL),A LD A,(HL) CPL INC A LD B,A LD A,(5202H) OR A LD A,B JP NZ,3F71H LD HL,5230H SUB (HL) LD (51F9H),A CALL 47DFH LD A,(5220H) OR A JP Z,4644H LD HL,51DBH LD A,(HL) SUB B LD (HL),A LD A,(51F9H) OR A JP NZ,3FCCH LD HL,5219H LD B,7 LD A,(5217H) CP 5 JP NZ,3F9DH LD HL,521DH LD B,3 LD A,(HL) RLA INC HL LD A,(HL) ADC A,0 DEC HL LD (HL),A INC HL DEC B JP NZ,3F9FH JP NC,3FB1H LD HL,51DBH INC (HL) LD A,(521FH) AND 7FH LD L,A LD A,(5231H) OR A JP Z,3FC2H LD A,L OR 80H LD L,A LD A,(51DBH) LD H,A LD (521FH),HL JP 4644H LD HL,3F74H PUSH HL JP P,4767H JP 493CH LD A,(5217H) DEC A JP Z,3FEAH DEC A DEC A JP Z,402AH DEC A JP Z,3FF7H CALL 5002H SBC A,D LD A,(5219H) LD L,A RLA SBC A,A LD H,A LD (5219H),HL JP 402AH LD HL,(521BH) LD A,L OR H JP Z,402AH INC HL LD A,L OR H JP Z,402AH XOR A LD H,A LD L,A LD (521DH),HL LD (521FH),A LD A,0B8H LD (5220H),A CALL 466FH LD A,(51F9H) CALL 3C88H LD A,(51F9H) LD (51F6H),A LD (51FBH),A LD B,0 CALL 4295H LD HL,521AH LD A,(HL) OR A JP P,4076H CPL LD D,A DEC HL LD A,(HL) CPL LD E,A INC DE LD A,1 LD (5231H),A XOR A LD (51F9H),A LD HL,0AH CALL 4965H LD A,L ADD A,'0' LD L,A PUSH HL LD HL,51F9H INC (HL) LD A,E OR D JP NZ,4042H LD HL,51E2H LD A,(51F9H) LD B,A LD (51F6H),A LD (51FBH),A LD (5215H),A POP DE LD (HL),E INC HL DEC B JP NZ,4066H LD HL,51E2H LD (51FCH),HL CALL 4295H LD D,(HL) DEC HL LD E,(HL) JP 403EH CALL 4195H JP 408CH CALL 3ED7H CP ' ' JP NZ,408CH LD A,'0' CP '0' JP C,409DH CP ':' JP NC,409DH SUB '0' LD (5235H),A OR A RET LD A,0FFH OR A RET XOR A LD (51F8H),A LD (51FAH),A LD (5202H),A CALL 4195H CP '-' JP NZ,40BBH LD A,1 LD (5231H),A JP 40C0H CP '+' JP NZ,40C3H CALL 4195H OR A JP M,4644H LD HL,(51E0H) DEC HL LD (51E0H),HL LD HL,5211H INC (HL) CALL 415CH LD A,(5235H) CP '.' JP NZ,40EBH LD A,1 LD (51FAH),A LD (51F9H),A CALL 415CH LD A,(5235H) OR A JP M,3EE7H CP 'E' LD C,0 JP Z,40FBH CP 'D' JP NZ,4100H CALL 4195H LD C,1 CP '+' JP Z,410FH CP '-' JP NZ,4114H LD A,1 LD (51DBH),A CALL 4195H LD C,1 LD A,C LD (5202H),A LD HL,(51E0H) DEC HL LD (51E0H),HL LD HL,5211H INC (HL) LD B,0 PUSH BC CALL 407CH POP BC JP M,4145H LD C,A LD A,B CP 0AH JP C,413AH CALL 5002H RRCA LD A,9 OR A RLA OR A RLA ADD A,B RLA ADD A,C LD B,A JP 4125H LD A,(51DBH) OR A LD A,B JP Z,414FH CPL INC A LD (51F9H),A LD B,A LD HL,51F8H LD A,(HL) SUB B LD (HL),A JP 3EE7H CALL 4082H RET M LD A,(5220H) AND 0F0H JP NZ,415CH CALL 4241H CALL 4854H CALL 4854H CALL 3BCEH CALL 4854H LD A,(5235H) LD HL,5243H LD (HL),A XOR A LD B,7 INC HL LD (HL),A DEC B JP NZ,4181H CALL 3BCEH LD HL,51F8H LD A,(51F9H) ADD A,(HL) LD (HL),A JP 415CH CALL 3ED7H CP ' ' JP Z,4195H RET LD A,(5201H) INC A LD (5211H),A CALL 4195H JP M,3FE6H CP 'F' JP Z,41B8H CP 'T' JP NZ,3FE6H LD A,0FFH CP 0AFH LD (5219H),A CALL 3ED7H JP P,41BCH JP 4644H LD HL,5219H LD A,(HL) OR A JP Z,41D0H LD A,'T' LD BC,463EH LD (HL),A LD A,' ' INC HL LD (HL),A INC HL LD (HL),A INC HL LD (HL),A LD A,1 LD (5217H),A LD (5218H),A JP 3B94H LD A,0AH ; >. JP 41F2H ; ..A LD A,0CH JP 41F2H LD A,8 ; >. LD C,A LD A,L LD (5237H),A db 0feh LD C,A LD HL,48D8H LD A,(5237H) CP (HL) JP NC,4FFCH OR A JP Z,4FFCH DEC A RLCA LD E,A LD D,0 INC DE ADD HL,DE LD E,(HL) INC HL LD D,(HL) EX DE,HL LD B,0 ADD HL,BC LD E,(HL) INC HL LD D,(HL) EX DE,HL LD DE,421EH PUSH DE JP (HL) JP C,422EH RET Z LD HL,(5209H) LD A,H OR L JP NZ,423AH CALL 5002H SBC A,L LD HL,(5207H) LD A,H OR L JP NZ,423AH CALL 5002H ADD A,L EX DE,HL LD HL,(3A02H) LD SP,HL EX DE,HL JP (HL) LD HL,5243H LD DE,5219H LD B,8 LD A,(DE) LD (HL),A INC HL INC DE DEC B JP NZ,4249H RET LD HL,5219H ; !.R LD DE,5243H ; .CR JP 4247H ; .GB LD A,(5236H) LD HL,51DBH LD (HL),A OR A JP Z,43CEH LD A,(5221H) OR A RET NZ LD A,6 JP 41F8H LD HL,51F6H DEC (HL) RET M JP NZ,4281H LD A,(5213H) OR A LD B,'*' JP M,42E3H LD HL,5215H DEC (HL) LD B,'0' JP M,42E3H LD HL,(51FCH) LD B,(HL) INC HL LD (51FCH),HL JP 42E3H LD HL,5201H LD A,(HL) SUB B LD HL,5231H SUB (HL) LD HL,51F6H SUB (HL) LD (5213H),A JP Z,42B3H JP P,42D4H ADD A,(HL) LD (51F6H),A CPL JP P,42CFH LD A,(5231H) OR A LD B,'-' CALL NZ,42E3H LD HL,51FBH DEC (HL) JP P,42C9H LD B,'.' CALL 42E3H RET CALL 4270H JP 42BCH CALL 5002H INC B RET LD B,' ' CALL 42E3H LD HL,5213H DEC (HL) JP NZ,42D4H JP 42B3H LD HL,(51DEH) EX DE,HL LD HL,(51E0H) LD A,E SUB L LD A,D SBC A,H JP C,4304H INC HL LD (51E0H),HL EX DE,HL LD HL,(51DCH) ADD HL,DE DEC HL LD (HL),B LD HL,5211H DEC (HL) RET NZ JP 4308H CALL 5002H LD C,0E1H POP HL LD A,(5212H) OR A RET NZ LD A,(522EH) OR A JP Z,4555H JP 4416H LD HL,5223H LD A,(HL) INC (HL) OR A JP Z,4326H CALL 5002H DEC C LD HL,(5215H) LD (5224H),HL LD HL,(522EH) LD (522AH),HL JP 4555H LD HL,0FFH LD (5211H),HL LD HL,(520FH) EX DE,HL LD HL,(5205H) ADD HL,DE LD A,(5221H) OR A JP Z,436CH LD A,(HL) CP squote JP Z,435DH PUSH HL PUSH DE CALL 3ED7H POP DE POP HL LD (HL),A INC HL INC DE JP 434AH INC DE INC HL LD A,(HL) CP squote JP Z,4350H EX DE,HL LD (520FH),HL JP 4555H LD A,(HL) CP squote JP Z,4383H LD B,A PUSH HL CALL 42E3H LD HL,(520FH) INC HL LD (520FH),HL POP HL INC HL JP 436CH EX DE,HL LD HL,(520FH) INC HL LD (520FH),HL EX DE,HL INC HL LD A,(HL) CP squote JP Z,4372H JP 4555H LD A,(5223H) DEC A JP P,43AAH LD HL,5234H INC (HL) LD HL,1 LD (520FH),HL JP 4423H LD (5223H),A JP NZ,4555H LD HL,(522AH) DEC HL LD (522AH),HL LD A,H OR L JP Z,4555H LD HL,(5224H) LD (520FH),HL LD HL,5223H INC (HL) JP 4555H LD HL,51DBH LD (HL),1 LD A,(5221H) OR A JP NZ,43F2H LD A,(5203H) OR A JP NZ,43F2H LD HL,(51E0H) EX DE,HL LD A,D OR E JP NZ,43EBH INC DE LD HL,(51DCH) LD (HL),20H EX DE,HL LD (51DEH),HL CALL 471AH LD A,(51DBH) LD (51E0H),A LD (51E1H),A OR A RET Z LD A,(5221H) OR A JP NZ,440AH LD HL,(52DCH) LD (51DEH),HL CALL NZ,4499H LD HL,0 LD (51E0H),HL JP 4555H LD HL,5234H LD A,(HL) OR A JP Z,4423H XOR A LD (HL),A JP 4432H LD HL,(51D9H) DEC HL LD (51D9H),HL LD A,H OR A RET M OR L RET Z JP 4432H LD A,(5234H) OR A JP NZ,43C9H LD HL,(522EH) LD A,H OR L JP Z,4555H DEC HL LD (522EH),HL LD A,(51FEH) LD (51F8H),A XOR A LD (5231H),A LD (51F9H),A LD (51DBH),A LD H,A LD L,A LD (5219H),HL LD (521BH),HL LD (521DH),HL LD (521FH),HL LD A,(5201H) LD HL,5211H LD (HL),A LD A,(5221H) OR A JP Z,4476H INC (HL) LD HL,(522CH) JP (HL) LD A,(5218H) LD B,A LD A,(5217H) LD HL,(51D5H) LD DE,5219H CP 5 JP NZ,448BH LD DE,521DH LD A,(HL) LD (DE),A INC HL INC DE DEC B JP NZ,448BH LD (51D5H),HL JP 4472H LD A,(5203H) OR A JP Z,41F8H LD HL,(52DCH) LD (51DEH),HL RET XOR A LD (51DBH),A LD H,A LD L,A LD (5219H),HL LD HL,(520FH) EX DE,HL LD HL,(5205H) ADD HL,DE LD A,(HL) INC HL INC DE CP ' ' JP Z,44B8H CP '-' JP NZ,44CFH LD BC,51DBH LD A,(BC) XOR 1 LD (BC),A JP 44B8H EX DE,HL LD (520FH),HL LD (5235H),A LD B,A SUB 30H JP M,44F1H CP 0AH JP NC,44F1H LD HL,(5219H) LD D,H LD E,L ADD HL,HL ADD HL,HL ADD HL,DE ADD HL,HL LD E,A LD D,0 ADD HL,DE JP 44ADH LD HL,(5219H) LD A,H OR L JP NZ,44FCH INC HL LD A,B RET LD A,(51DBH) OR A JP Z,450DH XOR A SUB L LD L,A LD A,0 SBC A,H LD H,A LD (5219H),HL LD A,H OR L LD A,B RET LD C, 8 OR A LD HL,5220H LD A,(HL) RRA LD (HL),A DEC HL DEC C JP NZ,4517H DEC B JP NZ,4511H RET ; This block of code unreferenced LD HL,5220H LD E,8 OR A LD A,(HL) RRA LD (HL),A DEC HL DEC E JP NZ,452AH RET ; ; This block of code unreferenced LD D,4 LD HL,524AH CALL 4527H DEC D JP NZ,4535H RET ; PUSH AF LD DE,521AH LD HL,5219H LD B,7 LD A,(DE) LD (HL),A INC HL INC DE DEC B JP NZ,4549H LD (HL),' ' POP AF RET CALL 44A7H LD (522EH),HL JP NZ,4572H CP ',' JP Z,4555H CP '/' JP Z,43C9H CP ')' JP Z,4396H CP squote JP Z,4335H CP 'P' JP NZ,4580H LD A,(5219H) LD (5230H),A JP 4555H PUSH AF LD A,H OR A JP P,4590H CALL 5002H INC E LD HL,1 LD (522EH),HL POP AF LD (5204H),A LD C,0 LD B,A LD HL,4612H CP (HL) JP Z,45ABH INC HL INC C LD A,C CP 0AH LD A,B JP NZ,459AH CALL 5002H ADD A,B LD B,0 LD A,C RLA LD C,A LD HL,4630H LD A,(5221H) OR A JP Z,45BDH LD HL,461CH ADD HL,BC LD E,(HL) INC HL LD D,(HL) EX DE,HL LD (522CH),HL LD A,C CP 5 JP NC,45DAH EX DE,HL LD HL,(520FH) LD (5215H),HL LD HL,0FFH LD (5211H),HL EX DE,HL JP (HL) CALL 44A7H JP NZ,45E4H CALL 5002H ADD A,C LD A,L LD (5201H),A XOR A LD (51FEH),A LD A,C CP 0CH JP C,4604H LD A,(5235H) CP '.' JP NZ,460EH CALL 44A7H LD HL,(5219H) LD A,L LD (51FEH),A LD HL,(520FH) DEC HL LD (520FH),HL JP 4416H CALL 5002H db 82h db 'XH(AILEFGD' dw 471fh dw 3e58h dw 4319h dw 3b50h dw 40a1h dw 419eh dw 40a1h dw 40a1h dw 40a1h dw 40a1h dw 4745h dw 3e81h dw 4319h dw 3b94h dw 3fd6h dw 41c5h dw 3cf5h dw 3d9bh dw 3e03h dw 3cf2h LD A,(5218H) LD B,A LD HL,(51D5H) LD DE,5219H LD A,(5217H) CP 5 JP NZ,4659H LD DE,521DH LD A,(DE) LD (HL),A INC HL INC DE DEC B JP NZ,4659H LD (51D5H),HL LD HL,(522EH) LD A,H OR L JP Z,4555H JP 4416H LD HL,5220H LD A,(HL) OR A JP Z,4707H SUB 'x' LD (51DBH),A XOR A LD (HL),A LD A,(5217H) DEC A JP Z,469DH DEC A DEC A JP Z,469DH DEC A JP Z,46A0H DEC HL LD A,80H AND (HL) RLCA LD (5231H),A LD A,80H OR (HL) LD (HL),A JP 46AFH CALL 47B3H LD A,(521CH) OR A JP P,46F4H CALL 4794H LD A,1 LD (5231H),A SCF CALL NC,493CH CALL 47DFH LD HL,51DBH LD A,(HL) SUB B LD (HL),A RET Z JP P,46B0H ADD A,3 JP P,46CBH CALL 4767H JP 46B3H JP NZ,46ECH LD HL,5239H LD DE,5219H CALL 4247H CALL 4767H RLA JP NC,46B3H LD HL,5219H LD DE,5239H CALL 4247H LD HL,51F9H INC (HL) XOR A CPL ADD A,4 LD B,A CALL 4511H RET LD HL,5219H LD B,3 LD A,(HL) INC HL OR (HL) DEC B JP NZ,46FAH OR A JP NZ,46AFH JP NZ,46AFH LD (51DBH),A LD HL,5219H LD B,8 LD (HL),A INC HL DEC B JP NZ,470FH LD HL,51F9H INC (HL) RET LD A,2 JP 41F8H LD HL,(522EH) EX DE,HL LD HL,(51E0H) ADD HL,DE LD (51E0H),HL PUSH HL LD HL,(52DCH) LD B,H LD C,L POP HL LD A,C SUB L LD A,B SBC A,H JP NC,4555H CALL 5002H INC C LD HL,(51DEH) LD (51E0H),HL JP 4555H PUSH HL LD B,' ' CALL 42E3H LD HL,(522EH) DEC HL LD (522EH),HL LD A,H OR L JP NZ,4746H POP HL JP 4555H LD A,(5218H) LD B,A LD A,(5201H) SUB B LD (51F9H),A RET LD HL,51DBH LD A,4 ADD A,(HL) LD (HL),A LD HL,51F9H DEC (HL) LD B,1 CALL 4511H CALL 4241H LD B,2 CALL 4511H JP 3BCEH ; This block of code unreferenced LD HL,5219H LD A,(HL) CPL LD B,A INC HL LD A,(HL) CPL INC B JP NZ,4790H INC A LD (HL),A DEC HL LD (HL),B RET ; LD HL,521CH LD A,(HL) CPL LD B,A DEC HL LD A,(HL) CPL LD C,A DEC HL LD A,(HL) CPL LD D,A DEC HL LD A,(HL) CPL LD E,A INC DE LD A,D OR E EX DE,HL LD (5219H),HL LD H,B LD L,C LD (521BH),HL RET LD A,(521AH) OR A LD HL,0 JP P,47BEH DEC HL LD (521BH),HL RET ; This block of code/data? unreferenced LD H,C ; a LD L,D ; j LD D,E ; S LD E,B ; X CALL 04809H ; ..H INC D ; . DEC D ; . JP Z,048A0H ; ..H LD C,D ; J LD D,E ; S LD E,H ; \ LD B,L ; E LD HL,05240H ; !@R SUB (HL) ; . JP NC,048A0H ; ..H CPL ; / INC A ; < LD (HL),A ; w JP 04880H ; ..H ; LD B,0 LD HL,5220H LD A,(HL) OR A JP NZ,47FCH LD A,B SUB '8' JP NZ,47F1H LD B,A RET ADD A,40H LD B,A LD D,8 CALL 4867H JP 47E1H JP M,4807H CALL 4854H INC B OR A JP P,47FCH LD A,B RET ; From here to next comment unreferenced LD B,000H ; .. LD A,H ; | OR A ; . JP NZ,04836H ; .6H OR L ; . JP NZ,0481DH ; ..H OR D ; . JP NZ,04826H ; .&H OR E ; . JP NZ,0482FH ; ./H RET ; . db 'ejSX' LD B,008H ; .. JP 04836H ; .6H EX DE,HL ; . LD DE,00000H ; ... LD B,010H ; .. JP 04836H ; .6H LD H,E ; c LD L,B ; h LD DE,00000H ; ... LD B,018H ; .. LD A,H ; | OR A ; . JP M,0484BH ; .KH LD A,E ; { RLA ; . LD E,A ; _ LD A,D ; z RLA ; . LD D,A ; W LD A,L ; } RLA ; . LD L,A ; o LD A, H ; | RLA ; . LD H, A ; g INC B ; . JP 04837H ; .7H LD (0521BH),HL ; ".R EX DE,HL ; . LD (05219H),HL ; ".R LD A,B ; x RET ; . ; to here PUSH HL LD HL,5219H LD E,8 OR A LD A,(HL) RLA LD (HL),A INC HL DEC E JP NZ,485BH POP HL RET LD D,4 CALL 4854H DEC D JP NZ,4867H RET ; From here to next comment unreferenced LD DE,04888H ; ..H PUSH DE ; . CALL 05002H ; ..p INC DE ; . LD DE,0FFFFH ; ... LD C,D ; J LD HL,05240H ; !@R LD (HL),C ; q RET ; . LD A,B ; x LD HL,05240H ; !@R OR A ; . CALL M,04892H ; ..H LD B,(HL) ; F INC HL ; # LD A,(HL) ; ~ AND 080H ; .. XOR C ; . LD C,A ; O JP 04905H ; ..I INC E ; . RET NZ ; . INC D ; . RET NZ ; . INC C ; . RET NZ ; . LD C,080H ; .. INC (HL) ; 4 RET NZ ; . JP 04873H ; .sH POP HL ; . XOR A ; . LD H,A ; g LD L,A ; o LD (0523DH),HL ; "=R LD (0523FH),HL ; "?R RET ; . ; next comment LD A,(d50c1) OR A RET NZ INC A LD (d50c1),A LD HL,5105H LD (HL),85H INC HL LD (HL),0 INC HL LD (518FH),HL LD (HL),lf LD A,(48D8H) DEC A LD B,A LD HL,4A03H XOR A LD (HL),A INC HL DEC B JP NZ,48CAH LD (4A3FH),A XOR A LD (4EACH),A RET db 11 dw 4f5ch dw 4eafh dw 4f5ch dw 4f5ch dw 4f5ch dw 4a78h dw 4a78h dw 4a78h dw 4a78h dw 4a78h ; from here to next comment unreferenced PUSH HL ; .1 CALL 04913H ; ..I POP HL ; . LD (HL),E ; s INC HL ; # LD (HL),D ; r INC HL ; # LD (HL),C ; q INC HL ; # LD (HL),B ; p JP 04925H ; .%I CALL 0491DH ; ..I PUSH HL ; . CALL 04908H ; ..I POP HL ; . RET ; . CALL 04925H ; .%I EX DE,HL ; . LD (0523DH),HL ; "=R EX DE,HL ; . LD H,B ; ` LD L,C ; i LD (0523FH),HL ; "?R RET LD HL,(0523DH) ; *=R EX DE,HL ; . LD HL,(0523FH) ; *?R LD B,H ; D LD C,L ; M RET ; . LD E,(HL) ; ^ INC HL ; # LD D,(HL) ; V INC HL ; # LD C,(HL) ; N INC HL ; # LD B,(HL) ; F INC HL ; # LD A,B ; x OR A ; . RET Z ; . LD A,C ; y JP 04934H ; .4I LD A,(05240H) ; :@R OR A ; . RET Z ; . LD A,(0523FH) ; :?R RLA ; . SBC A,A ; . OR A ; . SCF ; 7 RET NZ ; . ADD A,001H ; .. RET ; . CALL 04524H ; .$E CALL 04241H ; .AB CALL 04524H ; .$E CALL 03BCEH ; ..; CALL 04241H ; .AB LD B,00FH ; .. CALL 04533H ; .3E CALL 03BCEH ; ..; DEC B ; . JP NZ,0494DH ; .MI CALL 04524H ; .$E CALL 04524H ; .$E CALL 04524H ; .$E LD HL,051F9H ; !.Q INC (HL) ; 4 RET ; . LD A,H ; | CPL ; / LD B,A ; G LD A,L ; } CPL ; / LD C,A ; O INC BC ; . LD HL,00000H ; !.. LD A,011H ; >. PUSH AF ; . OR A ; . JP 04980H ; ..I PUSH AF ; . PUSH HL ; . ADD HL,BC ; . JP NC,0497FH ; ..I POP AF ; . SCF ; 7 LD A,0E1H ; >. LD A,E ; { RLA ; . LD E,A ; _ LD A,D ; z RLA ; . LD D,A ; W LD A,L ; } RLA ; . LD L,A ; o LD A,H ; | RLA ; . LD H,A ; g POP AF ; . DEC A ; = JP NZ,04976H ; .vI LD A,H ; | OR A ; . RRA ; . LD H,A ; 9 LD A,L ; } RRA ; . LD L,A ; o RET ; . EX DE,HL ; . LD H,B ; ` LD L,C ; i LD C,(HL) ; N INC HL ; # LD B,(HL) ; F INC HL ; # EX DE,HL ; . LD (HL),C ; q INC HL ; # LD (HL),B ; p INC HL ; # EX DE, HL ; . DEC A ; = JP NZ,0499CH ; ..I RET ; . LD (051D1H),A ; 2.Q LD (05226H),HL ; "&R EX DE,HL ; . LD (05228H),HL ; "(R LD H,B ; ` LD L,C ; i LD (051D2H),HL ; ".Q XOR A ; . LD (051D4H),A ; 2.Q RET ; . PUSH HL ; . PUSH DE ; . LD A,(051D4H) ; :.Q CP 002H ; .. JP NC,049D4H ; ..I LD HL,05226H ; !&R ADD A,A ; . LD E,A ; _ LD D,000H ; .. ADD HL,DE ; . JP 049E8H ; ..I PUSH AF ; . LD A,(051D1H) ; :.Q CP 004H ; .. LD HL,(051D2H) ; *.Q JP C,049EDH ; ..I POP AF ; . SUB 002H ; .. ADD A,A ; . LD E,A ; _ LD D,000H ; .. ADD HL,DE ; . LD A,(HL) ; ~ INC HL ; # LD H,(HL) ; f LD L,A ; o PUSH AF ; . POP AF ; . LD A,(051D4H) ; :.Q INC A ; < LD (051D4H),A ; 2.Q LD D,A ; W LD A,(051D1H) ; :.Q CP D ; . POP DE ; . JP NC,04A00H ; ..J POP HL ; . RET ; . EX (SP),HL ; . POP HL ; . RET ; . JR NZ,04A42H ; = JR NZ,04A48H ; A INC L ; , JR NZ,04A3BH ; 1 DEC (HL) ; 5 JR NZ,04A4AH ; = JR NZ,04A5FH ; P LD L,00DH ; .. LD A,(BC) ; . LD B,E ; C DEC C ; . LD A,(BC) ; . ADD HL,BC ; . ; next comment db 'implicit integer (a-z)' db cr,lf db tab db 'integer*2 getdrv' db cr db lf,tab db 0e0h,'R' db 'ta lca,uca,ucp,lcz/' db squote,'a' db squote,',' db squote,'A' db squote,',' db squote,'P' db squote,',' db squote,'z' db squote,'/' db cr,'^' ; This block of code unreferenced LD C,0EH CALL bdos RET ; db 'FORT',0 db 'DAT',0 INC DE LD C,L PUSH DE LD C,H CP C LD C,H SUB B LD C,H LD D,C LD C,H CALL M,5B4FH LD C,H CALL 5002H SBC A,(HL) CALL 5002H SBC A,A CALL 5002H AND B CALL 5002H AND C LD HL,4A02H LD A,(5237H) LD D,0 LD E,A ADD HL,DE LD A,(HL) RET ; From here to next comment unreferenced PUSH BC ; . PUSH DE ; . CALL 04AAFH ; ..J LD C,01AH ; .. CALL 00005H ; ... POP DE ; . POP BC ; . RET ; . LD A,(05237H) ; :7R ADD A,A ; . LD E,A ; _ LD D,000H ; .. LD HL,04A15H ; !.J ADD HL,DE ; . LD E,(HL) ; ^ INC HL ; # LD D,(HL) ; V RET ; . LD HL,04A0CH ; !.J LD A,(05237H) ; :7R LD D,000H ; .. LD E,A ; _ ADD HL,DE ; . LD A,(HL) ; ~ RET ; . ; next comment LD HL,4A29H LD A,(5237H) ADD A,A LD E,A LD D,0 ADD HL,DE LD E,(HL) INC HL LD D,(HL) RET CALL 4ACAH ; ..j LD HL,21H ; !!. ADD HL,DE ; . EX DE,HL ; . LD HL,(520BH) ; *.R EX DE,HL ; . RET ; . CALL 4ACAH LD HL,0CH ADD HL,DE LD BC,18H LD (HL),B INC HL DEC C JP NZ,4AF0H RET LD (HL),A INC HL INC DE LD A,(DE) OR A JP NZ,4AF7H RET LD A,(5237H) ; :7R CP 0BH ; .. JP NC,4A8EH ; ..J PUSH BC ; . CALL 4A96H ; ..J OR A ; . CALL P,4B9DH ; ..K POP BC ; . AND 40H ; .@ CALL Z,4BFFH ; ..K CALL 4AD9H ; ..j LD A,D ; z OR E ; . JP NZ,4B2CH ; .,K LD E,(HL) ; ^ INC HL ; # LD D,(HL) ; V PUSH DE ; . CALL 4A96H ; ..J AND 0FBH ; .. LD (HL),A ; w POP DE ; . JP 4B44H ; .DK CALL 4A96H ; ..J AND 8 ; .. CALL NZ,4DBBH ; ..M CALL 4A96H ; ..J OR 4 ; .. LD (HL),A ; w CALL 4AD9H ; ..j DEC DE ; . LD (HL),E ; s INC HL ; # LD (HL),D ; r INC HL ; # LD (HL),0 ; 6. LD A,(d50bd) ; :.P OR A ; . RET Z ; . LD A,E ; { RLA ; . LD A,D ; z RLA ; . LD B,A ; G LD A,E ; { AND 7FH ; .. LD C,A ; O CALL 4ACAH ; ..J LD HL,0CH ; !.. ADD HL,DE ; . LD A,(HL) ; ~ CP B ; . JP Z,4B97H ; ..K PUSH BC ; . PUSH DE ; . LD HL,20H ; ! . ADD HL,DE ; . LD (HL),0 ; 6. LD HL,(4A42H) ; *BJ EX DE,HL ; . LD C,1AH ; .. CALL bdos ; ... CALL 4A96H ; ..j AND 20H ; . JP Z,4B7EH ; .~K POP DE ; . PUSH DE ; . LD C,10H ; .. CALL bdos ; ... POP DE ; . POP BC ; . PUSH BC ; . PUSH DE ; . LD HL,0CH ; !.. ADD HL,DE ; . LD (HL),B ; p LD C,0FH ; .. CALL bdos ; ... INC A ; < JP NZ,4B95H ; ..K POP DE ; . PUSH DE ; . CALL 4C47H ; .GL POP DE ; . POP BC ; . LD HL,20H ; ! . ADD HL,DE ; . LD (HL),C ; q RET ; . PUSH HL LD HL,(4A42H) EX DE,HL LD HL,0FF00H ADD HL,SP LD A,L SUB E LD A,H SBC A,D JP C,4A92H LD HL,4A15H LD A,(5237H) ADD A,A LD B,0 LD C,A ADD HL,BC LD (HL),E INC HL LD (HL),D LD HL,80H ADD HL,DE PUSH HL CALL 4ACAH POP DE PUSH DE LD (HL),D DEC HL LD (HL),E LD HL,24H ADD HL,DE LD (4A42H),HL POP HL LD (HL),0 INC HL LD DE,4A6FH LD A,(DE) CALL 4AF7H LD A,(5237H) LD B,A SUB 0AH SBC A,A ADD A,'1' LD (HL),A LD A,B CP 0AH JP C,4BEBH XOR A ADD A,'0' INC HL LD (HL),A LD A,' ' INC HL LD (HL),A INC HL LD DE,4A73H CALL 4AF7H POP HL LD A,80H LD (HL),A RET PUSH BC ; . CALL 4ABEH ; ..J LD (HL),D ; r LD HL,(retadr) ; *.p LD DE,4C75H ; .uL LD A,H ; | SUB D ; . JP NZ,4C14H ; ..L LD A,L ; } SUB E ; . JP Z,4C17H ; ..L LD (4A40H),HL ; "@J EX DE,HL ; . LD (retadr),HL ; ".P CALL 4AE6H ; ..J CALL 4AA2H ; ..J POP BC ; . PUSH BC ; . LD A,C ; y AND 20H ; . JP Z,4C35H ; .5L PUSH DE ; . LD C,13H ; .. CALL bdos ; ... POP DE ; . PUSH DE ; . CALL 4C47H ; .GL POP DE ; . LD C,0FH ; .. CALL bdos ; ... INC A ; < JP Z,4A86H ; ..J CALL 4A96H ; ..J POP BC ; . LD A,C ; y OR 0C0H ; .. LD (HL),A ; w RET ; . LD C,16H ; .. CALL bdos ; ... INC A ; < JP Z,4A8AH ; ..J RET ; . CALL 4A96H ; ..J AND 40H ; .@ CALL NZ,4C5BH ; .[L XOR A ; . RET ; . CALL 4A96H ; ..J ADD A,A ; . JP P,4C59H ; .YL LD (HL),80H ; 6. ADD A,A ; . CALL M,4DB2H ; ..M CALL 4ACAH ; ..J CALL 4AA2H ; ..J LD C,10H ; .. CALL bdos ; ... XOR A ; . RET ; . LD DE,1 ; ... LD HL,4A02H ; !.J ADD HL,DE ; . LD A,(HL) ; ~ ADD A,A ; . PUSH DE ; . LD A,E ; { LD (5237H),A ; 27R CALL M,4C5BH ; .[L POP DE ; . INC DE ; . LD A,(48D8H) ; :.H CP E ; . JP NZ,4C78H ; .xL RET ; . LD C,30H ; .0 CALL 4B00H ; ..K LD HL,(51DCH) ; *.Q PUSH HL ; . EX DE,HL ; . LD HL,(51DEH) ; *.Q LD H,0 ; &. EX DE,HL ; . ADD HL,DE ; . XOR A ; . DEC E ; . INC E ; . JP M,4CACH ; ..L LD (HL),A ; w INC HL ; # JP 4CA3H ; ..L POP DE ; . LD C,1AH ; .. CALL bdos ; ... CALL 4DF7H ; ..M OR A ; . RET Z ; . SCF ; 7 RET ; . LD C,10H ; .. CALL 4B00H ; ..K LD HL,(51DCH) ; *.Q EX DE,HL ; . LD C,1AH ; .. CALL bdos ; ... LD A,80H ; >. LD (51DEH),A ; 2.Q CALL 4DEDH ; ..M OR A ; . RET Z ; . CP 2 ; .. CCF ; ? RET ; . LD C,20H ; . CALL 4B00H ; ..K XOR A ; . LD (4A3FH),A ; 2?J LD A,(51DEH) ; :.Q OR A ; . RET Z ; . LD A,(51DEH) ; :.Q OR A ; . JP P,4CF0H ; ..L CALL 5002H ; ..p LD C,'>' ; .> LD A,A ; . CALL 4D59H ; .YM LD HL,(51DCH) ; *.Q PUSH AF ; . LD A,(HL) ; ~ CALL 4D98H ; ..M INC HL ; # POP AF ; . DEC A ; = JP NZ,4CF6H ; ..L LD A,0DH ; >. CALL 4D98H ; ..M CALL 4A96H ; ..j OR 8 ; .. LD (HL),A ; w LD A,(4A3FH) ; :?J OR A ; . RET Z ; . SCF ; 7 RET ; . LD C,0 ; .. CALL 4B00H ; ..K XOR A ; . LD (51DEH),A ; 2.Q LD (4A3FH),A ; 2?J CALL 4D59H ; .YM CALL 4D69H ; .iM JP C,4D4EH ; .NM CP 1AH ; .. JP Z,4D57H ; .WM LD HL,(51DEH) ; *.Q LD H,0 ; &. EX DE,HL ; . LD HL,(51DCH) ; *.Q ADD HL,DE ; . LD (HL),A ; w INC DE ; . EX DE,HL ; . LD (51DEH),HL ; ".Q CP 0DH ; .. JP Z,4D4EH ; .NM LD A,L ; } CP 80H ; .. JP C,4D22H ; ."M CALL 5002H ; ..p LD (DE),A ; . XOR A ; . RET ; . LD A,(4A3FH) ; :?J OR A ; . RET Z ; . CP 2 ; . CCF ; ? RET ; . OR A ; . RET ; . PUSH AF ; . CALL 4A96H ; ..j AND 4 ; .. JP Z,4D67H ; .gM CALL 4ABEH ; ..j LD (HL),0 ; 6. POP AF ; . RET ; . CALL 4ABEH ; ..J OR A ; . CALL Z,4D84H ; ..M RET C ; . DEC (HL) ; 5 LD HL,4A15H ; !.J ADD HL,DE ; . ADD HL,DE ; . CPL ; / ADD A,81H ; .. ADD A,(HL) ; . LD E,A ; _ INC HL ; # LD A,000H ; >. ADC A,(HL) ; . LD D,A ; W LD A,(DE) ; . OR A ; . RET ; . PUSH HL ; . PUSH DE ; . CALL 4AA2H ; ..J CALL 4DEDH ; ..M LD (4A3FH),A ; 2?J OR A ; . POP DE ; . POP HL ; . LD A,80H ; >. LD (HL),A ; w RET Z ; . SCF ; 7 RET ; . PUSH HL ; . PUSH AF ; . CALL 4ABEH ; ..J OR A ; . CALL M,4DD7H ; ..M INC (HL) ; 4 LD HL,4A15H ; !.J ADD HL,DE ; . ADD HL,DE ; . ADD A,(HL) ; . LD E,A ; _ INC HL ; # LD A,0 ; >. ADC A,(HL) ; . LD D,A ; W POP AF ; . LD (DE),A ; . POP HL ; . RET ; . ADD A,A ; . JP M,4DBBH ; ..M LD A,1AH ; >. CALL 4D98H ; ..M CALL 4ABEH ; ..J OR A ; . LD (HL),0 ; 6. RET Z ; . PUSH AF ; . CALL 4AAFH ; ..j POP AF ; . LD L,A ; o LD H,0 ; &. ADD HL,DE ; &. OR A ; &. JP M,4DD6H ; ..M LD (HL),0 ; 6. INC HL ; # INC A ; < JP 4DCBH ; ..M DEC HL ; + PUSH HL ; . PUSH DE ; . CALL 4AA2H ; ..J CALL 4DF7H ; ..M LD (4A3FH),A ; 2?J CALL 4A96H ; ..J AND 0F7H ; .. LD (HL),A ; w POP DE ; . POP HL ; . XOR A ; . LD (HL),A ; w RET ; . CALL 4ACAH ; ..J LD A,(d50be) ; :.P LD C,A ; O JP 4DFEH ; ..M CALL 4ACAH ; ..J LD A,(50BFH) ; :.P LD C,A ; O CALL bdos ; ... PUSH AF ; . CALL 4AD9H ; ..J INC (HL) ; 4 JP NZ,4E0BH ; ..N INC HL ; # INC (HL) ; 4 POP AF ; . RET ; . LD A,(48D8H) DEC A CP (HL) JP C,4A8EH LD A,(HL) LD (5237H),A PUSH DE PUSH BC CALL 48AAH CALL 4A96H OR A CALL P,4B9DH POP BC CALL 4ACAH EX DE,HL POP DE LD A,(BC) LD (HL),A LD B,0BH LD A,(DE) OR A JP Z,4E3BH INC DE INC HL LD (HL),A DEC B JP NZ,4E2FH LD A,(5237H) ADD A,A LD D,0 LD E,A LD HL,48D8H ADD HL,DE LD BC,4A78H LD (HL),B DEC HL LD (HL),C CALL 4AE6H LD C,0FH CALL bdos INC A RET Z LD A,0FFH RET CALL 4E98H LD A,(DE) LD (4A44H),A LD DE,4A45H LD BC,0BH LDIR LD DE,4A44H LD C,13H CALL bdos RET CALL 4E98H LD A,(BC) LD (4A44H),A PUSH HL EX DE,HL LD DE,4A45H LD BC,0BH LDIR POP HL LD DE,4A55H LD BC,0BH LDIR LD DE,4A44H LD C,17H CALL bdos INC A RET Z LD A,0FFH RET PUSH HL PUSH DE PUSH BC LD HL,4A44H LD DE,4A45H LD BC,23H LD (HL),0 LDIR POP BC POP DE POP HL RET db 0 db 72h,'k' dw 4efch dw 4effh dw 4efch dw 4efch dw 4efch dw 4efch dw 4ebdh LD A,(4EACH) OR A JP Z,4EFCH LD A,0CH CALL 4F46H CALL 4F5BH XOR A LD (4EACH),A RET ; This block of code unreferenced LD A,(4EACH) OR A LD HL,(4EADH) PUSH HL RET Z LD A,0DH CALL 4F46H LD A,0AH JP 4F46H LD HL,(retadr) LD DE,4ED1H LD A,H SUB D JP NZ,4EF4H LD A,L SUB E JP Z,4EF7H LD (4EADH),HL EX DE,HL LD (retadr),HL RET JP 4FFCH LD A,(4EACH) OR A CALL Z,4F53H LD A,(51DEH) OR A RET Z LD HL,(51DCH) DEC A PUSH AF LD A,0DH CALL 4F46H LD A,(HL) CP '+' JP Z,4F38H CP '1' JP NZ,4F28H LD A,0CH CALL 4F46H JP 4F38H LD A,0AH CALL 4F46H LD A,(HL) CP '0' JP NZ,4F38H LD A,0AH CALL 4F46H POP AF INC HL RET Z PUSH AF LD A,(HL) INC HL CALL 4F46H POP AF DEC A JP 4F3AH PUSH HL PUSH AF AND 7FH LD E,A LD C,5 CALL bdos POP AF POP HL RET LD A,1 LD (4EACH),A CALL 4EE4H RET dw 4f6fh dw 4f9eh dw 4f6ch dw 4f6ch dw 4f6ah dw 4f6ah dw 4f6ah XOR A RET JP 4FFCH XOR A LD (51DEH),A CALL 51A0H AND 7FH CP 0AH JP Z,4F73H PUSH AF LD HL,(51DEH) LD H,0 EX DE,HL LD HL,(51DCH) ADD HL,DE POP AF LD (HL),A INC DE EX DE,HL LD (51DEH),HL CP 0DH RET Z LD A,L CP 80H JP C,4F73H CALL 5002H LD (DE),A XOR A RET LD A,(51DEH) OR A RET Z LD HL,(51DCH) DEC A PUSH AF LD A,0DH CALL 5191H LD A,(HL) CP '+' JP Z,4FD5H CP '1' JP NZ,4FC0H LD A,0CH CALL 5191H JP 4FD5H LD A,0AH CALL 5191H LD A,(HL) CP ' ' JP Z,4FD5H CP '0' JP NZ,4FD5H LD A,0AH CALL 5191H POP AF INC HL RET Z PUSH AF LD A,(HL) INC HL CALL 5191H POP AF DEC A JP 4FD7H db cr,lf,'**',0 db '** at address ',0 db '**',cr,lf,0 CALL 5002H SBC A,C XOR A RET LD HL,4FE3H CALL 504CH POP HL LD A,(HL) AND 7FH CP dquote LD A,(HL) JP C,5014H LD A,0A2H INC HL PUSH HL OR A RLA PUSH AF LD C,A LD B,0 LD HL,5077H ADD HL,BC LD A,(HL) CALL 5191H INC HL LD A,(HL) CALL 5191H LD A,(d50c0) INC A LD (d50c0),A CP 14H JP NC,5039H POP AF JP NC,5049H LD HL,4FE8H CALL 504CH POP HL CALL 5056H CALL 5049H JP 50EFH LD HL,4FF7H LD A,(HL) OR A RET Z CALL 5191H INC HL JP 504CH LD A,H CALL 5063H LD A,L CALL 5063H LD A,' ' JP 5191H PUSH AF RRA RRA RRA RRA CALL 506CH POP AF AND 0FH ADD A,90H DAA ADC A,':' DAA JP 5191H db 'IDF0MPIRFWITEX' db 'DOMLDZLGSQIBTLO' db 'BDEISBEINOVCNGL' db 'GSSNA2IODTBIRCE' db 'FFNDFUNOM??' d50bd: db 0 d50be: db 21h db 0ffh d50c0: db 0ffh d50c1: db 0cdh strtup: XOR A LD (d50c0),A LD (d50c1),A LD HL,sturet LD (retadr),HL LD HL,(6) DEC HL LD SP,HL PUSH BC ;BC -> stack LD C,0CH ;get vers. numb. CALL bdos SUB 1FH SBC A,A LD (d50bd),A LD HL,1514H JP NZ,stup1 LD HL,2221H stup1: LD (d50be),HL sturet: RET ;goto (BC) retadr: dw 5104h LD HL,50F7H PUSH HL LD HL,(retadr) JP (HL) LD A,cr CALL 5191H LD A,lf CALL 5191H JP cpm RET ; Data??? LD D,B ; P NOP ; . LD A,(BC) ; . LD A,031H ; >1 LD (d110),A ; 2.. LD A,(d106) ; :.. AND 001H ; .. SUB 001H ; .. SBC A,A ; . LD (d13fe),A ; 2.. OR A ; . JP Z,00000H ; ... LD A,021H ; >! LD (d110),A ; 2.. LD A,(d103) ; :.. LD L,A ; o RLA ; . SBC A,A ; . LD H,A ; g ADD HL,HL ; ) ADD HL,HL ; ) ADD HL,HL ; ) ADD HL,HL ; ) EX DE,HL ; . LD A,(d105) ; :.. LD L,A ; o RLA ; . SBC A,A ; . LD H,A ; g OR D ; . LD H,A ; 9 LD A,L ; } OR E ; . LD L,A ; o EX DE,HL ; . LD A,(d104) ; :.. LD L,A ; o RLA ; . SBC A,A ; . LD H,A ; g OR D ; . LD H,A ; g LD A,L ; } OR E ; . LD L,A ; o LD A,L ; } LD (d17e),A ; 2-. LD A,(d106) ; :.. LD (d17f),A ; 2.. LD A,(d107) ; :.. LD (d180),A ; 2.. LD A,(d108) ; :.. LD (d181),A ; 2.. LD BC,013FFH ; ... LD DE,01401H ; ... LD HL,0FFFFH ; !.. CALL 00000H ; ... LD HL,00001H ; !.. LD (d13f4),HL ; ".. LD HL,(d13f4) ; *.. LD DE,d109 ; ... ADD HL,DE ; . LD (d13fc),HL ; ".. LD HL,(d13fc) ; *.. EX DE,HL ; . LD HL,0FFFFH ; !.. LD A,002H ; >. CALL 0FFFFH ; ... LD HL,(d13f4) ; *.. INC HL ; # LD A,080H ; >. SUB L ; . LD A,000H ; >. SBC A,H ; . db 0f2h dw 5107h PUSH BC PUSH DE PUSH HL PUSH AF LD C,2 ;console write LD E,A CALL bdos POP AF POP HL POP DE POP BC RET PUSH HL LD HL,(518FH) LD A,(HL) CP 0AH CALL Z,51B1H INC HL LD A,(HL) LD (518FH),HL POP HL RET PUSH BC PUSH DE LD C,0AH ;read console buffer LD DE,5105H CALL bdos LD HL,5106H LD E,(HL) LD D,0 EX DE,HL ADD HL,DE INC HL LD (HL),0DH INC HL LD A,0AH CALL 5191H LD (HL),A EX DE,HL POP DE POP BC RET ; Data???? db 0 dw 11h db 0 dw 0ff21h dw 0cdffh dw 0FFFFH db 1 dw d104 dw 311h dw 2101h dw 0FFFFH LD A,003H ; >. CALL 00000H ; ... CALL 0FFFFH ; ... LD A,041H ; >A LD (d109),A ; 2.. LD A,(d104) ; :.. SUB 001H ; .. db 9fh db 0 db '~' db 15h db 0b7h db 0c2h dw 0 db ':' dw d105 db 0c6h db 0ffh db 9fh db '2' dw 157eh dw 0c2b7h dw 0 dw 0cdh dw 0cd00h dw 0 dw 0cdc9h dw 0FFFFH dw 0FFCDH dw 0c9ffh dw 0 dw 0 dw 0 dw 0 db 0 db 0 db 0 dw 0 dw 0 dw 0 dw 0 dw 0 dw 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 dw 33ah db 1 dw 1d6h dw 329fh dw 1651h db 0b7h JP Z,00000H ; ... RET ; . LD DE,00000H ; ... LD HL,00000H ; !.. db 0cdh dw 0 dw 0cdh dw 3a00h dw d106 LD (d1652),A ; 2R. LD A,(d107) ; :.. LD (d1653),A ; 2S. LD HL,00001H ; !.. LD (0163FH),HL ; "?. LD A,038H ; >8 LD (d1654),A ; 2T. LD A,(d1652) ; :R. AND 001H ; .. SUB 001H ; .. SBC A,A ; . LD (d1651),A ; 2Q. OR A ; . JP Z,00000H ; ... LD A,035H ; >5 LD (d1654),A ; 2T. LD A,(d1652) ; :R. LD L,A ; o RLA ; . SBC A,A ; . LD H,A ; g EX DE,HL ; . LD HL,00002H ; !.. CALL 00000H ; ... LD A,L ; } LD (d1652),A ; 2R. LD A,(d1653) ; :S. AND 003H ; .. INC A ; < LD (d1655),A ; 2U. LD HL,d1653 ; !S. CALL 00000H ; ... EX DE,HL ; . LD HL,00004H ; !.. CALL 0FFFFH ; ... LD A,L ; } LD (d1653),A ; 2S. LD DE,00000H ; ... LD HL,0FFFFH ; !.. CALL 0FFFFH ; ... LD BC,d1654 ; .T. LD DE,d109 ; ... LD HL,0FFFFH ; !.. LD A,003H ; >. CALL 00000H ; ... LD A,(d1655) ; :U. LD L,A ; o RLA ; . SBC A,A ; . LD H,A ; g ADD HL,HL ; ) ADD HL,HL ; ) LD DE,0163DH ; .=. ADD HL,DE ; . LD (d1656),HL ; "V. LD HL,(d1656) ; *V. EX DE,HL ; . LD HL,0FFFFH ; !.. LD A,002H ; >. CALL 00000H ; ... db 0cdh dw 84h dw 80h LD (0163FH),HL ; "?. LD A,038H ; >8 LD (d1654),A ; 2T. LD A,(d1652) ; :R. AND 001H ; .. SUB 001H ; .. SBC A,A ; . LD (d1651),A ; 2Q. OR A ; . JP Z,00000H ; ... LD A,035H ; >5 LD (d1654),A ; 2T. LD A,(d1652) ; :R. LD L,A ; o end