/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 ~