heir7 equ $ PUSH B PUSH B PUSH B LXI H,4 DAD SP PUSH H LXI H,10 DAD SP CALL ccgint PUSH H CALL heir8 POP B POP D CALL ccpint CALL blanks LXI H,line PUSH H LHLD lptr POP D DAD D PUSH H LXI H,cc1001+0 PUSH H CALL streq POP B POP B LXI D,0 XCHG . CALL cceq PUSH H LXI H,line PUSH H LHLD lptr POP D DAD D PUSH H LXI H,cc1001+3 PUSH H CALL streq POP B POP B LXI D,0 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1002 LXI H,4 DAD SP CALL ccgint POP B POP B POP B RET cc1002 equ $ LXI H,4 DAD SP CALL ccgint MOV A,H ORA L JZ cc1003 LXI H,8 DAD SP CALL ccgint PUSH H CALL rvalue POP B cc1003 equ $ cc1004 equ $ LXI H,1 MOV A,H ORA L JZ cc1005 LXI H,cc1001+6 PUSH H CALL match POP B MOV A,H ORA L JZ cc1006 CALL push LXI H,0 DAD SP PUSH H CALL heir8 POP B MOV A,H ORA L JZ cc1007 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1007 equ $ CALL pop CALL asr JMP cc1008 cc1006 equ $ LXI H,cc1001+9 PUSH H CALL match POP B MOV A,H ORA L JZ cc1009 CALL push LXI H,0 DAD SP PUSH H CALL heir8 POP B MOV A,H ORA L JZ cc1010 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1010 equ $ CALL pop CALL asl JMP cc1011 cc1009 equ $ LXI H,0 POP B POP B POP B RET cc1011 equ $ cc1008 equ $ JMP cc1004 cc1005 equ $ POP B POP B POP B RET heir8 equ $ PUSH B PUSH B PUSH B LXI H,4 DAD SP PUSH H LXI H,10 DAD SP CALL ccgint PUSH H CALL heir9 POP B POP D CALL ccpint CALL blanks CALL ch LXI D,43 XCHG . CALL ccne PUSH H CALL ch LXI D,45 XCHG . CALL ccne POP D CALL ccand MOV A,H ORA L JZ cc1012 LXI H,4 DAD SP CALL ccgint POP B POP B POP B RET cc1012 equ $ LXI H,4 DAD SP CALL ccgint MOV A,H ORA L JZ cc1013 LXI H,8 DAD SP CALL ccgint PUSH H CALL rvalue POP B cc1013 equ $ cc1014 equ $ LXI H,1 MOV A,H ORA L JZ cc1015 LXI H,cc1001+12 PUSH H CALL match POP B MOV A,H ORA L JZ cc1016 CALL push LXI H,0 DAD SP PUSH H CALL heir9 POP B MOV A,H ORA L JZ cc1017 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1017 equ $ LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint SHLD cptr MOV A,H ORA L JZ cc1018 LHLD cptr LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LHLD cptr LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1019 CALL doublere cc1019 equ $ cc1018 equ $ CALL pop CALL add JMP cc1020 cc1016 equ $ LXI H,cc1001+14 PUSH H CALL match POP B MOV A,H ORA L JZ cc1021 CALL push LXI H,0 DAD SP PUSH H CALL heir9 POP B MOV A,H ORA L JZ cc1022 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1022 equ $ LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint SHLD cptr MOV A,H ORA L JZ cc1023 LHLD cptr LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LHLD cptr LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1024 CALL doublere cc1024 equ $ cc1023 equ $ CALL pop CALL sub JMP cc1025 cc1021 equ $ LXI H,0 POP B POP B POP B RET cc1025 equ $ cc1020 equ $ JMP cc1014 cc1015 equ $ POP B POP B POP B RET heir9 equ $ PUSH B PUSH B PUSH B LXI H,4 DAD SP PUSH H LXI H,10 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint CALL blanks CALL ch LXI D,42 XCHG . CALL ccne PUSH H CALL ch LXI D,47 XCHG . CALL ccne POP D CALL ccand PUSH H CALL ch LXI D,37 XCHG . CALL ccne POP D CALL ccand MOV A,H ORA L JZ cc1026 LXI H,4 DAD SP CALL ccgint POP B POP B POP B RET cc1026 equ $ LXI H,4 DAD SP CALL ccgint MOV A,H ORA L JZ cc1027 LXI H,8 DAD SP CALL ccgint PUSH H CALL rvalue POP B cc1027 equ $ cc1028 equ $ LXI H,1 MOV A,H ORA L JZ cc1029 LXI H,cc1001+16 PUSH H CALL match POP B MOV A,H ORA L JZ cc1030 CALL push LXI H,0 DAD SP PUSH H CALL heir9 POP B MOV A,H ORA L JZ cc1031 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1031 equ $ CALL pop CALL mult JMP cc1032 cc1030 equ $ LXI H,cc1001+18 PUSH H CALL match POP B MOV A,H ORA L JZ cc1033 CALL push LXI H,0 DAD SP PUSH H CALL heir10 POP B MOV A,H ORA L JZ cc1034 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1034 equ $ CALL pop CALL div JMP cc1035 cc1033 equ $ LXI H,cc1001+20 PUSH H CALL match POP B MOV A,H ORA L JZ cc1036 CALL push LXI H,0 DAD SP PUSH H CALL heir10 POP B MOV A,H ORA L JZ cc1037 LXI H,0 DAD SP PUSH H CALL rvalue POP B cc1037 equ $ CALL pop CALL mod JMP cc1038 cc1036 equ $ LXI H,0 POP B POP B POP B RET cc1038 equ $ cc1035 equ $ cc1032 equ $ JMP cc1028 cc1029 equ $ POP B POP B POP B RET heir10 equ $ PUSH B PUSH B LXI H,cc1001+22 PUSH H CALL match POP B MOV A,H ORA L JZ cc1039 LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint MOV A,H ORA L JNZ cc1040 CALL needlval LXI H,0 POP B POP B RET cc1040 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint MOV A,H ORA L JZ cc1041 CALL push cc1041 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B CALL inc LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint MOV A,H ORA L JZ cc1042 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1043 CALL inc cc1043 equ $ cc1042 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL store POP B LXI H,0 POP B POP B RET cc1039 equ $ LXI H,cc1001+25 PUSH H CALL match POP B MOV A,H ORA L JZ cc1045 LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint MOV A,H ORA L JNZ cc1046 CALL needlval LXI H,0 POP B POP B RET cc1046 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint MOV A,H ORA L JZ cc1047 CALL push cc1047 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B CALL dec LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint MOV A,H ORA L JZ cc1048 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1049 CALL dec cc1049 equ $ cc1048 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL store POP B LXI H,0 POP B POP B RET cc1045 equ $ LXI H,cc1001+28 PUSH H CALL match POP B MOV A,H ORA L JZ cc1051 LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint LXI H,2 DAD SP CALL ccgint MOV A,H ORA L JZ cc1052 LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B cc1052 equ $ CALL neg LXI H,0 POP B POP B RET cc1051 equ $ LXI H,cc1001+30 PUSH H CALL match POP B MOV A,H ORA L JZ cc1054 LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint LXI H,2 DAD SP CALL ccgint MOV A,H ORA L JZ cc1055 LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B cc1055 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D LXI D,2 XCHG . CALL ccpint LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint MOV A,H ORA L JZ cc1056 LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 POP D CALL ccpint cc1056 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D LXI D,0 XCHG . CALL ccpint LXI H,1 POP B POP B RET cc1054 equ $ LXI H,cc1001+32 PUSH H CALL match POP B MOV A,H ORA L JZ cc1058 LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir10 POP B POP D CALL ccpint LXI H,2 DAD SP CALL ccgint MOV A,H ORA L JNZ cc1059 LXI H,cc1001+34 PUSH H CALL error POP B LXI H,0 POP B POP B RET cc1059 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint MOV A,H ORA L JZ cc1061 LXI H,0 POP B POP B RET cc1061 equ $ CALL immed LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint PUSH H CALL outstr POP B CALL nl LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 POP D CALL ccpint LXI H,0 POP B POP B RET cc1062 equ $ cc1060 equ $ JMP cc1063 cc1058 equ $ LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL heir11 POP B POP D CALL ccpint LXI H,cc1001+50 PUSH H CALL match POP B MOV A,H ORA L JZ cc1064 LXI H,2 DAD SP CALL ccgint MOV A,H ORA L JNZ cc1065 CALL needlval LXI H,0 POP B POP B RET cc1065 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint MOV A,H ORA L JZ cc1066 CALL push cc1066 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B CALL inc LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint MOV A,H ORA L JZ cc1067 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1068 CALL inc cc1068 equ $ cc1067 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL store POP B CALL dec LXI H,0 DAD SP CALL ccgint MOV A,H ORA L JZ cc1069 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1070 CALL dec cc1070 equ $ cc1069 equ $ LXI H,0 POP B POP B RET cc1064 equ $ LXI H,cc1001+53 PUSH H CALL match POP B MOV A,H ORA L JZ cc1072 LXI H,2 DAD SP CALL ccgint MOV A,H ORA L JNZ cc1073 CALL needlval LXI H,0 POP B POP B RET cc1073 equ $ LXI H,6 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint MOV A,H ORA L JZ cc1074 CALL push cc1074 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B CALL dec LXI H,0 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP D CALL ccpint MOV A,H ORA L JZ cc1075 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1076 CALL dec cc1076 equ $ cc1075 equ $ LXI H,6 DAD SP CALL ccgint PUSH H CALL store POP B CALL inc LXI H,0 DAD SP CALL ccgint MOV A,H ORA L JZ cc1077 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,3 XCHG . CALL cceq PUSH H LXI H,2 DAD SP CALL ccgint LXI D,10 XCHG . DAD D MOV L,M MVI H,0 LXI D,2 XCHG . CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1078 CALL inc cc1078 equ $ cc1077 equ $ LXI H,0 POP B POP B RET cc1072 equ $ LXI H,2 DAD SP CALL ccgint POP B POP B RET cc1079 equ $ cc1071 equ $ cc1063 equ $ cc1057 equ $ cc1053 equ $ cc1050 equ $ cc1044 equ $ POP B POP B RET cc1001 equ $ DB 62,62,0,60,60,0,62,62,0,60 DB 60,0,43,0,45,0,42,0,47,0 DB 37,0,43,43,0,45,45,0,45,0 DB 42,0,38,0,105,108,108,101,103,97 DB 108,32,97,100,100,114,101,115,115,0 DB 43,43,0,45,45,0