; hexcom.asm ORG 00100H BDOS EQU 00005H Y0007 EQU 00007H JMP A0180 ; DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H ; DB 'CP/M Version 3.0 COPYRIGHT 1982, DIGITAL RESEARCH' DB 032H DB 035H DB 031H DB 030H DB 038H DB 032H DB 000H DB 000H DB 000H DB 000H DB 036H DB 035H DB 034H DB 033H DB 032H DB 031H ; A0180: LXI H,00000H DAD SP SHLD D056B LXI SP,T05B3 LXI D,T0547 CALL A040D LXI D,0005CH LXI H,T056D PUSH D PUSH H MVI C,021H A019A: LDAX D MOV M,A INX D INX H DCR C JNZ A019A LXI H,T0576 MVI M,048H INX H MVI M,045H INX H MVI M,058H LXI H,00065H MVI M,043H INX H MVI M,04FH INX H MVI M,04DH POP D MVI C,00FH CALL BDOS INR A LXI D,T050E JZ A0412 POP D PUSH D MVI C,013H CALL BDOS POP D PUSH D MVI C,016H CALL BDOS INR A LXI D,T0526 JZ A0412 LDA Y0007 SUI 010H MOV H,A MVI L,000H SHLD D058F SUI 007H MVI L,080H MOV H,A SHLD D0591 CALL A043F A01F0: CALL A0353 CPI 03AH JNZ A01F0 CALL A02CD STA D058E JZ A026E LXI H,D0560 ADD M MOV M,A JNC A020B INX H INR M A020B: CALL A02CD PUSH PSW CALL A02CD POP H MOV L,A SHLD D0563 XCHG LHLD D0565 MOV A,E SUB L MOV L,A MOV A,D SBB H MOV H,A SHLD D0568 LXI D,T046A JC A0412 LDA D055D ORA A JNZ A0240 LXI D,T04D0 CALL A0408 LHLD D0563 SHLD D055C CALL A03E0 A0240: CALL A02CD A0243: CALL A02CD CALL A0379 LXI H,D058E DCR M JNZ A0243 LHLD D055E XCHG CALL A044E MOV A,E SUB L MOV A,D SBB H JNC A0262 DCX H SHLD D055E A0262: CALL A02CD JZ A01F0 LXI D,T04C0 JMP A02F7 ; A026E: LXI D,T04DF CALL A0408 LHLD D055E CALL A03E0 LXI D,T04EE CALL A0408 LHLD D0560 CALL A03E0 LHLD D0568 PUSH H LXI D,00680H DAD D SHLD D058F LXI H,D056A INR M POP H MVI H,001H SHLD D0568 SHLD D0591 CALL A0379 LXI D,T04FD CALL A0408 LDA D0562 CALL A03E7 CALL A03FE POP D MVI C,010H CALL BDOS INR A LXI D,T0535 JZ A0412 A02BD: CALL A03FE A02C0: LXI D,00080H MVI C,01AH CALL BDOS LHLD D056B SPHL RET ; A02CD: CALL A02E2 ADD A ADD A ADD A ADD A PUSH PSW CALL A02E2 POP B ORA B MOV B,A LXI H,T0567 ADD M MOV M,A MOV A,B RET ; A02E2: CALL A0353 SUI 030H CPI 00AH RC SUI 007H CPI 00AH JC A02F4 CPI 010H RC A02F4: LXI D,T04AE A02F7: CALL A0408 LXI D,T0490 CALL A0408 LHLD D0563 CALL A03E0 LXI D,T049F CALL A0408 CALL A044E CALL A03E0 LXI D,T04EE CALL A0408 CALL A042C A031B: LHLD D0563 XCHG CALL A044E MOV A,E SUB L MOV A,D SBB H JNC A02BD MOV A,E ANI 00FH CZ A042C LHLD D0563 XCHG LHLD D0565 MOV A,E SUB L MOV L,A MOV A,D SBB H MOV H,A LXI B,00680H DAD B MOV A,M CALL A03E7 LHLD D0563 INX H SHLD D0563 MVI A,020H CALL A03F8 JMP A031B ; A0353: LDA D055B INR A JP A0371 LXI D,T0600 MVI C,01AH CALL BDOS LXI D,T056D MVI C,014H CALL BDOS ORA A LXI D,T0460 JNZ A0412 A0371: STA D055B MVI H,006H MOV L,A MOV A,M RET ; A0379: PUSH PSW LHLD D0568 XCHG A037E: LDA D0592 DCR A CMP D JNC A03D4 LHLD D0591 MOV A,E SUB L MOV C,A MOV A,D SBB H MOV B,A PUSH B XCHG LHLD D0565 DAD D SHLD D0565 LHLD D058F LXI D,00680H A039E: MOV A,E SUB L MOV A,D SBB H JNC A03C9 PUSH H PUSH D MVI C,01AH CALL BDOS MVI C,015H LXI D,0005CH CALL BDOS ORA A LXI D,T0485 JNZ A0412 POP D LXI H,00080H DAD D XCHG LXI H,D0562 INR M POP H JMP A039E ; A03C9: LDA D056A ORA A CZ A043F POP D JMP A037E ; A03D4: LXI H,00680H DAD D POP PSW MOV M,A INX D XCHG SHLD D0568 RET ; A03E0: PUSH H MOV A,H CALL A03E7 POP H MOV A,L A03E7: PUSH PSW RRC RRC RRC RRC CALL A03F0 POP PSW A03F0: ANI 00FH ADI 090H DAA ACI 040H DAA A03F8: MOV E,A MVI C,002H JMP BDOS ; A03FE: MVI A,00DH CALL A03F8 MVI A,00AH JMP A03F8 ; A0408: PUSH D CALL A03FE POP D A040D: MVI C,009H JMP BDOS ; A0412: PUSH D LXI D,T0458 CALL A0408 POP D CALL A040D LXI D,T0490 CALL A0408 CALL A044E CALL A03E0 JMP A02C0 ; A042C: CALL A03FE LHLD D0563 CALL A03E0 MVI A,03AH CALL A03F8 MVI A,020H JMP A03F8 ; A043F: LXI H,00680H LDA D0590 MVI C,000H A0447: MOV M,C INX H CMP H JNZ A0447 RET ; A044E: LHLD D0565 MOV B,H MOV C,L LHLD D0568 DAD B RET ; T0458: DB 045H DB 052H DB 052H DB 04FH DB 052H DB 03AH DB 020H DB 024H T0460: DB 044H DB 049H DB 053H DB 04BH DB 020H DB 052H DB 045H DB 041H DB 044H DB 024H T046A: DB 04CH DB 04FH DB 041H DB 044H DB 020H DB 041H DB 044H DB 044H DB 052H DB 045H DB 053H DB 053H DB 020H DB 04CH DB 045H DB 053H DB 053H DB 020H DB 054H DB 048H DB 041H DB 04EH DB 020H DB 031H DB 030H DB 030H DB 024H T0485: DB 044H DB 049H DB 053H DB 04BH DB 020H DB 057H DB 052H DB 049H DB 054H DB 045H DB 024H T0490: DB 04CH DB 04FH DB 041H DB 044H DB 020H DB 020H DB 041H DB 044H DB 044H DB 052H DB 045H DB 053H DB 053H DB 020H DB 024H T049F: DB 045H DB 052H DB 052H DB 04FH DB 052H DB 020H DB 041H DB 044H DB 044H DB 052H DB 045H DB 053H DB 053H DB 020H DB 024H T04AE: DB 049H DB 04EH DB 056H DB 041H DB 04CH DB 049H DB 044H DB 020H DB 048H DB 045H DB 058H DB 020H DB 044H DB 049H DB 047H DB 049H DB 054H DB 024H T04C0: DB 043H DB 048H DB 045H DB 043H DB 04BH DB 053H DB 055H DB 04DH DB 020H DB 045H DB 052H DB 052H DB 04FH DB 052H DB 020H DB 024H T04D0: DB 046H DB 049H DB 052H DB 053H DB 054H DB 020H DB 041H DB 044H DB 044H DB 052H DB 045H DB 053H DB 053H DB 020H DB 024H T04DF: DB 04CH DB 041H DB 053H DB 054H DB 020H DB 020H DB 041H DB 044H DB 044H DB 052H DB 045H DB 053H DB 053H DB 020H DB 024H T04EE: DB 042H DB 059H DB 054H DB 045H DB 053H DB 020H DB 052H DB 045H DB 041H DB 044H DB 020H DB 020H DB 020H DB 020H DB 024H T04FD: DB 052H DB 045H DB 043H DB 04FH DB 052H DB 044H DB 053H DB 020H DB 057H DB 052H DB 049H DB 054H DB 054H DB 045H DB 04EH DB 020H DB 024H T050E: DB 043H DB 041H DB 04EH DB 04EH DB 04FH DB 054H DB 020H DB 04FH DB 050H DB 045H DB 04EH DB 020H DB 053H DB 04FH DB 055H DB 052H DB 043H DB 045H DB 020H DB 046H DB 049H DB 04CH DB 045H DB 024H T0526: DB 044H DB 049H DB 052H DB 045H DB 043H DB 054H DB 04FH DB 052H DB 059H DB 020H DB 046H DB 055H DB 04CH DB 04CH DB 024H T0535: DB 043H DB 041H DB 04EH DB 04EH DB 04FH DB 054H DB 020H DB 043H DB 04CH DB 04FH DB 053H DB 045H DB 020H DB 046H DB 049H DB 04CH DB 045H DB 024H T0547: DB 048H DB 045H DB 058H DB 043H DB 04FH DB 04DH DB 009H DB 056H DB 045H DB 052H DB 053H DB 03AH DB 020H DB 033H DB 02EH DB 030H DB 030H DB 00DH DB 00AH DB 024H D055B: DB 07FH D055C: DB 000H D055D: DB 000H D055E: DB 000H DB 000H D0560: DB 000H DB 000H D0562: DB 000H D0563: DB 000H DB 001H D0565: DB 000H DB 001H T0567: DB 000H D0568: DB 000H DB 000H D056A: DB 000H D056B: DB 000H DB 000H T056D: DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H T0576: DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H DB 000H END