                                                                                        /MACRO COMPILER
                     /
                     /PAGE 2000
                     *2000
          ENTS,      0
                     TAD Z VAL
                     DCA I Z SEND
                     TAD Z SEND
                     DCA Z VADR
                     JMS SENDP
                     TAD Z TEM3
                     DCA I Z SEND
                     JMS SENDP
                     TAD Z TEM2
                     DCA I Z SEND
                     JMS SENDP
                     TAD Z TEM1
                     DCA I Z SEND
                     TAD Z SEND
                     DCA Z SADR
                     TAD I ENTS
                     ISZ ENTS
                     DCA .+2
                     JMS I Z TYPAD1
                     /
                     0
                     /
                     JMS SENDP
                     TAD Z MACEND
                     CIA
                     TAD Z SEND
                     SMA CLA
                     JMP I ENTS
                     /
          SYMEX,     TAD Z C3
                     JMS I Z ERR1
                     TAD Z M1000
                     DCA SWITCH
                     TAD Z M1000
                     DCA IDX+1
                     HLT CLA
                     JMP .-1
                     /
          IDX,       0
                     NOP                   /OR JMP IDXMAC
                     JMS GETIN
                     TAD M257              /SLASH?
                     SNA CLA
                     JMP COMMEN
                     /
                     JMS I SENDP-1         /BIT6 SR
                     DCA Z CHARX
                     TAD Z CHARX
                     DCA Z CHARX2
                     TAD Z CHARX
          SWITCH,    NOP                   /MACRO STORE
                     CLA
                     JMP I IDX
                     /
          IDXMAC,    NOP
                     TAD JMPOUT+1
                     DCA IDXMAC
                     TAD I GETIN
                     RTR
                     RTR
                     RTR
                     AND CT77
                     JMP IDX+7
                     /
          RIGHT,     TAD Z M1000
                     DCA IDXMAC
                     TAD I GETIN
                     ISZ GETIN
                     JMP RIGHT-2
                     /
          JMPOUT,    JMP IDXMAC
                     /
                     JMP RIGHT
                     HSGET
                     /
          GETIN,     0
                     JMS I GETIN-1
                     DCA Z ITEM
                     TAD Z NOW3
                     SZA CLA
                     JMS I Z SYMLST
                     TAD Z ITEM
                     JMP I GETIN
                     /
          COMMEN,    JMS GETIN
                     TAD M215
                     SNA CLA
                     JMP IDX+6
                     /
                     JMP COMMEN
                     /
                     BIT6
                     /
          SENDP,     0
                     CLA CMA
                     TAD Z SEND
                     DCA Z SEND
                     JMP I SENDP
                     /
          SAVE,      0
                     TAD Z SADR
                     DCA REPUN
                     TAD Z TYPE
                     DCA RESTOR-1
                     TAD Z VADR
                     DCA Z VADR1
                     JMP I SAVE
                     /
          REPUN,     0
                     TAD Z M1000
                     DCA I .+2
                     JMP I REPUN
                     /
                     PUN+1
                     0
                     /
          RESTOR,    0
                     TAD REPUN
                     DCA Z SADR
                     TAD RESTOR-1
                     DCA Z TYPE
                     TAD Z VADR1
                     DCA Z VADR
                     JMP I RESTOR
                     /
          MSTOR1,    PACK
                     /
          EXMEM,     JMS I Z EXPR1
                     TAD Z PASS
                     SMA CLA
                     JMP I Z MAIN1
                     /
                     TAD Z NOW3
                     SZA CLA
                     JMP I Z MAIN1
                     /
                     TAD Z EVAL
                     AND Z C7
                     CLL RTL
                     RAL
                     TAD CT300
                     JMS I Z BINOUT
                     JMP I Z MAIN1
                     /
                     2000
                     7777
          CT300,     300
          M215,      0-215
          CT77,      77
          M257,      0-257
                     PAUSE
                                                                                                           