; ; 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