                                                                                                                                   /MACRO COMPILER
                     /
                     /PAGE 1200
                     *1200
          GETADR,    0
                     JMS I Z IDX1
                     TAD GETADR
                     JMS I Z PUSH1
                     JMS I Z EXPR1
                     TAD Z MICRO
                     SMA CLA
                     JMP .+3
                     /
                     TAD Z EVAL
                     JMP LEAVE-1
                     /
                     TAD Z EVAL
                     AND Z C7600
                     SNA
                     JMP AWAY+1
                     /
                     CIA
                     TAD Z APAGE
                     SNA CLA
                     JMP AWAY
                     /
                     TAD Z IND
                     SNA CLA
                     JMP .+4
                     /
                     TAD Z C5
                     JMS I NUPAGE+1
                     JMP LEAVE
                     /
                     TAD Z PASS
                     SPA CLA
                     JMS I Z CONC1
                     TAD Z C6
                     JMS I NUPAGE+1
                     TAD Z CCON
                     TAD Z C600
                     DCA Z ADR
          LEAVE,     JMS I Z POPU1
                     DCA GETADR
                     JMP I GETADR
                     /
          AWAY,      TAD Z C200
                     DCA NUPAGE
                     TAD Z EVAL
                     AND Z C177
                     TAD NUPAGE
                     TAD Z IND
                     JMP LEAVE-1
                     /
          II,        TAD Z CLIT
                     JMS I Z PUSH1
                     TAD Z CHARX
                     TAD Z M64
                     DCA Z CLIT
                     JMS I Z IDX1
                     JMS I Z EXPR1
                     TAD Z CLIT
                     SZA CLA
                     JMP .+4
                     /
                     JMS I Z CONC1
                     TAD Z APAGE
                     SKP
                     /
                     JMS I Z CONZ1
                     TAD Z CCON
                     DCA Z ADR
                     JMS I Z POPU1
                     DCA Z CLIT
                     JMP I .+1
                     /
                     GET+1
                     /
          LDT,       0
                     TAD Z CHARX
                     SNA
                     JMP I LDT
                     /
                     DCA NUPAGE
                     TAD NUPAGE
                     TAD Z M45
                     SMA CLA
                     JMP .+5
                     /
                     ISZ Z IN   /LETTER
                     JMS I Z IDX1
                     TAD NUPAGE
                     JMP I LDT
                     /
                     DCA Z CHARX
                     JMP I LDT
                     /
          A1W,       0
                     JMS LDT
                     DCA NUPAGE
                     TAD NUPAGE
                     CLL RTL
                     DCA Z VAL
                     TAD Z VAL
                     RTL
                     RAL
                     TAD Z VAL
                     TAD NUPAGE
                     DCA Z VAL
                     JMS LDT
                     TAD Z VAL
                     JMP I A1W
                     /
          AAS,       0
                     JMS A1W
                     DCA Z TEM1
                     JMS A1W
                     DCA Z TEM2
                     JMS A1W
                     DCA Z TEM3
                     JMS LDT
                     SNA CLA
                     JMP I AAS
                     /
                     JMP .-3
                     /
          POPUP1,    0
                     CLA CMA
                     TAD Z POINT
                     DCA Z POINT
                     TAD I Z POINT
                     JMP I POPUP1
                     /
          ORGIC,     JMS I Z IDX1
                     JMS I Z EXPR1
                     TAD Z EVAL
                     DCA Z AADR
                     TAD Z EVAL
                     AND Z C7600
                     CIA
                     TAD Z APAGE
                     SNA CLA
                     JMP .+4
                     /
                     JMS I Z PAGE1
                     TAD Z AADR
                     DCA Z EVAL
                     JMS I NUPAGE+2
                     JMS I Z PUNOR1
                     JMP I Z MAIN1
                     /
          NUPAGE,    0
                     UNDERR
                     ZEROT
                     PAUSE
                                                                                                                                                         