                                                                                                                                                                                                                                               /MACRO COMPILER
/
/PAGE 200
*200
          JMS I .+3
          JMP I .+1
/
          INITL
/
          FIRST
CONC,     0
          TAD Z APAGE
          SZA CLA
          JMP NONO
/
          TAD Z ZBUFE
          DCA CONP
          TAD CONP+2
          DCA GETYPE
          TAD Z STUP
          DCA RADD
          TAD CERR
          DCA CERR+1
          TAD Z STUP2
          JMP COND-1
/
NONO,     TAD Z CBUFE
          DCA CONP
          TAD CONP+1
          DCA GETYPE
          TAD Z M1000
          DCA CERR+1
          TAD Z STUP
          JMS FIND
          DCA RADD
          TAD Z STUP2
          JMS FIND
          DCA CURREN
COND,     CLA CMA
          TAD CONP
          DCA CONP
          TAD I GETYPE
          CIA
          TAD CONP
          SPA CLA
          JMP CONE
/
          TAD I CONP
          CIA
          TAD Z EVAL
          SZA CLA
          JMP COND
/
          TAD I GETYPE
          CIA
          TAD CONP
          TAD I RADD
          DCA Z CCON
          JMP I CONC
/
CONE,     CLA CMA
          TAD I RADD
          DCA I RADD
          TAD I RADD
          CIA
          TAD I CURREN
          SMA CLA
          JMP CERR
/
          CLA CMA
          TAD I GETYPE
          DCA I GETYPE
          TAD I GETYPE
          DCA CURREN
          TAD Z POINT
          CIA
          TAD CURREN
          SPA CLA
          JMP .+4
/
          TAD Z EVAL
          DCA I CURREN
          JMP CONE-3
/
          ISZ I GETYPE
          ISZ I RADD
          JMS I Z MKROOM
          JMP NONO
/
CERR,     IAC
          IAC                   /OR NOP
          ISZ I RADD
          JMS I Z ERR1
          JMP I Z MAIN1
/
CONZ,     0
          TAD CONZ
          DCA CONC
          JMP CONC+4
/
FIND,     0                     /ADD PAGE NNO. TO CONTNTS OF AC
          DCA CURREN
          TAD Z APAGE
          RTL CLL
          RTL
          RTL
          TAD CURREN
          JMP I FIND
/
CURREN,   0
          JMS I Z RESTO1
          JMS I MOVE1-I
          TAD Z SADR
          JMS I MOVE1
          TEM1A
          JMS I Z TYPAD1
          1000
          TAD Z AADR
          DCA I Z VADR
          TAD Z AADR
          DCA Z VAL1A
          JMP I Z MAIN1
/
RADD,     0
          TAD Z CON
          DCA Z CON
          JMP I RADD
CONP,     0
          PCON
          ZCON
/
GETYPE,   0
          TAD I Z SADR
          AND Z C6000
          DCA Z TYPE
          ISZ Z SADR
          TAD I Z SADR
          RTR
          AND Z C1000
          TAD Z TYPE
          DCA Z TYPE
          CLA CMA
          TAD Z SADR
          DCA Z SADR
          JMP I GETYPE
/
          ERR7
MOVE1,    MOVE
          HLT
          PAUSE
                                                                                        x