MMCF=6771 DCF=6074 /LT PEN ADRB=6541 /A-D PLCF=6504 /PLOTTER MTS=6711 /MAG 57A /INTERPRETIVE EQUIVALENTS ALL=7600 ANDS=3400 COMMA=0600 EQUALS=1400 EXCLAM=2200 FIN=7577 LANG=1200 MINUS=5200 PLUS=4600 QUOTES=2400 RTDIG=2316 SCOLON=0200 SPACE=5600 SYMB=1000 TOP=7407 USYMB=2000 /PAUSE /MACRO COMPILER / /PAGE ZERO *1 NOP JMP I .+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 /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 CONTNTS 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 /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 /MACRO COMPILER / /PAGE 600 *600 TYPO2, 0 IOF PLS PSF JMP .-I ION CLA JMP I TYPO2 / PAGEC, JMS I Z EXPR1 TAD Z ANY SZA CLA JMP PAGEM / CMA TAD Z AADR TAD Z C200 AND Z C7600 DCA Z AADR PAGHER, JMS I Z PAGE1 TAD Z AADR DCA Z EVAL JMS I Z PUNOR1 JMP I .+1 / MAINSE-1 / PAGEM, TAD Z EVAL RTR RTR RTR JMP PAGHER-2 / PAGEX, 0 JMS I .+3 JMS I Z RESET1 JMP I PAGEX / PUNCON PERIOD, TAD Z AADR JMS I Z SGN JMS I Z IDX1 JMP I Z B21 / TYPADD, 0 CLA TAD I TYPADD DCA Z TYPE TAD I Z SADR AND Z C1777 DCA I Z SADR TAD Z TYPE AND Z C6000 TAD I Z SADR DCA I Z SADR ISZ Z SADR TAD I Z SADR AND Z C3777 DCA I Z SADR TAD Z TYPE RTL AND Z C4000 TAD I Z SADR DCA I Z SADR CLA CMA TAD Z SADR DCA Z SADR ISZ TYPADD JMP I TYPADD / RESET, 0 TAD Z CBUFE DCA Z PCON TAD Z AADR AND Z C7600 DCA Z APAGE JMP I RESET / DANDF, 0 JMS I FINAL TAD I FINAL+1 SNA CLA JMP .+3 / ISZ DANDF JMP I DANDF / TAD Z CHARX2 TAD Z M33 SPA CLA JMP .+3 / JMS I Z IDX1 JMP DANDF+1 / JMS I .+2 JMP I DANDF / RET FINAL, FINALL DPN / ANYY, 0 TAD Z TYPE TAD Z M1000 SNA ISZ Z ANY TAD Z M1000 SNA CLA ISZ Z ANY JMP I ANYY / TPINST, 0 /PAUSE /MACRO COMPILER / /PAGE 1000 *1000 EXPR, 0 TAD Z CON JMS I Z PUSH1 DCA Z CON TAD Z INST JMS I Z PUSH1 DCA Z INST TAD Z SGN JMS I Z PUSH1 TAD CRIOR DCA Z SGN TAD H+3 JMS I Z PUSH1 DCA H+3 TAD EXPR JMS I Z PUSH1 SKP / A, JMS I Z IDX1 JMS I Z GETSY1 B-1000+USYMB /USYMB=2000 B-1000+SYMB /SYMB=1000 A-1000+SPACE /SPACE=5600 C-1000+PLUS /PLUS=4600 C+3-1000+MINUS /MINUS=5200 C+5-1000+EXCLAM /EXCLAM=2200 J-1000+QUOTES /QUOTES=2400 G-1000+SCOLON /SCOLON=0200 C+7-1000+ANDS /ANDS=3400 G-1000+ALL /ALL=7600 / TAD Z VAL JMP .+3 / B1, CLA TAD Z LWC JMS I Z SGN SKP / JMS I Z IDX1 B2, JMS I Z GETSY1 / .-2-1000+SPACE /SPACE=5600 GET-1-1000+COMMA /COMMA=0600 B1-2-1000+SYMB /SYMB=1000 B1-2-1000+USYMB /USYMB=2000 ERONE-1000+EQUALS /EQUALS=1400 A+5-1000 / C, TAD CRIOR+1 /PLUS DCA Z SGN JMP B2-1 / TAD CRIOR+2 /MINUS JMP C+1 / TAD CRIOR JMP C+1 / TAD CRIOR+3 /AR/D JMP C+1 / J, JMS I .+4 DCA Z CON ISZ Z ANY JMP B2-1 / GETIN / H, TAD Z C400 DCA H+3 JMP A+1 / 0 / B, TAD Z VAL JMS I Z SGN JMS I Z GETSY1 / EQU-1000+EQUALS /EQUALS=1400 GET-1000+SPACE /SPACE=5600 B2+1-1000 / JMS I Z DEFIN1 GET, JMS I Z GETAD1 TAD Z ADR JMS I CRIOR G, JMS I Z POPU1 DCA EXPR TAD Z CON DCA Z EVAL TAD H+3 DCA Z IND JMS I Z POPU1 DCA H+3 JMS I Z POPU1 DCA Z SGN TAD Z INST DCA Z MICRO JMS I Z POPU1 DCA Z INST JMS I Z POPU1 DCA Z CON JMP I EXPR / 0 / MKERM, 0 TAD Z PCON AND Z C177 SNA CLA JMP ERONE-1 / TAD Z EVAL DCA MKERM-1 JMS I Z PAGE1 /PUNCH CONSTANTS TAD Z AADR DCA Z EVAL JMS I Z PUNOR1 TAD MKERM-1 DCA Z EVAL JMP I MKERM /EXIT / TAD Z C4 ERONE, JMS I Z ERR1 JMP I Z MAIN1 / EQU, TAD Z VADR1 DCA CRIOR-1 JMS I Z IDX1 JMS I Z EXPR1 TAD Z EVAL DCA I CRIOR-1 TAD CRIOR-1 TAD Z M3 DCA Z SADR JMS I Z TYPAD1 / SYMB / JMP I Z MAIN1 / 0 CRIOR, RIOR RADD RSUB RAND II / JMS I Z POPU1 CLA TAD CRIOR+4 JMP G+1 /PAUSE /MACRO COMPILER / /PAGE 1200 *1200 GETADR, 0 JMS I Z IDX1 TAD GETADR JMS I Z PUSH1 JMS I Z EXPR1 TAD Z MICRO SMA CLA JMP .+3 / TAD Z EVAL JMP LEAVE-1 / TAD Z EVAL AND Z C7600 SNA JMP AWAY+1 / CIA TAD Z APAGE SNA CLA JMP AWAY / TAD Z IND SNA CLA JMP .+4 / TAD Z C5 JMS I NUPAGE+1 JMP LEAVE / TAD Z PASS SPA CLA JMS I Z CONC1 TAD Z C6 JMS I NUPAGE+1 TAD Z CCON TAD Z C600 DCA Z ADR LEAVE, JMS I Z POPU1 DCA GETADR JMP I GETADR / AWAY, TAD Z C200 DCA NUPAGE TAD Z EVAL AND Z C177 TAD NUPAGE TAD Z IND JMP LEAVE-1 / II, TAD Z CLIT JMS I Z PUSH1 TAD Z CHARX TAD Z M64 DCA Z CLIT JMS I Z IDX1 JMS I Z EXPR1 TAD Z CLIT SZA CLA JMP .+4 / JMS I Z CONC1 TAD Z APAGE SKP / JMS I Z CONZ1 TAD Z CCON DCA Z ADR JMS I Z POPU1 DCA Z CLIT JMP I .+1 / GET+1 / LDT, 0 TAD Z CHARX SNA JMP I LDT / DCA NUPAGE TAD NUPAGE TAD Z M45 SMA CLA JMP .+5 / ISZ Z IN /LETTER JMS I Z IDX1 TAD NUPAGE JMP I LDT / DCA Z CHARX JMP I LDT / A1W, 0 JMS LDT DCA NUPAGE TAD NUPAGE CLL RTL DCA Z VAL TAD Z VAL RTL RAL TAD Z VAL TAD NUPAGE DCA Z VAL JMS LDT TAD Z VAL JMP I A1W / AAS, 0 JMS A1W DCA Z TEM1 JMS A1W DCA Z TEM2 JMS A1W DCA Z TEM3 JMS LDT SNA CLA JMP I AAS / JMP .-3 / POPUP1, 0 CLA CMA TAD Z POINT DCA Z POINT TAD I Z POINT JMP I POPUP1 / ORGIC, JMS I Z IDX1 JMS I Z EXPR1 TAD Z EVAL DCA Z AADR TAD Z EVAL AND Z C7600 CIA TAD Z APAGE SNA CLA JMP .+4 / JMS I Z PAGE1 TAD Z AADR DCA Z EVAL JMS I NUPAGE+2 JMS I Z PUNOR1 JMP I Z MAIN1 / NUPAGE, 0 UNDERR ZEROT /PAUSE /MACRO COMPILER / /PAGE 1400 *1400 MAIN, JMP PASS1 / CLA PASS1, TAD Z PERMA DCA Z SEND LAS RTR SPA CLA JMP .+4 / SNL TAD Z C400 TAD Z C364 TAD Z MACBOT DCA Z MACEND JMS I OCTS1+2 DCA Z PASS DCA Z NOW3 TAD Z M1000 DCA I OCTS1+5 JMS SETORG TAD CJMP1+1 PASS1P, DCA MAIN JMS I OCTS1 JMS I CJMP1-1 MAINSE, JMS I Z IDX1 TAD Z LIST1 /3331 DCA Z POINT DCA Z ANY DCA Z IND JMS I Z EXPR1 TAD Z ANY SNA CLA JMP MAINSE / TAD Z EVAL JMS ONEREG JMP MAINSE / ONEREG, 0 DCA Z EVAL TAD Z STUP JMS I Z FIND2 DCA SETORG TAD Z AADR AND Z C177 DCA SETORG-1 TAD I SETORG CIA TAD SETORG-1 SMA CLA JMP GETPAG / TAD Z STUP2 JMS I Z FIND2 DCA SETORG ISZ SETORG-1 TAD SETORG-1 CIA TAD I SETORG SMA CLA JMP .+3 / TAD SETORG-1 DCA I SETORG JMS I Z PUNON1 ISZ Z AADR TAD SETORG-1 AND Z C177 SZA CLA JMP I ONEREG / JMS I Z PAGE1 JMS I CJMP1-1 JMP I ONEREG / GETPAG, TAD Z APAGE SNA CLA IAC IAC JMS I Z ERR1 JMP MAINSE / 0 / SETORG, 0 TAD Z C200 DCA Z AADR TAD Z C200 DCA Z APAGE TAD Z CBUFE DCA Z PCON TAD Z ZBUFE DCA Z ZCON TAD Z NOW3 SNA CLA /SKIP IF PASS 3 JMS I OCTS1+1 TAD Z C200 DCA Z EVAL TAD M40 DCA Z CON CLA CMA TAD Z STUP DCA Z AUT17 CLA CMA TAD Z STUP2 DCA Z AUT16 TAD Z C200 DCA I Z AUT17 DCA I Z AUT16 ISZ Z CON JMP .-4 / JMS I Z PUNOR1 JMP I SETORG / OCTS1, OCTS LT UNPUN REPUN TYCAR PUNONE+1 JMP OPASS-1400 / PASS3, TAD .-1 DCA I OCTS1+5 ISZ Z NOW3 JMS I OCTS1+4 PASS2, CLA CMA DCA Z PASS DCA Z CKSUM JMS I OCTS1+3 JMS SETORG TAD CJMP1 JMP PASS1P / ZEROT CJMP1, JMP PASS1 JMP PASS2 HLT HLT M40, 0-40 /PAUSE /MACRO COMPILER / /PAGE 1600 *1600 BIT6, 0 TAD Z ITEM AND Z C177 SNA CLA JMP I STRING-1 / TAD Z ITEM TAD Z M240 SPA /LESS THAN 240? JMP .+11 /YES / TAD M11 /RIGHT PAREN? SNA JMP I STRING-1 /YES / TAD Z M64 /RIGHT BRACKET? SNA JMP I STRING-1 /YES / SPA CLA JMP BON /LESS THAN 336 / CLA TAD Z ITEM TAD M211 SNA JMP BASSEM+6 /TAB=54 / TAD Z M1 SNA JMP I STRING-1 /LF / TAD Z M2 SNA JMP I STRING-1 /214 / TAD Z M1 SNA JMP BASSEM+7 /CR=46 / TAD M162 SNA CLA JMP I STRING-1 / TAD Z C10 JMS I Z ERR1 TAD Z ITEM HLT LAS /CHANGE ILLEGAL CHAR DCA Z ITEM JMP BIT6+1 / BON, TAD Z ITEM TAD M260 SPA CLA JMP BASSEM+3 /LESS THAN 260 / TAD Z ITEM TAD Z M301 SPA CLA JMP BASSEM+2 /LESS THAN 301 / TAD Z ITEM TAD M333 SPA CLA BASSEM, TAD M41 /301 TO 332 CV 1 TO 32 TAD Z M12 /333 TO 300 CV 74 TO 76 TAD M41 /260 TO 300 CV 33 TO 53 TAD M164 /240 TO 257 CV 54 TO 73 TAD Z ITEM JMP I BIT6 /EXIT / TAD Z C6 TAD C46 JMP I BIT6 / TSTPAS, 0 ISZ Z PASS JMP I TSTPAS CLA CMA DCA Z PASS JMP I Z MAIN1 / SKIP2, 0 DCA RAND TAD C240 JMS I Z DECOUT ISZ RAND JMP .-3 / JMP I SKIP2 / RAND, 0 AND Z CON DCA Z CON JMP I RAND / RIOR, 0 DCA Z VAL TAD Z CON CMA AND Z VAL TAD Z CON DCA Z CON JMP I RIOR / IDX+1 / STRING, JMS I ENDSTR+3 CIA DCA Z VAL JMS I ENDSTR+3 TAD Z VAL SNA CLA JMP ENDSTR+1 / TAD Z ITEM RTL RTL RTL AND C7700 DCA Z EVAL JMS I ENDSTR+3 TAD Z VAL SNA CLA JMP ENDSTR / TAD Z ITEM AND CZ77 TAD Z EVAL JMS I ENDSTR-1 JMP STRING+3 / WAITT, HLT CLA JMP I Z MAIN1 / ONEREG / ENDSTR, TAD Z EVAL JMS I ENDSTR-1 JMP I Z MAIN1 / GETIN HLT CZ77, 77 C7700, 7700 C240, 240 C46, 46 M164, 0-164 M41, 0-41 M333, 0-333 M260, 0-260 M162, 0-162 M211, 0-211 M11, 0-11 /PAUSE /MACRO COMPILER / /PAGE 2000 *2000 ENTS, 0 TAD Z VAL DCA I Z SEND TAD Z SEND DCA Z VADR JMS SENDP TAD Z TEM3 DCA I Z SEND JMS SENDP TAD Z TEM2 DCA I Z SEND JMS SENDP TAD Z TEM1 DCA I Z SEND TAD Z SEND DCA Z SADR TAD I ENTS ISZ ENTS DCA .+2 JMS I Z TYPAD1 / 0 / JMS SENDP TAD Z MACEND CIA TAD Z SEND SMA CLA JMP I ENTS / SYMEX, TAD Z C3 JMS I Z ERR1 TAD Z M1000 DCA SWITCH TAD Z M1000 DCA IDX+1 HLT CLA JMP .-1 / IDX, 0 NOP /OR JMP IDXMAC JMS GETIN TAD M257 /SLASH? SNA CLA JMP COMMEN / JMS I SENDP-1 /BIT6 SR DCA Z CHARX TAD Z CHARX DCA Z CHARX2 TAD Z CHARX SWITCH, NOP /MACRO STORE CLA JMP I IDX / IDXMAC, NOP TAD JMPOUT+1 DCA IDXMAC TAD I GETIN RTR RTR RTR AND CT77 JMP IDX+7 / RIGHT, TAD Z M1000 DCA IDXMAC TAD I GETIN ISZ GETIN JMP RIGHT-2 / JMPOUT, JMP IDXMAC / JMP RIGHT HSGET / GETIN, 0 JMS I GETIN-1 DCA Z ITEM TAD Z NOW3 SZA CLA JMS I Z SYMLST TAD Z ITEM JMP I GETIN / COMMEN, JMS GETIN TAD M215 SNA CLA JMP IDX+6 / JMP COMMEN / BIT6 / SENDP, 0 CLA CMA TAD Z SEND DCA Z SEND JMP I SENDP / SAVE, 0 TAD Z SADR DCA REPUN TAD Z TYPE DCA RESTOR-1 TAD Z VADR DCA Z VADR1 JMP I SAVE / REPUN, 0 TAD Z M1000 DCA I .+2 JMP I REPUN / PUN+1 0 / RESTOR, 0 TAD REPUN DCA Z SADR TAD RESTOR-1 DCA Z TYPE TAD Z VADR1 DCA Z VADR JMP I RESTOR / MSTOR1, PACK / EXMEM, JMS I Z EXPR1 TAD Z PASS SMA CLA JMP I Z MAIN1 / TAD Z NOW3 SZA CLA JMP I Z MAIN1 / TAD Z EVAL AND Z C7 CLL RTL RAL TAD CT300 JMS I Z BINOUT JMP I Z MAIN1 / 2000 7777 CT300, 300 M215, 0-215 CT77, 77 M257, 0-257 /PAUSE /MACRO COMPILER / /PAGE 2200 *2200 DPCV, 0 ISZ Z ANY DCA Z HIC DCA Z LWC DCA RTD16 DCA SIGN DCA DPN TAD Z CHARX2 TAD M67 SNA JMP DPCS / TAD Z M2 SZA CLA JMP DPCS+1 / CLA CMA DCA SIGN / DPCS, JMS I Z IDX1 TAD Z CHARX2 TAD Z M45 SMA JMP I DPCV / TAD Z C12 SPA JMP I DPCV / DCA MTD6 TAD Z HIC AND M400 SZA CLA JMP DPCS ISZ DPN ISZ RTD16 JMS MT10 JMP DPCS / DECIM, JMS DECIMS JMP I Z B21 / OCT, JMS OCTS JMP I Z B21 / DECIMS, 0 TAD MTSW+5 DCA MTSW JMP I DECIMS / OCTS, 0 TAD Z M1000 DCA MTSW JMP I OCTS / MT10, 0 TAD Z LWC DCA TIC+1 TAD Z HIC DCA TIC JMS MTRL JMS MTRL / MTSW, JMS MTAD /NOP(OCT); JMS MTAD(DEC) / JMS MTRL TAD MTD6 DCA TIC+1 DCA TIC JMS MTAD JMP I MT10 / MTRL, 0 CLA CLL TAD Z LWC RAL DCA Z LWC TAD Z HIC RAL DCA Z HIC JMP I MTRL / MTAD, 0 CLA CLL TAD Z LWC TAD TIC+1 DCA Z LWC RAL TAD Z HIC TAD TIC DCA Z HIC JMP I MTAD / RTD16, 0 ZUNCON ENDOP, JMS I Z PAGE1 JMS I .-2 JMP I Z FINEND / PASS1-1 PASS2 PASS1+2 / INITL, LAS SPA JMP I INITL-3 / RAL SPA JMP I INITL-2 / RAL SPA JMP I INITL-1 / RAL SMA CLA JMP I Z MAINEX / DCA Z CHARAC JMP I .+1 / PASS3 SIGN, 0 DPN, 0 MTD6, 0 TIC, 0 0 / ERR7, 0 TAD Z TYPE TAD Z C6000 SNA CLA JMP I ERR7 / TAD Z AADR CIA TAD I Z VADR SNA CLA JMP I ERR7 / TAD Z C7 JMS I Z ERR1 JMP I Z MAIN1 / UNDERR, 0 ISZ Z PASS JMP I UNDERR / JMS I Z ERR1 CLA CMA DCA Z PASS JMP I UNDERR / M400, 0-400 M67, 0-67 /PAUSE /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 /MACRO COMPILER / /PAGE 2600 *2600 TYPO, 0 IOF TLS TSF JMP .-1 ION CLA JMP I TYPO / OSANDV, 0 JMS OSYM TAD TYCAR TAD Z M7 JMS I Z SKIP TAD Z VAL JMS OPS JMS TYCAR JMP I OSANDV / OSYM, 0 DCA TYCAR TAD Z TEM1A JMS OX TAD Z TEM1A+1 JMS OX TAD Z TEM1A+2 JMS OX JMP I OSYM / TYCAR, 0 TAD C215 JMS I Z DECOUT TAD C212 JMS I Z DECOUT JMP I TYCAR / RSUB, 0 CIA TAD Z CON DCA Z CON JMP I RSUB / OX, 0 SNA JMP I OSYM / RAL DCA Z LWC DCA Z HIC TAD MN14 DCA Z MP1 JMP DV2 / DV3, TAD Z HIC RAL DCA Z HIC TAD Z HIC TAD Z M45 SZL DCA Z HIC CLA DV2, TAD Z LWC RAL DCA Z LWC ISZ Z MP1 JMP DV3 / TAD Z LWC JMS UNTRAN TAD Z HIC JMS UNTRAN JMP I OX / / UNTRAN, 0 SNA JMP I OSYM / TAD Z M33 SPA TAD C53 TAD C260 JMS I Z DECOUT ISZ TYCAR JMP I UNTRAN / OPS, 0 DCA OSYM TAD MN4 DCA TYCAR TAD OSYM RTL RAL DCA OSYM TAD OSYM RAL AND Z C7 TAD C260 JMS I Z DECOUT ISZ TYCAR JMP OPS+4 / JMP I OPS / LITBUF, 0 *2772 MN4, 0-4 C260, 260 C53, 53 MN14, 0-14 C212, 212 C215, 215 /PAUSE /MACRO COMPILER / /PAGE 3000 *3000 PUNONE, 0 NOP /OR JMP OPASS DCA UNPUN TAD Z EVAL RTR RTR RTR AND C77 TAD UNPUN JMS PUN TAD Z EVAL AND C77 JMS PUN CLA JMP I PUNONE / PUNORG, 0 TAD C100 JMS PUNONE JMP I PUNORG / PUN, 0 NOP /JMP I PUN IF UNPUN IOF PLS PSF JMP .-1 ION TAD Z CKSUM DCA Z CKSUM JMP I PUN / UNPUN, 0 TAD .-2 DCA PUN+1 JMP I UNPUN / PUNCHK, 0 TAD Z CKSUM RTR RTR RTR AND C77 JMS I Z BINOUT TAD Z CKSUM AND C77 JMS I Z BINOUT JMP I PUNCHK / PUNCON, 0 /PUNCH OUT CONSTANTS TAD Z CBUFE CIA TAD Z PCON SMA JMP I PUNCON / DCA NUCON TAD Z STUP JMS I Z FIND2 DCA Z EVAL TAD I Z EVAL TAD Z APAGE DCA Z EVAL JMS PUNORG CLA CMA TAD Z PCON DCA Z AUT17 TAD I Z AUT17 DCA Z EVAL JMS PUNONE ISZ NUCON JMP .-4 / JMP I PUNCON / ZUNCON, 0 TAD Z ZCON DCA Z PCON DCA Z APAGE TAD Z C200 JMS PUNCON CLA TAD Z PASS SMA CLA JMP I ZUNCON / TAD Z NOW3 SZA CLA JMP I ZUNCON / JMS PUNCHK JMS LT JMP I ZUNCON / NUCON, 0 0 / LT, 0 TAD Z C7600 DCA NUCON+1 TAD Z PASS SMA CLA JMP I LT / TAD Z C200 JMS I Z BINOUT ISZ NUCON+1 JMP .-3 / JMP I LT / OPS / OPASS, SNA CLA JMP .+4 / TAD Z EVAL DCA Z CURADD JMP I PUNONE / TAD Z CURADD JMS I OPASS-1 ISZ Z CURADD NOP TAD Z M2 JMS I Z SKIP TAD Z EVAL JMS I OPASS-1 TAD Z M2 JMS I Z SKIP JMS I .+2 JMP I PUNONE / EMPTY *3176 C100, 100 C77, 77 /PAUSE /MACRO COMPILER / /PAGE 3200 *3200 TABLE / ERROR, 0 TAD .-2 DCA FINUP-1 TAD Z NOW3 SZA CLA JMP I ERROR /EXIT / CLA CMA JMS I Z DECOUT /RUBOUT JMS I FINUP-3 /CR & LF TAD I FINUP-1 /GET ERROR CODE AND CC77 TAD CC100 /ASCII CODE JMS I Z DECOUT TAD I FINUP-1 RTR RTR RTR AND CC77 TAD CC100 JMS I Z DECOUT TAD C40 /SPACE JMS I Z DECOUT JMS I FINUP-4 TAD CC53 JMS I Z DECOUT TAD Z VAL1A SZA CIA TAD Z AADR JMS I FINUP-2 JMS I FINUP-3 CLA CMA JMS I Z DECOUT /RUBOUT JMP I ERROR /EXIT / OSYM TYCAR OPS 0 / FINUP, TAD Z NOW3 SZA CLA JMP .+4 TAD Z PASS SPA CLA JMS I .+3 HLT JMP I Z MAINEX ALPHA UNDERR AAS / GETASY, 0 CLA DCA Z IN JMS I GETASY-1 TAD Z IN SNA CLA JMP I GETASY / JMS I Z SEAR1 SKP CLA JMP CKUN /FOUND / DCA Z VAL JMS I Z ENTS1 USYMB TAD Z C12 JMS I GETASY-2 JMP I GETASY / CKUN, TAD Z TYPE TAD Z C6000 SZA CLA JMP I GETASY / CMA DCA Z TRUBL JMP CKUN-3 / C40, 240 CC100, 300 CC77, 77 CC53, 253 TABLE, 0511 /IE, ILLEGAL EQUALS 0520 /PE, CURRENT NONZERO PAGE EXCEEDED 0532 /ZE, ZERO PAGE EXCEEDED 0523 /SE, SYMBOL TABLE EXCEEDED 0502 /BE 1111 /II, ILLEGAL INDIRECT 0714 /LG, LINK GENERATED 0411 /ID, ILLEGAL REDEFINITION OF SYMBOL 0311 /IC, ILLEGAL CHARACTER 2015 /MP, MISSING PARAMETER MACRO CALL 2325 /US, UNDEFINED SYMBOL 1511 /IM, ILLEGAL FORMAT,MACRO DEFINITION LIST, 0 /PAUSE /MACRO COMPILER /SYMBOLIC ASSEMBLY LISTER / /PAGE 3600 *3600 TYCAR / LSTSYM, 0 TAD Z ITEM TAD M212 SZA JMP .+10 / TAD Z CHARAC SNA CLA JMP I LSTSYM /SYMBOLIC BUFFER EMPTY / TAD M14 JMS I Z SKIP /SPACE 12 CHARACTERS JMS EMPTY /EMPTY BUFFER JMP I LSTSYM / TAD Z M3 SNA CLA JMP I LSTSYM / TAD Z CHARAC TAD Z SEND DCA EMPTY /ADDRESS TO STORE CHAR TAD EMPTY CIA TAD Z MACEND SMA CLA JMP I LSTSYM /NO ROOM FOR CHAR / CLA CMA TAD Z CHARAC DCA Z CHARAC /UPDATE COUNTER/POINTER TAD Z ITEM DCA I EMPTY /STORE CHARACTER JMP I LSTSYM / EMPTY, 0 TAD Z CHARAC SNA CLA JMP .+12 /NO CHARACTERS IN BUFFER / TAD Z SEND JMP .+3 / CLA CMA TAD LT2 DCA LT2 /ADDR OF CHAR. TAD I LT2 JMS I Z DECOUT ISZ Z CHARAC JMP .-6 / JMS I LSTSYM-1 JMP I EMPTY / LT2, 0 TAD Z C7600 DCA EMPTY TAD Z C200 JMS I Z DECOUT ISZ EMPTY JMP .-3 / JMP I LT2 / FIRST+6 JMP I Z 1 / FIRST, 0 TAD FIRST-1 DCA DISMS TAD FIRST-2 DCA Z 1 NOP CLA TAD DELCNT-1 NOP DCA DELCNT /60 CPS DELAY FACTOR RFC /READ FROM 750 DCA DELCNT+2 /NOT READY FOR THIS CHAR DCA DELCNT+1 /READ GOING ON ION JMP I FIRST / NOP 0-723 /PDP 5 DELAY FACTOR DELCNT, 0 0 /7777 IF NO READ GOING ON 0 /7777 IF PREV CHAR PROCESSED 0 / INTHAN, DCA DELCNT+3 RSF JMP .+10 / RRB ISZ DELCNT+2 JMP DISMS+1 /PREV CHAR NOT PROCESSED / RFC DCA FIRST DCA DELCNT+1 JMP DISMS-2 / PCF MMCF DCF /LT PEN ADRB /A-D PLCF /PLOTTER MTS /MAG 57A KCC TCF NOP NOP NOP NOP NOP TAD DELCNT+3 ION DISMS, JMP I Z 1 / DCA FIRST TAD DELCNT DCA DELCNT+1 /DELAY TO INSURE 60 OP ISZ DELCNT+1 /LESS CPS JMP .-1 / CLA CMA /NOW GO JMP INTHAN+10 / HSGET, 0 CLA CMA IOF DCA DELCNT+2 ISZ DELCNT+1 JMP .+6 / RFC DCA DELCNT+2 TAD FIRST ION JMP I HSGET / RSF JMP .-1 ION JMP .-7 / HLT HLT / M14, 0-14 M212, 0-212 /PAUSE /MACRO COMPILER / /PAGE 4000 *4000 PUSH2, 0 DCA PACK TAD Z PCON CIA TAD Z POINT SMA CLA JMS I Z MKROOM /TEST FOR SPACE TAD PACK /ROOM NOW DCA I Z POINT ISZ Z POINT JMP I PUSH2 /EXIT / PACK, 0 NOP /NOP OR JMP RIGHT2 / CLL RTL RTL RTL DCA I Z MACEND TAD .+2 JMP XPACK / JMP RIGHT2 / RIGHT2, DCA PUSH2 TAD I Z MACEND AND CT7700 TAD PUSH2 DCA I Z MACEND ISZ Z MACEND TAD Z MACEND CIA TAD Z SEND SPA CLA JMP I .+4 / TAD Z M1000 XPACK, DCA PACK+1 JMP I PACK / SYMEX / MACROD, JMS I Z IDX1 TAD Z PASS SPA CLA JMP IGNORE / TAD Z M1000 DCA PACK+1 SKP / JMS I Z IDX1 DCA Z TRUBL JMS I Z GETSY1 / .-3-4000+SPACE /SPACE=5600 .+2-4000+USYMB /USYMB=2000 MACERR-4000+ALL /ALL=7600 / JMS COUDBE TAD Z MACEND DCA I Z VADR JMS I Z TYPAD1 / 0 / DCA PACK TAD Z SEND DCA SENTEM SKP / MAC3, JMS I Z IDX1 DCA Z TRUBL JMS I Z GETSY1 / MAC3-4000+SPACE /SPACE=5600 MAC4-4000+USYMB /USYMB=2000 MAC3-4000+SCOLON /SCOLON=0200 MAC5-4000+LANG /LANG=1200 MACERR-4000+ALL /ALL=7600 / MAC4, JMS COUDBE JMS I Z TYPAD1 5000 TAD PACK DCA I Z VADR ISZ PACK JMP MAC3+1 / SWITCH / MAC5, TAD CJMPHE DCA I .-2 TAD PACK+1 DCA CJMPHE-1 TAD Z MACEND DCA COUDBE JMS I Z IDX1 TAD Z CHARX TAD Z M33 SMA CLA JMP BCKMAC / JMS I Z GETAS1 TAD Z TYPE TAD M5000 SZA CLA JMP BCKMAC / TAD CJMPHE-1 DCA PACK+1 TAD COUDBE DCA Z MACEND TAD CS77 JMS PACK TAD I Z VADR JMS PACK TAD Z CHARX2 JMS PACK BCKMAC, TAD Z ITEM TAD M276 SZA CLA JMP MAC5+2 / ISZ Z MACEND TAD SENTEM DCA Z SEND TAD Z M1000 DCA I MAC5-1 JMP I Z MAIN1 / 0 CJMPHE, JMS I MSTOR1+2000 SENTEM, 0 / COUDBE, 0 ISZ Z TRUBL JMP I COUDBE / MACERR, TAD C13 JMS I Z ERR1 IGNORE, JMS I .+5 TAD M276 SZA CLA JMP IGNORE / JMP I Z MAIN1 / GETIN C13, 13 M276, 0-276 CS77, 77 M5000, 0-5000 CT7700, 7700 /PAUSE /MACRO COMPILER / /PAGE 4200 *4200 MACREF, CLA CMA TAD I Z GETSY1 DCA LATER-1 TAD Z M1000 DCA I EXIT2+4 TAD Z MACEND DCA LATER DCA LATER+1 TAD I LATER+2 DCA I LATER+3 JMP EXIT2-15 / RTURN, TAD I EXIT2+4 DCA PSWIT2 TAD Z MACEND DCA MCTEM JMS I Z IDX1 TAD Z CHARX TAD DEFPT+2 SNA JMP .+4 /; OR CR / TAD DEFPT+3 SZA CLA JMP RTURN / ISZ LATER+1 TAD PSWIT2 DCA I EXIT2+4 TAD MCTEM DCA Z MACEND TAD DEFPT+4 JMS I EXIT2+2 TAD Z CHARX2 TAD DEFPT+2 SZA CLA JMP RTURN / TAD Z M1000 DCA I LATER+3 DCA PSWIT2 TAD Z VAL DCA I WHERE2 TAD I EXIT2+3 DCA I EXIT2+5 TAD Z M1000 DCA I IDXMC EXIT2, JMS I Z IDX1 JMP I LATER-1 / PACK JMPOUT PACK+1 IDX+1 / ESCAPE, CLA CMA TAD I Z GETSY1 DCA LATER-1 JMS I Z RESTO1 TAD PSWIT2 SZA CLA JMP NDARGU / ISZ PSWIT2 JMS I Z IDX1 CLA IAC TAD Z CHARX CIA DCA MCTEM TAD MCTEM TAD LATER+1 SPA CLA JMP FINIS-2 / TAD I WHERE2 DCA DEFPT TAD I IDXMC DCA DEFPT+1 TAD LATER DCA I WHERE2 TAD Z M1000 DCA I IDXMC ISZ MCTEM SKP JMP EXIT2 / JMS I Z IDX1 TAD Z CHARX CIA TAD DEFPT+4 SZA CLA JMP .-5 / ISZ MCTEM JMP .-7 / JMP EXIT2 / NDARGU, DCA PSWIT2 TAD DEFPT DCA I WHERE2 TAD DEFPT+1 DCA I IDXMC JMP EXIT2 / TAD DEFPT+5 JMS I Z ERR1 FINIS, TAD LATER DCA Z MACEND TAD Z M1000 DCA I EXIT2+5 JMP I .+1 / G 0 LATER, 0 0 /PARAMETER COUNT CJMPHE SWITCH PSWIT2, 0 MCTEM, 0 WHERE2, GETIN IDXMC, IDXMAC DEFPT, 0 0 0-46 0-22 77 11 /PAUSE /MACRO COMPILER / /PAGE 4400 *4400 FINALL, 0 CLA CMA DCA PRSW JMS I DPCV1 CLA TAD PRSW SNA CLA JMP FK2 / TAD Z CHARX2 TAD Z M72 SZA CLA JMP FK2+1 / DCA I MSGN-1 DCA PRSW JMP I DPCV1+1 / FK2, TAD I MSGN-1 CMA IAC DCA SEXP TAD I INDIC2 SZA CLA JMP NOWNEG / TAD C27 DCA Z BEXP JMS FLNR TAD Z CHARX2 TAD M5 SZA CLA JMP CVRT / JMS I Z IDX1 TAD I SIGN2 DCA FLNR TAD Z HIC DCA AMT TAD Z LWC DCA PRSW JMS I DPCV1 JMS MSGN TAD Z HIC SPA CMA SZA CLA JMP EXTOO / TAD Z LWC TAD SEXP DCA SEXP TAD FLNR DCA I SIGN2 TAD AMT DCA Z HIC TAD PRSW DCA Z LWC CVRT, TAD SEXP SNA JMP NOWNEG / SMA CLA JMP NOWNEG+2 / JMS I DPCV1+2 TEN+2 ISZ SEXP JMP CVRT / NOWNEG, JMS MSGN JMP I FINALL / JMS I DPCV1+2 / TEN-1 / CLA CMA TAD SEXP DCA SEXP JMP CVRT / EXTOO, TAD Z C3777 DCA Z BEXP DCA Z LWC TAD C2000 DCA Z HIC JMP I FINALL / PRSW, 0 SEXP, 0 DPCV1, DPCV DPCS FLMY / FLNR, 0 /NORMALIZE FLOATING POINT CLA CLL DCA AMT TAD Z HIC SZA CLA JMP .+4 / TAD Z LWC SNA CLA JMP EXPN+3 / TAD Z HIC LOP, RAL CLL SPA CLA JMP EXPN / TAD Z LWC RAL DCA Z LWC TAD Z HIC RAL DCA Z HIC ISZ AMT JMP LOP-1 / EXPN, TAD AMT CIA TAD Z BEXP DCA Z BEXP JMP I FLNR / AMT, 0 RTDIG / MSGN, 0 CLA CLL TAD I SIGN2 SMA CLA JMP I MSGN / TAD Z LWC CMA IAC DCA Z LWC TAD Z HIC CMA SZL IAC DCA Z HIC JMP I MSGN / INDIC2, INDIC SIGN2, SIGN HLT HLT C2000, 2000 M5, 0-5 C27, 27 /PAUSE /MACRO COMPILER / /PAGE 4600 *4600 FLMY, 0 TAD I FLMY DCA Z AUT17 TAD I Z AUT17 DCA OP10 TAD I Z AUT17 DCA OP10+1 TAD I Z AUT17 DCA OP10+2 ISZ FLMY TAD OP10 TAD Z BEXP IAC DCA Z BEXP CLL TAD Z HIC DCA Z MP2 TAD OP10+2 JMS MP44 DCA CC TAD Z MP5 DCA CC+1 TAD OP10+1 DCA Z MP2 TAD Z LWC JMS MP44 TAD CC DCA CC RAL TAD Z MP5 TAD CC+1 DCA CC+1 RAL DCA CC+2 TAD Z HIC DCA Z MP2 TAD OP10+1 JMS MP44 TAD CC+1 DCA Z LWC RAL TAD Z MP5 TAD CC+2 DCA Z HIC JMS I .+2 JMP I FLMY / FLNR OP10, 0 0 0 / MP44, 0 DCA Z MP1 DCA Z MP5 TAD C7764 DCA Z MP3 TAD Z MP1 RAR DCA Z MP1 TAD Z MP5 SNL JMP .+3 / CLL TAD Z MP2 RAR DCA Z MP5 ISZ Z MP3 JMP MP44+5 / TAD Z MP1 RAR CLL JMP I MP44 / TEN, 4 2400 0 0-3 3146 3146 CC, 0 0 0 / FLOAT, JMS FRCDEC DCA INDIC JMS I DOUBLE-2 JMP I DOUBLE-1 / TAD Z BEXP JMS I ONERE1 TAD Z HIC JMS I ONERE1 TAD Z LWC JMS I ONERE1 JMP FLOAT+2 / DANDF MAINSE+1 / DOUBLE, JMS FRCDEC CLA CMA DCA INDIC JMS I DOUBLE-2 JMP I DOUBLE-1 / TAD Z HIC JMS I ONERE1 TAD Z LWC JMS I ONERE1 JMP DOUBLE+3 / FRCDEC, 0 TAD I INDIC-2 DCA INDIC-3 JMS I INDIC-1 JMP I FRCDEC / RET, 0 TAD INDIC-3 DCA I INDIC-2 JMP I RET / 0 MTSW DECIMS INDIC, 0 ONERE1, ONEREG HLT HLT HLT HLT HLT HLT HLT HLT HLT HLT / C7764, 7764 /PAUSE /MACRO COMPILER / /PAGE 6117 *6117 BOT, 0 170 /CIF 4336 0 6202 163 /CDF 4336 0 6201 1243 /RIB 4112 0 6234 1247 /RMF 4336 0 6201 *6214 762 /MQA 4045 0 7501 1302 /SCA 4045 0 7441 762 /MQL 4674 0 7421 717 /LSR 5232 0 7417 70 /ASR 5232 0 7415 1307 /SHL 4674 0 7413 1023 /NMI 4515 0 7411 252 /DVI 4515 0 7407 766 /MUY 5635 0 7405 *6320 51 /ADIC 4520 0 6544 51 /ADSC 5302 0 6542 51 /ADCC 4162 0 6541 51 /ADRB 5234 0 6534 51 /ADCV 4205 0 6532 51 /ADSF 5305 0 6531 174 /CMP 5120 0 6102 1314 /SMP 5120 0 6101 756 /MMML 4755 0 6766 756 /MMLC 4677 0 6766 756 /MMCC 4162 0 6762 756 /MMRS 5255 0 6774 /PAUSE /MACRO COMPILER / /PAGE 6400 *6400 756 /MMSC 5302 0 6771 756 /MMCF 4165 0 6772 756 /MMSF 5305 0 6761 756 /MMLF 4702 0 6754 756 /MMLM 4711 0 6752 756 /MMLS 4717 0 6751 1236 /RDM 4741 0 6122 1300 /SAF 4336 0 6124 1331 /SZO 5053 0 6114 235 /DIV 5456 0 6121 766 /MUL 4674 0 6111 1236 /RDA 4045 0 6112 711 /LMQ 5165 0 6102 675 /LAR 5232 0 6104 160 /CAM 4741 0 6101 756 /MMMF 4747 0 6756 756 /MMMM 4756 0 6757 744 /MCA 4045 0 6745 763 /MRCA 4160 0 6744 763 /MRWC 5526 0 6742 744 /MCC 4157 0 6741 765 /MTRS 5255 0 6734 752 /MIEF 4277 0 6732 746 /MEEF 4277 0 6732 744 /MCED 4275 0 6732 745 /MDEF 4277 0 6732 764 /MSEF 4277 0 6731 752 /MIWF 5531 0 6722 746 /MEWF 5531 0 6722 744 /MCWF 5531 0 6722 745 /MDWF 5531 0 6722 764 /MSWF 5531 0 6721 /PAUSE /MACRO COMPILER / /PAGE 6600 *6600 765 /MTC 4157 0 6716 757 /MNC 4157 0 6712 764 /MSUR 5433 0 6711 765 /MTS 5277 0 6706 744 /MCD 4224 0 6702 764 /MSCR 4201 0 6701 *6720 1134 /PLPD 5124 0 6524 1134 /PLPL 5134 0 6521 1134 /PLUD 5415 0 6522 1134 /PLDD 4230 0 6514 1134 /PLDU 4251 0 6512 1134 /PLPR 5142 0 6511 1134 /PLPU 5145 0 6504 1134 /PLCF 4165 0 6502 1134 /PLSF 5305 0 6501 240 /DLB 4112 0 6074 227 /DCF 4336 0 6072 247 /DSF 4336 0 6071 /PAUSE /MACRO COMPILER / /PAGE 7000 *7000 255 /DYS 5277 0 6067 254 /DXS 5277 0 6057 235 /DIY 5635 0 6064 235 /DIX 5570 0 6054 255 /DYL 4674 0 6063 227 /DCY 5635 0 6061 254 /DXL 4674 0 6053 227 /DCX 5570 0 6051 354 /FNOR 5075 0 7000 356 /FPUT 5435 0 6000 345 /FGET 4315 0 5000 342 /FDIV 4543 0 4000 353 /FMPY 5151 0 3000 361 /FSUB 5413 0 2000 337 /FADD 4230 0 1000 343 /FEXT 5614 0 0 1360 /TLS 5277 0 6046 1364 /TPC 4157 0 6044 1347 /TCF 4336 0 6042 1367 /TSF 4336 0 6041 651 /KRB 4112 0 6036 651 /KRS 5277 0 6034 632 /KCC 4157 0 6032 652 /KSF 4336 0 6031 1134 /PLS 5277 0 6026 1140 /PPC 4157 0 6024 1123 /PCF 4336 0 6022 1143 /PSF 4336 0 6021 1240 /RFC 4157 0 6014 1254 /RRB 4112 0 6012 1255 /RSF 4336 0 6011 51 /ADC 4157 0 6004 /PAUSE /MACRO COMPILER / /PAGE 7200 *7200 534 /IOF 4336 0 6002 534 /ION 5006 0 6001 417 /GLK 4627 0 7204 1323 /STL 4674 0 7120 1323 /STA 4045 0 7240 675 /LAS 5277 0 7604 170 /CIA 4045 0 7041 464 /HLT 5344 0 7402 1076 /OSR 5232 0 7404 1312 /SKP 5120 0 7410 1331 /SZL 4674 0 7430 1315 /SNL 4674 0 7420 1315 /SNA 4045 0 7450 1317 /SPA 4045 0 7510 1331 /SZA 4045 0 7440 1314 /SMA 4045 0 7500 516 /IAC 4157 0 7001 1256 /RTL 4674 0 7006 1233 /RAL 4674 0 7004 1256 /RTR 5232 0 7012 1233 /RAR 5232 0 7010 174 /CML 4674 0 7020 174 /CMA 4045 0 7040 173 /CLL 4674 0 7100 173 /CLA 4045 0 7200 1025 /NOP 5120 0 7000 1073 /OPR 5232 0 7000 534 /IOT 5344 0 6000 577 /JMP 5120 0 5000 577 /JMS 5277 0 4000 227 /DCA 4045 0 3000 540 /ISZ 5702 0 2000 /PAUSE /MACRO COMPILER / /PAGE 7400 *7400 1345 /TAD 4224 0 1000 63 /AND 4224 0 0 / 2000 /QUOTE 4000 56 2400 2000 /AMPERSAND 4000 62 3400 4251 /DUBL 0126 0 4735 4352 /FLTG 1353 0 4720 5056 /OCTAL 1345 0674 2243 4231 /DECIMAL 0170 0742 2241 5351 /TEXT 1614 0 1727 4000 /DOLLAR 0 60 2320 4231 /DEFINE 0347 1013 4043 4347 /FIXTAB 1614 47 554 4321 /EXPUNG 1145 1015 556 5121 /PAUSE 1434 0271 1755 5121 /PAGE 410 0 610 4347 /FIELD 305 224 2154 4000 /> 0 51 4336 4000 /ESCAPE 0 77 4261 2000 /< 4000 47 1200 2000 /; 4000 46 200 4000 /E 0 74 1174 4000 /( 0 64 1174 2000 /! 4000 55 2200 4000 /* 0 66 1355 4000 /.,POINT 0 72 641 2000 /, ,COMMA 4000 70 600 2000 /= 4000 50 1400 5702 /Z 0 0 1022 4515 /I 0 0 1071 2000 /- 4000 71 5200 2000 /+ 4000 67 4600 2000 /SPACE 4000 54 5600 /PAUSE $