/MACRO COMPILER / /PAGE 3200 *3200 TABLE / ERROR, 0 TAD .-2 DCA FINUP-1 TAD Z NOW3 SZA CLA JMP I ERROR /EXIT / CLA CMA JMS I Z DECOUT /RUBOUT JMS I FINUP-3 /CR & LF TAD I FINUP-1 /GET ERROR CODE AND CC77 TAD CC100 /ASCII CODE JMS I Z DECOUT TAD I FINUP-1 RTR RTR RTR AND CC77 TAD CC100 JMS I Z DECOUT TAD C40 /SPACE JMS I Z DECOUT JMS I FINUP-4 TAD CC53 JMS I Z DECOUT TAD Z VAL1A SZA CIA TAD Z AADR JMS I FINUP-2 JMS I FINUP-3 CLA CMA JMS I Z DECOUT /RUBOUT JMP I ERROR /EXIT / OSYM TYCAR OPS 0 / FINUP, TAD Z NOW3 SZA CLA JMP .+4 TAD Z PASS SPA CLA JMS I .+3 HLT JMP I Z MAINEX ALPHA UNDERR AAS / GETASY, 0 CLA DCA Z IN JMS I GETASY-1 TAD Z IN SNA CLA JMP I GETASY / JMS I Z SEAR1 SKP CLA JMP CKUN /FOUND / DCA Z VAL JMS I Z ENTS1 USYMB TAD Z C12 JMS I GETASY-2 JMP I GETASY / CKUN, TAD Z TYPE TAD Z C6000 SZA CLA JMP I GETASY / CMA DCA Z TRUBL JMP CKUN-3 / C40, 240 CC100, 300 CC77, 77 CC53, 253 TABLE, 0511 /IE, ILLEGAL EQUALS 0520 /PE, CURRENT NONZERO PAGE EXCEEDED 0532 /ZE, ZERO PAGE EXCEEDED 0523 /SE, SYMBOL TABLE EXCEEDED 0502 /BE 1111 /II, ILLEGAL INDIRECT 0714 /LG, LINK GENERATED 0411 /ID, ILLEGAL REDEFINITION OF SYMBOL 0311 /IC, ILLEGAL CHARACTER 2015 /MP, MISSING PARAMETER MACRO CALL 2325 /US, UNDEFINED SYMBOL 1511 /IM, ILLEGAL FORMAT,MACRO DEFINITION LIST, 0 PAUSE