a0000 EQU 0 a0001 EQU 4 IF e04 fTADD LXI H,fADD JMP a0002 ENDF IF e05 fTSUB LXI H,fSUB JMP a0002 ENDF IF e03 fTDIV LXI H,fDIV JMP a0002 ENDF IF e02 fTMUL LXI H,fMUL JMP a0002 ENDF IF e01 fTEXP LXI H,a0003 JMP a0002 ENDF IF e07 fTIEX LXI H,a0004 JMP a0002 ENDF IF e41 AMOD MVI A,1 JMP a0005 ENDF IF e39 MOD XRA A ENDF IF e39+e41 a0005 STA a0006 JMP a0007 ENDF IF e0A fTIAD LXI H,fADD JMP a0008 ENDF IF e0B fTISB LXI H,fSUB JMP a0008 ENDF IF e09 fTIDV LXI H,fDIV JMP a0008 ENDF IF e08 fTIMP LXI H,fMUL ENDF IF e07+e08+e09+e0A+e0B a0008 XRA A JMP a0002+2 ENDF IF e07+e08+e09+e0A+e0B+e01+e02+e03+e04+e05 a0002 MVI A,1 STA a0006 SHLD a0009+1 CALL sTORE CALL fTG3 LXI H,a000A+a0001+1 PUSH H XCHG LHLD aRG2 CALL vCOPY LHLD aRG1 MOV B,H MOV C,L a0009 CALL 0 LHLD aRG3 XCHG POP H CALL vCOPY LDA a0006 ORA A JNZ rET LHLD aRG3 CALL iCHECK JMP rET a0006 DB 0 ENDF IF e06 fTAEQ CALL sTORE CALL fTG2 LHLD aRG2 XCHG LHLD aRG1 CALL vCOPY JMP rET ENDF IF e0C fTIEQ CALL sTORE CALL fTG2 LHLD aRG2 PUSH H XCHG LHLD aRG1 CALL vCOPY POP H CALL iCHECK JMP rET ENDF IF e07 a0004 CALL a000B DCX B LDAX B INX B ORA A JNZ fTE08 LDAX B ORA A LXI H,a000C JZ vCOPY PUSH D PUSH B MOV D,B MOV E,C LXI H,a000D+a0001+1 CALL rELP1 POP B POP D JC a000E PUSH D MOV H,B MOV L,C CALL fTFX POP H PUSH D PUSH H LXI D,a000F+a0001+1 PUSH D CALL vCOPY a0010 POP B POP D POP H DCX H MOV A,H ORA L RZ PUSH H PUSH D PUSH B CALL fMUL JMP a0010 a000D DB 16H,0,0,0,0,82H ENDF IF e01+e07 a0003 CALL a000B a000E PUSH D PUSH B MOV B,D MOV C,E CALL a0011 POP B POP D PUSH D CALL fMUL POP D MOV B,D MOV C,E JMP a0012 a000B LDAX D ORA A RNZ STAX D POP H RET ENDF IF e39+e41 a0007 CALL sTORE CALL cHECK DB 3 CALL fTG3 LXI D,a000F+a0001+1 PUSH D LHLD aRG3 CALL vCOPY LHLD aRG2 MOV B,H MOV C,L CALL fDIV POP H PUSH H LXI D,a000A+a0001+1 PUSH D CALL vCOPY XCHG DCX H MVI M,0 INX H CALL iCHECK POP D LHLD aRG2 MOV B,H MOV C,L CALL fMUL POP B PUSH B CALL a0013 POP H DCX H MVI M,1 INX H XCHG LXI B,a000A+a0001+1 PUSH D CALL fMUL POP D PUSH D LHLD aRG3 MOV B,H MOV C,L CALL fADD LHLD aRG1 SHLD aRG3 JMP a0009+3 ENDF IF e33 SIN LXI H,a0014 JMP a0015 ENDF IF e34 COS LXI H,a0016 JMP a0015 ENDF IF e35 TAN LXI H,a0017 JMP a0015 ENDF IF e36 ATAN LXI H,a0018N JMP a0015 ENDF IF e3A SQRT LXI H,a0019 JMP a0015 ENDF IF e38 ALOG LXI H,a0011 JMP a0015 ENDF IF e37 ALOG10 LXI H,a001A0 JMP a0015 ENDF IF e42 EXP LXI H,a0012 JMP a0015 ENDF IF e3B FLOAT LXI H,a001B JMP a0015 ENDF IF e3C+e6A+e6B IF a0000-1 INT EQU $ AINT EQU $ ENDF IFIX LXI H,a001C JMP a0015 ENDF IF e3D ABS LXI H,a001D JMP a0015 ENDF IF e40 IABS LXI H,a001E JMP a0015 ENDF IF e3E RAND LXI H,a001FM JMP a0015 ENDF IF e3F+e69 IF a0000-1 ISIGN EQU $ ENDF SIGN LXI H,a0013 JMP a0015 ENDF IF e19 fTMUS CALL sTORE CALL fTG2 LHLD aRG2 PUSH H XCHG LHLD aRG1 CALL vCOPY POP H MOV A,M ORA A JZ rET DCX H MOV A,M XRI 1 MOV M,A JMP rET ENDF a0020 EQU e33+e34+e35+e36+e37+e38+e39+e3A+e3B IF a0020+e3C+e3D+e3E+e3F+e40+e41+e42+e69+e6A+e6B a0015 SHLD a0021+1 CALL sTORE CALL cHECK DB 2 CALL fTG2 LXI D,a000A+a0001+1 PUSH D LHLD aRG2 CALL vCOPY POP B PUSH D a0021 CALL 0 LHLD aRG1 XCHG POP H CALL vCOPY JMP rET ENDF a000A DS a0001+2 IF e3B a001B RET ENDF IF e3C+e6A+e6B a001C MOV H,B MOV L,C CALL iCHECK RET ENDF IF e3D+e40 a001D DCX B XRA A STAX B RET ENDF IF e3D+e40 a001E EQU a001D ENDF IF e3F+e39+e41 a0013 LDAX B ORA A LXI H,a0022 JZ a0023+1 LXI H,a000C DCX B LDAX B ORA A JZ a0023 LXI H,a0024 a0023 INX B MOV D,B MOV E,C CALL vCOPY RET ENDF DB 0,0,0,0,0 a0022 DB 00 DB 10H,0,0,0,0 a000C DB 81H DB 10H,0,0,0,1 a0024 DB 81H IF e35 a0017 PUSH B MOV H,B MOV L,C LXI D,a000F+a0001+1 CALL vCOPY MOV B,D MOV C,E CALL a0016 POP B PUSH B CALL a0014 POP D LXI B,a000F+a0001+1 LDAX B ORA A JZ a0025 JMP fDIV a0025 LXI H,a0026+a0001+1 JMP vCOPY a0026 DB 99H,99H,99H,99H,0,0FFH ENDF a000F DS a0001+2 IF e33+e35 a0014 PUSH B MOV H,B MOV L,C LXI D,a0027+a0028 CALL a0029 POP B ENDF IF e33+e34+e35 a0016 MOV D,B MOV E,C PUSH B LXI H,a002A+a0028 LXI B,a002B+a0028 CALL a002C XRA A STA a002D-1 LDA a002D CALL a002E LXI D,a002D LXI H,a002F+a0028 CALL a0030 LXI B,a002D MOV L,C MOV H,B LXI D,a0031+a0028 JC a00320 XCHG LXI H,a0033+a0028 a00320 CALL a0029 LXI H,a002D MOV D,H MOV E,L LXI B,a0034+a0028 CALL a0035 LXI H,a0036+a0028 CALL a0037 POP B LXI D,a0038+a0028 LXI H,a002B+a0028 JMP a0035 ENDF IF e42+e01+e07 a0012 PUSH B MOV D,B MOV E,C LXI B,a002B+a0028 LXI H,a0039+a0028 CALL a0035 LXI H,a002D-1 MOV A,M MVI M,0 STA a003A INX H MOV A,M CPI 83H JNC a003B SUI 81H MVI E,0 JC a003C0 INR A MOV C,A LDA a002B MOV B,A RAR RAR RAR RAR a003D0 ANI 0FH MOV D,A MOV A,E ADD A ADD A ADD E ADD A ADD D MOV E,A MOV A,B DCR C JNZ a003D0 LDA a002D CALL a002E a003C0 MOV A,E ADI 81H STA a003E LDA a002D MVI B,0 CPI 80H JC a003F0 LXI H,a002B MOV A,M MOV B,A ANI 0FH MOV M,A a003F0 MOV A,B STA a0040 CALL a0041 MVI B,a0042 LXI H,a002B LXI D,a0034 a00430 MOV A,M STAX D INX D INX H DCR B JNZ a00430 LXI H,a0044+a0028 CALL a0037 LDA a0040 ANI 0F0H LXI H,a0045-1 LXI D,a0001+2 a00460 DAD D SUI 10H JNC a00460 LXI D,a0038+a0028 POP B PUSH B CALL a0035 POP B LXI H,a003E MOV A,M STAX B DCX H MOV A,M ORA A RZ LXI D,a0047+a0028 MOV H,B MOV L,C JMP a002C ENDF IF e3A a0019 PUSH B MOV H,B MOV L,C SHLD a0048 DCX B LDAX B ORA A JNZ fTE07 INX B LDAX B ORA A RZ RAR MVI D,7FH JNC a0049 INR A JMP a004A a0049 INR D a004A ADI 40H STA a0034 LXI H,a002D MOV M,D MVI E,a0028 a004B DCX B DCX H LDAX B MOV M,A DCR E JNZ a004B MOV A,D LXI D,a004C+a0028 CPI 7FH JZ a004D MOV A,M LXI D,a004E+a0028 CPI 25H JC a004D LXI D,a004F+a0028 CPI 50H JC a004D LXI D,a0050+a0028 a004D LXI H,a0042 DAD D PUSH H LXI H,a002B+a0028 LXI B,a0038+a0028 PUSH B CALL a0035 POP H POP D POP B PUSH B CALL a0051 CALL a0052N CALL a0052N CALL a0052N POP B LDA a0034 STAX B RET a0052N LHLD a0048 PUSH H LXI D,a002B+a0028 LXI B,a0038+a0028 PUSH B CALL a002C POP B POP H PUSH H PUSH B MOV D,B MOV E,C CALL a0051 POP H POP B LXI D,a002F+a0028 CALL a0035 RET ENDF IF e36 a0018N PUSH B DCX B LDAX B STA a003A XRA A STAX B LXI H,a0053+a0028 POP D PUSH D MVI C,0 CALL a0030 JC a00540 LXI H,a0055+a0028 POP D PUSH D INR C CALL a0030 JC a00540 LXI H,a0056+a0028 POP D PUSH D INR C CALL a0030 JC a00540 INR C a00540 MOV A,C STA a003E LXI H,a0057-1 LXI D,a0042 a00580 DAD D DCR C JP a00580 POP D PUSH D PUSH H LXI B,a0038+a0028 PUSH B CALL a0035 POP B MOV D,B MOV E,C LXI H,a0047+a0028 CALL a0051 POP H POP D PUSH D LXI B,a002B+a0028 PUSH B CALL a0029 POP B MOV D,B MOV E,C LXI H,a0038+a0028 CALL a002C LXI B,a0034+a0028 LXI H,a002B+a0028 MOV D,H MOV E,L CALL a0035 LXI H,a0059O+a0028 CALL a0037 LXI B,a0038+a0028 LXI D,a002B+a0028 MOV H,B MOV L,C CALL a0035 LDA a003E LXI H,a005A-1 LXI D,a0042 a005B0 DAD D DCR A JP a005B0 LXI D,a0038+a0028 MOV B,D MOV C,E CALL a0051 LDA a003A STA a005C JMP a005D ENDF IF e38 a001A0 PUSH B CALL a0011 POP B LXI H,a005E+a0028 MOV D,B MOV E,C CALL a002C RET ENDF IF e37+e38+e01+e07 a0011 PUSH B LDAX B STA a003E ORA A JZ fTE08 MVI A,80H STAX B DCX B LDAX B ORA A JNZ fTE08 LXI H,-a0001 DAD B MOV A,M CPI 50H LXI H,a005F+a0028 JNC a0060 LXI D,a0042+a0042 LXI H,-3*a0042+a0061-1 a0062 DAD D SUI 10H JNC a0062 a0060 SHLD a0063 MOV D,B MOV E,C INX D LXI B,a002B+a0028 CALL a0035 LXI H,a002B MOV A,M MOV B,A ANI 0FH MOV M,A LXI H,a0038 MOV A,B ANI 0F0H STA a0040 MOV M,A INX H MVI B,a0001 a0064 MVI M,0 DCR B INX H JNZ a0064 MVI M,80H CALL a0041 LXI H,a0038+a0028 MOV D,H MOV E,L MOV B,H MOV C,L PUSH B CALL a0051 POP B PUSH B MOV D,B MOV E,C LXI H,a002B+a0028 PUSH H CALL a0051 POP B POP H MOV D,B MOV E,C PUSH B CALL a002C POP D LXI B,a0034+a0028 MOV H,D MOV L,E CALL a0035 LXI H,a0065+a0028 CALL a0037 LXI H,a0038+a0028 LXI D,a002B+a0028 MOV B,H MOV C,L CALL a0035 LDA a0040 RRC RRC RRC RRC SUI 5 LXI H,a0066-1 LXI D,a0042 a0067 DAD D DCR A JP a0067 LXI D,a0038+a0028 MOV B,D MOV C,E PUSH B CALL a0051 LHLD a0063 LXI D,a0042 DAD D POP B MOV E,C MOV D,B CALL a0029 LDA a003E MOV E,A RLC CMA ANI 1 STA a002D-1 JZ a0068 MVI A,80H SUB E JMP a0069 a0068 MOV A,E SUI 80H a0069 MOV B,A INR B MVI A,99H MVI H,-1 a006A ADI 1 DAA JNC a006B INR H a006B DCR B JNZ a006A MOV L,A MVI C,3 a006C DAD H DAD H DAD H DAD H MOV A,H CPI 10H JNC a006D DCR C JNZ a006C MVI C,80H a006D MOV A,C ADI 80H XCHG LXI H,a002B MOV M,D INX H MOV M,E INX H MVI B,a0001-2 a006E MVI M,0 INX H DCR B JNZ a006E INX H MOV M,A LXI D,a005E+a0028 MOV B,H MOV C,L PUSH B CALL a0035 POP D LXI H,a0038+a0028 POP B JMP a0051 ENDF IF e6C+e6D IDIM XRA A JMP $+2 DIM MVI A,1 STA a0006 CALL sTORE CALL cHECK DB 3 CALL fTG3 LHLD aRG3 PUSH H XCHG LHLD aRG2 CALL rELP1 POP H JNC $+3 LHLD aRG2 PUSH H LHLD aRG1 XCHG LHLD aRG3 CALL vCOPY POP B CALL fSUB LHLD aRG1 LDA a0006 ORA A JNZ rET CALL iCHECK JMP rET ENDF IF e6E ATAN2 CALL sTORE CALL cHECK DB 3 CALL fTG3 LHLD aRG1 XCHG LHLD aRG3 CALL vCOPY PUSH D LHLD aRG2 MOV B,H MOV C,L CALL fDIV POP B CALL a0018N JMP rET ENDF IF e61+e62+e63+e64+e65+e66+e67+e68 AMAX0 EQU $ AMAX1 EQU $ MAX0 EQU $ MAX1 EQU $ MVI A,0D4H a006F STA a0070 POP H MOV A,M INX H SHLD a0071 CPI 2 CC fTE03 DCR A STA a0072 CALL fTG2 LHLD aRG1 SHLD a0073+1 XCHG LHLD aRG2 CALL vCOPY a0074 LDA a0072 DCR A STA a0072 JZ rET LHLD a0071 CALL fTG1 a0073 LXI D,0 LHLD aRG1 PUSH D PUSH H CALL rELP1 POP H POP D a0070 CNC vCOPY JMP a0074 AMIN0 EQU $ AMIN1 EQU $ MIN0 EQU $ MIN1 EQU $ MVI A,0DCH JMP a006F a0072 DB 0 ENDF IF e3E a001FM MOV D,B MOV E,C PUSH D PUSH D LDAX D ORA A JNZ a0075 LXI H,a0076 CALL vCOPY POP D JMP a0077 a0075 DCX D LDAX D INX D ORA A JZ a0078 LXI H,a0079 CALL vCOPY a0078 POP D a0077 MOV B,D MOV C,E LDAX B MOV D,A MVI E,a0042 LXI H,a007A a007B LDAX B MOV M,A DCX B DCX H DCR E JNZ a007B MOV M,E MOV A,D CPI 80H JNC a007C MVI B,a0001+a0001 SUI 80H-a0001-a0001 JC a007D CMA ADI 9 MOV B,A a007D MOV A,B ADD A ADD A MOV B,A CALL a007E POP B PUSH B LXI D,a0042 LXI H,a007A a007F MOV A,M STAX B MOV M,D DCX B DCX H DCR E JNZ a007F MOV M,D a007C POP D PUSH D MVI C,1 MVI B,a0001+a0001 LXI H,a0080 a0081 MOV A,M DCR C JNZ a0082 RAR RAR RAR RAR DCX H MVI C,2 a0082 ANI 0FH INX H PUSH H PUSH B MOV C,A a0083 DCR C JM a0084 PUSH D DCX D DCX D CALL a0085 POP D JMP a0083 a0084 POP B DCR B JZ a0086 PUSH B MVI B,4 CALL a0087 POP B POP H JMP a0081 a0086 POP H LXI D,a0088+a0001-1 CALL a0085 LXI H,a007A MVI M,80H DCX H MVI M,0 POP B PUSH B LXI H,a0089 PUSH H PUSH B JMP a008A a0089 LXI H,a0076 POP D XCHG JMP vCOPY a0076 EQU $+5 DB 31H,41H,59H,36H,00H,81H a0079 EQU $+5 DB 31H,41H,59H,36H,00H,81H ENDF IF e34+e42+e35+e36+e37+e01+e07 a0037 CALL a008B MOV D,B MOV E,C PUSH B CALL a0051 POP B RET a008B LXI B,a0038+a0028 PUSH H a008C0 PUSH B LXI D,a0034+a0028 CALL a0035 POP B POP H LXI D,a0042+1 DAD D MOV A,M DCX H CPI 0FFH RZ MOV D,B MOV E,C PUSH H PUSH B CALL a0051 POP B MOV H,B MOV L,C JMP a008C0 ENDF IF e33+e34+e35+e36 a0030 LDAX D CMP M RNZ MVI B,a0001 DCX H DCX D a008D0 DCX H DCX D LDAX D SBB M DCR B JNZ a008D0 RET ENDF IF e33+e34+e35+e42+e01+e07 a002E SUI 129 RC MVI B,a0001+a0001 CPI a0001+a0001 JNC a008E0 INR A MOV B,A a008E0 LXI H,a002D MOV A,M SUB B MOV M,A MOV A,B RLC RLC MOV B,A CALL a008F JMP a0041 ENDF IF e33+e34+e35+e42+e37+e38+e01+e07 a0041 LXI H,a002B LXI B,a0001 a00900 MOV A,M ORA A JNZ a00910 INX H INR B INR B DCR C JNZ a00900 XRA A STA a002D RET a00910 CPI 10H JNC a00920 INR B a00920 LXI H,a002D MOV A,M SUB B MOV M,A MOV A,B RLC RLC MOV B,A JMP a008F a008F MVI C,a0028 LXI H,a002B+3 a0093 MOV A,B SUI 8 JNC a0094 DCR B RM ORA A a0095 MOV A,M RAL MOV M,A DCX H DCR C JNZ a0095 JMP a008F a0094 MOV B,A XRA A a0096 MOV D,M MOV M,A MOV A,D DCX H DCR C JNZ a0096 JMP a008F ENDF a0029 PUSH H LXI H,fSUB JMP a0097 a0051 PUSH H LXI H,fADD JMP a0097 a0035 PUSH H LXI H,fMUL JMP a0097 a0098 PUSH H LXI H,a0099 JMP a0097 a002C PUSH H LXI H,fDIV a0097 SHLD a009A+1 PUSH B LXI H,a009B+a0001+1 XCHG CALL vCOPY POP H XTHL MOV B,H MOV C,L PUSH D a009A CALL 0 POP H POP D JMP vCOPY a009B DS a0001+2 IF e33+e34+e35 a0031 DB 25H,0,0,0,0,80H ENDF IF e42+e07+e01 a0039 DB 43H,42H,94H,48H,0,80H ENDF IF e33+e34+e35 a0033 DB 75H,0,0,0,0,80H ENDF IF e33+e34+e35+e3A a002F DB 50H,0,0,0,0,80H ENDF IF e42+e36+e01+e07 a0047 DB 10H,0,0,0,0,81H ENDF IF e33+e35 a0027 DB 15H,70H,79H,63H,0,81H ENDF IF e37+e38+e07+e01 a005E DB 23H,2H,58H,51H,0,81H ENDF IF e33+e34+e35 a002A DB 62H,83H,18H,52H,0,81H ENDF IF e3E a0080 DB 03H,14H,76H,21H a0088 DB 02H,11H,32H,48H ENDF IF e3A a004C DB 25H,0,0,0,0,81H DB 80H,0,0,0,0,7FH a004E DB 11H,11H,11H,11H,0,81H DB 22H,22H,22H,22H,0,80H a004F DB 87H,50H,0,0,0,80H DB 27H,86H,30H,0,0,80H a0050 DB 57H,81H,25H,0,0,80H DB 42H,18H,75H,0,0,80H ENDF IF e42+e01+e07 a0045 DB 10H,0,0,0,0,81H DB 12H,58H,92H,54H,0,81H DB 15H,84H,89H,32H,0,81H DB 19H,95H,26H,23H,0,81 DB 25H,11H,88H,64H,0,81H DB 31H,62H,27H,77H,0,81H DB 39H,81H,7,17H,0,81H DB 50H,11H,87H,23H,0,81H DB 63H,9,57H,34H,0,81H DB 79H,43H,28H,23H,0,81H ENDF IF e33+e34+e35 a0036 DB 14H,39H,41H,35H,1,82H DB 42H,0,98H,6,0,82H DB 76H,70H,42H,81H,1,82H DB 81H,60H,52H,26H,0,82H DB 41H,34H,17H,2,1,82H DB 62H,83H,18H,53H,0,81H DB 0FFH ENDF IF e42+e07+e01 a0044 DB 53H,95H,51H,90H,0,80H DB 11H,72H,33H,54H,0,81H DB 20H,34H,71H,12H,0,81H DB 26H,50H,95H,1,0,81H DB 23H,2,58H,51H,0,81H DB 10H,0,0,0,0,81H DB 0FFH ENDF IF e36 a00590 DB 99H,92H,33H,12H,0,7FH DB 14H,23H,51H,77H,1,80H DB 19H,99H,90H,56H,0,80H DB 33H,33H,33H,27H,1,80H DB 10H,0,0,0,0,81H DB 0FFH a0053 DB 22H,82H,43H,47H,0,80H a0055 DB 79H,74H,73H,39H,0,80H a0056 DB 20H,76H,52H,14H,0,81H a0057 DB 0,0,0,0,0,0 DB 48H,15H,74H,61H,0,80H DB 12H,53H,96H,3,0,81H DB 43H,81H,28H,62H,0,81H a005A DB 0,0,0,0,0,0 DB 44H,87H,98H,95H,0,80H DB 89H,75H,97H,90H,0,80H DB 13H,46H,39H,68H,0,81H ENDF IF e37+e38+e07+e01 a0065 DB 22H,22H,22H,22H,0,80H DB 28H,55H,55H,55H,0,80H DB 40H,0,0,0,0,80H DB 66H,66H,66H,67H,0,80H DB 20H,0,0,0,0,81H DB 0FFH a0061 DB 50H,0,0,0,0,81H DB 16H,9,43H,79H,0,81H DB 30H,0,0,0,0,81H DB 10H,98H,61H,23H,0,81H DB 20H,0,0,0,0,81H DB 69H,31H,47H,18H,0,80H DB 20H,0,0,0,0,81H DB 69H,31H,47H,18H,0,80H a005F DB 10H,0,0,0,0,81H DB 0,0,0,0,0,0 a0066 DB 69H,31H,47H,18H,1,80H DB 51H,8,25H,62H,1,80H DB 35H,66H,74H,94H,1,80H DB 22H,31H,43H,55H,1,80H DB 10H,53H,60H,51H,1,80H ENDF a0028 EQU a0001+1 a0042 EQU a0001+2 a0034 DS a0042 DS 1 a002B DS a0028 a002D DS 1 a0038 DS a0042 a0040 DS 1 a003A DS 1 a003E DS 1 a0048 DS 2 a0063 DS 2 fADD PUSH D a009C CALL a009D MVI C,0 a009E DCX D XCHG LDA a005C XRA M MOV B,A MOV A,M XCHG DCX D XRA C STA a005C LXI H,a009F MOV A,M ORA A INX H MOV A,M JZ a00A0 RLC RLC RLC RLC a00A0 ADI 0B0H MOV A,B RAR JC a00A1 RAL CALL a0085 JNC a005D LXI B,4*256+a0001+1 CALL a00A2 LXI H,a007A INR M JZ a003B JMP a005D fSUB PUSH D a00A3 CALL a009D LDA a005C XRI 1 STA a005C JMP a009E a00A1 RAL CMC LXI H,a00A4+a0001-1 LXI B,a0001*256+99H a00A5 MOV A,C ACI 0 SUB M XCHG ADD M DAA XCHG MOV M,A DCX H DCX D DCR B JNZ a00A5 JC a008A LXI H,a005C MOV A,M XRI 1 MOV M,A DCX H LXI B,a0001*256+9AH a00A6 MOV A,C SBB M ADI 0 DAA MOV M,A DCX H DCR B CMC JNZ a00A6 JMP a008A fMUL PUSH D a0099 MOV H,B MOV L,C a00A7 MOV A,M ORA A JZ a00A8 LDAX D ORA A JZ a00A8 ADD M JC a00A9 JP a00A8 JMP a00AA a00A9 JM a003B a00AA SUI 128 STA a007A DCX D DCX H LDAX D XRA M DCX H DCX D PUSH H LXI H,a005C MOV M,A DCX H XRA A LXI B,a0001+2*256+a0001 a00AB MOV M,A DCX H DCR B JNZ a00AB LXI H,a00AC+a0001 a00AD LDAX D MOV M,A DCX H DCX D DCR C JNZ a00AD MOV M,C DCX H MVI B,250 a00AE LXI D,a0001+1 MOV C,E DAD D XCHG DAD D INR B JP a00AF a00B0 LDAX D ADC A DAA MOV M,A DCX D DCX H DCR C JNZ a00B0 INR B JNZ a00AE INX H LXI D,a00B1 LXI B,a0001+1*256+a0001+1 a00B2 MOV A,M STAX D INX H INX D DCR C JNZ a00B2 LXI H,a00B3+a0001 DCX D a00B4 LDAX D ADC M DAA STAX D DCX D DCX H DCR B JNZ a00B4 MVI B,249 XCHG JMP a00AE a00AF XCHG INX H MVI M,a0001+1 JMP a00B5 a00B6 LXI B,8*256+a0001+1 CALL a00A2 a00B5 POP B LXI H,a00B7+a0001+1 DCR M JZ a00B8 LDAX B DCX B PUSH B DCX H XCHG JMP a00B9 a00BA MOV C,A ORA A CALL a0085 LDAX D ADD M DAA MOV M,A MOV A,C DCX D a00B9 ADD A JC a00BA JZ a00B6 LXI H,-a0001-1 DAD D XCHG JMP a00B9 a00B8 LDA a00A4 ANI 0F0H JZ a00BB MOV A,D ANI 0F0H LXI H,a005C-1 JMP a00BC a00BB LXI B,4*256+a0001+1 LXI H,a007A DCR M JZ a00A8 CALL a00BD MOV A,D RRC RRC RRC RRC a00BC CPI 50H JC a00BE INR A ANI 0FH MVI C,a0001 a00BF ADC M DAA MOV M,A MVI A,0 DCX H DCR C JNZ a00BF JNC a005D INX H MVI M,10H LXI H,a007A INR M JNZ a005D JMP a003B a00BE ANI 0FH ADD M MOV M,A JMP a005D fDIV PUSH D MOV H,B MOV L,C a00C0 MOV A,M ORA A JZ a00C1 LDAX D ORA A JZ a00A8 SUB M JC a00C2 JM a003B JMP a00C3 a00C2 JP a00A8 a00C3 ADI 129 STA a00C4 XCHG PUSH D CALL a00C5 POP D XCHG LDA a005C DCX H XRA M STA a00C6 XCHG DCX D LXI B,a00AC a00C7 MVI L,a0001+a0001 a00C8 PUSH B PUSH H MVI C,0 a00C9 STC LXI H,a00A4+a0001-1 MVI B,a0001 a00CA MVI A,99H ACI 0 XCHG SUB M XCHG ADD M DAA MOV M,A DCX H DCX D DCR B JNZ a00CA MOV A,M CMC SBI 0 MOV M,A RAR LXI H,a0001 DAD D XCHG INR C RAL JNC a00C9 ORA A CALL a0085 LXI H,a0001 DAD D XCHG PUSH B LXI B,4*256+a0001+1 CALL a00BD POP B DCR C POP H MOV H,C POP B MOV A,L JNZ a00CB CPI a0001+a0001 JNZ a00CB LXI H,a00C4 DCR M JNZ a00C7 JMP a00A8 a00CB RAR MOV A,H JNC a00CC LDAX B RLC RLC RLC RLC ADD H STAX B INX B JMP a00CD a00CC STAX B a00CD DCR L JNZ a00C8 LXI H,a00C4 POP B JMP a00CE a009D MOV H,B MOV L,C LDAX D SUB M MVI C,0 JNC a00CF INR C XCHG CMA INR A a00CF MOV B,A LDAX D STA a007A MOV A,B CPI a0001+a0001 JC a00D0 MVI A,a0001+a0001 a00D0 RLC RLC MOV B,A ANI 4 STA a009F PUSH B PUSH D CALL a00C5 MVI A,8*a0001+16 SUB B CPI 8*a0001+16 JZ a00D1 ANI 0F8H RAR RAR RAR ADD E MOV E,A MOV A,D ACI 0 MOV D,A LDAX D STA a00D2 a00D1 CALL a007E POP D POP B RET a00C5 LXI D,a005C MVI C,a0001+1 DCX H a00D3 MOV A,M STAX D DCX H DCX D DCR C JNZ a00D3 XRA A STAX D DCX D STAX D STA a00D2 RET a005D POP B a00D4 LXI H,a007A a00CE MVI E,a0001+2 a00D5 MOV A,M STAX B DCX H DCX B DCR E JNZ a00D5 RET a00D6 POP H a00A8 POP H MVI C,a0001+2 a00D7 XRA A a00D8 MOV M,A DCX H DCR C JNZ a00D8 RET a0085 LXI H,a00A4+a0001-1 MVI B,a0001 a00D9 LDAX D ADC M DAA MOV M,A DCX H DCX D DCR B JNZ a00D9 RNC INR M RET a008A LXI H,a00A4 LXI B,a0001 JMP a00DA a00DB INX H INR B INR B DCR C JZ a00A8 a00DA MOV A,M ORA A JZ a00DB CPI 10H JNC a00DC INR B a00DC LXI H,a007A MOV A,M SUB B JZ a00A8 JC a00A8 MOV M,A MOV A,B RLC RLC MOV B,A CALL a0087 JMP a005D a00DD MOV B,A XRA A a00DE MOV D,M MOV M,A MOV A,D INX H DCR C JNZ a00DE a007E MVI C,a0001+1 a00A2 LXI H,a00A4-1 MOV A,B SUI 8 JNC a00DD DCR B RM ORA A a00DF MOV A,M RAR MOV M,A INX H DCR C JNZ a00DF JMP a007E a00E0 MOV B,A XRA A a00E1 MOV D,M MOV M,A MOV A,D DCX H DCR C JNZ a00E1 a0087 MVI C,a0001+1 a00BD LXI H,a005C-1 a00E2 MOV A,B SUI 8 JNC a00E0 DCR B RM ORA A a00E3 MOV A,M RAL MOV M,A DCX H DCR C JNZ a00E3 JMP a0087 a003B JMP fTE05 a00C1 JMP fTE06 a00AC DS a0001+1 a00B3 DS a0001+1 a00E4 DS a0001+1 a00E5 DS a0001+1 a00B1 DS a0001+1 a00E6 DS a0001+1 a00E7 DS a0001+1 a00B7 DS a0001+1 DS 1 a00E8 DS 1 DS 1 a00A4 DS a0001 a005C DS 1 a007A DS 1 a009F DS 1 a00D2 DS 1 a00C6 EQU a00AC+a0001 a00C4 EQU a00AC+a0001+1 a00E9 EQU e44+e45+e46+e47+e48+e48+e99 fTSTP LXI D,a00EA XRA A a00EB STA a00EC LXI B,6 CALL a00ED POP H LXI B,0 MOV D,H MOV E,L a00EE MOV A,M INX H INR C ORA A JNZ a00EE PUSH H DCX H MVI M,0DH CALL a00ED POP H PUSH H DCX H MVI M,0 IF e1B LDA a00EC ORA A JNZ a00EF ENDF EXIT EQU $ IF a00E9 CALL a00F0 ENDF CALL SYS DB RETOP a00EA ASC /STOP / a00EC DB 0 IF e1B a00F1 ASC /PAUSE / fTPUS LXI D,a00F1 MVI A,1 JMP a00EB a00EF JMP CONIN ENDF a00ED LHLD SYSGLO INX H MOV A,M a00F2 CALL SYS DB WBLOP JMP $ RET a00F3 MOV E,M INX H MOV D,M XCHG MOV A,H ORA L JZ a00F4 a00F5 MOV E,M INX H MOV D,M XCHG RET a00F4 POP H XTHL RET fTG3 MVI B,3 JMP a00F6 fTG2 MVI B,2 JMP a00F6 fTG1 MVI B,1 a00F6 POP D XCHG SHLD a00F7+1 XCHG SHLD a0071 CALL a00F3 SHLD aRG1 LHLD a0071 INX H INX H SHLD a0071 DCR B JZ a00F7 CALL a00F3 SHLD aRG2 LHLD a0071 INX H INX H SHLD a0071 DCR B JZ a00F7 CALL a00F3 SHLD aRG3 LHLD a0071 INX H INX H SHLD a0071 a00F7 JMP 0 vCOPY MVI C,a0001+2 PUSH H PUSH D a00F8 MOV A,M STAX D DCX H DCX D DCR C JNZ a00F8 POP D POP H RET sTORE POP H POP D PUSH H LXI H,-3 DAD D SHLD a00F9 XCHG SHLD a0071 RET a00F9 DW 0 IF e24 fTLIF CALL sTORE LHLD a00F9 DCX H DCX H CALL a00F3 MOV A,M ORA A JZ a00FA LHLD a0071 INX H INX H PCHL a00FA LHLD a0071 MOV E,M INX H MOV D,M XCHG PCHL ENDF IF e23 fTAIF CALL sTORE LHLD a0071 LXI D,-5 DAD D CALL a00F3 MOV A,M ORA A JZ a00FB DCX H MOV A,M ORA A JZ a00FC LXI D,0 JMP a00FD a00FB LXI D,2 JMP a00FD a00FC LXI D,4 a00FD LHLD a0071 DAD D MOV E,M INX H MOV D,M XCHG PCHL ENDF IF e0E+e0F+e10+e11+e12+e13+e15+e16+e17 a00FE SHLD a00FF+1 CALL sTORE CALL fTG3 a00FF JMP 0 ENDF IF e16 fTLOR LXI H,a0100 JMP a00FE a0100 CALL a0101 ORA B JMP a0102 ENDF IF e15 fTAND LXI H,a0103 JMP a00FE a0103 CALL a0101 ANA B JMP a0102 ENDF IF e17 fTXOR LXI H,a0104 JMP a00FE a0104 CALL a0101 XRA B ENDF IF e15+16+17 a0102 JNZ a0105 JMP a0106E ENDF IF e13 fTLGT LXI H,a0107 JMP a00FE a0107 CALL rELOP JC a0105 ENDF a0106E LXI D,a0022 a0108 LHLD aRG3 XCHG CALL vCOPY JMP rET IF e0E fTLLT LXI H,a0109 JMP a00FE a0109 CALL rELOP JZ a0106E JC a0106E ENDF a0105 LXI D,a000C JMP a0108 IF e11 fTLEQ LXI H,a010A JMP a00FE a010A CALL rELOP JZ a0105 JMP a0106E ENDF IF e10 fTLNE LXI H,a010B JMP a00FE a010B CALL rELOP JZ a0106E JMP a0105 ENDF IF e12 fTLGE LXI H,a010C JMP a00FE a010C CALL rELOP JZ a0105 JC a0105 JMP a0106E ENDF IF e0F fTLLE LXI H,a010D JMP a00FE a010D CALL rELOP JZ a0105 JC a0106E JMP a0105 ENDF IF e0E+e0F+e10+e11+e12+e13+e25+1 rELOP LHLD aRG2 XCHG LHLD aRG1 rELP1 MOV B,H MOV C,L PUSH D DCX B DCX D MOV H,B MOV L,C LDAX D MOV B,A SUB M INX H INX D JNZ a010E MOV A,B ORA A JNZ a010F XCHG a010F LDAX D SUB M JNZ a010E PUSH H LXI B,-a0001-1 XCHG DAD B XCHG POP H DAD B INR C a0110 LDAX D SUB M JNZ a010E INX H INX D INR C JNZ a0110 a010E POP D RET ENDF IF e15+e16+e17 a0101 LHLD aRG2 MOV A,M ORA A JZ a0111 MVI A,1 a0111 MOV B,A LHLD aRG1 MOV A,M ORA A RZ MVI A,1 RET ENDF IF e14 fTNOT CALL sTORE CALL fTG2 LHLD aRG1 MOV A,M ORA A LXI D,a0022 JNZ a0112 LXI D,a000C a0112 LHLD aRG2 XCHG CALL vCOPY JMP rET ENDF IF e20 fTPRM CALL sTORE LHLD a0071 XRA A STA a0113 MOV A,M INX H MOV D,A SHLD a0114 MVI B,0 MOV C,A DAD B DAD B SHLD a0071 POP H MOV A,M INX H SHLD a0115 MVI B,0 MOV C,A DAD B DAD B SHLD a0116+1 SUB D JNZ fTE03 MOV A,D ORA A JZ a0117 a0118 LHLD a0115 SHLD a0119+1 INX H INX H SHLD a0115 LHLD a0114 SHLD a011A+1 SHLD a011B+1 INX H INX H SHLD a0114 a0119 LHLD 0 MOV A,H ORA L JNZ a011C LDA a0113 INR A STA a0113 a011B LHLD 0 PUSH H JMP a011D a011C SHLD a011E+1 a011E LHLD 0 PUSH H a011A LHLD 0 SHLD a011F+1 POP H a011F SHLD 0 a011D DCR D JNZ a0118 LDA a0113 ORA A JZ a0117 LXI H,0 DAD SP MOV D,H MOV E,L MVI B,0 ADD A MOV C,A DAD B SPHL a0120 XCHG MOV E,M INX H MOV D,M INX H XCHG SHLD a0121+1 POP H a0121 SHLD 0 LDA a0113 DCR A STA a0113 JNZ a0120 a0117 LDA a0122 INR A CPI 62 JZ fTE09 STA a0122 LHLD a0123 LXI D,a0124 CALL a0125 SHLD a0123 a0116 LXI H,0 PUSH H JMP rET a0114 DW 0 a0115 DW 0 a0113 DB 0 ENDF a0125 MVI B,8 a0126 LDAX D MOV M,A XRA A STAX D INX D INX H DCR B JNZ a0126 RET gETSP LXI H,2 DAD SP SHLD a0127 a0128 NOP a0129 EQU $ MVI A,0C9H STA a0128 RET ASC /COPYRIGHT (C) 1977, 1978 / ASC /PROCESSOR TECHNOLOGY CORP./ ASC / PLEASANTON, CALIF. 94566/ ASC / WRITTEN BY: / ASC /IAN KETTLEBOROUGH AND/ ASC / COLEGATE V. SPINKS/ a012A EQU $-a0129 DS 62*8-a012A a0124 DW 0 a012B DW 0 a012C DW 0 a012D DW 0 a0122 DB 0 a0123 DW a0129 IF e1F fTGTO CALL sTORE CALL fTG1 LHLD a0071 MOV A,M PUSH H PUSH PSW LHLD aRG1 CALL fTFX MOV A,D ORA A JNZ fTE04 MOV A,E ORA A JZ fTE04 POP PSW SUB E JC fTE04 POP H DCX H DAD D DAD D ENDF a012E MOV E,M INX H MOV D,M XCHG PCHL IF e31 fTLIN POP H SHLD a012B INX H INX H ENDF a012F PCHL PUSH H JMP a0130 fTNME POP H SHLD a0124 LXI D,5 DAD D XCHG LXI H,0 DAD SP SHLD a0127 XCHG JMP a012F fTTON MVI A,0 STA a012F RET fTTOF MVI A,0E9H STA a012F RET fTDMP POP H PUSH H INX H INX H INX H SHLD a012C RET eRSET POP H SHLD a012D LXI D,4 DAD D PCHL eRCLR LXI H,0 SHLD a012D RET IF e20 fRET LDA a0122 DCR A JM fTE10 STA a0122 LHLD a0123 LXI D,-8 DAD D SHLD a0123 XCHG LXI H,a0124 CALL a0125 RET ENDF a0131 EQU 21H fTE22 MVI B,22 DB a0131 fTE21 MVI B,21 DB a0131 fTE01 MVI B,1 DB a0131 fTE02 MVI B,2 DB a0131 fTE03 MVI B,3 DB a0131 fTE04 MVI B,4 DB a0131 fTE05 MVI B,5 DB a0131 fTE06 MVI B,6 DB a0131 fTE07 MVI B,7 DB a0131 fTE08 MVI B,8 DB a0131 fTE09 MVI B,9 DB a0131 fTE10 MVI B,10 DB a0131 fTE12 MVI B,12 DB a0131 fTE13 MVI B,13 DB a0131 fTE17 MVI B,17 DB a0131 fTE18 MVI B,18 DB a0131 fTE20 MVI B,20 DB a0131 fTE15 MVI B,15 JMP a0132 fTE19 MVI B,19 DB a0131 fTE16 MVI B,16 DB a0131 fTE14 MVI B,14 DB a0131 fTE11 MVI B,11 a0133 STA a0134 POP H LXI D,-4 DAD D MOV A,M STA a0135 a0132 LHLD a012D MOV A,H ORA L JZ a0136 MVI A,-1 STA a0134 CALL a0137 PUSH D CALL a0137 XCHG CALL a0137 XCHG MOV E,B MVI D,0 CALL bCONV LXI H,0 SHLD a012D POP H a0127 EQU $+1 LXI SP,0 PCHL a0136 PUSH B IF a00E9 CALL a00F0 ENDF LXI H,'aw' SHLD a0138 LHLD a0139 INX H INX H SHLD a0139 POP B MOV A,B DCR A ADD A ADD A ADD A LXI H,a013A MOV C,A MVI B,0 DAD B LXI D,a013B MVI B,8 a013C MOV A,M STAX D INX H INX D DCR B JNZ a013C LHLD a00F9 XCHG MOV A,D CALL a013D SHLD a013E MOV A,E CALL a013D SHLD a013F LXI D,a0140 LXI B,a0141 CALL a00ED CALL a0130 LHLD a012C JMP a0142 a0143 LDA a0122 DCR A JM a0144 STA a0122 LHLD a0123 LXI D,-8 DAD D SHLD a0123 XCHG LXI H,a0124 CALL a0125 CALL a0130 LHLD a012C a0142 MOV A,H ORA L JZ a0143 LXI D,a0145 MVI B,10 a0146 MOV A,M INX H ORA A JZ a0147 STAX D INX D DCR B JNZ a0146 JMP a0148 a0147 MVI A,' ' STAX D INX D DCR B JNZ a0147 a0148 LXI D,a0149 LXI B,a014A PUSH H CALL a00ED IF e47+e99 LXI H,a014B SHLD a014C XRA A STA a014D STA a014E INR A STA a014F STA a0150 STA a0151 POP H SHLD a0071 CALL a0152 LXI D,a0153 LXI B,2 CALL a00ED ENDF JMP a0143 a0130 LHLD a012B MOV A,H ORA L JNZ a0154 LXI H,'??' SHLD a0155 SHLD a0155+2 JMP a0156 a0154 SHLD a0157+1 a0157 LHLD 0 LXI D,a0155 MVI B,2 a0158 MOV A,H RAR RAR RAR RAR ANI 0FH ADI '0' STAX D INX D MOV A,H ANI 0FH ADI '0' STAX D INX D MOV H,L DCR B JNZ a0158 a0156 LHLD a0124 LXI D,a0159 MVI B,5 a015A MOV A,M STAX D INX H INX D DCR B JNZ a015A LXI D,a015B a0139 EQU $+1 LXI B,a015C JMP a00ED a0144 LDA a0134 INR A JNZ a015D a015E CALL SYS DB RESOP a015F LXI D,a0160 LXI B,a013A-a0160 MVI A,1 CALL a00F2 JMP a015E a015D LXI D,a0161 LXI B,a0140-a0161 CALL a00ED LXI H,a015F SHLD 101H MVI A,4 LXI H,-1 LXI SP,iCHECK CALL UTIL DB UXOP JMP a015E a0135 DB -1 a0134 DB -1 a0149 ASC /***** Dump for above routine, ID: / a0145 ASC /1234567890 *****/ a0153 DB 0DH,0AH,0DH,0AH a014A EQU $-a0149 a0151 DB 0 a0161 ASC /FORTRAN runtime error: / a0140 DB 0DH,0AH,0DH,0AH ASC /Runtime error: / a013B DS 8 ASC /, called from / a013E DW 0 a013F DW 0 DB 'H',0DH,0AH,0DH,0AH a0141 EQU $-a0140 a015B ASC /Pgm is executing line / a0155 ASC /???? in routine / a0159 ASC /?????/ DB 0DH,0AH,0DH,0AH a0138 EQU a015B+4 a015C EQU $-a015B-2 a0160 DB 0DH,0AH,0DH ASC /FORTRAN: Cannot rerun program,/ ASC / must reload/ DB 0DH,0AH,0DH a013A EQU $ ASC *INT RANGCONVERT ARG CNT * ASC *COM GOTOOVERFLOWDIV ZERO* ASC *SQRT NEGLOG NEG CALL PSH* ASC *CALL POPFILE OP ILL UNIT* ASC *UNIT OPNOPEN ERRUNIT CLO* ASC *SET UNITLINE LENFORMAT * ASC *I/O ERR INPT ERRI/O LIST* ASC *ASN GOTO* a013D MOV C,A RAR RAR RAR RAR CALL a0162 MOV L,A MOV A,C CALL a0162 MOV H,A RET a0162 ANI 0FH ADI 48 CPI 58 RC ADI 7 RET IF a0000 a0163 EQU $ ORG a0164+6 ENDF rET JMP 0 a0071 EQU rET+1 eCADD DW -1 aRG1 DW 0 aRG2 DW 0 aRG3 DW 0 IF a0000 ORG a0163 ENDF fTFX DCX H MOV A,M ORA A JNZ fTE02 INX H MOV A,M ORA A LXI D,0 RZ SUI 128 JZ fTE02 JM fTE02 CPI 6 JNC fTE02 MOV C,A LXI D,-a0001-1 DAD D XCHG LXI H,0 MVI B,0 a0165 MOV A,B RAR LDAX D JNC a0166 INX D JMP a0167 a0166 RAR RAR RAR RAR a0167 ANI 0FH PUSH B MOV B,H MOV C,L DAD H DAD H DAD B DAD H MVI B,0 MOV C,A DAD B POP B INR B MOV A,B CMP C JNZ a0165 XCHG RET iCHECK MOV A,M ORA A RZ PUSH H SUI 129 JM a0168 INR A CPI a0001*2+1 JNC fTE01 CPI a0001*2 JZ a0169 LXI D,-a0001-1 DAD D INR A PUSH PSW DCR A ORA A RAR MVI B,0 MOV C,A DAD B POP PSW ORA A RAR JC a016A PUSH PSW MOV A,M ANI 0F0H MOV M,A INX H POP PSW JMP a016B a016A INR A a016C MVI M,0 INX H a016B INR A CPI a0001+1 JNZ a016C a0169 POP H RET a0168 XCHG LXI H,a0022 CALL vCOPY POP H RET cHECK POP H MOV A,M INX H PUSH H LHLD a0071 CMP M JNZ fTE03 INX H SHLD a0071 RET fTNDX CALL sTORE LXI H,rET PUSH H a016D LHLD a0071 CALL a0137 INX H PUSH H XCHG CALL a0137 XCHG SHLD a016E LXI H,0 SHLD a016F INX H SHLD a0170 LDAX D INX D STA a0171 XCHG SHLD a0172 POP H MOV C,A MVI B,0 DAD B DAD B SHLD a0071 DCX H DCX H SHLD a0173 a0174 LHLD a0173 PUSH H DCX H DCX H SHLD a0173 POP H CALL a00F3 CALL fTFX DCX D LHLD a0170 PUSH H CALL a0175 LHLD a016F DAD B SHLD a016F LDA a0171 DCR A STA a0171 JZ a0176 LHLD a0172 INX H INX H SHLD a0172 DCX H DCX H CALL a00F3 CALL fTFX POP H CALL a0175 MOV H,B MOV L,C SHLD a0170 JMP a0174 a0176 POP H LHLD a016F LXI D,a0001+2 CALL a0175 LHLD a016E DAD B XTHL PCHL a0171 DB 0 a016F DW 0 a0170 DW 0 a0172 DW 0 a0173 DW 0 a016E DW 0 a0175 SHLD a0177 LXI H,a0178 MVI M,11H LXI B,0 a0179 MOV A,D RAR MOV D,A MOV A,E RAR MOV E,A DCR M RZ JNC a017A LHLD a0177 DAD B MOV B,H MOV C,L LXI H,a0178 a017A MOV A,B RAR MOV A,C RAR MOV C,A MOV A,B RAR MOV B,A JMP a0179 a0177 DW 0 a0178 DB 0 IF e25+1 fTDO CALL sTORE CALL fTG3 LHLD aRG1 XCHG LHLD aRG3 DCX H MOV B,M PUSH B INX H MOV B,H MOV C,L CALL fADD CALL rELOP POP B PUSH PSW DCR B JZ a017B POP PSW JZ a017C JC a017C a017D LHLD a0071 JMP a012E a017C LHLD a0071 INX H INX H PCHL a017B POP PSW JZ a017C JNC a017C JMP a017D ENDF IF e4D MOVE CALL sTORE CALL cHECK DB 5 CALL fTG3 LHLD aRG1 CALL fTFX XCHG SHLD a017E LHLD aRG3 DCX H MOV A,M ORA A JZ a017F LHLD aRG2 CALL fTFX XCHG SHLD a0180 JMP a0181 a017F CALL sTRG2 SHLD a0180 LHLD aRG3 CALL fTFX LHLD a0180 DAD D SHLD a0180 a0181 LHLD a0071 CALL fTG2 LHLD aRG2 DCX H MOV A,M ORA A JZ a0182 LHLD aRG1 CALL fTFX JMP a0183 a0182 CALL sTRG1 PUSH H LHLD aRG2 CALL fTFX POP H DAD D XCHG a0183 LHLD a017E MOV B,H MOV C,L LHLD a0180 a0184 MOV A,M STAX D INX H INX D DCX B MOV A,B ORA C JNZ a0184 JMP rET a017E DW 0 a0180 DW 0 ENDF IF e43 COMP CALL sTORE CALL cHECK DB 4 CALL fTG1 LHLD aRG1 SHLD a0185 LHLD a0071 CALL fTG3 LHLD aRG1 CALL fTFX PUSH D LHLD aRG3 LXI D,-a0001-1 DAD D PUSH H CALL sTRG2 POP D POP B a0186 LDAX D CMP M JC a0187 JZ a0188 LXI D,a000C a0189 LHLD a0185 XCHG CALL vCOPY JMP rET a0187 LXI D,a0024 JMP a0189 a0188 INX H INX D DCX B MOV A,B ORA C JNZ a0186 LXI D,a0022 JMP a0189 a0185 DW 0 ENDF IF e60 CALL CALL sTORE CALL cHECK DB 3 CALL fTG3 LHLD aRG3 CALL fTFX XCHG SHLD a018A+1 LHLD aRG2 CALL fTFX MOV B,D MOV C,E a018A CALL 0 XCHG LHLD aRG1 CALL bCONV JMP rET ENDF bCONV PUSH H MVI B,a0001+2 a018B MVI M,0 DCX H DCR B JNZ a018B INX H XCHG XRA A STA a018C LXI B,10000 CALL a018D LXI B,1000 CALL a018D LXI B,100 CALL a018D LXI B,10 CALL a018D LDA a018C ORA A JNZ a018E MOV A,L ORA A JZ a018F a018E LDA a018C INR A STA a018C PUSH PSW MOV A,L CALL a0190 POP PSW ADI 128 a018F POP H MOV M,A RET a018D PUSH D MVI D,-1 a0191 INR D MOV A,L SUB C MOV L,A MOV A,H SBB B MOV H,A JNC a0191 DAD B LDA a018C MOV E,A ORA A JNZ a0192 MOV A,D ORA A JNZ a0192 POP D RET a0192 MOV A,E INR A STA a018C MOV A,D POP D a0190 PUSH PSW LDA a018C RAR JC a0193 POP PSW PUSH B MOV B,A LDAX D ORA B POP B STAX D INX D RET a0193 POP PSW RLC RLC RLC RLC ANI 0F0H STAX D RET a018C DB 0 IF e5B CBTOF CALL sTORE MOV A,M INX H STA a0194+1 ORA A JZ fTE03 CPI 3 JZ $+5 CPI 4 JNZ fTE03 CALL fTG3 LHLD aRG2 CALL fTFX CALL sTRG1 DAD D SHLD $+1 LHLD 0 a0194 MVI A,0 CPI 4 PUSH PSW JNZ $+2 MVI H,0 XCHG LHLD aRG3 CALL bCONV POP PSW JNZ rET LHLD a0071 INX H INX H PCHL ENDF IF e57 PLOT CALL sTORE LHLD a0071 MOV A,M ORA A JZ a0195 INX H STA a0196 CPI 4 JZ a0197 CPI 5 JNZ fTE03 a0197 CALL fTG1 LHLD aRG1 CALL fTFX MOV A,E STA a0198 LHLD a0071 CALL fTG3 LHLD aRG1 CALL fTFX LDA a0198 MOV D,A a0199 DCR D DCR E MVI B,0CCH MOV A,D RRC RRC MOV C,A ANI 3 ORA B MOV H,A MOV A,C ANI 0C0H ADD E MOV L,A PUSH H CALL sTRG2 PUSH H LXI H,1 SHLD a0198 LHLD aRG3 CALL fTFX LDA a0196 CPI 5 JNZ a019A PUSH D LHLD a0071 CALL fTG1 LHLD aRG1 CALL fTFX XCHG SHLD a0198 POP D a019A POP B POP H PUSH B PUSH D a019B LDAX B MOV M,A INX H INX B DCX D MOV A,D ORA E JNZ a019B POP D POP B PUSH H LHLD a0198 DCX H SHLD a0198 MOV A,H ORA L POP H JNZ a019B-2 JMP rET a0198 DW 0 a0196 DB 0 a0195 INX H SHLD a0071 LXI H,0CC00H MVI A,0D0H a019C MVI M,' ' INX H CMP H JNZ a019C XRA A OUT 0C8H OUT 0FEH JMP rET ENDF IF e58 DELAY CALL sTORE CALL cHECK DB 1 CALL fTG1 LHLD aRG1 CALL fTFX a019D LXI H,831 a019E DCX H MOV A,H ORA L JNZ a019E DCX D MOV A,D ORA E JNZ a019D JMP rET ENDF IF e59 CIN CALL sTORE MVI A,-1 STA a019F+1 MOV A,M INX H ORA A JZ fTE03 CPI 1 JNZ a01A0 CALL fTG1 JMP a01A1 a01A0 CPI 2 JNZ fTE03 CALL fTG2 MVI A,7FH STA a019F+1 a01A1 CALL CONIN LHLD aRG1 LXI D,-a0001-1 DAD D a019F ANI 0 MOV M,A JMP rET ENDF IF e5A CTEST CALL sTORE CALL cHECK DB 1 CALL fTG1 CALL CONTST LXI D,a000C JNZ a01A2 LXI D,a0022 a01A2 LHLD aRG1 XCHG CALL vCOPY JMP rET ENDF IF e4E BIT CALL sTORE CALL cHECK DB 3 CALL fTG3 LHLD aRG2 CALL fTFX PUSH D MVI B,3 a01A3 MOV A,D ORA A RAR MOV D,A MOV A,E RAR MOV E,A DCR B JNZ a01A3 CALL sTRG1 DAD D POP D MOV A,E ANI 7 MOV E,A MVI A,1 a01A4 MOV B,A MOV A,E ORA A MOV A,B JZ a01A5 RAL DCR E JMP a01A4 a01A5 PUSH PSW PUSH H LHLD aRG3 LXI D,-6 DAD D MOV A,M POP H CPI 'S' JZ a01A6 CPI 'R' JZ a01A7 POP PSW XRA M MOV M,A JMP rET a01A6 POP PSW ORA M MOV M,A JMP rET a01A7 POP PSW CMA ANA M MOV M,A JMP rET ENDF IF e5E fTASN POP H CALL a0137 PUSH D CALL fTG1 CALL sTRG1 POP D MOV M,E INX H MOV M,D JMP rET fTAGO POP H CALL fTG1 CALL sTRG1 MOV E,M INX H MOV D,M LHLD a0071 MOV B,M INX H a01A8 MOV A,M INX H CMP E JNZ a01A9 MOV A,M CMP D JNZ a01A9 MOV D,A DCX H MOV E,M XCHG PCHL a01A9 INX H DCR B JNZ a01A8 JMP fTE22 ENDF IF e2F ABORT CALL a01AA LHLD a00F9 PUSH PSW CALL a00F0 POP PSW LHLD a00F9 CALL SYS DB ABTOP ENDF IF e30 SETUN CALL a01AA CALL SYS DB SUNOP CALL fTE16 JMP rET ENDF IF e2F+e30 a01AA POP H XTHL PUSH H CALL sTORE CALL cHECK DB 1 CALL fTG1 LHLD aRG1 CALL fTFX MOV A,E RET ENDF IF e1D fTFEN CALL a01AB CALL SYS DB EOFOP CALL fTE11 JMP rET ENDF IF e1C fTFRW CALL a01AB LXI D,0 CALL SYS DB SPAOP CALL fTE11 JMP rET ENDF IF e1E fTFBS CALL a01AB MVI D,128 LXI B,1 CALL SYS DB SPAOP CALL a01AC MVI D,128 MVI L,0DH LXI B,a01AD CALL SYS DB DSPOP CALL a01AC JMP rET a01AC CPI EREOF JNZ fTE11 POP H JMP rET ENDF IF e1D+e1C+e1E a01AB POP H XTHL PUSH H CALL sTORE JMP a01AE ENDF IF e2E RANDO CALL a01AF CALL SYS DB RNDOP CALL fTE11 JMP rET ENDF IF e27 CLOSE CALL a01AF MOV B,A LDA a01B0 CPI 2 JC fTE12 MOV A,B MVI M,-1 CALL SYS DB CLOOP CALL fTE11 JMP rET ENDF IF e2E+e27+e1C+e1D+e1E+e21+e22+e4B+e4C+e99 a01AF POP H XTHL PUSH H CALL sTORE CALL cHECK DB 1 a01AE CALL fTG1 a01B1 CALL a01B2 LXI H,a01B3 DAD D MOV A,M CPI -1 JZ fTE15 RET ENDF IF e2E+e27+e1C+e1D+e1E+e26+e21+e22+e4B+e4C+e99 a01B2 LHLD aRG1 CALL fTFX MOV A,D ORA A JNZ fTE12 MOV A,E STA a01B0 CPI 65 JNC fTE12 RET a01B0 DB 0 ENDF IF e26 OPEN CALL sTORE MVI A,'.'+80H STA a01B4 LXI H,4C0H SHLD a01B5 LHLD a0071 MOV A,M INX H SHLD a0071 PUSH PSW CPI 2 JC fTE03 CPI 4 JNC fTE03 a01B6 CALL fTG2 CALL a01B2 LXI H,a01B3 DAD D MOV A,M INR A JNZ fTE13 PUSH H CALL sTRG2 XCHG POP H POP PSW CPI 3 PUSH H LXI H,0 JNZ a01B7 PUSH D LHLD a0071 CALL fTG1 LHLD aRG1 CALL fTFX XCHG POP D a01B7 PUSH H PUSH D LXI H,a01B8 MVI B,7 CALL a01B9 JNZ a01BA MVI A,1 JMP a01BB a01BA POP D PUSH D LXI H,a01BC MVI B,6 CALL a01B9 JNZ a01BD XRA A a01BB POP D POP H JMP a01BE a01BD POP D CALL a01BF POP H CALL SYS DB OPEOP CALL a01C0 a01BE POP H MOV M,A JMP rET a01C0 CPI ERNEX JNZ fTE14 POP B PUSH D PUSH H LXI D,a01B4 CALL SYS DB CREOP CALL fTE14 POP H POP D JMP a01B7 a01B9 LDAX D CPI 'a' JC a01C1 CPI 'z'+1 JNC a01C1 ANI 0DFH a01C1 CMP M RNZ INX H INX D DCR B JNZ a01B9 LDAX D CPI '/' RZ CPI ' ' RZ ORA A RET a01B8 ASC /$CONOUT/ a01BC ASC /$CONIN/ ENDF IF e26+e28+e29+e2A+e2B+e2C+e2D a01BF PUSH H LXI H,a01C2 a01C3 PUSH H PUSH B MVI B,11 a01C4 LDAX D CPI ' ' JZ a01C5 MOV M,A INX D INX H ORA A JZ a01C6 DCR B JNZ a01C4 JMP $+2 a01C5 MVI M,0 a01C6 POP B POP D POP H RET a01B4 DB '.'+80H a01B5 DW 4C0H DB 0 a01C2 DS 12 ENDF IF e28 KILL CALL sTORE CALL cHECK DB 1 CALL fTG1 CALL sTRG1 XCHG CALL a01BF CALL SYS DB KILOP CALL a01C7 JMP rET a01C7 CPI ERNEX JNZ fTE11 POP H JMP rET ENDF IF e2C CHTYP CALL sTORE CALL cHECK DB 2 CALL fTG2 CALL sTRG1 XCHG CALL sTRG2 MOV A,M ORI 80H MOV H,A CALL a01BF CALL SYS DB CHTOP CALL fTE11 JMP rET ENDF IF e2D CHATT CALL sTORE CALL cHECK DB 2 CALL fTG2 LHLD aRG2 CALL fTFX MOV H,E PUSH H CALL sTRG1 XCHG CALL a01BF POP H CALL SYS DB CHAOP CALL fTE11 JMP rET ENDF IF e2B FINFO CALL sTORE CALL cHECK DB 2 CALL fTG2 CALL sTRG1 XCHG CALL sTRG2 CALL a01BF CALL SYS DB INFOP CALL fTE11 JMP rET ENDF IF e2B+e2C+e2D+e26+e29+e2A+e43+e4D+e4E+e4F+e57+e99 sTRG1 LHLD aRG1 JMP a01C8 sTRG2 LHLD aRG2 a01C8 PUSH D LXI D,-a0001-1 DAD D POP D RET ENDF IF e29 CREAT CALL sTORE CALL cHECK DB 3 CALL fTG3 CALL sTRG1 XCHG CALL a01BF LHLD aRG3 CALL fTFX XCHG SHLD a01B5 CALL sTRG2 MOV A,M ORI 80H STA a01B4 LXI D,a01B4 CALL SYS DB CREOP CALL a01C9 JMP rET a01C9 CPI ERAEX JNZ fTE11 POP H JMP rET ENDF IF e2A CHNAM CALL sTORE CALL cHECK DB 2 CALL fTG2 CALL sTRG1 XCHG CALL a01BF PUSH D CALL sTRG2 XCHG LXI H,a01CA PUSH H PUSH H LXI H,a01CB JMP a01C3 a01CA XCHG POP D CALL SYS DB CHNOP CALL fTE11 JMP rET a01CB DS 11 ENDF IF e4A SPACE CALL sTORE CALL cHECK DB 3 CALL fTG3 LHLD aRG2 CALL fTFX PUSH D LHLD aRG3 LXI D,-a0001-1 DAD D MOV A,M MVI D,128 CPI '-' JZ a01CC MVI D,-1 CPI 'E' JZ a01CC MVI D,1 a01CC PUSH D CALL a01B1 POP D POP B CALL SYS DB SPAOP CALL fTE11 JMP rET ENDF IF e4B SEEK POP H PUSH H MOV A,M CPI 3 JNZ a01CD MVI A,SEKOP STA a01CE MVI A,1 STA a01CF+1 CALL sTORE INX H CALL fTG3 JMP a01D0 a01CD MVI B,0 MVI A,SEKOP ENDF IF e4B+e4C a01D1 STA a01CE MOV A,B STA a01CF+1 CALL sTORE CALL cHECK DB 2 CALL fTG2 a01D0 CALL a01B1 PUSH PSW LHLD aRG2 CALL fTFX XCHG POP PSW a01CF MVI B,0 CALL SYS a01CE DB 0 CALL fTE11 JMP rET ENDF IF e4C CONTRL CALL sTORE CALL cHECK DB 7 CALL fTG2 CALL a01B1 PUSH PSW LHLD aRG2 CALL fTFX MOV A,E STA a01D2 LHLD a0071 CALL fTG2 LHLD aRG1 CALL fTFX PUSH D LHLD aRG2 LDA a01D2 CPI 2 JNZ a01D3 LXI D,-a0001-1 DAD D JMP a01D4 a01D3 CALL fTFX XCHG a01D4 POP D a01D2 EQU $+1 MVI B,0 POP PSW CALL SYS DB CTLOP JMP fTE11 PUSH H PUSH D PUSH PSW LHLD a0071 CALL fTG3 POP PSW MOV E,A MVI D,0 LHLD aRG1 CALL bCONV POP D LHLD aRG2 CALL bCONV POP H LHLD aRG3 CALL bCONV JMP rET ENDF IF e47+e48+e49+e99 a01D5 EQU 4 a01D6 EQU '''' a01D7 DB 0 a01D8R DB 0 a01D9 DS a01D5*4 a01DA DW 0 a01DB DW 0 a01DCT DB 0 a01DD DW 0 a01DE DB 0 a01DF DB 0 a01E0 DB 0 a01E1 DB 0 a01E2 SHLD a01DA MVI C,a01D5*4 XRA A STA a01D7 STA a01DCT STA a01E1 LXI H,a01D9 SHLD a01DB a01E3 MOV M,A DCR C INX H JNZ a01E3 RET a01E4 LHLD a01DA LDA a01DCT ORA A JZ a01E5 DCR A STA a01DCT JNZ a01E6 a01E5 MOV A,M CPI '(' JZ a01E7 CPI ')' JZ a01E8 CPI a01D6 JZ a01E9 CPI 'F' JZ a01EA CPI 'E' JZ a01EA CPI 'T' JZ a01EB CPI 'I' JZ a01EB CPI 'L' JZ a01EB CPI 'Z' JZ a01EC CPI 'A' JZ a01EB CPI 'X' JZ a01ED CPI '/' JZ a01E9 CPI ',' JZ a01EE CPI '0' JC a01EE CPI '9'+1 JC a01EF JMP fTE18 a01EC MVI A,1 STA a014E a01EE INX H JMP a01E5 a01F0 STA a01DF MOV A,B STA a01E0 ORA A JZ fTE18 MOV A,C STA a01DE SHLD a01DA LDA a01DF RET a01E6 LDA a01E0 MOV B,A LDA a01DE MOV C,A LDA a01DF LHLD a01DA RET a01E7 INX H LDA a01E1 INR A STA a01E1 CPI a01D5+1 JNC fTE18 LDA a01D7 ORA A JNZ a01F1 INR A STA a01D7 XCHG XRA A a01F2 LHLD a01DB a01F3 MOV M,D INX H MOV M,E INX H MOV M,A INX H MOV M,A INX H SHLD a01DB XCHG XRA A STA a01DCT JMP a01E5 a01F1 LDA a01DCT ORA A JNZ a01F4 INR A a01F4 XCHG JMP a01F2 a01E8 SHLD a01DD LHLD a01DB DCX H MOV A,M ORA A JZ a01F5 DCX H DCR M MOV A,M MOV B,A ORA A JZ a01F6 DCX H MOV E,M DCX H MOV D,M XCHG XRA A STA a01DCT JMP a01E5 a01F5 PUSH H INX H INX H INX H INX H MOV A,M ORA A JZ a01F7 POP D DCX H MOV M,A DCX H MOV E,M DCX H MOV D,M INX H INX H INX H INX H SHLD a01DB a01F8 XCHG LDA a01E1 DCR A STA a01E1 MVI A,'/'+80H MVI B,1 JMP a01F0 a01F7 POP H DCX H DCX H MOV E,M DCX H MOV D,M JMP a01F8 a01F6 DCX H DCX H SHLD a01DB LHLD a01DD INX H LDA a01E1 DCR A STA a01E1 JMP a01E5 a01E9 INX H MVI B,1 JMP a01F0 a01EA STA a01DF INX H CALL a01F9 CPI '.' JNZ fTE18 MOV A,B STA a01E0 INX H CALL a01F9 MOV C,B LDA a01E0 MOV B,A LDA a01DF JMP a01F0 a01EB STA a01DF INX H CALL a01F9 LDA a01DF JMP a01F0 a01ED STA a01DF INX H LDA a01DCT ORA A JNZ a01FA INR A a01FA MOV B,A XRA A STA a01DCT LDA a01DF JMP a01F0 a01EF CALL a01F9 MOV A,B STA a01DCT JMP a01E5 a01F9 MVI D,0 a01FB MOV A,M SUI '0' JM a01FC CPI 10 JC a01FD a01FC MOV B,D MOV A,M STA a01D8R RET a01FD MOV B,A MOV A,D ADD A JC fTE18 ADD A JC fTE18 ADD D JC fTE18 ADD A JC fTE18 ADD B JC fTE18 MOV D,A INX H JMP a01FB ENDF IF e99 fTENC MVI B,1 JMP fTFWT+2 fTDEC MVI B,1 JMP fTFRD+2 a01FE DB 0 a01FF DW 0 a0200 DB 0 ENDF IF e99+e44+e46+e48 fTFRD MVI B,0 XRA A JMP a0201 ENDF IF e99+e45+e47+e49 fTFWT MVI B,0 LXI H,a014B SHLD a014C XRA A STA a014D STA a0202 MVI A,1 ENDF IF a00E9 a0201 STA a014F XRA A STA a014E STA a0203 MOV A,B STA a01FE LXI H,0 SHLD a0204 SHLD a0205 SHLD a0206 CALL sTORE LDA a01FE ORA A JZ a0207 CALL fTG2 CALL sTRG1 SHLD a01FF LHLD aRG2 CALL fTFX MOV A,D ORA A JNZ fTE17 MOV A,E CPI a01AD+1 JNC fTE17 STA a0200 JMP a0208 a0207 LHLD a0071 CALL fTG1 CALL a01B1 STA a0150 a0208 LHLD a0071 MOV E,M INX H MOV D,M INX H SHLD a0071 INX D ENDF IF e99+e44+e45 MVI B,80H MOV A,D ORA E JZ a0209-1 ENDF IF a00E9 INX D MOV A,D ORA E JNZ a020A MOV E,M INX H MOV D,M INX H SHLD a0071 XCHG MOV E,M INX H MOV D,M LXI H,-a0001-2 DAD D XCHG a020A XCHG INX H MVI B,0 ENDF IF e99+e47+e48+e49 MOV A,H ORA L JNZ a020B ENDF IF e99+e46+e47 a0152 MVI B,40H ENDF IF e99+e47+e48+e49 a020B PUSH B CALL a01E2 POP B ENDF IF a00E9 MOV A,B a0209 STA a020C a020D LDA a0203 CPI 2 JZ a020E LHLD a0071 MOV C,M MOV A,C STA a020F ANI 7FH MOV C,A STA a0203 INX H SHLD a0071 MVI B,0 LXI H,a0210 DAD B DAD B MOV E,M INX H MOV D,M XCHG PCHL a0210 EQU $ DW a0211 DW a0212 DW a0213 DW a0214 DW a0215 DW a0216 DW a0217 DW a0218 DW a0219 DW a021A a0203 DB 0 a021B LHLD a0071 CALL fTG1 LHLD aRG1 RET ENDF IF e99+e47+e49+e46+e48 a021C MVI C,'-' JMP a021D a021E MVI C,'0' JMP a021D a021F MVI C,'.' a021D PUSH H LHLD a014C LDA a014D MOV M,C INX H SHLD a014C POP H INR A CPI a01AD JZ fTE17 STA a014D PUSH B MOV B,A LDA a0202 SUB B MOV A,B POP B RNC STA a0202 RET a0220 MOV C,M INX H CALL a021D DCR D JNZ a0220 RET a0221 CALL a021D DCR B JNZ a0221 RET a0222 MVI C,'*' CALL a0221 JMP a020D a0223 INR A a0224 MVI C,'0' a0225 MOV B,A JMP a0221 a0226 MVI C,' ' JMP a0225 a0227 PUSH H LXI H,a0228 MVI B,a0001*2 a0229 MVI M,'0' INX H DCR B JNZ a0229 POP H DCX H JMP a022A ENDF IF a00E9 a0217 LDA a014F ORA A JZ a022B LHLD a0071 a022C MOV A,M INX H ORA A JZ a022D MOV C,A CALL a021D JMP a022C a022D SHLD a0071 JMP a020D a022B LDA a0150 ORA A JNZ fTE20 LXI B,-1 LHLD a0071 PUSH H a022E MOV A,M INX H INX B ORA A JNZ a022E SHLD a0071 POP D CALL a00ED JMP a020D a0211 CALL a021B JMP a022F a0212 CALL a016D POP H JMP a022F a0213 LHLD a0071 CALL a0137 SHLD a0071 XCHG CALL a0137 XCHG PUSH H LXI H,1 PUSH H LDAX D INX D STA a0171 XCHG SHLD a0172 a0230 LHLD a0172 PUSH H INX H INX H SHLD a0172 POP H CALL a00F3 CALL fTFX POP H CALL a0175 MOV H,B MOV L,C PUSH H LDA a0171 DCR A STA a0171 JNZ a0230 a020E POP H POP D MOV A,H ORA L JZ a0231 DCX H PUSH H LXI H,a0001+2 DAD D XTHL PUSH H XCHG JMP a022F a0231 STA a0203 JMP a020D a0214 LHLD a0071 PUSH H XRA A STA a0232 a0233 MOV A,M INX H PUSH H ADD A MOV E,A MVI D,0 LXI H,a0234 DAD D MOV E,M INX H MOV D,M XCHG SHLD a0235+1 LXI H,a0233 XTHL a0235 JMP 0 a0236 EQU $ a0237 INX H INX H RET a0238 INX H INX H MOV E,M MVI D,0 INX H DAD D DAD D RET a0239 MOV A,M INX H ORA A RZ JMP a0239 a023A LDA a0232 INR A STA a0232 RET a023B LDA a0232 DCR A JM fTE21 STA a0232 RET a023C LDA a0232 ORA A JZ a023D LXI D,8 DAD D RET a023D CALL a0137 PUSH H XCHG CALL a0137 XCHG XTHL CALL a0137 XCHG CALL a0137 POP H XCHG CALL vCOPY POP D JMP a023E+1 a0215 EQU a020D a0218 LHLD a0071 CALL a0137 PUSH H XCHG SHLD a0205 a023F POP H SHLD a0071 LXI H,0 DAD SP SHLD a0240+1 JMP a020D a0219 LHLD a0071 CALL a0137 XCHG SHLD a0241 XCHG INX H INX H CALL a0137 XCHG SHLD a0242 XCHG CALL a0137 PUSH H XCHG SHLD a0243 CALL fTDO a0241 DW 0 a0242 DW 0 a0243 DW 0 DW a0244 a023E POP H POP H PUSH H SHLD a0071 JMP a020D a0244 POP H SHLD a0071 POP D JMP a020D a021A LHLD a0071 CALL a0137 PUSH H XCHG SHLD a0204 JMP a023F ENDF a0137 MOV E,M INX H MOV D,M INX H RET a022F EQU $ IF e99+e44+e46+e48 LDA a014F ORA A JZ a0245 ENDF a0246 EQU $ IF e99+e45 LDA a020C RAL JC a0247 ENDF IF e99+e47+e49+e46+e48 LXI D,-a0001-1 SHLD a0248 MOV A,M ORA A JZ a0227 DAD D LXI D,a0228 MVI B,a0001 a0249 MOV A,M RAR RAR RAR RAR ANI 0FH ADI '0' STAX D INX D MOV A,M ANI 0FH ADI '0' STAX D INX D INX H DCR B JNZ a0249 a022A MOV A,M STA a024A INX H MOV A,M STA a024B a024C LDA a020C RAL RAL JNC a024D LDA a020F RAL MVI A,'I' MVI B,10 JNC a024E MVI A,'E' MVI B,18 MVI C,8 a024E PUSH PSW PUSH B LDA a014D ADD B CPI 63 CNC a024F POP B POP PSW JMP $+3 a024D CALL a01E4 LHLD a0248 ANI 7FH CPI 'A' JZ a0250 CPI 'X' JZ a0251 CPI '/' JZ a0252 CPI 'F' JZ a0253 CPI 'I' JZ a0254 CPI 'E' JZ a0255 CPI 'L' JZ a0256 CPI 'T' JZ a0257 JMP a0258 a0257 LXI H,a024C PUSH H a0259 LDA a014D SUB B JC a025A a025B MOV A,B STA a014D MOV E,A MVI D,0 LXI H,a014B-1 DAD D SHLD a014C RET a025A LDA a0202 SUB B JNC a025B CMA INR A PUSH B CALL a0226 POP B JMP a025B a0256 MOV A,B DCR A JM fTE18 CNZ a0226 MVI C,'T' LDA a024B ORA A JNZ a025C MVI C,'F' a025C CALL a021D JMP a020D a0251 MVI C,' ' CALL a0221 JMP a024C a0250 MOV A,B CPI a0001+2+1 JNC fTE18 MOV D,A LHLD a0248 LXI B,-a0001-1 DAD B CALL a0220 JMP a020D ENDF a0216 EQU $ IF e99+e44+e46+e48 LDA a014F ORA A JZ a025D ENDF IF a00E9 LDA a020C RAL JC rET IF e47+e49+e99 RAL JNC a025E ENDF MVI A,'/'+80H PUSH H JMP a025F ENDF IF e99+e47+e49 a025E CALL a01E4 LXI H,a025E PUSH H CPI '/'+80H JZ a025F CPI '/' JZ a024F CPI a01D6 JZ a0260 CPI 'T' JZ a0259 CPI 'X' JNZ a025F MVI C,' ' JMP a0221 a025F CALL a024F POP H XRA A STA a0203 LDA a0151 ORA A RNZ JMP rET ENDF IF e99+e44+e46+e48 a025D LDA a020C ORA A JNZ rET ENDF IF e99+e48 a0261 CALL a01E4 CPI '/'+80H JZ a0262 CPI '/' JZ a0263 LDA a0264 ORA A CZ a0265 JMP rET a0263 CALL a0266 JMP a0261 a0266 LDA a0206 ORA A CZ a0265 XRA A STA a0206 RET a0262 CALL a0266 JMP rET ENDF IF e99+e47+e49 a0252 CALL a024F JMP a024C a0255 MOV D,B MOV E,C MOV A,C ORA A JZ a0222 MOV A,B SUB C JC a0222 SUI 7 JC a0222 DCX H SUB M JC a0222 CNZ a0226 MOV A,M ORA A CNZ a021C CALL a021E CALL a021F MOV A,E CPI a0001*2+1 LXI H,a0228 JNC a0267 MOV D,E CALL a0220 JMP a0268 a0267 MVI D,a0001*2 CALL a0220 MOV A,E SUI a0001*2 CALL a0224 a0268 MVI C,'E' CALL a021D LHLD a0248 MOV A,M ORA A JZ a0269 SUI 128 a0269 MVI C,' ' JP a026A MVI C,'-' CMA INR A a026A PUSH PSW CALL a021D POP PSW MVI B,100 CALL a026B MVI B,10 CALL a026B ADI '0' MOV C,A CALL a021D JMP a020D a026B MVI C,'0'-1 a026C INR C SUB B JP a026C ADD B PUSH PSW CALL a021D POP PSW RET a0253 LDA a024B ORA A JZ a026D LDA a024A MOV D,A MOV A,B SUB C JC a0222 DCR A JM a0222 SUB D JC a0222 MOV E,A LDA a024B SUI 128 STA a024B JC a026E JZ a026F PUSH B MOV B,A MOV A,E SUB B POP B JC a0222 CNZ a0226 LDA a024A ORA A CNZ a021C LXI H,a0228 LDA a024B CPI a0001*2+1 JNC a0270 MOV D,A CALL a0220 CALL a021F LDA a01DE MOV C,A ORA A JZ a020D LDA a024B MOV D,A MVI A,a0001*2 SUB D MOV D,A MOV A,C JZ a0271 MOV A,D CMP C JZ a0272 JC a0273 a0272 MOV D,C CALL a0220 JMP a020D a0273 PUSH PSW CALL a0220 POP PSW MOV D,A LDA a01DE SUB D a0271 CALL a0224 JMP a020D a0270 MVI D,a0001*2 PUSH PSW PUSH B CALL a0220 POP B POP PSW SUI a0001*2 CALL a0224 CALL a021F LDA a01DE ORA A CNZ a0224 JMP a020D a026D MOV A,B SUB C JC a0222 SUI 2 JC a0222 PUSH B CNZ a0226 CALL a021E CALL a021F POP H MOV A,L ORA A JZ a020D CALL a021E DCR L JZ a020D MOV A,L CALL a0226 JMP a020D a026E CMA INR A STA a024B a026F LDA a024A MOV D,A MOV A,B SUB C JC a0222 SUI 2 JC a0222 SUB D JC a0222 PUSH B CNZ a0226 LDA a024A ORA A CNZ a021C CALL a021E CALL a021F POP B MOV A,C ORA A JZ a020D LDA a024B CMP C MOV A,C JNC a0274 PUSH B LDA a024B ORA A PUSH PSW CNZ a0224 POP PSW POP B MOV D,A MOV A,C SUB D CPI a0001*2+1 MOV D,A LXI H,a0228 JC a0275 PUSH PSW MVI D,a0001*2 CALL a0220 POP PSW SUI a0001*2 a0274 CALL a0224 JMP a020D a0275 CALL a0220 JMP a020D ENDF IF e99+e45 a0247 LXI D,-a0001-1 DAD D XCHG LXI B,a0001+2 LDA a0150 CALL SYS DB WBLOP CALL a0276 JMP a020D ENDF IF e99+e47+e49 a024F EQU $ LDA a01FE ORA A JZ a0277 LDA a014D MOV B,A LDA a0200 SUB B JZ a0278 JC a0278 CALL a0226 a0278 LDA a0200 MOV B,A LHLD a01FF LXI D,a014B a0279 LDAX D MOV M,A INX H INX D DCR B JNZ a0279 SHLD a01FF JMP a027A a0277 LXI H,a014B LDA a014E ORA A LDA a0202 MOV C,A MVI B,0 DAD B LXI D,a014B JNZ a027B MVI M,0DH ADI 1 MOV C,A LDA a0150 DCR A JNZ a027B INX H MVI M,0AH INR C a027B LDA a0150 CALL SYS DB WBLOP CALL a0276 a027A LXI H,a014B SHLD a014C XRA A STA a014D STA a0202 STA a014E RET ENDF IF a00E9 a027C CPI EREOF JNZ a0276 LHLD a0205 JMP a027D a0276 LHLD a0204 a027D MOV B,A MOV A,H ORA L MOV A,B JZ fTE19 a0240 LXI SP,0 PCHL ENDF IF e99+e47+e49 a0254 MVI D,1 MOV A,M MOV E,A ORA A JZ a027E DCX H MOV E,M SUI 129 JC a0222 INR A MOV D,A a027E MOV A,B SUB D JC a0222 SUB E JC a0222 JZ a027F MOV B,A MVI C,' ' CALL a0221 a027F DCR E JNZ a0280 MVI C,'-' CALL a021D a0280 MOV A,D PUSH D CPI a0001*2+1 JC a0281 MVI D,a0001*2 a0281 LXI H,a0228 CALL a0220 POP D MOV A,D SUI a0001*2+1 CNC a0223 JMP a020D a0258 CALL a0260 JMP a024C a0260 LHLD a01DA a0282 MOV A,M INX H CPI a01D6 JNZ a0283 CMP M JZ a0284 SHLD a01DA RET a0284 INX H a0283 CPI '&' JNZ a0285 MOV A,M CPI a01D6 JZ fTE18 CPI '&' JZ a0286 ANI 0BFH a0286 INX H a0285 MOV C,A CALL a021D JMP a0282 ENDF IF a00E9 a0234 DW a0237 DW a0238 DW a0236 DW a023A DW a023B DW fTE21 DW a0239 DW fTE21 DW a023C DW fTE21 a0232 DB 0 a0150 DB 0 a01AD EQU 250 DB 0 a014B DS a01AD+1 a020C DB 0 a014C DW 0 a014D DB 0 a0202 DB 0 a014F DB 0 a0287 DW 0 a0228 DS a0001*2 a024A DB 0 a024B DB 0 a0248 DW 0 a0205 DW 0 a0204 DW 0 a0206 DB 0 a0264 DB 0 a014E DB 0 a020F DB 0 ENDF a0245 EQU $ IF e99+e44+e46 LDA a020C RAL ENDF IF e99+e44 JC a0288 ENDF IF e99+e46 RAL JC a0289 ENDF IF e99+e48 SHLD a0248 a028A CALL a01E4 LHLD a0248 ANI 7FH CPI '/' JZ a028B CPI 'A' JZ a028C CPI 'L' JZ a028D CPI 'X' JZ a028E CPI 'T' JZ a028F JMP a0290 a028F MOV A,B STA a014D LXI H,a014B-1 MOV E,A MVI D,0 DAD D SHLD a014C JMP a028A a028B LDA a0206 ORA A CZ a0265 XRA A STA a0206 JMP a028A a028C MOV A,B CPI a0001+3 JNC fTE18 LXI D,-a0001-1 DAD D PUSH B a0291 CALL a0292 MOV M,A INX H DCR B JNZ a0291 POP B MVI A,a0001+2 SUB B JZ a020D a0293 MVI M,' ' INX H DCR A JNZ a0293 JMP a020D a028E CALL a0292 DCR B JNZ a028E JMP a028A a028D XCHG LXI H,a0022 MOV A,B ORA A JZ fTE18 CALL vCOPY a0294 CALL a0292 CPI ' ' JNZ a0295 DCR B JNZ a0294 JMP a020D a0295 CPI 'T' JZ a0296 CPI 'F' JNZ fTE20 a0297 DCR B JZ a020D CALL a0292 JMP a0297 a0296 LXI H,a000C CALL vCOPY JMP a0297 a0290 PUSH H PUSH PSW PUSH B MOV A,B STA a024B PUSH H CALL a0298 CPI ',' JNZ fTE20 LDA a024B INR A JNZ fTE20 POP H MOV A,M ORA A JZ a0299 DCX H LDA a024A MOV M,A a0299 LDA a029A MOV D,A POP B POP PSW POP H CPI 'I' JZ a029B CPI 'E' JZ a029C MOV A,D RAL RAL JC fTE20 a029C MOV A,D RAL JC a020D MOV A,M ORA A JZ a020D SUB C MOV M,A JMP a020D a029B MOV A,D ORA A JNZ fTE20 MOV A,M CPI a0001*2+1+80H JNC fTE20 JMP a020D ENDF IF e99+e46 a0289 PUSH H MVI A,a01AD+1 STA a024B MVI A,' ' STA a029D CALL a0298 CPI ',' JZ a029E CPI ' ' JNZ fTE20 a029E POP H LDA a020F RAL JC a029F LDA a029A ORA A JNZ fTE20 MOV A,M CPI a0001*2+1+80H JNC fTE20 a029F MOV A,M ORA A JZ a020D DCX H LDA a024A MOV M,A JMP a020D ENDF IF e99+e44 a0288 LXI D,-a0001-1 DAD D XCHG LXI B,a0001+2 LDA a0150 CALL SYS DB RBLOP CALL a027C JMP a020D ENDF IF e99+e46+e48 a0265 PUSH H PUSH D PUSH B LXI H,a014B PUSH H PUSH H MVI A,a01AD MVI E,' ' a02A0 MOV M,E INX H DCR A JNZ a02A0 POP D LDA a01FE ORA A JZ a02A1 LHLD a01FF LDA a0200 MOV B,A a02A2 MOV A,M STAX D INX H INX D DCR B JNZ a02A2 SHLD a01FF JMP a02A3 a02A1 LXI B,a01AD+1 MVI L,0DH LDA a0150 CALL SYS DB DRDOP CALL a027C MOV A,B ORA C JZ fTE17 MVI A,' ' DCX D STAX D a02A3 POP H SHLD a014C XRA A STA a014D LXI H,0101H SHLD a0206 POP B POP D POP H RET a0292 LDA a0206 ORA A CZ a0265 LDA a014D CPI a01AD JZ a02A4 INR A STA a014D PUSH H LHLD a014C MOV A,M INX H SHLD a014C POP H RET a02A4 LDA a020C RAL RAL JNC fTE17 XRA A STA a0206 MVI A,a01AD STA a024B LDA a029D CPI ' ' JZ a0292 MVI A,',' RET a02A5 LDA a024B SUI 1 STA a024B JC a02A6 CALL a0292 PUSH PSW LDA a020C RAL RAL JC a02A7 a02A8 POP PSW CPI ' ' JNZ a02A9 MVI A,'0' RET a02A9 STA a029D RET a02A6 MVI A,',' RET a02A7 MOV A,D ORA A JZ a02A8 POP PSW CPI ' ' JZ a02A5 RET a0298 PUSH H LXI H,a02AA MVI C,a0001+7 XRA A a02AB MOV M,A INX H DCR C JNZ a02AB STA a024A a02AC LXI D,0 LXI H,a02AD a02AE SHLD a02AF a02B0 LXI H,a02B0 PUSH H XRA A STA a02B1 a02B2 CALL a02B3 JC a02B4 CPI '+' JZ a02B5 CPI '-' JZ a02B5 CPI '.' JZ a02B6 CPI 'E' JZ a02B7 MOV B,A LDA a02AA ANI 20Q JNZ a02B8 a02B9 JMP fTE20 a02B6 LXI H,a029A MOV A,M RAL JC fTE20 MVI M,80H XRA A ORA D JNZ a02BA ADI 300Q ORA E MOV E,A RET a02B5 PUSH PSW MOV A,D ORA A JNZ fTE20 POP PSW CPI '+' RZ MVI A,1 STA a024A RET a02BA MVI A,200Q ORA E MOV E,A RET a02B4 ANI 17Q MOV B,A LXI H,a02AA MVI A,60Q ORA M MOV M,A XRA A ORA B JNZ a02BB ORA D JNZ a02BB ORA E MOV E,A RZ INR E RET a02BB MOV A,E RAL JC a02BC INR E a02BC MOV A,E STA a02BD INR D MOV A,D ANI 177Q CPI a0001+a0001+1 RNC XRA A ORA D JM a02BE a02BF ORI 200Q MOV D,A MOV A,B LHLD a02AF RLC RLC RLC RLC MOV M,A RET a02BE ANI 177Q MOV D,A MOV A,B LHLD a02AF ORA M MOV M,A INX H POP B JMP a02AE a02B3 CALL a02A5 a02C0 CPI '9'+1 RNC CPI '0' CMC RET a02B8 LXI D,0 a02C1 PUSH B CALL a02C2 POP B POP D POP D MVI C,a0001+2 LXI H,a02AD+a0001+1 CALL vCOPY MOV A,B RET a02B7 LXI H,a029A MVI A,40H ORA M MOV M,A CALL a02B3 JC a02C3 CPI '+' JZ a02C4 CPI '-' JZ a02C5 JMP fTE20 a02C5 PUSH PSW MVI A,1 STA a02B1 POP PSW a02C4 CALL a02B3 JNC fTE20 a02C3 CALL a02C6 JMP a02C1 a02C6 LXI H,0 JMP a02C7 a02C8 CALL a02A5 a02C7 CALL a02C0 JNC a02C9 SUI '0' MOV B,H MOV C,L DAD H DAD H DAD B DAD H MOV C,A MVI B,0 DAD B JMP a02C8 a02C9 XCHG MOV B,A MOV A,D ORA A JNZ fTE20 MOV A,E RAL JC fTE20 RAR RET a02C2 XCHG LDA a02AD ORA A JZ a02CA CALL a02CB ADI 200Q a02CA STA a02AD+a0001+1 RET a02CB LDA a02BD MOV E,A ANI 77Q MOV B,A LDA a02B1 ORA A JZ a02CC INR H MVI A,100Q ANA E JZ a02CD MOV A,L MOV L,B CALL a02CE+1 CMA INR A RET a02CD MOV A,L CMA INR A ADD B RET a02CC MVI A,100Q ANA E JZ a02CE MOV A,B MOV B,L JMP a02CD+1 a02CE MOV A,B ADD L RP JMP fTE20 a02AA DS 1 a02CF DS 1 a02BD DS 1 a02D0 DS 1 a02AD DS a0001+2 a029A DS 1 a02D1 DS a0001*2+1 a02B1 DS 1 a02D2 DS 1 a02AF DS 2 a029D DB 0 ENDF ORG 0BE00H IF a0000-1 JMP a02D3 ENDF XEQ a02D4 a02D4 LXI SP,0BE00H IF 1 CALL a0128 ENDF LHLD SYSGLO LXI D,GLERM DAD D MVI M,-1 INX H MVI M,-1 INX H MVI M,-1 INX H MVI M,-1 a02D5 CALL a02D6 IF a00E9 a02D7 CALL a00F0 ENDF a02D3 XRA A MVI B,2 LXI H,a02D8 CALL SYS DB CTLOP JMP $ XRA A LHLD SYSGLO LXI D,GLFCB DAD D MOV E,M INX H MOV D,M XCHG LXI D,34 a02D9 ORA A JZ a02DA DAD D DCR A JMP a02D9 a02DA LXI D,13H DAD D MVI B,4 a02DB MVI M,0 INX H DCR B JNZ a02DB LXI H,a0129 SHLD a0123 XRA A STA a0122 DCR A STA a0134 LXI H,0 SHLD a012B SHLD a012C SHLD a012D DCX H SHLD eCADD MVI A,0E9H STA a012F LXI H,'i ' SHLD a0138 LXI H,a015C SHLD a0139 IF a0000 JMP 103H ENDF IF a0000-1 JMP mAIN ENDF a02D6 LXI H,a01B3 MVI A,64 a02DC MVI M,-1 INX H DCR A JNZ a02DC MVI A,0C9H STA a02D6 RET IF a00E9 a00F0 LHLD SYSGLO MOV A,M LXI D,a01B3 STAX D INX D INX H MOV A,M STAX D MVI B,62 a02DD INX D LDAX D INR A JZ a02DE DCR A CALL SYS DB CLOOP JMP $ a02DE MVI A,-1 STAX D DCR B JNZ a02DD RET ENDF a02D8 DB 0 IF e4F CHAIN LXI H,0 SHLD a02DF CALL sTORE MOV A,M CPI 1 JNZ a02E0 INX H CALL fTG1 JMP a02E1 a02E0 CALL cHECK DB 2 CALL fTG2 LHLD aRG2 MOV A,M STA a02DF DCX H MOV A,M STA a02E2 a02E1 CALL sTRG1 XCHG LXI H,0 CALL SYS DB OPEOP CALL fTE11 MOV C,A a02E3 MOV A,B ANI 80H MOV A,C JZ a02E4 CALL SYS DB CLOOP CALL fTE11 MVI A,ERNIF LXI H,a02E3 PUSH H JMP fTE11 a02E4 LXI D,a02E5 LXI B,4 PUSH PSW CALL SYS DB RBLOP CALL a02E6 LHLD a02E5 MOV B,H MOV C,L LHLD a02E5+2 XCHG POP PSW PUSH PSW CALL SYS DB RBLOP CALL fTE11 POP PSW JMP a02E4 a02E6 CPI EREOF JNZ fTE11 POP H POP PSW PUSH H CALL SYS DB CLOOP CALL fTE11 MOV A,C CPI 4 POP H JZ rET PUSH H CPI 2 MVI A,ERNIF JNZ fTE11 LHLD a02E5 LDA a02DF ORA A JZ a02E7 LDA a02E2 ORA A IF a0000 JZ a02D7 JMP a02D3 ENDF IF a0000-1 JZ a02E7 LXI D,-3 DAD D ENDF a02E7 PUSH H LXI H,rET XTHL PCHL a02E5 DS 4 a02DF DS 1 a02E2 DS 1 ENDF a01B3 EQU $ IF a0000-1 ASC /25JAN79/ ENDF ORG 100H JMP a02D4