                                                                                            /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
                                                                                                                                                                                                                              