needsub equ $ PUSH B LXI H,cc201+0 PUSH H CALL match POP B MOV A,H ORA L JZ cc202 LXI H,0 POP B RET cc202 equ $ LXI H,0 DAD SP PUSH H CALL number POP B MOV A,H ORA L JNZ cc203 LXI H,cc201+2 PUSH H CALL error POP B LXI H,0 DAD SP PUSH H LXI H,0 DAD H POP D DAD D LXI D,1 XCHG . CALL ccpint cc203 equ $ LXI H,0 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint LXI D,0 XCHG . CALL cclt MOV A,H ORA L JZ cc204 LXI H,cc201+19 PUSH H CALL error POP B LXI H,0 DAD SP PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,2 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint CALL ccneg POP D CALL ccpint cc204 equ $ LXI H,cc201+41 PUSH H CALL needbrac POP B LXI H,0 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint POP B RET newfunc equ $ XCHG LXI H,-9 DAD SP SPHL XCHG PUSH B LXI H,2 DAD SP PUSH H CALL symname POP B MOV A,H ORA L JNZ cc205 LXI H,cc201+43 PUSH H CALL error POP B CALL kill XCHG LXI H,11 DAD SP SPHL XCHG RET cc205 equ $ LXI H,2 DAD SP PUSH H CALL typlin POP B LXI H,cc201+75 PUSH H LXI H,4 DAD SP PUSH H CALL streq POP B POP B MOV A,H ORA L JZ cc206 LXI H,1 SHLD glbflag cc206 equ $ LXI H,0 DAD SP PUSH H LXI H,4 DAD SP PUSH H CALL findglb POP B POP D CALL ccpint MOV A,H ORA L JZ cc207 LXI H,0 DAD SP CALL ccgint LXI D,9 XCHG . DAD D MOV L,M MVI H,0 LXI D,4 XCHG . CALL ccne MOV A,H ORA L JZ cc208 LXI H,2 DAD SP PUSH H CALL multidef POP B JMP cc209 cc208 equ $ LXI H,0 DAD SP CALL ccgint LXI D,12 XCHG . DAD D MOV L,M MVI H,0 LXI D,4 XCHG . CALL cceq MOV A,H ORA L JZ cc210 LXI H,2 DAD SP PUSH H CALL multidef POP B JMP cc211 cc210 equ $ LXI H,0 DAD SP CALL ccgint LXI D,12 XCHG . DAD D MVI M,4 cc211 equ $ cc209 equ $ JMP cc212 cc207 equ $ LXI H,2 DAD SP PUSH H LXI H,4 PUSH H LXI H,2 PUSH H LXI H,4 PUSH H LXI H,1 PUSH H CALL addglb XCHG LXI H,10 DAD SP SPHL XCHG cc212 equ $ LXI H,cc201+80 PUSH H CALL match POP B MOV A,H ORA L JNZ cc213 LXI H,cc201+82 PUSH H CALL error POP B cc213 equ $ LXI H,2 DAD SP PUSH H CALL outstr POP B CALL col CALL nl LXI H,0 SHLD argstk cc214 equ $ LXI H,cc201+101 PUSH H CALL match POP B MOV A,H ORA L JNZ cc216 LXI H,2 DAD SP PUSH H CALL symname POP B MOV A,H ORA L JZ cc217 LHLD argstk LXI D,2 XCHG . DAD D SHLD argstk JMP cc218 cc217 equ $ LXI H,cc201+103 PUSH H CALL error POP B CALL junk cc218 equ $ CALL blanks LXI H,line PUSH H LHLD lptr POP D DAD D PUSH H LXI H,cc201+125 PUSH H CALL streq POP B POP B MOV A,H ORA L JNZ cc219 LXI H,cc201+127 PUSH H CALL match POP B MOV A,H ORA L JNZ cc220 LXI H,cc201+129 PUSH H CALL error POP B cc220 equ $ cc219 equ $ CALL endst MOV A,H ORA L JNZ cc215 cc221 equ $ JMP cc214 cc216 equ $ cc215 equ $ LXI H,symtab PUSH H LXI H,300 LXI D,16 XCHG . CALL ccmult POP D DAD D LXI D,16 XCHG . DAD D SHLD locptr LXI H,0 SHLD xsp cc222 equ $ LHLD argstk MOV A,H ORA L JZ cc224 LXI H,cc201+144 PUSH H LXI H,4 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc225 LXI H,1 PUSH H CALL getarg POP B CALL ns JMP cc226 cc225 equ $ LXI H,cc201+149 PUSH H LXI H,3 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc227 LXI H,2 PUSH H CALL getarg POP B CALL ns JMP cc228 cc227 equ $ LXI H,cc201+153 PUSH H CALL error POP B JMP cc223 cc228 equ $ cc226 equ $ JMP cc222 cc224 equ $ cc223 equ $ CALL statemen LXI D,3 XCHG . CALL ccne MOV A,H ORA L JZ cc229 LXI H,0 PUSH H CALL modstk POP B CALL ret cc229 equ $ LXI H,0 SHLD xsp LXI H,symtab PUSH H LXI H,300 LXI D,16 XCHG . CALL ccmult POP D DAD D LXI D,16 XCHG . DAD D SHLD locptr XCHG LXI H,11 DAD SP SPHL XCHG RET getarg equ $ XCHG LXI H,-9 DAD SP SPHL XCHG DCX SP PUSH B cc230 equ $ LXI H,1 MOV A,H ORA L JZ cc232 LHLD argstk MOV A,H ORA L JNZ cc233 XCHG LXI H,12 DAD SP SPHL XCHG RET cc233 equ $ LXI H,cc201+174 PUSH H CALL match POP B MOV A,H ORA L JZ cc234 LXI H,0 DAD SP LXI D,3 XCHG . CALL ccpint JMP cc235 cc234 equ $ LXI H,0 DAD SP LXI D,1 XCHG . CALL ccpint cc235 equ $ LXI H,3 DAD SP PUSH H CALL symname POP B MOV A,H ORA L JNZ cc236 CALL illname cc236 equ $ LXI H,3 DAD SP PUSH H CALL findloc POP B MOV A,H ORA L JZ cc237 LXI H,3 DAD SP PUSH H CALL multidef POP B cc237 equ $ LXI H,cc201+176 PUSH H CALL match POP B MOV A,H ORA L JZ cc238 cc239 equ $ CALL inbyte LXI D,93 XCHG . CALL ccne MOV A,H ORA L JZ cc241 CALL endst MOV A,H ORA L JNZ cc240 cc242 equ $ JMP cc239 cc241 equ $ cc240 equ $ LXI H,0 DAD SP LXI D,3 XCHG . CALL ccpint cc238 equ $ LXI H,3 DAD SP PUSH H LXI H,2 DAD SP CALL ccgint PUSH H LXI H,18 DAD SP CALL ccgint PUSH H LHLD argstk PUSH H LXI H,2 PUSH H CALL addloc XCHG LXI H,10 DAD SP SPHL XCHG LHLD argstk LXI D,2 XCHG . CALL ccsub SHLD argstk CALL endst MOV A,H ORA L JZ cc243 XCHG LXI H,12 DAD SP SPHL XCHG RET cc243 equ $ LXI H,cc201+178 PUSH H CALL match POP B MOV A,H ORA L JNZ cc244 LXI H,cc201+180 PUSH H CALL error POP B cc244 equ $ JMP cc230 cc232 equ $ cc231 equ $ XCHG LXI H,12 DAD SP SPHL XCHG RET statemen equ $ CALL ch LXI D,0 XCHG . CALL cceq PUSH H LHLD eof POP D CALL ccland MOV A,H ORA L JZ cc245 RET cc245 equ $ LXI H,cc201+195 PUSH H CALL match POP B MOV A,H ORA L JZ cc247 CALL compound JMP cc248 cc247 equ $ LXI H,cc201+197 PUSH H LXI H,2 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc249 CALL doif LXI H,1 SHLD lastst JMP cc250 cc249 equ $ LXI H,cc201+200 PUSH H LXI H,5 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc251 CALL dowhile LXI H,2 SHLD lastst JMP cc252 cc251 equ $ LXI H,cc201+206 PUSH H LXI H,6 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc253 CALL doreturn CALL ns LXI H,3 SHLD lastst JMP cc254 cc253 equ $ LXI H,cc201+213 PUSH H LXI H,5 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc255 CALL dobreak CALL ns LXI H,4 SHLD lastst JMP cc256 cc255 equ $ LXI H,cc201+219 PUSH H LXI H,8 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc257 CALL docont CALL ns LXI H,5 SHLD lastst JMP cc258 cc257 equ $ LXI H,cc201+228 PUSH H LXI H,3 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc259 CALL dofor LXI H,8 SHLD lastst JMP cc260 cc259 equ $ LXI H,cc201+232 PUSH H LXI H,5 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc261 LXI H,cc201+239 PUSH H CALL error POP B CALL kill JMP cc262 cc261 equ $ LXI H,cc201+263 PUSH H CALL match POP B MOV A,H ORA L JNZ cc264 cc263 equ $ LXI H,cc201+265 PUSH H CALL match POP B MOV A,H ORA L JZ cc265 CALL doasm LXI H,6 SHLD lastst JMP cc266 cc265 equ $ CALL expressi CALL ns LXI H,7 SHLD lastst cc266 equ $ cc264 equ $ cc262 equ $ cc260 equ $ cc258 equ $ cc256 equ $ cc254 equ $ cc252 equ $ cc250 equ $ cc248 equ $ cc246 equ $ LHLD lastst RET ns equ $ LXI H,cc201+270 PUSH H CALL match POP B MOV A,H ORA L JNZ cc267 LXI H,cc201+272 PUSH H CALL error POP B cc267 equ $ RET compound equ $ LHLD ncmp INX H SHLD ncmp LHLD ncmp LXI D,1 XCHG . CALL cceq MOV A,H ORA L JZ cc268 cc269 equ $ LXI H,1 MOV A,H ORA L JZ cc271 LXI H,cc201+290 PUSH H LXI H,4 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc272 LXI H,1 PUSH H LXI H,2 PUSH H CALL declloc POP B POP B JMP cc273 cc272 equ $ LXI H,cc201+295 PUSH H LXI H,3 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc274 LXI H,2 PUSH H LXI H,2 PUSH H CALL declloc POP B POP B JMP cc275 cc274 equ $ LXI H,cc201+299 PUSH H LXI H,6 PUSH H CALL amatch POP B POP B MOV A,H ORA L JZ cc276 CALL decllex JMP cc277 cc276 equ $ JMP cc270 cc277 equ $ cc275 equ $ cc273 equ $ CALL ns JMP cc269 cc271 equ $ cc270 equ $ cc268 equ $ cc278 equ $ LXI H,cc201+306 PUSH H CALL match POP B MOV A,H ORA L JNZ cc280 LHLD eof MOV A,H ORA L JZ cc281 LXI H,cc201+308 PUSH H CALL error POP B JMP cc279 JMP cc282 cc281 equ $ CALL statemen cc282 equ $ JMP cc278 cc280 equ $ cc279 equ $ LHLD ncmp DCX H SHLD ncmp RET doif equ $ PUSH B PUSH B LXI H,2 DAD SP PUSH H CALL getlabel POP D CALL ccpint LXI H,2 DAD SP CALL ccgint PUSH H CALL test POP B CALL statemen LXI H,cc201+324 PUSH H LXI H,4 PUSH H CALL amatch POP B POP B MOV A,H ORA L JNZ cc283 LXI H,2 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl POP B POP B RET cc283 equ $ LXI H,0 DAD SP PUSH H CALL getlabel POP D CALL ccpint PUSH H CALL jump POP B LXI H,2 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL statemen LXI H,0 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl POP B POP B RET dowhile equ $ PUSH B PUSH B PUSH B LXI H,2 DAD SP PUSH H LXI H,0 DAD H POP D DAD D PUSH H CALL getlabel POP D CALL ccpint LXI H,2 DAD SP PUSH H LXI H,1 DAD H POP D DAD D PUSH H CALL getlabel POP D CALL ccpint LXI H,0 DAD SP PUSH H CALL getlabel POP D CALL ccpint LXI H,2 DAD SP PUSH H CALL addwhile POP B LXI H,2 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl LXI H,0 DAD SP CALL ccgint PUSH H CALL test POP B CALL statemen LXI H,2 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL jump POP B LXI H,0 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl LXI H,2 DAD SP PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL delwhile POP B POP B POP B RET dofor equ $ PUSH B PUSH B PUSH B PUSH B PUSH B CALL blanks LXI H,cc201+329 PUSH H CALL match POP B MOV A,H ORA L JNZ cc284 LXI H,cc201+331 PUSH H CALL error POP B CALL kill XCHG LXI H,10 DAD SP SPHL XCHG RET cc284 equ $ LXI H,6 DAD SP PUSH H LXI H,0 DAD H POP D DAD D PUSH H CALL getlabel POP D CALL ccpint LXI H,6 DAD SP PUSH H LXI H,1 DAD H POP D DAD D PUSH H CALL getlabel POP D CALL ccpint LXI H,2 DAD SP PUSH H CALL getlabel POP D CALL ccpint LXI H,6 DAD SP PUSH H CALL addwhile POP B CALL blanks LXI H,cc201+351 PUSH H CALL match POP B MOV A,H ORA L JNZ cc285 CALL expressi CALL ns cc285 equ $ LXI H,4 DAD SP PUSH H CALL getlabel POP D CALL ccpint LXI H,4 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL blanks LXI H,cc201+353 PUSH H CALL match POP B MOV A,H ORA L JNZ cc286 CALL expressi CALL ns LXI H,2 DAD SP CALL ccgint PUSH H CALL testjump POP B cc286 equ $ LXI H,0 DAD SP PUSH H CALL getlabel POP D CALL ccpint LXI H,0 DAD SP CALL ccgint PUSH H CALL jump POP B LXI H,6 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL blanks LXI H,cc201+355 PUSH H CALL match POP B MOV A,H ORA L JNZ cc287 CALL expressi LXI H,cc201+357 PUSH H CALL needbrac POP B cc287 equ $ LXI H,4 DAD SP CALL ccgint PUSH H CALL jump POP B LXI H,0 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL statemen LXI H,6 DAD SP PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL jump POP B LXI H,2 DAD SP CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl LXI H,6 DAD SP PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H CALL printlab POP B CALL col CALL nl CALL delwhile XCHG LXI H,10 DAD SP SPHL XCHG RET doreturn equ $ CALL endst MOV A,H ORA L JNZ cc288 CALL expressi cc288 equ $ LXI H,0 PUSH H CALL modstk POP B CALL ret RET dobreak equ $ PUSH B LXI H,0 DAD SP PUSH H CALL readwhil POP D CALL ccpint MOV A,H ORA L JNZ cc289 POP B RET cc289 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H CALL jump POP B POP B RET docont equ $ PUSH B LXI H,0 DAD SP PUSH H CALL readwhil POP D CALL ccpint MOV A,H ORA L JNZ cc290 POP B RET cc290 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL jump POP B POP B RET doasm equ $ LXI H,0 SHLD cmode cc291 equ $ LXI H,1 MOV A,H ORA L JZ cc293 CALL inline LXI H,cc201+359 PUSH H CALL match POP B MOV A,H ORA L JNZ cc292 cc294 equ $ LHLD eof MOV A,H ORA L JNZ cc292 cc295 equ $ LXI H,line PUSH H CALL outstr POP B CALL nl JMP cc291 cc293 equ $ cc292 equ $ CALL kill LXI H,1 SHLD cmode RET cc201 equ $ DB 93,0,109,117,115,116,32,98,101,32 DB 99,111,110,115,116,97,110,116,0,110 DB 101,103,97,116,105,118,101,32,115,105 DB 122,101,32,105,108,108,101,103,97,108 DB 0,93,0,105,108,108,101,103,97,108 DB 32,102,117,110,99,116,105,111,110,32 DB 111,114,32,100,101,99,108,97,114,97 DB 116,105,111,110,0,109,97,105,110,0 DB 40,0,109,105,115,115,105,110,103,32 DB 111,112,101,110,32,112,97,114,101,110 DB 0,41,0,105,108,108,101,103,97,108 DB 32,97,114,103,117,109,101,110,116,32 DB 110,97,109,101,0,41,0,44,0,101 DB 120,112,101,99,116,101,100,32,99,111 DB 109,109,97,0,99,104,97,114,0,105 DB 110,116,0,87,114,111,110,103,32,110 DB 117,109,98,101,114,32,111,102,32,97 DB 114,103,115,0,42,0,91,0,44,0 DB 101,120,112,101,99,116,101,100,32,99 DB 111,109,109,97,0,123,0,105,102,0 DB 119,104,105,108,101,0,114,101,116,117 DB 114,110,0,98,114,101,97,107,0,99 DB 111,110,116,105,110,117,101,0,102,111 DB 114,0,115,119,105,116,99,104,0,83 DB 87,73,84,67,72,32,110,111,116,32 DB 105,109,112,108,101,109,101,110,116,101 DB 100,46,0,59,0,35,97,115,109,0 DB 59,0,77,105,115,115,105,110,103,32 DB 83,101,109,105,99,111,108,111,110,0 DB 99,104,97,114,0,105,110,116,0,101 DB 120,116,101,114,110,0,125,0,109,105 DB 115,115,105,110,103,32,102,105,110,97 DB 108,32,125,0,101,108,115,101,0,40 DB 0,77,105,115,115,105,110,103,32,39 DB 40,39,32,105,110,32,70,79,82,46 DB 0,59,0,59,0,41,0,41,0,35 DB 101,110,100,97,115,109,0