                                                                                                                                                                                                                      /MACRO COMPILER
          /
          /PAGE ZERO
          *1
                     NOP
                     JMP 1.+1
                     INTHAN     /INTERRUPT HANDLER
          DECOUT,    TYPO
                     TSTPAS
                     MACREF
                     HLT
          CKSUM,     0
          NOW3,      0
          CURADD,    0
          TRUBL,     0
                     HLT
                     HLT
          AUT16,     0
          AUT17,     0
          MACBOT,    4014
          ANY,       0          /INSTRUCTION FLAG
          TYPE,      0          /TYPE OF CURRENT SYMBOL
          VADR,      0          /VALUE OF CURRENT SYMBOL
          SADR,      0          /PTR TO 1ST WD OF CURRENT SYMBOL
          VAL,       0          /VALUE OF CURRENT SYMBOL
          STAB,      FIN        /PTR TOP ADDR OF SYMBOL TABLE
          SEND,      BOT        /PTR TO IST FREE REG AFTER SYMBOL TABLE
          AADR,      0          /ACTUAL CURRENT ADDRESS
          APAGE,     0          /ORIGIN OF CURRENT PAGE - ACTUAL
          TEM1,      0          /1ST
          TEM2,      0          /2ND
          TEM3,      0          /3RD WD OF CURRENT SYMBOL
          PCON,      0          /ADDR OF LAST CONSTANT STORED
          ZCON,      0          /ADDR OF LAST CONSTANT STORED PAGE ZERO
          CON,       0          /HOLDS ACC VALUE OF WORD
          ADR,       0          /HOLD FULL 12 BIT ADDRESS
          IND,       0          /400 IF INDIRECT, OTHERWISE 0
          PERMA,     BOT        /1ST REG AFTER PERM SYMBOL TABLE
          EVAL,      0          /HOLDS ADDR PORTION DURING CALCULATION
          SGN,       0
          CCON,      0          /ACTUAL CURRENT CONSTANT ADDRESS
          MACEND,    4014       /1ST FREE GREG AFTER MACRO STORAGE
          PASS,      0          /7777 IF PASS2
          TEM1A,     0
                     0
                     0
          VAL1A,     0
          CURR,      0
          CHARX,     0
          CHARX2,    0
          CLIT,      0
          POINT,     0          /PUSH DOWN LIST 3331
          IN,        0          /TELLS WHETHER SYMBOL WAS ACCEPTED
          ITEM,      0          /INPUT CHARACTER
          MP1,       0
          MP2,       0
          MP3,       0
          MP5,       0
          BEXP,      0
          HIC,       0
          LWC,       0
          VADR1,     0
          INST,      0          /- IF SYMBOLIC, A MICRO INST
          MICRO,     0
          CHARAC,    0
          FINEND,    FINUP
          ZBUFE,     3600
          CBUFE,     3400
          SYMLST,    LSTSYM
          MAINEX,    MAIN
          SKIP,      SKIP2
          BINOUT,    TYPO2
          CONZ1,     CONZ
          ERR1,      ERROR
          ENTS1,     ENTS
          EXPR1,     EXPR
          MAIN1,     MAINSE
          PAGE1,     PAGEX
          RESET1,    RESET
          B21,       B2
          MKROOM,    MKERM
          IDX1,      IDX
          PUSH1,     PUSH2
          POPU1,     POPUP1
          GETSY1,    GETSYM
          DEFIN1,    CURREN
          GETAD1,    GETADR
          CONC1,     CONC
          SEAR1,     SEARCH
          LIST1,     LIST
          GETAS1,    GETASY
          TYPAD1,    TYPADD
          SAVE1,     SAVE
          RESTO1,    RESTOR
          PUNOR1,    PUNORG
          PUNON1,    PUNONE
          STUP,      LITBUF
          STUP2,     TPINST
          FIND2,     FIND
                     HLT
                     HLT
          M7,        0-7
          M72,       0-72
          C12,       12
          C7,        7
          C3,        3
          M301,      0-301
          M2,        0-2
          M1,        0-1
          M240,      0-240
          C364,      0364
          M45,       0-45
          M64,       0-64
          C600,      600
          C6,        6
          C5,        5
          C4,        4
          C400,      0400
          C200,      0200
          C7600,     7600
          C177,      177
          C4000,     4000
          C10,       10
          M12,       0-12
          M33,       0-33
          C3777,     3777
          C1777,     1777
          M3,        0-3
          C1000,     1000
          C6000,     6000
          M1000,     7000
                     PAUSE
                                                                          ~