                                                                                        /MACRO COMPILER
                     /
                     /PAGE 1400
                     *1400
          MAIN,      JMP PASS1
                     /
                     CLA
          PASS1,     TAD Z PERMA
                     DCA Z SEND
                     LAS
                     RTR
                     SPA CLA
                     JMP .+4
                     /
                     SNL
                     TAD Z C400
                     TAD Z C364
                     TAD Z MACBOT
                     DCA Z MACEND
                     JMS I OCTS1+2
                     DCA Z PASS
                     DCA Z NOW3
                     TAD Z M1000
                     DCA I OCTS1+5
                     JMS SETORG
                     TAD CJMP1+1
          PASS1P,    DCA MAIN
                     JMS I OCTS1
                     JMS I CJMP1-1
          MAINSE,    JMS I Z IDX1
                     TAD Z LIST1           /3331
                     DCA Z POINT
                     DCA Z ANY
                     DCA Z IND
                     JMS I Z EXPR1
                     TAD Z ANY
                     SNA CLA
                     JMP MAINSE
                     /
                     TAD Z EVAL
                     JMS ONEREG
                     JMP MAINSE
                     /
          ONEREG,    0
                     DCA Z EVAL
                     TAD Z STUP
                     JMS I Z FIND2
                     DCA SETORG
                     TAD Z AADR
                     AND Z C177
                     DCA SETORG-1
                     TAD I SETORG
                     CIA
                     TAD SETORG-1
                     SMA CLA
                     JMP GETPAG
                     /
                     TAD Z STUP2
                     JMS I Z FIND2
                     DCA SETORG
                     ISZ SETORG-1
                     TAD SETORG-1
                     CIA
                     TAD I SETORG
                     SMA CLA
                     JMP .+3
                     /
                     TAD SETORG-1
                     DCA I SETORG
                     JMS I Z PUNON1
                     ISZ Z AADR
                     TAD SETORG-1
                     AND Z C177
                     SZA CLA
                     JMP I ONEREG
                     /
                     JMS I Z PAGE1
                     JMS I CJMP1-1
                     JMP I ONEREG
                     /
          GETPAG,    TAD Z APAGE
                     SNA CLA
                     IAC
                     IAC
                     JMS I Z ERR1
                     JMP MAINSE
                     /
                     0
                     /
          SETORG,    0
                     TAD Z C200
                     DCA Z AADR
                     TAD Z C200
                     DCA Z APAGE
                     TAD Z CBUFE
                     DCA Z PCON
                     TAD Z ZBUFE
                     DCA Z ZCON
                     TAD Z NOW3
                     SNA CLA               /SKIP IF PASS 3
                     JMS I OCTS1+1
                     TAD Z C200
                     DCA Z EVAL
                     TAD M40
                     DCA Z CON
                     CLA CMA
                     TAD Z STUP
                     DCA Z AUT17
                     CLA CMA
                     TAD Z STUP2
                     DCA Z AUT16
                     TAD Z C200
                     DCA I Z AUT17
                     DCA I Z AUT16
                     ISZ Z CON
                     JMP .-4
                     /
                     JMS I Z PUNOR1
                     JMP I SETORG
                     /
          OCTS1,     OCTS
                     LT
                     UNPUN
                     REPUN
                     TYCAR
                     PUNONE+1
                     JMP OPASS-1400
                     /
          PASS3,     TAD .-1
                     DCA I OCTS1+5
                     ISZ Z NOW3
                     JMS I OCTS1+4
          PASS2,     CLA CMA
                     DCA Z PASS
                     DCA Z CKSUM
                     JMS I OCTS1+3
                     JMS SETORG
                     TAD CJMP1
                     JMP PASS1P
                     /
                     ZEROT
          CJMP1,     JMP PASS1
                     JMP PASS2
                     HLT
                     HLT
          M40,       0-40
                     PAUSE
                                                                                                                 