                                                                                      /MACRO COMPILER
                     /
                     /PAGE 2200
                     *2200
          DPCV,      0
                     ISZ Z ANY
                     DCA Z HIC
                     DCA Z LWC
                     DCA RTD16
                     DCA SIGN
                     DCA DPN
                     TAD Z CHARX2
                     TAD M67
                     SNA
                     JMP DPCS
                     /
                     TAD Z M2
                     SZA CLA
                     JMP DPCS+1
                     /
                     CLA CMA
                     DCA SIGN
                     /
          DPCS,      JMS I Z IDX1
                     TAD Z CHARX2
                     TAD Z M45
                     SMA
                     JMP I DPCV
                     /
                     TAD Z C12
                     SPA
                     JMP I DPCV
                     /
                     DCA MTD6
                     TAD Z HIC
                     AND M400
                     SZA CLA
                     JMP DPCS
                     ISZ DPN
                     ISZ RTD16
                     JMS MT10
                     JMP DPCS
                     /
          DECIM,     JMS DECIMS
                     JMP I Z B21
                     /
          OCT,       JMS OCTS
                     JMP I Z B21
                     /
          DECIMS,    0
                     TAD MTSW+5
                     DCA MTSW
                     JMP I DECIMS
                     /
          OCTS,      0
                     TAD Z M1000
                     DCA MTSW
                     JMP I OCTS
                     /
          MT10,      0
                     TAD Z LWC
                     DCA TIC+1
                     TAD Z HIC
                     DCA TIC
                     JMS MTRL
                     JMS MTRL
                     /
          MTSW,      JMS MTAD              /NOP(OCT); JMS MTAD(DEC)
                     /
                     JMS MTRL
                     TAD MTD6
                     DCA TIC+1
                     DCA TIC
                     JMS MTAD
                     JMP I MT10
                     /
          MTRL,      0
                     CLA CLL
                     TAD Z LWC
                     RAL
                     DCA Z LWC
                     TAD Z HIC
                     RAL
                     DCA Z HIC
                     JMP I MTRL
                     /
          MTAD,      0
                     CLA CLL
                     TAD Z LWC
                     TAD TIC+1
                     DCA Z LWC
                     RAL
                     TAD Z HIC
                     TAD TIC
                     DCA Z HIC
                     JMP I MTAD
                     /
          RTD16,     0
                     ZUNCON
          ENDOP,     JMS I Z PAGE1
                     JMS I .-2
                     JMP I Z FINEND
                     /
                     PASS1-1
                     PASS2
                     PASS1+2
                     /
          INITL,     LAS
                     SPA
                     JMP I INITL-3
                     /
                     RAL
                     SPA
                     JMP I INITL-2
                     /
                     RAL
                     SPA
                     JMP I INITL-1
                     /
                     RAL
                     SMA CLA
                     JMP I Z MAINEX
                     /
                     DCA Z CHARAC
                     JMP I .+1
                     /
                     PASS3
          SIGN,      0
          DPN,       0
          MTD6,      0
          TIC,       0
                     0
                     /
          ERR7,      0
                     TAD Z TYPE
                     TAD Z C6000
                     SNA CLA
                     JMP I ERR7
                     /
                     TAD Z AADR
                     CIA
                     TAD I Z VADR
                     SNA CLA
                     JMP I ERR7
                     /
                     TAD Z C7
                     JMS I Z ERR1
                     JMP I Z MAIN1
                     /
          UNDERR,    0
                     ISZ Z PASS
                     JMP I UNDERR
                     /
                     JMS I Z ERR1
                     CLA CMA
                     DCA Z PASS
                     JMP I UNDERR
                     /
          M400,      0-400
          M67,       0-67
                     PAUSE
                                                                                                                                                                