                                                                                         /MACRO COMPILER
                     /
                     /PAGE 2400
                     *2400
          HIGH,      0
                     0
                     0
          ORIGT,     0
                     0
                     0
          WORK,      0
                     0
                     0
                     /
          ALPHA,     0
                     JMS I NTEM+2
                     CLA CMA
                     JMS I Z DECOUT
                     JMS I FOUND+1
                     DCA ORIGT
                     DCA ORIGT+1
                     DCA ORIGT+2
                     DCA FOUND
                     TAD Z M3
                     TAD Z SEND
                     DCA Z SADR
                     TAD Z C1777
                     DCA HIGH
                     CLA CMA
                     DCA HIGH+1
                     CLA CMA
                     DCA HIGH+2
                     TAD CORIGT
                     JMS MOVE
                     /
                     TEM1
                     /
          AEND,      TAD Z C4
                     TAD Z SADR 
                     DCA Z SADR
                     TAD Z PERMA
                     CIA
                     TAD Z SADR
                     SMA CLA
                     JMP NTAB
                     /
                     JMS I FOUND+2
                     TAD Z TYPE
                     TAD Z M1000
                     SZA CLA
                     JMP AEND
                     /
                     TAD Z SADR
                     JMS MOVE
                     /
          CWORK,     WORK
                     /
                     JMS TRIPLE
                     SNL CLA
                     JMP AEND
                     /
                     TAD CHIGH
                     JMS MOVE
                     /
                     TEM1
                     /
                     JMS TRIPLE
                     SZL CLA
                     JMP AEND-3
                     /
                     TAD CWORK
                     JMS MOVE
                     /
          CHIGH,     HIGH
                     ISZ FOUND
                     TAD Z SADR
                     DCA NTEM
                     JMP AEND-3
                     /
          FOUND,     0
                     TYCAR
                     GETYPE
                     /
          NTAB,      TAD FOUND
                     SNA CLA
                     JMP CORIGT+2
                     /
                     TAD NTEM
                     JMS MOVE
                     /
                     TEM1A
                     /
                     TAD I Z AUT16
                     DCA Z VAL
                     JMS I NTEM+1
                     TAD CHIGH
                     JMS MOVE
                     /
          CORIGT,    ORIGT
                     /
                     JMP ALPHA+10
                     /
                     TAD Z C4
                     JMS I Z DECOUT
                     CLA CMA
                     JMS I Z DECOUT
                     JMS I NTEM+2
                     JMP I ALPHA
                     /
          NTEM,      0
                     OSANDV
                     LT2
                     /
          TRIPLE,    0
                     CLA CLL
                     TAD Z TEM1
                     CMA
                     TAD WORK
                     DCA MOVE
                     ISZ MOVE
                     JMP I TRIPLE
                     /
                     TAD Z TEM1+1
                     CMA
                     TAD WORK+1
                     DCA MOVE
                     ISZ MOVE
                     JMP I TRIPLE
                     /
                     TAD Z TEM1+2
                     CMA
                     TAD WORK+2
                     CLA
                     JMP I TRIPLE
                     /
          MOVE,      0
                     TAD Z M1
                     DCA Z AUT16
                     CMA
                     TAD I MOVE
                     DCA Z AUT17
                     TAD I Z AUT16
                     AND Z C1777
                     DCA I Z AUT17
                     TAD I Z AUT16
                     AND Z C3777
                     DCA I Z AUT17
                     TAD I Z AUT16
                     DCA I Z AUT17
                     ISZ MOVE
                     JMP I MOVE
                     /
          ZEROT,     0
                     DCA Z TEM1A
                     DCA Z VAL1A
                     JMP I ZEROT
                     /
                     HLT
                     HLT
                     PAUSE
                                                                                                                                                                                  