;small-c compiler rev 2.0(mod 1) heir11 equ $ PUSH B PUSH B LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H CALL primary POP B POP D 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 CALL blanks CALL ch PUSH H LXI H,91 POP D CALL cceq PUSH H CALL ch PUSH H LXI H,40 POP D CALL cceq POP D CALL ccor MOV A,H ORA L JZ cc1402 cc1403 equ $ LXI H,1 MOV A,H ORA L JZ cc1404 LXI H,cc1401+0 PUSH H CALL match POP B MOV A,H ORA L JZ cc1405 LXI H,0 DAD SP CALL ccgint PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1406 LXI H,cc1401+2 PUSH H CALL error POP B CALL junk LXI H,cc1401+18 PUSH H CALL needbrac POP B LXI H,0 POP B POP B RET JMP cc1407 cc1406 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,3 POP D CALL cceq MOV A,H ORA L JZ cc1408 LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B LXI H,6 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint JMP cc1409 cc1408 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL ccne MOV A,H ORA L JZ cc1410 LXI H,cc1401+20 PUSH H CALL error POP B LXI H,2 DAD SP PUSH H LXI H,0 POP D CALL ccpint cc1410 equ $ cc1409 equ $ cc1407 equ $ CALL push CALL expressi LXI H,cc1401+36 PUSH H CALL needbrac POP B LXI H,0 DAD SP CALL ccgint PUSH H LXI H,10 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL cceq MOV A,H ORA L JZ cc1411 CALL doublere cc1411 equ $ CALL pop CALL add 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 PUSH H LXI H,10 POP D DAD D MOV L,M MVI H,0 POP D CALL ccpint LXI H,2 DAD SP PUSH H LXI H,1 POP D CALL ccpint JMP cc1412 cc1405 equ $ LXI H,cc1401+38 PUSH H CALL match POP B MOV A,H ORA L JZ cc1413 LXI H,0 DAD SP CALL ccgint PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1414 LXI H,0 PUSH H CALL callfunc POP B JMP cc1415 cc1414 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,4 POP D CALL ccne MOV A,H ORA L JZ cc1416 LXI H,6 DAD SP CALL ccgint PUSH H CALL rvalue POP B LXI H,0 PUSH H CALL callfunc POP B JMP cc1417 cc1416 equ $ LXI H,0 DAD SP CALL ccgint PUSH H CALL callfunc POP B cc1417 equ $ cc1415 equ $ LXI H,2 DAD SP PUSH H LXI H,8 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint POP D CALL ccpint JMP cc1418 cc1413 equ $ LXI H,2 DAD SP CALL ccgint POP B POP B RET cc1418 equ $ cc1412 equ $ JMP cc1403 cc1404 equ $ cc1402 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1419 LXI H,2 DAD SP CALL ccgint POP B POP B RET cc1419 equ $ LXI H,0 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,4 POP D CALL cceq MOV A,H ORA L JZ cc1420 CALL immed LXI H,0 DAD SP CALL ccgint PUSH H CALL outstr POP B CALL nl LXI H,0 POP B POP B RET cc1420 equ $ LXI H,2 DAD SP CALL ccgint POP B POP B RET primary equ $ PUSH B XCHG LXI H,-9 DAD SP SPHL XCHG PUSH B PUSH B PUSH B LXI H,cc1401+40 PUSH H CALL match POP B MOV A,H ORA L JZ cc1421 LXI H,0 DAD SP PUSH H LXI H,21 DAD SP CALL ccgint PUSH H CALL heir1 POP B POP D CALL ccpint LXI H,cc1401+42 PUSH H CALL needbrac POP B LXI H,0 DAD SP CALL ccgint XCHG LXI H,17 DAD SP SPHL XCHG RET cc1421 equ $ LXI H,6 DAD SP PUSH H CALL symname POP B MOV A,H ORA L JZ cc1422 LXI H,15 DAD SP PUSH H LXI H,8 DAD SP PUSH H CALL findloc POP B POP D CALL ccpint MOV A,H ORA L JZ cc1423 LXI H,15 DAD SP CALL ccgint PUSH H LXI H,11 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL cceq MOV A,H ORA L JZ cc1424 LXI H,15 DAD SP CALL ccgint PUSH H CALL getloc POP B LXI H,19 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint POP D CALL ccpint LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint PUSH H LXI H,10 POP D DAD D MOV L,M MVI H,0 POP D CALL ccpint LXI H,15 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,3 POP D CALL cceq MOV A,H ORA L JZ cc1425 LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,2 POP D CALL ccpint cc1425 equ $ LXI H,15 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL cceq MOV A,H ORA L JZ cc1426 LXI H,0 XCHG LXI H,17 DAD SP SPHL XCHG RET JMP cc1427 cc1426 equ $ LXI H,1 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1427 equ $ JMP cc1428 cc1424 equ $ LXI H,19 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint POP D CALL ccpint LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint LXI H,15 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL ccne MOV A,H ORA L JZ cc1429 LXI H,1 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1429 equ $ CALL immed LXI H,15 DAD SP CALL ccgint PUSH H LXI H,11 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,4 POP D CALL cceq MOV A,H ORA L JZ cc1430 LXI H,2 DAD SP PUSH H LXI H,17 DAD SP CALL ccgint PUSH H LXI H,14 POP D DAD D POP D CALL ccpint LXI H,2 DAD SP CALL ccgint CALL ccgint PUSH H CALL printlab POP B JMP cc1431 cc1430 equ $ LXI H,15 DAD SP CALL ccgint PUSH H CALL outstr POP B cc1431 equ $ CALL nl LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint PUSH H LXI H,10 POP D DAD D MOV L,M MVI H,0 POP D CALL ccpint LXI H,0 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1428 equ $ cc1423 equ $ LXI H,15 DAD SP PUSH H LXI H,8 DAD SP PUSH H CALL findglb POP B POP D CALL ccpint MOV A,H ORA L JZ cc1432 LXI H,15 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,4 POP D CALL ccne MOV A,H ORA L JZ cc1433 LXI H,19 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint POP D CALL ccpint LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint LXI H,15 DAD SP CALL ccgint PUSH H LXI H,9 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,2 POP D CALL ccne MOV A,H ORA L JZ cc1434 LXI H,1 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1434 equ $ CALL immed LXI H,15 DAD SP CALL ccgint PUSH H LXI H,11 POP D DAD D MOV L,M MVI H,0 PUSH H LXI H,4 POP D CALL cceq MOV A,H ORA L JZ cc1435 LXI H,2 DAD SP PUSH H LXI H,17 DAD SP CALL ccgint PUSH H LXI H,14 POP D DAD D POP D CALL ccpint LXI H,2 DAD SP CALL ccgint CALL ccgint PUSH H CALL printlab POP B JMP cc1436 cc1435 equ $ LXI H,15 DAD SP CALL ccgint PUSH H CALL outstr POP B cc1436 equ $ CALL nl LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint PUSH H LXI H,10 POP D DAD D MOV L,M MVI H,0 POP D CALL ccpint LXI H,0 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1433 equ $ cc1432 equ $ LXI H,15 DAD SP PUSH H LXI H,8 DAD SP PUSH H LXI H,4 PUSH H LXI H,2 PUSH H LXI H,0 PUSH H LXI H,1 PUSH H CALL addglb XCHG LXI H,10 DAD SP SPHL XCHG POP D CALL ccpint LXI H,19 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,17 DAD SP CALL ccgint POP D CALL ccpint LXI H,19 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint LXI H,0 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1422 equ $ LXI H,4 DAD SP PUSH H CALL constant POP B MOV A,H ORA L JZ cc1437 LXI H,19 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,21 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D PUSH H LXI H,0 POP D CALL ccpint POP D CALL ccpint XCHG LXI H,17 DAD SP SPHL XCHG RET JMP cc1438 cc1437 equ $ LXI H,cc1401+44 PUSH H CALL error POP B CALL immed LXI H,0 PUSH H CALL outdec POP B CALL nl CALL junk LXI H,0 XCHG LXI H,17 DAD SP SPHL XCHG RET cc1438 equ $ XCHG LXI H,17 DAD SP SPHL XCHG RET store equ $ LXI H,2 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1439 LXI H,2 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL putmem POP B JMP cc1440 cc1439 equ $ LXI H,2 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H CALL putstk POP B cc1440 equ $ RET rvalue equ $ LXI H,2 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H LXI H,0 POP D CALL ccne PUSH H LXI H,4 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H LXI H,0 POP D CALL cceq POP D CALL ccand MOV A,H ORA L JZ cc1441 LXI H,2 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL getmem POP B JMP cc1442 cc1441 equ $ LXI H,2 DAD SP CALL ccgint PUSH H LXI H,1 DAD H POP D DAD D CALL ccgint PUSH H CALL indirect POP B cc1442 equ $ RET test equ $ LXI H,cc1401+63 PUSH H CALL needbrac POP B CALL expressi LXI H,cc1401+65 PUSH H CALL needbrac POP B LXI H,2 DAD SP CALL ccgint PUSH H CALL testjump POP B RET constant equ $ LXI H,2 DAD SP CALL ccgint PUSH H CALL number POP B MOV A,H ORA L JZ cc1443 CALL immed JMP cc1444 cc1443 equ $ LXI H,2 DAD SP CALL ccgint PUSH H CALL pstr POP B MOV A,H ORA L JZ cc1445 CALL immed JMP cc1446 cc1445 equ $ LXI H,2 DAD SP CALL ccgint PUSH H CALL qstr POP B MOV A,H ORA L JZ cc1447 CALL immed LHLD litlab PUSH H CALL printlab POP B LXI H,43 PUSH H CALL outbyte POP B JMP cc1448 cc1447 equ $ LXI H,0 RET cc1448 equ $ cc1446 equ $ cc1444 equ $ LXI H,2 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D CALL ccgint PUSH H CALL outdec POP B CALL nl LXI H,1 RET number equ $ PUSH B PUSH B DCX SP LXI H,3 DAD SP PUSH H LXI H,3 DAD SP PUSH H LXI H,1 POP D CALL ccpint POP D CALL ccpint cc1449 equ $ LXI H,3 DAD SP CALL ccgint MOV A,H ORA L JZ cc1450 LXI H,3 DAD SP PUSH H LXI H,0 POP D CALL ccpint LXI H,cc1401+67 PUSH H CALL match POP B MOV A,H ORA L JZ cc1451 LXI H,3 DAD SP PUSH H LXI H,1 POP D CALL ccpint cc1451 equ $ LXI H,cc1401+69 PUSH H CALL match POP B MOV A,H ORA L JZ cc1452 LXI H,1 DAD SP PUSH H LXI H,3 DAD SP CALL ccgint CALL ccneg POP D CALL ccpint LXI H,3 DAD SP PUSH H LXI H,1 POP D CALL ccpint cc1452 equ $ JMP cc1449 cc1450 equ $ CALL ch PUSH H CALL numeric POP B PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1453 LXI H,0 INX SP POP B POP B RET cc1453 equ $ cc1454 equ $ CALL ch PUSH H CALL numeric POP B MOV A,H ORA L JZ cc1455 LXI H,0 DAD SP PUSH H CALL inbyte POP D MOV A,L STAX D LXI H,3 DAD SP PUSH H LXI H,5 DAD SP CALL ccgint PUSH H LXI H,10 POP D CALL ccmult PUSH H LXI H,4 DAD SP MOV L,M MVI H,0 PUSH H LXI H,48 POP D CALL ccsub POP D DAD D POP D CALL ccpint JMP cc1454 cc1455 equ $ LXI H,1 DAD SP CALL ccgint PUSH H LXI H,0 POP D CALL cclt MOV A,H ORA L JZ cc1456 LXI H,3 DAD SP PUSH H LXI H,5 DAD SP CALL ccgint CALL ccneg POP D CALL ccpint cc1456 equ $ LXI H,7 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,5 DAD SP CALL ccgint POP D CALL ccpint LXI H,1 INX SP POP B POP B RET pstr equ $ PUSH B DCX SP LXI H,1 DAD SP PUSH H LXI H,0 POP D CALL ccpint LXI H,cc1401+71 PUSH H CALL match POP B PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1457 LXI H,0 INX SP POP B RET cc1457 equ $ cc1458 equ $ LXI H,0 DAD SP PUSH H CALL gch POP D MOV A,L STAX D PUSH H LXI H,39 POP D CALL ccne MOV A,H ORA L JZ cc1459 LXI H,1 DAD SP PUSH H LXI H,3 DAD SP CALL ccgint PUSH H LXI H,255 POP D CALL ccand PUSH H LXI H,256 POP D CALL ccmult PUSH H LXI H,4 DAD SP MOV L,M MVI H,0 PUSH H LXI H,127 POP D CALL ccand POP D DAD D POP D CALL ccpint JMP cc1458 cc1459 equ $ LXI H,5 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LXI H,3 DAD SP CALL ccgint POP D CALL ccpint LXI H,1 INX SP POP B RET qstr equ $ DCX SP LXI H,quote PUSH H CALL match POP B PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1460 LXI H,0 INX SP RET cc1460 equ $ LXI H,3 DAD SP CALL ccgint PUSH H LXI H,0 DAD H POP D DAD D PUSH H LHLD litptr POP D CALL ccpint cc1461 equ $ CALL ch PUSH H LXI H,34 POP D CALL ccne MOV A,H ORA L JZ cc1462 CALL ch PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1463 JMP cc1462 cc1463 equ $ LHLD litptr PUSH H LXI H,2000 PUSH H LXI H,1 POP D CALL ccsub POP D CALL ccge MOV A,H ORA L JZ cc1464 LXI H,cc1401+73 PUSH H CALL error POP B cc1465 equ $ LXI H,quote PUSH H CALL match POP B PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1466 CALL gch PUSH H LXI H,0 POP D CALL cceq MOV A,H ORA L JZ cc1467 JMP cc1466 cc1467 equ $ JMP cc1465 cc1466 equ $ LXI H,1 INX SP RET cc1464 equ $ LXI H,litq PUSH H LHLD litptr INX H SHLD litptr DCX H POP D DAD D PUSH H CALL gch POP D MOV A,L STAX D JMP cc1461 cc1462 equ $ CALL gch LXI H,litq PUSH H LHLD litptr INX H SHLD litptr DCX H POP D DAD D PUSH H LXI H,0 POP D MOV A,L STAX D LXI H,1 INX SP RET cc1401 equ $ DB 91,0,99,97,110,39,116,32,115,117 DB 98,115,99,114,105,112,116,0,93,0 DB 99,97,110,39,116,32,115,117,98,115 DB 99,114,105,112,116,0,93,0,40,0 DB 40,0,41,0,105,110,118,97,108,105 DB 100,32,101,120,112,114,101,115,115,105 DB 111,110,0,40,0,41,0,43,0,45 DB 0,39,0,115,116,114,105,110,103,32 DB 115,112,97,99,101,32,101,120,104,97 DB 117,115,116,101,100,0 ;0 errors in compilation.