                                                                                   /MACRO COMPILER
                     /
                     /PAGE 2600
                     *2600
          TYPO,      0
                     IOF
                     TLS
                     TSF
                     JMP .-1
                     ION
                     CLA
                     JMP I TYPO
                     /
          OSANDV,    0
                     JMS OSYM
                     TAD TYCAR
                     TAD Z M7
                     JMS I Z SKIP
                     TAD Z VAL
                     JMS OPS
                     JMS TYCAR
                     JMP I OSANDV
                     /
          OSYM,      0
                     DCA TYCAR
                     TAD Z TEM1A
                     JMS OX
                     TAD Z TEM1A+1
                     JMS OX
                     TAD Z TEM1A+2
                     JMS OX
                     JMP I OSYM
                     /
          TYCAR,     0
                     TAD C215
                     JMS I Z DECOUT
                     TAD C212
                     JMS I Z DECOUT
                     JMP I TYCAR
                     /
          RSUB,      0
                     CIA
                     TAD Z CON
                     DCA Z CON
                     JMP I RSUB
                     /
          OX,        0
                     SNA
                     JMP I OSYM
                     /
                     RAL
                     DCA Z LWC
                     DCA Z HIC
                     TAD MN14
                     DCA Z MP1
                     JMP DV2
                     /
          DV3,       TAD Z HIC
                     RAL
                     DCA Z HIC
                     TAD Z HIC
                     TAD Z M45
                     SZL
                     DCA Z HIC
                     CLA 
          DV2,       TAD Z LWC
                     RAL
                     DCA Z LWC
                     ISZ Z MP1
                     JMP DV3
                     /
                     TAD Z LWC
                     JMS UNTRAN
                     TAD Z HIC
                     JMS UNTRAN
                     JMP I OX
                     /
                     /
          UNTRAN,    0
                     SNA
                     JMP I OSYM
                     /
                     TAD Z M33
                     SPA
                     TAD C53
                     TAD C260
                     JMS I Z DECOUT
                     ISZ TYCAR
                     JMP I UNTRAN
                     /
          OPS,       0
                     DCA OSYM
                     TAD MN4
                     DCA TYCAR
                     TAD OSYM
                     RTL
                     RAL
                     DCA OSYM
                     TAD OSYM
                     RAL
                     AND Z C7
                     TAD C260
                     JMS I Z DECOUT
                     ISZ TYCAR
                     JMP OPS+4
                     /
                     JMP I OPS
                     /
          LITBUF,    0
                     *2772
          MN4,       0-4
          C260,      260
          C53,       53
          MN14,      0-14
          C212,      212
          C215,      215
                     PAUSE
                                                                                                                                                         @