                                                                                                                                                                                                       /MACRO COMPILER
          /
          /PAGE 400
          *400
          SEARCH,    0
                     JMS I Z SAVE1
                     TAD Z M3
                     TAD Z STAB
                     DCA Z SADR
                     CLA CMA
                     TAD Z SADR
                     DCA Z AUT16
                     TAD I Z AUT16
                     AND Z C1777
                     CIA
                     TAD Z TEM1
                     SZA CLA
                     JMP IND1
                     /
                     TAD I Z AUT16
                     AND Z C3777
                     CIA
                     TAD Z TEM2
                     SZA CLA
                     JMP IND1
                     /
                     TAD I Z AUT16
                     CIA
                     TAD Z TEM3
                     SZA CLA
                     JMP IND1   /NO MATCH
                     /
                     TAD IND1-1            /TOP
                     CIA
                     TAD Z SADR
                     SMA CLA
                     JMP .+7
                     /
                     TAD Z SADR
                     CIA
                     TAD Z PERMA
                     SPA
                     DCA Z INST /- IF INSTRUCTION
                     CLA
                     TAD I Z AUT16
                     DCA Z VAL
                     TAD Z AUT16
                     DCA Z VADR
                     JMS I GTYPE
                     ISZ SEARCH
                     JMS I .+2
                     JMP I SEARCH
                     /
                     ANYY
                     TOP
                     /
          IND1,      TAD GETSYM-1
                     TAD Z SADR
                     DCA Z SADR
                     TAD Z SADR
                     CIA
                     TAD Z SEND
                     SPA CLA
                     JMP SEARCH+5
                     ISZ Z ANY
                     JMP I SEARCH
                     /
                     0-4
                     /
          GETSYM,    0
                     TAD Z CHARX
                     SNA
                     JMP SPECIAL
                     /
                     TAD Z M33
                     SPA
                     JMP GETLET
                     TAD Z M12
                     SMA CLA
                     JMP SPECIAL
                     /
                     JMS I .+2
                     JMP I B11
                     /
                     DPCV
                     /
          SPECIAL,   TAD Z CHARX2
                     DCA Z TEM3
                     DCA Z TEM2
                     DCA Z TEM1
                     JMS SEARCH
                     JMP B11+1
                     /
                     TAD Z TYPE
                     SPA CLA
                     JMP I Z VAL
                     /
                     TAD Z VAL
                     DCA Z TYPE
                     JMP GSTART
                     /
          B11,       B1
                     /
                     TAD Z C10
                     JMS I Z ERR1
                     JMS I Z IDX1
                     JMP GETSYM+1
                     /
          GETLET,    JMS I Z GETAS1
                     TAD Z TYPE
                     SNA
                     JMP I Z DECOUT+2
                     /
                     TAD Z C4000
                     SNA CLA
                     JMP I Z VAL           /PSEUDO OP
                     /
          GSTART,    TAD I GETSYM
                     AND Z C177
                     DCA Z CURR
                     TAD GETSYM
                     AND Z C7600
                     TAD Z CURR
                     DCA Z CURR
                     TAD I GETSYM
                     AND Z C7600
                     SZA
                     JMP GTYPE+1
                     /
                     TAD Z CURR
                     DCA GETSYM
                     JMP GSTART
                     /
          FIXED,     TAD Z SEND
                     SKP
          ERASE,     TAD IND1-1
                     JMS I Z DECOUT+1
                     DCA Z PERMA
                     TAD Z PERMA
                     DCA Z SEND
                     JMP I Z MAIN1
                     /
          GTYPE,     GETYPE
                     /
                     CIA
                     TAD Z TYPE
                     SNA CLA
                     JMP I Z CURR
                     /
                     TAD I GETSYM
                     AND Z C7600
                     TAD Z C200
                     SNA CLA
                     JMP I Z CURR
                     /
                     ISZ I Z GETSY1
                     JMP GSTART
          PAUSE
                                                                                      