Listing of file='ASTJSA.SRC;02' on disk='vmedia/asteriods_source-sector.ccvf'
;VER 0 ORG 829AH JMP L82C1 L829D: JMP 3459H L82A0: JMP 3562H L82A3: JMP 3518H L82A6: JMP 3581H L82A9: JMP 33F4H L82AC: JMP 3392H L82AF: JMP 188FH JMP 1998H JMP 194EH JMP 19B7H JMP 182AH JMP 17C8H L82C1: LDA 092AH CPI 1FH JNZ L82DC LXI H,L829D LXI D,L82AF LXI B,0012H L82D2: LDAX D MOV M,A INX H INX D DCX B MOV A,B ORA C JNZ L82D2 L82DC: DI LXI H,L90D3 CALL L8E3F CALL L8C8B CALL L8C8B CALL L8C8B MVI A,0FFH OUT 8 MVI A,0F7H OUT 8 MVI A,1 STA L9123 MVI A,7 STA L8F98 STA 8001H STA 8003H L8304: LXI H,0000H SHLD L8F32 SHLD L8F34 LXI H,L8F3D MVI M,30H INX H MVI M,30H INX H MVI M,30H INX H MVI M,30H INX H MVI M,30H MVI A,0 STA L8F9E STA L9122 STA L8F42 MVI A,33H STA L8F9F MVI D,0 LXI H,L9162 L8333: MVI M,0 INR D INX H MOV A,D CPI 21H JM L8333 CALL L8C8B CALL L8C8B L8343: MVI A,4 STA L8F52 MVI A,0 STA L8F43 MVI A,1 STA L8F44 MVI A,40H STA L8FA5 STA L8FA6 LXI H,0000H SHLD L8F53 SHLD L8F55 MVI A,0 STA L8F5E LXI H,L901B CALL L8E3F LDA L8F42 CPI 1 JZ L8395 MVI A,1 STA L8F42 L837B: LXI H,L901B CALL L8E3F MVI A,0 STA L8F5E LXI H,L8F61 LDA L8F98 MOV M,A LXI H,L8F85 MVI M,0 CALL L8E4A L8395: LDA L8FA0 CPI 0 JZ L83A5 MVI A,0 STA L8FA0 CALL L8CA7 L83A5: LDA L9123 CPI 0 JZ L83D6 LDA L8F4E ADI 1 STA L8F4E MVI A,0 STA L8F43 STA L8F98 LXI H,L9124 CALL L82A9 CALL L8DF9 LDA L8F98 CPI 0 JZ L842B MVI A,0 STA L9123 JMP L8304 L83D6: LDA L9122 CPI 1 JNZ L8403 LXI H,L9109 CALL L82A9 LXI H,L9124 CALL L82A9 CALL L85A1 MVI A,0 STA L8F43 STA L8F98 CALL L8DF9 LDA L8F98 CPI 0 JNZ L8304 JMP L842B L8403: LDA L8F43 CPI 1 JZ L842B MVI A,7 OUT 7 IN 1 CPI 0EFH JNZ L841E MVI A,1 STA L8F43 JMP L842B L841E: LDA L8F44 SUI 1 STA L8F44 CPI 0 CZ L875A L842B: LDA L8F61 CPI 0 JZ L84CC MOV B,A LXI H,L9188 SHLD L8F5A MVI A,1 STA L8F79 L843F: CALL L8E17 LHLD L8F4F MVI C,3 L8447: CALL L8BE9 INX H MVI M,4 INX H CALL L8BE9 INX H MVI M,4 INX H CALL L8BE9 INX H MVI M,4 DCR C JZ L8476 MVI A,7BH ADD L MOV L,A JNC L8447 INR H MOV A,H CPI 80H JM L8447 LXI D,1000H CALL L829D JMP L8447 L8476: CALL L8C2D SHLD L8F4F MVI C,3 LXI D,L8F79 L8481: INX D CALL L8C0A INX H MVI M,4 INX H INX D CALL L8C0A INX H MVI M,4 INX H INX D CALL L8C0A INX H MVI M,4 DCR C JZ L84B5 MVI A,7BH ADD L MOV L,A JNC L8481 INR H MOV A,H CPI 80H JM L8481 PUSH D LXI D,1000H CALL L829D POP D JMP L8481 L84B5: LHLD L8F5A CALL L8E2B DCR B JZ L84CC LHLD L8F5A LXI D,0004H DAD D SHLD L8F5A JMP L843F L84CC: LDA L8F85 CPI 0 JZ L8522 MOV B,A LXI H,91B0H SHLD L8F5A MVI A,2 STA L8F79 L84E0: CALL L8E17 LHLD L8F4F CALL L8BE9 INX H MVI M,4 INX H CALL L8BE9 INX H MVI M,4 CALL L8C2D SHLD L8F4F LXI D,L8F82 INX D CALL L8C0A INX H MVI M,4 INX H INX D CALL L8C0A INX H MVI M,4 LHLD L8F5A CALL L8E2B DCR B JZ L8522 LHLD L8F5A LXI D,0004H DAD D SHLD L8F5A JMP L84E0 L8522: CALL L8C63 LDA L8F43 CPI 1 JNZ L868F MVI A,7 OUT 7 IN 1 CPI 0FEH JNZ L855A LDA L8F52 ADI 1 STA L8F52 CPI 5 JNZ L855A MVI A,0 STA L8F52 LHLD L8F53 XCHG LHLD L8F55 MOV A,H ADD D MOV H,A MOV A,L ADD E MOV L,A SHLD L8F55 L855A: LDA L8F5E CPI 0 JZ L85C2 LDA L8F5F LXI H,L8FA7 MVI M,1DH CALL L8CC5 LDA L8F5F LXI H,L8FA7 MVI M,1EH CALL L8CC5 CALL L85A1 MVI A,0DH OUT 7 IN 1 CPI 0FEH JNZ L85C7 CALL L8E86 ANI 7FH STA L8FA5 CALL L8E86 ANI 7FH STA L8FA6 LDA L8F4E ADI 1 STA L8F4E JMP L85C7 L85A1: LXI H,7036H LXI D,L8F36 MVI B,0CH L85A9: LDAX D MOV M,A INX H MVI M,1 DCR B JZ L85B7 INX H INX D JMP L85A9 L85B7: LXI H,7FBEH LDA L8F9F MOV M,A INX H MVI M,2 RET L85C2: MVI A,1 STA L8F5E L85C7: LDA L8F60 MOV E,A MVI D,0 MVI A,9 OUT 7 IN 1 CPI 0FEH JNZ L85E2 INR E INR E INR E MOV A,E STA L8F60 JMP L85FA L85E2: LDA L8F60 MOV E,A MVI D,0 MVI A,0BH OUT 7 IN 1 CPI 0FEH JNZ L85FA DCR E DCR E DCR E MOV A,E STA L8F60 L85FA: LHLD L8F55 LDA L8FA5 ADD H ANI 7FH STA L8FA5 LDA L8FA6 ADD L ANI 7FH STA L8FA6 MOV A,E LXI H,L8FA7 MVI M,1DH CALL L8CC5 MVI A,0AH OUT 7 IN 1 CPI 0FEH JNZ L868F LDA L9150 ADI 1 CPI 3 JP L8633 STA L9150 JMP L868F L8633: MVI A,0 STA L9150 LDA L9162 CPI 5 JP L868F ADI 1 STA L9162 LXI H,L9165 L8648: MOV A,M CPI 0 JZ L8655 LXI D,0006H DAD D JMP L8648 L8655: MVI M,1 SHLD L9163 INX H LDA L8FA5 MOV M,A INX H LDA L8FA6 MOV M,A LHLD L8F55 XCHG LHLD L8F53 MOV A,H ADD D MOV D,A MOV A,L ADD E MOV E,A LHLD L9163 INX H INX H INX H MOV M,D INX H MOV M,E INX H MVI M,14H LDA L8FA5 STA L8F49 LDA L8FA6 STA L8F4A LXI H,L8F45 CALL L8E3F L868F: LDA L9162 CPI 0 JZ L8395 LXI H,L9165 MVI A,1 L869C: CPI 6 JP L8395 STA L9151 SHLD L9163 MOV A,M CPI 1 JNZ L873B INX H MOV A,M STA L914B INX H MOV A,M STA L914C INX H MOV A,M STA L914D INX H MOV A,M STA L914E INX H MOV A,M STA L914F LDA L914B STA L9156 STA L915E LDA L914C STA L9157 STA L915F LXI H,L9152 CALL L8E3F LXI H,L915A CALL L8E3F LDA L914F SUI 1 CPI 0 JZ L874A STA L914F LDA L914B MOV C,A LDA L914D ADD A ADD C ANI 7FH STA L914B LDA L914C MOV C,A LDA L914E ADD A ADD C ANI 7FH STA L914C LDA L914B STA L8F49 LDA L914C STA L8F4A LXI H,L8F45 CALL L8E3F LHLD L9163 INX H LDA L914B MOV M,A INX H LDA L914C MOV M,A INX H LDA L914D MOV M,A INX H LDA L914E MOV M,A INX H LDA L914F MOV M,A L873B: LDA L9151 ADI 1 LHLD L9163 LXI D,0006H DAD D JMP L869C L874A: LHLD L9163 MVI M,0 LDA L9162 SUI 1 STA L9162 JMP L873B L875A: LDA L8F61 CPI 0 JZ L8894 LXI H,7636H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H LXI D,0073H DAD D MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H MOV B,A LXI H,L9188 L8867: SHLD L8F5A CALL L8E17 MVI C,14H LHLD L8F4F L8872: INX H MOV A,M CPI 46H JZ L89D7 DCR C JZ L8886 CALL L8C2D SHLD L8F4F JMP L8872 L8886: DCR B JZ L8894 LHLD L8F5A LXI D,0004H DAD D JMP L8867 L8894: LDA L8F85 CPI 0 JZ L89CE LXI H,7636H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 LXI D,0073H DAD D MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 DAD D MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H DAD D MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H INX H MVI M,20H INX H MVI M,46H MOV B,A LXI H,91B0H L89A1: SHLD L8F5A CALL L8E17 MVI C,14H LHLD L8F4F L89AC: INX H MOV A,M CPI 46H JZ L89D7 DCR C JZ L89C0 CALL L8C2D SHLD L8F4F JMP L89AC L89C0: DCR B JZ L89CE LHLD L8F5A LXI D,0004H DAD D JMP L89A1 L89CE: MVI A,1 STA L8F43 STA L8F44 RET L89D7: MVI A,15H SUB C STA L8F44 RET L89DE: LDA L8F5F CALL L8CC5 LDA L8FA5 STA L9050 LDA L8FA6 STA L9051 LXI H,L904C CALL L8E3F LXI H,L904C CALL L8E3F CALL L8C96 CALL L8C8B CALL L8C80 LDA L8F9F SUI 1 STA L8F9F LDA L8F9E ADI 1 STA L8F9E CPI 3 JM L8343 MVI A,1 STA L9122 JMP L8395 L8A22: MVI M,4 DCX H MVI M,20H SHLD L8F9C LDA L9162 CPI 0 JZ L8A98 STA L8F99 LXI H,L9165 L8A38: MOV A,M CPI 1 JZ L8A45 LXI D,0006H DAD D JMP L8A38 L8A45: INX H PUSH H MOV A,M ANI 0FEH MOV L,A MVI H,0 SHLD L8F9A POP H INX H PUSH H MOV E,M MVI D,0 LXI H,0004H CALL L82A6 XCHG LXI H,001FH CALL L829D LXI D,0080H CALL L82A0 XCHG LHLD L8F9A DAD D LXI D,7000H DAD D XCHG LHLD L8F9C CALL L829D MOV A,H CPI 0 JNZ L8A85 MOV A,L CPI 0 JZ L8AA2 L8A85: LDA L8F99 SUI 1 JZ L8A98 STA L8F99 POP H LXI D,0004H DAD D JMP L8A38 L8A98: POP H LXI H,L8F64 CALL L8E3F L8A9F: JMP L8A9F L8AA2: POP H DCX H DCX H MVI M,0 MVI A,1 STA L8FA0 LDA L9162 SUI 1 STA L9162 LDA L8F79 CPI 1 JZ L8AFE LHLD L8F34 LXI D,0064H DAD D SHLD L8F34 LHLD L8F32 DAD D SHLD L8F32 CALL L8EE0 LHLD L8F4F MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 CALL L8BBF LDA L8F85 SUI 1 STA L8F85 DCR B MOV D,A LDA L8F61 ADD D JZ L837B MOV A,B CPI 0 JZ L8522 LHLD L8F5A JMP L84E0 L8AFE: LHLD L8F34 LXI D,0032H DAD D SHLD L8F34 LHLD L8F32 DAD D SHLD L8F32 CALL L8EE0 LHLD L8F4F MVI C,3 L8B17: MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 INX H MVI M,20H INX H MVI M,4 DCR C JZ L8B40 MVI A,7BH CALL L82A3 MOV A,H CPI 80H JM L8B17 LXI D,1000H CALL L829D JMP L8B17 L8B40: CALL L8BBF LDA L8F61 SUI 1 STA L8F61 DCR B PUSH B LDA L8F85 MOV B,A LXI H,91B0H L8B54: MOV A,B CPI 0 JZ L8B62 LXI D,0004H DAD D DCR B JMP L8B54 L8B62: MVI B,4 SHLD L8F57 CALL L8E51 LHLD L8F9C XCHG LHLD L8F57 MVI A,0 L8B73: MOV M,E INX H MOV M,D INX H INX H INX H INX D INX D MOV M,E INX H MOV M,D CPI 1 JZ L8BA2 INX H INX H INX H PUSH H XCHG MVI A,7AH CALL L82A3 MOV A,H CPI 80H JNZ L8B9B PUSH D LXI D,1000H CALL L829D POP D L8B9B: XCHG POP H MVI A,1 JMP L8B73 L8BA2: LDA L8F85 ADI 4 STA L8F85 POP B LDA L8F61 CPI 0 JZ L84CC MOV A,B CPI 0 JZ L84CC LHLD L8F5A JMP L843F L8BBF: LHLD L8F5A MOV A,B CPI 0 RZ STA L8FA4 L8BC9: SHLD L8FA2 LXI D,0004H DAD D CALL L8E17 LHLD L8FA2 CALL L8E2B LDA L8FA4 SUI 1 RZ STA L8FA4 LHLD L8FA2 DAD D JMP L8BC9 L8BE9: MOV A,M CPI 0 JZ L8BF7 INX H MOV A,M CPI 80H JP L8BFA DCX H L8BF7: MVI M,20H RET L8BFA: POP D CPI 87H JZ L89DE CPI 83H JZ L8A22 PUSH D DCX H JMP L8BF7 L8C0A: MOV A,M CPI 0 JZ L8C18 INX H MOV A,M CPI 80H JP L8C1B DCX H L8C18: LDAX D MOV M,A RET L8C1B: INX SP INX SP CPI 87H JZ L89DE CPI 83H JZ L8A22 DCX SP DCX SP DCX H JMP L8C18 L8C2D: LHLD L8F4F LDA L8F59 CPI 0 JZ L8C51 MVI D,0 LDA L8F51 MOV E,A CALL L829D LXI D,6FFFH MOV A,H CMP D JNZ L8C4B MOV A,L CMP E L8C4B: RP MOV A,H ADI 10H MOV H,A RET L8C51: LDA L8F51 ADD L MOV L,A RNC INR H MOV A,H CPI 80H RM LXI D,1000H CALL L829D RET L8C63: PUSH D PUSH H LXI H,0002H MVI D,14H MVI E,0 L8C6C: DCX H MOV A,L CPI 0 JZ L8C7D L8C73: DCX D MOV A,D CPI 0 JZ L8C6C JMP L8C73 L8C7D: POP H POP D RET L8C80: PUSH D PUSH H LXI H,0010H LXI D,2000H JMP L8C6C L8C8B: PUSH D PUSH H LXI H,0FFFFH LXI D,0FFFFH JMP L8C6C L8C96: LXI H,L9020 L8C99: MOV C,M INX H MOV A,C CPI 0 RZ MOV E,M INX H CALL L8CAB JMP L8C99 L8CA7: MVI C,5 MVI E,0D6H L8CAB: MOV B,E L8CAC: DCR B MOV A,B ORI 0 JNZ L8CAC LDA L8FA1 XRI 2 OUT 4 STA L8FA1 DCR C MOV A,C ORI 0 JNZ L8CAB RET L8CC5: ANI 3FH STA L8F5F CPI 20H JP L8CF5 CPI 5 JM L8D1B CPI 9 JM L8D27 CPI 0DH JM L8D33 CPI 11H JM L8D3F CPI 15H JM L8D4B CPI 19H JM L8D57 CPI 1DH JM L8D63 JMP L8D6F L8CF5: CPI 25H JM L8D7B CPI 29H JM L8D87 CPI 2DH JM L8D93 CPI 31H JM L8D9F CPI 35H JM L8DAB CPI 39H JM L8DB7 CPI 3DH JM L8DC3 JMP L8DCF L8D1B: LXI H,0003H SHLD L8F53 LXI H,L8FAF JMP L8DD8 L8D27: LXI H,0104H SHLD L8F53 LXI H,L8FB7 JMP L8DD8 L8D33: LXI H,0203H SHLD L8F53 LXI H,L8FBF JMP L8DD8 L8D3F: LXI H,0201H SHLD L8F53 LXI H,L8FC5 JMP L8DD8 L8D4B: LXI H,0300H SHLD L8F53 LXI H,L8FCB JMP L8DD8 L8D57: LXI H,02FFH SHLD L8F53 LXI H,L8FD1 JMP L8DD8 L8D63: LXI H,02FDH SHLD L8F53 LXI H,L8FD7 JMP L8DD8 L8D6F: LXI H,01FCH SHLD L8F53 LXI H,L8FDD JMP L8DD8 L8D7B: LXI H,00FDH SHLD L8F53 LXI H,L8FE5 JMP L8DD8 L8D87: LXI H,0FFFCH SHLD L8F53 LXI H,L8FED JMP L8DD8 L8D93: LXI H,0FEFDH SHLD L8F53 LXI H,L8FF5 JMP L8DD8 L8D9F: LXI H,0FEFFH SHLD L8F53 LXI H,L8FFB JMP L8DD8 L8DAB: LXI H,0FD00H SHLD L8F53 LXI H,L9001 JMP L8DD8 L8DB7: LXI H,0FE01H SHLD L8F53 LXI H,L9007 JMP L8DD8 L8DC3: LXI H,0FE03H SHLD L8F53 LXI H,L900D JMP L8DD8 L8DCF: LXI H,0FF04H SHLD L8F53 LXI H,L9013 L8DD8: SHLD L8F5C LDA L8FA5 STA L8FAB LDA L8FA6 STA L8FAC LXI H,L8FA7 CALL L8E3F LHLD L8F5C CALL L8E3F LXI H,L8FA7 MVI M,1EH RET L8DF9: LXI H,L8F86 LXI D,L8F8F MVI B,9 L8E01: MOV A,M OUT 7 IN 1 CPI 0FEH JZ L8E12 INX H INX D DCR B RZ JMP L8E01 L8E12: LDAX D STA L8F98 RET L8E17: MOV A,M STA L8F4F INX H MOV A,M STA L8F50 INX H MOV A,M STA L8F51 INX H MOV A,M STA L8F59 RET L8E2B: LDA L8F4F MOV M,A INX H LDA L8F50 MOV M,A INX H LDA L8F51 MOV M,A INX H LDA L8F59 MOV M,A RET L8E3F: MOV A,M CPI 0FEH RZ CALL L82AC INX H JMP L8E3F L8E4A: LDA L8F61 MOV B,A LXI H,L9188 L8E51: SHLD L8F62 CALL L8E86 ANI 0FEH STA L8F4F CALL L8E86 ORI 70H ANI 7FH STA L8F50 CALL L8E97 STA L8F51 CALL L8E86 ANI 1 STA L8F59 LHLD L8F62 CALL L8E2B DCR B RZ LHLD L8F62 LXI D,0004H DAD D JMP L8E51 L8E86: LXI H,L8F4D MOV A,M RLC XRA M RRC INR L INR M ADD M JPE L8E94 INR M L8E94: DCR L MOV M,A RET L8E97: CALL L8E86 CPI 0 JZ L8E97 ANI 7 CPI 1 JP L8EAB MVI A,2 JMP L8EDF L8EAB: CPI 2 JP L8EB5 MVI A,4 JMP L8EDF L8EB5: CPI 3 JP L8EBF MVI A,7CH JMP L8EDF L8EBF: CPI 4 JP L8EC9 MVI A,7EH JMP L8EDF L8EC9: CPI 5 JP L8ED3 MVI A,80H JMP L8EDF L8ED3: CPI 6 JP L8EDD MVI A,82H JMP L8EDF L8EDD: MVI A,84H L8EDF: RET L8EE0: PUSH B PUSH H LXI H,L8F3D MVI M,30H INX H MVI M,30H INX H MVI M,30H INX H MVI M,30H INX H MVI M,30H POP H LXI B,L8F41 L8EF7: LXI D,000AH XCHG CALL L82A6 MOV A,E ADI 30H STAX B DCX B XRA A CMP L JNZ L8EF7 CMP H JNZ L8EF7 POP B LHLD L8F34 MOV A,H CPI 27H RM MOV A,L CPI 10H RM LXI D,2710H CALL L829D SHLD L8F34 LDA L8F9F ADI 1 STA L8F9F LDA L8F9E SUI 1 STA L8F9E RET L8F32: INX B DCX H L8F34: MOV A,H ORA L L8F36: MOV D,E MOV B,E MOV C,A MOV D,D MOV B,L DB 3AH DB 20H L8F3D: DB 30H DB 30H DB 30H DB 30H L8F41: DB 30H L8F42: DB 0 L8F43: MOV E,C L8F44: ADC A L8F45: MVI E,6 INX B STAX B L8F49: DB 0C6H L8F4A: DAD B RST 7 DB 0FEH L8F4D: INR C L8F4E: STAX B L8F4F: DB 0CDH L8F50: RP L8F51: ADC M L8F52: DCR B L8F53: DB 0C2H MOV C,A L8F55: ADC A POP PSW L8F57: POP B RET L8F59: DB 01H L8F5A: DCR C LDAX B L8F5C: MVI B,2 L8F5E: MOV B,E L8F5F: MOV C,A L8F60: DB 0 L8F61: DB 0 L8F62: MOV D,L MOV B,E L8F64: MVI B,1 MOV C,L MOV C,C MOV D,E MOV D,E MOV C,C MOV C,H MOV B,L DB 20H MOV C,M MOV C,A MOV D,H DB 20H MOV B,M MOV C,A MOV D,L MOV C,M MOV B,H DB 21H DB 0FEH L8F79: LDAX B INR D DCR B INR E LXI B,0220H INR E RAR L8F82: RAL INX B INR B L8F85: DB 0 L8F86: MVI C,0DH INR C DCX B LDAX B DAD B DB 8 RLC DB 06H L8F8F: LXI B,0302H INR B DCR B MVI B,7 DB 8 DAD B L8F98: ADC M L8F99: DB 36H L8F9A: DB 0 DB 0 L8F9C: PUSH B DB 0 L8F9E: ANA H L8F9F: ADC A L8FA0: DB 01H L8FA1: DB 8 L8FA2: STC STAX B L8FA4: DB 36H L8FA5: MOV B,B L8FA6: MOV B,B L8FA7: DCR E MVI B,7 STAX B L8FAB: INR L L8FAC: LXI SP,0FEFBH L8FAF: STAX B SHLD L90A2 LXI D,0FF11H DB 0FEH L8FB7: LHLD 0A12AH ADD C DCR D LXI B,0FEFFH L8FBF: XRA D ADC B LXI D,0FF55H DB 0FEH L8FC5: ADC B SUB C MOV D,L INR B RST 7 DB 0FEH L8FCB: ADC B SBB C MOV D,L MOV B,H RST 7 DB 0FEH L8FD1: ADC C SUB C MOV D,H INR B RST 7 DB 0FEH L8FD7: SBB C LXI D,6644H RST 7 DB 0FEH L8FDD: DAD D LXI D,4652H MVI H,2 RST 7 DB 0FEH L8FE5: LXI D,0115H MOV H,B SHLD 0FF22H DB 0FEH L8FED: DCR D DCR D MOV D,D MOV B,D LHLD 0FF02H DB 0FEH L8FF5: MOV D,L MOV B,H SHLD 0FFAAH DB 0FEH L8FFB: MOV B,H MOV H,D XRA D DB 8 RST 7 DB 0FEH L9001: MOV B,H MOV H,M XRA D ADC B RST 7 DB 0FEH L9007: MOV B,M MOV H,D XRA B DB 8 RST 7 DB 0FEH L900D: MOV H,M SHLD 9988H RST 7 DB 0FEH L9013: MVI H,22H ANA C ADC C DAD D LXI B,0FEFFH L901B: MVI E,6 INR B INR C DB 0FEH L9020: STA 2812H DB 18H INR M INR D DAD H LDAX D MVI M,16H DCX H DCR E LDA 2E1CH LXI H,2240H STA 462AH INR L INR A STA 344CH MOV B,C DB 38H MOV D,D MVI A,4AH MOV B,C MOV H,H MOV H,H MOV L,C MOV A,B ADD D SBB B ADC H ANA B ANI 0F0H DB 0 DB 0 L904C: MVI E,6 DB 01H STAX B L9050: DB 32H L9051: LXI B,28FBH LXI D,2244H LDAX B ADD B DB 8 DB 10H LXI B,0110H MOV B,B INR B MOV B,B INR B DB 20H STAX B DB 20H STAX B ANA B DB 8 ADD B ADD B DB 8 DB 10H DB 10H LXI B,1010H LXI B,4040H INR B MOV B,B MOV B,B INR B DB 20H DB 20H STAX B DB 20H DB 20H STAX B ANA B ADD B DB 8 ADD B ADD B ADD B DB 8 DB 10H DB 10H DB 10H LXI B,1010H DB 10H LXI B,4040H MOV B,B INR B MOV B,B MOV B,B MOV B,B INR B DB 20H DB 20H DB 20H STAX B DB 20H DB 20H DB 20H STAX B ANA B ADD B ADD B DB 8 SUB B SUB B L90A2: SUB B SUB B DAD B MOV D,B MOV D,B MOV D,B MOV D,B DCR B MOV H,B MOV H,B MOV H,B MOV H,B MVI B,60H STAX B ANA B ANA B ANA B STAX B ADD B ADD B ADD B ADD B ADD B DB 8 SUB B SUB B SUB B LXI B,1010H DB 10H DB 10H LXI B,5050H MOV D,B INR B MOV B,B MOV B,B MOV B,B MOV B,B INR B MOV H,B MOV H,B MOV H,B STAX B RST 7 DB 0FEH L90D3: MVI B,27H INR C MVI C,3 DCR E RRC MOV B,C MOV D,E MOV D,H MOV B,L MOV D,D MOV C,A MOV C,C MOV B,H MOV D,E STAX B DB 38H INR A JP 4B38H MOV C,L MOV C,E MOV C,L INR A DB 38H INR A RST 7 RRC INX B DB 18H STAX D MVI B,23H LXI SP,3839H DB 30H DB 20H MOV B,D MOV E,C DB 20H MOV D,H MOV C,A MOV C,L DB 20H MOV C,B MOV D,L MOV B,H MOV D,E MOV C,A MOV C,M DB 0FEH L9109: INX B ADD B RAL DCX D MOV B,C LHLD 2A2AH DB 20H MOV B,A MOV B,C MOV C,L MOV B,L DB 20H MOV C,A MOV D,M MOV B,L MOV D,D DB 20H LHLD 2A2AH DCX D DCX D RST 5 L9122: MOV D,D L9123: MOV B,C L9124: INX B ADD B DB 10H RRC INX B MOV B,L MOV C,M MOV D,H MOV B,L MOV D,D DB 20H MOV C,M MOV D,L MOV C,L MOV B,D MOV B,L MOV D,D DB 20H MOV C,A MOV B,M DB 20H MOV B,C MOV D,E MOV D,H MOV B,L MOV D,D MOV C,A MOV C,C MOV B,H MOV D,E DB 20H DB 28H LXI SP,392DH DAD H DCX D DCX D RST 5 L914B: MOV B,C L914C: MOV D,E L914D: DB 32H L914E: DB 3AH L914F: DAD B L9150: DB 0 L9151: DB 0 L9152: DCR E MVI B,0 STAX B L9156: DB 36H L9157: INR L RST 7 DB 0FEH L915A: MVI E,6 DB 0 STAX B L915E: MOV D,D L915F: MOV B,C RST 7 DB 0FEH L9162: DB 0 L9163: DB 3AH DAD B L9165: MOV B,H MOV D,E DAD B LXI SP,0A0DH MOV B,L MOV D,D MOV B,C MOV D,E MOV E,C STA 093AH MOV B,H MOV D,E DAD B LXI SP,0A0DH DAD B MOV B,H MOV B,D DAD B STA 3535H INR L STA 3435H DCR C LDAX B MOV C,L MOV C,C L9188: MOV D,E MOV B,E MOV C,M MOV D,H LDA 4409H MOV B,D DAD B DB 30H DCR C LDAX B MOV C,B MOV C,A MOV C,H MOV B,H INX SP LDA 0000H END 829AH