                                                                                                                                                                                                         /MACRO COMPILER
                     /
                     /PAGE 600
                     *600
          TYPO2,     0
                     IOF
                     PLS
                     PSF
                     JMP .-I
                     ION
                     CLA
                     JMP I TYPO2
                     /
          PAGEC,     JMS I Z EXPR1
                     TAD Z ANY
                     SZA CLA
                     JMP PAGEM
                     /
                     CMA
                     TAD Z AADR
                     TAD Z C200
                     AND Z C7600
                     DCA Z AADR
          PAGHER,    JMS I Z PAGE1
                     TAD Z AADR
                     DCA Z EVAL
                     JMS I Z PUNOR1
                     JMP I .+1
                     /
                     MAINSE-1
                     /
          PAGEM,     TAD Z EVAL
                     RTR
                     RTR
                     RTR
                     JMP PAGHER-2
                     /
          PAGEX,     0
                     JMS I .+3
                     JMS I Z RESET1
                     JMP I PAGEX
                     /
                     PUNCON
          PERIOD,    TAD Z AADR
                     JMS I Z SGN
                     JMS I Z IDX1
                     JMP I Z B21
                     /
          TYPADD,    0
                     CLA
                     TAD I TYPADD
                     DCA Z TYPE
                     TAD I Z SADR
                     AND Z C1777
                     DCA I Z SADR
                     TAD Z TYPE
                     AND Z C6000
                     TAD I Z SADR
                     DCA I Z SADR
                     ISZ Z SADR
                     TAD I Z SADR
                     AND Z C3777
                     DCA I Z SADR
                     TAD Z TYPE
                     RTL
                     AND Z C4000
                     TAD I Z SADR
                     DCA I Z SADR
                     CLA CMA
                     TAD Z SADR
                     DCA Z SADR
                     ISZ TYPADD
                     JMP I TYPADD
                     /
          RESET,     0
                     TAD Z CBUFE
                     DCA Z PCON
                     TAD Z AADR
                     AND Z C7600
                     DCA Z APAGE
                     JMP I RESET
                     /
          DANDF,     0
                     JMS I FINAL
                     TAD I FINAL+1
                     SNA CLA
                     JMP .+3
                     /
                     ISZ DANDF
                     JMP I DANDF
                     /
                     TAD Z CHARX2
                     TAD Z M33
                     SPA CLA
                     JMP .+3
                     /
                     JMS I Z IDX1
                     JMP DANDF+1
                     /
                     JMS I .+2
                     JMP I DANDF
                     /
                     RET
          FINAL,     FINALL
                     DPN
                     /
          ANYY,      0
                     TAD Z TYPE
                     TAD Z M1000
                     SNA
                     ISZ Z ANY
                     TAD Z M1000
                     SNA CLA
                     ISZ Z ANY
                     JMP I ANYY
                     /
          TPINST,    0
                     PAUSE
                                                                                                                                              