SUBFILE: STRAN.IN @16:3 23-MAY-1979 <055> (1089) INTEGER INPTR INTEGER OUTPTR INTEGER INMAX INTEGER MAXTAB INTEGER MAXLIN INTEGER IFMAX INTEGER MAXLEV INTEGER LINENO INTEGER PAGE INTEGER CLINE INTEGER TLIMIT INTEGER LN INTEGER I, J, K INTEGER II, JJ, KK INTEGER LEXVAL INTEGER SLEN INTEGER LEVEL INTEGER LEN INTEGER INCHAN INTEGER OUTCHN INTEGER LPTCHN INTEGER TTICHN INTEGER TTOCHN INTEGER PROCCN INTEGER COMCHN INTEGER TABS (10) LOGICAL SKIPFL LOGICAL POFF LOGICAL FIRST INTEGER ISP INTEGER ICSTK (20) INTEGER IFSP INTEGER IFST (20) INTEGER LPSP INTEGER LPST (100) LOGICAL TSEEN INTEGER CHAR INTEGER CTEMP LOGICAL NEWFIL INTEGER COMPMS (11) INTEGER LSAVE (5) INTEGER PSAVE (5) INTEGER FFILE INTEGER EOF INTEGER LETTER INTEGER DIGIT INTEGER TAB INTEGER EOL INTEGER BLANK INTEGER QUOTE INTEGER GIZZY INTEGER LPAREN INTEGER RPAREN INTEGER AST INTEGER COMMA INTEGER PERIOD INTEGER SLASH INTEGER CHAR0 INTEGER CHAR1 INTEGER CHAR9 INTEGER SEMI INTEGER EQUAL INTEGER CHARA INTEGER CHARZ INTEGER BBLANK INTEGER UPAROW INTEGER DOOP INTEGER WHILE INTEGER ENDOP INTEGER FOR INTEGER DOLOOP INTEGER BREAK INTEGER NEXT INTEGER IFOP INTEGER ELSE INTEGER ENDIF INTEGER DEFINE INTEGER HEAD INTEGER EJECT INTEGER INCLUD INTEGER OUTFIL INTEGER IBUF (42) INTEGER PBUF (58) INTEGER HBUF (42) INTEGER OUTBUF (42) INTEGER BUF (58) INTEGER NAME (22) COMMON /STRN/ INPTR COMMON /STRN/ OUTPTR COMMON /STRN/ INMAX COMMON /STRN/ MAXTAB COMMON /STRN/ MAXLIN COMMON /STRN/ IFMAX COMMON /STRN/ MAXLEV COMMON /STRN/ LINENO COMMON /STRN/ PAGE COMMON /STRN/ CLINE COMMON /STRN/ TLIMIT COMMON /STRN/ LN COMMON /STRN/ I, J, K COMMON /STRN/ II, JJ, KK COMMON /STRN/ LEXVAL COMMON /STRN/ SLEN COMMON /STRN/ LEVEL COMMON /STRN/ LEN COMMON /STRN/ INCHAN COMMON /STRN/ OUTCHN COMMON /STRN/ LPTCHN COMMON /STRN/ TTICHN COMMON /STRN/ TTOCHN COMMON /STRN/ PROCCN COMMON /STRN/ COMCHN COMMON /STRN/ TABS COMMON /STRN/ SKIPFL COMMON /STRN/ POFF COMMON /STRN/ FIRST COMMON /STRN/ ISP COMMON /STRN/ ICSTK COMMON /STRN/ IFSP COMMON /STRN/ IFST COMMON /STRN/ LPSP COMMON /STRN/ LPST COMMON /STRN/ TSEEN COMMON /STRN/ CHAR COMMON /STRN/ CTEMP COMMON /STRN/ NEWFIL COMMON /STRN/ COMPMS COMMON /STRN/ LSAVE COMMON /STRN/ PSAVE COMMON /STRN/ FFILE COMMON /STRN/ EOF COMMON /STRN/ LETTER COMMON /STRN/ DIGIT COMMON /STRN/ TAB COMMON /STRN/ EOL COMMON /STRN/ BLANK COMMON /STRN/ QUOTE COMMON /STRN/ GIZZY COMMON /STRN/ LPAREN COMMON /STRN/ RPAREN COMMON /STRN/ AST COMMON /STRN/ COMMA COMMON /STRN/ PERIOD COMMON /STRN/ SLASH COMMON /STRN/ CHAR0 COMMON /STRN/ CHAR1 COMMON /STRN/ CHAR9 COMMON /STRN/ SEMI COMMON /STRN/ EQUAL COMMON /STRN/ CHARA COMMON /STRN/ CHARZ COMMON /STRN/ BBLANK COMMON /STRN/ UPAROW COMMON /STRN/ DOOP COMMON /STRN/ WHILE COMMON /STRN/ ENDOP COMMON /STRN/ FOR COMMON /STRN/ DOLOOP COMMON /STRN/ BREAK COMMON /STRN/ NEXT COMMON /STRN/ IFOP COMMON /STRN/ ELSE COMMON /STRN/ ENDIF COMMON /STRN/ DEFINE COMMON /STRN/ HEAD COMMON /STRN/ EJECT COMMON /STRN/ INCLUD COMMON /STRN/ OUTFIL COMMON /STRN/ IBUF COMMON /STRN/ PBUF COMMON /STRN/ HBUF COMMON /STRN/ OUTBUF COMMON /STRN/ BUF COMMON /STRN/ NAME \\\\\ SUBFILE: NLNAME.IN @15:59 23-MAY-1979 <055> (37) C EDIT DATE 09DEC78 15:40 C SOURCE FILE NLNAMEFTM.IN C AUTHOR F. T. MICKEY INTEGER NAME (9) COMMON /NLNAME/ NAME \\\\\ SUBFILE: OPERSA.IN @16:0 23-MAY-1979 <055> (311) C EDIT DATE 23FEB78 09:29 C SOURCE FILE OPERSAJH.IN C AUTHOR A. J. HOWARD INTEGER NINE INTEGER COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE INTEGER RBRACE, LBRACE, RETOP, CRUTCH INTEGER LPAREN, RPAREN, LBK, RBK INTEGER EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW INTEGER PLUS, MINUS, MULT, DIVIDE, MODOP INTEGER OROP, ANDOP, AOROP, XOROP, AANDOP INTEGER LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT INTEGER NEG, UPARO, DNARO, COM INTEGER LOC, GIZZY, QUOTE, ZRL, TEMPL INTEGER SP, DP, ST, HEX INTEGER ATSIGN COMMON /OPERS/ NINE COMMON /OPERS/ COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE COMMON /OPERS/ RBRACE, LBRACE, RETOP, CRUTCH COMMON /OPERS/ LPAREN, RPAREN, LBK, RBK COMMON /OPERS/ EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW COMMON /OPERS/ PLUS, MINUS, MULT, DIVIDE, MODOP COMMON /OPERS/ OROP, ANDOP, AOROP, XOROP, AANDOP COMMON /OPERS/ LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT COMMON /OPERS/ NEG, UPARO, DNARO, COM COMMON /OPERS/ LOC, GIZZY, QUOTE, ZRL, TEMPL COMMON /OPERS/ SP, DP, ST, HEX COMMON /OPERS/ ATSIGN \\\\\ SUBFILE: SSNAME.IN @16:0 23-MAY-1979 <055> (44) INTEGER SCR1 (6), SCR2 (6) N DATA SCR1 /'LOGOS.S1 '/ N DATA SCR2 /'LOGOS.S2 '/ P DATA SCR1 /'SY:LOGOS.S1 '/ P DATA SCR2 /'SY:LOGOS.S2 '/ \\\\\ SUBFILE: RSTDEF.IN @16:0 23-MAY-1979 <055> (133) C EDIT DATE 15NOV78 13:00 C SOURCE FILE RSTDEFAPB.IN C AUTHOR A.P. BUCHALTER C SOME CONSTANTS FOR REGSAVEAPB.FS (REGISTER STACK) C SAVSIZ= NUMBER OF ITEMS SAVED FOR EACH LEVEL INTEGER SAVSIZ C MAXLEV(1)=# LEVELS FOR BOOLEAN, (2)=# LEVELS CONDITIONAL INTEGER MAXLEV(2) C SCRLEV= LEVEL NUMBER FOR SCRATCH LEVEL INTEGER SCRLEV C LEVST= SEE REGSAVEAPB.FS INTEGER LEVST(2) DATA SAVSIZ/15/ C BOOLEAN STARTS AT 2 DATA MAXLEV/6,2/ DATA SCRLEV/7/ DATA LEVST/-2,4/ \\\\\ SUBFILE: STKDFE.IN @16:0 23-MAY-1979 <055> (40) C EDIT DATE 03DEC78 12:12 C SOURCE FILE STKDEFE.IN C AUTHOR A. J. HOWARD INTEGER OPCODE (20) EQUIVALENCE (STK (1, 9), OPCODE (1)) \\\\\ SUBFILE: NLARAY.IN @16:0 23-MAY-1979 <055> (83) C EDIT DATE 09DEC78 14:11 C SOURCE FILE NLARAYFTM.IN C AUTHOR F. T. MICKEY INTEGER NLIST (500) INTEGER NLOC (500) INTEGER NTEXT (1500) INTEGER NTEXTX (500) COMMON /NARAY/ NLIST COMMON /NARAY/ NLOC COMMON /NARAY/ NTEXT COMMON /NARAY/ NTEXTX \\\\\ SUBFILE: REGSJH.IN @16:0 23-MAY-1979 <055> (156) C EDIT DATE 30AUG78 08:28 C SOURCE FILE REGSJHP.IN C AUTHOR J.H.PERINE C PURPOSE DEFINE NAME LIST VALUES FOR RESERVED REGISTER NAMES INTEGER AREG, XREG, YREG, NRREGS INTEGER STATUS (10), STAREG, STXREG, STYREG INTEGER REGS (10) INTEGER ACTREG (2), ACTLO, ACTHI INTEGER NZREG EQUIVALENCE (ACTLO, ACTREG (1)) EQUIVALENCE (ACTHI, ACTREG (2)) EQUIVALENCE (STAREG, STATUS (1)) EQUIVALENCE (STXREG, STATUS (2)) EQUIVALENCE (STYREG, STATUS (3)) COMMON / REGS / AREG, XREG, YREG, NRREGS COMMON / REGS / STATUS, REGS, ACTREG, NZREG \\\\\ SUBFILE: IOCONF.IN @16:0 23-MAY-1979 <055> (116) C EDIT DATE 26JUL78 11:17 C SOURCE FILE IOCONFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X C INPUT/OUTPUT CONSTANTS AND DATA INTEGER IOSTEP INTEGER IONX INTEGER PACKET INTEGER IOFLAG INTEGER IOINDX INTEGER IONAME (6) COMMON /IOC/ IOSTEP COMMON /IOC/ IONX COMMON /IOC/ PACKET COMMON /IOC/ IOFLAG COMMON /IOC/ IOINDX COMMON /IOC/ IONAME \\\\\ SUBFILE: WFLAGS.IN @16:0 23-MAY-1979 <055> (286) C EDIT DATE 15MAR78 14:02 C SOURCE FILE WFLAGSJHP.IN C AUTHOR J.H.PERINE C PURPOSE DEFINE WORD FLAGS C WF1 CONSTANT C WF2 SET LOCATION COUNTER VALUE C WF3 FLOWCHART END C WF4 ABSOLUTE CODE (NO ADDRESS) C WF5 RELOCATABLE CODE (1 BYTE ADDRESS) C WF6 ADDRESS OFFSET C WF7 NAME LIST INDEX C WF8 RELOCATABLE CODE (2 BYTE ADDRESS) C WF9 TRANSFER LIST ENTRY C WF10 SET LOCATION COUNTER NUMBER C WF11 NOT USED C WF12 NAME LIST INDEX, RIGHT HALF ADDR C WF13 NAME LIST INDEX, LEFT HALF ADDR C WF14 SET LOAD LOCATION COUNTER C WF15 SET LOAD LOCATION COUNTER VALUE C WF16 NEGATIVE OFFSET FROM NAME LIST C WF17 ADJUST LOCATION COUNTER INTEGER WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,^ WF10,WF11,WF12,WF13,WF14,WF15,WF16,WF17 COMMON / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,^ WF9,WF10,WF11,WF12,WF13,WF14,WF15,^ WF16,WF17 C ADDITIONAL WORD FLAGS: C 1. DEFINE WFXX HERE AND IN WFDATA.FR C 2. ADJUST 'WFSTEP' AND 'WFCONTROL' IN BUILD BLOCK C 3. PUT IN 'LIST' CODE C 4. PUT IN 'OBJECT' CODE \\\\\ SUBFILE: OBDATA.IN @16:0 23-MAY-1979 <055> (49) C EDIT DATE 17AUG78 12:37 C SOURCE FILE OBDATAJHP.IN C AUTHOR J.H.PERINE C DECODE TABLES FOR OBJECT VERIFICATION INTEGER LINSTR (512) COMMON /OBJD/ LINSTR \\\\\ SUBFILE: STKDFB.IN @16:0 23-MAY-1979 <055> (76) C EDIT DATE 03DEC78 11:45 C SOURCE FILE STKDEFB.IN C AUTHOR A. J. HOWARD INTEGER MODE (40), SUBX (20), SUBXM (20), BIAS (40) EQUIVALENCE (STK (1, 3), MODE (1)) EQUIVALENCE (STK (1, 2), SUBX (1)) EQUIVALENCE (STK (1, 4), SUBXM (1)) EQUIVALENCE (STK (1, 5), BIAS (1)) \\\\\ SUBFILE: LISTCM.IN @16:0 23-MAY-1979 <055> (68) INTEGER LRET, OFFSET, LINEX, LTIME, LN INTEGER LINE (40) INTEGER INDXFL, LX, TABNR, TABX, LMODE LOGICAL LENTER COMMON /LCOM/ LRET, OFFSET, LINEX, LTIME, LN, LENTER COMMON /LCOM/ LINE COMMON /LCOM/ INDXFL, LX, TABNR, TABX, LMODE \\\\\ SUBFILE: GENLXY.IN @16:0 23-MAY-1979 <055> (228) INTEGER OREG 'INCLUDE' LOGOSAJH.IN, 'INCLUDE' REGSJHP.IN, 'INCLUDE' RMCODES.IN, 'INCLUDE' STKDEFA.IN, 'INCLUDE' STKDEFE.IN, 'INCLUDE' GENCOMAJH.IN, INTEGER BCODE (3, 3) DATA BCODE / 169, 173, 165, ^ // LDAI LDAABS LDAZP 162, 174, 166, ^ // LDXI LDXABS LDXZP 160, 172, 164/ // LDYI LDYABS LDYZP C CHECK FOR DIRECT LOAD C TS = OPCODE (SIDE) 'DOLOOP' I = 1, 3 'IF' (BCODE (I, 1) .EQ. TS) C CORE TO X OR Y DIRECTLY C OPCODE (SIDE) = BCODE (I, OREG) CALL REGMAN (SAVREG, OREG, DUMMY) CALL GENDO OPCODE (SIDE) = BCODE (I, 1) ACTLO = OREG RETURN 'ENDIF' 'END' C LOAD IT THROUGH THE AREG C CALL GENLA CALL GENTRA (AREG, OREG) RETURN END \\\\\ SUBFILE: SETEQU.IN @16:0 23-MAY-1979 <055> (140) C EDIT DATE 14SEP78 13:22 C SOURCE FILE SETEQUAJH.IN C AUTHOR A. J. HOWARD INTEGER LNAMEX, LMODE, LOPC, LWFOP, LWFOPN INTEGER RNAMEX, RMODE, ROPC, RWFOP, RWFOPN EQUIVALENCE (LNAMEX, NAMEX (19)) EQUIVALENCE (LMODE, MODE (19)) EQUIVALENCE (LOPC, OPCODE (19)) EQUIVALENCE (LWFOP, WFOP (19)) EQUIVALENCE (LWFOPN, WFOPND (19)) EQUIVALENCE (RNAMEX, NAMEX (20)) EQUIVALENCE (RMODE, MODE (20)) EQUIVALENCE (ROPC, OPCODE (20)) EQUIVALENCE (RWFOP, WFOP (20)) EQUIVALENCE (RWFOPN, WFOPND (20)) \\\\\ SUBFILE: CRUCOM.IN @16:0 23-MAY-1979 <055> (196) C EDIT DATE 22MAR78 11:09 C SOURCE FILE CRUCOMJHP.IN C AUTHOR J.H.PERINE C DEFINE OP CODE TABLES IN COMMON FOR CRUTCH & LIST INTEGER GROUP1 INTEGER IMPLID INTEGER NGROUP INTEGER NIMPLI INTEGER NOTHER INTEGER NRELTI INTEGER OTHERS INTEGER RELTIV INTEGER STAX INTEGER CSOW INTEGER CSWFA INTEGER CSOFF INTEGER CSNLX INTEGER CSWFB COMMON /CRUCH/ GROUP1 (24) COMMON /CRUCH/ IMPLID (75) COMMON /CRUCH/ NGROUP COMMON /CRUCH/ NIMPLI COMMON /CRUCH/ NOTHER COMMON /CRUCH/ NRELTI COMMON /CRUCH/ OTHERS (165) COMMON /CRUCH/ RELTIV (24) COMMON /CRUCH/ STAX COMMON /CRUCH/ CSOW, CSWFA, CSOFF, CSNLX, CSWFB \\\\\ SUBFILE: XNAMEA.IN @16:0 23-MAY-1979 <055> (44) C EDIT DATE 14JAN79 09:50 C SOURCE FILE XNAMEAJH.IN C AUTHOR A. J. HOWARD INTEGER XNX, XNXMAX, XNAME (100) COMMON /XNAMC/ XNX, XNXMAX, XNAME \\\\\ SUBFILE: LSDATA.IN @16:0 23-MAY-1979 <055> (48) C EDIT DATE 17APR78 13:12 C SOURCE FILE LSDATAJHP.IN C AUTHOR J.H.PERINE C DECODE TABLES FOR LIST OUTPUT INTEGER LINSTR (512) COMMON /LSTD/ LINSTR \\\\\ SUBFILE: OBJECT.IN @16:0 23-MAY-1979 <055> (168) C EDIT DATE 19AUG78 08:07 C SOURCE FILE OBJECTAJH.IN C AUTHOR A. J. HOWARD C CLUSTER 90 INTEGER AREAID (15), BCARD (41) INTEGER RWORD1, RWORD2, RWORD3, RWORD (3) INTEGER BTYPE INTEGER EXTDX, ERRFLG INTEGER NEWLCI INTEGER OFFSET, OW INTEGER RBITS, RCT INTEGER TWI INTEGER WF EQUIVALENCE (RWORD1, RWORD (1)) EQUIVALENCE (RWORD2, RWORD (2)) EQUIVALENCE (RWORD3, RWORD (3)) COMMON /OBJCOM/ AREAID, BCARD, RWORD COMMON /OBJCOM/ BTYPE COMMON /OBJCOM/ EXTDX COMMON /OBJCOM/ OFFSET, OW COMMON /OBJCOM/ RBITS COMMON /OBJCOM/ TWI COMMON /OBJCOM/ WF \\\\\ SUBFILE: LABCOM.IN @16:0 23-MAY-1979 <055> (48) C EDIT DATE 23AUG78 16:23 C SOURCE FILE LABCOMFTM.IN C AUTHOR F. T. MICKEY INTEGER LTLI, LLX, LOCNLX (10), LOCTLI (10) COMMON /LABCOM/ LTLI, LLX, LOCNLX, LOCTLI \\\\\ SUBFILE: NLISTC.IN @16:0 23-MAY-1979 <055> (732) C EDIT DATE 09DEC78 14:13 C SOURCE FILE NLISTCFTM.IN C AUTHOR F. T. MICKEY INTEGER NI, NJ, NK INTEGER NSIZE INTEGER NLX, FNLX, REMNLX, OVNLX, TNAME INTEGER NLSTRT, NLSTOP, NLSIZE, SRCHST INTEGER NTSTRT INTEGER NTSTOP INTEGER NTSIZE INTEGER PARFLG INTEGER SPARFL INTEGER NLWRDS INTEGER TX INTEGER NLENO INTEGER STDMD INTEGER MSHIFT INTEGER REGCNT INTEGER NULLX INTEGER STPTRX INTEGER SPMODE INTEGER DPMODE INTEGER SPECMD INTEGER ENFLAG INTEGER DFINED INTEGER CVALUE INTEGER NLXLCI INTEGER ENEXTD INTEGER NAMAT0 INTEGER NAMCON INTEGER NLMODE C BIT DEFINITIONS INTEGER PARBIT INTEGER OPBIT INTEGER LOCALB INTEGER REGBIT INTEGER EXTBIT INTEGER STRBIT INTEGER DPBIT INTEGER CBIT INTEGER PBIT INTEGER EPBIT INTEGER IOBIT INTEGER ARBIT INTEGER EXDBIT INTEGER TPLBIT INTEGER USEBIT INTEGER LCMASK INTEGER MDMASK INTEGER NAMLOC, REGNUM COMMON /NLIST/ NI COMMON /NLIST/ NJ COMMON /NLIST/ NK COMMON /NLIST/ NSIZE COMMON /NLIST/ NLX COMMON /NLIST/ FNLX COMMON /NLIST/ REMNLX COMMON /NLIST/ OVNLX COMMON /NLIST/ TNAME COMMON /NLIST/ NLSTRT COMMON /NLIST/ NLSTOP COMMON /NLIST/ NLSIZE COMMON /NLIST/ SRCHST COMMON /NLIST/ NTSTRT COMMON /NLIST/ NTSTOP COMMON /NLIST/ NTSIZE COMMON /NLIST/ PARFLG COMMON /NLIST/ SPARFL COMMON /NLIST/ NLWRDS COMMON /NLIST/ TX COMMON /NLIST/ NLENO COMMON /NLIST/ STDMD COMMON /NLIST/ MSHIFT COMMON /NLIST/ REGCNT COMMON /NLIST/ NULLX COMMON /NLIST/ STPTRX COMMON /NLIST/ SPMODE COMMON /NLIST/ DPMODE COMMON /NLIST/ SPECMD COMMON /NLIST/ ENFLAG COMMON /NLIST/ DFINED COMMON /NLIST/ CVALUE COMMON /NLIST/ NLXLCI COMMON /NLIST/ ENEXTD COMMON /NLIST/ NAMAT0 COMMON /NLIST/ NAMCON COMMON /NLIST/ NLMODE COMMON /NLIST/ PARBIT COMMON /NLIST/ OPBIT COMMON /NLIST/ LOCALB COMMON /NLIST/ REGBIT COMMON /NLIST/ EXTBIT COMMON /NLIST/ STRBIT COMMON /NLIST/ DPBIT COMMON /NLIST/ CBIT COMMON /NLIST/ PBIT COMMON /NLIST/ EPBIT COMMON /NLIST/ IOBIT COMMON /NLIST/ ARBIT COMMON /NLIST/ EXDBIT COMMON /NLIST/ TPLBIT COMMON /NLIST/ USEBIT COMMON /NLIST/ LCMASK COMMON /NLIST/ MDMASK COMMON /NLIST/ NAMLOC, REGNUM \\\\\ SUBFILE: CODE1F.IN @16:0 23-MAY-1979 <055> (79) C EDIT DATE 28AUG78 19:40 C SOURCE FILE CODE1FTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER WOPTR, WO (64), TLI, TL (128) INTEGER BO, SS, SS2, NRFCH COMMON /SCR1/ WOPTR, WO, TLI, TL COMMON /SCR1/ BO, SS, SS2, NRFCH \\\\\ SUBFILE: LOGOSA.IN @16:0 23-MAY-1979 <055> (304) C EDIT DATE 10NOV78 14:27 C SOURCE FILE LOGOSAJH.IN C AUTHOR A. J. HOWARD C GLOBAL PROGRAM DATA BASE INTEGER ADDR, ADRFLG, CUROP, NEXTOP, CFLAG INTEGER PI, XBBL, XA, XF, XZERO, DPVFLG INTEGER LC, LCI, LODLCI, LODLCV, LDLCVO, MAXLCV INTEGER NEXT, NUMBER, I, IOTYPE INTEGER J, K, L, LABNLX, M, N INTEGER PSYMB, SYMBOL, TOP, VALFLG, QVALUE INTEGER OPTOPX, OPNXTX, TOPX, NEXTX INTEGER DUMMY, OVCHN, PEEKS INTEGER LO, CI, CO, LOGICF, LOCSUP LOGICAL CONEND INTEGER VAREF, INPUTJ, LCTS, CRUCNT, FLTCNT LOGICAL ENDOK COMMON /LOGOS/ ADDR, ADRFLG, CUROP, NEXTOP, CFLAG COMMON /LOGOS/ PI, XBBL, XA, XF, XZERO, DPVFLG COMMON /LOGOS/ LC, LCI, LODLCI, LODLCV, LDLCVO, MAXLCV COMMON /LOGOS/ NEXT, NUMBER, I, IOTYPE COMMON /LOGOS/ J, K, L, LABNLX, M, N COMMON /LOGOS/ PSYMB, SYMBOL, TOP, VALFLG, QVALUE COMMON /LOGOS/ OPTOPX, OPNXTX, TOPX, NEXTX COMMON /LOGOS/ DUMMY, OVCHN, PEEKS COMMON /LOGOS/ LO, CI, CO, LOGICF, CONEND, LOCSUP COMMON /LOGOS/ VAREF, INPUTJ, LCTS, CRUCNT, FLTCNT, ENDOK \\\\\ SUBFILE: GENCMA.IN @16:0 23-MAY-1979 <055> (192) C EDIT DATE 07SEP78 11:28 C SOURCE FILE GENCOMAJH.IN C AUTHOR A. J. HOWARD INTEGER OP, LEFT, RIGHT, LSTKX, RSTKX INTEGER TS, LOAD, BASE INTEGER THIS, OTHER, SIDE, HI, LOW INTEGER INTBR, ROW, COL, INREG, OUTREG INTEGER BCC, BNE INTEGER CLC, JMP, LDAABS, LDAI, LDAZP INTEGER SBCI, SEC, STAZP, TAX, TXA LOGICAL COMZER, EZSTA, MORE COMMON /GCOM/ OP, LEFT, RIGHT, LSTKX, RSTKX COMMON /GCOM/ TS, LOAD, BASE COMMON /GCOM/ THIS, OTHER, SIDE, HI, LOW COMMON /GCOM/ INTBR, ROW, COL, INREG, OUTREG COMMON /GCOM/ BCC, BNE COMMON /GCOM/ CLC, JMP, LDAABS, LDAI, LDAZP COMMON /GCOM/ SBCI, SEC, STAZP, TAX, TXA COMMON /GCOM/ COMZER, EZSTA, MORE \\\\\ SUBFILE: STKDFD.IN @16:0 23-MAY-1979 <055> (40) C EDIT DATE 03DEC78 12:11 C SOURCE FILE STKDEFD.IN C AUTHOR A. J. HOWARD INTEGER OSTACK (20) EQUIVALENCE (STK (1, 8), OSTACK (1)) \\\\\ SUBFILE: PRTCOM.IN @16:0 23-MAY-1979 <055> (97) C EDIT DATE 11DEC78 15:55 C SOURCE FILE PRTCOMFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER LBUF (66) INTEGER LCOUNT INTEGER PGECNT INTEGER UHEAD (15) INTEGER CHEAD (8) COMMON /PRT/ LBUF COMMON /PRT/ LCOUNT COMMON /PRT/ PGECNT COMMON /PRT/ UHEAD COMMON /PRT/ CHEAD \\\\\ SUBFILE: LSOBJJ.IN @16:0 23-MAY-1979 <055> (2763) C EDIT DATE 17AUG78 12:38 C SOURCE FILE LSOBJJHP.IN C AUTHOR J.H.PERINE C STRUCTURE OF 'LINSTR' TABLE C 256 ENTRIES - 1 FOR EACH POSSIBLE OP CODE C 2 WORDS PER ENTRY C FIRST WORD: C LEFT HALF: IDENTIFIES CRUTCH TABLE C 1 (256) IMPLID C 2 (512) RELTIV C 3 (768) GROUP1 C 4 (1024) OTHERS C RIGHT HALF: INDEX INTO TABLE FOR ASCII TEXT C SECOND WORD (ATTRIBUTES): C LEFT HALF: ADDRESSING MODE COMPONENTS C BIT MEANING C 0 NOT USED C 1 AREG 16384 C 2 IMMEDIATE 8192 C 3 ZP 4096 C 4 ABS 2048 C 5 XREG 1024 C 6 YREG 512 C 7 INDIRECT 256 C RIGHT HALF: TIMING C BIT 8: EXTRA CYCLES FLAG (128) C BITS 9-15: BASIC CYCLES C DUMMY ARRAYS FOR INITIALIZATION INTEGER L0INS (32), L1INS (32), L2INS (32), L3INS (32) INTEGER L4INS (32), L5INS (32), L6INS (32), L7INS (32) INTEGER L8INS (32), L9INS (32), LAINS (32), LBINS (32) INTEGER LCINS (32), LDINS (32), LEINS (32), LFINS (32) EQUIVALENCE ( L0INS (1), LINSTR ( 1) ) EQUIVALENCE ( L1INS (1), LINSTR ( 33) ) EQUIVALENCE ( L2INS (1), LINSTR ( 65) ) EQUIVALENCE ( L3INS (1), LINSTR ( 97) ) EQUIVALENCE ( L4INS (1), LINSTR (129) ) EQUIVALENCE ( L5INS (1), LINSTR (161) ) EQUIVALENCE ( L6INS (1), LINSTR (193) ) EQUIVALENCE ( L7INS (1), LINSTR (225) ) EQUIVALENCE ( L8INS (1), LINSTR (257) ) EQUIVALENCE ( L9INS (1), LINSTR (289) ) EQUIVALENCE ( LAINS (1), LINSTR (321) ) EQUIVALENCE ( LBINS (1), LINSTR (353) ) EQUIVALENCE ( LCINS (1), LINSTR (385) ) EQUIVALENCE ( LDINS (1), LINSTR (417) ) EQUIVALENCE ( LEINS (1), LINSTR (449) ) EQUIVALENCE ( LFINS (1), LINSTR (481) ) DATA L0INS / ^ 257, 7, ^ // 00 BRK 784, 1286, ^ // 01 ORA @X 0, 0, ^ // 02 0, 0, ^ // 03 0, 0, ^ // 04 784, 4099, ^ // 05 ORA ZP 1025, 4101, ^ // 06 ASL ZP 0, 0, ^ // 07 290, 3, ^ // 08 PHP 784, 8194, ^ // 09 ORA IMM 1025, 16386, ^ // 0A ASL AREG 0, 0, ^ // 0B 0, 0, ^ // 0C 784, 2052, ^ // 0D ORA ABS 1025, 2054, ^ // 0E ASL ABS 0, 0 / // 0F DATA L1INS / ^ 528, 130, ^ // 10 BPL 784, 773, ^ // 11 ORA @Y 0, 0, ^ // 12 0, 0, ^ // 13 0, 0, ^ // 14 784, 5124, ^ // 15 ORA ZP,X 1025, 5126, ^ // 16 ASL ZP,X 0, 0, ^ // 17 260, 2, ^ // 18 CLC 784, 2692, ^ // 19 ORA ABS,Y 0, 0, ^ // 1A 0, 0, ^ // 1B 0, 0, ^ // 1C 784, 3204, ^ // 1D ORA ABS,X 1025, 3079, ^ // 1E ASL ABS,X 0, 0 / // 1F DATA L2INS / ^ 1102, 2054, ^ // 20 JSR 772, 1286, ^ // 21 AND @X 0, 0, ^ // 22 0, 0, ^ // 23 1036, 4099, ^ // 24 BIT ZP 772, 4099, ^ // 25 AND ZP 1146, 4101, ^ // 26 ROL ZP 0, 0, ^ // 27 296, 4, ^ // 28 PLP 772, 8194, ^ // 29 AND IMM 1146, 16386, ^ // 2A ROL AREG 0, 0, ^ // 2B 1036, 2052, ^ // 2C BIT ABS 772, 2052, ^ // 2D AND ABS 1146, 2054, ^ // 2E ROL ABS 0, 0 / // 2F DATA L3INS / ^ 522, 130, ^ // 30 BMI 772, 773, ^ // 31 AND @Y 0, 0, ^ // 32 0, 0, ^ // 33 0, 0, ^ // 34 772, 5124, ^ // 35 AND ZP,X 1146, 5216, ^ // 36 ROL ZP,X 0, 0, ^ // 37 305, 2, ^ // 38 SEC 772, 2692, ^ // 39 AND ABS,Y 0, 0, ^ // 3A 0, 0, ^ // 3B 0, 0, ^ // 3C 772, 3204, ^ // 3D AND ABS,X 1146, 3079, ^ // 3E ROL ABS,X 0, 0 / // 3F DATA L4INS / ^ 299, 6, ^ // 40 RTI 778, 1286, ^ // 41 EOR @X 0, 0, ^ // 42 0, 0, ^ // 43 0, 0, ^ // 44 778, 4099, ^ // 45 EOR ZP 1135, 4101, ^ // 46 LSR ZP 0, 0, ^ // 47 287, 3, ^ // 48 PHA 778, 8194, ^ // 49 EOR IMM 1135, 16386, ^ // 4A LSR AREG 0, 0, ^ // 4B 1091, 2051, ^ // 4C JMP ABS 778, 2052, ^ // 4D EOR ABS 1135, 2054, ^ // 4E LSR ABS 0, 0 / // 4F DATA L5INS / ^ 531, 130, ^ // 50 BVC 778, 901, ^ // 51 EOR @Y 0, 0, ^ // 52 0, 0, ^ // 53 0, 0, ^ // 54 778, 5126, ^ // 55 EOR ZP,X 1135, 5126, ^ // 56 LSR ZP,X 0, 0, ^ // 57 266, 2, ^ // 58 CLI 778, 2692, ^ // 59 EOR ABS,Y 0, 0, ^ // 5A 0, 0, ^ // 5B 0, 0, ^ // 5C 778, 3204, ^ // 5D EOR ABS,X 1135, 3079, ^ // 5E LSR ABS,X 0, 0 / // 5F DATA L6INS / ^ 302, 6, ^ // 60 RTS 769, 1286, ^ // 61 ADC @X 0, 0, ^ // 62 0, 0, ^ // 63 0, 0, ^ // 64 769, 4099, ^ // 65 ADC ZP 1157, 4101, ^ // 66 ROR ZP 0, 0, ^ // 67 293, 4, ^ // 68 PLA 769, 8194, ^ // 69 ADC IMM 1157, 16386, ^ // 6A ROR AREG 0, 0, ^ // 6B 1091, 261, ^ // 6C JMP @ 769, 2052, ^ // 6D ADC ABS 1157, 2054, ^ // 6E ROR ABS 0, 0 / // 6F DATA L7INS / ^ 534, 130, ^ // 70 BVS 769, 901, ^ // 71 ADC @Y 0, 0, ^ // 72 0, 0, ^ // 73 0, 0, ^ // 74 769, 5124, ^ // 75 ADC ZP,X 1157, 5126, ^ // 76 ROR ZP,X 0, 0, ^ // 77 311, 2, ^ // 78 SEI 769, 2692, ^ // 79 ADC ABS,Y 0, 0, ^ // 7A 0, 0, ^ // 7B 0, 0, ^ // 7C 769, 3204, ^ // 7D ADC ABS,X 1157, 3079, ^ // 7E ROR ABS,X 0, 0 / // 7F DATA L8INS / ^ 0, 0, ^ // 80 790, 1286, ^ // 81 STA @X 0, 0, ^ // 82 0, 0, ^ // 83 1179, 4099, ^ // 84 STY ZP 790, 4099, ^ // 85 STA ZP 1168, 4099, ^ // 86 STX ZP 0, 0, ^ // 87 275, 2, ^ // 88 DEY 0, 0, ^ // 89 326, 2, ^ // 8A TXA 0, 0, ^ // 8B 1179, 2052, ^ // 8C STY ABS 790, 2052, ^ // 8D STA ABS 1168, 2052, ^ // 8E STX ABS 0, 0 / // 8F DATA L9INS / ^ 513, 130, ^ // 90 BCC 790, 774, ^ // 91 STA @Y 0, 0, ^ // 92 0, 0, ^ // 93 1179, 5124, ^ // 94 STY ZP,X 790, 5124, ^ // 95 STA ZP,X 1168, 4612, ^ // 96 STX ZP,Y 0, 0, ^ // 97 320, 2, ^ // 98 TYA 790, 2565, ^ // 99 STA ABS,Y 329, 2, ^ // 9A TXS 0, 0, ^ // 9B 0, 0, ^ // 9C 790, 3077, ^ // 9D STA ABS,X 0, 0, ^ // 9E 0, 0 / // 9F DATA LAINS / ^ 1124, 8194, ^ // A0 LDY IMM 781, 1286, ^ // A1 LDA @X 1113, 8194, ^ // A2 LDX IMM 0, 0, ^ // A3 1124, 4099, ^ // A4 LDY ZP 781, 4099, ^ // A5 LDA ZP 1113, 4099, ^ // A6 LDX ZP 0, 0, ^ // A7 317, 2, ^ // A8 TAY 781, 8194, ^ // A9 LDA IMM 314, 2, ^ // AA TAX 0, 0, ^ // AB 1124, 2052, ^ // AC LDY ABS 781, 2052, ^ // AD LDA ABS 1113, 2052, ^ // AE LDX ABS 0, 0 / // AF DATA LBINS / ^ 516, 130, ^ // B0 BCS 781, 901, ^ // B1 LDA @Y 0, 0, ^ // B2 0, 0, ^ // B3 1124, 5124, ^ // B4 LDY ZP,X 781, 5124, ^ // B5 LDA ZP,X 1113, 4612, ^ // B6 LDX ZP,Y 0, 0, ^ // B7 269, 2, ^ // B8 CLV 781, 2692, ^ // B9 LDA ABS,Y 323, 2, ^ // BA TSX 0, 0, ^ // BB 1124, 3204, ^ // BC LDY ABS,X 781, 3204, ^ // BD LDA ABS,X 1113, 2692, ^ // BE LDX ABS,Y 0, 0 / // BF DATA LCINS / ^ 1058, 8194, ^ // C0 CPY IMM 775, 1286, ^ // C1 CMP @X 0, 0, ^ // C2 0, 0, ^ // C3 1058, 4099, ^ // C4 CPY ZP 775, 4099, ^ // C5 CMP ZP 1069, 4101, ^ // C6 DEC ZP 0, 0, ^ // C7 281, 2, ^ // C8 INY 775, 8194, ^ // C9 CMP IMM 272, 2, ^ // CA DEX 0, 0, ^ // CB 1058, 2052, ^ // CC CPY ABS 775, 2052, ^ // CD CMP ABS 1069, 2054, ^ // CE DEC ABS 0, 0 / // CF DATA LDINS / ^ 525, 130, ^ // D0 BNE 775, 901, ^ // D1 CMP @Y 0, 0, ^ // D2 0, 0, ^ // D3 0, 0, ^ // D4 775, 5124, ^ // D5 CMP ZP,X 1069, 5126, ^ // D6 DEC ZP,X 0, 0, ^ // D7 263, 2, ^ // D8 CLD 775, 2692, ^ // D9 CMP ABS,Y 0, 0, ^ // DA 0, 0, ^ // DB 0, 0, ^ // DC 775, 3204, ^ // DD CMP ABS,X 1069, 3079, ^ // DE DEC ABS,X 0, 0 / // DF DATA LEINS / ^ 1047, 8194, ^ // E0 CPX IMM 787, 1286, ^ // E1 SBC @X 0, 0, ^ // E2 0, 0, ^ // E3 1047, 4099, ^ // E4 CPX ZP 787, 4099, ^ // E5 SBC ZP 1080, 4101, ^ // E6 INC ZP 0, 0, ^ // E7 278, 2, ^ // E8 INX 787, 8194, ^ // E9 SBC IMM 284, 2, ^ // EA NOP 0, 0, ^ // EB 1047, 2052, ^ // EC CPX ABS 787, 2052, ^ // ED SBC ABS 1080, 2054, ^ // EE INC ABS 0, 0 / // EF DATA LFINS / ^ 519, 130, ^ // F0 BEQ 787, 901, ^ // F1 SBC @Y 0, 0, ^ // F2 0, 0, ^ // F3 0, 0, ^ // F4 787, 5124, ^ // F5 SBC ZP,X 1080, 5126, ^ // F6 INC ZP,X 0, 0, ^ // F7 308, 2, ^ // F8 SED 787, 2692, ^ // F9 SBC ABS,Y 0, 0, ^ // FA 0, 0, ^ // FB 0, 0, ^ // FC 787, 2692, ^ // FD SBC ABS,Y 1080, 3079, ^ // FE INC ABS,X 0, 0 / // FF \\\\\ SUBFILE: STUFFA.IN @16:0 23-MAY-1979 <055> (17) INTEGER STUFFO, STUFFN COMMON /CSTUFF/ STUFFO, STUFFN \\\\\ SUBFILE: SRCXDF.IN @16:0 23-MAY-1979 <055> (126) C EDIT DATE 16SEP78 10:58 C SOURCE FILE SRCXDFFTM.IN C AUTHOR F. T. MICKEY C SOURCE EXTERNAL COMMUNICATION DATA AREA INTEGER FCHRTS INTEGER SCFLAG INTEGER QMODE LOGICAL NOTINQ INTEGER LBIAS INTEGER SCOUNT INTEGER QINDEX COMMON /SRCEX/ FCHRTS COMMON /SRCEX/ SCFLAG COMMON /SRCEX/ QMODE COMMON /SRCEX/ NOTINQ COMMON /SRCEX/ LBIAS COMMON /SRCEX/ SCOUNT COMMON /SRCEX/ QINDEX \\\\\ SUBFILE: BLDPOA.IN @16:0 23-MAY-1979 <055> (78) C EDIT DATE 10MAR78 03:55 C SOURCE FILE BLDPOAJH.IN C AUTHOR A. J. HOWARD LOGICAL MSEEN, SMSEEN, ZFLAG INTEGER SMODE, TPFLAG, DEFMOD, LEVEL INTEGER STOAC, OP COMMON /BPO/ MSEEN, SMSEEN, ZFLAG COMMON /BPO/ SMODE, TPFLAG, DEFMOD, LEVEL COMMON /BPO/ STOAC, OP \\\\\ SUBFILE: STKDFA.IN @16:0 23-MAY-1979 <055> (164) C EDIT DATE 03DEC78 11:40 C SOURCE FILE STKDEFA.IN C AUTHOR A. J. HOWARD INTEGER STK (20, 13) C COLUMN ARRAY C C 1 NAMEX C 2 SUBX C 3 MODE C 4 SUBXM C 5 BIAS C 6 SUBXB C 7 LOCFLG C 8 OSTACK C 9 OPCODE C 10 WFOP C 11 WFOPND C 12 SUBOP C 13 WFSOP INTEGER NAMEX (40) EQUIVALENCE (STK (1, 1), NAMEX (1)) INTEGER OPX, STKSIZ, OCBIT, FUNBIT, SBIAS COMMON /SDEFS/ STK, OPX, STKSIZ, OCBIT, FUNBIT, SBIAS \\\\\ SUBFILE: FLMSGA.IN @16:0 23-MAY-1979 <055> (198) C EDIT DATE 30AUG78 13:42 C SOURCE FILE FLMSGAPB.IN C AUTHOR A. P. BUCHALTER C CLUSTER XX INTEGER MSGS(16,100) INTEGER MSG01(16,10) INTEGER MSG11(16,10) INTEGER MSG21(16,10) INTEGER MSG31(16,10) INTEGER MSG41(16,10) INTEGER MSG51(16,10) INTEGER MSG61(16,10) INTEGER MSG71(16,10) INTEGER MSG81(16,10) COMMON /FLTMSG/ MSGS EQUIVALENCE (MSGS(1, 1),MSG01(1,1)) EQUIVALENCE (MSGS(1,11),MSG11(1,1)) EQUIVALENCE (MSGS(1,21),MSG21(1,1)) EQUIVALENCE (MSGS(1,31),MSG31(1,1)) EQUIVALENCE (MSGS(1,41),MSG41(1,1)) EQUIVALENCE (MSGS(1,51),MSG51(1,1)) EQUIVALENCE (MSGS(1,61),MSG61(1,1)) EQUIVALENCE (MSGS(1,71),MSG71(1,1)) EQUIVALENCE (MSGS(1,81),MSG81(1,1)) \\\\\ SUBFILE: OPINXJ.IN @16:0 23-MAY-1979 <055> (257) C EDIT DATE 31MAR78 13:00 C SOURCE FILE OPINXJHP.IN C AUTHOR J.H.PERINE C DEFINE COMMON BLOCK OF OP CODE INTERNAL REFERENCE VALUES. C ALL NAMES ARE 3 LETTER OP CODE PLUS 'INX' FOR INDEX. C NO IMPLIED OR RELATIVE ADDRESS OPS INCLUDED. INTEGER ADCINX INTEGER ANDINX INTEGER ASLINX INTEGER BITINX INTEGER CMPINX INTEGER CPXINX INTEGER CPYINX INTEGER DECINX INTEGER EORINX INTEGER INCINX INTEGER JMPINX INTEGER JSRINX INTEGER LDAINX INTEGER LDXINX INTEGER LDYINX INTEGER LSRINX INTEGER ORAINX INTEGER ROLINX INTEGER RORINX INTEGER SBCINX INTEGER STAINX INTEGER STXINX INTEGER STYINX COMMON /OPINX/ ADCINX, ANDINX, ASLINX, BITINX, CMPINX COMMON /OPINX/ CPXINX, CPYINX, DECINX, EORINX, INCINX COMMON /OPINX/ JMPINX, JSRINX, LDAINX, LDXINX, LDYINX COMMON /OPINX/ LSRINX, ORAINX, ROLINX, RORINX, SBCINX COMMON /OPINX/ STAINX, STXINX, STYINX \\\\\ SUBFILE: RMCOMJ.IN @16:0 23-MAY-1979 <055> (86) C COMMON STORAGE FOR REGISTER MANAGEMENT ROUTINES INTEGER ACADDR (11), ACTYPE (11), ACSUBS (11) INTEGER ACSBTY (11), ACBIAS (11) C SAVE AREA FOR BOOLEAN AND CONDITIONAL EVALUTAION C 5 LEVELS+ 1 SCRATCH LEVEL - APB INTEGER REGSTK(120) COMMON /RMCOM/ ACADDR, ACTYPE, ACSUBS, ACSBTY, ACBIAS COMMON /RMCOM/ REGSTK \\\\\ SUBFILE: BRACEF.IN @16:0 23-MAY-1979 <055> (204) C EDIT DATE 09OCT78 11:11 C SOURCE FILE BRACEFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER BRACEX, SELX, LSX, SELXB INTEGER FUNCNT, FSCNT, FRCNT, FUNVAL INTEGER NRFLS, ARGSIZ, PARCNT INTEGER BSTACK (10), SUBENT (40) INTEGER FLS (6), PARSAV, FLSAVE (6) C EQUIVALENCES FOR LOOP AND WHILE STACK INTEGER WHSTRT (30), WHLOW (10), WHHIGH (10) INTEGER LOOPT (10), LOOPE (10), LOOPF (10) EQUIVALENCE (WHSTRT, LOOPT) EQUIVALENCE (WHLOW, LOOPE, WHSTRT (11)) EQUIVALENCE (WHHIGH, LOOPF, WHSTRT (21)) COMMON /BRACE/ BRACEX, SELX, LSX, SELXB COMMON /BRACE/ FUNCNT, FSCNT, FRCNT, FUNVAL COMMON /BRACE/ NRFLS, ARGSIZ, PARCNT COMMON /BRACE/ WHSTRT, BSTACK, SUBENT COMMON /BRACE/ FLS, PARSAV, FLSAVE \\\\\ SUBFILE: RMCODE.IN @16:0 23-MAY-1979 <055> (134) C FUNCTION CODES FOR REGISTER MANAGEMENT (REGMAN) CALLS INTEGER CLRACV // ERASE ALL REGISTER CONTENTS INTEGER CLRACX // ERASE SPECIFIC REGISTER CONTENTS INTEGER CLRSTA // ERASE ACTIVE STATUS OF ALL REGISTERS INTEGER TRAREG // TRASNSFER REGISTER TO REGISTER INTEGER SAVREG // TEMP STORE IF REGISTER IS ACTIVE INTEGER CTFREE // FIND A FREE CT OF 1 OR 2 WORDS INTEGER SETREG // SET THE REGISTER CONTENTS FROM THE STACK COMMON /RMCODE/ CLRACV, CLRACX, CLRSTA, TRAREG, SAVREG COMMON /RMCODE/ CTFREE, SETREG \\\\\ SUBFILE: CTRLAJ.IN @16:0 23-MAY-1979 <055> (204) C EDIT DATE 09OCT78 11:12 C SOURCE FILE CTRLAJH.IN C AUTHOR A. J. HOWARD C CLUSTER 80 C COMPILER CONTROL DIRECTIVE FLAGS C C C LISTF EXPLODED LISTING ''LIST C SNLPRT SHORT NAME LIST PRINT ''SHORT C SUMPRT SUMMARY PRINT ''SUMMARY C SYMFLG SYMBOLS INCLUDED IN OBJECT C ''SYMBOLS INTEGER LISTF, SNLPRT, SUMPRT, SYMFLG INTEGER PRINTF, SKIP, COMPFL (2) INTEGER LOCPRT, USFLGS, NEGFLG, SKNAME (8) INTEGER ORGFLG, CTLUSE, CTLERR, TTL (8) INTEGER DUMFLG COMMON /CTLCOM/ LISTF, SNLPRT, SUMPRT, SYMFLG COMMON /CTLCOM/ PRINTF, SKIP, COMPFL COMMON /CTLCOM/ LOCPRT, USFLGS, NEGFLG, SKNAME COMMON /CTLCOM/ ORGFLG, CTLUSE, CTLERR, TTL COMMON /CTLCOM/ DUMFLG \\\\\ SUBFILE: STKDFF.IN @16:0 23-MAY-1979 <055> (95) C EDIT DATE 03DEC78 12:13 C SOURCE FILE STKDEFF.IN C AUTHOR A. J. HOWARD INTEGER SUBXB (20), WFOP (20), WFOPND (20) INTEGER SUBOP (20), WFSOP (20) EQUIVALENCE (STK (1, 6), SUBXB (1)) EQUIVALENCE (STK (1, 10), WFOP (1)) EQUIVALENCE (STK (1, 11), WFOPND (1)) EQUIVALENCE (STK (1, 12), SUBOP (1)) EQUIVALENCE (STK (1, 13), WFSOP (1)) \\\\\ SUBFILE: ATESTA.IN @16:0 23-MAY-1979 <055> (14) LOGICAL ATEST COMMON /ATST/ ATEST \\\\\ SUBFILE: TEMPSF.IN @16:0 23-MAY-1979 <055> (53) C EDIT DATE 06MAR78 12:41 C SOURCE FILE TEMPSFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER DTX INTEGER STX COMMON /STEMP/ DTX COMMON /STEMP/ STX \\\\\ SUBFILE: SRCDFS.IN @16:0 23-MAY-1979 <055> (255) C EDIT DATE 19AUG78 07:51 C SOURCE FILE SRCDFSFTM.IN C AUTHOR F. T. MICKEY C DATA DEFINITIONS FOR SOURCEFTM.ST INTEGER QUOTEX ///// NOT USED INTEGER CONTF INTEGER CONTRL INTEGER HEAD INTEGER EJECT INTEGER BLANK INTEGER SLASH INTEGER CARDC INTEGER FLINCT (8) INTEGER EOCC INTEGER ENDCRD (3) INTEGER RECORD (66) INTEGER RECPTR INTEGER SOURCE (150) INTEGER SRCEND INTEGER SLEN INTEGER TF (3) COMMON /SRCE/ QUOTEX COMMON /SRCE/ CONTF COMMON /SRCE/ CONTRL COMMON /SRCE/ HEAD COMMON /SRCE/ EJECT COMMON /SRCE/ BLANK COMMON /SRCE/ SLASH COMMON /SRCE/ CARDC COMMON /SRCE/ FLINCT COMMON /SRCE/ EOCC COMMON /SRCE/ ENDCRD COMMON /SRCE/ RECORD COMMON /SRCE/ RECPTR COMMON /SRCE/ SOURCE COMMON /SRCE/ SRCEND COMMON /SRCE/ SLEN COMMON /SRCE/ TF \\\\\ SUBFILE: PSHCOM.IN @16:0 23-MAY-1979 <055> (68) C EDIT DATE 14APR78 10:21 C SOURCE FILE PSHCOMFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER PSTACK (12) INTEGER PX INTEGER PEND COMMON /PPCOM/ PSTACK COMMON /PPCOM/ PX COMMON /PPCOM/ PEND \\\\\ SUBFILE: SETCOM.IN @16:0 23-MAY-1979 <055> (220) C EDIT DATE 14SEP78 15:09 C SOURCE FILE SETCOMJHP.IN C AUTHOR J H P C CLUSTER X INTEGER LDAZP, LDAABS, LDAIMM INTEGER LDAABY, LDAINY INTEGER LDYZP, LDYABS, LDYIMM INTEGER SETNLX INTEGER TS1, TS2 INTEGER SOPC, SWF, SWFOPN INTEGER SETSTX, SSUBX, STBIAS INTEGER STMODE, SSUBXB, SSUBXM INTEGER SSUBOP, SWFSUB INTEGER SLEFT, SRIGHT, SCTN LOGICAL ZPFLAG, STLOC COMMON /SCOM/ LDAZP, LDAABS, LDAIMM COMMON /SCOM/ LDAABY, LDAINY COMMON /SCOM/ LDYZP, LDYABS, LDYIMM COMMON /SCOM/ SETNLX COMMON /SCOM/ TS1, TS2 COMMON /SCOM/ SOPC, SWF, SWFOPN COMMON /SCOM/ SETSTX, SSUBX, STBIAS COMMON /SCOM/ STMODE, SSUBXB, SSUBXM COMMON /SCOM/ SSUBOP, SWFSUB COMMON /SCOM/ SLEFT, SRIGHT, SCTN COMMON /SCOM/ ZPFLAG, STLOC \\\\\ SUBFILE: STKDFC.IN @16:0 23-MAY-1979 <055> (40) C EDIT DATE 03DEC78 12:11 C SOURCE FILE STKDEFC.IN C AUTHOR A. J. HOWARD INTEGER LOCFLG (20) EQUIVALENCE (STK (1, 7), LOCFLG (1)) \\\\\ SUBFILE: LEVELS.IN @16:0 23-MAY-1979 <055> (49) C EDIT DATE 19FEB78 11:18 C SOURCE FILE LEVELSAJH.IN C AUTHOR A. J. HOWARD INTEGER LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL COMMON /LEVELS/ LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL \\\\\ SUBFILE: GENCMB.IN @16:0 23-MAY-1979 <055> (259) C EDIT DATE 09OCT78 11:13 C SOURCE FILE GENCOMFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER GENRET INTEGER MODEX INTEGER RAWMDX INTEGER SPTR C GENER FUNCTIONS INTEGER TSTSTK // TEST STACK INTEGER SWAP INTEGER TOPDP // CONVERT (TOPX) TO DP INTEGER NEXTDP // CONVERT (NEXTX) TO DP INTEGER TOPSP // CONVERT (TOPX) TO SP INTEGER NEXTSP // CONVERT (NEXTX) TO SP INTEGER SAVCAL // SAVE ANY ACTIVE REGISTERS INTEGER OUT INTEGER GETSP // GET STACK POINTER INTEGER SMODEX // SET MODEX INTEGER SETX COMMON /GENC/ GENRET COMMON /GENC/ MODEX COMMON /GENC/ RAWMDX COMMON /GENC/ SPTR COMMON /GENC/ TSTSTK COMMON /GENC/ SWAP COMMON /GENC/ TOPDP COMMON /GENC/ NEXTDP COMMON /GENC/ TOPSP COMMON /GENC/ NEXTSP COMMON /GENC/ SAVCAL COMMON /GENC/ OUT COMMON /GENC/ GETSP COMMON /GENC/ SMODEX COMMON /GENC/ SETX \\\\\ SUBFILE: CPAREA.IN @16:0 23-MAY-1979 <055> (168) C EDIT DATE 16NOV78 10:36 C SOURCE FILE CPAREAJH.IN C AUTHOR A. J. HOWARD INTEGER PLEVEL, STOPS (20) INTEGER CNLSID (9), CNLTLI (9), CNLEND (9) INTEGER CLX, CPLOC (30) INTEGER NESTX, PNESTX INTEGER RELLEV, RELCNT, TRUEF LOGICAL RELPAS INTEGER CMPFLG INTEGER ILB INTEGER BRCT, BROK, TNESTX COMMON /COMP/ PLEVEL, STOPS COMMON /COMP/ CNLSID, CNLTLI, CNLEND COMMON /COMP/ CLX, CPLOC COMMON /COMP/ NESTX, PNESTX COMMON /COMP/ RELLEV, RELCNT, TRUEF COMMON /COMP/ RELPAS COMMON /COMP/ CMPFLG COMMON /COMP/ ILB COMMON /COMP/ BRCT, BROK, TNESTX \\\\\ SUBFILE: LCONST.IN @16:0 23-MAY-1979 <055> (44) INTEGER LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS INTEGER LEXEQU, LNLEQU COMMON /LCON/ LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS COMMON /LCON/ LEXEQU, LNLEQU \\\\\ SUBFILE: LCFUNC.IN @16:0 23-MAY-1979 <055> (171) C EDIT DATE 30APR78 14:33 C SOURCE FILE LCFNCAJH.IN C AUTHOR A. J. HOWARD C BASIC LOCATION COUNTER FUNCTIONS INTEGER CODE INTEGER NOUNLC INTEGER DATALC INTEGER COMLOC INTEGER FBLOCK INTEGER ZREL INTEGER ABSLC INTEGER CBTAB (15) INTEGER CBX INTEGER LCTAB (15) COMMON /LCFUNC/ CODE COMMON /LCFUNC/ NOUNLC COMMON /LCFUNC/ DATALC COMMON /LCFUNC/ COMLOC COMMON /LCFUNC/ FBLOCK COMMON /LCFUNC/ ZREL COMMON /LCFUNC/ ABSLC COMMON /LCFUNC/ CBTAB COMMON /LCFUNC/ CBX COMMON /LCFUNC/ LCTAB \\\\\ SUBFILE: PNACOM.IN @16:0 23-MAY-1979 <055> (53) C EDIT DATE 07FEB78 13:29 C SOURCE FILE PNACOMAJH.IN C AUTHOR A. J.HOWARD C CLUSTER 80 INTEGER LIST (499), NAMES (499), CT, BITS (6, 2) COMMON /PNACOM / LIST, NAMES, CT, BITS \\\\\ SUBFILE: FAULTS.IN @16:1 23-MAY-1979 <055> (47) C EDIT DATE 30AUG78 13:43 C SOURCE FILE FAULTSFTM.IN C AUTHOR F. T. MICKEY C CLUSTER X INTEGER EXFLT, FLTNR COMMON /FLTS/ EXFLT, FLTNR \\\\\ SUBFILE: SYMBOL.IN @16:1 23-MAY-1979 <055> (44) C EDIT DATE 10MAR78 03:57 C SOURCE FILE SYMBOLFTM.IN C AUTHOR F. T. MICKEY C CLUSTER 120.X INTEGER SYMTBL (65) COMMON /SYMB/ SYMTBL \\\\\ SUBFILE: BITDFN.IN @16:1 23-MAY-1979 <055> (197) C EDIT DATE 01JUN78 22:23 C SOURCE FILE BITDFNGAK.IN C AUTHOR GARY A. KUDIS C BIT DEFINITIONS C C BIT00 IS THE LEAST SIGNIFICANT; BIT15 IS MOST SIGNIFICANT. C INTEGER BITS (16) INTEGER BIT00,BIT01,BIT02,BIT03,BIT04,BIT05,BIT06,BIT07 INTEGER BIT08,BIT09,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15 EQUIVALENCE (BITS(1),BIT00),(BITS(2),BIT01),(BITS(3),BIT02) EQUIVALENCE (BITS(4),BIT03),(BITS(5),BIT04),(BITS(6),BIT05) EQUIVALENCE (BITS(7),BIT06),(BITS(8),BIT07),(BITS(9),BIT08) EQUIVALENCE (BITS(10),BIT09),(BITS(11),BIT10) EQUIVALENCE (BITS(12),BIT11),(BITS(13),BIT12) EQUIVALENCE (BITS(14),BIT13),(BITS(15),BIT14) EQUIVALENCE (BITS(16),BIT15) INTEGER BIT, BITNO COMMON /BITDFN/ BITS COMMON /BITDFN/ BIT, BITNO \\\\\ SUBFILE: RECORD.IN @16:1 23-MAY-1979 <055> (146) C EDIT DATE 11MAY78 11:13 C SOURCE FILE RECORDGAK.IN C AUTHOR GARY A. KUDIS C INPUT RECORD DEFINTION INTEGER RCOUNT INTEGER RTYPE INTEGER RSTYPE INTEGER RTMAX INTEGER RSZMAX INTEGER RECORD (41) INTEGER RSIZE INTEGER RSIZES (20) COMMON /RECORD/ RCOUNT COMMON /RECORD/ RTYPE COMMON /RECORD/ RSTYPE COMMON /RECORD/ RTMAX COMMON /RECORD/ RSZMAX COMMON /RECORD/ RECORD COMMON /RECORD/ RSIZE COMMON /RECORD/ RSIZES \\\\\ SUBFILE: QUESTS.IN @16:1 23-MAY-1979 <055> (96) C EDIT DATE 08MAY78 17:45 C SOURCE FILE QUESTSGAK.IN C AUTHOR GARY A. KUDIS C QUESTIONS ASKED OF USER INTEGER CMQUES (10) INTEGER OBQUES (10) INTEGER MPQUES (10) INTEGER ANSWER (14) COMMON /QUESTS/ CMQUES COMMON /QUESTS/ OBQUES COMMON /QUESTS/ MPQUES COMMON /QUESTS/ ANSWER \\\\\ SUBFILE: LDATAX.IN @16:1 23-MAY-1979 <055> (288) C EDIT DATE 13MAY78 06:57 C SOURCE FILE LDATAXGAK.IN C AUTHOR GARY A. KUDIS C GENERAL LINKER DATA LOGICAL MPFLAG LOGICAL OVMODE LOGICAL LBMODE LOGICAL LOADRB LOGICAL SFLAG INTEGER VERS INTEGER LOADAD INTEGER ZLOC, ZSTR, ZMAX, ZLIMIT INTEGER CLOC, CSTR, CMAX, CLIMIT INTEGER NLOC, NSTR, NMAX, NLIMIT INTEGER DLOC, DSTR, DMAX, DLIMIT INTEGER OLOC, OMAX, OSET INTEGER START INTEGER MODNLX INTEGER CKSUM INTEGER KEY COMMON /LDATAX/ MPFLAG COMMON /LDATAX/ OVMODE COMMON /LDATAX/ LBMODE COMMON /LDATAX/ LOADRB COMMON /LDATAX/ SFLAG COMMON /LDATAX/ VERS COMMON /LDATAX/ LOADAD COMMON /LDATAX/ ZLOC, ZSTR, ZMAX, ZLIMIT COMMON /LDATAX/ CLOC, CSTR, CMAX, CLIMIT COMMON /LDATAX/ NLOC, NSTR, NMAX, NLIMIT COMMON /LDATAX/ DLOC, DSTR, DMAX, DLIMIT COMMON /LDATAX/ OLOC, OMAX, OSET COMMON /LDATAX/ START COMMON /LDATAX/ MODNLX COMMON /LDATAX/ CKSUM COMMON /LDATAX/ KEY \\\\\ SUBFILE: PNAMES.IN @16:1 23-MAY-1979 <055> (140) C EDIT DATE 13MAY78 11:46 C SOURCE FILE PNAMESGAK.IN C AUTHOR GARY A. KUDIS C PRINT NAME LIST DATA STRUCTURES INTEGER LIST (512) INTEGER NAMES (512) C 'LIST' IS USED BY 'SORT' ROUTINE TO BUILD AN ARRAY OF C SORTED INDEXES TO ITEMS IN NAME LIST TABLE (NTABLE). C 'NAMES' CONTAINS POINTERS TO USED ENTRIES IN 'NTABLE'. INTEGER NCOUNT INTEGER LSTOP COMMON /PNAMES/ LIST COMMON /PNAMES/ NAMES COMMON /PNAMES/ NCOUNT COMMON /PNAMES/ LSTOP \\\\\ SUBFILE: IODEFN.IN @16:1 23-MAY-1979 <055> (160) C EDIT DATE 09JAN79 17:26 C SOURCE FILE IODEFNGAK.IN C AUTHOR GARY A. KUDIS C I/O CHANNEL DEFINITIONS INTEGER ECODE INTEGER CMCHAN INTEGER RBCHAN INTEGER OBCHAN INTEGER MPCHAN INTEGER DBCHAN INTEGER TTYIN INTEGER TTYOUT N INTEGER OVCHAN COMMON /IODEFN/ ECODE COMMON /IODEFN/ CMCHAN COMMON /IODEFN/ RBCHAN COMMON /IODEFN/ OBCHAN COMMON /IODEFN/ MPCHAN COMMON /IODEFN/ DBCHAN COMMON /IODEFN/ TTYIN COMMON /IODEFN/ TTYOUT N COMMON /IODEFN/ OVCHAN \\\\\ SUBFILE: CHARAC.IN @16:1 23-MAY-1979 <055> (271) C EDIT DATE 06JUN78 07:40 C SOURCE FILE CHARACGAK.IN C AUTHOR GARY A. KUDIS C ASCII CHARACTER DEFINITIONS INTEGER CHAR INTEGER CHMASK INTEGER CR, LF INTEGER CRLF INTEGER BLANK, PERIOD INTEGER BLANKS, DASHES, COLONS, SLASHS INTEGER ACH, BCH, CCH, DCH, ECH, FCH INTEGER GCH, HCH, ICH, JCH, KCH, LCH INTEGER MCH, NCH, OCH, PCH, QCH, RCH INTEGER SCH, TCH, UCH, VCH, WCH, XCH INTEGER YCH, ZCH INTEGER LBRACE, RBRACE INTEGER LBRACK, RBRACK COMMON /CHARAC/ CHAR COMMON /CHARAC/ CHMASK COMMON /CHARAC/ CR, LF COMMON /CHARAC/ CRLF COMMON /CHARAC/ BLANK, PERIOD COMMON /CHARAC/ BLANKS, DASHES, COLONS, SLASHS COMMON /CHARAC/ ACH, BCH, CCH, DCH, ECH, FCH COMMON /CHARAC/ GCH, HCH, ICH, JCH, KCH, LCH COMMON /CHARAC/ MCH, NCH, OCH, PCH, QCH, RCH COMMON /CHARAC/ SCH, TCH, UCH, VCH, WCH, XCH COMMON /CHARAC/ YCH, ZCH COMMON /CHARAC/ LBRACE, RBRACE COMMON /CHARAC/ LBRACK, RBRACK \\\\\ SUBFILE: MEMORY.IN @16:1 23-MAY-1979 <055> (227) C EDIT DATE 01JUN78 17:38 C SOURCE FILE MEMORYGAK.IN C AUTHOR GARY A. KUDIS C MEMORY USE MAP C C ONE BIT PER MEMORY BYTE; THE BIT IS SETTO ONE (1) WHEN C IT IS USED. THERE ARE 4096 ENTRIES IN 'MEMORY'. EACH C ENTRY REPRESENTS THE STATUS OF 16 MEMORY BYTES - THUS C THE STATUS OF ALL 65636 BYTES. C C ACCESS ALGORITHM TO STATUS OF MEMORY WITH ADDRESS = MEMLOC : C MEMX = MEMLOC/16 + 1 C BITNO = MOD (MEMLOC, 16) + 1 C BIT = BITS (BITNO) C C ROM MEMORY MAP C ONE WORD PER 1K BYTES OF MEMORY; SET TO ZERO (0) WHEN C MEMORY IS 'ROM' AND SET TO ONE (1) WHEN 'RAM' MEMORY. C INTEGER MEMORY (4096) INTEGER MEMX INTEGER MEMLOC INTEGER ROM (64) INTEGER ONEK, ENDK COMMON /MEMORY/ MEMORY COMMON /MEMORY/ MEMX COMMON /MEMORY/ MEMLOC COMMON /MEMORY/ ROM COMMON /MEMORY/ ONEK, ENDK \\\\\ SUBFILE: QDATAX.IN @16:1 23-MAY-1979 <055> (60) C EDIT DATE 04MAY78 20:21 C SOURCE FILE QDATAXGAK.IN C AUTHOR GARY A. KUDIS C CLUSTER 0.07 INTEGER CMQUES (10) INTEGER OBQUES (10) INTEGER MPQUES (10) INTEGER ANSWER (10) \\\\\ SUBFILE: TXTCOM.IN @16:1 23-MAY-1979 <055> (46) C EDIT DATE 16JAN79 15:23 C SOURCE FILE TXTCOMGAK.IN C AUTHOR GARY A. KUDIS INTEGER TEXT (27), LEFT (4), RIGHT (4) COMMON /TEXTC/ TEXT, LEFT, RIGHT \\\\\ SUBFILE: NTABLE.IN @16:1 23-MAY-1979 <055> (512) C EDIT DATE 16JAN79 15:20 C SOURCE FILE NTABLEGAK.IN C AUTHOR GARY A. KUDIS C GLOBAL NAME TABLE C C EACH ENTRY HAS THE FOLLOWING DATA ITEMS : C NFLAGS :: BIT STATUSES PER ENTRY C NADDRS :: ADDRESS OF THE ENTRY C NPOSIT :: CURRENT LOAD ADDRESS WITHIN A GROUP C NDATA :: AREA DEFINITION SIZE C NTEXTX :: INDEX INTO NAME TEXT ARRAY (NTEXT) C C HERE 'NFLAGS' HAS THE FOLLOWING BIT DEFINITIONS : C 0-3 :: NUMBER OF WORDS IN TEXT NAME C 4 :: = 1 = USED ENTRY SLOT 'USEBIT' C 5 :: = 1 = COMMON NAME AREA 'COMBIT' C 6 :: = 1 = OVERLAY ID 'OVLBIT' C 7 :: = 1 = ENTRY POINT DEFINITION 'EPTBIT' C 8 :: = 1 = LOAD MODULE ON 2ND PASS'LDMBIT' C 9 :: = 1 = MODULE NAME ENTRY 'MODBIT' C 10 :: = 1 = MULTIPLE ENTRY 'MLTBIT' C 11 :: = 1 = RESOLVED 'NADDRS' 'RLSBIT' C 12 :: = 1 = GROUP DEFINITION 'GDFBIT' C 13-15 :: AREA DEFINITION TYPE C 0 - ABSOLUTE C 1 - NOUNS C 2 - DATA C 3 - ZERO PAGE C 4 - NORMAL RELOCATABLE INTEGER NSIZE, NAME(16), NTITLE INTEGER NFLAGS (512) INTEGER NADDRS (512) INTEGER NPOSIT (512) INTEGER NDATA (512) INTEGER NTEXTX (512) INTEGER NTEXT (1000) INTEGER NLX, NLSTRT, NLSTOP INTEGER TXSTRT, TXSTOP INTEGER NTXBTS INTEGER USEBIT, COMBIT, OVLBIT, EPTBIT INTEGER LDMBIT, MODBIT, MLTBIT, RLSBIT INTEGER GDFBIT, TYPBTS INTEGER ATYPE LOGICAL OLDNAM COMMON /NTABLE/ NSIZE, NAME, NTITLE COMMON /NTABLE/ NFLAGS, NADDRS, NPOSIT, NDATA, NTEXTX COMMON /NTABLE/ NTEXT COMMON /NTABLE/ NLX, NLSTRT, NLSTOP COMMON /NTABLE/ TXSTRT, TXSTOP COMMON /NTABLE/ NTXBTS COMMON /NTABLE/ USEBIT, COMBIT, OVLBIT, EPTBIT COMMON /NTABLE/ LDMBIT, MODBIT, MLTBIT, RLSBIT COMMON /NTABLE/ GDFBIT, TYPBTS COMMON /NTABLE/ ATYPE COMMON /NTABLE/ OLDNAM \\\\\ SUBFILE: IOFILE.IN @16:1 23-MAY-1979 <055> (152) C EDIT DATE 09JAN79 17:22 C SOURCE FILE IOFILEGAK.IN C AUTHOR GARY A. KUDIS C I/O FILE DEFINITIONS INTEGER CMFILE (16) INTEGER RBFILE (16) INTEGER OBFILE (16) INTEGER MPFILE (16) INTEGER DBFILE (16) N INTEGER OVFILE (5) N INTEGER TOFILE (3) INTEGER TIFILE (3) COMMON /FILES / CMFILE COMMON /FILES / RBFILE COMMON /FILES / OBFILE COMMON /FILES / MPFILE COMMON /FILES / DBFILE N COMMON /FILES / OVFILE N COMMON /FILES / TOFILE COMMON /FILES / TIFILE \\\\\ SUBFILE: ERRDFN.IN @16:1 23-MAY-1979 <055> (299) C EDIT DATE 13MAY78 06:49 C SOURCE FILE ERRDFNGAK.IN C AUTHOR GARY A. KUDIS C ERROR MESSAGE DEFINTION TABLE INTEGER EPROC (20) INTEGER ECOUNT (20) INTEGER ELIMIT (20) INTEGER EMSG (200) INTEGER EMSG1(10),EMSG2(10),EMSG3(10),EMSG4(10) INTEGER EMSG5(10),EMSG6(10),EMSG7(10),EMSG8(10) INTEGER EMSG9(10),EMSG10(10),EMSG11(10),EMSG12(10) INTEGER EMSG13(10),EMSG14(10),EMSG15(10),EMSG16(10) INTEGER EMSG17(10),EMSG18(10),EMSG19(10),EMSG20(20) EQUIVALENCE (EMSG1,EMSG(1)), (EMSG2,EMSG(11)) EQUIVALENCE (EMSG3,EMSG(21)), (EMSG4,EMSG(31)) EQUIVALENCE (EMSG5,EMSG(41)), (EMSG6,EMSG(51)) EQUIVALENCE (EMSG7,EMSG(61)), (EMSG8,EMSG(71)) EQUIVALENCE (EMSG9,EMSG(81)), (EMSG10,EMSG(91)) EQUIVALENCE (EMSG11,EMSG(101)),(EMSG12,EMSG(111)) EQUIVALENCE (EMSG13,EMSG(121)),(EMSG14,EMSG(131)) EQUIVALENCE (EMSG15,EMSG(141)),(EMSG16,EMSG(151)) EQUIVALENCE (EMSG17,EMSG(161)),(EMSG18,EMSG(171)) EQUIVALENCE (EMSG19,EMSG(181)),(EMSG20,EMSG(191)) INTEGER EMAX COMMON /ERRDFN/ EPROC COMMON /ERRDFN/ ECOUNT COMMON /ERRDFN/ ELIMIT COMMON /ERRDFN/ EMSG COMMON /ERRDFN/ EMAX \\\\\ SUBFILE: DARRAY.IN @16:1 23-MAY-1979 <055> (67) C EDIT DATE 08JUN78 08:00 C SOURCE FILE DARRAYGAK.IN C AUTHOR GARY A. KUDIS C DICTIONARY ARRAY INTEGER DICT (400) INTEGER ID, CID, DTSTRT, DTSTOP COMMON /DARRAY/ DICT COMMON /DARRAY/ ID, CID, DTSTRT, DTSTOP \\\\\ SUBFILE: STACKS.IN @16:1 23-MAY-1979 <055> (52) C EDIT DATE 25MAY78 08:56 C SOURCE FILE STACKSGAK.IN C AUTHOR GARY A. KUDIS C LINKER STACK AREAS INTEGER MSTACK(30), MX, MSTKSZ COMMON /STACKS/ MSTACK, MX, MSTKSZ \\\\\