REM BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II rem ------ scanned 9/6/07 304349-VOlume_III.pdf Page 76/960 ------ LIST SYN 32575 TABL SYN 32554 TOOMCH SYN LIST-20 FUL ORG 0 VR LXA 0,1 SM CPY 2,1 TXI SM,1,-1 TG HTR 0,1 LTM X RCD RB CPY LIST-21,1 LB TXI RB,1,-1 R TXH X,1,-200 LXD M,1 SXD M,1 STZ LIST-20 READ RCD CPY VR TRA TEST HTR READ END STZ 0,2 TIX END,2,1 TOV PROG PROG TRA T S 24 ADDRS OCT 000000077777 ABS ORG LIST+1 TEST CLA VR CPY SM TMI PASS1 PREFIX IS 4 IF PROGRAM CARD TZE READ STZ PRTST SIGNAL END LOADING SEQUENTIAL PROG. CARDS LXD VR,1 TXL REG,1,31 TXH 0,1,32 STA T ADD S STA S CLA SM STA U TRA READ REG STA R ARS 15 U PDX 0,4 TXL NR,4,1 TSX LT,2 STA R NR CAL VR ARS 18 ADD R rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 77/961 ------ STA TR LXD VR,2 TR TXL 0,2 STA TA STA SA STA SD STA TD B STA CP CAL VR TXL CP,4,1 CAD LB CAD RB CP CAD 0,2 TIX CP,2,1 TXL CT,4,0 TXL READ,4,1 TXL CT,4,2 TXL RL,4,3 CT SLW VR CLA SM TZE RT SUB VR TZE RT HPR RT TXL READ,4,1 TXH SR,4,3 RL LDQ RB DB CLA LB LGL 1 SLW LB TPL AB TD CLA 0,1 ARS 18 TSX CB,2 ALS 18 SD STD 0,1 AB CLA LB LGL 1 SLW LB TPL TV TA CLA 0,1 TSX CB,2 SA STA 0,1 TV TIX DB,1,1 TRA READ CB STA R CLA LB LGL 1 SLW LB TMI LTA WILL ADDRESS BE MISLEADING LT SLN 1 NO, CODE IS 10, TURN ON SENSE LIGHT LTA CLS R DOES THIS ADDRESS REFER TO PROGRAM OR DATA ADD T TPL ADDS rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 78/962 ------ SLT 1 APPEARS TO BE DATA, BUT WHAT WAS CODE TRA PROGRM ACTUALLY PROGRAM, ADD CURRENT INCREMENT DATA CLA R IS DATA REFERENCE, DECREMENT ADM U TRA 1,2 ADDS SLT 1 APPEARS TO BE PROGRAM, WHAT WAS CODE TRA DATA ACTUALLY IS DATA REFERENCE, DECREMENT PROGRM SUB S TRA 1,2 PASS1 PDX 0,2 - WORD COUNT IN DEC. OF AC TXL PASS2,2,0 WORD COUNT IS 0, GO TO 2ND PASS ADD TAG - LENGTH OF SYMB. TABLE IN DEC. ADD DECTWO TO ALLOW SPACE IN TABLE FOR LOC. + LENGTH STD STOP STORE NEW LENGTH IN INST. TO STOP RELOC. SUB M ADDRS. TABLE + 1 - WORD COUNT + LENGTH TAB STD OVLP STORE L0WEST ADDRS. FOUND, TO COMPARE TO S ACL VR SUB DECTWO ARS 18 DECTWO TIX TXB,2,2 TXB TSX B,4 FORCE IR 4 FOR CHECK SUM, BUT NOT RELOCATE SR LXD TAG,1 LOAD OLD TABLE LENGTH CLA PRTST HAS ANOTHER PROGRAM CARD PRECEEDED TZE ONLY1 THIS ONE CLA LB YES, LB HAS NAME, RB HAS STO TABL-1,1 ENTRY POINT CLA RB STO TABL,1 TIX NCARDS,1,2 SKIP, COMPARISONS ALREADY DONE ONLY1 CLA S STORE LOCATION OF TRA VECTOR IN STZ TABL-1,1 STO TABL,1 SYMBOL TABLE, S HAS ADDRESS ONLY LXD LB,4 TXH CLAS,4,0 CLA BTMASK STO TABL-1,1 CLAS CLA LB STORE LENGTH OF VECTOR IN STD TABL-1,1 SYMBOL TABLE STA T STORE LENGTH OF ROUTINE IN T ADD S UPDATE S STA S PAX 0,2 COMPARE S TO LOWEST ADDRESS OF TABLE OVLP TXH TG,2,0 TRA TG, TABLE + INST. OVERLAP CLA U FIND LOWEST ADDRESS DATA WILL USE SUB RB PAX 0,4 PXD 0,4 ARS 18 TZE ACLA CAS ADDRS ACLA CLA ADDRS NOP STO ADDRS SUB S rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 79/963 ------ TMI TOOMCH TRA TOOMCH, DATA + INSTR. WILL OVERLAP NCARDS SXD PRTST,2 SIGNAL TO SEQUENTIAL PROGRAM CARDS STZ LB MAY COMPLEMENT IF 1 IS FOUND TXI LTT,1,2 TO GET PAST LOC. + LENGTH OF VECTOR LTT CLA TABL,1 TSX CB,2 RELOCATE ENTRY POINTS IN TABLE STA TABL,1 TXI STOP,1,2 STOP TXL LTT,1,0 SXD TAG,1 SAVE LENGTH OF TABLE M TNX READ,0,TABL VEC CAL TABL+1,2 TNZ G3 CLA TABL+2,2 STA PROG TRA PASS2 G3 ANA BTMASK TNZ PASS2 CLA TABL+1,2 OLDU PDX 0,4 LENGTH OF VECTOR ARS 18 ADD TABL+2,2 PLUS LOACTION OF VECTOR STA A STA AA STA AAA STA ABB NXTVC LXD TAG,1 LENGTH OF SYMBOL TABLE A CAL 0,4 ANA BTMASK TZE TIXVEC ABB CLA 0,4 LOOK FOR FIRST NAME IN TRA VECTOR NXTNAM CAS TABL+1,1 IN SYMBOL TABLE TTR TTR G4 TRA FIX G4 TIX NXTNAM,1,2 LOOK AT NEXT NAME IN TABLE SAVNAM STO RB LXD TWTY,1 CMPR CLA LIST,1 TZE STONAM STORE IN FIRST EMPTY CELL CAS RB IF NEW NAME TWTY TNX G2,0,20 TRA TIXVEC ALREADY IN TABLE, IGNORE G2 TIX CMPR,1,1 HTR PASS2 MORE THAN 20 ENTRIES TO BE SEARCHED FOR STONAM CLA RB STO LIST,1 STZ LIST+1,1 TRA TIXVEC FIX CLA TTR AA STO 0,4 CLA TABL+2,1 AAA STA 0,4 TIXVEC TIX NXTVC,4,1 GET NEXT NAME IN VECTOR PASS2 TXI TAG,2,2 IR 2 IS 0 AT BEGINING rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 80/964 ------ TAG TXL VEC,2,0 CLA TABL+1 0 IF ALL NAMES WERE FOUND TNZ SEARCH TXI END,2,212 CLEARS SYMBOL TABLE, LIST + LOADER SEARCH HTR READ-1 BTMASK OCT 700000000000 PRTST END REM MU LBL 3 0026 CARDS LOWER BINARY LOADER-ONE CARD MULBL301 FUL LBL3 LXA 0,4 CLEAR IR4 LBL30002 CPY 2,4 COPY LOADER INTO 2,3, ETC LBL30003 TXI 1,4,32767 REPEAT UNTIL LOADER IN LBL30004 HTR 31 MASK FOR WORD COUNT LBL30005 LTM END OF CARD, LEAVE TRAPPING MODE LBL30006 RCD SELECT CARD READER LBL30007 CPY 0 9L IN 0 AND MQ LBL30008 LLS 17 WORD COUNT IN AC ADDRESS LBL30009 ANA 3 EXTRACT WORD COUNT (=WC) LBL30010 CPY 1 9R IN 1 (CHECK SUM) LBL30011 TZE 0 IF WC=0, HAVE TRANSFER CARD, GO TO IT LBL30012 PAX 0,4 IF WC NOT 0, PUT IT IN IR4 LBL30013 ADD 0 (WC+LA) IN AC ADDRESS (LA=LOAD ADDRESS) LBL30014 STA 16 PLANT (WC+LA) AS CPY ADDRESS LBL30015 STA 17 AND AS ACL ADDRESS LBL30016 CAL 0 PREPARE FOR LOGICAL SUM LBL30017 CPY 0,4 COPY WORD FORM BINARY CARD LBL30018 ACL 0,4 AND ADD IT TO LOGICAL SUM LBL30019 TIX 16,4,1 REPEATING UNTIL DONE LBL30020 SLW 2 FORM (CARD SUM) - (CHECK SUM) LBL30021 CLA 2 X LBL30022 SUB 1 X LBL30023 TZE 5 IF 0, PROCEED TO NEXT CARD LBL30024 HTR 5 IF NOT 0, HALT, PROCEED ON START LBL30025 END 0 LBL30026 REM TAPE DUPLICATING PROGRAM F2TCVP rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 71/955 ------ ORG 24 DUP000 REW SOURCE REW OBJECT RTT TURN OFF RTT TRIGGER TXH LXD DUP020,7 INITIALIZE INDEX REGISTERS TO 27 RDS SOURCE READ 1-CS FROM SOURCE DUP010 CPY RECORD+27,1 TXI DUP010,1,-1 DUP020 HTR 0,0,27 MACHINE ERROR IOD EOR-DELAY RTT HTR DUP000 RTT ERROR-- TRY AGAIN WRS OBJECT WRITE 1-CS ONTO OBJECT DUP030 CPY RECORD+27,2 TIX DUP030,2,1 IOD RTT TURN OFF RTT TRIGGER DUP031 TXH DUP170,0,0 BST OBJECT RDS OBJECT READ BACK 1-CS FROM OBJECT DUP040 CPY DUMMY TRA DUP050 HTR TRA DUP060 EOR DUP050 CLA RECORD+27,4 CAS DUMMY HTR DUP000 WORD COMP. FAILS-READING TXI DUP040,4,-1 HTR DUP000 FROM OBJECT DUP060 TXH DUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD IOD RTT HTR DUP000 RTT ERROR READING BACK OBJECT 1-CS DUP070 LXD DUP031,7 INITIALIZE INDEX REG TO 0 PXD CLEAR AC DUP071 RDS SOURCE READ SOURCE 1ST/2ND FILE RECORD CPY RECORD,1 TXI DUP090,1,-1 DUP080 TRA DUP160 EOF HTR MACNINE ERROR DUP090 CAD RECORD,1 TXI DUP090,1,-1 HTR MACHINE ERROR COM EOR ACL RECORD COM TZE DUP100 HTR DUP290 CKSM FAILS READING SOURCE 1ST/2ND FILE DUP100 IOD RTT HTR DUP300 RTT ERROR-BST AND TRY AGAIN rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 72/956 ------ SXD DUP120,1 SXD DUP150,1 WRS OBJECT WRITE OBJECT 1ST/2ND FILE RECORD DUP110 CPY RECORD,2 TXI DUP120,2,-1 DUP120 TXH DUP110,2,** DUP121 IOD RTT TURN OFF RTT TRIGGER TXH BST OBJECT RDS OBJECT READ BACK OBJECT 1ST/2ND FILE RECORD DUP130 CPY DUMMY TRA DUP140 HTR MACHINE ERROR TRA DUP150 EOR DUP140 CLA RECORD,4 CAS DUMMY HTR DUP310 C0MP. ERROR ON 1ST/2ND FILE RECORD TXI DUP130,4,-1 HTR DUP310 DITTO DUP150 TXH DUP320,4,** ERROR-INCOMPLETE OBJECT RECORD IOD RTT HTR DUP310 RTT ERROR-BST AND TRY AGAIN TRA DUP070 DUP160 IOD RTT HTR DUP340 RTT ERROR - BST TWICE ON SOURCE WEF OBJECT WRITE 1ST EOF IOD RTT TURN OFF RTT TRIGGER TXH CLA DUP031 STA DUP080 TRA DUP070 DUP170 IOD RTT HTR DUP340 RTT ERROR- BST TWICE ON SOURCE WEF OBJECT WRITE 2ND EOF DUP171 IOD RTT TURN OFF RTT TRIGGER TXH DUP180 LXD DUP031,7 INITIALIZE INDEX REG TO 0 PXD CLEAR AC DUP181 RDS SOURCE READ SOURCE 3RD FILE RECORD CAD RECORD,1 TXI DUP190,1,-1 TRA DUP270 EOF HTR MACHINE ERROR DUP190 CPY RECORD,1 CPY CKSM INTO RECORD+1 TXI DUP200,1,-1 DUP200 CAD RECORD,1 TXI DUP200,1,-1 HTR MACHINE ERROR rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 73/957 ------ COM EOR ACL RECORD+1 COM TZE DUP210 HTR DUP350 CKSM FAILS READING SOURCE 3RD FILE DUP210 IOD RTT HTR DUP350 RTT ERROR-BST SXD DUP230,1 SXD DUP260,1 WRS OBJECT WRITE OBJECT 3RD FILE RECORD DUP220 CPY RECORD,2 TXI DUP230,2,-1 DUP230 TXH DUP220,2,** DUP231 IOD RTT TURN 0FF RTT TRIGGER TXH BST OBJECT RDS OBJECT READ BACK OBJECT 3RD FILE RECORD DUP240 CPY DUMMY TRA DUP250 HTR MACHINE ERROR TRA DUP260 EOR DUP250 CLA RECORD,4 CAS DUMMY HTR DUP360 COMP. ERROR ON 3RD FILE TXI DUP240,4,-1 HTR DUP360 ERROR- INCOMPLETE OBJECT RECORD DUP260 TXH DUP370,4 IOD RTT HTR DUP360 RTT ERROR-BST TRA DUP180 DUP270 IOD RTT HTR DUP390 RTT ERROR - BST TWICE WEF OBJECT WRITE 3RD FILE EOF FILE40 LXD DUP031,7 DUPLICATE FILE 4 PXD RDS SOURCE READ SOURCE FILE 4 RECORD FILE41 CPY RECORD,1 TXI FILE41,1,-1 TRA FILE47 EOF IOD EOR RTT HTR FIL4E1 RTT ERROR - BST AND TRY AGAIN SXD FILE43,1 SXD FILE46,1 WRS OBJECT WRITE OBJECT 4TH FILE RECORD FILE42 CPY RECORD,2 TXI FILE43,2,-1 FILE43 TXH FILE42,2,** FILE50 IOD RTT TURN OFF RTT TRIGGER rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 74/958 ------ TXH BST OBJECT RDS OBJECT READ BACK OBJECT 4TH FILE RECORD FILE44 CPY DUMMY TRA FILE45 HTR MACHINE ERROR TRA FILE46 EOR FILE45 CLA RECORD,4 CAS DUMMY HTR FIL4E2 COMP. ERROR ON 4TH FILE RECORD TXI FILE44,4,-1 HTR FIL4E2 COMP. ERROR ON 4TH FILE RECORD FILE46 TXH FIL4E4,4,** ERROR - INCOMPLETE OBJECT RECORD IOD RTT HTR FIL4E2 RTT ERROR - BST AND TRY AGAIN TRA FILE40 FILE47 IOD RTT HTR FIL4E3 RTT ERROR - BST TWICE ON SOURCE WEF OBJECT WRITE 4TH FILE EOF REW SOURCE REW OBJECT RTT TXH HTR FINAL STOP. DUP280 HTR DUP000 DUP290 RTT TXH DUP300 BST SOURCE TRA DUP070 DUP310 LXD DUP031,4 TRA DUP121 DUP320 HTR DUP330 DUP330 RTT TXH BST SOURCE BST OBJECT TRA DUP070 DUP340 BST SOURCE BST SOURCE RDS SOURCE TRA DUP071 DUP350 BST SOURCE TRA DUP171 DUP360 LXD DUP031,4 TRA DUP231 DUP370 HTR DUP380 DUP380 BST SOURCE BST OBJECT TRA DUP171 DUP390 BST SOURCE BST SOURCE RDS SOURCE rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 75/959 ------ TRA DUP181 FIL4E1 BST SOURCE TRA FILE40 FIL4E2 LXD DUP031,4 TRA FILE50 FIL4E3 BST SOURCE BST SOURCE RDS SOURCE TRA FILE40+2 FIL4E4 HTR FIL4E5 FIL4E5 RTT TXH BST SOURCE BST OBJECT TRA FILE40 SOURCE SYN 149 OBJECT SYN 145 RECORD SYN 300 DUMMY SYN 299 END 24 REM MU LBL 3 0026 CARDS LOWER BINARY LOADER-ONE CARD MULBL301 FUL LBL3 LXA 0,4 CLEAR IR4 LBL30002 CPY 2,4 COPY LOADER INTO 2,3, ETC LBL30003 TXI 1,4,32767 REPEAT UNTIL LOADER IN LBL30004 HTR 31 MASK FOR WORD COUNT LBL30005 LTM END OF CARD, LEAVE TRAPPING MODE LBL30006 RCD SELECT CARD READER LBL30007 CPY 0 9L IN 0 AND MQ LBL30008 LLS 17 WORD COUNT IN AC ADDRESS LBL30009 ANA 3 EXTRACT WORD COUNT (=WC) LBL30010 CPY 1 9R IN 1 (CHECK SUM) LBL30011 TZE 0 IF WC=0, HAVE TRANSFER CARD, GO TO IT LBL30012 PAX 0,4 IF WC NOT 0, PUT IT IN IR4 LBL30013 ADD 0 (WC+LA) IN AC ADDRESS (LA=LOAD ADDRESS) LBL30014 STA 16 PLANT (WC+LA) AS CPY ADDRESS LBL30015 STA 17 AND AS ACL ADDRESS LBL30016 CAL 0 PREPARE FOR LOGICAL SUM LBL30017 CPY 0,4 COPY WORD FORM BINARY CARD LBL30018 ACL 0,4 AND ADD IT TO LOGICAL SUM LBL30019 TIX 16,4,1 REPEATING UNTIL DONE LBL30020 SLW 2 FORM (CARD SUM) - (CHECK SUM) LBL30021 CLA 2 X LBL30022 SUB 1 X LBL30023 TZE 5 IF 0, PROCEED TO NEXT CARD LBL30024 HTR 5 IF NOT 0, HALT, PROCEED ON START LBL30025 END 0 LBL30026 REM FNEDT2 REVISED FORTRAN EDITING PROGRAM EDT 0001 rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 57/941 ------ REM EDT 0002 ORG 32 EDT 0003 REW 1 REWIND EDT 0004 REW 5 TAPES EDT 0005 CAL IDEOF INITIALISE THIS CARD EDT 0006 SLW THISCD TO END FILE EDT 0007 TSX ONE2CS,4 TSX TO TRANSCRIBE SPECIAL FIRST RCD EDT 0008 REENTR CAL THISCD MAIN LOOP REENTRY EDT 0009 ALS 3 MOVE THIS CARD EDT 0010 SLW LASTCD INTO LAST CARD EDT 0011 RCD READ EDT 0012 LXD ZERO14,1 THE NEXT CARD EDT 0013 A1 CPY CDBUF,1 INTO EDT 0014 TXI A1,1,-1 CARD BUFFER EDT 0015 A2 HTR A2 FALSE END OF FILE IN READING CARD EDT 0016 CAL CDBUF TEST EDT 0017 COM EDT 0018 STD A4 EDT 0019 CAL CDBUF CHECK EDT 0020 LXD ZERO14,1 EDT 0021 A3 TXI A4,1,-1 EDT 0022 A4 TXL A5,1,* SUM EDT 0023 ACL CDBUF+1,1 EDT 0024 TRA A3 EDT 0025 A5 COM EDT 0026 ACL CDBUF+1 EDT 0027 COM EDT 0028 TZE A6 EDT 0029 HPR CHECK SUM ERROR IN READING CARD EDT 0030 A6 CAL CDBUF SET UP EDT 0031 ARS 33 THIS CARD EDT 0032 STA THISCD AND EDT 0033 ORA LASTCD SITUATION EDT 0034 SLW SITWD WORD EDT 0035 LXA ZERO14,1 TABLE SEARCH EDT 0036 A7 CAL TABLE+14,1 EDT 0037 LRS 18 FOR EDT 0038 CAS SITWD EDT 0039 TRA A8 SITUATION EDT 0040 TRA A9 EDT 0041 A8 TIX A7,1,1 EDT 0042 ILLEGL HTR ILLEGL SEARCH FAILED. ILLEGAL SITUATION. EDT 0043 A9 LLS 18 EDT 0044 STA A10 EDT 0045 A10 TRA * EDT 0046 REM EDT 0047 REM THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES EDT 0048 REM EDT 0049 EOFEND TSX LB,4 SEQUENCE EOF-END EDT 0050 EOFMR TSX SAVE,4 SEQUENCE EOF-MR EDT 0051 TSX CLEAR,4 EDT 0052 TSX READ,4 EDT 0053 rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 58/942 ------ TRA REENTR E0T 0054 EOFNR TSX SAVE,4 SEQUENCE EOF-NR E0T 0055 TSX CLEAR,4 EDT 0056 TRA REENTR EDT 0057 PRGEND TSX WRITE,4 SEQUENCE PROG-END EDT 0058 TSX LB,4 MR-END EDT 0059 PRGEOF TSX WRITE,4 SEQUENCE PR0G-EOF EDT 0060 WEF 145 MR-EOF EDT 0061 TRA REENTR EDT 0062 PRGPRG TSX MOVE,4 SEQUENCE PROG-PROG EDT 0063 TRA REENTR MR-PR0G, NR-PROG EDT 0064 PRGMR TSX WRITE,4 SEQUENCE PROG-MR EDT 0065 TSX SAVE,4 MR-MR EDT 0066 TSX CLEAR,4 EDT 0067 TSX READ,4 EDT 0068 TRA REENTR EDT 0069 PRGNR TSX WRITE,4 SEQUENCE PROG-NR EDT 0070 TSX SAVE,4 MR-NR EDT 0071 TSX CLEAR,4 EDT 0072 TRA REENTR EDT 0073 TABLE EOFEND,0,39 TABLE OF SITUATIONS EDT 0074 EOFMR,0,33 EDT 0075 EOFNR,0,34 EDT 0076 PRGEND,0,7 EDT 0077 PRGEOF,0,4 EDT 0078 PRGPRG,0,0 EDT 0079 PRGMR,0,1 EDT 0080 PRGNR,0,2 EDT 0081 PRGEND,0,15 EDT 0082 PRGEOF,0,12 EDT 0083 PRGPRG,0,8 E0T 0084 PRGMR,0,9 EDT 0085 PRGNR,0,10 EDT 0086 PRGPRG,0,16 EDT 0087 ZERO14 14 EDT 0088 IDEOF 4 EDT 0089 THISCD EDT 0090 LASTCD EDT 0091 SITWD EDT 0092 CDBUF SYN 8 EDT 0093 REM THERE FOLLOW THE 7 SUBROUTINES EDT 0094 REM ONE2CS, LB, SAVE, CLEAR, READ, WRITE, MOVE EDT 0095 REM EDT 0096 ONE2CS RTT TRANSCRIBES EDT 0097 NOP SPECIAL EDT 0098 RTB 5 IST RECORD EDT 0099 LXD ZERO14,1 LXA ZEROTW,2 RCD CS1 CPY MAINBF,1 TXI CS1,1,-1 HTR * TIX CS1-1,2,1 LXD ZERO14,1 rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 59/943 ------ WTB 1 CS2 CPY MAINBF,1 TXI CS3,1,-1 CS3 TXH CS2,1,-27 IOD TRA 1,4 ZEROTW 2 REM EDT 0124 LB RCD PRESSES LOAD CARDS BUTTON EDT 0125 CPY 0 EDT 0126 CPY 1 EDT 0127 TRA 0 EDT 0128 REM EDT 0129 SAVE CAL CDBUF+2 SAVES CONTROL INFORMATION EDT 0130 SLW EIGHTL FROM MR OR NR CARD EDT 0131 STA NEWBEG EDT 0132 CAL CDBUF+3 EDT 0133 SLW EIGHTR EDT 0134 TRA 1,4 EDT 0135 EIGHTL EDT 0136 EIGHTR EDT 0137 NEWBEG EDT 0138 REM EDT 0139 CLEAR PXD 0,0 CLEARS MAIN BUFFER EDT 0140 LXA BUFSIZ,1 EDT 0141 CL1 SLW 0,1 EDT 0142 TIX CL1,1,1 EDT 0143 TRA 1,4 EDT 0144 BUFSIZ -MAINBF EDT 0145 REM EDT 0I46 READ RTT READS RECORD EDT 0147 NOP FROM EDT 0148 RTB 5 1NSTER TAPE EDT 0149 PXD 0,0 INTO MAIN BUFFER EDT 0I50 LXD ZERO14,1 EDT 0I51 CPY CHKSUM EDT 0152 TRA RD1 EDT 0153 TRA READ EDT 0154 RD1 CAD FSTWD EDT 0155 ANA ADDMK EDT 0156 SUB NEWBEG E0T 0157 TMI RD6 E0T 0158 COM EDT 0159 RD2 PAX 0,1 EDT 0160 CAL FSTWD EDT 0161 RD3 TXL RD7,1,MAINBF-1 EDT 0162 CAD MAINBF-1,1 E0T 0163 RD4 TXI RD3,1,-1 E0T 0164 L1 HTR 1 FALSE EOF IN READING MASTER TAPE EDT 0165 RD5 RQL 255 EDT 0166 RQL 255 EDT 0167 RTT EDT 0I68 TRA RD8 EDT 0169 COM EDT 0170 rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 60/944 ------ ACL CHKSUM EDT 0171 COM EDT 0172 TNZ RD8 EDT 0173 TRA 1,4 EDT 0174 RD6 ADD L1 EDT 0175 TRA RD2 EDT 0176 RD7 CAD 0 EDT 0I77 TRA RD4 EDT 0I78 TRA L1 EDT 0179 TRA RD5 EDT 0180 RD8 BST 5 EDT 0181 HTR READ ERROR IN READING MASTER TAPE EDT 0182 CHKSUM EDT 0183 FSTWD EDT 0184 ADDMK -1 EDT 0185 REM EDT 0186 WRITE CLA EIGHTR WRITES RECORD FROM MAIN BUFFER EDT 0187 SUB NEWBEG INTO SECONDARY TAPE EDT 0188 TMI 1,4 EDT 0189 ALS 18 EDT 0190 COM EDT 0191 STD WR2 EDT 0192 STD WR4 EDT 0193 LXD ZERO14,3 EDT 0194 CAL EIGHTL EDT 0195 WR1 ACL MAINBF,1 EDT 0196 TXI WR2,1,-1 EDT 0197 WR2 TXH WR1,1,* EDT 0198 SLW CHKSUM EDT 0199 WTB 1 EDT 0200 CPY CHKSUM EDT 0201 CPY EIGHTL EDT 0202 WR3 CPY MAINBF,2 EDT 0203 TXI WR4,2,-1 EDT 0204 WR4 TXH WR5,2,* EDT 0205 TRA 1,4 EDT 0206 WR5 TXH WR3,2,MAINBF EDT 0207 HTR 1,4 TRYING TO WRITE TOO LONG A RECORD EDT 0208 REM EDT 0209 MOVE CAL CDBUF MOVES A PROGRAM CARD FROM EDT 0210 COM THE CARD BUFFER INTO THE EDT 0211 STD MV3 CORRECT PART OF THE MAIN BUFFER EDT 0212 LXD ZERO14,1 EDT 0213 CAL CDBUF EDT 0214 ANA ADDMK EDT 0215 SUB NEWBEG EDT 0216 TMI MV5 EDT 0217 COM EDT 0218 MV1 PAX 0,2 EDT 0219 MV2 TXI MV3,1,-1 EDT 0220 MV3 TXL MV6,1,* EDT 0221 CAL CDBUF+1,1 EDT 0222 TXL MV4,2,MAINBF-1 EDT 0223 SLW MAINBF-1,2 EDT 0224 rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 61/945 ------ MV4 TXI MV2,2,-1 EDT 0225 MV5 ADD L1 EDT 0226 TRA MV1 EDT 0227 MV6 TRA 1,4 EDT 0228 REM EDT 0229 MAINBF MAIN BUFFER STARTS HERE EDT 0230 END 32 EDT 0231 REM 704 FORTRAN SELF LOADING RECORD 1 TO CS. rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 005/005 ------ FUL LXA 0,1 CPY 2,1 TXI 1,1,1 CPY 25,1 HTR 3 TZE 0 COM ACL 2 COM TRA 23 RTT IOD HTR 0 TXI 13,1,-1 CAD 0,1 CAL 15 STA 22 ARS 18 STA 13 CAL 15 CPY 15 CPY 2 RTB 1 LXD 23,1 CPY 3 LTM BST 145 END FUL ORG 0 PTW 0,,2 CONTROL WORD OCT -203422000526 CHECKSUM PZE80110,,0342 ORIGIN, ENTRY POINT PZE80416 LAST LOCATION ABS REM FORTRAN II CARD-TO-TAPE rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 006/006 ------ ORG 72 BEGIN RCD 1 LXD ADD01,1 LXD ADD02,2 ADD23 CPY L9ROW COPY 92 TXL ADD03, TRA 2,4 EOF TR ADD03 STQ DATA1 STORE 9L SXD ADD01,1 SXD ADD02,2 LXD ADD04,1 CPY R9ROW COPY 9R STQ DATA2 STORE 9R TSX SUB1,2 EXIT ENTRY1 SUB1 ADD01 TXL ADD05 RETURN1 ALS 1 RETURN2 ADD02 TXL ADD06 EXIT TO ENTRY2 SUB1 ADD05 CPY DATA3 STQ DATA1 CPY DATA4 COPY RIGHT STQ DATA2 TSX SUB1,2 ADD04 TXL ADD07,0,8 RETURN1 ALS 3 RETURN2 TXL ADD08 ADD07 CAL L9ROW SLW DATA1 CAL R9ROW SLW DATA2 ADD14 TXL ADD09,1,1 ADD15 CPY L9ROW TXL ADD10 ADD12 HTR BEGIN EOF TXL ADD11 EOR ADD10 CAL L9ROW ANA DATA1 TNZ ADD12 CAL L9ROW ORS DATA1 CPY R9ROW CAL R9ROW ANA DATA2 TNZ ADD12 CAL R9ROW ORS DATA2 TNX ADD13,1,1 TSX SUB1,2 TXL ADD14 RETURN1 TXL ADD08 RETURN2 ADD09 CAL DATA3 ORA DATA1 SLW DATA3 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 007/007 ------ CPY DATA5 ANA DATA5 SLW DATA1 CAL DATA4 ORA DATA2 SLW DATA4 CPY DATA6 ANA DATA6 SLW DATA2 ADD13 TSX SUB1,2 TXL ADD15 RETURN1 ALS 4 RETURN2 TXL ADD08 ADD11 CAL DATA1 SLW L9ROW CAL DATA3 COM ANA DATA5 ANS DATA1 CAL DATA2 SLW R9ROW CAL DATA4 COM ANA DATA6 ANS DATA2 TSX SUB1,2 TXL ADD16 RETURN1 SLW DATA0 RETURN2 ALS 2 ACL DATA0 ALS 1 TXL ADD08 ADD16 CAL DATA3 SWT 6 TRA ADD34 ADD32 TXL ADD31 ADD33 WTD 5 TRA ADD29 ADD34 WTD 2 ADD29 ORA DATA5 ORA L9ROW COM SLW DATA1 CAL DATA4 ORA DATA6 ORA R9ROW COM SLW DATA2 TSX SUB1,2 TXL ADD17 RETURN1 SLW DATA0 RETURN2 ALS 1 ACL DATA0 ALS 4 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 008/008 ------ TXL ADD08 ADD17 LXD ADD01,1 LXD ADD02,2 TRA 3,4 SUB1 SXD ADD18,1 SLN 1 CAL 1,4 ADD CONS1 LDQ DATA1 ADD22 STA ADD06 STA ADD08 TXH ADD19,1,1 STQ DATA0 INDEX=1 CAL DATA0 TZE ADD20 ADD19 LXA CONS1,1 ADD21 PXD 12 CLEAN ACC LGL 1 1ST IN ACC ALS 5 100000 LGL 1 1000001 ALS 5 100000100000 LGL 1 1000001000001 ALS 5 LGL 1 ALS 5 LGL 1 ALS 5 LGL 1 TRA 2,2 1000001000001000001000001000001 ADD08 ACL 0,1 ADDRESS COMPUTED AT ADD22 IN ADDRESS ADD06 SLW 0,1 ENTRY2 ADDRESS PREV. COMPUTED AT ADD22 TIX ADD21,1,1 LXD ADD18,1 ADD20 SLT 1 TRA 1,2 OFF LDQ DATA2 SENSE LIGHT ON CAL 1,4 ADM ADD21 ADD18 TXL ADD22,0,** IR1 STORED IN DECREMENT CONS1 HTR 6 DATA0 HTR DATA1 HTR 9L ROW DATA2 HTR 9R ROW DATA3 HTR DATA4 HTR DATA5 HTR DATA6 HTR L9ROW HTR R9ROW HTR START REW 2 SLN 0 ADD27 RCD 1 TSX ADD23,4 HTR RECOR rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 009/009 ------ TXL ADD24 RETURN3 SLN 2 RETURN4 LXD ADD25,4 ADD26 CPY BLOCK,4 TIX ADD26,4,1 ADD25 TXL ADD27,0,12 ADD24 SLT 2 TRA ADD28 OFF SWT 6 TRA ADD30 WEF 5 REW 5 ADD28 RTB 1 CPY RECOR TRA ADD28 TRA 4 EOF REW 1 RTB 1 RTB 1 TSX 4,4 RECOR HTR BLOCK BES 11 ADD31 REW 5 CLS ADD32 STO ADD32 CAL DATA3 TRA ADD33 ADD30 WEF 2 REW 2 TRA ADD28 END FUL ORG 0 PTW 0,,2 CONTROL WORD MTW BEGIN+STOP,,BEGIN CHECKSUM PZE BEGIN,,BEGIN ORIGIN, ENTRY POINT PZE STOP LAST LOCATION ABS REM EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 85/969 ------ REM REM RECNBR IS SYNONYMOUS WITH THE NUMBER OF THE RECORD T0 WHICH REM THE DIAGNOSTIC CALLER PERTAINS. REC*** IS THE FORTRAN RECORD REM NUMBER ASSIGNED TO THE DIAGNOSTIC CALLER. REM BEGIN IS SYNONYMOUS WITH THE LOAD ADDRESS OF THE DIAGNOSTIC REM CALLER. BEG**** HAS THE SAME VALUE AS BEGIN. REM RECNBR SYN 115 REC *** BEGIN SYN84000 REC **** ORG BEGIN CALL DIAG FROM FILE CD1 1 SXD 0,2 CD1 2 LXD MEM,1 CD1 3 LXD FILTST,2 * FILES TO BE SPACED OVER CD1 4 WDR 4 0 TO 2047 WRITTEN ON DRUM 4 CD1 5 COPY CPY 2048,1 CD1 6 TIX COPY,1,1 NEXT TIME LOOP WILL COPY INTO 25 CD1 7 TXI A,1,2022 UNTIL END OF RECORD SKIP CD1 S TRA 26 IGNORE RECORD NUMBER CD1 9 A RTB 1 CD1 10 CPY BEGIN SPACE OVER RECORDS IN THIS FILE CD1 11 FILTST TNX A,0,3 CD1 12 TRA B HAVE ALL 3 FILES BEEN SPACED OVER CD1 13 MEM HTR RECNBR,0,2048 CD1 14 B TIX A,2,1 NO, GO BACK TO A CD1 15 CLA MEM CD1 16 STA 2 CD1 17 RTB 1 YES, READ IN MAIN DIAGNOSTIC CD1 18 STOP TRA COPY CD1 19 END CD1 20 FUL ORG 0 PTW 0,,2 CONTROL WORD MTW81410,,0210 CHECKSUM PZE80210,,0210 ORIGIN, ENTRY POINT PZE81200 LAST LOCATION ABS REM AST rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 010/010 ------ REM ************* FORTRAN II SECTION SIX ************************F6R00010 REM FORTRAN 2 RECORD 0003 - CIT TO SAP CONVERSION. F6R00011 REM F6R00012 REM CIT TO SAP CONVERSION F6R00020 ZERO EQU 113 F6R00030 ONE EQU 114 F6R00040 SW1 EQU 127 F6R00050 SW2 EQU 128 F6R00060 ORG 136 F6R00030 START CLA ONE F6R00040 CAS SW2 F6R00050 TRA ADD01 SW2 EQUAL ZERO, ASSUME SWITCH TWO UP, F6R00060 TRA LIB1 SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN, F6R00070 SWT 2 EQUAL TWO. TEST SWITCH TWO F6R00080 TRA ADD01 F6R00090 LIB1 REW 4 SW TWO DOWN. F6R00100 WEF 2 F6R00110 LXD ADD02,2 SET READ ERROR COUNTER. F6R00120 ADD02 TXI ADD03,0,5 F6R00130 ADD05 BST 4 F6R00140 ADD03 RTB 4 READ TAPE 4 F6R00150 LXA DATA1,1 F6R00160 ADD04 CPY REC03,1 CPY INTO REC-1, REC-2,--- F6R00170 TXI ADD04,1,1 F6R00180 TRA ADD01 END OF FILE ON TAPE 4. F6R00190 ARS 255 F6R00200 ARS 0255 F6R00210 RTT F6R00220 TIX ADD05,2,1 IF ERROR. F6R00230 SXD ADD06,1 SAVE COUNT OF NO. OF WORDS READ IN. F6R00240 LXA ADD07,1 SET XR1=0 F6R00250 IN207 SXD ADD08,1 SAVE XR1. F6R00260 CAL RECOR,1 STORE SL IN DATA2 F6R00270 SLW DATA2 STORE OP IN DATA3 F6R00280 CAL REC03,1 F6R00290 SLW DATA3 F6R00300 CAL REC02,1 STORE SA IN DATA4 F6R00310 SLW DATA4 F6R00320 CAL REC01,1 STORE RA IN DATA5 F6R00330 SLW DATA5 F6R00340 LDQ DATA6 F6R00350 STQ E1005 STORE BLANKS IN E1006,1007,1010,1005 F6R00360 STQ E1006 F6R00370 STQ E1007 F6R00380 STQ E1010 F6R00390 CAL DATA2 TEST SYMBOLIC LOCATION. F6R00400 TZE ADD09 IF ZERO, GO TO ADD09. F6R00410 LRS 30 NOT ZERO. SEE IF SL(1) EQUAL ZERO. F6R00420 TZE ADD10 SL(1) EQUAL ZERO, GO TO ADD10. F6R00430 SUB DATA7 SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15. F6R00440 TNZ ADD11 SL(1) NOT EQUAL 15, GO TO ADD11 F6R00450 CAL DATA6 SL(1) EQUAL 15. PUT BLANKS IN AC AND F6R00460 TRA ADD12 GO TO ADD12 F6R00470 ADD11 ADD DATA7 RESOTRE SL(1) IN AC. F6R00480 SUB LIB3 F6R00490 TZE LIB2 IF SL(1)=$, GO TO LIB2 F6R00500 ADD LIB3 F6R00510 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 011/011 ------ SUB LIB5 F6R00520 TZE LIB6 IF SL(1)=(, GO TO LIB6 F6R00530 ADD LIB5 F6R00540 SUB DATA7 F6R00550 TPL ME1 GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560 ADD DATA7 F6R00570 RQL 1 SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580 TSX SUB1,1 AND GO TO SUB1 (TIV TYPE ENTRY). F6R00590 TRA ADD12 F6R00600 ME1 CAL DATA2 F6R00610 TRA ADD12 F6R00620 ADD10 LGL 13 IFN. ASSEMBLE SYMBOL AND GO TO SUB2. F6R00630 TSX SUB2,1 F6R00640 ADD09 LGL 36 SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC. F6R00650 ADD12 SLW E1003 STORE ACC. IN E1003. F6R00660 IN245 LDQ DATA3 SELECT OP IN MQ. F6R00670 CLS DATA8 F6R00680 LGL 18 F6R00690 STQ E0777 STORE DECREMENT IN E0777. F6R00700 LDQ DATA6 LOAD MQ WITH BLANKS F6R00710 LGL 6 F6R00720 ALS 6 F6R00730 STO E1004 STORE IN E1004. F6R00740 CAS DATA9 IS OP EQUAL OCT. F6R00750 TRA ADD13 OP LESS THEN OCT F6R00760 TRA ADD14 OP EQUAL OCT. GO TO ADD14. F6R00770 CAS DAT10 OP GREATER THEN OCT. SEE IF OP=BCD. F6R00780 TRA ADD13 F6R00790 TRA ADD15 OP EQUAL BCD. GO TO ADD15. F6R00800 ADD13 LDQ DATA4 OP NOT BCD OR OCT. F6R00810 PXD SELECT SA IN MQ. F6R00820 LGL 6 F6R00830 TNZ IN301 SA(1) NOT EQUAL ZERO. GO TO IN301. F6R00840 LGL 12 SA(1) EQUAL ZERO. TEST FOR INTERNAL F6R00850 TNZ IN310 FORMULA NUMBER TYPE. IF YES, GO TO IN310. F6R00860 LDQ DATA6 SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH F6R00870 CLA DATA5 TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS. F6R00880 TNZ IN446 NOT EQUAL ZERO. GO TO IN446 F6R00890 CLA E0777 RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT. F6R00900 TNZ IN320 NOT ZERO, GO TO IN320 F6R00910 CAL DT713 ZERO, OR A BLANK TO RT-HAND END OF E1004. F6R00920 ORS E1004 F6R00930 TRA IN367 F6R00940 IN301 CAS DATA8 TEST IF SA(1)=16. F6R00950 TRA IN313 GREATER THEN 16(TRUE SYMBOL). GO TO IN313. F6R00960 TSX 4,4 EQUAL IS ERROR. F6R00970 TSX SUB1,1 LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1. F6R00980 LRS 30 RETURN FROM SUB1. F6R00990 RQL 1 F6R01000 TRA IN313 F6R01010 IN310 TSX SUB2,1 INTERNAL FORMULA NO. TYPE. F6R01020 PXD F6R01030 LGL 6 F6R01040 IN313 ORS E1004 F6R01050 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 012/012 ------ STQ E1000 F6R01060 CAL DT713 F6R01070 ORS E1000 F6R01080 LDQ E1000 F6R01090 IN320 CAL IN313 F6R01100 TSX IN403,1 F6R01110 CLA DATA5 SELECT RELATIVE ADDRESS. F6R01120 ARS 18 F6R01130 TZE IN335 RA EQUAL ZERO, GO TO IN335 F6R01140 LDQ DATA6 RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND F6R01150 TSX IN422,1 GO TO IN422 F6R01160 CLA DATA5 SET ACC. EQUAL RA. F6R01170 TPL IN333 IF RA POSITIVE, GO TO IN333. F6R01180 CAL DT714 IF RA NEGATIVE, SELECT OCTAL 40 (MINUS) F6R01190 TRA IN334 AND GO TO IN334. F6R01200 IN333 CAL DATA8 SELECT OCTAL 20 (PLUS) F6R01210 IN334 TSX IN416,1 F6R01220 IN335 CLA DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777 F6R01230 ANA DATA1 F6R01240 TNZ IN344 IF NOT ZERO, GO TO IN344. F6R01250 CLA E0777 ZERO. TEST IF E0777 EQUAL ZERO. F6R01260 TZE IN363 IF ZERO, GO TO IN363. F6R01270 LDQ DT711 NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST F6R01280 TRA IN352 AND GO TO IN 352 F6R01290 IN344 LDQ DT710 F6R01300 CAS DT722 F6R01310 TRA IN351 F6R01320 TRA IN351 F6R01330 LDQ DATA6 F6R01340 IN351 TSX IN422,1 F6R01350 IN352 CLA DT712 F6R01360 TSX IN416,1 F6R01370 CLA E0777 F6R01380 TZE IN363 F6R01390 ARS 18 F6R01400 LDQ DATA6 F6R01410 TSX IN422,1 F6R01420 CLA DT712 F6R01430 TSX IN416,1 F6R01440 IN363 PXD 6 F6R01450 LDQ DATA6 F6R01460 LGL 36,2 F6R01470 IN366 ORS * F6R01480 IN367 WTD 2 F6R01490 LXA IN363,1 F6R01500 IN371 CPY E1011,1 F6R01510 TIX IN371,1,1 F6R01520 IOD F6R01530 LXD ADD08,1 F6R01540 TXI ADD06,1,4 F6R01550 ADD06 TXL IN207,1,* F6R01560 LXD ADD02,2 F6R01570 ADD08 TXI ADD03,0,* F6R01580 IN401 TXL IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT F6R01590 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 013/013 ------ CAL IN417 SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES F6R01600 IN403 ADD DT723 COMPUTE ADDRESS FOR STORING WORD. F6R01610 STA IN417 F6R01620 STA IN366 F6R01630 STA IN410 F6R01640 PXD CLEAR ACC. F6R01650 IN410 SLW * STORE ZERO IN WORD. F6R01660 PDX 0,2 SET XR2 EQUAL TO ZERO F6R01670 IN412 LGL 6 SELECT CHARACTER F6R01680 CAS DT713 IS CHARACTER BLANK. F6R01690 TRA IN416 NO. F6R01700 TRA 1,1 YES, RETURN TO PROGRAM F6R01710 IN416 ALS 30,2 NO, SHIFT CHARACTER F6R01720 IN417 ORS * F6R01730 PXD F6R01740 TXI IN401,2,6 ADJUST XR2 SHIFT AND GO TO IN401. F6R01750 IN422 STQ E1002 F6R01760 SXD DT772,1 F6R01770 IN424 LRS 35 F6R01780 PDX 0,1 F6R01790 SLW E1001 F6R01800 IN427 DVP DT721 F6R01810 ALS 0,1 F6R01820 ORS E1001 F6R01830 STQ E1000 F6R01840 CLA E1000 F6R01850 TZE IN437 F6R01860 CLM 0 F6R01870 TXI IN427,1,-6 F6R01880 IN437 CAL E1001 F6R01890 LDQ E1002 F6R01900 LGL 1 F6R01910 IN442 LDQ E1002 F6R01920 LRS 6,1 F6R01930 LXD DT772,1 F6R01940 TRA 1,1 F6R01950 IN446 ARS 18 F6R01960 TZE IN320 F6R01970 TSX IN422,1 F6R01980 CLA DATA5 F6R01990 TPL IN455 F6R02000 CAL DT714 F6R02010 TRA IN457 F6R02020 IN455 PXD F6R02030 LGL 6 F6R02040 IN457 ORS E1004 F6R02050 CAL IN313 F6R02060 TSX IN403,1 F6R02070 TRA IN335 F6R02080 ADD15 LDQ DATA4 F6R02090 CAL DATA8 F6R02100 TQP IN470 F6R02110 ADD DATA8 F6R02120 LRS 0 F6R02130 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 014/014 ------ IN470 ORS E1004 F6R02140 ALS 3 F6R02150 LGL 3 F6R02160 ALS 3 F6R02170 LGL 3 F6R02180 ALS 3 F6R02190 LGL 3 F6R02200 ALS 3 F6R02210 LGL 3 F6R02220 ALS 3 F6R02230 LGL 3 F6R02240 ALS 3 F6R02250 LGL 3 F6R02260 SLW E1005 F6R02270 ALS 3 F6R02280 LGL 3 F6R02290 ALS 3 F6R02300 LGL 3 F6R02310 ALS 3 F6R02320 LGL 3 F6R02330 ALS 3 F6R02340 LGL 3 F6R02350 ALS 3 F6R02360 LGL 3 F6R02370 ALS 3 F6R02380 LGL 3 F6R02390 SLW E1006 F6R02400 TRA IN367 F6R02410 ADD14 CLA DATA4 F6R02420 SUB DT717 F6R02430 TNZ IN532 F6R02440 CAL DAT10 F6R02450 SLW E1004 F6R02460 TRA ADD15 F6R02470 IN532 CAL DT723 F6R02480 ORS E1004 F6R02490 CAL DATA4 F6R02500 SLW E1005 F6R02510 CAL DATA6 F6R02520 SLW E1006 F6R02530 TRA IN367 F6R02540 SUB1 SXD DT703,1 SAVE XR1 FOR RETURN F6R02550 PAX 0,4 STORE CHARACTER IN XR4 F6R02560 SUB DATA7 IS CHARACTER *. F6R02570 TNZ IN550 NO, GO TO IN 550. F6R02580 CAL DT716 YES, SELECT *. F6R02590 LDQ DATA6 LOAD MQ WITH BLANKS. F6R02600 TRA IN313 GO TO IN 313. F6R02610 LIB2 TRA RPCH1 F6R02620 TRA ADD12 F6R02630 LIB3 BCD 100000$ F6R02640 LIB4 BCD 1$ F6R02650 LIB5 BCD 100000( F6R02660 LIB6 CAL DATA2 F6R02670 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 015/015 ------ TRA ADD12 F6R02680 IN550 CAL DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC F6R02690 ALS 6 CHARACTER. F6R02700 ORA DT771 FOLLOWED BY LEFT PARENTHESIS F6R02710 ALS 24 AND SHIFT INTO PROPER POSITION. F6R02720 SLW E1000 F6R02730 LXA IN565,3 F6R02740 RQL 12 F6R02750 PXD 0 F6R02760 LGL 3 TAG BITS INTO ACC. ADDRESS F6R02770 TNZ IN565 TAG BITS EQUAL ZERO. NO, GO TO IN565 F6R02780 IN562 TNX IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575 F6R02790 LGL 5 NOT FINISHED WITH WORD. TEST ADDRESS BITS F6R02800 TZE IN562 ADDRESS BITS ZERO. F6R02810 IN565 PAX 4,4 ADDRESS BITS NOT ZERO. F6R02820 CAL DT770,4 SELECT CHARACTER. F6R02830 TNX IN576,1,1 F6R02840 ALS 22,2 SHIFT INTO PROPER POSITION . F6R02850 ORS E1000 F6R02860 PXD F6R02870 LGL 5 F6R02880 TXI IN565,2,6 ADJUST SHIFT. F6R02890 IN575 CAL DT713 F6R02900 IN576 LDQ DATA6 F6R02910 LGL 22,2 F6R02920 ORA E1000 F6R02930 LXD DT703,1 F6R02940 TRA 1,1 F6R02950 SUB2 STO E1000 F6R02960 LGL 8 F6R02970 PXD 0 F6R02980 LRS 29 F6R02990 DVP DT721 F6R03000 TNZ IN612 F6R03010 CAL DT713 IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK F6R03020 IN612 SLW E1002 F6R03030 LGL 36 F6R03040 SXD DT772,1 F6R03050 PAX 0,1 F6R03060 CAL IN756,1 SELECT ALPHABETIC CHARACTER. F6R03070 ALS 6 F6R03080 ORA E1002 F6R03090 LDQ DATA6 F6R03100 LGL 24 F6R03110 SLW E1002 F6R03120 CLA E1000 F6R03130 TRA IN424 F6R03140 ADD07 HTR 0 F6R03150 ADD01 WEF 2 F6R03160 REW 4 F6R03170 REW 2 F6R03180 RTB 1 F6R03190 TRA 4 F6R03200 DT703 HTR 0 F6R03210 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 016/016 ------ DAT10 OCT 604623636000 F6R03220 DATA9 OCT 602223246000 F6R03230 DATA6 OCT 606060606060 F6R03240 DT707 OCT 336060606060 F6R03250 DT710 OCT 636060606060 F6R03260 DT711 OCT 006060606060 F6R03270 DT712 OCT 73 F6R03280 DT713 OCT 60 F6R03290 DT714 OCT 40 F6R03300 DATA8 OCT 20 F6R03310 DT716 OCT 54 F6R03320 DT717 OCT 777777777777 F6R03330 DATA7 OCT 17 F6R03340 DT721 OCT 12 F6R03350 DT722 OCT 5 F6R03360 DT723 OCT 1 F6R03370 DATA1 OCT 77777 F6R03380 DT725 OCT 71 F6R03390 OCT 70 F6R03400 OCT 67 F6R03410 OCT 66 F6R03420 OCT 65 F6R03430 OCT 64 F6R03440 OCT 63 F6R03450 OCT 62 F6R03460 DT735 OCT 51 F6R03470 OCT 50 F6R03480 OCT 47 F6R03490 OCT 46 F6R03500 OCT 45 F6R03510 OCT 44 F6R03520 OCT 43 F6R03530 OCT 42 F6R03540 OCT 41 F6R03550 OCT 31 F6R03560 OCT 30 F6R03570 OCT 27 F6R03580 OCT 26 F6R03590 OCT 25 F6R03600 OCT 24 F6R03610 OCT 23 F6R03620 OCT 22 F6R03630 IN756 OCT 21 F6R03640 OCT 11 F6R03650 OCT 10 F6R03660 OCT 7 F6R03670 OCT 6 F6R03680 OCT 5 F6R03690 OCT 4 F6R03700 OCT 3 F6R03710 OCT 2 F6R03720 OCT 1 F6R03730 DT770 OCT 0 F6R03740 DT771 OCT 34 F6R03750 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 017/017 ------ DT772 HTR 0 F6R03760 DATA2 HTR 0 F6R03770 DATA3 HTR 0 F6R03780 DATA4 HTR 0 F6R03790 DATA5 HTR 0 F6R03800 E0777 HTR 0 F6R03810 E1000 HTR 0 F6R03820 E1001 HTR 0 F6R03830 E1002 HTR 0 F6R03840 E1003 HTR 0 F6R03850 E1004 HTR 0 F6R03860 E1005 HTR 0 F6R03870 E1006 HTR 0 F6R03880 E1007 HTR 0 F6R03890 E1010 HTR 0 F6R03900 E1011 HTR 0 F6R03910 HTR 0 F6R03920 HTR 0 F6R03930 HTR 0 F6R03940 E1015 HTR 0 F6R03950 REC BES 100 F6R03960 RPCH1 LLS 6 F6R03961 SUB LIB3 F6R03962 TZE LIB2A F6R03963 CAL LIB4 SINGLE DOLLAR SIGN F6R03964 TRA ADD12 F6R03965 LIB2A CAL DOL2 DOUBLE DOLLAR SIGN. F6R03966 TRA ADD12 F6R03967 DOL2 BCD 1$$ F6R03968 REC01 SYN REC-4 F6R03979 REC02 SYN REC-3 F6R03980 REC03 SYN REC-2 F6R03990 RECOR SYN REC-1 F6R04000 END F6R04010 REM EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II rem ------ scanned 9/6/07 304349-Volume_III.pdf Page 85/969 ------ REM REM RECNBR IS SYNONYMOUS WITH THE NUMBER OF THE RECORD T0 WHICH REM THE DIAGNOSTIC CALLER PERTAINS. REC*** IS THE FORTRAN RECORD REM NUMBER ASSIGNED TO THE DIAGNOSTIC CALLER. REM BEGIN IS SYNONYMOUS WITH THE LOAD ADDRESS OF THE DIAGNOSTIC REM CALLER. BEG**** HAS THE SAME VALUE AS BEGIN. REM RECNBR SYN *** REC *** BEGIN SYN **** REC **** ORG 0 FORCE NEW MASTER RECORD MR 1 HTR BEGIN,0,BEGIN CARD FOR EDITOR, NEEDS MR 2 HTR STOP 9 ROW, COL. 3 PUNCH MR 3 ORG BEGIN CALL DIAG FROM FILE CD1 1 SXD 0,2 CD1 2 LXD MEM,1 CD1 3 LXD FILTST,2 * FILES TO BE SPACED OVER CD1 4 WDR 4 0 TO 2047 WRITTEN ON DRUM 4 CD1 5 COPY CPY 2048,1 CD1 6 TIX COPY,1,1 NEXT TIME LOOP WILL COPY INTO 25 CD1 7 TXI A,1,2022 UNTIL END OF RECORD SKIP CD1 S TRA 26 IGNORE RECORD NUMBER CD1 9 A RTB 1 CD1 10 CPY BEGIN SPACE OVER RECORDS IN THIS FILE CD1 11 FILTST TNX A,0,3 CD1 12 TRA B HAVE ALL 3 FILES BEEN SPACED OVER CD1 13 MEM HTR RECNBR,0,2048 CD1 14 B TIX A,2,1 NO, GO BACK TO A CD1 15 CLA MEM CD1 16 STA 2 CD1 17 RTB 1 YES, READ IN MAIN DIAGNOSTIC CD1 18 STOP TRA COPY CD1 19 END CD1 20 REM AST rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 018/018 ------ REM ************* FORTRAN II SECTION SIX ************************F6S00010 REM FORTRAN 2 RECORD 005 - ON-LINE PRINT. F6S00011 REM F6S00012 REM MODIFICATIONS TO TPH1 TO PRINT WITH F6S00020 REM SENSE SWITCH CHANGES F6S00030 ORG 136 F6S00040 REW 2 F6S00050 LXD FILES,1 F6S00060 CLA ONE F6S00070 CAS SW2 TEST SENSE SWITCH TWO. F6S00080 TRA LIB1 UP F6S00090 TRA ASKER DOWN F6S00100 SWT 2 F6S00110 LIB1 TNX CARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120 ASKER CLA ONE SWITCH 2 DOWN (OR UP BUT FILES TO DO) F6S00130 CAS SW3 TEST SENSE SWITCH THREE. F6S00140 TRA FILES UP, GO TO RETURN TO LOADER F6S00150 TRA LIB2 DOWN F6S00160 SWT 3 F6S00170 FILES TXI CARDS,,3 UP, GO RETURN TO LOADER F6S00180 LIB2 SXD COUNT,1 SWITCH THREE DOWN. F6S00190 WPR TO PRINT FILE OF TAPE TWO. F6S00200 SPR 1 F6S00210 COUNT TXI PRINT F6S00220 PARTS LXD COUNT,1 F6S00230 TIX ASKER,1,1 F6S00240 CARDS RTB 1 RETURN TO LOADER F6S00250 TRA 4 F6S00260 ME8 HTR 5 F6S00270 PRINT RTT F6S00280 NOP F6S00290 ME9 LXD ME8,4 F6S00300 I113 LXD I117,2 SET RECORD LENGTH EQUAL 20 F6S00310 SLN 1 TURN ON SENSE LIGHT 1 F6S00320 RTD 2 SELECT TAPE TWO IN BCD MODE F6S00330 I116 CPY D65,2 AND COPY RECORD. F6S00340 I117 TXL I132,,20 F6S00350 TRA PARTS END OF FILE. F6S00360 I121 TXI I122,2,1 F6S00370 I122 PXD 0,2 F6S00380 RTT TEST TAPE CHECK. F6S00390 TXL I134,0,0 ERROR. F6S00400 I125 ADD I131 PRINT THIS RECORD. F6S00410 STD I130 F6S00420 TSX I143,4 F6S00430 I130 HTR D41+1 F6S00440 I131 TXL ME9,0,D65 F6S00450 I132 TIX I116,2,1 NEXT WORD BUT NO F6S00460 TXL I122,0,0 MORE THEN 20. F6S00470 I134 TIX I136,4,1 TEST FOR ANOTHER TRY. F6S00480 TSX 4,4 F6S00490 I136 BST 2 TRY AGAIN. F6S00500 TXL I113,0,0 F6S00510 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 019/019 ------ I143 CLA 1,4 SUBSTITUTE CODING. F6S00520 STD I302 F6S00530 ARS 18 F6S00540 ADD I302 F6S00550 STA I161 F6S00560 STA I211 F6S00570 SUB 1,4 F6S00580 SXD I302,4 F6S00590 PAX 0,4 F6S00600 SXD I155,4 F6S00610 I155 TXH 0,0,* F6S00620 WPR SELECT PRINTER F6S00630 CLA I301 FIND LAST NON-BLANK GROUP. F6S00640 LXD I224,4 F6S00650 I161 CAS *,4 F6S00660 TXI I165,4,-1 F6S00670 I163 TXI I161,4,1 F6S00680 TXI I165,4,-1 F6S00690 I165 SXD I230,4 STORE END TEST. F6S00700 SXD I242,4 F6S00710 SXD I172,4 F6S00720 SXD I271,4 F6S00730 LXD I155,4 F6S00740 I172 TNX I176,4 F6S00750 TXL I175,4,12 F6S00760 SPR 8 FIRST CYCLE. F6S00770 I175 LXD I155,4 INITIALIZE GROUP COUNT. F6S00780 I176 LXA I203,2 INITIALIZE LEFT SETUP. F6S00790 LXD I245,1 F6S00800 CLA ONE F6S00810 CAS SW4 F6S00820 TRA I201 F6S00830 TRA LIB5 F6S00840 SWT 4 F6S00850 I201 TXL I203,0,* F6S00860 LIB5 NOP F6S00870 I203 PXD F6S00880 I204 SLW D41,1 CLEAR CARD IMAGE. F6S00890 SLW D21,1 F6S00900 TIX I204,1,1 F6S00910 I207 CAL I303 INITIALIZE COLUMN INDICATOR. F6S00920 I210 SLW 0 F6S00930 I211 LDQ *,4 OBTAIN GROUP. F6S00940 SXD I201,4 STORE GROUP COUNT. F6S00950 LXA I215,4 SET CHARACTER COUNT. F6S00960 I214 PXD F6S00970 I215 LGL 6 F6S00980 PAX 0,1 F6S00990 CAL 0 POSITION COLUMN INDICATOR. F6S01000 ARS 6,4 F6S01010 TIX I245,1,16 TEST FOR DIGIT. F6S01020 TXH I250,1,15 TEST FOR Y-Z ONE F6S01030 ORS D36,3 STORE DIGIT. F6S01040 I224 TIX I214,4,1 COUNT CHARACTERS. F6S01050 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 020/020 ------ I225 ARS 1 SHIFT AND TEST COLUMN. F6S01060 LXD I201,4 RESTORE GROUP COUNT. F6S01070 TXI I230,4,-1 COUNT GROUPS. F6S01080 I230 TXL I232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090 TNZ I210 TEST FOR END OF ROW. F6S01100 I232 CAL D23,2 FORM TRUE 8,4 F6S01110 ORS D26,2 AND 3 ROWS AND F6S01120 ORS D33,2 MOVE 8,4 AND 8,3 F6S01130 SLW D24,2 ROWS. F6S01140 CAL D22,2 F6S01150 ORS D26,2 F6S01160 ORS D32,2 F6S01170 SLW D23,2 F6S01180 I242 TXL I265,4 TEST FOR END. F6S01190 TXH I265,2,15 TEST FOR RIGHT HALF. F6S01200 TXI I207,2,16 INITIALIZE RIGHT HALF. F6S01210 I245 TIX I253,1,16 TEST FOR 16/CH/32 F6S01220 TXH I256,1,15 TEST FOR X-ZONE F6S01230 ORS D36,3 STORE DIGIT. F6S01240 I250 ORS D40,2 STORE Y-ZONE. F6S01250 TIX I214,4,1 COUNT CHARACTERS. F6S01260 I252 TXL I225 OBTAIN NEXT GROUP. F6S01270 I253 TIX I261,1,16 TEST FOR 32/CH/48. F6S01280 TXH I224,1,15 TEST FOR BLANK. F6S01290 ORS D36,3 STORE DIGIT. F6S01300 I256 ORS D37,2 STORE X-ZONE. F6S01310 TIX I214,4,1 COUNT CHARACTERS. F6S01320 I260 TXL I225 OBTAIN NEXT GROUP. F6S01330 I261 ORS D36,2 STORE 0-ZONE. F6S01340 ORS D36,3 STORE DIGIT. F6S01350 TIX I214,4,1 COUNT CHARACTERS. F6S01360 TXL I225 F6S01370 I265 LXD I300,1 COPY LOOP. F6S01380 I266 CPY D41,1 CARD IMAGE COPIES. F6S01390 CPY D21,1 F6S01400 TIX I266,1,1 COUNT COPIES. F6S01410 I271 TXH I276,4 TEST FOR SECOND CYCLE. F6S01420 LXD I252,1 NO, RELOAD INDEX REGISTERS F6S01430 LXD I260,2 AND RETURN. F6S01440 LXD I302,4 F6S01450 TRA 2,4 F6S01460 I276 WPR SELECT PRINTER AGAIN. F6S01470 SPR 9 SECOND CYCLE. F6S01480 I300 TXL I176,0,12 CONVERT REST OF LINE F6S01490 I301 BCD 1 F6S01500 I302 HTR 1 F6S01510 I303 MZE F6S01520 BES 40 F6S01530 D21 HTR 0 F6S01540 D22 HTR 0 F6S01550 D23 HTR 0 F6S01560 D24 HTR 0 F6S01570 D25 HTR 0 F6S01580 D26 HTR 0 F6S01590 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 021/021 ------ D27 HTR 0 F6S01600 D30 HTR 0 F6S01610 D31 HTR 0 F6S01620 D32 HTR 0 F6S01630 D33 HTR 0 F6S01640 D34 HTR 0 F6S01650 D35 HTR 0 F6S01660 D36 HTR 0 F6S01670 D37 HTR 0 F6S01680 D40 HTR 0 F6S01690 D41 HTR 0 F6S01700 D65 BES 20 F6S01710 ZERO EQU 113 F6R00030 ONE EQU 114 F6R00040 SW1 EQU 127 F6R00050 SW2 EQU 128 F6R00060 SW3 EQU 129 SW4 EQU 130 END F6S01720 REM ************* FORTRAN II SECTION SIX ************************F6T00010 REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 022/022 -------- REM FORTRAN 2 RECORD 007 - TAPE 3,7 TO 2,6. F6T00011 REM F6T00012 ZERO EQU 113 ONE EQU 114 SW1 EQU 127 SW2 EQU 128 REM DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO F6T00020 REM TAPE7 IF BATCH COMPILING F6T00030 ORG 136 F6T00030 REW 2 REWIND TAPES TWO AND THREE. F6T00040 REW 3 F6T00050 LXD ZERO,1 F6T00060 SWT 6 TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070 TRA FINI UP. DO NOT DUMP TAPES BUT GO TO FINI. F6T00080 A11 RTT F6T00090 NOP F6T00100 A6 LXD SEVEN,4 SET READ ERROR COUNTER. F6T00110 A2 LXD ZERO,2 F6T00120 RTD 2 READ A RECORD OF TAPE TWO. F6T00130 A1 CPY REC-1,2 F6T00140 TXI A1,2,1 F6T00150 TRA EOF EOF F6T00160 ARS 255 F6T00170 ARS 253 F6T00180 RTT F6T00190 TRA ERROR ERROR F6T00200 TXI NEXT2,2,-1 F6T00210 NEXT2 SXD A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220 LXD ZERO,2 ONTO TAPE6 F6T00230 WTD 6 WRITE RECORD JUST READ ONTO TAPE SIZE F6T00240 A3 CPY REC-1,2 F6T00250 TXI A4,2,1 F6T00260 A4 TXL A3,2,* F6T00270 IOD F6T00280 TRA A11 GO READ NEXT RECORD FROM TAPE TWO. F6T00290 SEVEN 0,0,5 F6T00300 ERROR BST 2 READ ERROR PROCEDURE. F6T00310 TIX A2,4,1 F6T00320 TSX 4,4 F6T00330 ER HTR ER F6T00340 EOF WEF 6 AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350 TXI A5,1,1 F6T00360 REM ON TAPE SIX. F6T00370 A5 TXH TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO. F6T00380 RTD 2 NO F6T00390 TRA A6 F6T00400 TAPE7 CLA ONE TEST SENSE SWITCH ONE. F6T00410 CAS SW1 F6T00420 TRA EOF3+1 F6T00430 TRA A7 F6T00440 SWT 1 F6T00450 TRA EOF3+1 F6T00460 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 023/023 ------ A7 LXD SEVEN,4 DOWN. SET READ ERROR COUNTER. F6T00470 A12 LXD ZERO,2 ONTO TAPE7 F6T00480 RTB 3 READ A RECORD FROM TAPE THREE F6T00490 A8 CPY REC-1,2 F6T00500 TXI A8,2,1 F6T00510 TRA EOF3 EOF OF FILE. F6T00520 ARS 255 F6T00530 ARS 255 F6T00540 RTT F6T00550 TRA ERR3 ERROR. F6T00560 TXI NEXT1,2,-1 F6T00570 NEXT1 SXD A10,2 SAVE WORD COUNT OF RECORD. F6T00580 LXD ZERO,2 F6T00590 WTB 7 WRITE THE RECORD ONTO TAPE SEVEN. F6T00600 A9 CPY REC-1,2 F6T00610 TXI A10,2,1 F6T00620 A10 TXL A9,2,* TEST END OF RECORD. F6T00630 IOD F6T00640 RTT F6T00650 NOP F6T00660 TRA A7 GO READ NEXT RECORD. F6T00670 ERR3 BST 3 F6T00680 TIX A12,4,1 READ ERROR PROCEDURE. F6T00690 TSX 4,4 F6T00700 ERR4 HTR ERR4 F6T00710 EOF3 WEF 7 AT EOF ON 3, WRITE EOF ON 7. F6T00720 RTB 1 F6T00730 RTB 1 F6T00740 RTB 1 F6T00750 FINI REW 2 REWINDS TAPES 2,3, AND 4 AND F6T00760 REW 3 RETURNS TO LOADER, F6T00770 REW 4 F6T00780 RTB 1 F6T00790 TRA 4 F6T00800 TEST2 CLA ONE AFTER 2ND FILE FROM 2 TO 6, F6T00810 CAS SW2 TEST SENSE SWITCH 2. F6T00820 TRA TAPE7 F6T00830 TRA WT3 F6T00840 SWT 2 F6T00850 TRA TAPE7 UP. GO TEST SWITCH 1. F6T00860 WT3 LXD A5,1 DOWN. RESET INDEX REGISTER 1 TO 1. F6T00870 CLA WT3-1 CHANGE A5 TRANSFER ADDRESS TO TAPE7. F6T00880 STA A5 F6T00890 TRA A6 F6T00900 BSS 40 F6T00910 REC BES 500 F6T00920 END F6T00930 REM SUCCESSFUL COMPILATION RECORD F1SC0010 REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 024/024 -------- REM CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A F1SC0020 REM SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH F1SC0030 REM COMPILATION. TAPE 1 IS REWOUND AND A LOAD BUTTON F1SC0040 REM SEQUENCE IS EXECUTED AT THE CARD READER. F1SC0050 REM AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN F1SC0060 REM OPERATING NEEDS. F1SC0070 REM F1SC0080 REM MASTER RECORD CARD = F0090000. F1SC0090 ORG 24 F1SC0100 START LTM F1SC0110 REW 1 F1SC0120 RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SC0130 CPY 0 F1SC0140 TRA SECCPY F1SC0150 HTR 32767 CARD READER EMPTY, HALT. F1SC0160 SECCPY CPY 1 F1SC0170 TRA 0 F1SC0180 END 24 F1SC0190 REM SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 F1SPE010 REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 025/025 -------- REM TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE F1SPE020 REM EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED. SL3-ON F1SPE030 REM IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD F1SPE040 REM IS FOUND. SS6-ON IF IN BATCH COMPILE MODE. F1SPE050 REM F1SPE060 REM MASTER RECORD CARD = F0100000. F1SPE070 ORG 24 F1SPE080 LTM F1SPE090 SLT 1 SL1-ON IF PROGRAM TO BE RE-TRIED. F1SPE100 TRA SS6TST F1SPE110 TRA SKIPCM SKIP TO COMMON RECORD F1SPE120 SS6TST SWT 6 SS6-ON IF IN BATCH MODE. F1SPE130 TRA READCD SINGLE COMPILATION. READ CARD READER SEQ. F1SPE140 SLT 3 ON IF END CARD ERROR FOUND BY BATCH MONITOR F1SPE150 TRA SKIPBM SKIP TO BATCH MONITOR RECORD F1SPE160 REW 6 F1SPE170 READCD REW 4 F1SPE180 REW 3 F1SPE190 REW 2 F1SPE200 REW 1 F1SPE210 RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SPE220 CPY 0 F1SPE230 TRA SECCPY F1SPE240 HTR 32767 CARD READ EMPTY. F1SPE250 SECCPY CPY 1 F1SPE260 TRA 0 F1SPE270 SKIPCM RTB 1 SKIP OVER FILE 1 MARK TO BATCH MONITOR. F1SPE280 RTB 1 SKIP OVER BATCH MONITOR RECORD F1SPE290 SKIPBM RTB 1 AND/OR SKIP MACHINE ERROR RECORD F1SPE300 TRA 4 TO 1-CS TO READ NEXT RECORD F1SPE310 END 24 F1SPE320 REM MONITOR PROGRAM FOR BATCH COMPILATION F1BM0010 REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 026/026 -------- REM MASTER RECORD CARD F0120000 F1BM0020 ORG 24 F1BM0030 START SWT 6 TEST SW6, UP = SINGLE PROBLEM, F1BM0040 TRA ADD93+1 SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050 SLN 0 TURN OFF LIGHTS F1BM0060 ADD01 LXA L(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5. F1BM0070 CAL BLANKS F1BM0080 SLW BUFFER-1 F1BM0090 SLW BUFFER-2 F1BM0100 RTT TURN OFF INDICATOR F1BM0110 NOP F1BM0120 ADD015 RTD 5 F1BM0130 LXA L(14),3 ASSUME 14 WORDS PER RECORD F1BM0140 ADD02 CPY BUFFER,1 F1BM0150 TRA ADD03 F1BM0160 TRA ADD90 EOF F1BM0170 TRA ADD04 EOR F1BM0180 ADD03 TIX ADD02,1,1 F1BM0190 ADD04 ARS 255 F1BM0200 ARS 255 F1BM0210 RTT TEST TAPE INDICATOR F1BM0220 TRA ADD80 ON, PREPARE TO READ AGAIN F1BM0230 WTD 2 OFF, WRITE THIS RECORD ON TAPE 2 F1BM0240 ADD05 CPY BUFFER,2 F1BM0250 TIX ADD05,2,1 F1BM0260 IOD F1BM0270 RTT F1BM0280 NOP F1BM0290 ADD70 TXH ADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300 TSX PRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM F1BM0310 PZE RESTR,0,BUFFER F1BM0320 WPR F1BM0330 WPR F1BM0330 WPR F1BM0330 WPR F1BM0330 WPR F1BM0330 CLS ADD70 CHANGE TXH TO TXL F1BM0350 STO ADD70 F1BM0360 ADD71 SLN 1 SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370 PXD 0,0 EXITS F1BM0380 LDQ BUFFER-14 TEST FOR COMMENT CARD F1BM0390 LGL 6 F1BM0400 SUB L(C) F1BM0410 TZE ADD01 YES, GO READ NEXT TAPE RECORD F1BM0420 LGL 24 DISCARD FORMULA NUMBER F1BM0430 PXD 0,0 F1BM0440 LGL 6 F1BM0450 TZE ADD06 TEST FOR CONTINUATION CARD F1BM0460 SUB BLANK F1BM0470 TNZ ADD01 YES, GO READ NEXT TAPE RECORD F1BM0480 ADD06 LXA L(12),1 THIS RECORD IS OF FIRST CARD OF F1BM0490 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 027/027 ------ LXA L(7),2 FORTRAN STATEMENT. PREPARE TO TEST F1BM0500 CLA BUFFER FOR END(..,..,..,..,..) CARD F1BM0510 STO BUFFER-2 POSITION ENDMARK F1BM0520 LDQ BUFFER-13 F1BM0530 TSX SUB1,4 F1BM0540 SUB L(E) TEST FIRST CHAR FOR E F1BM0550 TNZ ADD01 F1BM0560 TSX SUB1,4 F1BM0570 SUB L(N) TEST SECOND CHAR FOR N F1BM0580 TNZ ADD01 F1BM0590 TSX SUB1,4 F1BM0600 SUB L(D) TEST THIRD CHAR FOR D F1BM0610 TNZ ADD01 F1BM0620 TSX SUB1,4 F1BM0630 SUB L(() TEST FOURTH CHAR FOR ( F1BM0640 TNZ ADD01 F1BM0650 TSX SUB1,4 F1BM0660 TSX SUB1,4 F1BM0670 SUB COMMA TEST SIXTH CHAR FOR , F1BM0680 TNZ ADD01 F1BM0690 TSX SUB1,4 F1BM0700 TSX SUB1,4 F1BM0710 SUB COMMA TEST EIGHTH CHAR FOR , F1BM0720 TNZ ADD01 F1BM0730 TSX SUB1,4 F1BM0740 TSX SUB1,4 F1BM0750 SUB COMMA TEST TENTH CHAR FOR , F1BM0760 TNZ ADD01 F1BM0770 ADD93 WEF 2 THIS IS END CARD, TERMINATE FILE F1BM0780 RTB 1 SKIP OVER MACHINE ERROR RECORD. F1BM0790 TRA 4 GO TO 1-CS FOR SECTION ONE F1BM0800 ADD80 BST 5 TAPE ERROR F1BM0810 TIX ADD015,4,1 F1BM0820 TSX PRINT,4 F1BM0830 TP5ERR,0,TP5END F1BM0840 SPROER SLN 3 SL3-ON IF TAPE CANNOT BE READ OR END CARD F1BM0850 BSTRTN BST 1 TROUBLE. F1BM0860 BST 1 BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870 BST 1 RECORD. F1BM0880 TRA 4 CALL IN 1 - CS. F1BM0890 ADD90 SLT 1 IS THERE A PROBLEM TO BE COMPILED F1BM0900 TRA ADD91 FINISHED, REWIND ALL TYPES F1BM0910 TSX PRINT,4 F1BM0920 ENDCD,0,CDTEND F1BM0930 REW 5 F1BM0940 TRA SPROER F1BM0950 ADD91 BST 1 F1BM0970 REW 6 F1BM0974 REW 5 F1BM0976 TSX PRINT,C F1BM0980 REMA,0,ENDA F1BM0990 TSX PRINT,C F1BM1000 HTR RESTR,0,RESTR+1 F1BM1010 TQO *+1 F1BM1020 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 028/028 ------ TRA BSTRTN F1BM1030 SUB1 PXD 0,0 SUBROUTINE TO BRING NEXT NON BLANK F1BM1040 TIX ADD50,2,1 CHAR OF BUFFER REGION TO AC. F1BM1050 LXA L(6),2 F1BM1060 LDQ BUFFER,1 F1BM1070 TXI ADD50,1,-1 F1BM1080 ADD50 LGL 6 F1BM1090 CAS BLANK F1BM1100 TRA ADD51 F1BM1110 TRA SUB1 F1BM1120 ADD51 CAS ENDMK F1BM1130 TRA 1,4 F1BM1140 TRA ADD01 F1BM1150 TRA 1,4 F1BM1160 RESTR BCD 11 F1BM1165 BUFFER BES 14 F1BM1170 OCT 777777777777 F1BM1180 ENDMK OCT 77 F1BM1190 L(3) 3 F1BM1200 L(5) 5 F1BM1210 L(6) 6 F1BM1220 L(7) 7 F1BM1230 L(12) 12 F1BM1240 L(14) 14 F1BM1250 L(C) BCD 100000C F1BM1260 BLANKS BCD 1 F1BM1270 BLANK BCD 100000 F1BM1280 L(E) BCD 100000E F1BM1290 L(N) BCD 100000N F1BM1300 L(D) BCD 100000D F1BM1310 L(() BCD 100000( F1BM1320 COMMA BCD 100000, F1BM1330 TP5ERR BCD 90 TAPE 5 CONTAINING SOURCE SUBPROGRAM READ 5 TIMES F1BM1340 BCD 9 UNSUCCESSFULLY. TAPE 5 NOW POSITIONED AT RECORD WHICH F1BM1350 BCD 3 CANNOT BE READ. F1BM1360 TP5END BSS 0 F1BM1370 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 029/029 ------ ENDCD BCD 90 END CARD MISSING OR MISPUNCHED FOR LAST SUBPROGR F1BM1380 BCD 3AM BEING COMPILED. F1BM1390 CDTEND BSS 0 F1BM1400 REMA BCD 71 F1BM1410 BCD 6 THE LAST PROBLEM HAS BEEN PROCESSED. F1BM1420 ENDA BSS 0 F1BM1430 REM F1BM1450 REM PRINT CONTROL SUBROUTINE. F1BM1460 A EQU 1 F1BM1470 B EQU 2 F1BM1480 C EQU 4 F1BM1490 PRINT BSS 0 F1BM1500 RAN CLA 1,4 F1BM1510 STA RNA F1BM1520 ARS 18 F1BM1530 STO RNB F1BM1540 SXD RNC,4 F1BM1550 RN40 CLA RNA F1BM1560 ADD RND F1BM1570 CAS RNB F1BM1580 NOP F1BM1590 TRA RN50 F1BM1600 ALS 18 F1BM1610 ADD RNA F1BM1620 STO RAN10 F1BM1630 TSX WOT,C F1BM1640 RAN10 HTR F1BM1650 CLA RAN10 F1BM1660 ARS 18 F1BM1670 SUB RNE F1BM1680 STA RN20 F1BM1690 SUB RNE F1BM1700 STA RN30 F1BM1710 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 030/030 ------ STA RNA F1BM1720 CLA BLNKS F1BM1730 RN20 STO F1BM1740 RN30 STO F1BM1750 TRA RN40 F1BM1760 RN50 CLA RNB F1BM1770 ALS 18 F1BM1780 ADD RNA F1BM1790 STO RN60 F1BM1800 TSX WOT,C F1BM1810 RN60 HTR F1BM1820 LXD RNC,C F1BM1830 TRA 2,C F1BM1840 RNA HTR F1BM1850 RNB HTR F1BM1860 RNC HTR F1BM1870 RND HTR 20 F1BM1880 RNE HTR 1 F1BM1890 REM F1BM1900 REM PRINT SUBROUTINE. F1BM1910 WOT SXD X1,1 F1BM1920 SXD X2,2 F1BM1930 CLA 1,4 PRINT ROUTINE F1BM1940 STA T5 X F1BM1950 STD X4 X F1BM1960 ARS 18 X F1BM1970 ADD X4 X F1BM1980 STA PR2 X F1BM1990 STA CI9 X F1BM2000 SUB 1,4 B-A+1 IN AC F1BM2010 TZE 2,4 F1BM2020 TMI 2,4 F1BM2030 SXD X4,4 F1BM2040 L11 PAX 11,4 F1BM2050 SXD PR6,4 F1BM2060 CAL WP INITIALIZE SWITCH F1BM2070 STO WP X F1BM2080 PR6 TXH T4 F1BM2090 T4 WPR F1BM2100 Z2 TXL S3 F1BM2110 OZ2 TXL F1BM2120 SP4 SPR 4 F1BM2130 TXL RPR+2 F1BM2140 S3 CLS WP SET SWITCH FOR MASKING F1BM2150 STO WP CHARACTER FROM TYPE WHEEL 1 F1BM2160 T5 CAL * OBTAIN FIRST CHARACTER F1BM2170 ARS 30 X F1BM2180 TZE SP4 DOUBLE SPACE IF ZERO F1BM2190 CAS YZONE TEST FOR SPACE SUPPRESS F1BM2200 TXL BK NO F1BM2210 TXL RPR+1 SUPPRESS SPACE F1BM2220 BK CAS BNK TEST FOR BLANK F1BM2230 TXL DIGF NO F1BM2240 TXL RPR+2 BLANK F1BM2250 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 031/031 ------ DIGF SPR 10 SET CHANNEL SKIP F1BM2260 ANA MK MASK OUT ZONE F1BM2270 MK PAX 15,1 OBTAIN SPR COMBINATION F1BM2280 TXI N2,1,1 X F1BM2290 N2 TNX N3,1,8 X F1BM2300 SPR 8 X F1BM2310 N3 TNX N4,1,4 X F1BM2320 SPR 4 X F1BM2330 N4 TNX N5,1,2 X F1BM2340 SPR 2 X F1BM2350 N5 TNX RPR,1,1 X F1BM2360 SPR 1 X F1BM2370 RPR WPR F1BM2380 SPR 5 SUPPRESS SPACE F1BM2390 CLA BLNKS FIND LAST NON-BLANK GROUP F1BM2400 LXD CI4,4 X F1BM2410 PR2 CAS 0,4 X F1BM2420 TXI PR1,4,-1 X F1BM2430 TXI PR2,4,1 X F1BM2440 TXI PR1,4,-1 X F1BM2450 PR1 SXD CI6,4 STORE END TEST F1BM2460 SXD CI8,4 X F1BM2470 SXD PR8,4 X F1BM2480 SXD WP4,4 X F1BM2490 LXD PR6,4 X F1BM2500 PR8 TNX PR5,4 F1BM2510 TXL PR3,4,12 F1BM2520 SPR 8 FIRST CYCLE F1BM2530 PR3 LXD PR6,4 INITIALIZE GROUP COUNT F1BM2540 PR5 LXA PR7,2 INITIALIZE LEFT SETUP F1BM2550 LXD YZ1,1 CLEAR CARD IMAGE F1BM2560 PR7 PXD X F1BM2570 PR4 SLW LT,1 X F1BM2580 SLW RT,1 X F1BM2590 TIX PR4,1,1 X F1BM2600 CIR CAL COL1 INITIALIZE COLUMN INDICATOR F1BM2610 CI2 SLW COL X F1BM2620 CI9 LDQ 0,4 OBTAIN GROUP F1BM2630 SXD OZ2,4 STORE GROUP COUNT F1BM2640 LXA Q6,4 SET CHARACTER COUNT F1BM2650 CI1 PXD F1BM2660 Q6 LGL 6 F1BM2670 PAX 0,1 F1BM2680 CAL COL POSITION COLUMN INDICATOR F1BM2690 ARS 6,4 X F1BM2700 TIX YZ1,1,16 TEST FOR DIGIT F1BM2710 TXH YZ2,1,15 TEST FOR Y-ZONE F1BM2720 CI5 ORS D,3 STORE DIGIT F1BM2730 CI4 TIX CI1,4,1 COUNT CHARACTERS F1BM2740 CI3 ARS 1 SHIFT AND TEST COLUMN F1BM2750 LXD OZ2,4 RESTORE GROUP COUNT F1BM2760 TXI CI6,4,-1 COUNT GROUPS F1BM2770 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP F1BM2780 TNZ CI2 TEST FOR END OF ROW F1BM2790 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 032/032 ------ CI7 CAL 8.3,2 FORM TRUE 8.4 F1BM2800 ORS D-8,2 AND 3 ROWS AND F1BM2810 ORS D-3,2 MOVE 8.4 AND 8.3 F1BM2820 SLW 8.2,2 ROWS F1BM2830 CAL 8.4,2 FORM TRUE 8.4 F1BM2840 ORS D-8,2 X F1BM2850 ORS D-4,2 X F1BM2860 SLW 8.3,2 X F1BM2870 CI8 TXL WP,4 TEST FOR END F1BM2880 TXH WP,2,15 TEST FOR RIGHT HALF F1BM2890 TXI CIR,2,16 INITIALIZE RIGHT HALF F1BM2900 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 F1BM2910 TXH XZ2,1,15 TEST FOR X-ZONE F1BM2920 ORS D,3 STORE DIGIT F1BM2930 YZ2 ORS Y,2 STORE Y-ZONE F1BM2940 TIX CI1,4,1 COUNT CHARACTERS F1BM2950 X1 TXL CI3 OBTAIN NEXT GROUP F1BM2960 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 F1BM2970 TXH CI4,1,15 TEST FOR BLANK F1BM2980 ORS D,3 STORE DIGIT F1BM2990 XZ2 ORS X,2 STORE X-ZONE F1BM3000 TIX CI1,4,1 COUNT CHARACTERS F1BM3010 X2 TXL CI3 OBTAIN NEXT GROUP F1BM3020 OZ1 ORS Z,2 STORE 0-ZONE F1BM3030 ORS D,3 STORE DIGIT F1BM3040 TIX CI1,4,1 COUNT CHARACTERS F1BM3050 TXL CI3 F1BM3060 WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL F1BM3070 TXL WP7 NO PROGRAM F1BM3080 WP9 LXD WP2,1 MASK OUT FIRST COL. OF CARD IMAGE F1BM3090 CAL MK2 X F1BM3100 ANS ANS LT,1 X F1BM3110 TIX ANS,1,1 X F1BM3120 WP7 LXD Z2,1 COPY LOOP F1BM3130 CRAN CPY LT-12,1 F1BM3140 CPY RT-12,1 X F1BM3150 TXI T2,1,-1 F1BM3160 T2 TXH CRAN,1,-12 F1BM3170 CAL WP RESET SWITCH FOR SECOND CYCLE F1BM3180 STO WP X F1BM3190 WP4 TXH WP5,4 F1BM3200 LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN F1BM3210 LXD X2,2 X F1BM3220 WT2 LXD X4,4 X F1BM3230 L2 TRA 2,4 X F1BM3240 RPR2 WPR F1BM3250 TXL PR2-2 F1BM3260 WP5 WPR F1BM3270 SPR 9 SECOND CYCLE F1BM3280 WP2 TXL PR5,0,12 CONVERT REST OF LINE F1BM3290 BLNKS BCD 1 F1BM3300 X4 HTR F1BM3310 YZONE OCT 20 F1BM3320 BNK OCT 60 F1BM3330 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 033/033 ------ MK2 OCT 377777777777 F1BM3340 COL1 MZE F1BM3350 COL BSS 1 F1BM3360 RT BES 16 F1BM3370 8.5 BSS 1 F1BM3380 8.4 BSS 1 F1BM3390 8.3 BSS 1 F1BM3400 8.2 BSS 1 F1BM3410 D BES 9 F1BM3420 Z BSS 1 F1BM3430 X BSS 1 F1BM3440 Y BSS 1 F1BM3450 LT SYN Y+1 F1BM3460 8.4L SYN LT-14 F1BM3470 8.4R SYN RT-14 F1BM3480 BSS 27 F1BM3490 END 24 F1BM3500 REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR F1ME0010 REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 034/034 -------- REM INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED, F1ME0020 REM OPERATOR SHOULD PRESS START. IF NEXT SOURCE PROGRAM IS TO BEF1ME0030 REM COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS F1ME0040 REM START. F1ME0050 REM F1ME0060 REM MASTER RECORD CARD = F0130000. F1ME0070 ORG 24 F1ME0080 HTR NEXTIN F1ME0090 NEXTIN SLT 1 F1ME0100 TRA 4 GO TO 1 - CS TO REPEAT PROBLEM. F1ME0110 BST 1 BACKSPACE OVER MACHINE ERROR RECORD. F1ME0120 BST 1 BACKSPACE OVER BATCH MONITOR F1ME0130 TRA 4 TO 1-CS TO READ NEXT RECORD. F1ME0160 END 24 F1ME0170 REM PST REM ----------- SCANNED 10/8/06 304349-Volume_I.pdf Page 035/035 -------- REM APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR. REM 704 FORTRAN II / SECTONR ONE. 29 OCT 58 REM REM SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000 REM FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR 4F10001 REM NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A 4F10002 REM PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION 4F10003 REM IN TABLES. 4F10004 REM THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 4F10005 REM COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006 REM THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL 4F10007 REM STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B, 4F10008 REM C, AND D TREAT ARITHMETIC FORMULAS. 4F10009 REM 4F10010 REM SECTION 1 / COMMON = 4F10011 REM 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000. 4F10012 ORG 0 4F100121 PZE ORGCOM,,1TOCS 4F100122 PZE ORGA-1 4F100123 REM 4F10013 REM PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10014 REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10015 REM TAPE TABLE BUFFERS. 4F10016 REM TAPE TABLE PARAMETERS - INTET. 4F10017 REM DRUM TABLE PARAMETERS. 4F10018 REM FORSUB COUNT AND BUFFER. 4F10019 REM CIB BUFFER AND PARAMETERS. 4F10020 REM REMAINING WORKING STORAGE. 4F10021 REM PART 2 / CONSTANTS USED BY SECTION ONE. 4F10022 REM PART 3 / SUBROUTINES USED BY SECTION ONE= 4F10023 REM NAME FUNCTION 4F10024 REM C0150,2 SCAN, AND CONVERT NUMERICS. 4F10025 REM C0160,2 SCAN CHARACTERS. 4F10026 REM C0180,2 CONVERT NUMERICS. 4F10027 REM C0190X,4 INITIALIZE C0190 TO 1ST WORD OF F. 4F10028 REM C0390,4 INSERT CHARACTER. 4F10029 REM C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC. 4F10030 REM C1T00,4 COMPILED INSTRUCTION TABLE ENTRIES.4F10031 REM DIM.SR,4 DIMENSION TABLE SEARCH. 4F10032 REM DRTABS(,4) DRUM TABLE ENTRIES. 4F10033 REM GETIFN,4 GET INTERNAL FORMULA NUMBER. 4F10034 REM JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL. 4F10035 REM MTR000 MONITOR STATES FROM DRUM. 4F10036 REM RA000,4 COMPUTER RELATIVE ADDRESS. 4F10037 REM RDRX,4 READ DRUM INTO BUFR. 4F10038 REM SR6DC1,1 CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039 REM SS000,4 SCAN AND PROCESS SUBSCRIPTS. 4F10040 REM SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES. 4F10041 REM TESTFX,1 TEST FOR FIXED OR FLOATING POINT. 4F10042 REM TEST..,4 TEST CHARACTER IN AC. 4F10043 REM TET00,1 TAPE TABLE ENTRIES. 4F10044 REM 4F10045 REM DIAG DIAGNOSTIC CALLERS. 4F10046 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 036/036 ------ REM 4F10047 REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F10048 REM 4F10049 REM ** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION 4F10050 REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F10051 REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F10052 REM THIS LOGICAL BLOCK OR SUBROUTINE. 4F10053 REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F10054 REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F10055 REM 4F10056 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057 REM 4F10058 REM COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10059 ORGCOM ORG 24 4F10060 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061 REM 4F10062 REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10063 EIFNO PZE **,,** EXTERNAL,,INTERAL FORMULA NUMBER. 4F10064 ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065 ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066 ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067 ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068 ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070 REM 4F10071 REM BUFFERS USED BY TET00 FOR THE TAPE TABLES. 4F10072 TEIFNO BSS 10 EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073 TDO BSS 10 DO STATEMENTS. 4F10074 TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075 TRAD BSS 10 IF AND GO TO TRANSFER ADDRESSES. 4F10076 FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077 FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078 FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES.4F10079 FRET BSS 10 FREQUENCY STATEMENTS. 4F10080 EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081 CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082 FORMAT BSS 10 FORMAT STATEMENTS. 4F10083 SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084 COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085 HOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086 NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087 TSTOPS BSS 10 STOP STATEMENTS. 4F10088 CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS.4F10089 FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090 REM END OF THE TAPE TABLE BUFFERS. 4F10091 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092 REM 4F10093 REM INTET/ TABLE PARAMETERS USED BY TET00, WHERE 4F10094 REM O = ORIGIN OF TABLE BUFFER, 4F10095 REM B = BUFFER CAPACITY, 4F10096 REM A = ADDRESS OF TABLE ENTRY, 4F10097 REM E = ENTRY LENGTH IN WORDS, 4F10098 REM C = COUNT OF BLOCKS PUT ON TAPE, 4F10099 REM P = PORTION OF BUFFER THAT IS FULL,4F10100 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 037/037 ------ REM 4F10101 INTET PZE TEIFNO,,10 00) 0,,B. 4F10102 PZE EIFNO,,1 A,,E. 4F10103 PZE **,,** C,,P. 4F10104 REM 4F10105 PZE TDO,,10 01) 0,,B. 4F10106 PZE 1C,,5 A,,E. 4F10107 PZE **,,** C,,P. 4F10108 REM 4F10109 PZE TIFGO,,10 02) 0,,B. 4F10110 PZE 1C,,2 A,,E. 4F10111 PZE **,,** C,,P. 4F10112 REM 4F10113 PZE TRAD,,10 03) 0,,B. 4F10114 PZE 1G,,1 A,,E. 4F10115 PZE **,,** C,,P. 4F10116 REM 4F10117 PZE FORTAG,,10 04) 0,,B. 4F10118 PZE G,,1 A,,E. 4F10119 PZE **,,** C,,P. 4F10120 REM 4F10121 PZE FORVAR,,10 05) 0,,B. 4F10122 PZE G,,2 A,,E. 4F10123 PZE **,,** C,,P. 4F10124 REM 4F10125 PZE FORVAL,,10 06) 0,,B. 4F10126 PZE G,,2 A,,E. 4F10127 PZE **,,** C,,P. 4F10128 REM 4F10129 PZE FRET,,10 07) 0,,B. 4F10130 PZE 1G,,1 A,,E. 4F10131 PZE **,,** C,,P. 4F10132 REM 4F10133 PZE EQUIT,,10 08) 0,,B. 4F10134 PZE 1C,,2 A,,E. 4F10135 PZE **,,** C,,P. 4F10136 REM 4F10137 PZE CLOSUB,,10 09) 0,,B. 4F10138 PZE G,,1 A,,E. 4F10139 PZE **,,** C,,P. 4F10140 REM 4F10141 PZE FORMAT,,10 10) 0,,B. 4F10142 PZE G,,2 A,,E. 4F10143 PZE **,,** C,,P. 4F10144 REM 4F10145 PZE SUBDEF,,10 11) 0,,B. 4F10146 PZE 1G,,1 A,,E. 4F10147 SBDFCN PZE **,,** C,,P. 4F10148 REM 4F10149 PZE COMMON,,10 12) 0,,B. 4F10150 PZE 1G,,1 A,,E. 4F10151 PZE **,,** C,,P. 4F10152 REM 4F10153 PZE HOLARG,,10 13) 0,,B. 4F10154 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 038/038 ------ PZE 1G,,1 A,,E. 4F10155 PZE **,,** C,,P. 4F10156 REM 4F10157 PZE NONEXC,,10 14) 0,,B. 4F10158 PZE EIFNO,,1 A,,E. 4F10159 PZE **,,** C,,P. 4F10160 REM 4F10161 PZE TSTOPS,,10 15) 0,,B. 4F10162 PZE EIFNO,,1 A,,E. 4F10163 PZE **,,** C,,P. 4F10164 REM 4F10165 PZE CALLFN,,10 16) 0,,B. 4F10166 PZE CALLNM,,1 A,,E. 4F10167 PZE **,,** C,,P. 4F10168 REM 4F10169 PZE FMTEFN,,10 17) 0,,B. 4F10170 PZE SET,,1 A,,E. 4F10171 PZE **,,** C,,P. 4F10172 REM 4F10173 BSS 3 EXPANSION SPACE INTET. 4F10174 REM END OF TAPE TABLE PARAMETERS. 4F10175 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176 REM 4F10177 REM ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE 4F10178 REM ARG1 = 1ST LOCATION OF ARGUMENT, 4F10179 REM L = LENGTH OF ARGUMENT IN WORDS,4F10180 REM TDA = LOC. OF NEXT DRUM ENTRY, 4F10181 REM N = NO. OF ENTRIES ON DRUM, 4F10182 REM *** = TXL FOR ENTRY SUM TABLES, 4F10183 REM *** = TXH FOR BLOCK SUM TAB(FLCN),4F10184 REM FDA = LOC. OF 1ST DRUM ENTRY, 4F10185 REM K = BUFFER CAPACITY IN ENTRIES, 4F10186 REM DBL = K*(L+1) FOR ENTRY SUM TABLE,4F10187 REM DBL = K*L+1 FOR BLOCK SUM TABLE,4F10188 REM J = DRUM CAPACITY IN ENTRIES, 4F10189 REM I = 5 - DRUM NUMBER. 4F10190 REM 4F10191 PZE G+1,,1 FIXCON) ARG1+L,,L 4F10192 PZE FIXCON,,** TDA,,N 4F10193 TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194 PZE 50*2,,100 DBL,,J 4F10195 FXCNIX TXI ALT,,5-2 TXI ATL,,I 4F10196 REM 4F10197 PZE G+1,,1 FLOCON) ARG1+L,,L 4F10198 PZE FLOCON,,** TDA,,N 4F10199 TXHOP TXL FLOCON,,50*1 *** FDA,,K*L 4F10200 PZE 50*1+1,,450 DBL,,J 4F10201 FLCNIX TXI ALT,,5-2 TXI ATL,,I 4F10202 REM 4F10203 PZE E+3+2,,2 TAU1 ) ARG1+L,,L 4F10204 PZE TAU1,,** TDA,,N 4F10205 TXL TAU1,,25*2 *** FDA,,K*L 4F10206 PZE 25*3,,100 DBL,,J 4F10207 TAU1IX TXI ALT,,5-4 TXI ATL,,I 4F10208 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 039/039 ------ REM 4F10209 PZE E+3+4,,4 TAU2 ) ARG1+L,,L 4F10210 PZE TAU2,,** TDA,,N 4F10211 TXL TAU2,,12*4 *** FDA,,K*L 4F10212 PZE 12*5,,90 DBL,,J 4F10213 TAU2IX TXI ALT,,5-4 TXI ATL,,I 4F10214 REM 4F10215 PZE E+3+6,,6 TAU3 ) ARG1+L,,L 4F10216 PZE TAU3,,** TDA,,N 4F10217 TXL TAU3,,8*6 *** FDA,,K*L 4F10218 PZE 8*7,,75 DBL,,J 4F10219 TAU3IX TXI ALT,,5-4 TXI ATL,,I 4F10220 REM 4F10221 PZE E+11+1,,1 SIGMA1) ARG1+L,,L 4F10222 PZE SIGMA1+2,,1 TDA,,N 4F10223 TXL SIGMA1,,30,* *** FDA,,K*L 4F10224 PZE 30*2,,30 DBL,,J 4F10225 SIG1IX TXI ALT,,5-2 TXI ATL,,I 4F10226 REM 4F10227 PZE 1C+2,,2 DIM1 ) ARG1+L,,L 4F10228 PZE DIM1,,** TDA,,N 4F10229 ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230 PZE 0,,100 DBL,,J 4F10231 DIM1IX TXI DIMALT,,5-3 TXI ATL,,I 4F10232 REM 4F10233 PZE 1C+2,,2 DIM2 ) ARG1+L,,L 4F10234 PZE DIM2,,** TDA,,N 4F10235 ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236 PZE 0,,100 DBL,,J 4F10237 DIM2IX TXI DIMALT,,5-3 TXI ATL,,I 4F10238 REM 4F10239 PZE 1C+3,,3 DIM3 ) ARG1+L,,L 4F10240 PZE DIM3,,** TDA,,N 4F10241 ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242 PZE 0,,100 DBL,,J 4F10243 DIM3IX TXI DIMALT,,5-3 TXI ATL,,I 4F10244 REM END OF DRUM TABLE PARAMETERS. 4F10245 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246 REM 4F10247 REM COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. 4F10248 BK BSS 1 FORSUB COUNTER. 4F10249 FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250 REM END OF FUNCTION COUNT AND BUFFER. 4F10251 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252 REM 4F10253 REM PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. 4F10254 BS PZE ,,100 CIB CAPACITY (4 * 25). 4F10255 EC PZE ,,** ENTRY COUNT = NO. WORDS IN CIB. 4F10256 BBOX PZE ,,** 2S COMPLEMENT OF THE ENTRY COUNT. 4F10257 CIB BSS 100 COMPILED INSTRUCTION BUFFER. 4F10258 REM END OF CIT PARAMETERS AND BUFFER. 4F10259 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260 REM 4F10261 REM ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 040/040 ------ ORG 576 4F102625 ERASE BSS 5 COMMON WORKING STORAGE. 4F10263 1C BSS 5 COMMON WORKING STORAGE. 4F10264 1G BSS 1 COMMON WORKING STORAGE. 4F10265 2G BSS 1 COMMON WORKING STORAGE FOR STATE A.4F10266 3G BSS 1 4F10267 1H BSS 1 4F10268 2H BSS 1 4F10269 3LBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10270 ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271 ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272 ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273 CALLNM PZE **,,** 4F10274 CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275 DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276 E BSS 14 WORKING STORAGE USED BY SS000. 4F10277 EPSM3 BSS 3 4F10278 EPS BSS 1 EPSILON - VARIABLE USED BY RA000. 4F10279 E1C BSS 1 COMMON WORKING STORAGE. 4F10280 EFN BSS 1 EXTERNAL FORMULA NUMBER (F-1). 4F10281 F BSS 111 ASSEMBLED STATEMENT REGION. 4F10282 FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283 FSNAME BSS 1 NAME OF FUNCTION. 4F10284 FT BSS 12 SOURCE PROGRAM INPUT BUFFER. 4F10285 G BSS 2 4F10286 GTAG BSS 1 VARIABLE USED BY IOT, RA. 4F10287 HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288 I BSS 1 4F10289 LEFT BSS 3 STORAGE USED BY ARITHMETIC. 4F10290 LENGTH PZE **,,** 4F10291 NBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10292 N2 BSS 1 4F10293 OPNWRD BSS 1 ERASEABLE USED BY STATE D. 4F10294 PHI(I) PZE **,,** 4F10295 RAT PZE 8,,** VARIABLE USED BY IOT. 4F10296 RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297 SET PON ** 4F10298 SL BSS 1 4F10299 SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300 TL PZE 31*8,,** 4F10301 TLINE PZE ** VARIABLE USED BY IOT. 4F10302 REM END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS. 4F10303 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304 REM 4F10305 REM COMMON/2-CONSTANTS USED BY SECTION ONE= 4F10306 REM 4F10307 TEN OCT 12 (1010) - CTEST-11 4F10308 ENDMK OCT 77 111111 - CTEST-10 4F10309 OPEN OCT 74 ( - CTEST-9 4F10310 COMMA OCT 73 , - CTEST-8 4F10311 CLOS OCT 34 ) - CTEST-7 4F10312 EQUAL OCT 13 = - CTEST-6 4F10313 11Z OCT 40 - - CTEST-5 4F10314 SLASH OCT 61 / - CTEST-4 4F10315 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 041/041 ------ POINT OCT 33 . - CTEST-3 4F10316 12Z OCT 20 + - CTEST-2 4F10317 STAR OCT 54 * - CTEST-1 4F10318 CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319 REM 4F10320 L(0) BCD 1000000 0 4F10321 L(1) BCD 1000001 1 4F10322 L(2) BCD 1000002 2 4F10323 L(3) BCD 1000003 3 4F10324 L(4) BCD 1000004 4 4F10325 L(5) BCD 1000005 5 4F10326 L(6) BCD 1000006 6 4F10327 L(7) BCD 1000007 7 4F10328 L(8) BCD 1000008 8 4F10329 L(9) BCD 1000009 9 4F10330 MINUS OCT 14 - 4F10331 L(C) BCD 100000C C 4F10332 L(F) BCD 100000F F 4F10333 L(H) BCD 100000H H 4F10334 CHAR2 OCT 32 CONSTANT USED BY CD000. 4F10335 L(O) BCD 100000O O (ALPHABETIC) 4F10336 CHAR3 OCT 52 CONSTANT USED BY CD000. 4F10337 SPECOP OCT 53 00000$ 4F10338 BLANK OCT 60 0000000000060 4F10339 L(S) BCD 100000S S 4F10340 L(T) BCD 100000T T 4F10341 L(X) BCD 100000X X 4F10342 L(Z) BCD 100000Z Z 4F10343 PM OCT 72 RECORD MARK (ILLEGAL) -CD000 4F10344 BIT29 OCT 100 4F10345 A81 DEC 81 CONSTANT USED BY IOT. 4F10346 L(96) OCT 140 USED BY C0500. 4F10347 L(112) OCT 160 USED BY C0400. 4F10348 MASK3 OCT 777 -ARITHMETIC. 4F10349 1E9 OCT 1000 ADDRESS=8 4F10350 L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351 L(H() BCD 10000H( 4F10352 L(I() BCD 10000I( INTERNAL FIX-PT VARIABLE PREFIX. 4F10353 SAPSYM OCT 6212 4F10354 IFSYM OCT 6712 4F10355 CALLER OCT 7112 4F10356 MASK2 OCT 77777 2**15-1 -ARITHMETIC. 4F10357 2E17 OCT 400000 TAG=4 4F10358 2E18 OCT 1000000 DECREMENT=1 4F10359 DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360 ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361 D2 PZE ,,2 CONSTANT USED BY IOT. 4F10362 ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363 D3CN PZE ,,3 CONSTANT USED BY IOT. 4F10364 BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365 D6 PZE ,,6 CONSTATN USED BY IOT. 4F10366 FSIND PZE ,,16 4F10367 DEC17 PZE ,,17 4F10368 DEC18 PZE ,,18 4F10369 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 042/042 ------ PZ OCT 32000000 PLUS ZERO -CD000. 4F10370 MASK5 OCT 37777600 -ARITHMETIC. 4F10371 FNIND PZE ,,32 4F10372 DEC35 PZE ,,35 4F10373 MZ OCT 52000000 MINUS ZERO -CD000. 4F10374 NGTBIT OCT 000200000000 4F10375 BTA PZE ,,144 CONSTANT USED BY IOT. 4F10376 BDA PZE 0,0,192 CONSTANT USED BY IOT. 4F10377 5BLANS BCD 10 006060606060 4F10378 E( BCD 1100000 -ARITHMETIC. 4F10379 I( BCD 1200000 -ARITHMETIC. 4F10380 A( BCD 1300000 -ARITHMETIC. 4F10381 P( BCD 1400000 -ARITHMETIC. 4F10382 O( BCD 1600000 -ARITHMETIC. 4F10383 X( BCD 1700000 -ARITHMETIC. 4F10384 BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10385 1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. 4F10386 15P DEC 1585 CONSTANT USED BY IOT. 4F10387 PROCTR OCT 176060606060 4F10388 ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389 FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. 4F10390 FXFX BCD 1EXP(1 4F10391 FLFX BCD 1EXP(2 4F10392 FLFL BCD 1EXP(3 4F10393 FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394 MINUS0 MZE 0 4F10395 DECMI2 MZE ,,2 4F10396 ADSPOP OCT 530000000000 $00000 4F10397 DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398 ADSTAR OCT -140000000000 MULTIPLUCATION SIGN -ARITHMETIC. 4F10399 STRSTR OCT -145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400 BLANKS BCD 1 606060606060 4F10401 MASK1 OCT -377777700000 -(2**20-U.***15 -ARITHMETIC. 4F10402 MASK4 OCT -377777777737 -ARITHMETIC 4F10403 ALL1 OCT -377777777777 END OF STATMENT WORD. 4F10404 REM 4F10405 L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406 L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407 L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408 L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409 L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410 L(CAL) BCD 1CAL000 4F10411 L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412 L(CLA) BCD 1CLA000 SYMBOLIC OPERATION CODE. 4F10413 L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414 L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415 L(CPY) BCD 1CPY000 4F10416 L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417 L(DED) BCD 1DED000 4F10418 L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419 L(FAD) BCD 1FAD000 SYMBOLIC OPERATION CODE. 4F10420 L(FDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421 L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422 L(FSB) BCD 1FSB000 SYMBOLIC OPERATION CODE. 4F10423 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 043/043 ------ L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424 L(LDA) BCD 1LDA000 4F10425 L(LDQ) BCD 1LDQ000 SYMBOLIC OPERATION CODE. 4F10426 L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427 L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428 L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429 L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430 L(MSE) BCD 1MSE000 SYMBOLIC OPERATION CODE. 4F10431 L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432 L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433 L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434 L(OPR) BCD 1OPRO00 SYMBOLIC OPERATION CODE. 4F10435 L(QXD) BCD 1QXD000 SYMBOLIC OPERATION CODE. 4F10436 L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437 L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438 L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439 L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440 L(SXD) BCD 1SXD000 SYMBOLIC OPERATION CODE. 4F10441 L(TIX) BCD 1TIX000 4F10442 L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443 L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444 L(TRA) BCD 1TRA000 SYMBOLIC OPERATION CODE. 4F10445 L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446 L(UFA) BCD 1UFA000 SYMBOLIC OPERATION CODE. 4F10447 REM END OF COMMON CONSTANTS USED BY SECTION ONE. 4F10448 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449 REM 4F10450 REM COMMON/3-SUBROUTINES USED BY SECTION ONE* 4F10451 REM 4F10452 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453 REM 4F10454 REM C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100. 4F10455 REM C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456 REM = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 4F10457 REM NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 REM UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. 4F10459 C0150 SXD C015X,2 SAVE THE C(XR2). 4F10460 TSX C0190,4 * TEST 1ST NON-BLANK CHARACTER 4F10461 CAS L(9) FOR NUMERIC OR NON-NUMERIC. 4F10462 C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463 NOP IF NUMERIC, THEN 4F10464 TSX C0180,2 * GO CONVERT TO BINARY. 4F10465 STO 2G SAVE NEXT NON-NUERIC CHARACTER. 4F10466 CLA L(0) PREPARE TO SET I TO +0. 4F10467 FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468 C0151 TSX C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. 4F10469 STO 1G SAVE PUNCTUATION MARK, AND 4F10470 CLS L(0) PREPARE TO SET I TO -0. 4F10471 C0152 STO I SET I = +0, OR -0. 4F10472 CLA 2G PICKUP NEXT CHARACTER, 4F10473 LXD C015X,2 RESTORE THE C(XR2), AND 4F10474 TRA 1,2 * RETURN TO CALLER. 4F10475 REM END OF PROGRAM C0150. 4F10476 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 044/044 ------ REM 4F10478 REM C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200, 4F10479 REM C1500,C3000,C3100,C0150. 4F10480 REM C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND 4F10481 REM SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482 REM IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A 4F10483 REM BLANK, IF LESS THEN 6 CHARACTERS. 4F10484 C0160 SXD C016X,2 SAVE THE C(XR2), AND 4F10485 LXA L(0),2 SET XR2 TO CONTROL SHIFTING. 4F10486 STZ 1G CLEAR WORKING STORAGE. 4F10487 C0161 LXA CTESTX,4 TEST 4F10488 C0162 CAS CTEST,4 CHARACTER 4F10489 C016X TXI C0163,0,** IN THE AC 4F10490 TXI C0165,0 AGAINST 4F10491 C0163 TIX C0162,4,1 ALL PUNCTUATIONS. 4F10492 TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, 4F10493 TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F10494 C0164 ALS 30,2 BUILD LEFT-ADJUSTED 4F10495 ORS 1G SYMBOL IN WORKING STORAGE. 4F10496 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F10497 TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. 4F10498 C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER. 4F10499 C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. 4F10500 C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501 STO 1H SAVE, AND 4F10502 CLA BLANK ADD A BLANK 4F10503 ALS 30,2 TO SYMBOLS THAT ARE LESS 4F10504 ORS 1G THEN 6 CHARACTERS IN LENGTH. 4F10505 CLA 1H PICKUP PUNCTUATION MARK, 4F10506 LXD C016X,2 RESTORE THE C(XR2), AND 4F10507 TRA 1,2 * RETURN TO CALLER. 4F10508 REM END OF PROGRAM C0160. 4F10509 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510 REM 4F10511 REM C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400, 4F10512 REM C1000,C1100,C1200,C1400,C1500,C0150. 4F10513 REM C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO 4F10514 REM BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN 4F10515 REM THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC. 4F10516 C0180X TSX C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. 4F105165 C0180 STO 1G PLACE 1ST NUMERIC IN 1G. 4F10517 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F10518 CAS L(9) AND IF NON-NUMERIC, THEN 4F10519 TRA 1,2 * RETURN TO CALLER. 4F10520 NOP IF NUMERIC, THEN 4F10521 STO 2G SAVE DIGIT IN 2G. 4F10522 CLA 1G MULTIPLY 4F10523 ALS 2 C(1G) 4F10524 ADD 1G BY 4F10525 ALS 1 10, 4F10526 ADD 2G AND ADD CURRENT DIGIT. 4F10527 DCF TXI C0180,0,-F REPEAT PROCESS FOR NEXT CHARACTER. 4F10528 REM END OF PROGRAM C0180. 4F10529 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 045/045 ------ REM 4F10531 REM C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300. 4F10532 REM C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533 C0190X CLA DCF SET FORMULA WORD 4F10534 STD FWA ADDRESS = -(F-REGION ADDRESS), 4F10535 SXD CHCTR,0 SET CHARACTER COUNT = 0, 4F10536 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10537 REM END OF PROGRAM C0190X. 4F10538 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539 REM 4F10540 REM C0390,4/ CALLERS=C0300,C3300. 4F10541 REM C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION 4F10542 REM TO THE LEFT OF THAT DEFINED BY FWA AND XR1 4F10543 C0390 CLA ENDMK PREPARE TO CHANGE 4F10544 LXD FWA,2 THE PROPER CHARACTER 4F10545 LXD CHCTR,1 IN THE F-REGION. 4F10546 TNX C0393,1,1 ADJUST MASK 4F10547 C0392 LGL 6 TO POSITION 4F10548 TIX C0392,1,1 CHARACTER 4F10549 C0393 COM INVERT MASK, AND 4F10550 ANS -1,2 ERASE PROPER CHARACTER. 4F10551 LGL 36 ADJUST CHARACTER, AND 4F10552 ORS -1,2 INSERT IN ERASED POSITION. 4F10553 REM C0390 CONTINUES BY USING C0190. 4F10554 REM 4F10555 REM C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400, 4F10556 REM C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557 REM C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR. 4F10558 REM C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 C0190 SXD C0194,1 SAVE THE C(XR1), AND 4F10560 LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F10561 LDQ RESIDU PICK UP ANY REMAINING CHARACTERS. 4F10562 C0191 TIX C0193,1,1 IF NONE, 4F10563 LXD FWA,1 PICK UP NEXT FORMULA 4F10564 LDQ 0,1 WORD FROM F-REGION, 4F10565 TXI C0192,1,-1 AND INCREASE 4F10566 C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. 4F10567 LXA L(6),1 RESET XR1 FOR 6 NEW CHARACTERS. 4F10568 C0193 PXD ,0 EXAMINE 4F10569 LGL 6 NEXT CHARACTER 4F10570 CAS BLANK AND COMPARE WITH A BLANK. 4F10571 C0194 TXI C0195,0,** IF BLANK, 4F10572 CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573 C0195 SXD CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, 4F10574 STQ RESIDU SAVE ANY REMAINING CHARACTERS, 4F10575 LXD C0194,1 RESTORE THE C(XR1), AND 4F10576 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10577 REM END OF PROGRAM C0190. 4F10578 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579 REM 4F10580 REM CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600, 4F10581 REM C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT), 4F10582 REM ETMSW(LTMSW),LIB,VRA(VRD). 4F10583 REM C1T00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 4F10584 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 046/046 ------ REM THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 4F10585 CIT00 SXD CITXR2,2 SAVE THE C(XR2). 4F10586 SXD CITXR1,1 SAVE THE C(XR1). 4F10587 STQ CITMQR SAVE THE C(MQR). 4F10588 LXD BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589 CLA BS COMPARE BLOCK SIZE 4F10590 SUB EC WITH ENTRY COUNT. 4F10591 TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592 WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 PAX ,1 SET XR1 = 0, AND 4F10594 CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595 TXI CIT02,1,-1 WORDS OF BLOCK 4F10596 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598 IOD WHEN DONE, 4F10599 CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600 CIT05 TXI CIT05+1,4,-1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601 CLA 0,4 AND PICK UP ADDRESS OF NEXT ENTRY 4F10602 STA CIT06 TO SET NEXT ADDRESS. 4F10603 CIT06 CLA ** MOVE ENTRY 4F10604 STO CIB,3 INTO CIB BUFFER, 4F10605 TXI CIT07,2,-1 AND COUNT 1 FOR EACH WORD ENTERED. 4F10606 CIT07 TIX CIT05,1,1 WHEN DOEN, 4F10607 SXD BBOX,2 SAVE THE C(XR2), AND 4F10608 DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609 COM REAL NUMBER 4F10610 ADD 2E18 OF WORDS ENTERED 4F10611 DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612 SXD EC,2 SAVE IN EC. 4F10613 LDQ CITMQR RESTORE THE C(MQR), 4F10614 LXD CITXR1,1 RESTORE THE C(XR1), 4F10615 LXD CITXR2,2 RESTORE THE C(XR2), AND 4F10616 TRA 1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617 REM END OF PROGRAM CIT00. 4F10618 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619 REM 4F10620 REM DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA. 4F10621 REM DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, 4F10622 REM DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. 4F10623 REM DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. 4F10624 DIM1SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10625 LXD DIM1IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM14F10626 CLA ORGDM1 AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628 REM DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629 DIM2SR SXD DMSR00,4 SAVE THE C(XR) FRO RETURN. 4F10630 LXD DIM2IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM24F10631 CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633 CLA DMSR99 SET LOOP ADDRESS TO 4F10634 STA DMSR15 DMSR05+1 FOR DIM1 AND DIM2. 4F10635 CAL DMCN12 (STZ D3) 4F10636 DMSR11 TXI DMSR02,0,** GO SET OP FRO DIM1 AND DIM2. 4F10637 REM DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638 DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FRO RETURN, 4F10639 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 047/047 ------ LXD DIM3IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM34F10640 CLA ORGDM3 AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641 STA DRMADR SET DRUM ADDRESS. 4F10642 CLA DMSR98 SET LOOP ADDRESS TO 4F10643 STA DMSR15 DMSR05 FOR DIM3. 4F10644 CAL DMCN3 (CPY D3) 4F10645 DMSR02 SLW DMSR05 SET OP CODES ACCORDING 4F10646 SLW DMSR07 TO DIMENSION. 4F10647 TXL DMSR08,4,0 IF TABLE IS EMPTY, GO OUT. 4F10648 SXD DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649 DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650 DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651 LXD DMSR11,4 RESET ENTRY COUNT. 4F10652 RDR 3 SELECT DRUM. 4F10653 CLA E+2 GET NAME OF VARIABLE. 4F10654 LDA DRMADR LOAD CURRENT DRUM ADDRESS, AND 4F10655 DMSR04 CPY DRSYM COPY DRUM SYMBOL. 4F10656 TLQ DMSR06 COMPARE WITH NAME OF VARIABLE, AND 4F10657 CPY D12 IF NOT LESS, COPY N1 AND N2. 4F10658 DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659 CPY DRCKSM COPY CHECKSUM. 4F10660 CAS DRSYM COMPARE DRUM SYMBOL WITH ANEM OF V.4F10661 TSX DIAG,4 * GO TO DIGNOSTIC - MACHINE ERROR. 4F10662 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663 CPY DRSYM CONTINUE 4F10664 TLQ DMSR06 PROCESS 4F10665 CPY D12 UNTIL 4F10666 DMSR15 TIX **,4,1 TABLE 4F10667 TXI DMSR08,0 IS EXHAUSTED. 4F10668 DMSR06 CPY D12 PASS OVER ENTRY 4F10669 DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY) 4F10670 CPY DRCKSM AND CHECKSUM, AND 4F10671 TIX DMSR04,4,1 REPEAT LOOP. 4F10672 DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673 TRA 1,4 * TAKE NOT FOUND EXIT. 4F10674 DMSR09 CAL DRSYM COMPUTE A 4F10675 ACL D12 NEW 4F10676 ACL D3 LOGICAL CHECKSUM 4F10677 COM FOR ENTRY. AND 4F10678 ACL DRCKSM COMPARE WITH 4F10679 COM DRUM CHECKSUM. 4F10680 TZE DMSR10 IF NOT EQUAL, THEN 4F10681 LXD DMSR12,4 REPEAT ATTEMPT, 4F10682 TIX DMSR13,4,1 UNLESS PROCESS 4F10683 TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F10684 DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685 TRA 2,4 * TAKE FOUND EXIT TO MAIN ROTUINE. 4F10686 REM 4F10687 DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688 DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689 ENT BCD 1NTR000 VARIABLE USED BY IO AND FL. 4F10690 NZE BCD 1PZE000 VARIABLE USED BY FL. 4F10691 REM END OF PROGRAM DIM.SR. 4F10692 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 048/048 ------ REM 4F10694 REM DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695 REM VRA(VRD). 4F10696 REM DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF 4F10697 REM THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698 REM TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION. 4F10699 REM DIMALT= ENTRY POINT FOR DIMENSION TABLES. 4F10700 DIMALT CAL TXLOP PICK UP SWITCH CONTROL, 4F10701 TXI DRTABS,0 AND GO SET SWITCH FOR DIM TABLES. 4F10702 REM ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. 4F10703 ALT CAL TXHOP PICK UP SWITCH CONTROL, 4F10704 DRTABS STP DIMSW SET SWITCH. 4F10705 CLA 0,4 GET CALLER (TSX ....IX,4) IN AC. 4F10706 SXD XR1,1 SAVE THE C(XR1), 4F10707 SXD XR2,2 SAVE THE C(XR2), 4F10708 SXD XR4,4 SAVE THE C(XR4), AND 4F10709 STQ MQ SAVE THE C(MQR). 4F10710 ADD L(1) PREPARE TO MOVE PARAMETERRS 4F10711 STA MOVE INTO WORKING STORAGE. 4F10712 SUB L(4) PREPARE TO UPDATE 4F10713 STA UPDATE PERMANENT PARAMETER. 4F10714 LXA L(5),1 MOVE 5 WORDS 4F10715 MOVE CAL **,1 (....IX+1) 4F10716 SLW TEMP,1 OF PARAMETERS 4F10717 TIX MOVE,1,1 INTO WORKING STORAGE. 4F10718 CLS NAR INITIALIZE 4F10719 STA TRY ALL 4F10720 ADD L(1) GENERAL 4F10721 STA ESUM1 INSTRUCTIONS= 4F10722 STA ESUM2 X 4F10723 ARS 17 X 4F10724 ADM BIAS X 4F10725 STA JUMP1 X 4F10726 STA JUMP2 X 4F10727 CAL FDA X 4F10728 STD COMPR X 4F10729 STP JUMP1 X 4F10730 STP SW X 4F10731 STP RX4 X 4F10732 CLA LBUF X 4F10733 STA BUFL X 4F10734 CLA TDA X 4F10735 LXD TDA,2 X 4F10736 SXD BUFF+1,2 X 4F10737 DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738 TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739 LXD NAR,1 4F10740 SXD NC,2 4F10741 SXD ADD01,2 4F10742 ADD02 TNX COMPR,1,1 COMPUTES (N*L). 4F10743 ADD01 TXI ADD02,2,** (N) 4F10744 BUFFM1 LXD FDA,2 4F10745 BUFF LXD DBL,1 L(J) 4F10746 TIX BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW. 4F10747 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 049/049 ------ XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED.4F10748 LXD DI,1 4F10749 WDR 5,1 4F10750 SW TXL EBLK,0 ENTER SUM=TXL, BLOCK SUM=TXH. 4F10751 TXL ADD04,2,0 SKIP IF TABLE IS EMPTY. 4F10752 TXI ADD03,2,1 4F10753 ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754 ADD04 STZ DUMP START NEW BLOCK CHECKSUM. 4F10755 CLA TDA CHANGE CHECKSUM ADDRESS. 4F10756 STA FDA 4F10757 ADD L(1) SET ENTRY ADDR = CHECKSUM ADD +1. 4F10758 STA TDA 4F10759 ADD05 CAL DUMP 4F10760 ACL G ADD NEW FLOCON TO 4F10761 SLW DUMP CHECKSUM FOR THIS BLOCK. 4F10762 LDA FDA 4F10763 CPY DUMP WRITE BLOCK CHECKSUM ON DRUM. 4F10764 WDR 5,1 4F10765 LDA TDA 4F10766 CPY G WRITE NEW FLOCON ON DRUM. 4F10767 XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768 EBLK PXD ,0 FOR ALL TABLES EXCEPT FLOCON= 4F10769 LXD NAR,2 (L) 4F10770 LDA TDA NEXT DRUM ENTRY ADDRESS. 4F10771 TNX ESUM2,2,1 IF L = 1, 4F10772 ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773 TIX ESUM1,2,1 ENTRY ON DRUM. 4F10774 ESUM2 CAD ** (ARG1+L-1) 4F10775 SLW DUMP COMPUTE AND 4F10776 CPY DUMP WRITE CHECKSUM FOR NEW ENTRY. 4F10777 NOWIN CAL NAR UPDATE PERMANENT 4F10778 ARS 18 PARAMETERS FOR ENTRY 4F10779 ADD DECR1 JUST ADD TO TABLE. 4F10780 RX4 TXL RX4+2,0,** IF TABLE WAS FLOCON, 4F10781 SUB L(1) READJUST. 4F10782 ADM TDA N=N+1,TDA=TDA+(L+1) OR (L). 4F10783 UPDATE STO ** (....IX-3) 4F10784 LXD TDA,2 L(N) 4F10785 XR4 TXI OUT,0,** GET TAG AND EXIT. 4F10786 NXBLK LXD NC,4 4F10787 LXD FDA,2 L(K*L),K=K. 4F10788 NEW LXD NAR,1 L(L) 4F10789 TRY CLA **,1 (ARG1+L) 4F10790 BUFL CAS **,2 (BUFR OR CTABL) 4F10791 NC TXI NC+2,0,** NOT FOUND. 4F10792 TXI YEA,2,-1 K*L = K*L-1. 4F10793 TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794 SXD NC+4,1 4F10795 TIX NEW,2,** K = K-1. 4F10796 SXD NC,4 SAVE CURRENT VALUE OF N, 4F10797 CAL DBL AND GET NEW BLOCK. 4F10798 ADM FDA 4F10799 STA FDA 4F10800 LXD NTL,2 4F10801 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 050/050 ------ COMPR TIX COMPR+2,2,** (K*L) 4F10802 SXD FDA,2 K*L = (N*L)MOD K*L IF N*L IS 4F10803 SXD NTL,2 LESS THAN K*L, OTHERWISE K*L = K*L,4F10804 TSX RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. 4F10805 NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806 YEA TIX TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807 LXD TDA,2 (N) 4F10808 SXD YEA+3,4 4F10809 TIX OUT,2,** COMPUTE TAG. 4F10810 LXA L(0),2 4F10811 OUT PXD ,2 EXIT WITH TAG IN THE AC. 4F10812 ARS 18 (TAG = NUMBER OF ENTRIES 4F10813 LXD XR2,2 WHICH PRECEED THE ENTRY 4F10814 LXD XR4,4 WHICH EQUALS THE ARGUMENT. 4F10815 LXD XR1,1 RESTORE THE C(XR1,XR2,XR4), 4F10816 LDQ MQ RESTORE THE C(MQR), AND 4F10817 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10818 WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819 CLA 0,4 AND PICK UP ALPHA (TSX ...NIX,4). 4F10820 ANA MASK2 BLANK ALL BUT ...NIX. 4F10821 SUB CONX (...NIX) - (ADDR OF FIXCNIX-5). 4F10822 LXA L(9),4 SET XR4 FOR 9 TABLES. 4F10823 COMPUT SUB L(5) COMPUTE WHICH 4F10824 TZE WHICHX TABLE OVERFLOWED. 4F10825 TIX COMPUT,4,1 IF TABLE IS NOT FOUND. 4F10826 TSX DIAG,4 * GOT TO DIAGNOSTIC. 4F10827 WHICHX PXD ,4 OTHERWISE, 4F10828 COM CONVERT 2S COMPLEMENT 4F10829 ADD 2E18 OF NUMBER, 4F10830 PDX ,4 PLACE IN XR4, AND 4F10831 TXI DIAG,0 * GO TO DIAGNOSTIC. 4F10832 REM 4F10833 CONX PZE FXCNIX-5 CONSTANT USED BY DRTABS. 4F10834 BUFR BES 50 DRUM TABLE BUFFER. 4F10835 MQ BSS 1 WORKING STORAGE USED BY DRTABS. 4F10836 NAR BSS 1 WORKING STORAGE USED BY DRTABS. 4F10837 TDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10838 FDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10839 DBL BSS 1 WORKING STORAGE USED BY DRTABS. 4F10840 DI BSS 1 WORKING STORAGE USED BY DRTABS. 4F10841 TEMP BSS 0 INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842 DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10843 REM END OF PROGRAM DRTABS. 4F10844 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845 REM 4F10846 REM GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200. 4F10847 REM GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. 4F10848 GETIFN LXD EIFNO,1 PLACE THE INTERNAL FORMULA 4F10849 PXD ,1 NUMBER IN XR1, IN THE DECREMENT 4F10850 STO 1C OF THE AC, AND IN 1C. THEN 4F10851 TRA 1,4 * RETURN TO CALLER. 4F10852 REM END OF PROGRAM GETIFN. 4F10853 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854 REM 4F10855 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 051/051 ------ REM JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT), 4F10856 REM VRA(VRD),C3200. 4F10857 REM JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858 JIF CAL EIFNO INCREASE THE 4F10859 ADD D1 INTERNAL FORMULA NUMBER 4F10860 STD EIFNO BY 1. 4F10861 REM GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). 4F10862 GIF CAL EIFNO PICKUP IFN, 4F10863 ANA 1BAR CLEAR SL, AND 4F10864 L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865 L(TL) STD TL OF SL AND TL. 4F10866 TRA 1,4 * EXIT TO CALLER. 4F10867 REM END OF PROGRAM JIF(GIF). 4F10868 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869 REM 4F10870 REM MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM. 4F10871 REM STATEA= ENTRY POINT FOR STATE A. 4F10872 STATEA LXA L(4),4 SET C(XR4) = 4, THEN 4F10873 TXI MTR1,0 GO GET PARAMETERS. 4F10874 REM STATEB= ENTRY POINT FOR STATE B. 4F10875 STATEB LXA L(2),4 SET C(XR4) = 2, THEN 4F10876 TXI MTR1,0 GO GET PARAMETERS. 4F10877 REM STATEC= ENTRY POINT FOR STATE C. 4F10878 STATEC LXA L(1),4 SET C(XR4) = 1, THEN 4F10879 MTRCSL TXI MTR1,0,** GO GET PARAMETERS. 4F10880 REM STATED= ENTRY POINT FOR STATE D. 4F10881 STATED LXA L(3),4 SET C(XR4) = 3, THEN 4F10882 MTR1 CLA ZETA+4,4 OBTAIN THE NUMBER OF WORDS IN THE 4F10883 STD MTRCSL CURRENT STATE, AND SAVE. 4F10884 ARS 18 ADD THE NUMBER OF WORDS IN THE 4F10885 ADD MTR3 CURRENT STATE TO THE MEMORY ORIGIN 4F10886 STA MTR2 TO SET ADDRESS OF COPY LOOP. 4F10887 LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F10888 MTR15 RDR 5,4 READ SELECT CURRENT LOGICAL DRUM. 4F10889 LXD MTRCSL,2 LENGTH OF CURRENT STATE TO XR2. 4F10890 LDA ZETA+4,4 THEN COPY 4F10891 PXD ,0 CURRENT STATE 4F10892 CAD DRCKSM FROM DRUM 4F10893 COM INTO MEMORY 4F10894 MTR2 CAD **,2 WHILE COMPUTING 4F10895 TIX MTR2,2,1 LOGICAL CHECKSUM. 4F10896 COM IF THIS EQUALS DRUM CHECKSUM, 4F10897 MTR3 TZE MEMORG * THEN ENTER CURRENT STATE. 4F10898 TIX MTR15,1,1 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899 MTRERR TXI DIAG,4,-MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900 REM 4F10901 ZETA PZE DEL(A),,ENDADR-ORGA 4F10902 PZE DEL(D),,ENDADR-ORGD 4F10903 PZE DEL(B),,ENDADR-ORGB 4F10904 PZE DEL(C),,ENDADR-ORGC 4F10905 REM END OF PROGRAM MTR000. 4F10906 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907 REM 4F10908 REM RA000,4/ CALLERS=LPR,ARITH. 4F10909 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 052/052 ------ REM RA000 COMPUTES RELATIVE ADDRESS. 4F10910 RA000 SXD RAXR4,4 SAVE THE C(XR4) FOR RETURN. 4F10911 STZ EPS CLEAR EPSILON (WORKING STORAGE). 4F10912 CLA DIMSAV EXAMINE THE 4F10913 ED2 PAX E+4,4 DIMENSION COUNT, AND 4F10914 TXL ED1,4,2 IF 3 DIMENSION, 4F10915 ADD L(1) INCREASE IT 1. 4F10916 ED1 ADM ED2 THEN SET 4F10917 STA ED3 ED3 ADDRESS TO 4F10918 ED3 CLA **,4 EXAMINE SUCCESSIVE 4F10919 LDQ D1 SUBSCRIPT 4F10920 TZE ED4 VARIABLES, AND 4F10921 STQ EPS ACCORDINGLY SET 4F10922 LDQ L(0) EPSILON AND 4F10923 ED4 STQ EPS,4 EPSILON SUB I 4F10924 TIX ED3,4,1 TO 1 OR TO 0. WHEN DONE, 4F10925 CLA D1 IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926 LXA DIMSAV,4 AND GO SUBTRACT ADDEND 1. 4F10927 TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN 4F10928 LDQ E+11 PICKUP ADDENDS 1 AND 2, 4F10929 STZ E+11 CLEAR E+11, AND 4F10930 SLQ E+11 RESTORE ADDEND 1 TO E+11. 4F10931 LGL 18 ADJUST AND PLACE 4F10932 STQ N2 ADDEND 2 IN N2. 4F10933 LDQ E+6 AND, IF 2 DIMENSION 4F10934 CLA EPS-1 PICKUP EPSILON SUB 1, 4F10935 TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936 SUB E+12 IF 3 DIMENSION, SET GTAG 4F10937 STO GTAG TO EPSILON SUB 1 - ADDEND 3. 4F10938 LDQ E+8 PICKUP DIMESNIONS 1 AND 2. 4F10939 STZ E+8 CLEAR E+8, AND 4F10940 SLQ E+8 RESTORE DIMENSION 1 TO E+8. 4F10941 LGL 18 ADJUST, AND MULTIPLY 4F10942 MPY GTAG DIMENSION 2 TIMES GTAG. 4F10943 ALS 17 THEN ADD 4F10944 ADD EPS-2 EPSILON SUB 2 4F10945 LDQ E+8 TO THE PRODUCT, AND 4F10946 2D1 SUB N2 SUBTRACT ADDEND 2. 4F10947 STO GTAG MULTIPLY 4F10948 MPY GTAG THE RESULT 4F10949 ALS 17 TIMES 4F10950 ADD EPS,4 DIMENSION 1, AND ADD IN EPSILON 4F10951 ADD EPS SUB I AND EPSILON. 4F10952 1D1 SUB E+11 SUBTRACT ADDEND 1, 4F10953 STO GTAG AND PLACE THE RESULT 4F10954 CAL E IN THE DECREMENT OF GTAG, 4F10955 ARS 24 WITH 1-TAUTAG 4F10956 STA GTAG IN THE ADDRESS. 4F10957 LXD RAXR4,4 RESTORE THE C(XR4), AND 4F10958 TRA 1,4 * EXIT TO CALLER. 4F10959 REM END OF PROGRAM RAD00. 4F10960 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961 REM 4F10962 REM RDRX,4 CALLS=DIAG. CALLER=DRTABS. 4F10963 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 053/053 ------ REM RDRX READS A BLOCK FO DRUM ENTRIES INTO 50 WORD BUFR. 4F10964 RDRX LXA DRMERC,1 SET FOR 5 ATTEMPTS TO READ DRUM. 4F10965 REP LXD DI,2 SET XR2 * (5-DRUM NUMBER). 4F10966 TXH BIAS-2,2,0 IF NOT GREATER THEN ZERO. 4F10967 TSX DIAG,4 * GO TO DIAGNOSTIC. 4F10968 RDR 5,2 SELECT CURRENT DRUM. 4F10969 LXD FDA,2 SET XR2 = NO. OF WORDS TO COPY. 4F10970 BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971 LDA FDA DRUM ORIGIN OF CURRENT BLOCK. 4F10972 JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973 CAD DUMP READ 4F10974 COM FLOCON BLOCK 4F10975 LBUF CAD BUFR,2 AND COMPUTE 4F10976 TIX LBUF,2,1 LOGICAL CHECKSUM. 4F10977 XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978 CPY BUFR,2 COPY LOOP 4F10979 TNX ERR,2,1 FOR ALL 4F10980 CPY BUFR,2 COPY LOOP 4F10981 TNX ERR,2,1 TABLES 4F10982 CPY BUFR,2 EXCEPT 4F10983 TNX ERR,2,1 FLOCON* 4F10984 CPY BUFR,2 X 4F10985 TNX ERR,2,1 X 4F10986 CPY BUFR,2 X 4F10987 TNX ERR,2,1 X 4F10988 CPY BUFR,2 X 4F10989 TNX ERR,2,1 X 4F10990 CPY BUFR,2 X 4F10991 NOP X 4F10992 ETSUM CAD DUMP SUM CHECKSUMS. 4F10993 JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994 RDRXCR LXD FDA,2 COMPUTE 4F10995 COM NEW 4F10996 ACL BUFR,2 LOGICAL 4F10997 TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998 PROVE COM IF CHECKSUMS COMPARE 4F10999 TZE 1,4 * RETURN TO MAIN ROUTINE. 4F11000 ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001 TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F11002 REM END OF PROGRAM RDRX. 4F11003 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004 REM 4F11005 REM SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000. 4F11006 REM SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. 4F11007 SR6DC1 SXD SR6XR2,2 SAVE THE C(XR2), AND 4F11008 LXA L(6),2 SET TO COUNT 6 CHARACTERS. 4F11009 STZ SR6WRK INITIALIZE OUTPUT CELL TO 0. 4F11010 SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011 LGL 6 IN AC AND 4F11012 CAS ABLANK TEST FOR BLANK. 4F11013 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014 ENDWRD TIX SR6DC4,0,-1 (DECR= END OF PROBLEM INDICATOR) 4F11015 SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016 TSX DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 054/054 ------ NOP NOP IF NUMERIC, 4F11018 STO SR6WRK+1 SAVE DIGIT, AND 4F11019 CLA SR6WRK MULTIPLY PREVIOUS PARTIAL 4F11020 ALS 2 RESULT BY 10, 4F11021 ADD SR6WRK AND ADD IN 4F11022 ALS 1 CURRENT DIGIT, SAVING 4F11023 ADD SR6WRK+1 NEW PARTIAL RESULT. 4F11024 STO SR6WRK THEN ADJUST COUNT, AND 4F11025 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026 CLA SR6WRK LEAVE OUTPUT IN AC, 4F11027 LXD SR6XR2,2 RESTORE THE C(XR2), AND 4F11028 TRA TRA 1,1 * EXIT TO MAIN ROUTINE. 4F11029 REM END OF PROGRAM SR6DC1. 4F11030 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031 REM 4F11032 REM SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033 REM CALLERS=ARITH,LPR,C0200. 4F11034 REM SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES. 4F11035 SS000 SXD SXR2,2 SAVE C(XR2), 4F11036 SXD SXR1,1 SAVE C(XR1), 4F11037 SXD SXR4,4 SAVE C(XR4), AND 4F11038 STZ DIMCTR SET DIMCTR = 0. 4F11039 LXA L(6),4 INITIALIZE 4F11040 SXD SBS2,4 FOR EACH SUBSCRIPT MEMBER. 4F11041 CAL TXHOP PICK UP TXH OP, AND 4F11042 STP SBC6 SET OP 4F11043 STP SBC8 SWITCHES. 4F11044 CAL TXLOP PICK UP TXL OP, AND 4F11045 STP SBC4 SET OP SWITCH. 4F11046 SS001 LXA L(5),3 SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047 STZ SYMBOL CLEAR WORKING STORAGE. 4F11048 TSX C0190,4 * GET FIRST NON BLANK CHAR IN THE AC.4F11049 CAS L(9) COMPARE IT WITH 9. 4F11050 TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051 NOP IF NUMERIC, 4F11052 STO FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND 4F11053 SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054 ORS SYMBOL BUILD SYMBOL. 4F11055 TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056 SS0013 TXI SS0014,1,-1 UPDATE COUNT OF CHARS COLLECTED. 4F11057 SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058 LXA CTESTX,4 SET XR4 = NO. OF PUNCTUATION MARKS.4F11059 SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINTT 4F11060 TXI SS0016,0 ALL PUNCTUATION. 4F11061 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11062 SS0016 TIX SS0015,6,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063 CAS L(9) TEST FOR NUMERIC 4F11064 TXI SS0017,0 AND IF 4F11065 CTESTX NOP CTEST-ENDMK FOUND TO BE NUMERIC 4F11066 TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067 TXI STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC. 4F11068 SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069 TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070 LGL 30 RESTORE FIXED POINT VARIABLE 4F11071 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 055/055 ------ SLW RESIDU TO RESUDU, AND 4F11072 LXD CHCTR,4 RESET CHARACTER COUNTER 4F11073 TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074 SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075 SBX CLS SBC6 TEST FOR 4F11076 TMI SBX1 PREVIOUS MULTIPLIER. 4F11077 TSX DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. 4F11078 SBX1 STO SBC6 RESET MULTIPLIER SWITCH. 4F11079 CLA FIRSTC TEST 4F11080 SUB L(10) MULTIPLIER 4F11081 TMI SBX2 FOR CONSTANT. 4F11082 TSX DIAG,4 * SUBS-MULTIPLER NOT A CONSTANT. 4F11083 SBX2 CLA SYMBOL ADJUST MULTIPLIER 4F11084 ARS 42,2 TO LOW ORDER POSITION. 4F11085 LXD SBS2,4 GET STORING TAG, 4F11086 SLW E+9,4 AND STORE MULTIPLIER. 4F11087 STZ E+15,4 SET ADDEND = 0. 4F11088 SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089 STZ SYMBOL CLEAR WORKING STORAGE. 4F11090 SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F11091 SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092 SS005 CAS CTEST,4 TO ALL 4F11093 TXI SS006,0 PUNCTUATION. 4F11094 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11095 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096 TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097 STO FIRSTC ADDEND, SAVE FOR LATER TEST. 4F11098 SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099 SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100 ORS SYMBOL BUILD SYMBOL. 4F11101 TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 SS007 TXI SS004,1,-1 UPDAT FOR ANOTHER CHAR COLLECTED. 4F11103 STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104 REM SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN= 4F11105 TXI ISC,0 ENK (ILLEGAL IN LIST SUBSCRIPT). 4F11106 ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107 TXI SBC,0 , 4F11108 TXI SBR,0 ) 4F11109 TXI ISC,0 = (ILLEGAL IN LIST SUBSCRIPT). 4F11110 SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER, 4F11111 TXI ISC,0 / (ILLEGAL IN LIST SUBSCRIPT). 4F11112 SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). 4F11113 SXR2 TXI SBP,0,** + 4F11114 SXR4 TXI SBX,0,** * 4F11115 SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116 SBM SSM MINUS ADDEND. 4F11117 SBP CLM PLUS ADDEND. 4F11118 LXD SBS2,4 GET STORING TAG, AND 4F11119 STO E+15,4 STORE SIGN OF ADDEND. 4F11120 CLS SBC8 TEST SWITCH 4F11121 TMI SBP1 FOR PREVIOUS ADDEND. 4F11122 TSX DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT, 4F11123 SBP1 STO SBC8 RESET ADDEND SWITCH. 4F11124 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11125 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 056/056 ------ TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126 LXD SBS2,4 GET STORING TAG, AND 4F11127 CLS SBC6 TEST SWITCH 4F11128 TPL SBP2 FOR PREVIOUS MULTIPLIER. 4F11129 CLA L(1) IF NONE, 4F11130 STO E+9,4 SET MULTIPLIER 4F11131 TXI SBP4,0 TO 1, AND CONTINUE. 4F11132 SBC1 CLS SBC6 RESET MULTIPLIER 4F11133 SBP2 STO SBC6 OP SWITCH. 4F11134 SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT. 4F11135 TXH SBP41,2,36 ADD A BLANK 4F11136 CAL BLANK IF LESS 4F11137 ALS 36,2 THAN 6 4F11138 ORA SYMBOL CHARACTERS, AND 4F11139 SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11141 TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142 CLA SBC8 IF THERE IS AN ADDEND, 4F11143 TMI SS003 GO COLLECT, OTHERWISE 4F11144 TXI SBC7,0 GO UPDATE STORING TAG. 4F11145 SBR CLS SBC4 SET SWITCH 4F11146 STO SBC4 FOR CLOSING PARENTHESIS. 4F11147 SBC CAL DIMCTR UPDATE 4F11148 ADD L(1) DIMENSION COUNTER 4F11149 STA DIMCTR BY 1. 4F11150 LXD SBS2,4 GET STORING TAG. 4F11151 SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152 SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153 CLA L(1) SET 4F11154 STO E+9,4 MULTIPLIER = 1. 4F11155 STZ E+15,4 SET ADDEND = 0. 4F11156 CLA FIRSTC TEST FOR 4F11157 SUB L(10) CONSTANT OR VARIABLE. 4F11158 TPL SBP4 IF CONSTANT, THEN 4F11159 STZ E+10,4 SET VARIABLE = 0. 4F11160 SBC9 CAL SYMBOL ADJUST 4F11161 ARS 42,2 CONSTANT 4F11162 ORS E+15,4 TO LOW ORDER POSITION. 4F11163 SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164 SXD SBS2,4 BY -2, AND SAVE. 4F11165 SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166 TXI SA000,0 GO MAKE TABLE ENTRIES AND GET TAG. 4F11167 SBC2 CLS SBC8 RESET ADDEND 4F11168 STO SBC8 OP SWITCH. 4F11169 CLS L(10) TEST 4F11170 ADD FIRSTC ADDEND 4F11171 TMI SBC9 FOR CONSTANT. 4F11172 TSX DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. 4F11173 SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS. 4F11174 TMI SA000 GO MAKE TABLE ENTRIES AND GET TAG. 4F11175 TSX DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. 4F11176 REM CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177 CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178 SA000 CLA DIMCTR SAVE 4F11179 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 057/057 ------ STO DIMSAV THE CONTENTS OF DIMCTR 4F11180 ALS 33 POSITION AND 4F11181 STO E STORE I TAG. 4F11182 CLA E+11 MOVE SUBSCRIPT ADDENDS 4F11183 STO E+12 INTO POSITION 4F11184 CLA E+9 FOR FOLLOWING 4F11185 STO E+11 PROGRAM. 4F11186 CLA L(2) EXAMINE DIMCTR 4F11187 CAS DIMCTR TO DETERMINE 4F11188 TXI 1D0000,0 WHETHER DIMESNION OF 4F11189 TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190 3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191 3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192 TSX SR6DC1,1 * IN E+3,5,7, AND 4F11193 STO E+9,4 STORE BACK IN E+3,5,7, 4F11194 TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195 LXA L(3),4 TO PICK UP 3 ADDENDS. 4F11196 3D0002 CLA E+14,4 CONVERT ADDENS (BCD TO BINARY)= 4F11197 SLW G STRIP OFF 4F11198 LDQ G SIGN. 4F11199 TSX SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, 4F11200 LDQ E+14,4 PUT SIGN IN S-BIT OF MQ, AND 4F11201 TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11203 3D0040 STO E+14,4 AND STORE BACK INTO E+11,12,13, 4F11204 TIX 3D0002,4,1 WHEN DONE, 4F11205 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE, 4F11206 TSX DIAG,4 * --ERROR...NOT ON DRUM, 4F11207 3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208 ALS 18 PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209 ADD E+5 AND STORE THEM 4F11210 STO E+3 IN E+3. 4F11211 CLA E+4 MOVE SUBSCRIPT 1 4F11212 STO E+5 TO E+5. 4F11213 CLA E+7 AND MOVE 4F11214 ALS 18 COEFFICIENT 3 4F11215 STO E+4 INTO E+4. 4F11216 CLA E+8 MOVE SUBSCRIPT 3 INTO E+7, 4F11217 STO E+7 NEXT SUBSCRIPT 2 IN E+6. 4F11218 CLA D12 MOVE DIMESIONS 1 AND 2 4F11219 STO E+8 INTO E+8. 4F11220 CAL E+11 PACK TOGETHER 4F11221 ALS 18 ADDENDS 1 AND 2 4F11222 ORA E+12 AND 4F11223 SLW E+11 STORE THEM IN E+11. 4F11224 CAL E+13 MOVE 4F11225 ALS 18 ADDEND 3 4F11226 SLW E+12 INTO E+12. 4F11227 TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228 ALS 24 POSITION TAU3 TAG, AND 4F11229 ORS E PLACE TAU3 TAG IN TAG WORD. 4F11230 CAL E+7 COMBINE 4F11231 ORA E+6 SUBSCRIPTS 3,2, AND 1, 4F11232 3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 058/058 ------ 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234 FTG000 CLA EIFNO ENTER FORTAG= 4F11235 ANA MASK1 BRING UP ALPHA (INTFORMNO) 4F11236 SLW G AND STORE IN G. 4F11237 CAL E BRING UP TAUTAG FOR I, 4F11238 ARS 24 ADJUST, AND 4F11239 ORS G PLACE IN G WITH ALPHA. THEN 4F11230 TSX TET00,1 * ENTER INTO FORTAG TABLE 4F11240 PZE 4 (TET TABLE 4). 4F11241 TXI SAEXIT,0 GO TO EXIT. 4F11242 2D0000 LXA L(4),4 THEN PICKUP AND 4F11243 2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11244 TSX SR6DC1,1 * (BCD TO BINARY), 4F11245 STO E+7,4 AND STORE BACK IN E+3 AND E+5, 4F11246 TIX 2D0001,4,2 WHEN DONE, 4F11247 LXA L(2),4 PREPARE TO 4F11248 2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11249 SLW G STRIP OFF 4F11250 LDQ G THEIR SIGNS, 4F11251 TSX SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, 4F11252 LDQ E+13,4 PUT SIGN IN S-BIT OF MQ, AND 4F11253 TQP 2D0040 IF PLUS--SKIP NEXT, 4F11254 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11255 2D0040 STO E+11,4 AND STORE BACK IN E+11 AND E+12. 4F11256 TIX 2D0002,4,1 WHEN DONE, 4F11257 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F11258 TSX DIAG,4 * --ERROR...NOT ON DRUM. 4F11259 2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11260 ALS 18 PACK TOGETHER 4F11261 ADD E+5 COEFFICENTS 1 AND 2, 4F11262 STO E+3 AND STORE THEM IN E+3, 4F11263 CLA E+6 MOVE SUBSCRIPT 2 INTO E+5 4F11264 STO E+5 (NEXT TO SUBSCRIPT 1 IN E+4), 4F11265 CLA D12 OBTAIN 4F11266 ANA MASK1 DIMENSION 1, AND MOVE IT 4F11267 STO E+6 INTO E+6. 4F11268 CAL E+11 PACK TOGETHER 4F11269 ALS 18 ADDENDS 1 AND 2, 4F11270 ORA E+12 AND STORE THEM 4F11271 SLW E+11 IN E+11. 4F11272 TSX TAU2IX,4 * GO SEATCH TAU2 TABLE. 4F11273 ALS 24 POSITION TAU2 TAG, AND 4F11274 ORS E PLACE TAU2 TAG IN TAG WORD. 4F11275 CAL E+4 COMBINE SUBSCRIPTS 1 AND 2, AND 4F11276 TXI 3D0340,0 GO TO FORTAG SECTION. 4F11277 1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11278 TSX SR6DC1,1 * (BCD TO BINARY), AND 4F11279 ALS 18 THEN ADJUST THEM, 4F11280 STO E+3 AND STORE THEM BACK IN E+3. 4F11281 CLA E+11 PICKUP ADDEND, 4F11282 SLW G STRIP OFF SIGN, 4F11283 LDQ G CONVERT ADDEND 4F11284 TSX SR6DC1,1 * (BCD TO BINARY), AND THEN 4F11285 LDQ E+11 PUT SIGN IN S-BIT OF MQ, 4F11286 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 059/059 ------ TQP 1D0001 IF PLUS--SKIP NEXT, 4F11287 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18. 4F11288 1D0001 ALS 18 THEN ADJUST AND STORE 4F11289 SLW E+11 BACK INTO E+11. 4F11290 TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11291 ALS 24 POSITION TAU1 TAG, AND 4F11292 ORS E PLACE TAU1 TAG IN TAG WORD. 4F11293 CAL E+4 TAKE SUBSCRIPT, AND 4F11294 TXI 3D0350,0 GO TO FORTAG SECTION. 4F11295 NOTAG CAL FNIND POSITION SIGMA1 TAG, AND 4F11296 ORS E PLACE SIGMA1 TAG IN TAGE WORD. 4F11297 SAEXIT LXD SXR1,1 RESTORE THE C(XR1) 4F11298 LXD SXR2,2 RESTORE THE C(XR2) 4F11299 LXD SXR4,4 RESTORE THE C(XR4) 4F11300 TRA 1,4 * EXIT TO MAIN ROUTINE. 4F11301 REM END OF PROGRAM SS000. 4F11302 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11303 REM 4F11304 REM SUBX00,4/ CALLERS=C3000,C3300. 4F11305 REM SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES. 4F11306 SUBX00 LXA L(6),3 PREPARE TO COUNT CHARS AND SHIFTS. 4F11307 LDQ 1G PICKUP SUBROUTINE NAME. 4F11308 SUBX01 PXD ,0 CLEAR THE AC, AND 4F11309 LGL 6 SEARCH FOR A BLANK 4F11310 SUB BLANK CHARACTER IN THIS NAME. 4F11311 TZE SUBX03 IF NOT BLANK, THEN 4F11312 TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11313 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11314 TRA 1,4 * RETURN TO CALLER AFTER 6TH CHAR. 4F11315 SUBX03 LDQ BLANKS IF LESS THEN 6 CHARACTERRS IN NAME,4F11316 LGL 36,1 SHIFT ENOUGH BLANKS INTO THE AC, 4F11317 ORS 1G AND FILL OUT NAME WITH BLANKS. 4F11318 TRA 1,4 * RETURN TO CALLER. 4F11319 REM END OF PROGRAM SUBX00. 4F11320 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11321 REM 4F11322 REM TESTFX,1/ CALLERS=SS000,C3000,IFFIX. 4F11323 REM TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES. 4F11324 TESTFX CAL FIRSTC COMPARE FIRST CHARACTER 4F11325 CAS L(H) WITH H. 4F11326 CAS L(O) IF GREATER THEN H, COMPARE WITH O. 4F11327 TRA 1,1 * IF NOT GREATER THEN H, LESS THEN O,4F11328 TRA 1,1 * THEN TAKE FLOATING POINT EXIT. 4F11329 TRA 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. 4F11330 REM END OF PROGRAM TESTFX. 4F11331 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11332 REM 4F11333 REM TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11334 REM C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR. 4F11335 REM TEST.. TESTS THE CHARACTER IN THE AC(30-35). 4F11336 REM TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 4F11337 TESTA0 CAS COMMA 4F11338 TRA TESTA1 4F11339 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 060/060 ------ TRA 1,4 * RETURN TO CALLER. 4F11340 TESTA1 SUB ENDMK 4F11341 TZE 1,4 * RETURN TO CALLER. 4F11342 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11343 REM TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11344 TESTB0 CAS COMMA 4F11345 TRA TESTB1 4F11346 TRA 1,4 * RETURN TO CALLER. 4F11347 TESTB1 SUB CLOS 4F11348 TZE 1,4 * RETURN TO CALLER. 4F11349 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11350 REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11351 TESTC0 CAS OPEN 4F11352 TRA TESTC1 4F11353 TRA 1,4 * RETURN TO CALLER. 4F11354 TESTC1 SUB ENDMK 4F11355 TZE 1,4 * RETURN TO CALLER. 4F11356 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11357 REM TEST CHARACTER IN THE AC FOR ENDMARK. 4F11358 TESTD0 CAS ENDMK 4F11359 ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11360 TRA 1,4 * RETURN TO CALLER. 4F11361 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11362 REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11363 TESTE0 CAS OPEN 4F11364 TRA TESTE1 4F11365 TRA 1,4 * RETURN TO CALLER. 4F11366 TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11367 REM TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11368 TESTF0 CAS CLOS 4F11369 TRA TESTF1 4F11370 TRA 1,4 * RETURN TO CALLER. 4F11371 TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11372 REM TEST CHARACTER IN THE AC FOR COMMA. 4F11373 TESTG0 CAS COMMA 4F11374 TRA TESTG1 4F11375 TRA 1,4 * RETURN TO CALLER. 4F11376 TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11377 REM TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11378 TESTH0 CAS L(9) 4F11379 TRA 1,4 * RETURN TO CALLER. 4F11380 NOP 4F11381 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11382 REM TEST CHARACTER IN THE AC FOR NUMERIC. 4F11383 TESTI0 CAS L(9) 4F11384 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11385 TRA 1,4 * RETURN TO CALLER. 4F11386 TRA 1,4 * RETURN TO CALLER. 4F11387 REM END OF PROGRAM TEST... 4F11388 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11389 REM 4F11390 REM TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400, 4F11391 REM C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD). 4F11392 REM TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 4F11393 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 061/061 ------ REM FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. 4F11394 TET00 SXD TETXR2,2 SAVE THE C(XR2), 4F11395 SXD TETXR4,4 SAVE THE C(XR4), AND 4F11396 STQ TETMQR SAVE THE C(MQR). 4F11397 CLA 1,1 COMPUTE TABLE NUMBER 4F11398 ALS 1 TIMES 3 4F11399 ADD 1,1 AND 4F11400 COM PLACE THE 2S COMPLEMENT 4F11401 ADD L(1) OF THIS 4F11402 PAX 0,2 IN XR2 4F11403 CLA INTET,2 OBTAIN THE CURRENT 4F11404 ARS 18 B (BUFFER CAPACITY), 4F11405 STO TETWRK AND SAVE IT. THEN 4F11406 CLA INTET+2,2 GET P (PORTION OF BUFFER FULL), 4F11407 ARS 18 AND 4F11408 SUB TETWRK COMPARE TO B. 4F11409 TNZ TET03 IF BUFFER IS FULL, 4F11410 STD INTET+2,2 SET P = 0, AND 4F11411 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11412 LXA TETWRK,4 SET XR4 = BLOCK SIZE (B). 4F11413 CLA TETWRK ADD BLOCK SIZE TO 4F11414 ADD INTET,2 ORGIN OF CURRENT BLOCK (O). 4F11415 STA TET02 AND SET ADDRESS OF COPY LOOP (O+B).4F11416 CPY 1,1 COPY TABLE NUM FOR IDENTIFICATION. 4F11417 TET02 CPY **,4 WRITE BLOCK ONTO 4F11418 TIX TET02,4,1 TABLE TAPE, AND 4F11419 IOD WHEN DONE, 4F11420 CLA INTET+2,2 INCREASE C (BLOCK COUNT) 4F11421 ADD L(1) BY 1 FOR 4F11422 STA INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE. 4F11423 TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11424 ARS 18 TO O (ORIGIN OF CURRENT TABLE 4F11425 ADD INTET,2 BUFFER) TO SET 4F11426 STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11427 CLA INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS), 4F11428 STA TET04 AND SET ADDRESS OF ENTRY LOOP. 4F11429 PDX ,4 SET XR4 = E (ENTRY LENGTH IN WRDS).4F11430 ADD INTET+2,2 INCREASE P BY E TO ACCOUNT 4F11431 STD INTET+2,2 FOR FOLLOWING ENTRY. 4F11432 LXD L(0),2 SET XR2 = 0. THEN 4F11433 TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11434 TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11435 TXI TET06,2,-1 WHEN 4F11436 TET06 TIX TET04,4,1 DONE, 4F11437 LDQ TETMQR RESTORE ORIGINAL C(MQR), 4F11438 LXD TETXR2,2 RESTORE ORIGINAL C(XR2), 4F11439 LXD TETXR4,4 RESTORE ORIGINAL C(XR4), AND 4F11440 TRA 2,1 * EXIT TO MAIN ROUTINE. 4F11441 REM END OF PROGRAM TET00. 4F11442 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11443 REM 4F11444 REM DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11445 REM C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11446 REM SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR, 4F11447 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 062/062 ------ REM CMA,EMK,BEG(TYP),VRA(VRD). 4F11448 REM (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 4F11449 REM BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 4F11450 REM THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.) 4F11451 DIAG TXI 4,0 * GO GET THE DIAGNOSTIC. 4F11452 REM END OF PROGRAM DIAG. 4F11453 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11454 REM 4F11455 REM ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 4F11456 FLTR00 SXD FLTR05,4 SAVE CALLING TAG. 4F114571 CLA EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572 STA ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F114573 ARS 18 4F114574 STA NZE PLACE LAST IFN IN DEC OF PZE 4F114575 LXD ARGCTR,4 4F114576 TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577 STZ 1C+2 4F114578 CLS 2E18 SET ADDRESS TO -1 4F114579 TRA FLTR03 4F11457A FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C STZ 1C+2 SET ADDRESS TO 0 4F11457D STZ 1C+3 4F11457E TRA FLTR04 4F11457F FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G STO 1C+2 4F11457H CLA D2 4F11457I FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J FLTR04 TSX CIT00,4 4F11457K PZE L(0) COMPILE NTR *+2,0,EFN 4F11457L PZE ENT 4F11457M PZE 15P 4F11457N PZE D2 4F11457O TSX CIT00,4 4F11457P PZE L(0) COMPILE PZE ALPHA,0,IFN 4F11457Q PZE NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R PZE 1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S PZE 1C+3 MAIN OR SUBPROGRAM. 4F11457T LXD FLTR05,4 4F11457U FLTR05 TXI CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V REM 4F11457W REM 4F11458 REM END OF THE COMMON PART OF SECTION ONE. 4F11459 REM 4F11460 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461 REM 4F11462 REM SECTION 1 / INITIALIZATION = 4F11463 REM 704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000. 4F11464 ORG 0 4F114641 PZE FORSUB,,1TOCS 4F114642 PZE DMWR98 4F114643 ORG FORSUB 4F11465 REM INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 4F11466 REM BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 4F11467 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 063/063 ------ REM PROGRAM. 4F11468 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469 REM 4F11470 REM PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 = 4F11471 CLDR00 LXA CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0. 4F11472 CLDR01 WRS 197,1 X 4F11473 LXD CLDR07,2 X 4F11474 CLDR03 CPY CLDR08 X 4F11475 TIX CLDR03,2,1 X 4F11476 TIX CLDR01,1,1 X 4F11477 REW 146 REWIND WORKING TAPES 2,3,4. 4F11478 REW 147 X 4F11479 REW 148 X 4F11480 REM END OF INITIALIZATION / PART 1. 4F11481 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11482 REM 4F11483 REM PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2= 4F11484 DMWR01 LXA L(3),4 PREPARE TO WRITE STATE D ON DRUM 2.4F11485 TRA DMWR11 X 4F11486 DMWR03 LXA L(1),4 PREPARE TO WRITE STATE C ON DRUM 4.4F11487 TRA DMWR11 X 4F11488 DMWR06 LXA L(2),4 PREPARE TO WRITE STATE B ON DRUM 3.4F11489 TRA DMWR11 X 4F11490 DMWR09 LXA L(4),4 PREPARE TO WRITE STATE A ON DRUM 1.4F11491 CLA DMWR98 THIS IS FINAL STATE TO BE WRITTEN, 4F11492 STA DMWR40 CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493 DMWR11 CLA ZETA+4,4 GET LENGTH OF CURRENT STATE. 4F11494 PDX ,2 LENGTH OF CURRENT STATE. 4F11495 SXD CHECK,2 SAVE LENGTH. 4F11496 ARS 18 LENGTH + ORIGIN TO PREPARE FOR CK 4F11497 ADD MTR3 SUM AND COPY LOOPS. 4F11498 STA DMWR20 X 4F11499 STA DMWR26 X 4F11500 PXD ,0 CLEAR AC AND COMPUTE CK SUM. 4F11501 DMWR20 ACL **,2 X 4F11502 TIX DMWR20,2,1 X 4F11503 SLW DRCKSM X 4F11504 LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F11505 DMWR23 WDR 5,4 PREPARE TO WRITE DRUM. 4F11506 LXD CHECK,2 X 4F11507 LDA ZETA+4,4 X 4F11508 CPY DRCKSM WRITE CK SUM ON DRUM. 4F11509 DMWR26 CPY **,2 WRITE STATE ON DRUM. 4F11510 TIX DMWR26,2,1 X 4F11511 RDR 5,4 PREPARE TO READ STATE BACK. 4F11512 LXD CHECK,2 X 4F11513 LDA ZETA+4,4 X 4F11514 PXD ,0 CLEAR AC AND READ BACK CK SUM AND 4F11515 CAD GARBGE STATE. 4F11516 COM X 4F11517 DMWR32 CAD GARBGE RECOMPUTE CK SUM. 4F11518 TIX DMWR32,2,1 X 4F11519 COM X 4F11520 DMWR40 TZE 1TOCS * CK SUM AGREE, GO GET NEXT STATE. 4F11521 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 064/064 ------ TIX DMWR23,1,1 CK SUM FAILED, TRY UP TO 5 TIMES. 4F11522 CLA DMWR89 SET MONITOR TO RETURN TO THIS 4F11523 STO STATEA PROGRAM INSTEAD OF TO STATE A. 4F11524 TXL DMWR80,4,3 TEST FOR STATE A IN PROGRESS. 4F11525 TSX DIAG,4 * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526 DMWR80 TXL DMWR82,4,2 TEST FOR STATE D IN PROGRESS. 4F11527 RTB 1 SPACE OVER STATE C RECORD. 4F11528 RTB 1 SPACE OVER STATE B RECORD. 4F11529 RTB 1 SPACE OVER STATE A RECORD. 4F11530 TSX DIAG,4 * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531 DMWR82 TXL DMWR84,4,1 TEST FOR SET B IN PROGRESS. 4F11532 RTB 1 SPACE OVER STATE A RECORD. 4F11533 TSX DIAG,4 * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534 DMWR84 RTB 1 SPACE OVER STATE B RECORD. 4F11535 RTB 1 SPACE OVER STATE A RECORD. 4F11536 TSX DIAG,4 * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537 DMWR88 LXA L(0),4 SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538 TRA DIAG * PRINT END LINE AND STOP 4F11539 DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540 TRA CA010 * GO BEGIN STATE A OF SECTION ONE. 4F11541 REM END OF INITIALIZATION / PART 2. 4F11542 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543 REM 4F11544 REM PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION= 4F11545 GARBGE BSS 1 ERASEABLE STORAGE. 4F11546 CHECK PZE ,,** SAVING CELL FOR LENGTH OF STATE. 4F11547 CLDR07 PZE 4,,2048 CONSTANT FOR CLEARING DRUMS. 4F11548 CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549 DMWR89 TRA DMWR88 CONSTANT FOR ERROR ROUTINE. 4F11550 DMWR98 PZE DMWR99 CONSTANT FOR ADDRESS MODIFICATION. 4F11551 REM END OF INITIALIZATION / PART 3. 4F11552 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553 REM 4F11554 REM 4F11555 REM SECTION 1 / STATEA = 4F11556 REM 704 FORTRAN MASTER RECORD CARD / STATE A = F0190000. 4F11557 ORG 0 4F115571 PZE ORGA,,DMWR09 4F115572 PZE ENDA-1 4F115573 REM 4F11558 REM NAME FUNCTION 4F11559 REM PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11560 REM CA000 ASSEMBLE STATEMENT. 4F11561 REM CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562 REM CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563 REM CC000 CLASSIFY=WHICH NON-ARITHMETIC. 4F11564 REM PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS. 4F11565 REM C0100 DO. 4F11566 REM C0200 GO TO. 4F11567 REM C0300 IF. 4F11568 REM C0400 IF (SENSE SWITCH. 4F11569 REM C0500 IF (SENSE LIGHT. 4F11570 REM C0600 IF DIVIDE CHECK. 4F11571 REM C0700 IF AC OVERFLOW. 4F11572 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 065/065 ------ REM C0800 IF MQ OVERFLOW. 4F11573 REM C0900 PAUSE. 4F11574 REM C1000 ASSIGN. 4F11575 REM C1100 SENSE LIGHT. 4F11576 REM C1200 DIMENSION. 4F11577 REM C1300 STOP. 4F11578 REM C1400 FREQUENCY. 4F11579 REM C1500 EQUIVALENCE. 4F11580 REM C1600 CONTINUE. 4F11581 REM C3000(C3500) SUBROUTINE / FUNCTION. 4F11582 REM C3100 COMMON. 4F11583 REM C3200 RETURN. 4F11584 REM C3300 CALL. 4F11585 REM C3400 END. 4F11586 REM PART 3 / PROCESS INPUT-OUTPUT STATEMENTS= 4F11587 REM RDC READ CARD 4F11588 REM RIT READ INPUT TAPE. 4F11589 REM RDP PRINT. 4F11590 REM WOT WRITE OUTPUT TAPE. 4F11591 REM PDC PUNCH. 4F11592 REM WBT WRITE TAPE. 4F11593 REM RBT READ TAPE. 4F11594 REM WRD WRITE DRUM. 4F11595 REM RDD READ DRUM. 4F11596 REM EFT END FILE. 4F11597 REM RWN REWIND. 4F11598 REM BSP BACKSPACE. 4F11599 REM FOR FORMAT. 4F11600 REM RSC RESET AND SCAN. 4F11601 REM LISTR CONTROL FOR LIST SCAN. 4F11602 REM LPR LEFT PARENTHESES IN LIST SCAN. 4F11603 REM EOS EQUAL SIGN IN LIST SCAN. 4F11604 REM SPCTR CONTROL FOR SPECIFICATION SCAN. 4F11605 REM SPC SUBSCRIPT SPECIFICATIONS. 4F11606 REM RPR RIGHT PARENTHESIS IN LIST SCAN. 4F11607 REM CMA COMMA IN LIST SCAN. 4F11608 REM EMK ENDMARK IN LIST SCAN. 4F11609 REM PART 4 / SUBROUTINES USED BY STATE A= 4F11610 REM BEG(TYP),4 BEGIN SCAN AND TYPE TEST. 4F11611 REM BEGTR CONTROL FOR BEGINNING SCAN. 4F11612 REM BRW,4 BINARY READ OR WRITE COMPILER. 4F11613 REM BSS,2 COMPILES= IFN BSS 0. 4F11614 REM CA100,4 READ SOURCE PROGRAM TAPE. 4F11615 REM CC500,4 SCAN DICTIONARY. 4F11616 REM ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617 REM IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY. 4F11618 REM IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV). 4F11619 REM LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT. 4F11620 REM VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621 REM PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 4F11622 REM DIC DICTIONARY. 4F11623 REM T TRANSFER TABLE. 4F11624 REM 4F11625 REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F11626 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 066/066 ------ REM 4F11627 REM ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION 4F11628 REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F11629 REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F11630 REM THIS LOGICAL BLOCK OR SUBROUTINE. 4F11631 REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F11632 REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F11633 REM 4F11634 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635 REM 4F11636 REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11637 ORGA ORG 1824 4F11638 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639 REM 4F11640 REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. 4F11641 REM CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642 CA010 LXD ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN 4F11643 TXL DIAG,4,0 * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644 LXD EIFNO,1 KEEP INTERAL FORMULA NUMBER 4F11645 TXI CA013,1,1 (DECR PART OF EIFNO) 4F11646 CA013 SXD EIFNO,1 UP TO DATE BY ADDING 1. 4F11647 CAL FT OBTAIN HOLLERITH CODED 5-DIGIT 4F11648 ARS 6 EXTERNAL FORMULA NO IN ACC. 4F11649 SLW F-1 AND RETAIN IN F-01. 4F11650 LXD DCF,1 INITIALIZE INDEX A TO COMPL OF F. 4F11651 CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652 CA019 LDQ FT+12,2 MOVE WORD FROM REGION FT 4F11653 STQ 0,1 TO REGION F. 4F11654 TIX CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655 CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656 TSX CA100,4 * GO READ NEXT NON-BLANK CARD. 4F11657 CAL FT TEST RIGHTMOST CHARACTER OF 4F11658 ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659 TZE CA021 IF ZERO OR BLANK, 4F11660 SUB ABLANK DISCONTINUE READING, 4F11661 TNZ CA018 OTHERWISE CONTINUE. 4F11662 CA021 CLA BLANKS BEGIN SCANNING REGION F BACKWARDS 4F11663 CA022 CAS -1,1 TO FIND FIRST NON BLANK WORD. 4F11664 TRA CA023 NOT BLANK. 4F11665 TXI CA022,1,1 BLANK, SO CONTINUE SCAN. 4F11666 CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667 STQ 0,1 FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668 CAL F-1 PICK UP EXTERNAL FORMULA NUMBER AND4F11669 CAS 5BLANS COMPARE WITH /0 /. 4F11670 TRA CA015 NOT COMPARE. 4F11671 TRA CD000 * TAKE EXTFORMNO, IF ANY AND 4F11672 CA015 LRS 35 GO TO CONVERSION SUBROUTINE AND 4F11673 TSX SR6DC1,1 * RETURN HERE WITH RESULT IN ACC. 4F11674 STA EIFNO STORE RESULT IN ADDRESS OF EIFNO. 4F11675 TSX TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO 4F11676 PZE 0 INTO TABLE TEIFNO (TABLE O). 4F11677 REM END OF PROGRAM CA000. 4F11678 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679 REM 4F11680 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 067/067 ------ REM CD000/ CALLS=C0190X,C0190,DIAG. 4F11681 REM CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. 4F11682 CD000 TSX C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683 CD001 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684 CAS COMMA SCAN 4F11685 TXI CD002,0 FOR 4F11686 TXI CD003,0 HOLLERITH 4F11687 CD002 SUB OPEN SPECIFICATION 4F11688 TNZ CD001 WHICH 4F11689 CD003 TSX CD900,1 * CAN BE= 4F11690 SUB L(10) , N H 4F11691 TPL CD001 OR = ( N H. 4F11692 CD004 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693 CAS L(9) CONTINUE SCAN. 4F11694 TXI CD005,0 N 4F11695 TXI CD004,0 IS 4F11696 TXI CD004,0 A 4F11697 CD005 CAS L(H) FIXED 4F11698 TXI CD001+1,0 POINT 4F11699 TXI CD700,0 INTEGER. 4F11700 TXI CD001+1,0 X 4F11701 CD700 TSX C0194 * GO GET NEXT NONBLANK CHARACTER, 4F11702 CAS ENDMK AND IF ENDMARK, 4F11703 TXI CD701,0 THEN SKIP 4F11704 TXI CC000,0 * TO NON-ARITHMETIC CLASSIFICATION. 4F11705 CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706 TXI CD700,0 THEN $ IS LEGAL IN FORMAT TEST. 4F11707 CD900 TSX C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, 4F11708 CAS ENDMK AND IF NOT 4F11709 TXI CD800,0 ENDMARK, THEN SKIP 4F11710 TXI CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. 4F11711 CD800 CAS SPECOP CHECK FOR $ 4F11712 TXI CD601,0 WHICH, UNLESS HOLERITH, IS AN 4F11713 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11714 CD600 CAS PM CHECK FOR RECORD MARK 4F11715 TRA 1,1 WHICH IS AN 4F11716 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11717 CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718 TRA 1,1 WHICH IS AN 4F11719 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11720 CAS CHAR2 CHECK FOR PLUS ZERO 4F11721 TRA 1,1 WHICH IS AN 4F11722 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11723 CAS MINUS CHECK FOR MINUS SIGN 4F11724 TRA 1,1 WHICH IS AN 4F11725 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11726 SUB TEN CHECK FOR TEN 4F11727 TNZ 1,1 WHICH IS AN 4F11728 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11729 REM END OF PROGRAM CD000. 4F11730 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731 REM 4F11732 REM CB000/ CALLS=C0190X,C0190,DIAG. 4F11733 REM CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC. 4F11734 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 068/068 ------ CB000 LXA L(1),1 SET XR TO COUNT PARENTHESES. 4F11735 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736 CB001 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F11737 CAS AEQUAL IF AN EQUAL SIGN, 4F11738 TXI CB005,0 THEN 4F11739 TXI CB200,0 GO TEST PAREN-COUNT. 4F11740 CB005 CAS ALPAR IF A LEFT PARENTHESIS, 4F11741 TXI CB006,0 THEN 4F11742 TXI CB001,1,1 UPDATE PAREN-COUNT BY 1. 4F11743 CB006 CAS ARPAR IF A RIGHT PARENTHESIS, 4F11744 TXI CB007,0 THEN 4F11745 TXI CB500,0 GO TEST PAREN-COUNT. 4F11746 CB007 SUB ENDMK IF NOT ENDMARK, THEN 4F11747 TNZ CB001 GO EXAMINE NEXT CHARACTER. 4F11748 TXI CC000,0 * OTHERWISE, GO TO DIC LOOK-UP. 4F11749 CB200 TIX CC000,1,1 * IF EQUAL WAS NOT WITHIN PARENS, 4F11750 CB201 TSX C0190,4 * THEN EXAMINE NEXT CHARACTER. 4F11751 CAS ALPAR IF LEFT PARENTHESIS, 4F11752 TXI CB205,0 THEN 4F11753 TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11754 CB205 CAS ACOMMA IF A COMMA, 4F11755 TXI CB206,0 THEN 4F11756 TXI CC000,0 * GO TO NON-ARITHMETIC DIC LOOK-UP. 4F11757 CB206 SUB ENDMK IF NOT ENDMARK, THEN 4F11758 TNZ CB201 GO EXAMINE NEXT CHARACTER. 4F11759 TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11760 CB500 TIX CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, 4F11761 TSX DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE. 4F11762 REM END OF PROGRAM CB000. 4F11763 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764 REM 4F11765 REM CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00. 4F11766 REM CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC. 4F11767 CC000 STZ 2G SET DICTIONARY WORD TAG, AND 4F11768 LXA L(0),3 CHARACTER COUNT AND ENTRY COUNT. 4F11769 CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771 CAS ENDMK TEST FOR CONSECUTIVE ENDMARKS. 4F11772 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11773 TSX DIAG,4 * ERROR = NOT FOUND IN DICTIONARY. 4F11774 TXI CC004,4 GO BEGIN COMARISION. 4F11775 CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776 CAS ENDMK TEST FOR END OF DIC ENTRY. 4F11777 TXI ERR77P,0 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11778 TXI CC007,0 IF END OF ENTRY, LOOK NO FURTHER. 4F11779 CC004 STO 1C OTHERWISE, SAVE CHARACTER 4F11780 STQ 1C+1 AND REMAINDER OF DICTIOANRY WORD. 4F11781 TSX C0190,4 * GO GET NEXT FORMULA CHARACTER, 4F11782 LDQ 1C+1 AND RESTORE DICTIONARY WORD. 4F11783 SUB 1C IF CHARCATERS ARE EQUAL, 4F11784 TZE CC002 THEN GO COMPARE NEXT CHARACTER. 4F11785 CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. 4F11786 SUB ENDMK CONTINUE UNTIL AN ENDMARK IS 4F11787 TNZ CC005 FOUND, THEN 4F11788 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 069/069 ------ TXI CC001,1,-1 COUNT ENTRY, AND BEGIN AGAIN. 4F11789 CC007 CLA T,1 IF THE CURRENT STATEMENT IS 4F11790 TPL T,1 OF THE NON-EXCUTABLE TYPE, 4F11791 SXD 1C+2,1 THEN 4F11792 TSX TET00,1 * GO ENTER EIFNO IN THE 4F11793 PZE 14 NONEXC TABLE. 4F11794 LXD 1C+2,1 AND THEN 4F11795 CC008 TRA T,1 * TAKE INDICATED TRANSFER. 4F11796 REM END OF PROGRAM CC000. 4F11797 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798 REM 4F11799 REM STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS= 4F11800 REM 4F11801 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802 REM 4F11803 REM C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00. 4F11804 REM C0100 PROCESSES DO STATEMENTS. 4F11805 C0100 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806 TSX C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER 4F11807 TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808 TSX C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809 STO 2G SAVE THE 1ST CHAR OF SUBSCRIPT. 4F11810 CLA 1G TAKE CONVERTED RESULT FOR BETA 4F11811 STA 1C AND STORE IN ADDR OF 1C. 4F11812 CLA 2G 1C IS NOW COMPETE EXCEPT FOR TAG. 4F11813 TSX C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. 4F11814 CLA 1G STORE SUBSCRIPT 4F11815 STO 1C+1 IN 1C+1. 4F11816 TSX C0150,2 * OBTIAN IN 1G THE PROPER N1. 4F11817 CLA 1G STORE N1 4F11818 STO 1C+2 IN 1C+2. 4F11819 CAL I OBTAIN I IN LOGICAL ACC AND 4F11820 ARS 18 STORE IN POS 18 OF 1C 4F11821 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822 TSX C0150,2 * OBTAIN IN 1G THE PROPER N2. 4F11823 TSX TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. 4F11824 TNZ C0113 IF ENDMARK, THEN 4F11825 RQL 31 CREATE ONE IN MQ FOR N3 4F11826 STQ RESIDU AND PLACE IN RESIDU. 4F11827 C0113 CLA 1G STORE N2 4F11828 STO 1C+3 IN 1C+3. 4F11829 CAL I OBTAIN I IN LOG ACC AND 4F11830 ARS 19 STORE IN POS 19 OF 1C 4F11831 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832 TSX C0150,2 * OBTAIN IN 1G THE PROPER N3. 4F11833 TSX TESTD0,4 * THE AC SHOULD CONTIAN AN ENDMARK. 4F11834 CLA 1G STORE N3 4F11835 STO 1C+4 IN 1C+4. 4F11836 CAL I OBTAIN I IN LOG ACC AND 4F11837 ARS 20 STORE IN POS 20 OF 1C 4F11838 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839 TSX TET00,1 * GO TO TET PROGRAM TO ENTER 4F11840 PZE 1 1C,1C+1,..1C+4 IN TDO TABLE 1. 4F11841 TXI CA010,0 * EXTI TO PROCESS NEXT STATEMENT. 4F11842 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 070/070 ------ REM END OF PROGRAM C0100. 4F11843 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844 REM 4F11845 REM C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160, 4F11846 REM CIT00,SS000(CSA000). 4F11847 REM C0200 PROCESSES GO TO STATEMENTS. 4F11848 C0200 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F11849 STO 1C+2 AND IN 1C+2. 4F11850 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER 4F11851 CAS L(9) AND COMPARE IT WITH 9. 4F11852 TXI C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. 4F11853 NOP IF NUMERIC, THEN 4F11854 TSX C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855 TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. 4F11856 CLA 1G STORE BETA IN 1C+1 TO CONSTRUCT 4F11857 STO 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858 TXI C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11859 C0205 CAS ALPAR TEST CHARACTER FOR ALPHABETIC. 4F11860 TXI C0210,0 IF NOT ALPHABETIC, THEN 4F11861 TXI C0212,0 THIS IS TYPE= GO TO ( ), I. 4F11862 C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864 CLA 1G SAVE THE SYMBOL N IN 1C+3 4F11865 STO 1C+3 FOR COMPILED INSTRUCTION. 4F11866 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, 4F11867 TSX TESTE0,4 * WHICH SHOULD BE A LPARAN. 4F11868 CLA L(1) PREPARE TO SET ADDRESS PART OF 1C 4F11869 TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER.4F11870 C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. 4F11871 C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. 4F11872 LXD CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873 PXD ,2 PLACE IN THE DECREMENT OF THE AC 4F11874 STO 1C+1 AND STORE IN 1C+1. 4F11875 C0215 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR. 4F11876 TSX C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA. 4F11877 STO 2G SAVE CHAR IN ACC. 4F11878 TSX TET00,1 * GO TO ENTER 1G 4F11879 PZE 3 INTO TRAD TABLE (TABLE 3). 4F11880 LXD CTRAD,2 REDUCE COUNTER 4F11881 TIX C0216,2,1 CTRAD 4F11882 C0216 SXD CTRAD,2 BY 1. 4F11883 CLA 2G RESTORE CHAR TO ACC. 4F11884 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F11885 TNZ C0215 IF RIGHT PARENTHESIS, THEN 4F11886 CLA CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF 4F11887 ARS 18 ENTRIES IN TRAD TABLE,AND STORE 4F11888 STA 1C+1 IN ADDR OF 1C+1. 4F11889 CLA 1C OBTAIN 1C IN ACC 4F11890 LBT AND TEST LOW ORDER BIT. 4F11891 TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. 4F11892 TSX C0190,4 * OBTAIN NEXT NB CHAR AND 4F11893 TSX TESTD0,4 * TEST FOR ENDMK. 4F11894 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11895 PZE 1C+2 WORD 1--DECR= INTFORMNN (LOCATION) 4F11896 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 071/071 ------ PZE L(TRA) WORD 2--TRA00P (OP AND DECR) 4F11897 PZE 1C+3 WORD 3--VARIABLE N (ADDRESS) 4F11898 PZE L(0) WORD 4--00000 (REL ADDR AND TAG). 4F11899 TRA C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11900 C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, 4F11901 TSX TESTG0,4 * WHICH SHOULD BE A COMMA. 4F11902 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR, AND 4F11903 TSX C0160,2 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905 CLA L(1) PREPARE PROPER FORM OF SUBSCRIPT 4F11906 STO E+3 COMBINATION AS 4F11907 STO DIMCTR INPUT TO SUBSCRIPT ANALYSIS= 4F11908 CLA 1G E+3 = 1ST COEFFICIENT. 4F11909 STO E+4 E+4 = 1ST SUBSCRIPT VARIABLE, 4F11910 STZ E+9 E+9 = ADDEND OF SUBSCRIPT, 4F11911 TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912 CLA E OUTPUT FROM CSA IS FOUND IN 4F11913 ARS 24 E = I--TAUTAG (GENERAL TAG) 1-11. 4F11914 STO 2G ADJUST AND SAVE FOR COMP. INSTR. 4F11915 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11916 PZE 1C+2 WORD 1--DECR-INTFORMNO(LOCATION) 4F11917 PZE L(TRA) WORD 2--TRA000(OP AND DECR) 4F11918 PZE L(0) WORD 3--000000(ADDRESS) 4F11919 PZE 2G WORD 4--ADDR = TAUTAG FOR I 4F11920 REM C0200= ENTRY POINT USED BY C0400,C1000. 4F11921 C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 4F11922 PZE 2 INTO TIFGO TABLE (TABLE 2). 4F11923 CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924 REM END OF PROGRAM C0200. 4F11925 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926 REM 4F11927 REM C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00, 4F11928 REM STATEB. 4F11929 REM C0300 PROCESSES IF STATEMENTS. 4F11930 C0300 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11931 PXD ,4 NUMBER IN THE DECREMENT OF 1C 4F11932 SSM WITH SIGN SET TO MINUS 4F11933 STO 1C FOR FUTURE TIFGO ENTRY. 4F11934 TSX C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN. 4F11935 TSX C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). 4F11936 LDQ L(X) REPLACW THE CHARACTER I 4F11937 TSX C0390,4 * WITH THE CHARACTER X. 4F11938 LDQ L(10) REPALCE THE CHARACTER F 4F11939 TSX C0390,4 * WITH THE CHARACTER 001010. 4F11940 TSX TESTE0,4 * IF NOT LPAREN -- THEN ERROR. 4F11941 LDQ AEQUAL REPLACE THE CHARACTER LPARAN 4F11942 TSX C0390,4 * WITH THE CHARACTER EQUAL. 4F11943 LXA L(1),2 SET XR2 FOR COUNTING PARENTHESES. 4F11944 TRA *+2 4F11945 C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER 4F11946 CAS ENDMK IS NOT AN ENDMARK. 4F11947 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11948 TSX DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. 4F11949 CAS ALPAR IF IT IS A LPAREN, 4F11950 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 072/072 ------ TXI C0303,0 THEN ADD 1 TO PAREN COUNT, AND 4F11951 TXI C0302,2,1 GO EXAMINE NEXT CHARACTER. 4F11952 C0303 SUB ARPAR IF IT IS A RPAREN, 4F11953 TNZ C0302 THE TEST PAREN COUNT, AND IF IT 4F11954 TIX C0302,2,1 CAN NOT BE REDUCED,MATE IS FOUND. 4F11955 LDQ ENDMK SO REPLACE THE CHARACTER RPAREN 4F11956 TSX C0390,4 * WITH THE CHARACTER ENDMK. 4F11957 TSX C0180,2 * BINARY EQUIVALENT OF BETA 1. 4F11958 TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959 CLA 1G MOVE BETA1 4F11960 STA 1C TO ADDRESS OF 1C. 4F11961 TSX C0190,4 * AND PROCEED TO FORM 4F11962 TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 2. 4F11963 TSX TESTG0,4 * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964 CLA 1G MOVE BETA2 4F11965 ALS 18 TO DECR PART 4F11966 STO 1C+1 OF 1C+1. 4F11967 TSX C0190,4 * AND PROCEED TO FORM 4F11968 TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 3. 4F11969 TSX TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970 CLA 1G MOVE BETA3 4F11971 STA 1C+1 TO ADDRESS OF 1C+1. 4F11972 TXI ARITH,0 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973 REM END OF PROGRAM C0300. 4F11974 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975 REM 4F11976 REM C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200. 4F11977 REM C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. 4F11978 C0400 CLA L(112) FOR SENSE SWITCH 4F11979 STO 1H SET 1H TO 112, AND PREPARE TO 4F11980 CLA L(PSE) SET 2H TO PSE. 4F11981 REM C0401= ENTRY POINT USED BY C0500. 4F11982 C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. 4F11983 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11984 TSX C0180,2 * EQUIVALENT OF SW OR SL NUMBER. 4F11985 TSX TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986 CLA L(3) STORE 3 4F11987 STO 1C IN ADDRESS OF 1C. 4F11988 CLA 1G ADD THE PROPER INCREMENT TO THE 4F11989 ADD 1H NUMBER OF SENSE SWITCH OR LIGHT, 4F11990 ALS 18 AND ADJUST TO THE DECREMENT. 4F11991 REM C0402= ENTRY POINT USED BY C0600. 4F11992 C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. 4F11993 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11994 PXD ,4 NUMBER IN THE DECREMENT OF 4F11995 STD 1C 1C FOR FUTURE TIFGO ENTRY, AND 4F11996 STO 1C+2 1C+2 FOR FUTURE CIT ENTRY. 4F11997 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11998 TSX C0180,2 * EQUIVALENT OF BETA 1, 4F11999 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000 CLA 1G BRING UP, 4F12001 ALS 18 ADJUST AND 4F12002 STO 1C+1 STORE BETA1 IN DECR OF 1C+1. 4F12003 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F12004 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 073/073 ------ TSX C0180,2 * EQUIVALENT OF BETA 2, 4F12005 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006 CLA 1G BRING UP AND 4F12007 STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. 4F12008 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12009 PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12010 PZE 2H WORD2--PSE,MSE,DCT,TOV,OR TQO. 4F12011 PZE L(0) WORD3--000000 (ADDRESS) 4F12012 PZE 1C+3 WORD4--DECR=SS OR SL NO., OR 0000004F12013 TXI C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014 REM END OF PROGRAM C0400. 4F12015 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016 REM 4F12017 REM C0500/ USES=C0400. 4F12018 REM C0500 PROCESSES IF (SENSE LIGHT STATMENTS. 4F12019 C0500 CLA L(96) STORE 96 IN 4F12020 STO 1H 1H AND 4F12021 CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022 TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023 REM END OF PROGRAM C0500. 4F12024 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025 REM 4F12026 REM C0600/ USES=C0400. 4F12027 REM C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 4F12028 C0600 CLA L(DCT) STORE (DCT000) 4F12029 STO 2H IN 2H 4F12030 CLA L(4) AND PICK UP 4 TO SET 1C. 4F12031 REM C0601= ENTRY POINT USED BY C0700. 4F12032 C0601 STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033 PXD ,0 CLEAR THE AC, 4F12034 TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035 REM END OF PROGRAM C0600. 4F12036 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037 REM 4F12038 REM C0700/ USES C0600. 4F12039 REM C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 4F12040 C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041 REM C0701= ENTRY POINT USED BY C0800. 4F12042 C0701 STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043 CLA L(5) PICKUP 5 TO SET 1C, AND 4F12044 TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045 REM END OF PROGRAM C0700. 4F12046 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047 REM 4F12048 REM C0800/ USES=C0700. 4F12049 REM C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 4F12050 C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051 TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052 REM END OF PROGRAM C0800. 4F12053 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054 REM 4F12055 REM C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300. 4F12056 REM C0900 PROCESSES PAUSE STATEMENTS. 4F12057 C0900 LXD C090X,2 SET XR2 FOR EXIT TO CA000. 4F12058 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 074/074 ------ REM C0901= ENTRY POINT USED BY C1300. 4F12059 C0901 STZ 1G CLEAR 1G. 4F12060 C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER 4F12061 CAS ENDMK FOR END OF STATEMENT MARK. 4F12062 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F12063 C090X TXI C0903,0,-CA010+1 IF NOT END OF STATEMENT, THEN 4F12064 ADD 1G ADD 1G TO DIGIT, 4F12065 ALS 3 MULTIPLY BY 8. 4F12066 STO 1G AND STORE BACK IN 1G. 4F12067 TXI C0902,0 CONTINUE UNTIL END OF STATEMENT. 4F12068 C0903 CLA 1G THEN PLACE OCTAL ALPHA 4F12069 ALS 15 IN THE DECREMENT 4F12070 STO 1C OF 1C FOR FUTURE CIT ENTRY. 4F12071 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F12072 PXD ,4 NUMBER IN THE DECREMENT 4F12073 STO 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. 4F12074 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12075 PZE 1C+1 WORD1--DECR = INTFORMNO (LOCATION) 4F12076 PZE L(HPR) WORD2--HPR000 (OP AND DECR) 4F12077 PZE L(0) WORD3--000000 (ADDRESS) 4F12078 PZE 1C WORD4--DECR = ALPHA, REST ZEROS. 4F12079 TRA 1,2 * EXIT TO CA000, OR TO C1300. 4F12080 REM END OF PROGRAM C0900. 4F12081 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082 REM 4F12083 REM C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084 REM CIT00. 4F12085 REM C1000 PROCESSES ASSIGN STATEMENTS. 4F12086 C1000 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F12087 STO 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. 4F12088 CLA L(6) STORE 6 IN 4F12089 STA 1C ADDRESS OF 1C. 4F12090 TSX C0180X,2 * GO FORM BINARY EQUIV OF ALPHA. 4F12091 SUB L(T) IF NEXT CHARACTER IS NOT T, THEN 4F12093 TZE *+2 THIS IS AN 4F12094 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12095 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12096 SUB L(0) AND IF IT IS NOT 0, THEN 4F12097 TNZ *-3 ERROR, GO TO DIAGNOSTIC. 4F12098 CLA 1G PUT BIN EQUIV OF ALPHA 4F12099 STO 1C+1 IN ADDRESS OF 1C+1. 4F12100 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12101 TSX C0160,2 * THE SYMBOL N. 4F12102 TSX TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. 4F12103 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12104 PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12105 PZE L(CLA) WORD2--CLA000 (OP AND DECR) 4F12106 PZE L(0) WORD3--000000 (ADDRESS) 4F12107 PZE L(0) WORD4--000000 (RELADDR AND TAG). 4F12108 TSX CIT00,4 * STORE SECOND COMPILED INSTRUCTION= 4F12109 PZE L(0) WORD1--000000 (ALL ZEROS) 4F12110 PZE L(STO) WORD2--STO000 (OP AND DECR) 4F12111 PZE 1G WORD3--SYMBOL N (ADDRESS) 4F12112 PZE L(0) WORD4--000000 (REL ADDR AND TAG). 4F12113 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 075/075 ------ TRA C0202 * CONTINUE BY USING PROGRAM C02. 4F12114 REM END OF PROGRAM C1000. 4F12115 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116 REM 4F12117 REM C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00. 4F12118 REM C1100 PROCESSES SENSE LIGHT STATMENTS. 4F12119 C1100 TSX C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120 TSX TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122 CLA 1G STORE SENSE LIGHT NUMBER 4F12123 ADD L(96) PLUS 96 4F12124 ALS 18 IN DECR 4F12125 STO 1G OF 1G. 4F12126 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F12128 PZE 1C WORD1--DECR = INTFORMNO (LOCATION) 4F12129 PZE L(PSE) WORD2--PSE000 (OP AND DECREMENT) 4F12130 PZE L(0) WORD3--000000 (ADDRESS PART) 4F12131 PZE 1G WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12133 REM END OF PROGRAM C1100. 4F12134 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135 REM 4F12136 REM C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS. 4F12137 REM C1200 PROCESSES DIMENSION STATEMENTS. 4F12138 C1200 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12139 TSX C0160,2 * THE VARIABLE SYMBOL. 4F12140 TSX TESTE0,4 * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141 CLA 1G PUT VARIABLE SYMBOL 4F12142 STO 1C IN 1C. 4F12143 STO E+2 ALSO IN E+2. THEN 4F12144 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12145 TRA C1280 THEN IF NOT 4F12146 TRA C1299 FOUND, 4F12147 C1280 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12148 TRA C1281 THEN IF NOT 4F12149 TRA C1299 FOUND, 4F12150 C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12151 TRA C1282 DO NOT CONTUINUE IF 4F12152 C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. 4F12153 C1282 TSX C0180X,2 * GO FORM BINARY EQUIV OF D1. 4F12154 SUB CLOS IF NOT 1 DIMENSION, 4F12155 TZE C1210 THEN 4F12156 CLA 1G PUT D1 4F12157 ALS 18 IN DECR 4F12158 STO 1C+1 OF 1C+1. 4F12159 TSX C0180X,2 * GO FORM BINARY EQUIV OF D2. 4F12160 SUB CLOS IF NOT 2 DIMENSION, 4F12163 TZE C1220 THEN 4F12164 CLA 1G PUT D2 4F12165 STA 1C+1 IN ADDRESS OF 1C+1. 4F12166 TSX C0180X,2 * GO FORM BINARY EQUIV OF D3. 4F12168 SUB CLOS IF MORE THAN 3 DIMENSIONS, 4F12169 TZE *+2 THIS IS AN 4F12170 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12171 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 076/076 ------ CLA 1G IF 3 DIMENSION, PUT D3 4F12172 STO 1C+2 IN 1C+2, AND 4F12173 TSX DIM3IX,4 * GO MAKE DIM3 ENTRY. 4F12174 TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12175 C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176 STO 1C+1 IN 1C+1, AND 4F12177 TSX DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN 4F12178 TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12179 C1220 CLA 1G IF 2 DIMENSIONS, PUT D2 IN 4F12180 STA 1C+1 ADDRESS PART OF 1C+1. AND 4F12181 TSX DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN 4F12182 C1201 TSX C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. 4F12183 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12184 TNZ C1200 IF CHARACTER IS ENDMAKR, THEN 4F12185 TXI CA010,0 * EXIT TO PROCESS NEXT STATMENT. 4F12186 REM END OF PROGRAM C1200. 4F12187 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188 REM 4F12189 REM C1300/ CALLS=C0901,TET00,CIT00. 4F12190 REM C1300 PROCESSES STOP STATEMENTS. 4F12191 C1300 TSX TET00,1 * GO MAKE EIFNO ENTRY 4F12192 PZE 15 IN TSTOP TABLE. 4F12193 TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. 4F12194 TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F12195 PZE L(0) WORD1--ALL ZEROS 4F12196 PZE L(TRA) WORD2--TRA000 (OP+DECR) 4F12197 PZE 1C+1 WORD3--DECR = INTFORMNO (SYMBOL) 4F12198 PZE L(0) WORD4--ZEROS (REL ADDR AND TAG) 4F12199 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12200 REM END OF PROGRAM C1300. 4F12201 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202 REM 4F12203 REM C1400/ CALLS=C0190,C0180,TEST..,TET00. 4F12204 REM C1400 PROCESS FREQUENCY STATEMENTS. 4F12205 C1400 TSX C0180X,2 * GO FORM BINARY EQUIV OF EFN. 4F12206 TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. 4F12208 CLS 1G CHANGE SIGN OF SYMBOL 4F12209 STO 1G TO MINUS. 4F12210 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 4F12211 PZE 7 4F12212 C1401 TSX C0180X,2 * GO FORM BINARY EQUIV OF M(1). 4F12213 STO 1C SAVE CHAR IN ACC. 4F12215 TSX TET00,1 * GO TO PROGRAM TET TO ENTER M(1) 4F12216 PZE 7 INTO TABLE FRET (TABLE7), AND 4F12217 CLA 1C RESTORE CHAR IN ACC, AND 4F12218 TSX TESTB0,4 * TEST FOR , OR ). 4F12219 TNZ C1401 IF RIGHT PARENTHESIS, THEN 4F12220 TSX C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND 4F12221 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12222 TNZ C1400 IF ENDMAKE, THIS STATEMENT IS DONE.4F12223 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12224 REM END OF PROGRAM C1400. 4F12225 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226 REM 4F12227 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 077/077 ------ REM C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00. 4F12228 REM C1500 PROCESSES EQUIVALENCE STATEMENTS. 4F12229 C1500 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12230 TSX TESTE0,4 * CHARACTER SHOULD BE A LPARAN. 4F12231 C1501 CLA L(1) INITIALIZE 1C 4F12232 STO 1C+1 TO 1. 4F12233 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND 4F12234 TSX C0160,2 * OBTAIN IN 1G THE SYMBOL V. 4F12235 LDQ 1G MOVE V 4F12236 STQ 1C INTO 1C. 4F12237 CAS ALPAR EXAMINE CHARACTER LEFT IN THE AC, 4F12238 TXI C1503,0 AND IF 4F12239 TXI C1502,0 CHARACTER IS A LEFT PARENTHESIS, 4F12240 TIX C1503,0 THEN 4F12241 C1502 TSX C0180X,2 * GO FORM BINARY EQUIV OF N. 4F12242 TSX TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244 CLA 1G PUT BIN EQUIV OF N 4F12245 STO 1C+1 IN 1C+1. 4F12246 TSX C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND 4F12247 C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F12248 TZE C1504 IF COMMA, THEN 4F12249 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12250 PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12251 TXI C1501,0 RETURN TO CONTINUE PROCESSING X. 4F12252 C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE 4F12253 STO 1C+1 THIS IS LAST ITEM. 4F12254 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12255 PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12256 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND 4F12257 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12258 TNZ C1500 IF ENDMARK, THEN 4F12259 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12260 REM END OF PROGRAM C1500. 4F12261 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262 REM 4F12263 REM C1600/ CALLS=C0190,TEST..,GIF,BSS. 4F12264 REM C1600 PROCESSES CONTINUE STATEMENTS. 4F12265 C1600 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12266 TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. 4F12267 TSX GIF,4 * GET INTERNAL FORMULA NUMBER, AND 4F12268 TSX BSS,2 * GO COMPILE= IFN BSS 0. 4F12269 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12270 REM END OF PROGRAM C1500. 4F12271 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272 REM 4F12273 REM C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. 4F12274 REM C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. 4F12275 C3500 CAL TXHOP 4F12276 STP C3003 4F12277 C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND 4F12278 TXL *+2,4,1 IF NOT THE 1ST STATEMENT, THEN 4F12279 TSX DIAG,4 * ERROR - GO TO DIAGNOSTIC. 4F12280 CLA ARGCNT SET ARGCNT TO INDICATE TO LATER 4F12281 SSP RETURN THAT THERE WAS A PRECEEDING 4F12282 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 078/078 ------ STO ARGCNT SUBROUTINE OR FUNCTION STATEMENT. 4F12283 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12284 TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285 TSX C0160,2 * ASSEMBLE NAME IN 1G. 4F12286 TSX TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 C3003 TXL *+3,0 4F12288 CLA 1G 4F12289 STO FSNAME 4F12290 TSX SUBX00,4 * FILL OUT NAME WITH BLANKS. 4F12291 TSX TET00,1 * GO ENTER NAME 4F12292 PZE 11 IN SUBDEF TABLE. 4F12293 LXD EIFNO,4 PLACE 4F12294 PXD ,4 INTERNAL FORMULA NUMBER 4F12295 STO G IN G. 4F12296 TXI C3003,0 GO TEST FOR END OF STATEMENT. 4F12297 C3001 ADD ENDMK IF NOT ENDMARK, RESTOERE CHARACTER 4F12298 TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC 4F12299 STO FIRSTC 1ST CHARACTER OF ARGUMENT. 4F12300 TSX C0160,2 * ASSEMBLE ARGUMENT IN 1G. 4F12301 TSX TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPARAN. 4F12302 CLA 1G MOVE ARGUMENT 4F12303 STO G+1 INTO G+1. 4F12304 TSX TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. 4F12305 TXI C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY.4F12306 TSX TET00,1 * IF FIXED POINT, GO MAKE ENTRY 4F12307 PZE 6 IN FORVAL TABLE. 4F12308 C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN 4F12309 PZE 11 SUBDEF TABLE. 4F12310 CLA ARGCNT UPDATE 4F12311 ADD D1 ARGUMENT COUNT 4F12312 STO ARGCNT BY 1. AND 4F12313 C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F12314 SUB ENDMK IF NOT ENDMARK, THEN 4F12315 TNZ C3001 GO PROCESS NEXT ARGUMENT. 4F12316 TXI CA010,0 * OTHERWISE, EXIT TO CA000. 4F12317 REM END OF PROGRAM C3000. 4F12318 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319 REM 4F12320 REM C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00. 4F12321 REM C3100 PROCESSES COMMON STATEMENTS. 4F12322 C3100 TSX C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC. 4F12324 TSX C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST 4F12325 TSX TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326 PAX ,4 SAVE RESULT OF TEST IN XR4, AND 4F12327 TSX TET00,1 * GO ENTER THIS SYMBOL 4F12328 PZE 12 IN COMMON TABLE. 4F12329 CLA SBDFCN ANY ENTRIES IN SUBDEF 4F123291 TZE C3101 INDICATE THIS IS NOT A 4F123292 CLA 2E18 MAIN PROGRAM. SINCE THIS 4F123293 STO G IS A COMMON 4F123294 CAL 1G STATEMENT WHICH 4F123296 SLW G+1 APPEARS IN A SUBPROGRAM 4F123297 ARS 30 ENTER ANY 4F123298 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 079/079 ------ TSX TESTFX+1,1 * FIXED POINT 4F123299 TRA C3101 VARIABLES 4F12330 TSX TET00,1 * IN 4F123301 PZE 6 FORVAL TABLE. 4F123302 C3101 TXH C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. 4F123303 TXI CA010,0 * IF ENDMK, EXIT TO CA000. 4F12331 REM END OF PROGRAM C3100. 4F12332 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333 REM 4F12334 REM C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF). 4F12335 REM C3200 PROCESSES RETURN STATEMENTS. 4F12336 C3200 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12337 TSX TESTD0,4 * WHICH SHOULD BE AN ENDMARK. 4F12338 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339 TSX JIF,4 * SET SL TO ALPHA+1. 4F12340 CLA ARGCNT TEST ARGCNT FOR PRECEEDING 4F12341 TPL *+2 SUBROUTINE - IF NONE, THEN 4F12342 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12343 CLA FSNAME 4F12344 TZE *+7 4F12345 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12346 PZE 1C WORD1--0(IFN)000 4F12347 PZE L(CLA) WORD2--CLA000 4F12348 PZE FSNAME WORD3--NAME OF FUNCTION 4F12349 PZE L(0) WORD4--000000 4F12350 STZ 1C CLEAR 1C. 4F12351 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12352 PZE 1C WORD1--0(IFN)000 4F12353 PZE L(LXD) WORD2--LXD000 4F12354 PZE DOLSGN WORD3--$ 4F12355 PZE L(1) WORD4--000001 4F12356 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12357 PZE L(0) WORD1--000000 4F12358 PZE L(LXD) WORD2--LXD000 4F12359 PZE DOLSGN WORD3--$ 4F12360 PZE ABTAG2 WORD4--001002 4F12361 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12362 PZE L(0) WORD1--000000 4F12363 PZE L(QXD) WORD2--QXD000 4F12364 PZE DOLSGN WORD3--$ 4F12365 PZE ABTAG3 WORD4--002000 4F12366 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12367 PZE SL WORD1--0(IFN+1)000 4F12368 PZE L(OPR) WORD2--OPRO00 4F12369 PZE L(0) WORD3--000000 4F12370 PZE ARGCNT WORD4--0(N+1)004 4F12371 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12372 PZE L(0) WORD1--000000 4F12373 PZE L(TRA) WORD2--TRA000 4F12374 PZE SL WORD3--0(IFN+1)000 4F12375 PZE L(0) WORD4--000000 4F12376 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12377 REM END OF PROGRAM C3200. 4F12378 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 080/080 ------ REM 4F12380 REM C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00. 4F12381 REM C3300 PROCESSES CALL STATEMENTS. 4F12382 C3300 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12383 TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384 TSX C0160,2 * COLLECT THE REST OF THE NAME, WHICH4F12385 TSX TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 TZE C3301 IF LPAREN, THEN CHANGE CALL TO A 4F12387 TSX C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). 4F12388 TSX C0190,4 * PICKUP THE CHARACTER C, 4F12389 LDQ L(Z) AND 4F12390 TSX C0390,4 * REPLACE C WITH Z. 4F12391 LDQ L(10) AND 4F12392 TSX C0390,4 * REPLACE A WITH TEN. 4F12393 LDQ EQUAL AND 4F12394 TSX C0390,4 * REPLACE FIRST L WITH =. 4F12395 LDQ BLANK AND 4F12396 TSX C0390,4 * REPLACE SECOND L WITH BLANK. 4F12397 CLA EIFNO PUT 1ST IFN OF THIS CAL IN CALLNM 4F12398 ARS 18 FOR LATER TABLE ENTRY FO 4F12399 STA CALLNM FIRST / LAST NUMBERS OF CALLS. 4F12400 TXI ARITH,0 * THEN EXIT TO ARITH TO PROCESS. 4F12401 C3301 TSX SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN 4F12402 CLA 1G AFTER COMPLETING NAME WITH BLANKS, 4F12403 STO G MOVE IT INTO G, AND 4F12404 TSX TET00,1 * GO ENTER NAME 4F12405 PZE 9 INTO CLOSUB TABLE. 4F12406 TSX GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12408 PZE 1C WORD1--0(IFN)000 4F12409 PZE L(SXD) WORD2--SXD000 4F12410 PZE X( WORD3--700000 4F12411 PZE L(4) WORD4--000004 4F12412 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12413 PZE L(0) WORD1--000000 4F12414 PZE L(TSX) WORD2--TSX000 4F12415 PZE 1G WORD3--(NAME) 4F12416 PZE L(4) WORD4--000004 4F12417 TSX FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418 PZE L(0) WORD1--000000 4F12419 PZE L(LXD) WORD2--LXD000 4F12420 PZE X( WORD3--700000 4F12421 PZE L(4) WORD4--000004 4F12422 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12423 REM END OF PROGRAM C3300. 4F12424 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425 REM 4F12426 REM C3400/ CALLS=C0190,DIAG,TEST... 4F12427 REM C3400 PROCESSES END STATEMENTS. 4F12428 C3400 LXA L(5),2 PREPARE TO SET 5 SS SIMULATORS. 4F12429 C3405 TSX C0190,4 * PICKUP CONSTANT, 4F12430 CAS L(2) WHICH SHOULD BE 0,1, OR 2. 4F12431 TSX DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC. 4F12432 TXI C3410,0 SIMULATOR IS PRESET TO 2. 4F12433 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 081/081 ------ STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434 C3410 TSX C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435 TIX C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. 4F12436 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12437 TSX TESTD0,4 * WHICH SHOULD BE AN ENDMK. 4F12438 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12439 REM END OF PROGRAM C3400. 4F12440 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441 REM 4F12442 REM STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS= 4F12443 REM 4F12444 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445 REM 4F12446 REM RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF. 4F12447 REM RDC PROCESSES READ STATEMENTS. 4F12448 RDC CLA A81 SET THE ADDRESS FIELD OF 4F12449 STA ENT ENT (NTR000) TO 81. 4F12450 TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12451 CLA CSH PICKUP (CSH) TO 4F12452 REM TSC= ENTRY POINT USED BY RIT. 4F12453 TSC STO TSA SET TSA. 4F12454 CAL RTN MOVE (RTN) 4F12455 SLW END INTO END. 4F12456 CLA DBC PICKUP (DBC) TO 4F12457 REM TTC= ENTRY POINT USED BY RDP. 4F12458 TTC STO TTA SET TTA. 4F12459 TSX BEG,4 * CONVERT CONSTANT FORMULA NUMBER. 4F12460 TSX DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461 TNZ 4,4 GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462 TSX DIAG,4 * NO FORMAT NUMBER GIVEN. 4F12463 STA ST MOVE BINARY FORMAT NUMBER INTO SET.4F12464 CAL NTR MOVE NTR000 4F12465 SLW OP INTO OP. 4F12466 CAL TXLOP SET OP-SWITCHES. 4F12467 STP ETMSW ETMSW AND LTMSW, 4F12468 STP LTMSW TO NO TRANSFER CASE. 4F12469 TSX ETMSW,4 * GO COMPILE ETM. 4F12470 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12471 PZE L(0) WORD1--000000 4F12472 PZE CAL WORD2--CAL000 4F12473 PZE TTA WORD3--(DBC) OR (BDC) 4F12474 PZE L(0) WORD4--000000 4F12475 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12476 PZE L(0) WORD1--000000 4F12477 PZE SLW WORD2--SLW000 4F12478 PZE L(0) WORD3--000000 4F12479 PZE D1 WORD4--001000 4F12480 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12481 PZE L(0) WORD1--000000 4F12482 PZE CAL WORD2--CAL000 4F12483 PZE TSA WORD3--(CSH) OR (TSH) 4F12484 PZE L(0) WORD4--000000 4F12485 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12486 PZE TL WORD1--0(IFN)0(248) 4F12487 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 082/082 ------ PZE ENT WORD2--NTR0(81, OR UNIT, OR 00) 4F12488 PZE SET WORD3--800(FORMAT NUMBER) 4F12489 PZE L(0) WORD4--000000 4F12490 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12491 REM BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. 4F12492 BXT TXI RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493 REM END OF PROGRAM RDC. 4F12494 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495 REM 4F12496 REM RIT/ CALLS=INPUT,BEG,VRD. USES=RDC. 4F12497 REM RIT PROCESSES READ INPUT TAPE STATEMENTS. 4F12498 RIT TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12499 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500 TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12501 STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12502 CLA TSH PICKUP (TSH) TO SET TSA, AND 4F12503 TXI TSC,0 * CONTINUE BY USING PROGRAM RDC. 4F12504 REM END OF PROGRAM RIT. 4F12505 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506 REM 4F12507 REM RDP/ CALLS=OUTPUT. USES=RDC. 4F12508 REM RDP PROCESSES PRINT STATEMENTS. 4F12509 RDP PXD ,0 RESET ENT 4F12510 STA ENT TO NTR000. 4F12511 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12512 CLA SPH PICKUP (SPH), AND 4F12513 REM TSD = ENTRY POINT USED BY WOT, PDC. 4F12514 TSD STO TSA SET TSA. 4F12515 CAL FIL MOVE (FIL) 4F12516 SLW END INTO END. 4F12517 CLA BDC PICKUP (BDC) TO SET TTA, AND 4F12518 TXI TTC,0 * CONTINUE BY USING PROGRAM RDC. 4F12519 REM END OF PROGRAM RDP, 4F12520 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521 REM 4F12522 REM WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP. 4F12523 REM PROCESSES WRITE OUTPUT TAPE STATEMENTS. 4F12524 WOT TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12525 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12527 STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12528 CLA STH PICKUP (STH) TO SET TSA, AND 4F12529 TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12530 REM END OF PROGRAM WOT. 4F12531 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532 REM 4F12533 REM PDC/ CALLS=OUTPUT. USES=RDP. 4F12534 REM PROCESSES PUNCH STATEMENTS. 4F12535 PDC PXD ,0 RESET ENT 4F12536 STA ENT TO NTR000. 4F12537 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12538 CLA SCH PICKUP (SCH) TO SET TSA. AND 4F12539 TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12540 REM END OF PROGRAM PDC. 4F12541 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 083/083 ------ REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542 REM 4F12543 REM WBT/ CALLS=OUTPUT,BRW,CIT, 4F12544 REM WBT PROCESSES WRITE TAPE STATEMENTS, 4F12545 WBT CAL WTB MOVE WTB000 4F12546 SLW OP INTO OP. 4F12547 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12548 CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12549 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12550 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12551 PZE L(0) WORD1-000000 4F12552 PZE CPY WORD2-CPY000 4F12553 PZE ZER WORD3-600000 4F12554 PZE D2 WORD4-002000 4F12555 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556 REM END OF PROGRAM WBT, 4F12557 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558 REM 4F12559 REM RBT/ CALLS=INPUT,BRW,CIT, 4F12560 REM RBT PROCESSES READ TAPE STATEMENTS. 4F12561 RBT CAL RTB MOVE RTB000 4F12562 SLW OP INT OP. 4F12563 TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12564 CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12565 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12566 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12567 PZE L(0) WORD1-000000 4F12568 PZE CPY WORD2-CPY000 4F12569 PZE DMP WORD3-100000 4F12570 PZE L(0) WORD4-000000 4F12571 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12572 PZE L(0) WORD1-000000 4F12573 PZE XIT WORD2-XIT000 4F12574 PZE 15P WORD3-*00000 4F12575 PZE D3CN WORD4-003000 4F12576 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12577 PZE L(0) WORD1-000000 4F12578 PZE HPR WORD2-HPR000 4F12579 PZE L(0) WORD3-000000 4F12580 PZE L(0) WORD4-000000 4F12581 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12582 PZE L(0) WORD1-000000 4F12583 PZE XIT WORD2-XIT000 4F12584 PZE TL WORD3-0(IFN)0(248) 4F12585 PZE L(0) WORD4-000000 4F12586 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS 0N4F12587 REM END OF PROGRAM RBT. 4F12588 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589 REM 4F12590 REM WRD/ CALLS=OUTPUT,BRW,CIT, 4F12591 REM WRD PROCESSES WRITE DRUM STATEMENTS. 4F12592 WRD TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12593 CAL WDR PICKUP WDR000, AND 4F12594 REM XDR= ENTRY POINT USED BY RDD. 4F12595 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 084/084 ------ XDR SLW OP SET OP. 4F12596 CAL BDA PICKUP BINARY DRUM ADDRESS, AND 4F12597 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12598 CAL PXD MOVE PXD000 4F12599 SLW OP INTO OP. 4F12600 PXD ,0 CLEAR THE AC AND 4F12601 TSX BRW,4 * COMPILE INSTRS TO SET DRUM LOC. 4F12602 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12603 PZE L(0) WORD1--000000 4F12604 PZE LDA WORD2--LDA000 4F12605 PZE TL WORD3--0(IFN)0(248) 4F12606 PZE L(0) WORD4--000000 4F12607 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608 REM END OF PROGRAM WRD. 4F12609 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610 REM 4F12611 REM RDD/ CALLS=INPUT. USES=WRD, 4F12612 REM RDD PROCESSES READ DRUM STATEMENTS. 4F12613 RDD TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12614 CAL RDR PICKUP RDR000 TO SET OP, AND 4F12615 TXI XDR,0 * CONTINUE BY USING PROGRAM WRD. 4F12616 REM END OF PROGRAM RDD. 4F12617 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618 REM 4F12619 REM EFT/ CALLS=GIF,BEG,VRAX,CIT, 4F12620 REM EFT PROCESSES WRITE END OF FILE STATEMENTS. 4F12621 EFT CAL WEF PICKUP WEF000, AND 4F12622 REM TPO= ENTRY POINT USED BY RWN, BSP, 4F12623 TPO SLW OP SET OP. 4F12624 CAL BTA MOVE BINARY TAPE ADDRESS 4F12625 SLW CON INTO CON. 4F12626 TSX GIF,4 * GET IFN INTO SL AND TL, 4F12627 CLA L(SL) RESET TPOA ADDRESS 4F12628 STA TPOA TO SL. 4F12629 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630 TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS. 4F12631 ALS 18 IF CONSTANT, ADJUST AND 4F12632 STO RA PLACE IN THE DECREMENT OF RA. 4F12633 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12634 TPOA PZE SL WORD1--0(IFN)000 OR 0(IFN)0(248) 4F12635 PZE OP WORD2--(WEF,REW,OR BSP)000 4F12636 PZE L(0) WORD3--000000 4F12637 PZE RA WORD4--0(CON)000 OR 000000 4F12638 TXI FINI,0 * GO RESET BXT, AND TEST FOR EFN. 4F12639 REM END OF PROGRAM EFT. 4F12640 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641 REM 4F12642 REM RWN/ USES=EFT, 4F12643 REM RWN PROCESSES REWIND TAPE STATEMENTS. 4F12644 RWN CAL REW PICKUP REW000 TO SET OP, AND 4F12645 TXI TPO,0 * CONTINUE BY USING PROGRAM EFT. 4F12646 REM END OF PROGRAM RWN. 4F12647 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648 REM 4F12649 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 085/085 ------ REM BSP/ USES=EFT, 4F12650 REM BSP PROCESSES BACKSPACE TAPE STATEMENTS. 4F12651 BSP CAL BST PICKUP BST000 TO SET OP, AND 4F12652 TXI TPO,0 * CONTINUE BY USING PROGRAM EFT, 4F12653 REM END OF PROGRAM BSP. 4F12654 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655 REM FOR/ CALLS=TET00, 4F12657 REM FOR PROCESSES FORMAT STATEMENTS. 4F12658 FOR CAL EIFNO MOVE EXTERNAL FORMULA NUMBER 4F12659 STA SET INTO THE ADDRESS OF SET, 4F12660 CAL SET AND MOVE SET (8000(EFN)) 4F12661 SLW G INTO G. 4F12662 LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F12663 LXD FWA,2 SET XR2 = -(CURRENT F-WORD ADDR), 4F12664 TXL NFFW,1,1 UNLESS POSITIONED AT THE 4F12665 TXI *+1,1,-1 BEGINNING OF A FORMAT WORD, 4F12666 LDQ RESIDU THEN PICKUP AND 4F12667 CAL BLANKS PRECEED WITH BLANKS ANY 4F12668 NFC LGL 6 CHARACTERS 4F12669 TIX NFC,1,1 REMAINING IN THE MO, AND 4F12670 NFW SLW G+1 MOVE FORMAT WORDS INTO G+1. 4F12671 TSX TET00,1 * GO ENTER THEN IN 4F12672 PZE 10 THE FORMAT TABLE. 4F12673 CAL G+1 WHEN THE 4F12674 ANA ENDMK END OF STATEMENT MARK 4F12675 SUB ENDMK HAS BEEN ENTERED. 4F12676 TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F12677 STZ G PRECEED ALL BUT 1ST ENTRY WITH 0. 4F12678 NFFW CAL 0,2 PICKUP NEXT FORMAT WORD, 4F12679 TXI NFW,2,-1 UPDATE SCAN INDEX, AND CONTINUE. 4F12680 REM END OF PROGRAM FOR. 4F12681 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682 REM 4F12683 REM RSC/ CALLS=C0190,DIAG, 4F12684 REM RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS 4F12685 REM FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 4F12686 REM COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF 4F12687 REM CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. 4F12688 REM RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. 4F12689 RSC CAL FLINE RESET TEMPORARY 4F12690 STA TLINE TABLE LINE COUNTER. 4F12691 STZ DOLEV CLEAR DO LEVEL COUNTER. 4F12692 STZ GTAG CLEAR GENERALIZED TAG. 4F12693 REM LSC = ENTRY POINT FROM SPC. 4F12694 LSC CAL LISTR SET CONTROL TRANSFER 4F12695 REM CXS = ENTRY POINT FROM EOS, BEG. 4F12696 CXS STA CEXIT FOR LIST SCAN. 4F12697 REM NXS = ENTRY POINT FROM LPR, SPC, CMA. 4F12698 NXS LXA L(6),2 RESET SYMBOL CHARACTER COUNT 4F12699 SXD CSJ,2 AND SHIFT COUNT. 4F12700 STZ SYM CLEAR SYMBOL WORKING STORAGE. 4F12701 REM NXC = ENTRY POINT FROM CMA. 4F12702 NXC TSX C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703 CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 086/086 ------ CCOMP CAS CTEST,4 COMPARE CHARACTER WITH CONSTANTS. 4F12705 TXL BUILD,0 IF EQUALITY IS FOUND ON SOME 4F12706 CEXIT TRA **,4 * CONTROL CHAR, EXIT TO TRA LIST. 4F12707 TIX CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. 4F12708 BUILD LXD CSJ,4 BUILD A 4F12709 STO CHR,4 SYMBOL 4F12710 TNX LCT,4,1 COMPOSED OF 4F12711 ALS 36,2 SIX OR LESS CHARACTERS. 4F12712 CSZ SXD CSJ,4 SAVE SYMBOL CHARACTER COUNT, 4F12713 ORS SYM ALSO, SAVE EACH 4F12714 TXI NXC,2,6 CHARACTER SEPARATELY. 4F12715 LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716 TSX DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL, 4F12717 LCS TXI CSZ,4,-1 ADJUST COUNT, AND CONTINUE SCAN. 4F12718 REM END OF PROGRAM RSC. 4F12719 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720 REM 4F12721 REM LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 4F12722 TXI EMK,0 * ENDMARK 4F12723 TXI LPR,0 * ( 4F12724 TXI CMA,0 * , 4F12725 TXI RPR,0 * ) 4F12726 TXI EQS,0 * * 4F12727 TXI ILC,0 - (ILLEGAL CHARACTER IN I/O LIST). 4F12728 ILC TSX DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729 TXI ILC,0 . (ILLEGAL CHARACTER IN I/O LIST). 4F12730 TXI ILC,0 + (ILLEGAL CHARACTER IN I/O LIST). 4F12731 TXI ILC,0 * (ILLEGAL CHARACTER IN I/O LIST). 4F12732 LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733 REM ******* ************************* 4F12734 REM 4F12735 REM LPR/ CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736 REM BSS. USES=CMA,RSC, 4F12737 REM LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 4F12738 LPR CAL SYM TEST FOR SUBSCRIPT OR DO NEST. 4F12739 TZE LPRD IF SUBSCRIPT, THEN 4F12740 TSX TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS 4F12741 TRA 3,4 THAN 6 CHARACTERS, ADD A BLANK, 4F12742 TXI ERRC,0 * ON CONSTANT RETURN, GO TO DIAG, 4F12743 CAL SYM MOVE SYMBOL 4F12744 SLW E+2 INTO E+2, AND 4F12745 SLW SA COMPILE SYMBOLIC ADDRESS, 4F12746 TSX SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. 4F12747 TSX RA000,4 * THEN GO COMPUTE RELATIVE ADDRESS. 4F12748 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12749 CAS CLOS 4F12750 TRA *+5 4F12751 TRA *+2 4F12752 TRA *+3 4F12753 STZ DOLEV 4F12754 TSX C0190,4 4F12755 TSX TESTA0,4 * FOR EITHER COMMA OR ENDMARK. 4F12756 TXI CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. 4F12757 LPRD CAL DOLEV IF THE BEGINNING OF A DO NEST, 4F12758 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 087/087 ------ TZE LPR3 AND DOLEV IS NOT ZERO, THEN 4F12759 LXA DOLEV,4 TEST FOR NULL FORMULA. 4F12760 TXL LPRE,4,0 IF NULL, GO ESTABLISH POSITION. 4F12761 TSX LTMSW,4 * OTHERWISE, COMPILE LTM, AND 4F12762 TXI LPR4,0 AND GO JUMP IFN. 4F12763 LPRE CAL SL IF C(SL) DO NOT = 0, 4F12764 TZE *+2 THEN 4F12765 TSX BSS,2 * GO COMPILE= IFN BSS 0, 4F12766 LPR4 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12767 LPR3 LXD DOLEV,4 INCREASE THE C(DOLEV D) 4F12768 TXI LPR1,4,1 BY 1, AND 4F12769 LPR1 PXD ,4 SET THE C(DOLEV A) 4F12770 SLW DOLEV TO ZERO, 4F12771 CAL TLINE NOTE AT 4F12772 STA LPR2 THIS LEVEL 4F12773 STO DOLEV,4 THE LOCATION IN TLDO 4F12774 ADD L(5) OF THIS DO FORMULA 4F12775 STA TLINE AND INCREASE LINE IN TLINE. 4F12776 CLS TL MOVE -(0(IFN)0(248)) INTO THE 4F12777 LPR2 STO ** LOCATION WORD OF CURRENT TEMP DO. 4F12778 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12779 LXD DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, 4F12780 TXL NXS,4,3 * RETURN TO LIST SCAN. 4F12781 TSX DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC 4F12782 REM END OF PROGRAM LPR. 4F12783 REM ******* *********************** 4F12784 REM 4F12785 REM EQS/ CALLS=DIAG, USES=RSC 4F12786 REM EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN, 4F12787 EQS LXD DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, 4F12788 TXH EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO 4F12789 TSX DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. 4F12790 EQS2 CAL DOLEV,4 INITIALIZE SPECIFICATION 4F12791 STA SPC2 OF GENERATED DO FORMULA 4F12792 STA SPC5 AT CURRENT LEVEL. 4F12793 ADD L(1) PREPARE TO ENTER FORMULA NUMBERS 4F12794 STA EQS1 IN LOCATION WORD*SUBSCRIPT IN 4F12795 ADD L(4) SYMBOL WORD, AND SUBSCRIPT SPECS 4F12796 STA SPC3 IN TEMPDO ENTRY. 4F12797 LXA L(3),4 PREPARE TO COUNT THE 4F12798 SXD NSJ,4 NUMBER OF SPECIFICATIONS. 4F12799 CAL SYM OBTAIN SUBSCRIPT 4F12800 TXH EQS1,2,36 FOR THIS DO, AND 4F12801 CAL BLANK STORE IN PROPER 4F12802 ALS 36,2 LINE OF TEMPORARY 4F12803 ORA SYM LIST DO TABLE. 4F12804 EQS1 SLW ** (SUBSCRIPT SYMBOL WORD) 4F12805 CAL SPCTR SET CONTROL LOOP FOR 4F12806 NSJ TXI CXS,0,** * EXIT TO SPECIFICATION 4F12807 REM END OF PROGRAM EQS. 4F12608 REM ******* *********************** 4F12809 REM 4F12810 REM SPCTR/ CONTROL TRANSFERS FOR SPECIFICATION SCAN= 4F12811 TSX DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO). 4F12812 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 088/088 ------ ICC TSX DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO). 4F12813 TXI SPC,0 * , 4F12814 TXI SPCX,0 * ) 4F12815 TXI ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO). 4F12816 TXI ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO). 4F12817 TXI ICC,0 / (ILLEGAL IN CONTROL FOR LIST DO). 4F12818 TXI ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO). 4F12819 TXI ICC,0 + (ILLEGAL IN CONTROL FOR LIST DO). 4F12820 TXI ICC,0 * (ILLEGAL IN CONTROL FOR LIST DO). 4F12821 SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823 REM 4F12824 REM SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C 4F12825 REM SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826 SPCX CAL SPC1 PREPARE FOR END OF SPECIFICATION. 4F12827 STO SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 4F12828 REM SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 4F12829 SPC TSX TYP,4 * GO TEST TYPE OF SUBSCRIPT SPEC. 4F12830 TXI SPCS,0 IF FIXED POINT CONSTANT, 4F12831 LXD NSJ,4 SET C(XR4) = SPECIFICATION COUNT, 4F12832 TXI SPC3,0 AND GO ENTER CONSTANT IN TABLE. 4F12833 SPCS LXD NSJ,4 OTHERWISE, SET SPEC COUNT AND 4F12834 CAL TAG4 IF VARIABLE, NOTE BY 4F12835 ARS 3,4 PLACING BIT IN TAG FIELD 4F12636 SPC2 ORS ** OF TABLE ENTRY. 4F12837 CAL SYM PICKUP VARIABLE SYMBOL AND 4F12838 SPC3 SLW **,4 ENTER N SUB J IN TABLE. 4F12839 TNX SPC4,4,1 REDUCE J. 4F12840 SXD NSJ,4 SAVE SPEC COUNT, AND 4F12841 SPC1 TXL NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. 4F12842 CAL L(1) SET N SUB 3 = 1 IF NOT 4F12843 TXI SPC3,0 OTHERWISE SPECIFIED. 4F12844 SPC4 CLS SPC1 RESTORE SPC1 EXIT. 4F12845 STO SPC1 (3 SPECS HAVE BEEN TREATED) 4F12846 CAL EIFNO ALSO RESTORE INTERNAL FORMULA NO. 4F12847 ARS 18 (PUT BETA IN TEMPDO TABLE) 4F12848 REM SPC5 = ENTRY POINT USED BY RPR. 4F12849 SPC5 STA ** SET BETA EQUAL TO IFNO. 4F12850 LXA DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO 4F12851 TXL SPCR,4,4 TEST NEED FOR LTM, JLF AFTER ). 4F12352 TSX LTMSW,4 * GO COMPILE LTM. 4F12853 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12654 SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855 TXI SPC6,4,-1 BY 1, AND INDICATE A TREATED LEVEL. 4F12656 SPC6 PXD ,4 IF NOT ZERO, 4F12857 SLW DOLEV THEN ALL LEVELS ARE NOT TREATED. 4F12858 TXH LSC,4,0 * RETURN TO SCAN NEXT LEVEL. 4F12659 CLA TLINE IF LEVEL IS ZERO 4F12860 STA SPC7 ENTER GENERATED 4F12861 FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862 TXI *+1,2,- TLDOS SUBROUTINE TET. 4F12663 SPC9 LXA L(5),4 (MOVE EACH 4F12864 SPC7 CLA **,2 TEMPDO TABLE ENTRY 4F12865 STO 1C+5,4 INTO 1C...1C+4, 4F12866 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 089/089 ------ TNX SPC8,2,1 AND THEN 4F12867 TIX SPC7,4,1 WHEN DONE, 4F12868 SPC8 LXA 1C,4 TEST TO SKIP 4F12869 TXL SPCT,4,0 NULL DO, 4F12870 TSX TET00,1 * GO MAKE AN ENTRY 4F12871 PZE 1 IN TDO TABLE.)AND WHEN THE WHOLE 4F12872 SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12874 RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875 REM END OF PROGRAM SPC, 4F12876 REM ******* *********************** 4F12877 REM 4F12878 REM RPR/ CALLS=DIAG,USES=CMA,SPC 4F12879 REM RPR = ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN. 4F12880 RPR LXD DOLEV,4 TEST LEGALITY OF ), 4F12881 TXH RPS,4,0 IF THERE ARE TOO MANY I IN LIST, 4F12882 TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12883 RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884 STA SPC5 SET SPC5 ADDRESS, 4F12885 CLA RPA SET CMA3 SWITCH TO RETURN TO 4F12886 STA CMA3 RPT, AND IF ANY CHARACTERS 4F12887 TXH CMA1,2,6 * WERE COLLECTED, EXIT TO CMA. 4F12888 REM RPT = R EENTRY POINT USED BY CMA. 4F12889 RPT CLA SPC1 RESET CMA3 SWITCH 4F12890 STA CMA3 TO NXS, 4F12891 RPA PXD RPT,0 CLEAR THE AC AND 4F12892 TXI SPC5,0 * CONTINUE BY USING PROGRAM SPC. 4F12893 REM END OF PROGRAM RPR. 4F12894 REM ******* *********************** 4F12895 REM 4F12896 REM CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897 REM LTMSW. USES=RSC 4F12898 REM CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 4F12899 CMA TXL NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN. 4F12900 REM CMA1 = ENTRY POINT USED BY EMK. 4F12901 CMA1 TSX TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. 4F12902 TRA 3,4 ILLEGAL USE OF CONSTANT IN LIST, 4F12903 ERRC TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12904 CAL SYM MOVE VARIABLE SYMBOL 4F12905 CMA4 SLW SA INTO SA. AND 4F12906 REM CMA7 = ENTRY POINT USED BY LPR. 4F12907 CMA7 LXA DOLEV,4 IF DOLEV ADDRESS = 0, AND IF 4F12908 TXH CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), 4F12909 TSX ETMSW,4 * GO COMPILE ETM, AND CLEAR SL. 4F12910 CMA6 CAL DOLEV IN ANY CASE, 4F12911 ADD L(1) UPDATE DOLEV ADDRESS 4F12912 STO DOLEV BY 1, AND THEN 4F12913 CLA GTAG SET GENERALIZED TAG* 4F12914 STO RA (RELATIVE ADDRESS) 4F12915 TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916 CLA EPS AND IF SUBSCRIPT 4F12917 TNZ CMA5 IS A CONSTANT, 4F12918 STA RA THEN CLEAR THE ADDRESS OF RA. 4F12919 TXI CMA5,0 THEN GO MAKE CIT ENTRY. 4F12920 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 090/090 ------ DIMSR CAL SA IF THIS VARIABLE 4F12921 SLW E+2 DOES NOT HAVE A SUBSCRIPT, THEN 4F12922 RD1 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE, 4F12923 TXI RD2,0 IF FOUND, THEN 4F12924 CS1 CLA D12 PICKUP DIMENSION 1 4F12925 TXI DVS,0 AND GO TEST SIZE. OTHERWISE, 4F12926 RD2 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12927 TXI RD3,0 AND IF FOUND, 4F12928 CS2 LDQ D12 PICKUP 4F12929 STZ N2 DIMENSION 1 AND 4F12930 SLQ N2 DIMENSION 2 4F12931 LGL 18 AND MULTIPLY 4F12932 MPY N2 THEM TOGETHER. 4F12933 ARS 1 THEN 4F12934 TXI DVS,0 GO TEST THE PRODUCT. OTHERWISE, 4F12935 RD3 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12936 TXI NODIM,0 AND IF FOUND, 4F12937 CS3 LDQ D12 PICKUP 4F12938 STZ N2 DIMENSION 1, 4F12939 SLQ N2 DIMENSION 2, 4F12940 LGL 18 AND DIMENSION 3. 4F12941 MPY N2 MULTIPLY 4F12942 LRS 18 THEM TOGETHER, 4F12943 MPY D3 AND IF 4F12944 LLS 17 THEIR 4F12945 DVS SUB L(1) PRODUCT IS 4F12946 TZE NODIM GREATER THAN 1, THEN 4F12947 ALS 18 PLACE DIMENSION-1 IN THE 4F12948 STO G DECREMENT OF G, AND 4F12949 TSX FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. 4F12950 ALS 18 ADJUST, AND STORE TAG IN THE 4F12951 STD RAT DECREMENT OF RAT. THEN 4F12952 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12953 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12954 PZE SL WORD1--0(IFN)000 4F12955 PZE LXD WORD2--LXD000 4F12956 PZE 2P WORD3--200000 4F12957 PZE RAT WORD4--0(FIXCON TAG)008 4F12958 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12959 TSX ETMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12960 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12961 PZE SL WORD1--0(IFN)000 OR 000000 4F12962 PZE OP WORD2--(OPERATION CODE) 4F12963 PZE SA WORD3--(SYMBOLIC ADDRESS) 4F12964 PZE ST WORD4--000008 4F12965 STZ SL CLEAR SL, AND 4F12966 TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12967 TSX GIF,4 * GET IFN IN SL AND TL. 4F12968 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12969 PZE L(0) WORD1--000000 4F12970 PZE TIX WORD2--TIX001 4F12971 PZE SL WORD3--0(IFN)000 4F12972 PZE ST WORD4--000008 4F12973 STZ SL CLEAR SL, AND 4F12974 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 091/091 ------ TSX ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12976 PZE L(0) WORD1--000000 4F12977 PZE DED WORD2--DED000 4F12978 PZE L(0) WORD3--000000 4F12979 PZE ST WORD4--000008 4F12980 TXI CMA5,0 IF THE PRODUCT OF DIMENSIONS IS 4F12981 NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982 TXI CMA5,0 AND IF FIXED POINT, 4F12983 TSX TET00,1 * GO ENTER VARIABLE IN 4F12984 INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985 CMA5 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12986 PZE SL WORD1--0(IFN)000 OR 000000 4F12987 PZE OP WORD2--NTR000 OR CPY000 4F12988 PZE SA WORD3--(SYMBOL) 4F12989 PZE RA WORD4--(RELATIVE ADDRESS) 4F12990 STZ SL CLEAR SL, AND 4F12991 STZ GTAG CLEAR GTAG. THEN TAKE EXIT 4F12992 CMA3 TXI NXS,0 * SWITCH TO RPT OR NXS, 4F12993 REM END OF PROGRAM CMA. 4F12994 REM ******* *********************** 4F12995 REM 4F12996 REM EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA, 4F12997 REM EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN. 4F12998 EMK TXH CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN 4F12999 LXD DOLEV,4 CHECK THE NUMBER OF PARENTHESES. 4F13000 TXL FIN,4,0 IF THERE ARE TOO MANY LPARENS, 4F13001 TSX DIAG,4 * GO TO THE DIAGNOSTIC OTHERWISE, 4F13002 FIN TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13004 REM LAST = ENTRY POINT SET BY BXT SWITCH. 4F13005 LAST TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13006 PZE SL WORD1--0(IFN)000 4F13007 PZE CAL WORD2--CAL000 4F13008 PZE 15P WORD3--*00000 4F13009 PZE L(0) WORD4--000000 4F13010 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13011 PZE L(0) WORD1--000000 4F13012 PZE XIT WORD2--XIT000 4F13013 PZE END WORD3--(RTN) OR (FIL) 4F13014 PZE L(0) WORD4--000000 4F13015 REM FINI = ENTRY POINT USED BY EFT. 4F13016 FINI CLA RESET RESET BXT SWITCH 4F13017 STA BXT TO RSC. 4F13018 CLA F-1 TEST FOR AN EXTERNAL 4F13019 SUB 5BLANS STATEMENT NUMBER, AND IF NONE, 4F13020 TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F13021 CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022 ORS EIFNO OF EIFNO TO MINUS, AND 4F13023 TSX TET00,1 * GO ENTER -(EIFNO) 4F13024 PZE 0 IN THE TEIFNO TABLE. 4F13025 CAL EIFNO THEN RESTORE 4F13026 STO EIFNO EIFNO, AND 4F13027 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F13028 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 092/092 ------ REM END OF PROGRAM EMK. 4F13029 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030 REM 4F13031 REM STATEA/ 4-SUBROUTINES USED BY STATE A= 4F13032 REM REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * REM 4F13033 REM BEG(TYP),4/ CALLS=DIAG. USES RSC. 4F13034 REM BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT, 4F13035 BEG SXD BEX,4 SAVE C(XR4) FOR RETURN, 4F13036 CAL BEGTR SET CONTROL TRANSFER 4F13037 BEX TXI CXS,0,** * AND GO EXECUTE BEGINNING SCAN. 4F13038 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039 REM 4F13040 REM BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN= 4F13041 TXI NLS,0 * ENDMARK (NO LIST SCAN) 4F13042 IBC TSX DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043 TXI CMB,0 * , 4F13044 TXI IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045 TXI IBC,0 = (ILLEGAL CHARACTER IN I/O SETUP).4F13046 TXI IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).4F13047 TXI IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).4F13048 TXI IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).4F13049 TXI IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).4F13050 TXI IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).4F13051 BEGTR PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 4F13052 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053 REM 4F13054 REM NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. 4F13055 NLS CLA NLA IF ENDMARK IS MET, 4F13056 STA BXT SET BXT SWITCH TO LAST. 4F13057 REM CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 4F13058 CMB LXD BEX,4 RESTORE THE C(XR4), AND 4F13059 REM TYP = ENTRY POINT USED BY LPR,SPC,CMA, 4F13060 TYP CLA CHR-6 TEST FIRST CHARACTER 4F13061 SUB PLUS FOR VARIABLE 4F13062 TMI ABS OR CONSTANT. 4F13063 TXH SMB,2,36 IF VARIABLE. 4F13064 CAL BLANK ADD A BLANK 4F13065 ALS 36,2 IF SYMBOL CONTAINS 4F13066 ORS SYM LESS THAN 6 CHARACTERS, AND 4F13067 SMB TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. 4F13068 ABS LXA L(5),2 IF CONSTANT* 4F13069 CLA CHR-1,2 THEN 4F13070 STO BIN CONVERT 4F13071 CSJ TXL INT,2,** BCD 4F13072 ALS 2 DIGITS 4F13073 ADD BIN TO THEIR 4F13074 ALS 1 BINARY 4F13075 ADD CHR,2 EQUIVALENT, 4F13076 TXI CSJ-1,2,-1 AND WHEN DONE, 4F13077 INT TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. 4F13078 REM END OF PROGRAM BEG(TYP), 4F13079 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 093/093 ------ REM 4F13081 REM BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD, 4F13082 BRW SXD XRW,4 SAVE THE C(XR4), AND 4F13083 SLW CON SET CON = 0 OR ,,144 OR ,,192, 4F13084 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13085 TSX BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL. 4F13086 TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F13087 ALS 18 IF CONSTANT, ADJUST CONVERTED 4F13088 STO RA NUMBER, AND SET RA. 4F13089 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13090 PZE TL WORD1--0(IFN)0(248) 4F13091 PZE OP WORD2--(WTB,RBT,WRD,RDD)000 4F13092 PZE L(0) WORD3--000000 4F13093 PZE RA WORD4--000000 OR 0(UNIT)000 4F13094 CAL CPY MOVE CPY000 4F13095 SLW OP INTO OP. 4F13096 CAL TXLOP SET OP-SWITCHES, 4F13097 STP ETMSW ETMSW AND LTMSW, 4F13098 STP LTMSW TO THE TRA CASE. 4F13099 CAL RTN MOVE (RTN) 4F13100 SLW END INTO END. 4F13101 STZ SL CLEAR SL, 4F13102 LXD XRW,4 RESTORE THE C(XR4), AND 4F13103 TRA 1,4 * EXIT TO CALLER. 4F13104 REM END OF PROGRAM BRW. 4F13105 REM ****************************** 4F13106 REM 4F13107 REM BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600, 4F13108 REM BSS COMPILES= IFN BSS 0. 4F13109 BSS TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F13110 PZE SL WORD1--0(IFN)000 4F13111 PZE L(BSS) WORD2--BSS000 4F13112 PZE L(0) WORD3--000000 4F13113 PZE L(0) WORD4--000000 4F13114 TRA 1,2 * EXIT TO CALLER+1. 4F13115 REM END OF PROGRAM BSS, 4F13116 REM ***************************** 4F13117 REM 4F13118 REM CA100,4 / CALLS=DIAG, CALLER=CA000, 4F13119 REM CA100 READS NEXT SOURCE PROGRAM CARD (1 TAPE RECORD), 4F13120 CA100 LXA TERC,2 PREPARE TO COUNT 4F13121 SXD 1G,2 TAPE READING ERRORS. 4F13122 RTT TURN OFF TAPE CHECK INDICATOR. 4F13123 NOP PROCEED TO NEXT INSTRUCTION. 4F13124 CA101 RDS 130 SELECT SOURCE TAPE FOR READING, 4F13125 LXA L(12),2 INITIALIZE INDEX B FOR 12 CYCLES OF4F13126 REM COPY LOOP. 4F13127 CA102 CPY FT+12,2 COPY INTO FT REGION 4F13128 TRA CA103 NEXT SOURCE PROGRAM CARD. 4F13129 TRA CA120 END OF FILE, GO FINISH LAST STATEM.4F13130 CA130 LXD 1G,2 TEST TAPE ERROR COUNTER 4F13131 TIX CA131,2,1 BY TRYING TO REDUCE BY 1. 4F13132 TSX DIAG,4 * FAILED 5 TIMES IN READING TAPE 2. 4F13133 CA131 SXD 1G,2 SAVE REDUCED VALUE IN COUNTER, 4F13134 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 094/094 ------ BST 130 BACKSPACE FORMULA TAPE, 4F13135 TRA CA101 AND GO BACK TO READ AGAIN. 4F13136 CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137 IOD DELAY UNTIL TAPE DISCONNECTS. 4F13138 RTT CHECK READING OF TAPE. 4F13139 TXI CA130,0 IF INCORRECT, GO CHECK ERROR COUNT,4F13140 LXA L(12),2 PREPARE TO SCAN 12 WORDS OF CARD. 4F13141 CA112 CLA BLANKS TEST 4F13142 SUB FT+12,2 FOR 4F13143 TNZ CA113 BLANK 4F13144 TIX CA112,2,1 CARD. 4F13145 TRA CA100 IF BLANK, GO TO READ NEXT CARD. 4F13146 CA113 CAL FT IF NOT BLANK, 4F13147 ARS 30 EXAMINE FIRST 4F13148 SUB L(C) CHARACTER TO 4F13149 TZE CA100 TEST FOR COMMENT CARD. 4F13150 TRA 1,4 * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151 CA120 STZ FT INDICATE THAT FINAL 4F13152 SXD ENDWRD,0 STATEMENT HAS BEEN READ IN. 4F13153 TRA 1,4 * EXIT TO MAIN ROUTINE TO FINISH. 4F13154 REM END OF PROGRAM CA100. 4F13155 REM **************************** *4F13156 REM 4F13157 REM CC500,4/ CALLER=CC000, 4F13156 REM CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35), 4F13159 CC500 PXD ,0 CLEAR THE AC 4F13160 TIX CC502,2,1 IF NO DICTIONARY CHARACTERS 4F13161 LXD 2G,2 REMAIN IN THE MO, THEN 4F13162 LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD, 4F13163 TXI CC501,2,-1 RESET THE 4F13164 CC501 SXD 2G,2 DICTIONARY WORD TAG, AND 4F13165 LXA L(6),2 SET THE CHARACTER COUNT = 6. 4F13166 CC502 LGL 6 SHIFT CHAR INTO AC(30-35), 4F13167 TRA 1,4 * AND RETURN TO CALLER. 4F13168 REM END OF PROGRAM CC500. 4F13169 REM ***************************** *4F13170 REM 4F13171 REM ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK, 4F13172 REM ETMSW = ENTRY POINT USED BY RDC,CMA. 4F13173 ETMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13174 CAL ETM PICKUP ETM00, AND 4F13175 XR4X TXI SETOP,0,** GO SET OP. 4F13176 REM LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK, 4F13177 LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13178 CAL LTM PICKUP LTM000, AND 4F13179 SETOP SLW TOP SET TOP. 4F13160 SXD XR4X,4 SAVE THE C(XR4), AND 4F13161 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13182 PZE SL WORD1--0(IFN)000 4F13183 PZE TOP WORD2--ETM000 OR LTM000 4F13184 PZE L(0) WORD3--000000 4F13165 PZE L(0) WORD4--000000 4F13186 STZ SL CLEAR SL, 4F13187 LXD XR4X,4 RESTORE THE C(XR4), AND 4F13188 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 095/095 ------ NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189 REM END OF PROGRAM ETMSW(LTMSW). 4F13190 REM ***************************** *4F13191 REM 4F13192 REM IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD), 4F13193 IFFIX CAL EIFNO SET 4F13194 STZ G G TO 4F13195 STD G (0(IFN)000), 4F13196 CAL SYM MOVE SYMBOL 4F13197 SLW G+1 INTO G+1. 4F13198 CAL CHR-6 PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199 TXI TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT. 4F13200 REM END OF PROGRAM IFFIX. 4F13201 REM ***************************** *4F13202 REM 4F13203 REM INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB, 4F13204 REM CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD. 4F13205 REM INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD, 4F13206 INPUT CLA L(6) PICKUP 6 TO 4F13207 TXI OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. 4F13208 REM OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209 OUTPUT CLA L(5) PICKUP 5 TO 4F13210 STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211 TSX GIF,4 * SET SL = IFN,000. 4F13212 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13213 PZE SL WORD1--0(IFN)000 4F13214 PZE CAL WORD2--CAL000 4F13215 PZE 15P WORD3--*00000 4F13216 PZE L(0) WORD4--000000 4F13217 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13218 PZE L(0) WORD1--000000 4F13219 PZE XIT WORD2--XIT000 4F13220 PZE LEV WORD3--(LEV) 4F13221 PZE L(0) WORD4--000000 4F13222 STZ SL CLEAR SL, AND 4F13223 TRA 1,2 * EXIT TO CALLER. 4F13224 REM END OF PROGRAM INPUT(OUTPUT), 4F13225 REM **************************** *4F13226 REM 4F13227 REM LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT), 4F13228 LIB CAL 3,4 MOVE NAME OF SUBROUTINE, 4F13229 STA LIC ADDRESS OF WHICH 4F13230 LIC CAL ** IS IN WORD3 OF CALLING SEQ, 4F13231 SLW G INTO G, AND 4F13232 TSX TET00,1 * GO ENTER IN THE 4F13233 PZE 9 CLOSUB TABLE. 4F13234 TXI CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235 REM END OF PROGRAM L1B. 4F13236 REM ***************************** *4F13237 REM 4F13238 REM VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF, 4F13239 REM CALLERS =RIT,WOT,EFT, 4F13240 REM VRA = ENTRY POINT USED BY EFT. 4F13241 VRA CLA L(TL) RESET TPOA ADDRESS 4F13242 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 096/096 ------ STA TPOA TO TL. 4F13243 CAL TXLOP PREPARE TO SET OP-SWITCH TO TRA. 4F13244 TXI VRD1,4,-1 SET RETURN TO TSX+2, AND GO SET OP.4F13245 REM VRD = ENTRY POINT USED BY RIT,WOT, 4F13246 VRD CLA TXLOP PREPARE TO SET OP-SWITCH TO NOP. 4F13247 VRD1 STP VRX SET VRX OP-SWITCH. 4F13248 SXD VRX,4 SAVE THE C(XR4) FOR RETURN. 4F13249 TSX IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR. 4F13250 TSX DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE. 4F13251 TSX TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE 4F13252 PZE 5 ENTRY IN FORVAR TABLE. 4F13253 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13254 PZE SL WORD1-0(IFN)000 4F13255 PZE CAL WORD2-CAL000 4F13256 PZE SYM WORD3-(FXD-PT SYMBOL) 4F13257 PZE L(0) WORD4-000000 4F13258 VRX TXH VDA,0,** SWITCH ITXL=TRA, TXH=NOP), 4F13259 CAL STD PICKUP STD000, AND 4F13260 XRW TXI RVX,0,** GO SET TOP. 4F13261 VDA CLA CON IF CON 4F13262 TZE SDA IS NOT ZERO, 4F13263 STO G THEN 4F13264 TSX FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG, 4F13265 ALS 18 ADJUST TAG, AND 4F13266 STO RA SET RA. 4F13267 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F13268 PZE L(0) WORD1-000000 4F13269 PZE ADD WORD2-ADD000 4F13270 PZE 2P WORD3-200000 4F13271 PZE RA WORD4-(FIXCON TAG) 4F13272 SDA TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13273 PZE L(0) WORD1-000000 4F13274 PZE ARS WORD2-ARSOOO 4F13275 PZE L(0) WORD3-000000 4F13276 PZE D18 WORD4-0(18)000 4F13277 CAL STA PICKUP STAOOO, AND 4F13278 RVX SLW TOP SET TOP TO STA OR STD. 4F13279 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL, 4F13280 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13281 PZE L(0) WORD1- 00600 4F13282 PZE TOP WORD2-STA000 OR STD000 4F13283 PZE TL WORD3-0(IFN)000 4F13264 PZE L(0) WORD4-000000 4F13285 NLA PXD LAST,0 CLEAR THE AC 4F13286 LXD VRX,4 RESTORE THE C(XR4), AND 4F13287 TRA 1,4 * EXIT TO CALLER. 4F13288 REM END OF PROGRAM VRA(VRD), 4F13289 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290 REM 4F13291 REM STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 4F13292 REM 4F13293 BCD BCD 1BCD000 CONSTANT USED BY IOT. 4F13294 BST BCD 1BST000 CONSTANT USED BY IOT. 4F13295 ETM BCD 1ETM000 CONSTANT USED BY IOT, 4F13296 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 097/097 ------ LTM BCD 1LTM000 CONSTANT USED BY IOT. 4F13297 NTR BCD 1NTR000 CONSTANT USED BY IOT. 4F13298 RDR BCD 1RDR000 CONSTANT USED BY IOT. 4F13299 REW BCD 1REW000 CONSTANT USED BY IOT. 4F13300 RTB BCD 1RTB000 CONSTANT USED BY IOT. 4F13301 SLW BCD 1SLW000 CONSTANT USED BY IOT. 4F13302 STD BCD 1STD000 CONSTANT USED BY IOT. 4F13303 WDR BCD 1WDR000 CONSTANT USED BY IOT. 4F13304 WEF BCD 1WEF000 CONSTANT USED BY IOT. 4F13305 WTB BCD 1WTB000 CONSTANT USED BY IOT. 4F13306 XIT BCD 1XIT000 CONSTANT USED BY IOT. 4F13307 BDC BCD 1(BDC) CONSTANT USED BY IOT. 4F13308 CSH BCD 1(CSH) CONSTANT USED BY IOT. 4F13309 DBC BCD 1(DBC) CONSTANT USED BY IOT. 4F13310 FIL BCD 1(FIL) CONSTANT USED BY IOT. 4F13311 LEV BCD 1(LEV) CONSTANT USED BY IOT. 4F13312 RTN BCD 1(RTN) CONSTANT USED BY IOT. 4F13313 SCH BCD 1(SCH) CONSTANT USED BY IOT. 4F13314 SPH BCD 1(SPH) CONSTANT USED BY IOT. 4F13315 STH BCD 1(STH) CONSTANT USED BY IOT. 4F13316 TSH BCD 1(TSH) CONSTANT USED BY IOT. 4F13317 REM 4F13318 CON BSS 1 VARIABLE USED BY IOT. 4F13319 END PZE ** VARIABLE USED BY IOT. 4F13320 TOP BSS 1 VARIABLE USED BY IOT. 4F13322 TSA PZE ** VARIABLE USED BY IOT. 4F13323 TTA PZE ** VARIABLE USED BY IOT. 4F13324 REM 4F13325 REM DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326 DIC OCT 244677274663 DO-GOT 4F13327 OCT -67731267462 O-IF(S 4F13328 OCT 254562256266 ENSESW 4F13329 OCT 316323307731 ITCH-I 4F13330 OCT 267462254562 F(SENS 4F13331 OCT 254331273063 ELIGHT 4F13332 OCT -373126243165 -IFDIV 4F13333 OCT 312425233025 IDECHE 4F13334 OCT 234277312621 CK-IFA 4F13335 OCT 232364446443 CCUMUL 4F13336 OCT 216346514665 ATOROV 4F13337 OCT 255126434666 ERFLOW 4F13338 OCT -373126506446 -IFQUO 4F13339 OCT -233125456346 TIENTO 4F13340 OCT -252551264346 VERFLO 4F13341 OCT -267731267721 W-IF-A 4F13342 OCT -226231274577 SSIGN- 4F13343 OCT -226346477747 STOP-P 4F13344 OCT 216462257762 AUSE-S 4F13345 OCT 254562254331 ENSELI 4F13346 OCT 273063772431 GHT-DI 4F13347 OCT -42545623146 MENSIO 4F13348 OCT -57725506431 N-EQUI 4F13349 OCT -252143254523 VALENC 4F13350 OCT 257726512550 E-FREQ 4F13351 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 098/098 ------ OCT -242545237077 UENCY- 4F13352 OCT 234645633145 CONTIN 4F13353 OCT -242577512521 UE-REA 4F13354 OCT 246321472577 DTAPE- 4F13355 OCT -112521243145 READIN 4F13356 OCT -76463632147 PUTTAP 4F13357 OCT 257751252124 E-READ 4F13358 OCT 245164447751 DRUM-R 4F13359 OCT 252124776651 EAD-WR 4F13360 OCT 316325632147 ITETAP 4F13361 OCT 257766513163 E-WRIT 4F13362 OCT 254664634764 EOUTPU 4F13363 OCT -236321472577 TTAPE- 4F13364 OCT -265131632524 WRITED 4F13365 OCT -116444774751 RUM-PR 4F13366 OCT 314563774764 INT-PU 4F13367 OCT -52330775125 NCH-RE 4F13368 OCT -263145247722 WIND-B 4F13369 OCT 212342624721 ACKSPA 4F13370 OCT 232577254524 CE-END 4F13371 OCT 263143257726 FILE-F 4F13372 OCT -65144216377 ORMAT- 4F13373 OCT -226422514664 SUBROU 4F13374 OCT -233145257723 TINE-C 4F13375 OCT -064444464577 OMMON- 4F13376 OCT -112563645145 RETURN 4F13377 OCT -372321434377 -CALL- 4F13378 OCT 254524747726 END(-F 4F13379 OCT -244523633146 UNCTIO 4F13360 OCT -057777777777 N----- 4F13361 BSS 10 4F133815 REM END OF DICTIONARY. 4F13382 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383 REM 4F13384 REM T/ TRANSFER TABLE IUSED BY CC000), 4F13385 T TXI C0100,0 DO, 4F13386 TXI C0200,0 GO TO. 4F13387 TXI C0400,0 IF ISENSE SWITCH. 4F13388 TXI C0500,0 IF (SENSE LIGHT. 4F13389 TXI C0600,0 IF DIVIDE CHECK. 4F13390 TXI C0700,0 IF AC OVERFLOW, 4F13391 TXI C0800,0 IF MO OVERFLOW. 4F13392 TXI C0300,0 IF. 4F13393 TXI C1000,0 A5SIGN. 4F13394 TXI C1300,0 STOP. 4F13395 TXI C0900,0 PAUSE. 4F13396 TXI C1100,0 SENSE LIGHT, 4F13397 TXL C1200,0 DIMENSION* 4F13398 TXL C1500,0 EOUIVALENCE. 4F13399 TXL C1400,0 FREOUENCY, 4F13400 TXI C1600,0 CONTINUE. 4F13401 TXI RBT,0 READ TAPE. 4F13402 TXI RIT,0 READ INPUT TAPE. 4F13403 TXI RDD,0 READ DRUM. 4F13404 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 099/099 ------ TXI RDC,0 READ CARD. 4F13405 TXI WBT,0 WRITE TAPE. 4F13406 TXI WOT,0 WRITE OUTPUT TAPE. 4F13407 TXI WRD,0 WRITE DRUM, 4F13408 TXI RDP,0 PRINT. 4F13409 TXI PDC,0 PUNCH. 4F13410 TXI RWN,0 REWIND. 4F13411 TXI BSP,0 BACKSPACE. 4F13412 TXI EFT,0 END FILE. 4F13413 TXL FOR,0 FORMAT. 4F13414 TXL C3000,0 SUBROUTINE. 4F13415 TXL C3100,0 COMMON. 4F13416 TXI C3200,0 RETURN. 4F13417 TXI C3300,0 CALL. 4F13418 TXL C3400,0 END. 4F13419 TXL C3500,0 FUNCTION. 4F13420 BSS 10 4F134205 REM END OF TRANSFER TABLE. 4F13421 ENDADR BSS 0 4F134215 REM ****************************** * 4F13422 REM 4F13423 ENDA ORG 3783 4F13424 BIN BSS 1 VARIABLE USED BY IOT. 4F13425 CHR BES 6 VARIABLE USED BY IOT. 4F13426 BSS 50 PARAMETERS FOR TLDOS TABLE -IOT. 4F13427 DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428 OP BSS 1 VARIABLE USED BY IOT. 4F13429 RA BSS 1 VARIABLE USED BY IOT. 4F13430 SA BSS 1 VARIABLE USED BY IOT. 4F13431 SYM BSS 1 VARIABLE USED BY IOT. 4F13432 TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433 REM END OF WORKING STORAGE USED BY STATEA. 4F13434 REM ****************************** *4F13435 REM 4F13436 REM END OF THE NON-ARITHMETIC PART OF SECTION ONE. 4F13437 REM 4F13438 REM ****************************** *4F13439 REM 4F13440 REM ARITHMETIC / STATE B= 4F13441 REM 704 FORTRAN MASTER RECORD CARD / STATE B = F0180000. 4F13442 ORG 0 4F134421 PZE ORGB,,DMWR06 4F134422 PZE ENDB-1 4F134423 REM 4F13443 ORGB ORG 1824 4F13444 REM 4F13445 REM THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704 4F13446 REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 4F13447 REM ANALYSIS HAS BEEN FOLDED OVER. 4F13440 REM 4F13449 REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. 4F13450 REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451 REM IN THE F REGION OF COMMON AND IS IN BCD. 4F13452 REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD 4F13453 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 100/100 ------ REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454 REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455 REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457 REM AND THE OPERATOR WHICH PRECEDES IT. 4F13458 SLF 4F13459 CLA SIG1ST 4F13460 STO SIG1IX-3 4F13461 STZ ARGCTR CLEAR 4F13462 STZ CHSAVE X 4F13463 STZ 3LBAR X 4F13464 STZ NBAR X 4F13465 STZ CBAR X 4F13466 STZ ABAR X 4F13467 STZ FSTYPE X 4F13468 LXD 1BAR,4 SET NBAR=-1 4F13469 SXD NBAR,4 X 4F13470 CAL E( SET ARERAS - E( 4F13471 SLW ARERAS X 4F13472 TSX C0190X,4 SET FWA --F AND CHCTR - 0 4F13473 CAL TXHOP SET SWITCHES FOR LEFT SCAN. 4F13474 STP MS093 X 4F13475 STP MS310 X 4F13476 STP MS321 X 4F13477 MS010 CAL ADPLUS SET OP TO ADDITION 4F13478 MS030 SLW E+1 X 4F13479 STZ FNBITS CLEAR FUNCTION NAME INDICATOR 4F13480 STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481 STZ G CLEAR RECEIVING CELL. 4F13482 CLS L(0) SET E = -0 4F13483 STO E X 4F13484 LXA L(6),2 SET IR2 FOR SIX CHARS. 4F13485 MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486 TNZ MS041 X 4F13467 TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. 4F13488 MS041 CAS L(9) IS CHAR. NUMERIC 4F13489 TRA MS050 N/, TAKE TRA 4F13490 MS4007 TXH CM4100,0 4F13491 TSX ROYCNV,4 X 4F13492 TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493 TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. 4F13494 MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495 MS051 CAS CTEST,4 4F13496 TRA MS052 X 4F13497 TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498 MS052 TIX MS051,4,1 X 4F13499 MS060 ALS 36,2 POSITION CHAR FOR BUILDING SYMBOL. 4F13500 ORS G ADD CHAR TO THOSE IN G. 4F13501 TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502 MS061 TSX C0190,4 GET NEXT CHAR. 4F13503 MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504 MS071 CAS CTEST,4 X 4F13505 TRA MS072 X 4F13506 TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 101/101 ------ MS072 TIX MS071,4,1 X 4F13508 TXL MS060,2,18 IF THIS IS CHAR I, 2 /R 3 GO BUILD G. 4F13509 CAS L(F) IS THIS AN F ENDING FUNCTION NAME. 4F13510 TRA MS073 X 4F13511 TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512 MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513 MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514 MS080 TSX C0190,4 GET NEXT CHAR. 4F13515 CAS OPEN TEST FOR (. 4F13516 TRA MS081 X 4F13517 TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518 MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519 CAL L(F) ADD F TO CONTENTS OF G, 4F13520 ALS 36,2 X 4F13521 ORS G X 4F13522 TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR, 4F13523 CLA FIRSTC RESTORE CURRENT CHAR. 4F13524 TXI MS070,2,6 UPDATE POSITIONING TAG, 4F13525 MS090 STZ CHSAVE CLEAR 4F13526 TRA TRBLKA,4 4F13527 MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE, 4F13528 CAL BLANK ADD BLANK TO CHARS IN G. 4F13529 ALS 36,2 X 4F13530 ORS G X 4F13531 LDQ G MOVE G TO E+2 AND TO G+1, 4F13532 STQ E+2 X 4F13533 STQ G+1 X 4F13534 TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535 MS092 PXD ,0 CLEAR 4F13536 LDQ BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. 4F13537 LGL 42,2 X 4F13538 ORA G X 4F13539 SLW G X 4F13540 SLW E+2 MOVE FUNCTION NAME TO E+2. 4F13541 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542 LXD BK,4 THIS IS ARITH FUNCTION STATEMENT. 4F13543 SLW FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. 4F13544 CAL EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. 4F13545 ANA MASK1 X 4F13546 STO FORSUB+1,4 X 4F13547 TXI FS010,4,-2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548 FS010 SXD BK,4 X 4F13549 FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550 CAS EQUAL TEST FOR EQUAL, 4F13551 TRA FS030 X 4F13552 TRA MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553 FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT, 4F13554 TRA FS040 LEGAL, CONTINUE 4F13555 MS9002 TXH CM4200,0 4F13556 TSX DIAG,4 BEGINS NUMERIC, ERROR, 4F13557 FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G, 4F13558 TSX TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) 4F13559 LXD ARGCTR,2 GET COUNT OF ARGUMENTS 4F13560 LDQ 1G ENTER ARGUMENT NAME IN ARGREG TABLE. 4F13561 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 102/102 ------ STQ ARGREG,2 X 4F13562 TXI FS050,2,-1 UPDATE COUNT OF ARGUMENTS. 4F13563 FS050 SXD ARGCTR,2 4F13464 TXH FS020,2,-50 TEST FOR ARGREG TABLE OVERFLOW, 4F13565 TSX DIAG,4 YES, ERROR. 4F13566 MS200 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY 4F13567 TSX DIAG,4 HOLLERITH RETURN, ERROR. 4F13568 TRA LATXH FLOATING POINT CONSTANT RETURN. 4F13569 MS210 SLN 1 TURN , LITE 0N. 4F13570 LXD 3LBAR,1 PERFORM LEVEL ANALYSIS FOR , 4F13571 LXD ABAR,4 4F13572 CLS ALPHA-4,4 4F13573 STO LAMBDA,1 4F13574 CAL ADSPOP 4F13575 SLW LAMBDA+1,1 4F13576 CLA NBAR 4F13577 ARS 18 4F13578 STO LAMBDA+2,1 4F13579 TXI MS211,1,-3 4F13580 MS211 SXD 3LBAR,1 4F13581 LXD NBAR,1 4F13582 SXD CBAR,1 4F13583 TXI MS212,1,-1 4F13584 MS212 SXD NBAR,1 4F13585 TXI MS213,4,3 4F13586 MS213 SXD ABAR,4 4F13587 TRA MS010 4F13588 MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589 CLA ALPHA-4,4 4F13590 PAX ,1 4F13591 SXD CBAR,1 4F13592 TXI MS221,4,4 4F13593 MS221 SXD ABAR,4 4F13594 TRA MS020 4F13595 MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK, 4F13596 TXI MS231,4,3 4F13597 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598 TSX DIAG,4 NO, ERROR. 4F13599 MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600 TXL STATEC,4,0 4F13601 CAL FSTYPE YES, UPDATE FUNCTION TYPE AND 4F13602 ADD L(1) COMPLETE FORSUB ENTRY BY ASSIGNING 4F13603 LXD BK,1 TYPE NUMBER. 4F13604 STA FORSUB-1,1 X 4F13605 ORS ARERAS ALSO SAVE FOR LATER REFERENCE. 4F13606 TRA STATEC 4F13607 TRA MS230 ENDMK 4F13608 TRA MS260 ( 4F13609 TRA MS210 , 4F13610 TRA MS220 ) 4F13611 MSERR= TSX DIAG,4 = 4F13612 TRA MS250 - 4F13613 TRA MS250 / 4F13614 TRA MS200 , 4F13615 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 103/103 ------ TRA MS250 + 4F13616 MS240 ALS 30 * SAVE * 4F13617 TRBLKA BSS 0 4F13618 SLW E+1 X 4F13619 TSX C0190,4 GET NEXT CHAR. 4F13620 CAS STAR IS IT * 4F13621 TRA MS041 X 4F13622 TRA MS241 YES, THIS WAS ** 4F13623 TRA MS041 NO, GO COMPARE TO OTHER PUNCTUATION. 4F13624 MS241 CAL STRSTR REPLACE * WITH ** 4F13625 TRA MS251 X 4F13626 MS250 ALS 30 POSITION CHAR WHICH IS + OR - OR / 4F13627 MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628 TRA MS040 NOW GO COLLECT SYMBOL, 4F13629 MS260 ALS 30 ( TO SYMBOL WORD 4F13630 SLW E+2 X 4F13631 TRA LATXL GO PERFORM LEVEL ANALYSIS FOR ( 4F13632 TRA MS300 ENDMK 4F13633 TRA MS320 ( 4F13634 TRA MS300 , 4F13635 TRA MS300 ) 4F13636 TRA MS310 = 4F13637 TRA MS300 - 4F13638 TRA MS300 / 4F13639 TSX DIAG,4 . 4F13640 TRA MS300 + 4F13641 MS300 PXD ,0 * CLEAR 4F13642 TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643 LGL 6 GET FIRST CHAR OF SYMBOL. 4F13644 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. 4F13645 TRA LATXL FLOATING, GO PERFORM LEVEL ANALYSIS. 4F13646 CAL EIFNO FIXED, PREPARE FORVAR ENTRY. 4F13647 ANA MASK1 X 4F13648 SLW G X 4F13649 TSX TET00,1 MAKE FORVAR ENTRY. 4F13650 5 X 4F13651 PXD ,0 4F13652 LDQ LEFT+2 4F13653 LGL 12 4F13654 SUB CALLER 4F13655 TNZ LATXL 4F13656 TSX TET00,1 4F13657 6 4F13658 TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13659 MS320 STZ CHSAVE CLEAR CELL FOR 0P. 4F13660 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATION 4F13662 TSX C0190,4 GET NEXT CHAR. 4F13663 SUB EQUAL TEST FOR EQUAL SIGN. 4F13664 TNZ MSERR= NO, ERROR. 4F13665 MS322 LXA L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS. 4F13666 MS323 LDQ E+3,4 X 4F13667 STQ LEFT+3,4 X 4F13668 TIX MS323,4,1 X 4F13669 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 104/104 ------ MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670 STP MS093 X 4F13671 STP MS310 X 4F13672 STP MS321 X 4F13673 SLN 1 TURN = OR ) LITE 0N. 4F13674 TRA MS010 GO SCAN NEXT ELEMENT. 4F13675 MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676 STZ CHSAVE CLEAR 4F13677 PXD ,0 CLEAR AC 4F136775 LGL 6 GET FIRST CHAR OF SYMBOL. 4F13678 TSX TESTFX+ 1,1 TEST FOR FIXED OR FLOATING POINT 4F13679 TRA MS322 FLOATING, 4F13680 CAL EIFNO FIXED, PREPARE FORVAL ENTRY. 4F13681 ANA MASK1 X 4F13682 SLW G X 4F13683 TSX TET00,1 MAKE FORVAL ENTRY. 4F13684 6 X 4F13685 TRA MS322 4F13686 MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687 TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688 TRA MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE 4F13689 MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690 TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691 TRA MS333 ASSUMED TO BE THE NAME OF A FORTRAN II 4F13692 MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693 TRA MS334 X 4F13694 MS333 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATIONS 4F13695 TRA LATXH GO PERFORM LEVEL ANALYSIS. 4F13696 MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697 SLW FNBITS X 4F13698 PXD ,0 X 4F13699 LDQ BLANKS COMPLETE NAME WITH BLANKS. 4F13700 LGL 42,2 X 4F13701 ORS G X 4F13702 ORS E+2 X 4F13703 TSX TET00,1 ENTER NAME IN CLOSUB TABLE. 4F13704 9 X 4F13705 MS335 SLN 2 TURN FUNCTION LITE 0N. 4F13706 TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13707 HOLL STZ CHSAVE CLEAR CHSAVE 4F13708 CAL HOLCNT GET CURRENT H(+I WORD 4F13709 SLW E+2 4F13710 LXA N,2 GET NUMBER OF CHARACTERS IN THIS ARG 4F13711 LXD CHCTR,4 GET CURRENT RESIDUE CHAR COUNT 4F13712 LDQ RESIDU GET CURRENT RESIDU WORD 4F13713 C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714 PXD 0,0 CLEAR AC 4F13715 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716 C33525 LGL 6 GET NEXT CHAR 4F13717 SLW 1G STORE WORD 4F13718 ANA ENDMK BLANK ALL EXCEPT CURRENT CHAR 4F13719 SUB ENDMK TEST FOR INTERNAL ENDMK 4F13720 TNZ C3353 4F13721 TSX DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. 4F13722 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 105/105 ------ C3353 CAL 1G RETREIVE WORD 4F13723 TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724 TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725 TRA C3352 NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726 C3354 LXD FWA,4 LOAD MQ WITH NEXT F REGION WORD 4F13727 LDQ 0,4 4F13728 TXI C3355,4,-1 UPDATE FWA 4F13729 C3355 SXD FWA,4 4F13730 LXA L(6),4 RESET MQ CHAR COUNT TO SIX 4F13731 TRA C33525 CONTINUE COLLECTING 4F13732 C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734 C3358 STQ RESIDU UPDATE RESIDU 4F13735 SXD CHCTR,4 UPDATE CHCTR 4F13736 TNX C3360,1,1 TEST FOR SIX CHARS IN AC DEC IR1 4F13737 LDQ BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS 4F13738 C3359 LGL 6 ADD BLANKS 4F13739 TIX C3359,1,1 4F13740 C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741 CAL ALL1 GET WORD OF ONES 4F13742 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13743 REM LEVEL ANALYSIS 4F13744 LATXL CAL TXLOP 4F13745 TRA LATXL+3 4F13746 LATXH CAL TXHOP 4F13747 STP CM4105 4F13748 LA0000 LXA L(0),A 4F13749 CLA E+2 4F13750 SLT 2 IS THIS A FUNCTION NAME 4F13751 TRA LA0000+36 NO 4F13752 SLN 2 YES - TURN F LITE BACK ON 4F13753 LXD BK,C IS FORSUB EMPTY 4F13754 TXL LA0000+13,C,0 YES. GO SET FS BITS TO 0 4F13755 SXD LA0000+12,C 4F13756 CAS FORSUB,A SEARCH FN NAME IN FORSUB 4F13757 TXI LA0000+12,A,-2 4F13758 TRA LA0000+15 4F13759 TXI LA0000+12,A,-2 4F13760 TXH LA0000+8,A,0 4F13761 STZ FSBITS SET FSBITS TO 0 4F13762 TRA LA0000+25 4F13763 CAL FORSUB+1,A FN NAME IN FORSUB 4F13764 ANA MASK2 EXTRACT TYPE NUMBER 4F13765 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F13766 TXL LA0000+22,C,0 NO 4F13767 CAS FSTYPE YES - UPDATE FS TYPE 4F13768 STA FSTYPE 4F13769 TXH 0,0 4F13770 ALS 7 4F13771 ORA FSIND 4F13772 SLW FSBITS 4F13773 LXD 3LBAR,A LOAD LA COUNTERS 4F13774 LXD NBAR,B 4F13775 LXD ABAR,C 4F13776 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 106/106 ------ TXL LA0003,A,0 4F13777 TXH LA0001,A,-1200 4F13778 TSX DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. 4F13779 LA0001 TXH LA0002,B,-301 4F13780 TSX DIAG,4 ERROR.,BETA TABLE EXCEEDED 4F13781 LA0002 TXL LA0003,C,0 4F13782 TXH LA0003,C,-139 4F13783 TSX DIAG,4 ERROR..ALPHA TABLE EXCEEDED 4F13784 LXD ARGCTR,C VARIABLE OR ( 4F13785 TXL LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0 4F13786 SXD LA0000+43,C FUNCTION STATEMENT 4F13787 CAS ARGREG,A SEARCH FREE VARIABLE TABLE 4F13788 TXI LA0000+43,A,-1 4F13789 TRA MS1018 4F13790 TXI LA0000+43,A,-1 4F13791 TXH LA0000+39,A,0 4F13792 TRA LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 4F13793 MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794 ARS 11 4F13795 TRA LA0000+23 4F13796 LA0003 CLA MS9002 4F13797 STA LA4320 4F13798 PXD 0,0 4F13799 LDQ E+2 4F13800 STQ LAMBDA+11,A 4F13601 STQ LAMBDA+8,A 4F13802 STQ LAMBDA+5,A 4F13803 LGL 6 4F13804 STO FIRSTC 4F13805 SUB OPEN 4F13606 TZE LA003 4F13807 CLA MS4007 4F13808 SLT 2 4F13809 TRA LA002 4F13810 SLN 2 4F13811 CLA FINI03 4F13812 LA002 STA LA4320 4F13813 LA003 CLA E 4F13814 STO LAMBDA+9,A 4F13815 STO LAMBDA+6,A 4F13816 STO LAMBDA+3,A 4F13817 CAL ADSPOP 4F13818 SLW LAMBDA+13,A 4F13819 SLW LAMBDA+10,A 4F13820 SLW LAMBDA+7,A 4F13821 PXD ,0 4F13822 LDQ E+1 4F13823 STQ LAMBDA+1,A 4F13824 LGL 6 4F13825 CAS STAR 4F13826 TRA LA0015 / SIGN 4F13827 TRA LA0010 , OR ,, SIGN 4F13828 SLT 2 + OR - SIGN 4F13829 TRA LA0044 4F13830 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 107/107 ------ TXI MS1033,B,-3 -N TO -(N+3) 4F13831 MS1033 PXD ,B 4F13832 ARS 18 4F13833 STO LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2 4F13834 TXI FINI03,B,1 -(N+3) TO - (N+2) 4F13835 FINI03 PXD CM4300,B 4F13836 ARS 18 4F13837 SSM 4F13838 STO LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4) 4F13839 LA0041 SLT 1 4F13840 TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841 TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842 LA0044 CLA FIRSTC 4F13843 CAS OPEN EXAMINE SYMBOL 4F13844 TRA LA0050 4F13845 TXI LA0058,B,-3 -N TO -(N+3) 4F13846 LA0050 SLT 1 4F13847 TXI LA4000,B,-1 UNARY... -NTO -(N+1) 4F13848 TXI LA1000,B,-1 BINARY... -N TO -(N+1) 4F13849 LA0058 PXD ,B 4F13850 ARS 18 4F13851 STO LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2 4F13852 ADD L(1) FORM -(N+2) IN ADD (ACC) 4F13853 TXI LA0041,2,1 4F13854 LA0010 TQP LA0015 GO TO * ROUTINE 4F13855 SLT 2 ** 4F13856 TRA LA0072 4F13857 TXI L23000,B,-1 -N TO -(N+1) 4F13858 LA0072 CLA FIRSTC 4F13859 SUB OPEN 4F13860 TNZ LA2000 4F13861 TXI L22000,B,-1 -N TO -(N+1) 4F13862 LA0015 SLT 2 * OR / 4F13863 TRA LA0021 4F13864 TXI L33000,B,-2 -N TO -(N+2) 4F13865 LA0021 CLA FIRSTC 4F13866 CAS OPEN 4F13867 TXI LA3000,B,-1 4F13868 TXI L32000,B,-2 -N TO -N(+2) 4F13869 TXI LA3000,B,-1 4F13870 L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871 CLS L(0) 4F13872 STO LAMBDA+9,A STO -0 IN LAMBDA +3(L+3) 4F13873 SLN 1 4F13874 LA1000 CLS CBAR 4F13875 ARS 18 4F13876 SLW ALPHA,C STO -C IN ALPHA+A 4F13877 TXI LA1040,C,-3 -A TO - (A+3) 4F13878 LA1040 SXD ABAR,C 4F13879 TRA LA4010 4F13880 L22000 PXD ,B 4F13881 ARS 18 4F13882 STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13883 ADD L(1) 4F13884 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 108/108 ------ TXI L23130,B,1 -(N+1) TO -N 4F13885 L23000 PXD ,B 4F13886 ARS 18 4F13887 STO LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2 4F13888 ADD L(1) 4F13889 SSM 4F13890 TXI L23090,B,1 -(N+1) TO -N 4F13891 L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892 L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893 CLS L(0) 4F13894 STO LAMBDA+3,A STO -0 IN LAMBDA+3(L+11 4F13895 SLN 1 4F13896 LA2000 CLS ALPHA-1,C 4F13897 STO LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L 4F13898 CLA NBAR 4F13899 TXI LA4180,A,6 4F13900 L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901 CLS L(0) 4F13902 STO LAMBDA+9,A STO -0 IN LAMBDA+3(L+3) 4F13903 SLN 1 4F13904 LA4000 CLS ALPHA-3,C 4F13905 LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906 CLS NBAR 4F13907 ARS 18 4F13908 SLW ALPHA-2,C STO-N IN ALPHA+A-2 4F13909 SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13910 STO LAMBDA+3,A STO -N IN LAMBOA+3(L+1) 4F13911 PXD ,B 4F13912 ARS 18 4F13913 STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13914 STO ALPHA-1,C STO-(N+1) IN ALPHA+A-1 4F13915 SSM 4F13916 STO LAMBDA+6,A STO -(N+1) IN LAMBDA+3(L+2) 4F13917 TXI LA4150,B,-1 -(N+1) TO -(N+2) 4F13918 LA4150 CAL ADSTAR 4F13919 SLW LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1 4F13920 LA4170 PXD ,B 4F13921 LA4180 ARS 18 ' 4F13922 STO LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2 4F13923 ORS LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3) 4F13924 CAL STRSTR 4F13925 SLW LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1 4F13926 CAL ADSPOP 4F13927 ORA FSBITS 4F13928 ORA FNBITS 4F13929 SLW LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1 4F13930 LA4320 TXI **,A,-9 4F13931 L32000 PXD ,B 4F13932 ARS 18 4F13933 STO LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2 4F13934 ADD L(1) 4F13935 TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936 L33000 PXD ,B 4F13937 ARS 18 4F13938 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 109/109 ------ STO LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2 4F13939 ADD L(1) 4F13940 SSM 4F13941 TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942 L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943 L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944 CLS L(0) 4F13945 STO LAMBDA+6,A 4F13946 SLN 1 4F13947 LA3000 CLS ALPHA-2,C 4F13948 STO LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L 4F13949 CLS NBAR 4F13950 ARS 18 4F13951 SLW ALPHA-1,C STO -N IN ALPHA+A-1 4F13952 SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13953 STO LAMBDA+3,A STO -N IN LAMBDA+3(L+1) 4F13954 TXI LA4170,A,3 4F13955 CM4100 TXI CM4101,A,-3 LA COUNTER MODIFICATION ROUTINES 4F13956 CM4101 SXD 3LBAR,A 4F13957 CM4102 SXD CBAR,B 4F13958 TXI CM4104,B,-1 4F13959 CM4104 SXD NBAR,B 4F13960 CM4105 *** MS010,0 4F13961 MS020 CAL ADSTAR 4F13962 TRA MS030 4F13963 CM4200 TXI CM4201,A,-3 4F13964 CM4201 SXD 3LBAR,A 4F13965 TXI CM4303,C,-1 4F13966 CM4300 TXI CM4301,A,-6 4F13967 CM4301 SXD 3LBAR,A 4F13968 TXI CM4303,C,-1 4F13969 CM4303 SXD ABAR,C 4F13970 TXI CM4102,B,-1 4F13971 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972 REM 4F13973 REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 4F13974 C3390 SXD C3357,1 SAVE CALLING IR 4F13975 SLW 1G MOVE WORD TO BE ENTERED TO 1G 4F13976 TSX TET00,1 GO TO ENTER WORD IN HOLARG TABLE 4F13977 13 4F13978 CLA HOLCNT 4F13979 ADD L(1) UPDATE HOLCNT 4F13980 STO HOLCNT 4F13981 LXD C3357,1 RELOAD CALLING IR 4F13982 TRA 1,1 RETURN TO CALLER+1 4F13983 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984 REM 4F13985 REM PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 4F13986 REM SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987 SS000X SXD SSIR4,4 SAVE CALLING TAG. 4F13988 TSX SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989 TSX RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990 CAL GTAG 4F13991 ANA MASK1 4F13992 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 110/110 ------ SLW E+11 4F13993 TSX SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. 4F13994 ALS 15 POSITION SIGMA TAG. 4F13995 ORS E ADD SIGMA TAG TO I-TAU TAGS IN E. 4F13996 LXD SSIR4,4 RELOAD CALLING TAG. 4F13997 TRA 1,4 RETURN TO CALLER +1. 4F13998 REM 4F13999 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000 REM 4F14001 REM ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG. 4F14002 REM ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 4F14003 REM ARITHMETIC. 4F14004 REM ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS, 4F14005 ROYCNV STO N SAVE DECIMAL DIGIT IN N. 4F14006 SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14007 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14008 CLA CM1 PICK UP SWITCH CONTROL. 4F14009 EXIT TXI IN2,0,** AND GO SET SWITCH. 4F14010 REM DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011 DECPNT STZ N CLEAR N (NO INTEGER). 4F14012 SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14013 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14014 NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016 STP CM3 CM3. 4F14017 TOV NC5 TURN OFF OV TRIGGER. 4F14018 NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14019 SLW CHSAVE SAVE IT FOR STATE B, AND THEN 4F14020 CAS L(H) COMPARE IT WITH H. 4F14021 TXI NC1,0 IF H, GO TO HEXIT, 4F14022 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023 NC1 CAS TEN AND COMPARE WITH TEN. 4F14024 CM1 TXL NC2,0 CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025 PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14026 STO H CHARACTER IS NUMERIC SO HOLD IT. 4F14027 CLA N MULTIPLY THE PREVIOUS 4F14028 ALS 2 PARTIAL RESULT (OR ZERO) 4F14029 ADD N BY 10, 4F14030 ALS 1 AND ADD IN 4F14031 ADD H THE CURRENT DIGIT. 4F14032 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033 TOV NC4 TEST OVERFLOW, AND 4F14034 STO N IF NONE, SAVE NEW PARTIAL RESULT. 4F14035 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14036 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037 TXI CM3,0 IF GREATER THAN 27, GO OUT. 4F14038 TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039 CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040 TXI CM3,0 IF GREATER THAN 21, GO OUT. 4F14041 TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043 CLA N PICK UP CONVERTED CONSTANT, AND 4F14044 MS9506 ALS 18 STORE IN THE 4F14045 STO G DECREMENT OF G, AND 4F14046 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 111/111 ------ TSX FXCNIX,4 * GO MAKE FIXCON ENTRY. 4F14047 ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048 TXI EXITR,0 GO TAKE EXITR. 4F14049 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050 STO N SAVE PARTIAL RESULT, AND 4F14051 CLS L(1) SUBTRACT 1 FROM DOE 4F14052 NC9 ADD DOE TO ADJUST EXPONENT 4F14053 STO DOE IN FINAL RESULT. 4F14054 NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055 NC4 CLA L(1) ADD 1 TO DOE , 4F14056 TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057 EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14058 SLW CHSAVE SAVE IT FOR STATE B, AND 4F14059 STZ EKE CLEAR EKE (EXPLICIT EXPONENT). 4F14060 CAS 11Z COMPARE CHARACTER WITH A DASH. 4F14061 TXI FN5,0 IF GREATER THAN 32, GO OUT. 4F14062 TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063 CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS. 4F14064 TXI FN5,0 IF GREATER THAN 16, GO OUT. 4F14065 TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066 CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS. 4F14067 TXI FN5,0 IF GREATER THAN 12, GO OUT. 4F14068 EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069 CAS TEN COMPARE WITH TEN. 4F14070 TXI FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071 EC4 PXD ,0 CLEAR ACC, 4F14072 EC5 STO EKE SAVE PARTIAL RESULT(OR 0)IN EKE. 4F14073 EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14074 SLW CHSAVE SAVE IT FOR STATE B, 4F14075 CAS TEN AND COMPARE WITH TEN. 4F14076 TXI FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077 PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14078 STO H CHARACTER IS NUMERIC, SO HOLD IT. 4F14079 CLA EKE MULTIPLY THE PREVIOUS 4F14080 ALS 2 PARTIAL RESULT (OR ZERO) 4F14081 ADD EKE BY 10, 4F14082 ALS 1 AND ADD IN 4F14083 ACL H THE CURRENT DIGIT. 4F14084 TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085 FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086 ADD DOE WITH IMPLICIT EXPONENT, 4F14087 STO DOE AND SAVE IN DOE. 4F14088 FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089 TZE MS9500 FLO PT CONSTANT RETURN. 4F14090 STA K1 PUT INTEGER INTO FLO PT WORD, 4F14091 ARS 15 ADJUST, AND 4F14092 TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093 ORA K2 AFFIX CORRECT EXPONENT. 4F14094 FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095 RQL 8 OF INTEGER CONVERSION, AND 4F14096 RND ROUND --TO OBTAIN 4F14097 ORA K3 NORMALIZED RESULT. 4F14098 LXA DOE,1 EXAMINE THE C(DOE), AND 4F14099 TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. 4F14100 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 112/112 ------ TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101 TXI CER,0 ERROR. -GO TO DIAGNOSTIC 4F14102 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP, 4F14104 FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A 4F14105 STQ N SUITABLE CONSTANT 4F14106 CLA N TO ADJUST RESULT 4F14107 ACL K4 AND TEST FOR OUT OF RANGE. 4F14108 PBT IF P=I, SKIP TO ARITH RETURN. 4F14109 TXI CER,0 ERROR. --GO TO DIAGNOSTIC 4F14110 MS9500 STO G STORE IN G, AND 4F14111 TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113 EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114 LXD EXIT,4 RESTORE THE C(XR4), AND 4F14115 TRA 2,4 * RETURN TO MAIN ROUTINE. 4F14116 FN3 STO N IF INTEGER WAS SITUATED 4F14117 LDQ N TO THE LEFT OF THE DECIMAL POINT, 4F14118 FMP TAB,1 MULTIPLY BY A SUITABLE 4F14119 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120 PBT IF P=I, SKIP TO ERROR, 4F14121 TXI MS9500,0 RETURN TO ARITHMETIC ROUTINE, 4F14122 CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123 HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F14125 REM 4F14126 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128 K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131 L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132 REM 4F14133 OCT 375536246150 48-TABLE USED BY ROYCNV. 4F14134 OCT 372430204754 47-TABLE USED BY ROYCNV. 4F14135 OCT 366700324573 46-TABLE USED BY ROYCNV. 4F14136 OCT 363546566774 45-TABLE USED BY ROYCNV. 4F14137 OCT 360436770626 44-TABLE USED BY ROYCNV. 4F14138 OCT 354713132675 43-TABLE USED BY ROYCNV. 4F14139 OCT 351557257061 42-TABLE USED BY ROYCNV. 4F14140 OCT 346445677215 41-TABLE USED BY ROYCNV. 4F14141 OCT 342726145174 40-TABLE USED BY ROYCNV. 4F14142 OCT 337570120775 39-TABLE USED BY ROYCNV. 4F14143 OCT 334454732312 38-TABLE USED BY ROYCNV. 4F14144 OCT 330741367020 37-TABLE USED BY ROYCNV, 4F14145 OCT 325601137163 36-TABLE USED BY ROYCNV. 4F14146 OCT 322464114134 35-TABLE USED BY ROYCNV. 4F14147 OCT 316755023372 34-TABLE USED BY ROYCNV. 4F14148 OCT 313612334310 33-TABLE USED BY ROYCNV. 4F14149 OCT 310473426555 32-TABLE USED BY ROYCNV. 4F14150 OCT 304770675742 31-TABLE USED BY ROYCNV. 4F14151 OCT 301623713116 30-TABLE USED BY ROYCNV. 4F14152 OCT 276503074076 29-TABLE USED BY ROYCNV. 4F14153 OCT 273402374713 28-TABLE USED BY ROYCNV. 4F14154 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 113/113 ------ OCT 267635456171 27-TABLE USED BY ROYCNV. 4F14155 OCT 264512676456 26-TABLE USED BY ROYCNV. 4F14156 OCT 261410545213 25-TABLE USED BY ROYCNV. 4F14157 OCT 255647410337 24-TABLE USED BY ROYCNV. 4F14158 OCT 252522640262 23-TABLE USED BY ROYCNV. 4F14159 OCT 247417031702 22-TABLE USED BY ROYCNV. 4F14160 OCT 243661534466 21-TABLE USED BY ROYCNV. 4F14161 OCT 240532743536 20-TABLE USED BY ROYCNV. 4F14162 OCT 235425434430 19-TABLE USED BY ROYCNV. 4F14163 OCT 231674055530 18-TABLE USED BY ROYCNV. 4F14164 OCT 226543212741 17-TABLE USED BY ROYCNV. 4F14165 OCT 223434157116 16-TABLE USED BY ROYCNV. 4F14166 OCT 217706576512 15-TABLE USED BY ROYCNV. 4F14167 OCT 214553630410 14-TABLE USED BY ROYCNV. 4F14168 OCT 211443023471 13-TABLE USED BY ROYCNV. 4F14169 OCT 205721522451 12-TABLE USED BY ROYCNV. 4F14170 OCT 202564416672 11-TABLE USED BY ROYCNV. 4F14171 OCT 177452013710 10-TABLE USED BY ROYCNV. 4F14172 OCT 173734654500 09-TABLE USED BY ROYCNV. 4F14173 OCT 170575360400 08-TABLE USED BY ROYCNV. 4F14174 OCT 165461132000 07-TABLE USED BY ROYCNV. 4F14175 OCT 161750220000 06-TABLE USED BY ROYCNV. 4F14176 OCT 156606500000 05-TABLE USED BY ROYCNV. 4F14177 OCT 153470400000 04-TABLE USED BY ROYCNV. 4F14178 OCT 147764000000 03-TABLE USED BY ROYCNV. 4F14179 OCT 144620000000 02-TABLE USED BY ROYCNV. 4F14180 OCT 141500000000 01-TABLE USED BY ROYCNV. 4F14181 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182 REM END OF PROGRAM ROYCNV. 4F14183 REM ****************************** *4F14184 REM 4F14185 SIG1ST PZE SIGMA1+2,,1 4F14186 ENDBDR BSS 0 4F141865 REM 4F14187 ENDB ORG 2701 4F14188 ARGREG BSS 50 4F14189 CBAR BSS 1 4F14190 ABAR BSS 1 4F14191 FSTYPE BSS 1 4F14192 FSBITS BSS 1 4F14193 FNBITS BSS 1 4F14194 FNCTR BSS 1 4F14195 ALPHA BSS 139 4F14196 LAMBDA BSS 1200 4F14197 REM END OF ARITHMETIC / STATE B. 4F14198 REM ****************************** *4F14199 REM 4F14200 REM ARITHMETIC / STATE C= 4F14201 REM 704 FORTRAN MASTER RECORD CARD / STATE C = F0170000. 4F14202 ORG 0 4F142021 PZE ORGC,,DMWR03 4F142022 PZE ENDC-1 4F142023 REM 4F14203 REM STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE, 4F14204 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 114/114 ------ REM 4F14205 ORGC ORG 1824 4F14206 R00000 LDQ L(0) CLEAR MQ 4F14207 LXD NBAR,A LDXA WITH -N 4F14208 SXD R00700,A 4F14209 SXD R05200,A 4F14210 SXD AS0800,A 4F14211 SXD AS2900,A 4F14212 LXA L(0),7 CLEAR XA,XB,XC, 4F14213 R00500 STQ BETA,B 4F14214 TXI R00700,B,-1 4F14215 R00700 TXH R00500,B,0 4F14216 CLA 3LBAR 4F14217 STD R01700 4F14218 STD R06200 4F14219 R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220 PAX 0,B 4F14221 CLA BETA,B 4F14222 ADD BETAD1 (-3)*2**18+(-3) 4F14223 STD BETA,B 4F14224 STA BETA,B 4F14225 TXI R01700,A,-3 4F14226 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227 R01800 TXH R04200,A,-6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228 CLA LAMBDA-3,A 4F14229 PAX 0,B 4F14230 CLA BETA,B 4F14231 SUB BETAD1 4F14232 TZE R02600 4F14233 TXI R01800,A,3 4F14234 R02600 LDQ LAMBDA-2,A SINGLE ELEMENT 4F14235 LGL 6 EXAMINE OPERATION 4F14236 SUB 11Z 4F14237 TNZ R03200 4F14238 TXI R01800,A,3 4F14239 R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240 ANS LAMBDA-3,A EXTRACT TAGS AND STORE BACK 4F14241 CLA LAMBDA-6,A 4F14242 ORA LAMBDA-3,A 4F14243 SLW LAMBDA-6,A 4F14244 CAL LAMBDA-2,A EXTRACT FS BITS AND STORE BACK 4F14245 ANA MASK5 4F14246 ORS LAMBDA-5,A 4F14247 CAL LAMBDA-1,A STORE BACK SYMBOL 4F14248 SLW LAMBDA-4,A 4F14249 STZ BETA,3 REDUCE GAMMA COUNT TO 0 4F14250 STZ LAMBDA-3,A CLEAR TAG WORD 4F14251 TXI R01800,A,3 RESUME SCAN-BACK 4F14252 R04200 STZ G 4F14253 LXA L(0),7 CLEAR XA,XB,XC 4F14254 R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255 TZE R05100 4F14256 LDQ G 4F14257 SLQ BETA,B 4F14258 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 115/115 ------ ADD G 4F14259 STD G 4F14260 R05100 TXI R05200,B,-1 4F14261 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262 R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263 TZE R06100 4F14264 SLW LAMBDA,C 4F14265 CLA LAMBDA+1,A 4F14266 STO LAMBDA+1,C 4F14267 CLA LAMBDA+2,A 4F14268 STO LAMBDA+2,C 4F14269 TXI R06100,C,-3 4F14270 R06100 TXI R06200,A,-3 4F14271 R06200 TXH R05300,A,0 4F14272 SXD R07800,C -3P IN XC AT END 4F14273 SXD CS0760,C 4F14274 LXA L(0),A 4F14275 R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276 PAX 0,B IN SCRIPL TABLE 4F14277 CLA BETA,B 4F14278 PDX 0,C 4F14279 CLA LAMBDA,A 4F14260 STO SCRIPL,C 4F14281 CLA LAMBDA+1,A 4F14282 STO SCRIPL+1,C 4F14283 CLA LAMBDA+2,A 4F14284 STO SCRIPL+2,C 4F14265 TXI R07500,C,-3 4F14286 R07500 PXD 0,C 4F14287 STD BETA,B 4F14288 TXI R07800,A,-3 4F14289 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290 CS0000 LDQ L(0) ELIMINATE COMMON SEGMENTS 4F14291 CS0010 CAL SCRIPL-3,A 4F14292 TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293 CS0030 PAX 0,B 4F14294 TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295 STA CS0030 4F14296 CLA BETA,B 4F14297 CS0060 PAX 0,C 4F14298 TXL CS0090,C,-6 AT LEAST TWO ELEMENTS 4F14299 CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300 CS0090 SXD CS0470,A SAVE XA 4F14301 SXD LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT 4F14302 CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303 TXI CS0120,A,3 4F14304 CS0120 TXI CS0100,C,3 4F14305 CS0130 CAL SCRIPL-3,A 4F14306 TNZ CS0151 4F14307 TXI CS0130,A,3 ERASED SEGMENT 4F14308 CS0151 PAX 0,B 4F14309 TXL CS0610,B,0 GO ON TO NEXT SEGMENT 4F14310 STA CS0060 4F14311 CLA BETA,B 4F14312 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 116/116 ------ PAX 0,C 4F14313 PXD 0,C 4F14314 SUB LENGTH 4F14315 TNZ CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 4F14316 LXD CS0470,B SAME LENGTH SEGMENT 4F14317 SXD CS0600,A 4F14318 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319 CLA SCRIPL-1,B 4F14320 SUB SCRIPL-1,A 4F14321 TNZ CS0100 4F14322 CAL SCRIPL-3,B SYMBOLS MATCH 4F14323 ANA MASK1 4F14324 SLW G 4F14325 CAL SCRIPL-3,A 4F14326 ANA MASK1 4F14327 COM 4F14328 ACL G 4F14329 COM 4F14330 TNZ CS0100 4F14331 CLA SCRIPL-2,B TAGS MATCH 4F14332 ARS 6 4F14333 ALS 6 4F14334 SUB SCRIPL-2,A 4F14335 TNZ CS0100 4F14336 TXI CS0360,A,3 OPS MATCH 4F14337 CS0360 TXI CS0370,B,3 4F14338 CS0370 TXI CS0250,C,3 4F14339 CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340 ANA MASK2 SEARCH FOR REFERENCES 4F14341 CS0450 CAS SCRIPL-1,A 4F14342 TXI CS0450,A,3 4F14343 CS0470 TXI CS0490,0,0 4F14344 TXI CS0450,A,3 4F14345 CS0490 CLA CS0030 CHANGE REFERENCE 4F14346 STA SCRIPL-1,A 4F14347 LXD LENGTH,C 4F14348 LXD CS0600,A 4F14349 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350 STQ SCRIPL-3,A 4F14351 TXI CS0560,A,3 4F14352 CS0560 TXI CS0530,C,3 4F14353 CS0570 LXA CS0060,C 4F14354 STQ BETA,C 4F14355 CAL 11Z STORE CS BIT 4F14356 ORS SCRIPL+1,B 4F14357 CS0600 TXI CS0130,0,0 4F14358 CS0610 LXD CS0470,A 4F14359 LXD LENGTH,C 4F14360 CS0630 TXL CS0010,C,0 4F14361 TXI CS0650,A,3 4F14362 CS0650 TXI CS0630,C,3 4F14363 CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364 CS0670 CAL SCRIPL,A 4F14365 TZE CS0750 4F14366 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 117/117 ------ SLW SCRIPL,C 4F14367 CLA SCRIPL+1,A 4F14368 STO SCRIPL+1,C 4F14369 CLA SCRIPL+2,A 4F14370 STO SCRIPL+2,C 4F14371 TXI CS0750,C,-3 4F14372 CS0750 TXI CS0760,A,-3 4F14373 CS0760 TXH CS0670,A,0 4F14374 SXD PM0080,C -3Q IN XC AT END 4F14375 SXD AS1800,C 4F14376 SXD AS3600,C 4F14377 PM0000 SLF TURN OFF ALL SENSE LITES 4F14378 LXA L(0),A PERMUTE * AND / 4F14379 PM0010 CLA SCRIPL,A 4F14380 PAX 0,B 4F14381 CLA BETA,B 4F14382 PAX 0,C LDXC WITH SEGMENT LENGTH 4F14383 SXD PM0070,C 4F14384 TXL PM0100,C,-9 4F14385 PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387 TRA PM0010 4F14388 PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389 PXD 0,0 4F14390 LGL 6 4F14391 SUB STAR 4F14392 TNZ PM0070 4F14393 TQP PM0170 4F14394 TRA PM0070 4F14395 PM0170 SXD PM0260,C 4F14396 SXD PM0400,C 4F14397 SXD PM0680,C 4F14398 LXA L(0),C LDXC WITH 0 4F14399 TXI PM0240,A,-3 4F14400 PM0240 SLN 3 TURN * LITE ON 4F14401 PM0250 TXI PM0260,C,-3 4F14402 PM0260 TXL PM0790,C,0 EXIT 4F14403 SXD PM0340,C 4F14404 LXD PM0290,B 4F14405 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406 PM0300 PXD 0,0 4F14407 LDQ SCRIPL+1,A 4F14408 LGL 6 4F14409 CAS SLASH 4F14410 FEXUB HTR 0,0,7 4F14411 PM0340 TXL PM0640,0,0 / SIGN 4F14412 SLT 3 * SIGN... IS * LITE ON 4F14413 TXI PM0240,A,-3 NO 4F14414 TXI PM0390,B,-3 YES - SEARCH FOR / SIGN 4F14415 PM0390 TXI PM0400,C,-3 4F14416 PM0400 TXL PM0770,C,0 EXIT 4F14417 PXD 0,0 4F14418 LDQ SCRIPL+1,B 4F14419 LGL 6 4F14420 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 118/118 ------ SUB SLASH 4F14421 TZE PM0480 4F14422 TXI PM0390,B,-3 4F14423 PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424 LDQ SCRIPL,B 4F14425 STQ SCRIPL,A 4F14426 STO SCRIPL,B 4F14427 CLA SCRIPL+1,A PERMUTE OP WORDS 4F14428 LDQ SCRIPL+1,B 4F14429 STQ SCRIPL+1,A 4F14430 STO SCRIPL+1,B 4F14431 CLA SCRIPL+2,A PERMUTE SYMBOL WORDS 4F14432 LDQ SCRIPL+2,B 4F14433 STQ SCRIPL+2,A 4F14434 STO SCRIPL+2,B 4F14435 LXD PM0340,C 4F14436 TXI PM0250,A,-3 RESUME SEGMENT SCAN 4F14437 PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438 PM0650 TXI PM0670,B,-3 NO 4F14439 TXI PM0250,A,-3 4F14440 PM0670 TXI PM0680,C,-3 4F14441 PM0680 TXL PM0770,C,0 4F14442 PXD 0,0 4F14443 LDQ SCRIPL+1,B 4F14444 LGL 6 4F14445 SUB SLASH 4F14446 TZE PM0650 4F14447 SLN 3 TURN * LITE ON 4F14448 TRA PM0480 4F14449 PM0770 LXD PM0780,A 4F14450 PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451 PM0790 PXD 0,0 4F14452 LDQ SCRIPL-2,A 4F14453 LGL 6 4F14454 SUB SLASH 4F14455 TZE PM0080 ... / - EXIT FROM SEGMENT SCAN 4F14456 PXD 0,0 4F14457 LDQ SCRIPL-5,A 4F14458 LGL 6 4F14459 SUB SLASH 4F14460 TZE PM0080 ... / * - EXIT FROM SEGMENT SCAN 4F14461 CLA SCRIPL-3,A ... ** 4F14462 STO E 4F14463 CLA SCRIPL-2,A 4F14464 STO E+1 4F14465 CLA SCRIPL-1,A 4F14466 STO E+2 4F14467 TXI PM0980,A,3 4F14468 PM0980 TXI PM0990,C,3 4F14469 PM0990 TXL PM1070,C,0 FINIS 4F14470 CLA SCRIPL-3,A 4F14471 STO SCRIPL,A 4F14472 CLA SCRIPL-2,A 4F14473 STO SCRIPL+1,A 4F14474 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 119/119 ------ CLA SCRIPL-1,A 4F14475 STO SCRIPL+2,A 4F14476 TXI PM0980,A,3 4F14477 PM1070 CLA E 4F14478 STO SCRIPL,A 4F14479 CLA E+1 4F14480 STO SCRIPL+1,A 4F14481 CLA E+2 4F14482 STO SCRIPL+2,A 4F14483 CAL SCRIPL+4,A PRESERVE CS BIT 4F14484 ANA 11Z 4F14485 ORS SCRIPL+1,A 4F14486 TRA PM0070 4F14487 AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488 AS0100 CLA BETA,B 4F14489 TZE AS0700 4F14490 PXD 0,C 4F14491 ARS 18 4F14492 STA BETA,B 4F14493 TXI AS0700,C,-1 4F14494 AS0700 TXI AS0800,B,-1 4F14495 AS0800 TXH AS0100,B,0 4F14496 AS0900 CLA SCRIPL,A 4F14497 PAX 0,B 4F14498 CLA BETA,B 4F14499 STA SCRIPL,A 4F14500 LDQ SCRIPL+2,A 4F14501 LGL 1 4F14502 LBT 4F14503 TQP AS2000 4F14504 TXI AS1800,A,-3 4F14505 AS1800 TXH AS0900,A,0 4F14506 TRA AS2500 4F14507 AS2000 LGL 35 4F14508 PAX 0,B 4F14509 CLA BETA,B 4F14510 STA SCRIPL+2,A 4F14511 TXI AS1800,A,-3 4F14512 AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513 LDQ L(0) CLEAR MQ 4F14514 AS2700 STO BETA,B RECLEAR BETA TABLE 4F14515 TXI AS2900,B,-1 4F14516 AS2900 TXH AS2700,B,0 4F14517 AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518 PAX 0,B 4F14519 CLA BETA,B 4F14520 ADD BETAD2 3*2**18+(-3) 4F14521 STD BETA,B 4F14522 STA BETA,B 4F14523 TXI AS3600,A,-3 4F14524 AS3600 TXH AS3000,A,0 -30 IN XA AT END 4F14525 SXD 3QBAR,A -30 TO 3QBAR = 3LBAR 4F14526 CCS000 CAL SCRIPL-3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527 PAX 0,B LOAD XB WITH S(1) 4F14528 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 120/120 ------ TXL CCS240,B,0 EXIT AT S(O) 4F14529 CAL BETA,B OBTAIN LENGTH OF S(I) 4F14530 STD CCS060 AND BACK UP TO 4F14531 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532 CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533 ANA 11Z EXTRACT CS-BIT 4F14534 TZE CCS000 CONTINUE TO S(I-1) 4F14535 PXD 0,B 4F14536 ARS 18 4F14537 LXA L(0),C TO S(I) 4F14538 LXD CCS140,B AND KEEP COUNT OF SAME 4F14539 CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT 4F14541 CAS SCRIPL-1,B 4F14542 TXI CCS150,B,3 CONTINUE SEARCH 4F14543 TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544 CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545 CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546 CAL MASK4 SINGLE REFERENCE - SO SET 4F14547 ANS SCRIPL+1,A OP1(S(I))3O TO O, AND 4F14548 TRA CCS000 CONTINUE FOR S(I-1) 4F14549 CCS240 LXD AS3600,A -3Q TO XA 4F14550 PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551 CLA SCRIPL-3,A 4F14552 PAX 0,B 4F14553 CAL BETA,B 4F14554 PAX 0,C 4F14555 STD PL0060 4F14556 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557 PL0070 PXD 0,0 4F14558 LDQ SCRIPL+1,A OBTAIN 4F14559 LGL 6 AND 4F14560 CAS SPECOP EXAMINE OP1 (S(I)) 4F14561 TRA PL0680 4F14562 TRA PL0460 4F14563 PL0130 PXD 0,0 0P1 (S(I)) IS +, - OR * 4F14564 LDQ SCRIPL+2,A OBTAIN 4F14565 LGL 1 AND 4F14566 LBT EXAMINE SYM1 (S(I)) 4F14567 TQP PL0300 4F14568 LGL 5 EX (IN)TERNAL VARIABLE 4F14569 PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570 CAS L(0) 4F14571 TRA PL0240 FLO PT... SET 0P1 (S(I)) 32 = 1 4F14572 TRA PL0240 FLO PT... DITTO 4F14573 TRA PL0000 FIX PT... OP1 (S(I)) 32 = 0 4F14574 PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575 PL0250 ORS SCRIPL+1,A 4F14576 PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578 PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579 PL0320 SXD PL0330,C 4F14580 PL0330 TXI PL0340,B,0 4F14581 PL0340 CAL SCRIPL,B 4F14582 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 121/121 ------ PAX 0,C 4F14583 ANA MASK2 4F14584 SUB SCRIPL+2,A 4F14585 TZE PL0420 4F14586 CLA BETA,C 4F14587 PAX 0,C 4F14588 TRA PL0320 4F14589 PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590 ANA L(8) EXTRACT OP1 (S(J)) 32 AND GO 4F14591 TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592 PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593 TQP PL0465 4F14594 PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595 PXD 0,0 EXAMINE SUM1 (S(I)) S,1-5 4F14596 LGL 6 4F14597 SUB L(X) 4F14598 TNZ PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 4F14599 TRA PL0000 FIX PT ... OP1 (S(I)) 32 = 0 4F14600 PL0465 LBT 4F14601 TRA PL0470 4F14602 LDQ SCRIPL+2,A 4F14603 PXD ,0 4F14604 LGL 6 4F14605 TRA PL0135 4F14606 PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607 LXA L(0),B 4F14608 PL0480 CAS OPSUB,B 4F14609 TXI PL0520,B,-1 4F14610 TRA PL0650 4F14611 TXI PL0520,B,-1 4F14612 PL0520 TXH PL0480,B,-20 4F14613 STO G 4F14614 SXD PL0260,A 4F14615 TSX TET00,A 4F14616 HTR 9 4F14617 LXD PL0260,A 4F14618 TRA PL0461 4F14619 PL0650 CAL L(4) SET OP1 (S(I)) 33 =I 4F14620 ORS SCRIPL+1,A 4F14621 TRA PL0461 4F14622 PL0680 TQP PL0130 4F14623 PXD 0,0 OP1 (S(I) IS ** 4F14624 LDQ SCRIPL+2,A OBTAIN AND 4F14625 LGL 1 EXAMINE 4F14626 LBT SYM1 (S(I)) 4F14627 TQP PL1000 4F14628 LGL 5 EX (IN)TERNAL VARIABLE 4F14629 CAS L(H) IS OT FIX OR FLO PT 4F14630 CAS L(0) 4F14631 TRA PL0800 4F14632 TRA PL0800 4F14633 TRA PL0830 FIX PT 4F14634 PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635 PL0820 ORS SCRIPL+1,A 4F14636 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 122/122 ------ PL0830 PXD 0,0 4F14637 LDQ SCRIPL+5,A OBTAIN 4F14638 LGL 1 AND 4F14639 LBT EXAMINE 4F14640 TQP PL1200 SYM2 (S(I)) 4F14641 LGL 5 4F14642 CAS L(H) 4F14643 CAS L(0) 4F14644 TRA PL0940 SYM2 (S(I)) IS FLO PT, SO GO 4F14645 TRA PL0940 SET OP2 (S(I)) 32 = 1 4F14646 PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647 LGL 6 4F14648 SUB OPEN 4F14649 TNZ PL0000 SYM2 (S(I)) IS EXTERNAL 4F14650 LGL 25 SYM2 (S(I)) IS INTERNAL (AND FIX PT) 4F14651 ADD PL0880 4F14652 STA PL0850 4F14653 RDR FXCODR 4F14654 LDA PL0850 4F14655 CPY G 4F14656 CPY 6+1 4F14657 CLA G 4F14658 CAS G+1 4F14659 TRA *+2 GO TO THE DIAGNOSTIC 4F14660 TRA PL1570 4F14661 TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F14662 PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663 CAS FEXUB 4F14664 PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665 TRA PL0000 OP1 (S(I)) 33 = 0 4F14666 STO SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP 4F14667 CAL L(4) AS SYM2 (S(I)) AND SET 4F14668 ORS SCRIPL+1,A OP1 (S(I)) 33 = 1 4F14669 TRA PL0000 4F14670 PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671 ORS SCRIPL+4,A SET OP2 (S(I)) 32 = 1 4F14672 TRA PL0000 4F14673 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674 PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675 PL1020 SXD PL1030,C 4F14676 PL1030 TXI PL1040,B,0 4F14677 PL1040 CAL SCRIPL,B 4F14678 PAX 0,C 4F14679 ANA MASK2 4F14680 SUB SCRIPL+2,A 4F14681 TZE PL1130 4F14682 CLA BETA,C 4F14683 PAX 0,C 4F14684 TRA PL1020 4F14685 PL1130 CAL SCRIPL+1,B 4F14686 ANA L(8) 4F14687 TRA PL0820 4F14688 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 123/123 ------ PL1220 LXD PL1330,C LKXC WITH -6 4F14691 PL1230 SXD PL1240,C 4F14692 PL1240 TXI PL1250,B,0 4F14693 PL1250 CAL SCRIPL,B 4F14694 PAX 0,C 4F14695 ANA MASK2 4F14696 SUB SCRIPL+5,A 4F14697 TZE PL1340 SYM2(S(I)) = S(K) 4F14698 CLA BETA,C 4F14699 PAX 0,C 4F14700 PL1330 TXI PL1230,0,-6 4F14701 PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32 4F14702 ANA L(8) 4F14703 ORS SCRIPL+4,A 4F14704 TRA PL0000 RESUME SCAN 4F14705 LK0000 LXD AS3600,A -3Q TO XA 4F14706 LK0030 CAL SCRIPL-3,A 4F14707 PAX 0,B S(I) TO XB 4F14708 TXL LK1610,8,0 EXIT UPON ENCOUNTERING S(0) 4F14709 LDQ SCRIPL-2,A PLACE LAST OP OP S(I) IN MQ 4F14710 CLA BETA,B 4F14711 STD LK0110 4F14712 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713 LK0120 LXD LK0130,C 4F14714 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715 LK0140 SXD AS3600,A 4F14716 CLA BETA-1,B 4F14717 PDX 0,B LENGTH OF S(I-1) TO XB 4F14718 SXD LK0180,B 4F14719 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720 LK0190 TQP LK1200 S(I) TYPE AC 4F14721 RQL 1 4F14722 TQP LK1200 S(I) TYPE AC 4F14723 CAL 12Z S(I) RESULTS IN MQ (TYPE MQ) 4F14724 ORS SCRIPL+1,A SET OP1 (S(I)) 31 = 1 4F14725 PXD 0,0 4F14726 LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ 4F14727 LGL 6 4F14728 CAS SPECOP 4F14729 TRA LK0320 4F14730 TRA LK0950 4F14731 TRA LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 4F14732 LK0320 TQP LK0570 4F14733 LGL 27 S(I)TYPE MQ, OP1(S(I-1) = ** 4F14734 CAL SCRIPL,A 4F14735 ANA MASK2 EXTRACT S(I) IN ACC 4F14736 TQP LK0480 OP1 (S(I-1)) 33 = 0 4F14737 SUB SCRIPL+2,C OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE. 4F14738 TNZ LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 4F14739 CAL L(3) S(I) = SYM1 (S(I-1)), SO 4F14740 LK0430 ORS SCRIPL+1,C 4F14741 LK0440 CAL BIT29 4F14742 ORS SCRIPL+1,A 4F14743 TRA LK0030 OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES 4F14744 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 124/124 ------ LK0480 SUB SCRIPL+5,C 4F14745 TNZ LK0030 SET OPKS(I))29=OPKS(I-1))35=0 4F14746 CAL L(1) S(I) = SYM2 (S(I-1)), SO 4F14747 ORS SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 4F14748 TRA LK0440 4F14749 LK0570 PXD 0,0 S(I) TYPE MO, OP1 (S(I-1)) = * 4F14750 LDQ SCRIPL+4,C PLACE PO2 (S(I-1)) IN MQ 4F14751 LGL 6 IS OP2 (S(I-1)) = * 4F14752 SUB STAR 4F14753 TNZ LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754 CAL L(2) YES 4F14755 ORS SCRIPL+1,C SET OP1(S(I-1))34=1 4F14756 LK0630 CAL SCRIPL,A 4F14757 ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14758 LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759 CAS SCRIPL-1,A 4F14760 TXI LK0700,A,3 4F14761 TRA LK0710 4F14762 TXI LK0700,A,3 NOT FOUND - CONTINUE SEARCH 4F14763 LK0700 TXI LK0650,B,-3 4F14764 LK0710 LDQ SCRIPL-2,A S(I) IS SYMJ (S(I-1)) 4F14765 RQL 1 IS OPJ (S(I-1)) = * 4F14766 TQP LK0750 4F14767 TXI LK0700,A,3 NO... CONTINUE SEARCH 4F14768 LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769 LDQ SCRIPL-3,A EXCHANGE 4F14770 STO SCRIPL-3,A TAG 4F14771 STQ SCRIPL,C WORDS 4F14772 CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC 4F14773 LDQ SCRIPL-2,A PLACE OPJ (S(I-1)) IN MQ 4F14774 SLW SCRIPL-2,A EXCHANGE 4F14775 STQ SCRIPL+1,C OP 4F14776 ANA MASK2 WORDS AND 4F14777 ORS SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33 4F14778 CLA SCRIPL+2,C THEN 4F14779 LDQ SCRIPL-1,A EXCHANGE 4F14780 STO SCRIPL-1,A SYMBOL 4F14781 STQ SCRIPL+2,C WORDS 4F14762 LXD AS3600,A RESTORE XA 4F14783 LK0900 CAL L(1) AND 4F14784 TRA LK0430 4F14785 LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786 CAL SCRIPL,A 4F14787 ANA MASK2 EXTRACT S(I) IN ACC 4F14788 TQP LK1050 OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE) 4F14789 TXH LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 4F14790 SUB SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) 4F14791 TNZ LK0030 N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792 CAL L(3) AND 4F14793 ORS SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 4F14794 TRA LK0440 4F14795 LK1050 RQL 15 4F14796 TQP LK1100 TEST OP1(S(I-1))12 4F14797 TRA LK0030 FN-NAME 4F14798 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 125/125 ------ LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799 SUB SCRIPL+8,C CLOSED MULTIV. SBRTN 4F14800 TNZ LK0030 S(I) NOT = SYM3 (S (I-1)) 4F14801 CAL L(1) S(I) = SYM3 (S(I-1)), SO 4F14802 ORS SCRIPL+7,C SET OP3 (S(1-1)135 = 1 4F14803 TRA LK0440 4F14804 LK1200 PXD 0,0 S(I) TYPE AC 4F14805 LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MO 4F14806 LGL 6 4F14807 CAS SPECOP 4F14808 TRA LK1340 4F14809 TRA LK1470 4F14810 CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = + OR - 4F14811 ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14812 LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813 CAS SCRIPL-1,A 4F14814 TXI LK1330,A,3 4F14815 TRA LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE 4F14816 TXI LK1330,A,3 NOT FOUND... CONTINUE SEARCH 4F14817 LK1330 TXI LK1280,B,-3 4F14818 LK1340 TQP LK1410 4F14819 CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = ** 4F14820 ANA MASK2 4F14821 SUB SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) 4F14822 TNZ LK0030 NO 4F14823 TRA LK0900 YES 4F14824 LK1410 PXD 0,0 S(I) TYPE AC OP1 (S(I-1)) = * 4F14825 LDQ SCRIPL+4,C 4F14826 LGL 6 IS OP2 (S(I-1)) = 1 4F14827 SUB SLASH 4F14828 TZE LK0630 YES 4F14829 CAL L(2) NO 4F14830 ORS SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 4F14831 TRA LK0000 4F14832 LK1470 RQL 27 S(I) TYPE AC OP1 (S(I-1)) = SPOP 4F14833 CAL SCRIPL,A 4F14834 ANA MASK2 EXTRACT S(I) IN ACC 4F14835 TQP LK1530 4F14836 TXH LK0030,B,6 OPEN MULTIV. 4F14837 LK1520 TRA LK0480 4F14838 LK1530 RQL 15 4F14839 TQP LK0480 4F14840 TRA LK0030 FN-NAME 4F14841 LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842 PXD 0,0 4F14843 LDQ SCRIPL-2,A 4F14844 TXH LK1780,B,3 NO 4F14645 LGL 6 YES 4F14846 SUB 11Z IS OP (S(0)) = + OR - 4F14847 TZE LKK000 OP (S(0)) = - 4F14648 CAL SCRIPL+2 OP (S(0)) = + 4F14849 ANA MASK1 DOES SYM (S(0)) = S(1) 4F14850 TNZ LKK000 NO 4F14851 CAL SCRIPL+4 YES - PLACE OP1 (S(I)) IN ACC 4F14852 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 126/126 ------ ANA 12Z 4F14853 TZE LKK000 OP1 (S(1)) 31 = 0 4F14854 ORS SCRIPL+1 SET OP (S(0)) 31 = 1 4F14855 ALS 2 4F14856 ORS SCRIPL+4 SET OP1 (S(1)) 29 = 1 4F14857 ARS 6 4F14658 TRA LK1820 4F14859 LK1780 TQP LKK000 S(0) TYPE AC 4F14860 RQL 1 4F14861 TQP LKK000 S(0) TYPE AC 4F14862 CAL 12Z S(0) TYPE MQ, SO 4F14863 LK1820 ORS SCRIPL+1 4F14864 LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865 CAL SCRIPL-3,C 4F14866 PAX 0,8 4F14867 CLA BETA,B 4F14868 STD LKK050 4F14869 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870 LKK060 PXD 0,0 4F14871 LDQ SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ 4F14872 LGL 6 4F14873 SUB STAR 4F14874 TNZ PC0000 4F14875 TQP LKK130 4F14876 TRA PC0000 4F14877 LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878 LGL 2 4F14879 LBT 4F14880 ORS SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 4F14881 PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882 TXH PC0030,C,0 4F14883 TXI PC0040,C,1 NO 4F14884 PC0030 LXA L(0),C YES 4F14885 PC0040 CAL SCRIPL-3,A 4F14886 PAX 0,B 4F14887 TXL PC0190,B,0 EXIT AT S(0) 4F14888 CLA BETA,B 4F14889 STD PC0100 4F14890 PC0100 TXI PC0110,A,0 4F14891 PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(1)) IN MQ 4F14892 LGL 30 4F14893 LBT 4F14894 PC0140 TXI PC0160,0,300 4F14895 TQP PC0040 OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0 4F14896 PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897 STD BETA,B STORE ERAS. REL, ADD. COUNT IN BETA, 4F14898 TXI PC0040,C,1 AND UPDATE FOR NEXT SEGMENT 4F14899 PC0190 LXD PC0140,B 4F14900 PC0200 CLA BETA+300,B 4F14901 STO CPBETA+300,B 4F14902 TIX PC0200,B,1 4F14903 TRA STATED GO FETCH STATE D 4F14904 REM ******* *********************** * 4F14905 REM 4F14906 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 127/127 ------ REM DICTIONARY OF OPEN SUBROUTINES FOLLOWS 4F14907 OPSUB OCT 672122626060 XABS 4F14908 OCT 212262606060 ABS 4F14909 OCT 673145636060 XINT 4F14910 OCT 314563606060 INT 4F14911 OCT 674446246060 XMOD 4F14912 OCT 444624606060 MOD 4F14913 OCT 674421670060 XMAXO 4F14914 OCT 442167016060 MAX1 4F14915 OCT 674421670160 XMAX1 4F14916 OCT 442167006060 MAXO 4F14917 OCT 674431450060 XMINO 4F14918 OCT 443145016060 MINI 4F14919 OCT 674431450160 XMIN1 4F14920 OCT 443145006060 MIN0 4F14921 OCT 264346216360 FLOAT 4F14922 OCT 672631676060 XFIX 4F14923 OCT 623127456060 SIGN 4F14924 OCT 676231274560 XSIGN 4F14925 OCT 672431446060 XDIM 4F14926 OCT 243144606060 DIM 4F14927 BSS 10 4F14928 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929 ENDCDR BSS 0 4F149295 REM 4F14930 ENDC ORG 2596 4F14931 BETA BSS 300 4F14932 REM END OF ARITHMETIC / STATE C* 4F14933 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934 REM 4F14935 REM ARITHMETIC / STATE D= 4F14936 REM 704 FORTRAN MASTER RECORD CARD / STATE D = F0160000. 4F14937 ORG 0 4F149371 PZE ORGD,,CLDR00 4F149372 PZE ENDD-1 4F149373 REM 4F14938 ORGD ORG 1824 4F14939 MC0000 LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940 SXD MC0420,A 4F14941 LXA L(0),A 4F14942 MC0030 SXD XASAVE,A 4F14943 CAL SCRIPL,A 4F14944 MC0050 PAX ,2 S(1) TO XB 4F14945 CLA CPBETA,B 4F14946 MC0070 PAX TAU2,B 4F14947 SXD MC0410,B 4F14948 SXD MC0460,B 4F14949 TXH MC0410,B,-6 SINGLE ELEMENT - GO ONTO S(I+1) 4F14950 SLF TURN OFF ALL SENSE LITES 4F14951 PXD 0,0 CLEAR ACC 4F14952 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14953 LGL 6 4F14954 CAS SPECOP 4F14955 TQP MC0180 4F14956 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 128/128 ------ XASAVE TXI MC0410,0,0 4F14957 MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958 TQP MC0210 FIX PT 4F14959 SLN 1 FLO PT 4F14960 MC0210 PXD 0,0 4F14961 LDQ SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = I,... 4F14962 LGL 1 4F14963 LBT 4F14964 TQP MC0440 4F14965 LGL 5 SYMJ (S(I)) IS A VARIABLE 4F14966 CAS L(H) 4F14967 CAS L(0) 4F14968 XBSAVE TXI MC0340,0,0 FLO PT 4F14969 TRA MC0340 FLO PT 4F14970 MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971 TXI MC0380,B,3 OK 4F14972 TSX DIAG,4 ERROR.. FLO PT LITE ON 4F14973 MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974 TSX DIAG,4 ERROR.. FLO PT LITE OFF 4F14975 SLN 1 RESTORE FLO PT LITE 4F14976 TXI MC0380,B,3 4F14977 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978 TXI MC0210,A,-3 CONTINUE SCANNING S(I). J TO J+1 4F14979 MC0400 LXD XASAVE,A GO TO S(I+1) 4F14980 MC0410 TXI MC0420,A,0 4F14981 MC0420 TXH MC0030,A,0 4F14982 TRA CP0000 EXIT TO COMPILER 4F14983 MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984 LXD XASAVE,C 4F14985 MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986 MC0470 CAL SCRIPL,C 4F14987 ANA MASK2 EXTRACT S(K) IN ACC 4F14988 CAS SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) 4F14989 TRA MC0520 4F14990 TRA MC0570 4F14991 MC0520 PAX SIGMA1,B S(K) TO XB 4F14992 CLA CPBETA,B 4F14993 MC0540 PAX TAU1,B 4F14994 SXD MC0560,B 4F14995 MC0560 TXI MC0470,C,0 4F14996 MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997 CAL SCRIPL+1,C PLACE OP1 (S(K)) IN ACC 4F14998 ARS 3 4F14999 LBT 4F15000 TRA MC0310 S(K) IS FIX PT 4F15001 TRA MC0340 S(K) IS FLO PT 4F15002 REM 4F15003 CP0000 SLF TURN OFF ALL SENSE LITES 4F15004 STZ FNSW 4F15005 LXD ARGCTR,C IS THIS AN FS STATEMENT 4F15006 TXL CP0090,C,0 NO 4F15007 TSX CIT00,C YES - COMPILE FOUR 36 - BIT 4F15008 HTR ALL1 STRINGS IN 1 AS A PRELUDE TO 4F15009 HTR ALL1 FS STATEMENT COMPILATION 4F15010 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 129/129 ------ HTR ALL1 4F15011 HTR ALL1 4F15012 CP0090 CAL EIFNO 4F15013 ANA MASK1 4F15014 SLW CW STO INT. FORM. NO. IN DEC FIELD OF CW. 4F15015 LXD 3QBAR,A -30 TO XA 4F15016 CP0130 CLA SCRIPL-3,A EXTRACT CURRENT S(I) 4F15017 CP0140 PAX ,2 4F15018 CLA CPBETA,B 4F15019 STD PHI(I) STO ERAS. REL. ADD. IN PHI (I) 4F15020 ANA MASK2 4F15021 CP0180 PAX TAU3,B 4F15022 SXD CP0400,B 4F15023 COM 4F15024 ADD L(1) 4F15025 ALS 18 4F15026 STD CP0240 4F15027 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028 CP0250 SXD 3QBAR,A 4F15029 LDQ SCRIPL+1,A EXAMINE OP1 (S(I)) 29,30,31,32 4F15030 LGL 30 4F15031 LBT 4F15032 TRA CP0310 OP1 (S(I)) 29 = 0 4F15033 TQP CP0370 OP1 (S(I)) 30 = 0 4F15034 CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035 RQL 1 SET STORE LITE 4F15036 TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037 SLN 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE 4F15038 CP0350 RQL 1 4F15039 TRA CP0380 4F15040 CP0370 RQL 2 4F15041 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042 SLT 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW 4F15043 CP0400 TXH 0,0,0 4F15044 TRA CP0430 4F15045 CP0420 SLN 4 OP1 (S(I)) 32 = 0, SO SET FXPTSW 4F15046 CP0430 PXD 0,0 4F15047 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F15048 LGL 6 4F15049 CAS SPECOP 4F15050 TXI CP0960,0,0 4F15051 TXI CP2040,A,-3 4F15052 SUB 11Z 4F15053 TZE CP0760 4F15054 LGL 29 OP1 (S(I)) = + 4F15055 TQP CP1130 OP1 (S(I)) 35 = 0 4F15056 CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057 TXI CP0560,B,3 4F15058 CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059 SXD CP0400,B 4F15060 TXI CP0590,A,-3 4F15061 CP0590 PXD 0,0 4F15062 LDQ SCRIPL+1,A PLACE OPJ (S(I)) IN MQ 4F15063 LGL 6 4F15064 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 130/130 ------ CAS STAR 4F15065 TRA CP1200 OPJ (S(I)) = / 4F15066 TRA CP1720 OPJ (S(I)) = * 4F15067 SUB 11Z 4F15068 TZE CP0880 OPJ (S(I)) = - 4F15069 CAL L(FAD) OPJ (S(I)) = + 4F15070 SLT 4 4F15071 TRA CP0740 4F15072 SLN 4 FIX PT. RESTORE FXPTSW 4F15073 CAL L(ADD) 4F15074 CP0740 SLW CW+1 4F15075 TRA CP1690 4F15076 CP0760 LGL 29 0P1 (S(I)) = - 4F15077 TQP CP0850 4F15078 CAL L(CHS) 0P1 (S(I)) 35 = 1, SO 4F15079 SLW CW+1 COMPILE CHS FOR 1ST ELEMENT 4F15080 STZ CW+2 4F15081 STZ CW+3 4F15082 TSX COMP,B 4F15083 TRA CP0540 4F15064 CP0850 CAL L(CLS) 0P1 (S(I)) 35 = O, SO 4F15085 SLW CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT 4F15086 TRA CP1150 4F15087 CP0880 CAL L(FSB) OPJ (S(I)) = - 4F15088 SLT 4 4F15089 TRA CP0940 4F15090 SLN 4 FIX PT. RESTORE FXPTSW 4F15091 CAL L(SUB) 4F15092 CP0940 SLW CW+1 4F15093 TRA CP1690 4F15094 CP0960 TQP CP0980 4F15095 TRA CP4140 4F15096 CP0980 LGL 29 0P1 (S(I)) = * 4F15097 SLN 3 TURN LITE 3 ON 4F15098 LBT TEST 0P1 (S(I)) 34 4F15099 TRA CP1050 0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100 SLT 3 0P1 (S(I)) 34 = 1, SO TURN LITE 3 OFF 4F15101 TXH 0,0,0 4F15102 CP1050 TQP CP1070 4F15103 TRA CP0540 0P1 (S(I)) 35 = 1, SO GO MODIFY J 4F15104 CP1070 CAL L(LDQ) 0P1 (S(I)) 35 = 0 4F15105 SLT 3 4F15106 TRA CP1140 ELI (S(II) TO MQ 4F15107 SLN 3 ELI (S(II) TO ACC 4F15108 CP1130 CAL L(CLA) 4F15109 CP1140 SLW CW+1 4F15110 CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111 TSX COMP,B 4F15112 STZ CW RESET CW 4F15113 TRA CP0540 GO MODIFY J 4F15114 CP1200 SLT 3 OPJ (S(I)) = / 4F15115 TRA CP1330 4F15116 SLT 4 PREDECESSOR IN ACC 4F15117 TRA CP1670 FLO PT. 4F15118 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 131/131 ------ SLN 4 FIX PT. RESTORE FXPTSW 4F15119 TSX CIT00,C COMPILE LRS 35 4F15120 HTR L(0) 4F15121 HTR L(LRS) 4F15122 HTR L(0) 4F15123 HTR DEC35 4F15124 TRA CP1450 4F15125 CP1330 SLT 4 PREDECESSOR IN MQ 4F15126 TRA CP1570 AND SEGMENT IS 4F15127 SLN 4 FIX PT. RESTORE FXPTSW 4F15128 CP1450 CLA L(DVP) 4F15129 STO CW+1 4F15130 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15131 TSX COMP,B COMPILE DVP SYMJ (S(I)) 4F15132 TSX CIT00,C COMPILE CLM 4F15133 HTR L(0) 4F15134 HTR L(CLM) 4F15135 HTR L(0) 4F15136 HTR L(0) 4F15137 TSX CIT00,C COMPILE LLS 18 4F15138 HTR L(0) 4F15139 HTR L(LLS) 4F15140 HTR L(0) 4F15141 HTR DEC18 4F15142 TRA CP0540 GO MODIFY J 4F15143 CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144 STO CW+1 AND SEGMENT IS FLO PT 4F15145 CLA X( 4F15146 STO CW+2 4F15147 STZ CW+3 4F15148 TSX COMP,B COMPILE STO 700000 4F15149 CLA L(CLA) 4F15150 STO CW+1 4F15151 TSX COMP,B COMPILE CLA 700000 4F15152 CP1670 CLA L(FDP) 4F15153 STO CW+1 COMPILE FOP SYMJ (S(I)) 4F15154 CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155 TSX COMP,B 4F15156 TRA CP0540 GO MODIFY J 4F15157 CP1720 SLT 3 OPJ(S(I))=* 4F15158 TRA CP1840 4F15159 CLA L(STO) PREDECESSOR IN ACC 4F15160 STO CW+1 4F15161 CLA X( 4F15162 STO CW+2 4F15163 STZ CW+3 4F15164 TSX COMP,B COMPILE STO 700000 4F15165 CLA L(LDQ) 4F15166 STO CW+1 4F15167 TSX COMP,B COMPILE LDQ 700000 4F15168 CP1840 SLN 3 TURN LATE 3 ON 4F15169 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) 4F15170 SLT 4 4F15171 TRA CP2000 4F15172 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 132/132 ------ SLN 4 FIX PT. RESTORE FXPTSW 4F15173 CLA L(MPY) 4F15174 STO CW+1 4F15175 TSX COMP,B COMPILE MPY SYMJ(S(I)) 4F15176 TSX CIT00,C COMPILE ALS 17 4F15177 HTR L(0) 4F15178 HTR L(ALS) 4F15179 HTR L(0) 4F15180 HTR DEC17 4F15181 TRA CP0540 GO MODIFY J 4F15182 CP2000 CLA L(FMP) FLO PT. 4F15183 STO CW+1 4F15184 TSX COMP,B COMPILE FMP SYMJ(S(I)) 4F15185 TRA CP0540 GO MODIFY J. 4F15186 CP2040 LGL 7 OPI(S(I))=SPOP 4F15187 LBT TEST OP1(S(I))12 4F15188 TQP CP2650 LIB OR OPEN FUNCTION 4F15189 TQP CP5000 FN-FUNCTION 4F15190 PXD 0,0 FS-FUNCTION 4F15191 LLS 15 PUT TYPE NO IN ADD(ACC) 4F15192 ORA P( FORM 4...TYPE NO. 4F15193 SLW ARGORG AND STO IN ARGORG 4F15194 ANA MASK2 4F15195 ORA X( FORM 7...TYPE NO. 4F15196 SLW XRSAVE AND STO IN XRSAVE 4F15197 CLA SCRIPL+1,A 4F15198 LBT EXAMINE OP2(S(I))35 4F15199 TRA CP2150 1ST ARG STORED 4F15200 CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201 HTR L(0) COMPILE STO 4...TYPE NO. + 0 4F15202 HTR L(STO) 4F15203 HTR ARGORG 4F15204 HTR L(0) 4F15205 TXI CP2200,A,-3 GO ON TO OP3(S(I)) 4F15206 CP2150 CAL L(CLA) 4F15207 SLW CW+1 4F15208 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15209 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15210 TRA CP2100 4F15211 CP2200 STZ CW RESET CW 4F15212 LXD CP0400,B 4F15213 TXI CP2230,B,3 4F15214 CP2230 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15215 SXD CP0400,B 4F15216 CLA SCRIPL+1,A 4F15217 LBT EXAMINE OP3(S(I))35 4F15218 TRA CP2300 2ND ARG STORED 4F15219 CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220 HTR L(0) COMPILE STO 4...TYPE NO, + 1 4F15221 HTR L(STO) 4F15222 HTR ARGORG 4F15223 HTR 2E18 4F15224 TXI CP2350,A,-3 GO ON TO SYM4(S(I)) 4F15225 CP2300 CAL L(LDQ) 4F15226 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 133/133 ------ SLW CW+1 4F15227 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15228 TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15229 TRA CP2250 4F15230 CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231 SLW P(CNTR 4F15232 CP2370 LXD CP0400,B 4F15233 TXI CP2390,B,3 4F15234 CP2390 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15235 SXD CP0400,B 4F15236 CAL L(CLA) 4F15237 SLW CW+1 4F15236 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,... 4F15239 TSX COMP,B COMPILE CLA SYMJ(S(I)), J=4,... 4F15240 TSX CIT00,C COMPILE STO 4...TYPE NO, + J-2, J=4,... 4F15241 HTR L(0) 4F15242 HTR L(STO) 4F15243 HTR ARGORG 4F15244 HTR P(CNTR 4F15245 CLA P(CNTR UPDATE P(CNTR 4F15246 ADD 2E18 4F15247 STO P(CNTR 4F15248 TXI CP2370,A,-3 4F15249 CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250 CAL L(SXD) 4F15251 SLW CW+1 4F15252 CAL XRSAVE 4F15253 SLW CW+2 4F15254 CAL L(4) 4F15255 SLW CW+3 4F15256 TSX COMP,B COMPILE SXD 7...TYPE NO. , 4 4F15257 CAL L(TSX) 4F15258 SLW CW+1 4F15259 CAL SCRIPL+2,A 4F15260 SLW CW+2 4F15261 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15262 CAL L(LXD) 4F15263 SLW CW+1 4F15264 CAL XRSAVE 4F15265 SLW CW+2 4F15266 TRA CP6000 4F15267 CP5830 TXI ES0000,0,0 4F15268 REM 4F15269 CP2650 LGL 20 TEST OPI(S(I))33 4F15270 TQP CP3060 0... LIB. SBRTN 4F15271 CLS CW 1... OPEN SBRTN 4F15272 STO CW CW TO -CW 4F15273 CLA SCRIPL-1,A 4F15274 STO CW+2 4F15275 TSX COMP,B COMPILE FUNCTION NAME 4F15276 STZ CW RESET CW 4F15277 LXD CP0400,B 4F15278 TXL CP2930,B,-9 4F15279 CAL ALL1 OPEN UNIVARIATE FUNCTION 4F15280 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 134/134 ------ SLW CW 4F15281 CLA SCRIPL+1,A 4F15282 LBT EXAMINE OP2(S(I))35 4F15283 TRA CP2900 0... ARG STORED 4F15284 ARS 1 1... ARG NOT STORED 4F15285 LDQ ADPLUS 4F15286 LBT 4F15287 TRA CP2860 4F15286 LDQ ADSTAR 4F15289 CP2860 STQ CW+2 4F15290 STZ CW+3 4F15291 CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292 STZ CW RESET CW 4F15293 TRA ES0000 4F15294 CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15295 TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296 CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297 LXD CP0400,B 4F15298 TXI CP2960,B,3 4F15299 CP2960 TXH CP3000,B,-6 4F15300 SXD CP0400,B 4F15301 TSX COMP,B COMPILE SYMJ(S(I)) 4F15302 TXI CP2930,A,-3 4F15303 CP3000 CAL ALL1 4F15304 SLW CW 4F15305 TSX COMP,B COMPILE LAST ARGUMENT NAME 4F15306 STZ CW RESET CW 4F15307 TRA ES0000 GO TO END-OF-SEGMENT SBRTN 4F15308 CP3060 TXL CP3350,B,-9 4F15309 CLA SCRIPL+1,A CLOSED UNIVARIATE FUNCTION 4F15310 LBT EXAMINE OP2(S(I))35 4F15311 TRA CP3280 0... ARG STORED 4F15312 CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313 STO CW+1 4F15314 CLA X( 4F15315 STO CW+2 4F15316 CLA L(4) 4F15317 STO CW+3 4F15318 TSX COMP,B COMPILE SXD7...0,4 4F15319 CLA L(TSX) 4F15320 STO CW+1 4F15321 CLA SCRIPL-1,A 4F15322 STO CW+2 4F15323 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15324 TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15325 CP3280 CLA L(CLA) 4F15331 STO CW+1 4F15332 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15333 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15334 STZ CW RESET CW 4F15335 TRA CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15336 CP3350 TXL CP3560,B,-12 4F15337 CLA SCRIPL+1,A CLOSED BIVARIATE FUNCTION 4F15338 LBT EXAMINE OP2(S(I))35 4F15339 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 135/135 ------ TRA CP3450 0... ARG1 STORED 4F15340 CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341 STO CW+1 4F15342 TXI CP3420,A,-3 4F15343 CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344 TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15345 TXI CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15346 CP3450 CLA SCRIPL+4,A 4F15347 LBT EXAMINE OP3(S(I))35 4F15348 TRA CP3490 0... ARG2 STORED 4F15349 TRA CP3280 1... ARG2 IN MO 4F15350 CP3490 CLA L(CLA) 4F15351 STO CW+1 4F15352 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15353 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15354 STZ CW REST CW 4F15355 TRA CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE 4F15356 CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357 LBT EXAMINE OP2(S(II)35 4F15358 TXI CP3820,A,-6 0... ARG1 STORED 4F15359 TXI CP3600,A,-6 1... ARG1 IN ACC 4F15360 CP3600 CLA DECMI2 4F15361 STO P(CNTR INITIALIZE P(CNTR TO -2 4F15362 CP3620 CLA L(LDQ) 4F15363 STO CW+1 4F15364 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15365 TSX COMP,B COMPILE LDQ SYMJ(S(I)) 4F15366 CLA L(STQ) 4F15367 STO CW+1 4F15368 CLA P( 4F15369 STO CW+2 4F15370 CLA P(CNTR 4F15371 STO CW+3 4F15372 SUB 2E18 4F15373 STO P(CNTR 4F15374 TSX COMP,B COMPILE STQ 4...0-(J-2) 4F15375 LXD CP0400,B 4F15376 TXI CP3770,B,3 4F15377 CP3770 TXL CP3800,B,-12 4F15378 LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15379 TXI CP3390,A,-3 4F15380 CP3800 SXD CP0400,B 4F15381 TXI CP3620,A,-3 GO PICK UP NEXT ARG. 4F15382 CP3820 CLA SCRIPL-2,A 4F15383 LBT EXAMINE OP3(S(I))35 4F15384 TXI CP4070,A,6 0... ARG2 STORED 4F15385 CLA DECMI2 1... ARG2 IN MQ 4F15386 STO P(CNTR 4F15387 CP3870 CLA L(CLA) 4F15388 STO CW+1 4F15389 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15390 TSX COMP,B COMPILE CLA SYMJ(S(I)) 4F15391 CLA L(STO) 4F15392 STO CW+1 4F15393 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 136/136 ------ CLA P( 4F15394 STO CW+2 4F15395 CLA P(CNTR 4F15396 STO CW+3 4F15397 SUB 2E18 4F15398 STO P(CNTR 4F15399 TSX COMP,B COMPILE STO 4...0-(J-2) 4F15400 LXD CP0400,B 4F15401 TXI CP4020,B,3 4F15402 CP4020 TXL CP4050,B,-12 4F15403 LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15404 TXI CP3280,A,-3 4F15405 CP4050 SXD CP0400,B 4F15406 TXI CP3870,A,-3 GO PICK UP NEXT ARG 4F15407 CP4070 CLA L(CLA) 4F15408 STO CW+1 4F15409 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15410 TSX COMP,B COMPILE CLASYM2(S(I)) 4F15411 STZ CW RESET CW 4F15412 TXI CP3600,A,-6 4F15413 CP4140 LGL 27 OP1(S(I))=** 4F15414 TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415 LBT OPEN SBRTN SINCE OP1(S(I))33=1 4F15416 TRA CP4200 BASE FIX PT SINCE OP1(S(1))32=0 4F15417 CLA STRSTR BASE FLO PT SINCE OP1(S(1))32=1 4F15418 TRA CP4210 4F15419 CP4200 CLA ADSTAR 4F15420 CP4210 STO CW+1 4F15421 LGL 2 EXAMINE OP1(S(I))35 4F15422 TQP CP4310 0... BASE STORED 4F15423 LDQ ADSTAR 1... BASE NOT STORED 4F15424 LBT EXAMINE OP1(S(I)34 4F15425 LDQ ADPLUS 0... BASE IN ACC 4F15426 STO CW+2 1...BASE IN MQ 4F15427 STZ CW+3 4F15428 TRA CP4320 4F15429 CP4310 TSX AC0000,C ADDRESS COMPILE SYMI(S(I)) 4F15430 CP4320 CLS CW 4F15431 STO CW CW TO -CW 4F15432 TSX COMP,B COMPILE BASE 4F15433 STZ CW RESET CW 4F15434 CLA SCRIPL+5,A 4F15435 STO CW+2 4F15436 TSX COMP,B COMPILE FIX PT CONSTANT EXPONENT 4F15437 STZ CW+1 RESET CW+1 4F15438 TRA ES0000 4F15439 CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440 LBT EXAMINE OP1(S(I))35 4F15441 TRA CP4860 0... BASE STORED 4F15442 CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443 STO CW+1 4F15444 TXI CP4470,A,-3 4F15445 CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446 TSX COMP,B COMPILE LDQ SYM2 (S(I)) 4F15447 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 137/137 ------ CP4490 CLA L(SXD) 4F15448 STO CW+1 4F15449 CLA X( 4F15450 STO CW+2 4F15451 CLA L(4) 4F15452 STO CW+3 4F15453 TSX COMP,B COMPILE SXD 7...0.4 4F15454 CLA L(TSX) 4F15455 STO CW+1 4F15456 CLA SCRIPL+1,A 4F15457 ARS 3 4F15458 LBT EXAMINE OP2(S(I))32 4F15459 TXI CP4660,A,3 O... 4F15460 CLA FLFL 1... FLO**FLO 4F15461 LDQ SCRIPL-2,A EXAMINE OPI(S(I)I32 TO CHECK 4F15462 RQL 32 FOR MIXED EXPONENTIAL EXPRESSION 4F15463 TQP MC0310+2 ERROR FIX PT BASE, FLOAT EXP. 4F15464 TRA CP4730 4F15465 CP4660 LDQ SCRIPL+1,A 4F15466 RQL 32 EXAMINE OP1(S(I))32 4F15467 CLA FXFX 4F15468 TQP CP4730 0...FX**FX 4F15469 CLA FLFX 1... FL**FX 4F15470 CP4730 STO CW+2 4F15471 STO G 4F15472 TSX COMP,B COMPILE TSX FXFX/FLEX/FLFL,4 4F15473 TSX TET00,A 4F15474 HTR 9 4F15475 TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15476 CP4860 CLA L(CLA) 4F15462 STO CW+1 4F15483 TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15484 TSX COMP,B COMPILE CLA SYMI(S(I)) 4F15485 STZ CW 4F15486 CLA SCRIPL+4,A 4F15487 LBT EXAMINE OP2*S(I))35 4F15488 TXI CP4440,0,0 0...EXP STORED 4F15489 TXI CP4490,A,-3 1... EXP IN MQ 4F15490 REM 4F15491 CP5000 CLA EIFNO FN FUNCTION 4F15492 ADD 2E18 UPDATE EIFNO 4F15493 STO EIFNO AND 4F15494 STO FNSW SET FN SWITCH 4F15495 STD 1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY, 4F15496 LXA L(1),C INITIALIZE 5TAIX TO 1 4F15497 CP5050 CLA SCRIPL,A EXAMIN TAGJ(S(I)), J=2,... 4F15498 TMI CP5180 NONSUBSCRIPTED 4F15499 SXD CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG 4F15500 SXD STACTR,C 4F15501 TSX AC0000,C 4F15502 CAL TAGPRT 4F15503 TNZ CP5220 GENERAL TAG PRESENT 4F15504 CAL CW+3 NO GENERAL TAG PRESENT,SO PLACE 4F15505 ARS 11 RELATIVE ADDRESS IN OPJ(S(I))14-28 AND 4F15506 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 138/138 ------ ORA NGTBIT SET OPJ(S(I))10=I FROM NGTBIT 4F15507 ORS SCRIPL+1,A 4F15508 CP5160 LXD STACTR,C 4F15509 LXD CP5830,B 4F15510 CP5180 TXI CP5190,B,3 4F15511 CP5190 TXH CP5460,B,-6 FINISHED WITH PRELUDE,IF ANY 4F15512 TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513 CP5210 TXI CP5050,A,-3 GO ON TO NEXT ARGUMENT 4F15514 CP5220 CAL L(PXD) 4F15515 SLW CW+1 4F15516 TSX COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) 4F15517 STZ CW RESET CW 4F15518 TSX CIT00,C COMPILE ARS 18 4F15519 HTR L(0) 4F15520 HTR L(ARS) 4F15521 HTR L(0) 4F15522 HTR DEC18 4F15523 TSX CIT00,C COMPILE ADD *-2 4F15524 HTR L(0) 4F15525 HTR L(ADD) 4F15526 HTR PROCTR 4F15527 HTR DECMI2 4F15528 CAL L(STA) 4F15529 SLW CW+1 4F15530 CAL EIFNO 4F15531 ANA MASK1 4F15532 SLW CW+2 4F15533 LXD STACTR,C 4F15534 PXD 0,C 4F15535 SLW CW+3 4F15536 TSX COMP,B COMPILE STA IFN+STAIX 4F15537 TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538 CP5460 LXD 3QBAR,A 4F15539 CAL L(SXD) 4F15540 SLW CW+1 4F15541 CAL X( 4F15542 SLW CW+2 4F15543 CAL L(4) 4F15544 SLW CW+3 4F15545 TSX COMP,B COMPILE SXD 7,4 4F15546 CAL EIFNO 4F15547 ANA MASK1 4F15548 SLW CW 4F15549 CAL L(TSX) 4F15550 SLW CW+1 4F15551 CAL SCRIPL+2,A 4F15552 SLW CW+2 4F15553 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15554 STZ CW RESET CW 4F15555 TXI CP5680,A,-3 POSITION XA TO SYM2(S(I)) 4F15556 CP5680 CLA SCRIPL,A 4F15557 TPL CP5700 4F15558 TSX AC0000,C NONSUBSCRIPTED 4F15559 STACTR TXI CP5720,0,0 4F15560 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 139/139 ------ CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561 LGL 11 4F15562 LBT 4F15563 LDQ L(0) GENERAL TAG PRESENT 4F15564 STQ CW+3 NO GENERAL TAG PRESENT 4F15565 CAL SCRIPL+2,A 4F15566 SLW CW+2 4F15567 CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,., 4F15568 LXD CP0400,B 4F15569 TXI CP5750,B,3 4F15570 CP5750 TXH CP5780,B,-6 FINISHED SCANNING 4F15571 SXD CP0400,B 4F15572 TXI CP5680,A,-3 4F15573 CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574 HTR L(0) 4F15575 HTR L(LXD) 4F15576 HTR X( 4F15577 HTR L(4) 4F15578 ES0000 LXD 3QBAR,A -3Q TO XA 4F15579 SLT 1 4F15580 TRA CP0130 GO TO NEXT SEGMENT 4F15581 CAL SCRIPL,A 4F15582 ANA MASK2 4F15583 TZE ES0160 4F15584 CLA ARERAS S(I) NOT = S(O) 4F15585 STO CW+2 4F15586 CLA PHI(I) 4F15587 STO CW+3 4F15588 CLA L(STQ) 4F15589 SLT 2 4F15590 CLA L(STO) 4F15591 STO CW+1 4F15592 TSX COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I) 4F15593 TRA CP0130 GO TO NEXT SEGMENT 4F15594 ES0160 LDQ LEFT+2 S(I)=S(O) 4F15595 LGL 12 4F15596 CAS IFSYM IS THIS AN IF STATEMENT 4F15597 TRA ES0200 4F15598 TRA ES1500 4F15599 ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600 TRA ES0210 4F15601 TRA ES1520 4F15602 ES0210 CAS SAPSYM 4F15603 TRA ES0220 4F15604 TRA ES1710 4F15605 ES0220 ARS 6 4F15606 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15607 TXH ES1300,C,0 YES 4F15608 CAS L(H) NOT A FUNCTION STATEMENT 4F15609 CAS L(0) 4F15610 TRA ES0300 4F15611 TRA ES0300 4F15612 SLT 4 4F15613 TRA ES0870 4F15614 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 140/140 ------ ES0710 CLA L(STO) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615 SLT 2 4F15616 ES0730 CLA L(STO) 4F15617 STO CW+1 4F15618 CLA LEFT 4F15619 STO TAGWRD 4F15620 CLA LEFT+1 4F15621 STO OPWORD 4F15622 CLA LEFT+2 4F15623 STO SYMWRD 4F15624 TSX AC0060,C ADDRESS COMPILE VARIABLE ON LEFT 4F15625 TSX COMP,B COMPILE STO/STQ LEFT+2 4F15626 TRA ES1590 EXIT TO FETCH STATE A 4F15627 ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628 TRA ES0990 4F15629 CLA L(STQ) RESULT ON RIGHT APPEARS IN MQ 4F15630 STO CW+1 4F15631 CLA X( 4F15632 STO CW+2 4F15633 STZ CW+3 4F15634 TSX COMP,B COMPILE STQ 700000 4F15635 CLA L(CLA) 4F15636 STO CW+1 4F15637 TSX COMP,B COMPILE CLA 700000 4F15638 ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639 HTR L(0) RESULT ON RIGHT IS IN ACC. 4F15640 HTR L(UFA) 4F15641 HTR O( 4F15642 HTR L(0) 4F15643 TSX CIT00,C 4F15644 HTR L(0) 4F15645 HTR L(LRS) 4F15646 HTR L(0) 4F15647 HTR L(0) 4F15648 TSX CIT00,C 4F15649 HTR L(0) 4F15650 HTR L(ANA) 4F15651 HTR O( 4F15652 HTR 2E18 4F15653 TSX CIT00,C 4F15654 HTR L(0) 4F15655 HTR L(LLS) 4F15656 HTR L(0) 4F15657 HTR L(0) 4F15658 TSX CIT00,C 4F15659 HTR L(0) 4F15660 HTR L(ALS) 4F15661 HTR L(0) 4F15662 HTR DEC18 4F15663 TRA ES0610 4F15664 ES0300 SLT 4 4F15665 TRA ES0710 4F15666 ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667 TRA ES0440 4F15668 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 141/141 ------ CLA L(STQ) RESULT ON RIGHT APPEARS IN MO 4F15669 STO CW+1 4F15670 CLA X( 4F15671 STO CW+2 4F15672 STZ CW+3 4F15673 TSX COMP,B COMPILE STO 700000 4F15674 CLA L(CLA) 4F15675 STO CW+1 4F15676 TSX COMP,B COMPILE CLA 700000 4F15677 ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678 HTR L(0) RESULT ON RIGHT IS IN ACC 4F15679 HTR L(LRS) 4F15680 HTR L(0) 4F15681 HTR DEC18 4F15682 TSX CIT00,C 4F15683 HTR L(0) 4F15684 HTR L(ORA) 4F15685 HTR O( 4F15686 HTR L(0) 4F15687 TSX CIT00,C 4F15688 HTR L(0) 4F15689 HTR L(FAD) 4F15690 HTR O( 4F15691 HTR L(0) 4F15692 ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693 TXL ES0730,C,0 NO 4F15694 ES0630 CLA L(TRA) YES 4F15695 STO CW+1 4F15696 STZ CW+2 4F15697 CAL 2E18 4F15698 ORA L(4) 4F15699 SLW CW+3 4F15700 TSX COMP,B COMPILE TRA 1,4 4F15701 TRA ES1590 EXIT TO FETCH STATE A 4F15702 ES1300 SUB L(X) 4F15703 TZE ES1360 4F15704 SLT 4 4F15705 TRA ES1380 4F15706 TRA ES0320 4F15707 ES1360 SLT 4 4F15708 TRA ES0870 4F15709 ES1380 SLT 2 4F15710 TRA ES0630 4F15711 CLA L(STQ) 4F15712 STO CW+1 4F15713 CLA X( 4F15714 STO CW+2 4F15715 STZ CW+3 4F15716 TSX COMP,B COMPILE STQ 700000 4F15717 CLA L(CLA) 4F15718 STO CW+1 4F15719 TSX COMP,B COMPILE CLA 700000 4F15720 TRA ES0630 4F15721 ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 142/142 ------ PZE 2 INTO TIFGO TABLE (TABLE 2), 4F15723 TRA ES1530 4F15724 ES1520 LXD EIFNO,4 4F15725 SXD CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND 4F15726 TSX TET00,1 LAST IFN NUMBERS, 4F15727 REM 16 4F15728 ES1530 SLT 2 4F15729 TRA ES1590 EXIT TO FETCH STATE A 4F15730 TSX CIT00,C COMPILE LLS 37 4F15731 L(0) 4F15732 L(STQ) 4F15733 X( 4F15734 L(0) 4F15735 TSX CIT00,4 4F15736 L(0) 4F15737 L(CLA) 4F15738 X( 4F15739 L(0) 4F15740 ES1590 CLA FNSW 4F15741 TZE MTR000 4F15742 CLA F-1 4F15743 SUB 5BLANS 4F15744 TZE MTR000 4F15745 CLS EIFNO 4F15746 STO EIFNO 4F15747 TSX TET00,A 4F15748 HTR 0 4F15749 CLS EIFNO 4F15750 STO EIFNO 4F15751 TRA MTR000 4F15752 ES1710 LXD BBOX,B 4F15753 CLA OPNWRD 4F15754 STO CIB-3,B 4F15755 TRA MTR000 4F15756 REM 4F15757 COMP TSX CIT00,C 4F15758 HTR CW 4F15759 HTR CW+1 4F15760 HTR CW+2 4F15761 HTR CW+3 4F15762 TRA I,B 4F15763 REM 4F15764 AC0000 CLA SCRIPL,A 4F15765 STO TAGWRD 4F15766 CLA SCRIPL+1,A 4F15767 STO OPWORD 4F15768 CLA SCRIPL+2,A 4F15769 STO SYMWRD 4F15770 AC0060 CAL TAGWRD 4F15771 ANA MASK1 EXTRACT TAGS IN ACC. 4F15772 PBT 4F15773 TRA AC0540 4F15774 PXD 0,0 NON-SUBSCRIPTED SYMBOL 4F15775 LDQ SYMWRD 4F15776 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 143/143 ------ LGL 1 4F15777 LBT 4F15778 TQP AC0460 SYMBOL IS SOME S(K) 4F15779 LGL 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE 4F15760 SUB L(A() IS THIS A FLO PT CONSTANT 4F15781 TZE AC0410 YES 4F15782 ADD L(A() NO 4F15783 SUB L(I() IS THIS A FIX PT CONSTANT 4F15784 TZE AC0390 YES 4F15785 ADD L(I() NO 4F15786 SUB L(H() IS THIS A HOLLERITH FIELD 4F15787 TZE AC0350 YES 4F15788 LDQ OPWORD NON-SUBSCRIPTED EXTERNAL VARIABLE 4F15789 LGL 13 IS THIS A FREE VARIABLE 4F15790 TQP AC0340 NO 4F15791 LLS 15 YES 4F15792 COM 4F15793 SUB L(1) 4F15794 PAX 0,B 4F15795 PXD 0,8 4F15796 SLW CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS 4F15797 LXD BK,B 4F15798 CAL FORSUB-1,B 4F15799 ANA MASK2 EXTRACT FUNCTION STATEMENT TYPE 4F15600 ORA P( 4F15801 AC0320 SLW CW+2 4F15802 TRA 1,C RETURN 4F15803 AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804 CAL SYMWRD 4F15805 TRA AC0320 4F15806 AC0350 CAL H( 4F15807 TRA AC0420 4F15808 AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809 TRA AC0420 4F15810 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811 AC0420 STO CW+2 4F15812 RQL 6 4F15813 STQ CW+3 4F15814 TRA 1,C RETURN 4F15815 AC0460 LGL 35 SYMBOL IS SOME S(K) 4F15616 TDRADD PAX 0,B 4F15817 CAL CPBETA,6 4F15618 ANA MASK1 EXTRACT PHI(K) 4F15819 SLW CW+3 4F15820 CAL ARERAS 4F15621 TRA AC0320 4F15822 AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823 LDQ TAGWRD 4F15824 PXD ,0 CLEAR AC. 4F15825 LGL 12 I-TAU TAGS TO AC 4F15826 SLW CW+3 STORE FOR NEXT CIT ENTRY. 4F15827 TQP *+3 4F15828 STZ CW+3 4F15829 CAL 2E18 REPLACE NULL TAG, 4F15830 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 144/144 ------ SLW TAGPRT SAVE FOR LATER USE. 4F15831 LGL 1 4F15832 PXD ,0 CLEAR AC 4F15833 LGL 8 FORM TWICE SIGMA TAG. 4F15834 ALS 1 4F15835 ADM SIG1IX-2 FORM BASE OF TABLE + SIGMA TAG. 4F15836 STA SDRADD 4F15837 SDRADD PXD **,0 4F15838 RDR 2 4F15839 LDA SDRADD 4F15840 CAD DUMP 4F15841 COM 4F15842 CAD DUMP 4F15843 COM 4F15844 TZE *+2 CHECK SUM TEST, 4F15845 TSX DIAG,4 ERROR SIGMA1 CKSUM FAILS 4F15846 CAL DUMP 4F15847 ORS CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. 4F15848 CLA SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY. 4F15849 STO CW+2 4F15850 TRA 1,4 RETURN TO CALLER 4F15851 REM 4F158511 CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATION AND THEN 4F158512 CW COMPILE LXD 7(TYPE =*4 4F158513 CW+1 4F158514 CW+2 4F158515 CW+3 4F158516 TRA ES0000 4F158517 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852 ENDDDR BSS 0 4F158525 REM 4F15853 ENDD ORG 3184 4F15854 FNSW BSS 1 4F15855 P(CNTR BSS 1 4F15856 ARGORG BSS 1 4F15857 XRSAVE BSS 1 4F15858 CW BSS 4 4F15859 TAGWRD BSS 1 4F15860 OPWORD BSS 1 4F15861 SYMWRD BSS 1 4F15862 TAGPRT BSS 1 4F15863 CPBETA BSS 300 4F15864 SCRIPL BSS 600 4F15865 REM END OF ARITHMETIC / STATE D. 4F15866 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867 REM 4F15868 REM SYNONYMS USED BY SECTION ONE. 4F15869 1E SYN ERASE COMMON WORKING STORAGE. 4F15870 1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871 2E SYN ERASE+1 COMMON WORKING STORAGE. 4F15872 2P SYN 11 4F15873 36ONES SYN ALL1 4F15874 3E SYN ERASE+2 COMMON WORKING STORAGE. 4F15875 3QBAR SYN 3LBAR 4F15876 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 145/145 ------ 4E SYN ERASE+3 COMMON WORKING STORAGE. 4F15877 A EQU 1 4F15878 ABLANK SYN BLANK 4F15879 ACOMMA SYN COMMA 4F15880 ADD SYN L(ADD) 4F15881 AEQUAL SYN EQUAL 4F15882 ALPAR SYN OPEN 4F15883 ARITH SYN STATEB 4F15884 ARPAR SYN CLOS 4F15885 ARS SYN L(ARS) 4F15886 B EQU 2 4F15887 C EQU 4 4F15888 CAL SYN L(CAL) 4F15889 CIT SYN CIT00 4F15890 CITMQR SYN E1C ERASABLE STORAGE. 4F15891 CITTAP SYN 147 COMPILED INSTRUCTION TAPE, 4F15892 CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893 CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894 CPY SYN L(CPY) 4F15895 D1 SYN 2E18 4F15896 D12 SYN ERASE+1 COMMON WORKING STORAGE. 4F15897 D18 SYN DEC18 4F15898 D3 SYN ERASE+2 COMMON WORKING STORAGE. 4F15899 DED SYN L(DED) 4F15900 DEL(A) SYN 0 DRUM ORIGIN FOR STATE A, 4F15901 DEL(B) SYN 1160 DRUM ORIGIN FOR STATE B. 4F15902 DEL(C) SYN 1275 DRUM ORIGIN FOR STATE C. 4F15903 DEL(D) SYN 722 DRUM ORIGIN FOR STATE D. 4F15904 DIM1 SYN 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR, 4F15905 DIM2 SYN 0500 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15906 DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15907 DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908 DMP SYN E( 4F15909 DOE SYN ERASE COMMON WORKING STORAGE. 4F15910 DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911 DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912 DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913 DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914 E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915 E2C SYN ERASE+1 COMMON WORKING STORAGE. 4F15916 E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917 E3C SYN ERASE+2 COMMON WORKING STORAGE. 4F15918 E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919 EKE SYN ERASE+1 COMMON WORKING STORAGE. 4F15920 ENOND SYN ERASE+3 COMMON WORKING STORAGE. 4F15921 FEOD SYN ERASE+4 COMMON WORKING STORAGE. 4F15922 FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS, 4F15923 FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924 FXCODR SYN 2 4F15925 H SYN ERASE+2 COMMON WORKING STORAGE. 4F15926 H( SYN ADSPOP 4F15927 HPR SYN L(HPR) 4F15928 LDA SYN L(LDA) 4F15929 LXD SYN L(LXD) 4F15930 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 146/146 ------ L(10) SYN TEN 4F15931 L(11) SYN EQUAL 4F15932 L(12) SYN MINUS 4F15933 L(1D) SYN 2E18 4F15934 L(63) SYN ENDMK 4F15935 MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936 MSK SYN MASK2 4F15937 MTR000 SYN STATEA 4F15938 MTR300 SYN MTR3 4F15942 N SYN ERASE+3 COMMON WORKING STORAGE. 4F15943 PLUS SYN 122 4F15945 PXD SYN L(PXD) 4F15946 RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947 SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948 SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949 ST SYN L(8) 4F15950 STA SYN L(STA) 4F15951 STCKSM SYN ERASE+4 COMMON WORKING STORAGE, 4F15952 TABTAP SYN 148 TABLE TAPE. 4F15953 TAG4 SYN 2E17 4F15954 TAU1 SYN 0000 DRUM TABLE ORIGIN -DRTABS. 4F15955 TAU2 SYN 0300 DRUM TABLE ORIGIN -DRTABS. 4F15956 TAU3 SYN 3750 DRUM TABLE ORIGIN -DRTA8S. 4F15957 TERC SYN L(5) TAPE ERROR COUNTER. 4F15958 TETMQR SYN ERASE+3 ERASABLE STORAGE, 4F15959 TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960 TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961 TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962 TIX SYN L(TIX) 4F15963 ZER SYN 01 4F15964 .. EQU 0 4F15965 REM END OF SYNONYMS USED BY SECTION ONE. 4F15966 REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967 REM 4F15968 REM END OF SECTION ONE. 4F15969 END 4F15970 REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000. 4F1D0010 REM ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE ORG 0 4F1D0020 PZE DIAG,,DIAG 4F1D0030 PZE 8191 4F1D0040 REM 704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020. 4F1D0050 REM 4F1D0060 REM THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN 4F1D0070 REM SECTION ONE AND ONCE AT THE END OF SECTION ONE, 4F1D0080 REM 4F1D0090 DIAG ORG 1824+4096 MOD 4K OR 8K MACHINE SIZE 4F1D0100 A EQU 1 4F1D0110 B EQU 2 4F1D0120 C EQU 4 4F1D0130 EXITX EQU 32767 4F1D0140 EDIT TXH ERENT,C,0 IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150 CLA 16 IF NON ZERO IT IS AN ERROR CALL, 4F1D0160 ANA L(4)D IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170 TZE 4 ERRORS DURING SECTION ONE ( INDICATED BY 4F1D0180 TSX PRINT,C 4F1D0190 HTR STOP,0,XCOM 4F1D0200 TSX PRINT,C BIT IN WORD 20 OCTAL), IF THERE WERE NO 4F1D0210 PZE RESTR,0,RESTR+1 ERRORS GO TO SEC ONE PRIME. IF THERE WERE 4F1D0220 LXA DCELL1,4 GET INDICATOR OF SOURCE PROGRAM ERRORS. 4F1D0230 TXH SOURCE,4,0 TEST IF ANY OF ERROR WERE SOURCE. 4F1D0240 LXA L(8),4 NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE 4F1D0250 BST 1 ERROR RECORD. 4F1D0260 TIX *-1,4,1 4F1D0270 TRA 4 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280 SOURCE LXA L(12),4 SOME SOURCE PROGRAM ERRORS, RECOMPILATION 4F1D0290 BST 1 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE 4F1D0300 TIX *-1,4,1 PROGRAM ERROR RECORD. 4F1D0310 TRA 4 NOW GO TO 1 TO CS FOR THIS RECORD. 4F1D0320 BSS 10 EXPANSION AREA. FOR PESSIMISM... 4F1D0330 REM NUMBERS OF MACHINE ERROR CALL FROM SECTION ONE, 4F1D0340 MACERR BCD 1002034 4F1D0350 BCD 1002062 4F1D0360 BCD 1002266 4F1D0370 BCD 1002433 4F1D0380 BCD 1002434 4F1D0390 BCD 1002435 4F1D0400 BCD 1002436 4F1D0410 BCD 1002523 4F1D0420 BCD 1002565 4F1D0430 BCD 1003272 4F1D0440 BCD 1003561 4F1D0450 BCD 1005715 4F1D0460 BCD 1004347 4F1D0470 BCD 1005233 4F1D0480 BCD 1000553 4F1D0490 BCD 1000560 4F1D0500 BCD 1000563 4F1D0510 BCD 1000566 4F1D0520 BCD 1010534 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 148/148 ------ BCD 1012750 BSS 18 MORE PESSIMISM... COUNT 20 4F1D0540 REM 4F1D0550 REM THIS IS AN ERROR CALL. 4F1D0560 ERENT PXD 0,C 4F1D0570 COM CONSTRUCT OCTAL STOP 4F1D0580 ADD L(1)D 4F1D0590 PDX 0,B 4F1D0600 PXD 0,B 4F1D0610 LRS 35 4F1D0620 LXD L(6)D,B 4F1D0630 ALS ALS 3 4F1D0640 LGL 3 4F1D0650 TIX ALS,B,1 4F1D0660 STO NUMB 4F1D0670 LXA L(0),1 SET TO SEARCH TABLE OF NUMBERS OF MACHINE 4F1D0680 LXA COUNT,2 ERRORS, 4F1D0690 CAS MACERR,1 COMPARE EACH ENTRY IN TABLE TO OCTAL 4F1D0700 TXI *+3,1,1 NUMBER IN AC 4F1D0710 TRA *+4 EXIT IF FOUND. 4F1D0720 TXI *+1,1,1 4F1D0730 TIX *-4,2,1 CONTINUE. 4F1D0740 STA DCELL1 SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 4F1D0750 LXA L(0),3 4F1D0760 CLA XXX CONSTRUCT CALLING SEQUENCE WORD FOR 4F1D0770 ONE CAS TABLE,A PRINTING COMMENT 4F1D0780 TRA TWO 4F1D0790 TRA FOUR 4F1D0800 TWO TXI THREE,A,-1 4F1D0810 THREE TXH ONE,A,0 4F1D0820 CLA NUMB 4F1D0830 STO XCOM 4F1D0840 CAL XKEY 4F1D0850 TRA EIGHT 4F1D0860 FOUR TXH FIVE,B,0 4F1D0870 SUB TABLE+1,A 4F1D0880 TZE SEVEN 4F1D0890 CLA NUMB 4F1D0900 SUB TABLE+1,A 4F1D0910 TZE NINE 4F1D0920 CLA XXX 4F1D0930 TRA TWO 4F1D0940 NINE TXI FIVE,A,-1 4F1D0950 FIVE PXD 0,A 4F1D0960 COM 4F1D0970 ADD L(1)D 4F1D0980 PDX 0,C 4F1D0990 PXD 0,C 4F1D1000 ADD TABAD 4F1D1010 TXH SIX,B,0 4F1D1020 ARS 18 4F1D1030 STO KEY 4F1D1040 CLA XXX 4F1D1050 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 149/149 ------ TXI THREE,B,1 4F1D1060 SIX ORA KEY 4F1D1070 TRA EIGHT 4F1D1080 SEVEN CLA NUMB 4F1D1090 STO XCOM 4F1D1100 CLA XKEY 4F1D1110 EIGHT STO COMM 4F1D1120 CLA F-1 4F1D1130 STO F-2 4F1D1140 CLA BLANK 4F1D1150 STO F-1 4F1D1160 LXD L(X)D,A CONSTRUCT CALLING SEQUENCE WORD 4F1D1170 CLA ONES 4F1D1180 STA05 CAS F+111,A 4F1D1190 TRA STA10 4F1D1200 TRA STA20 4F1D1210 STA10 TIX STA05,A,1 4F1D1220 LXD L(0),A 4F1D1230 STA20 PXD 0,A 4F1D1240 STO SES 4F1D1250 CLA L(X)D 4F1D1260 SUB SES 4F1D1270 ADD FORG 4F1D1280 STO SES 4F1D1290 CLA FORG 4F1D1300 ARS 18 4F1D1310 ORA SES 4F1D1320 STO STATE 4F1D1330 CLA 16 WAS THERE A PREVIOUS ERROR CALL 4F1D1340 ANA L(4)D 4F1D1350 TNZ PROG 4F1D1360 CLA L(4)D NO, MAKE ERROR CALL INDICATION 4F1D1370 ORS 16 4F1D1380 TSX PRINT,C AND PRINT HEADING 4F1D1390 HTR START,0,STOP 4F1D1400 WPR 4F1D1410 WPR 4F1D1420 WPR 4F1D1430 WPR 4F1D1440 PROG TSX SETNBC,4 4F1D1450 TSX NNBC,4 4F1D1460 TSX NNBC,4 4F1D1470 SUB L(10) 4F1D1480 TNZ EXIT 4F1D1490 TSX SETNBC,4 4F1D1500 TSX NNBC,4 4F1D1510 SUB L(X) 4F1D1520 TNZ CALLBK 4F1D1530 CLA L(I) 4F1D1540 TSX REP,4 4F1D1550 TSX NNBC,4 4F1D1560 CLA L(F) 4F1D1570 TSX REP,4 4F1D1580 TSX NNBC,4 4F1D1590 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 150/150 ------ SUB L(=) 4F1D1600 TNZ EXIT 4F1D1610 CLA L(LP) 4F1D1620 TSX REP,4 4F1D1630 TXE TXL EXIT,1,-110 4F1D1640 TSX NNBC,4 4F1D1650 SUB ENDM 4F1D1660 TNZ TXE 4F1D1670 CLA L(RP) 4F1D1680 TSX REP,4 4F1D1690 TRA EXIT 4F1D1700 CALLBK CLA L(C) CHANGE Z BACK TO C 4F1D1710 TSX REP,4 4F1D1720 TSX NNBC,4 4F1D1730 CLA L(A) CHANGE TEN BACK TO A 4F1D1740 TSX REP,4 4F1D1750 TSX NNBC,4 4F1D1760 CLA L(L) CHANGE EQUAL BACK TO FIRST L 4F1D1770 TSX REP,4 4F1D1780 TIX SECL,2,1 4F1D1790 TXI SECL,1,-1 ADJUST COUNTS FOR NEXT CHAR 4F1D1800 SECL CLA L(L) CHANGE BLANK BACK TO SECOND L 4F1D1810 TSX REP,4 4F1D1620 TRA EXIT 4F1D1830 SETNBC LXD TXI,1 4F1D1840 LXA LGL,2 4F1D1850 LDQ F 4F1D1860 TRA 1,4 4F1D1870 NNBC PXD 4F1D1880 LGL LGL 6 4F1D1890 TIX CAS,2,1 4F1D1900 LDQ F,1 4F1D1910 TXI TXI TXI+1,1,-1 4F1D1920 LXA LGL,2 4F1D1930 CAS CAS BLANKX 4F1D1940 TRA 1,4 4F1D1950 TRA NNBC 4F1D1960 TRA 1,4 4F1D1970 REP STQ ES1 4F1D1980 SXD ES2,2 4F1D1990 SXD ES3,1 4F1D2000 LRS 35 4F1D2010 CAL ENDM 4F1D2020 TXL TXL TXL+2,2,5 4F1D2030 TXI TXL+4,1,1 4F1D2040 LGL 6 4F1D2050 TIX TIX TIX-1,2,1 4F1D2060 COM 4F1D2070 ANS F-1,1 4F1D2080 LGL 36 4F1D2090 ORS F-1,1 4F1D2100 LXD ES3,1 4F1D2110 LXD ES2,2 4F1D2120 LDQ ES1 4F1D2130 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 151/151 ------ TRA 1,4 4F1D2140 L(I) BCD 100000I 4F1D2150 L(F) BCD 100000F 4F1D2160 L(=) BCD 100000= 4F1D2170 L(LP) BCD 100000( 4F1D2180 L(RP) BCD 100000) 4F1D2190 BLANKX BCD 100000 4F1D2200 L(X) BCD 100000X 4F1D2210 L(C) BCD 100000C 4F1D2220 L(A) BCD 100000A 4F1D2230 L(L) BCD 100000L 4F1D2240 L(8) 8 4F1D2250 L(10) OCT 12 4F1D2260 L(12) 12 4F1D2270 ENDM OCT 77 4F1D2280 ES1 HTR 4F1D2290 ES2 HTR 4F1D2300 ES3 HTR 4F1D2310 SECND TSX PRINT,C PRINT STATEMENT 4F1D2320 STATE HTR 4F1D2330 TSX PRINT,C PRINT COMMENT 4F1D2340 COMM HTR 4F1D2350 WPR 4F1D2360 WPR 4F1D2370 BST BST 1 TAPE 4F1D2380 TRA MON AND RETURN TO SEC ONE MONITOR 4F1D2390 L(1)D OCT 1000000 4F1D2400 L(4)D OCT 4000000 4F1D2410 L(6)D OCT 6000000 4F1D2420 L(0) HTR 4F1D2430 ONES OCT 777777777777 4F1D2440 XXX BCD 1XXXXXX 4F1D2450 HALT OCT 77777 4F1D2460 L(X)D OCT 161000000 4F1D2470 TABAD HTR 0,0,TABLE 4F1D2480 FORG HTR 0,0,F-2 4F1D2490 RESTR BCD 11 4F1D2500 BLANK BCD 1 4F1D2510 XKEY HTR XCOM,0,XXCOM 4F1D2520 NUMB HTR 4F1D2530 KEY HTR 4F1D2540 SES HTR 4F1D2550 START BCD 71 4F1D2560 BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS 4F1D2570 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 152/152 ------ STOP BCD 70 4F1D2580 BCD 6END OF DIAGNOSTIC PROGRAM RESULTS 4F1D2590 XCOM HTR 4F1D2600 BCD THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR 4F1D2610 BCD 2OR LIST. 4F1D2620 XXCOM BSS 0 4F1D2630 PRINT BSS 0 4F1D2640 RAN CLA 1,4 4F1D2650 STA RNA 4F1D2660 ARS 18 4F1D2670 STO RNB 4F1D2680 SXD RNC,4 4F1D2690 RN40 CLA RNA 4F1D2700 ADD RND 4F1D2710 CAS RNB 4F1D2720 NOP 4F1D2730 TRA RN50 4F1D2740 ALS 18 4F1D2750 ADD RNA 4F1D2760 STO RAN10 4F1D2770 TSX WOT,C 4F1D2780 RAN10 HTR 4F1D2790 CLA RAN10 4F1D2800 ARS 18 4F1D2610 SUB RNE 4F1D2820 STA RN20 4F1D2830 SUB RNE 4F1D2840 STA RN30 4F1D2850 STA RNA 4F1D2860 CLA BLNKS 4F1D2870 RN20 STO 4F1D2880 RN30 STO 4F1D2890 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 153/153 ------ TRA RN40 4F1D2900 RN50 CLA RNB 4F1D2910 ALS 18 4F1D2920 ADD RNA 4F1D2930 STO RN60 4F1D2940 TSX WOT,C 4F1D2950 RN60 HTR 4F1D2960 LXD RNC,C 4F1D2970 TRA 2,C 4F1D2980 RNA HTR 4F1D2990 RNB HTR 4F1D3000 RNC HTR 4F1D3010 RND HTR 20 4F1D3020 RNE HTR 1 4F1D3030 WOT SXD X1,1 4F1D3040 SXD X2,2 4F1D3050 CLA 1,4 PRINT ROUTINE 4F1D3060 STA T5 X 4F1D3070 STD X4 X 4F1D3080 ARS 18 X 4F1D3090 ADD X4 X 4F1D3100 STA PR2 X 4F1D3110 STA CI9 X 4F1D3120 SUB 1,4 B-A+1 IN AC 4F1D3130 TZE 2,4 4F1D3140 TMI 2,4 4F1D3150 SXD X4,4 4F1D3160 L11 PAX 11,4 4F1D3170 SXD PR6,4 4F1D3180 CAL WP INITIALIZE SWITCH 4F1D3190 STO WP X 4F1D3200 PR6 TXH T4 4F1D3210 T4 WPR 4F1D3220 Z2 TXL S3 4F1D3230 OZ2 TXL 4F1D3240 SP4 SPR 4 4F1D3250 TXL RPR+2 4F1D3260 S3 CLS WP SET SWITCH FOR MASKING 4F1D3270 STO WP CHARACTER FROM TYPE WHEEL 1 4F1D3280 T5 CAL * OBTAIN FIRST CHARACTER 4F1D3290 ARS 30 X 4F1D3300 TZE SP4 DOUBLE SPACE IF ZERO 4F1D3310 CAS YZONE TEST FOR SPACE SUPPRESS 4F1D3320 TXL BK NO 4F1D3330 TXL RPR+1 SUPPRESS SPACE 4F1D3340 BK CAS BNK TEST FOR BLANK 4F1D3350 TXL DIGF NO 4F1D3360 TXL RPR+2 BLANK 4F1D3370 DIGF SPR 10 SET CHANNEL SKIP 4F1D3380 ANA MK MASK OUT ZONE 4F1D3390 MK PAX 15,1 OBTAIN SPR COMBINATION 4F1D3400 TXI N2,1,1 X 4F1D3410 N2 TNX N3,1,8 X 4F1D3420 SPR 8 X 4F1D3430 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 154/154 ------ N3 TNX N4,1,4 X 4F1D3440 SPR 4 X 4F1D3450 N4 TNX N5,1,2 X 4F1D3460 SPR 2 X 4F1D3470 N5 TNX RPR,1,1 X 4F1D3480 SPR 1 X 4F1D3490 RPR WPR 4F1D3500 SPR 5 SUPPRESS SPACE 4F1D3510 CLA BLNKS FIND LAST NON-BLANK GROUP 4F1D3520 LXD CI4,4 X 4F1D3530 PR2 CAS 0,4 X 4F1D3540 TXI PR1,4,-1 X 4F1D3550 TXI PR2,4,1 X 4F1D3560 TXI PR1,4,-1 X 4F1D3570 PR1 SXD CI6,4 STORE END TEST 4F1D3560 SXD CI8,4 X 4F1D3590 SXD PR8,4 X 4F1D3600 SXD WP4,4 X 4F1D3610 LXD PR6,4 X 4F1D3620 PR8 TNX PR5,4 4F1D3630 TXL PR3,4,12 4F1D3640 SPR 8 FIRST CYCLE 4F1D3650 PR3 LXD PR6,4 INITIALIZE GROUP COUNT 4F1D3660 PR5 LXA PR7,2 INITIALIZE LEFT SETUP 4F1D3670 LXD YZ1,1 CLEAR CARD IMAGE 4F1D3680 PR7 PXD X 4F1D3690 PR4 SLW LT,1 X 4F1D3700 SLW RT,1 X 4F1D3710 TIX PR4,1,1 X 4F1D3720 CIR CAL COL1 INITIALIZE COLUMN INDICATOR 4F1D3730 CI2 SLW COL X 4F1D3740 CI9 LDQ 0,4 OBTAIN GROUP 4F1D3750 SXD OZ2,4 STORE GROUP COUNT 4F1D3760 LXA Q6,4 SET CHARACTER COUNT 4F1D3770 CI1 PXD 4F1D3780 Q6 LGL 6 4F1D3790 PAX 0,1 4F1D3800 CAL COL POSITION COLUMN INDICATOR 4F1D3810 ARS 6,4 X 4F1D3820 TIX YZ1,1,16 TEST FOR DIGIT 4F1D3830 TXH YZ2,1,15 TEST FOR Y-ZONE 4F1D3840 CI5 ORS D,3 STORE DIGIT 4F1D3850 CI4 TIX CI1,4,1 COUNT CHARACTERS 4F1D3860 CI3 ARS 1 SHIFT AND TEST COLUMN 4F1D3870 LXD OZ2,4 RESTORE GROUP COUNT 4F1D3880 TXI CI6,4,-1 COUNT GROUPS 4F1D3890 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP 4F1D3900 TNZ CI2 TEST FOR END OF ROW 4F1D3910 CI7 CAL 8.3,2 FORM TRUE 8,4 4F1D3920 ORS D-8,2 AND 3 ROWS AND 4F1D3930 ORS D-3,2 MOVE 8,4 AND 8.3 4F1D3940 SLW 8.2,2 ROWS 4F1D3950 CAL 8.4,2 FORM TRUE 8,4 4F1D3960 ORS D-8,2 X 4F1D3970 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 155/155 ------ ORS D-4,2 X 4F1D3980 SLW 8.3,2 X 4F1D3990 CI8 TXL WP,4 TEST FOR END 4F1D4000 TXH WP,2,15 TEST FOR RIGHT HALF 4F1D4010 TXI CIR,2,16 INITIALIZE RIGHT HALF 4F1D4020 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 4F1D4030 TXH XZ2,1,15 TEST FOR X-ZONE 4F1D4040 ORS D,3 STORE DIGIT 4F1D4050 YZ2 ORS Y,2 STORE Y-ZONE 4F1D4060 TIX CI1,4,1 COUNT CHARACTERS 4F1D4070 X1 TXL CI3 OBTAIN NEXT GROUP 4F1D4080 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 4F1D4090 TXH CI4,1,15 TEST FOR BLANK 4F1D4100 ORS D,3 STORE DIGIT 4F1D4110 XZ2 ORS X,2 STORE X-ZONE 4F1D4120 TIX CI1,4,1 COUNT CHARACTERS 4F1D4130 X2 TXL CI3 OBTAIN NEXT GROUP 4F1D4140 OZ1 ORS Z,2 STORE 0-ZONE 4F1D4150 ORS D,3 STORE DIGIT 4F1D4160 TIX CI1,4,1 COUNT CHARACTERS 4F1D4170 TXL CI3 4F1D4180 WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL 4F1D4190 TXL WP7 NO PROGRAM 4F1D4200 WP9 LXD WP2,1 MASK OUT FIRST COL, OF CARD IMAGE 4F1D4210 CAL MK2 X 4F1D4220 ANS ANS LT,1 X 4F1D4230 TIX ANS,1,1 X 4F1D4240 WP7 LXD Z2,1 COPY LOOP 4F1D4250 CRAN CPY LT-12,1 4F1D4260 CPY RT-12,1 X 4F1D4270 TXI T2,1,-1 4F1D4280 T2 TXH CRAN,1,-12 4F1D4290 CAL WP RESET SWITCH FOR SECOND CYCLE 4F1D4300 STO WP X 4F1D4310 WP4 TXH WP5,4 4F1D4320 LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN 4F1D4330 LXD X2,2 X 4F1D4340 WT2 LXD X4,4 X 4F1D4350 L2 TRA 2,4 X 4F1D4360 RPR2 WPR 4F1D4370 TXL PR2-2 4F1D4380 WP5 WPR 4F1D4390 SPR 9 SECOND CYCLE 4F1D4400 WP2 TXL PR5,0,12 CONVERT REST OF LINE 4F1D4410 BLNKS BCD 1 4F1D4420 X4 HTR 4F1D4430 YZONE OCT 20 4F1D4440 BNK OCT 60 4F1D4450 MK2 OCT 377777777777 4F1D4460 COL1 MZE 4F1D4470 COL BSS 1 4F1D4460 RT BES 16 4F1D4490 8.5 BSS 1 4F1D4500 8.4 BSS 1 4F1D4510 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 156/156 ------ 8.3 BSS 1 4F1D4520 8.2 BSS 1 4F1D4530 D BES 9 4F1D4540 Z BSS 1 4F1D4550 X BSS 1 4F1D4560 Y BSS 1 4F1D4570 LT SYN Y+1 4F1D4580 8.4L SYN LT-14 4F1D4590 8.4R SYN RT-14 4F1D4600 BSS 27 4F1D4610 EXIT SYN SECND 4F1D4620 REM ADDRESS REQUIRED FROM SECTION ONE.......... 4F1D4630 F SYN 618 ADDRESS OF 1ST WORD OF F REGION 4F1D4640 MON SYN 1282 ADDRESS OF ENTRY TO MONITOR FOR A 4F1D4650 DCELL1 SYN 1271 4F1D4660 REM 4F1D4670 REM 4F1D4680 REM TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 704 FORTRAN II. 4F1D4690 REM 4F1D4700 REM 4F1D4710 REM COMMON 4F1D4720 REM 4F1D4730 TABLE BSS 0 4F1D4740 BCD XXXXXX000001 DIM3 TABLE EXCEEDED, THE NUMBER OF 3-DIMEN4F1D4750 BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760 BCD 1S 9O. 4F1D4770 REM 4F1D4780 BCD XXXXXX000002 DIM2 TABLE EXCEEDED, THE NUMBER OF 2-DIMEN4F1D4790 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 157/157 ------ BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800 BCD 1S 100. 4F1D4810 REM 4F1D4820 BCD XXXXXX000003 DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830 BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840 BCD 1S 100, 4F1D4850 REM 4F1D4860 BCD XXXXXX000004 SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870 BCD NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 158/158 ------ BCD TS OF THIS STATEMENT. (SIGN CONSIDERED, ONE RELATIVE ADDRESS4F1D4890 BCD 3OF 0 ASSUMMED) 4F1D4900 REM 4F1D4910 BCD XXXXXX000005 TAU3 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4920 BCD RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930 BCD 2S PROGRAM. 4F1D4940 REM 4F1D4950 BCD XXXXXX000006 TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960 BCD RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 159/159 ------ BCD 2S PROGRAM. 4F1D4980 REM 4F1D4990 BCD XXXXXX000O07 TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D5000 BCD RENT 1-DIMENSI0NAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH4F1D5010 BCD 2IS PROGRAM. 4F1D5020 REM 4F1D5030 BCD XXXXXX000010 FLOCON TABLE EXCEEDED. MORE THAT 450 DIFFE4F1D5040 BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS4F1D5050 BCD 2IDERED) 4F1D5060 REM 4F1D5070 BCD XXXXXX000011 FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE4F1D5080 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 160/160 ------ BCD RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090 BCD 1ERED) 4F1D5100 REM 4F1D5110 BCD XXXXXX001635 MORE THAN SIX CHARACTERS IN SOME SYMBOL.4F1D5120 REM 4F1D5130 BCD XXXXXX001643 ILLEGAL PUNCTUATION IN THIS STATEMENT.4F1D5140 REM 4F1D5150 BCD XXXXXX002034 MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160 BCD 1Q. 4F1D5170 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 161/161 ------ REM 4F1D5180 BCD XXXXXX002062 REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190 BCD 1. 4F1D5200 REM 4F1D5210 BCD XXXXXX002266 MACHINE ERROR. INDEX FAILURE. 4F1D5220 REM 4F1D5230 BCD XXXXXX002433 REPEATED FAILURE IN READING STATE C FROM D4F1D5240 BCD 2RUM 4. 4F1D5250 REM 4F1D5260 BCD XXXXXX002434 REPEATED FAILURE IN READING STATE B FROM D4F1D5270 BCD 2RUM 3. 4F1D5280 REM 4F1D5290 BCD XXXXXX002435 REPEATED FAILURE IN READING STATE D FROM D4F1D5300 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 162/162 ------ BCD 2RUM 2. 4F1D5310 REM 4F1D5320 BCD XXXXXX002436 REPEATED FAILURE IN READING STATE A FROM D4F1D5330 BCD 2RUM 1. 4F1D5340 REM 4F1D5350 BCD XXXXXX002523 MACHINE ERROR. INDEX FAILURE. 4F1D5360 REM 4F1D5370 BCD XXXXXX002565 REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380 BCD 4FROM DRUM 2, 3 OR 4, 4F1D5390 REM 4F1D5400 BCD XXXXXX002577 NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 163/163 ------ BCD 8POSSIBLE MISSING PUNCTUATION BETWEEN FIELDS. 4F1D5420 REM 4F1D5430 BCD XXXXXX002656 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440 REM 4F1D5450 BCD XXXXXX002666 A SUBSCRIPT HAS A DOUBLE MULTIPLIER. 4F1D5460 REM 4F1D5470 BCD XXXXXX002673 A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480 REM 4F1D5490 BCD XXXXXX002720 MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 164/164 ------ BCD 8N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION. 4F1D5510 REM 4F1D5520 BCD XXXXX002722 THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F1D5530 BCD 2SCRIPT. 4F1D5540 REM 4F1D5550 BCD XXXXXX002741 A SUBSCRIPT HAS A DOUBLE ADDEND. 4F1D5560 REM 4F1D5570 BCD XXXXXX002744 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580 REM 4F1D5590 BCD XXXXXX002764 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5600 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 165/165 ------ REM 4F1D5610 BCD XXXXXX003023 A SUBSCRIPT ADDEND IS NOT A CONSTANT. 4F1D5620 REM 4F1D5630 BCD XXXXXX003026 THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640 BCD 4SCRIPT COMBINATION. 4F1D5650 REM 4F1D5660 BCD XXXXXX003064 A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670 BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5680 REM 4F1D5690 BCD XXXXXX003151 A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5700 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 166/166 ------ BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5710 REM 4F1D5720 BCD XXXXXX003254 PROGRAM EXPECTS COMMA OR END OF STATEMENT.4F1D5730 REM 4F1D5740 BCD XXXXXX003262 PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750 BCD 1. 4F1D5760 REM 4F1D5770 BCD XXXXXX003270 PROGRAM EXPECTS LEFT PARENTHESIS OR END OF4F1D5780 BCD 2 STATEMENT. 4F1D5790 REM 4F1D5800 BCD XXXXXX003272 MACHINE ERROR. AC GREATER THAN OCTAL 77. 4F1D5810 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 167/167 ------ REM 4F1D5820 BCD 9XXXXXX003274 PROGRAM EXPECTS END OF STATEMENTS 4F1D5830 REM 4F1D5840 BCD 9XXXXXX003300 PROGRAM EXPECTS LEFT PARENTHESIS. 4F1D5850 REM 4F1D5860 BCD 9XXXXXX003304 PROGRAM EXPECTS RIGHT PARENTHESIS. 4F1D5870 REM 4F1D5880 BCD 7XXXXXX003310 PROGRAM EXPECTS COMMA. 4F1D5690 REM 4F1D5900 BCD XXXXXX003314 SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910 BCD 3THIS CONTEXT. 4F1D5920 BCD XXXXXX003316 SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940 BCD 3 IN THIS CONTEXT. 4F1D5950 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 168/168 ------ REM 4F1D5960 REM STATE A 4F1D5970 REM 4F1D5980 BCD XXXXXX003542 THE CHARACTER $ OCCURS IN THIS STATEMENT 4F1D5990 BCD 8 SOMEWHERE OTHER THAN IN HOLLERITH TEXT. 4F1D6000 REM 4F1D6010 BCD XXXXXX003545 THE ILLEGAL CHARACTER (0-8-2 PUNCH) OCC4F1D6020 BCD 4URS INTHIS STATEMENT. 4F1D6030 REM 4F1D6040 BCD XXXXXX003550 THE ILLEGAL CHARACTER -0 (11-8-2 PUNCH) O 4F1D6050 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 169/169 ------ BCD 4CCURS IN THIS STATEMENTS. 4F1D6060 REM 4F1D6070 BCD XXXXXX003553 THE ILLEGAL CHARACTER +0 112-6-2 PUNCH) 0 4F1D6080 BCD 4CCURS IN THIS STATEMENT. 4F1D6090 REM 4F1D6100 BCD XXXXXX003556 THE ILLEGAL CHARACTER - (8-4 PUNCH) OCCUR 4F1D6110 BCD 4S IN THIS STATEMENT. 4F1D6120 REM 4F1D6130 BCD XXXXXX003561 THE NON BCD CHARACTER 001010 HAS BEEN RE 4F1D6140 BCD 8AD FROM TAPE WHILE PROCESSING THIS STATEMENT. 4F1D6150 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 170/170 ------ REM 4F1D6160 BCD 8XXXXXX003615 TOO MANY RIGHT PARENTHESIS. 4F1D6170 REM 4F1D6180 BCD XXXXXX003624 NON-ARITHMETIC STATEMENT OF A TYPE WHICH I4F1D6190 BCD 4S NOT IN DICTIONARY. 4F1D6200 REM 4F1D6210 BCD XXXXXX004055 TOO FEW RIGHT PARENTHESES. 4F1D6220 REM 4F104230 BCD 7XXXXXX004225 PROGRAM EXPECTS TO . 4F1D6240 REM 4F106250 BCD XXXXXX004304 A VARIABLE IN THIS LIST APPEARED PREVIOUSL4F1D6260 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 171/171 ------ BCD 5Y IN ADIMENSION STATEMENT. 4F1D6270 REM 4F1D6280 BCD XXXXXX004323 MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290 BCD 2RENTHESIS. 4F1D6300 REM 4F1D6310 BCD XXXXXX004444 A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320 BCD LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330 BCD MPT TOBATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN. 4F1D6340 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 172/172 ------ REM 4F1D6350 BCD XXXXXX004544 A RETURN STATEMENT HAS OCCURRED IN A PROGR4F1D6360 BCD AM NOTDEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM. 4F1D6370 REM 4F1D6380 BCD XXXXXX004663 SENSE SWITCH SETTING OTHER THAN 0,1 OR 2 4F1D6390 BCD 7OR MORE THAN 5 SETTINGS OR WRONG FORMAT. 4F1D6400 REM 4F1D6410 BCD 8XXXXXX004705 VARIABLE FORMAT NUMBER. 4F1D6420 REM 4F1D6430 BCD 6XXXXXX004707 NO FORMAT NUMBER. 4F1D6440 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 173/173 ------ REM 4F1D6450 BCD XXXXXX005170 MORE THAN SIX CHARACTERS IN SOME SYMBOL. 4F1D6460 REM 4F1D6470 BCD XXXXXX005200 ILLEGAL CHARACTER IN THIS LIST. 4F1D6480 REM 4F1D6490 BCD XXXXXX005260 MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500 BCD 30 PARENTHESIS). 4F1D6510 REM 4F1D6520 BCD XXXXXX005263 ATTEMPT TO SPECIFY SUBSCRIPT RANGE WITHO 4F1D6530 BCD 4UT USEOF PARENTHESIS. 4F1D6540 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 174/174 ------ REM 4F1D6550 BCD XXXXXX005305 INCOMPLETE STATEMENT OR INCOMPLETE CLOSURE4F1D6560 BCD 3OF PARENTHESIS. 4F1D6570 REM 4F1D6580 BCD XXXXXX005306 ILLEGAL CHARACTER IN D0 SPECIFICATION IN L4F1D6590 BCD 1IST, 4F1D6600 REM 4F1D6610 BCD 8XXXXXX005401 TOO MANY RIGHT PARENTHESIS. 4F1D6620 REM 4F1D6630 BCD 6XXXXXX005416 CONSTANT IN LIST. 4F1D6640 REM 4F1D6650 BCD 8XXXXXX005552 TOO MANY LEFT PARENTHESIS. 4F1D6660 REM 4F1D6670 BCD XXXXXX005607 ILLEGAL CHARACTER IN THIS STATEMENT. 4F1D6680 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 175/175 ------ REM 4F1D6690 BCD XXXXXX005715 A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700 BCD TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710 BCD . ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720 BCD ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730 BCD NT THEFOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C 4F1D6740 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 176/176 ------ BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT. 4F1D6750 REM 4F1D6760 BCD XXXXXX006042 ILLEGAL USE OF FLOATING POINT VARIABLE. 4F1D6770 REM 4F1D6780 REM STATE B 4F1D6790 REM 4F1D6800 BCD 8XXXXXX003527 TOO MANY CHARACTERS IN SYMBOL, 4F1D6810 REM 4F1D6820 BCD 8XXXXXX003602 ILLEGAL USE OF . CHARACTER. 4F1D6830 REM 4F1D6840 BCD 7XXXXXX003613 ARGREG SIZE EXCEEDED. 4F1D6850 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 177/177 ------ REM 4F1D6860 BCD XXXXXX003615 ILLEGAL USE OF HOLLERITH SPECIFICATION. 4F1D6870 REM 4F1D6880 BCD 8XXXXXX003654 NON-ZERO LEVEL REDUCTION. 4F1D6890 REM 4F1D6900 BCD 8XXXXXX003671 ILLEGAL USE OF = SIGN. 4F1D6910 REM 4F1D6920 BCD 8XXXXXX003724 ILLEGAL USE OF . SIGN, 4F1D6930 REM 4F1D6940 BCD XXXXXX004046 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950 BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 4F1D6960 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 178/178 ------ REM 4F1D6970 BCD 8XXXXXX004136 LAMBDA TABLE SIZE EXCEEDED, 4F1D6980 REM 4F1D6990 BCD 6XXXXXX004140 BETA TABLE SIZE EXCEEDED. 4F1D7000 REM 4F1D7010 BCD 8XXXXXXG04143 ALPHA TABLE SIZE EXCEEDED, 4F1D7020 REM 4F1D7030 BCD XXXXXX0C4647 FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040 BCD 2ACHINE. 4F1D7050 REM 4F1D7060 REM STATE C 4F1D7070 REM 4F1D7080 BCD XXXXXX004347 CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 179/179 ------ BCD 3STANT FROM DRUM 2. 4F1D7100 REM 4F1D7110 REM STATE D 4F1D7120 REM 4F1D7130 BCD 6XXXXXX003501 MIXED EXPRESSION. 4F1D7140 REM 4F1D7150 BCD 6XXXXXX003503 MIXED EXPRESSION 4F1D7160 REM 4F1D7170 BCD XXXXXXOO5233 CHECK SUM ERROR IN READING SIGMA TABLE ENT BCD 3RY FROM DRUM 2. REM REM LOCATIONS OF STAE B,C,D CALLS IN 8K SECTION ONE. REM BCD 8XXXXXX006412 TOO MANY CHARACTERS IN SYMBOL. REM BCD 8XXXXXXOO6465 ILLEGAL USE OF . CHARACTER, rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 180/180 ------ REM BCD 7XXXXXX006476 ARGREG SIZE EXCEEDED. REM BCD XXXXXX006500 ILLEGAL USE OF HOLLERITH SPECIFICATION. REM BCD 8XXXXXX006537 NON-ZERO LEVEL REDUCTION. REM BCD 8XXXXXX006554 ILLEGAL USE OF = SIGN. REM BCD 8XXXXXX006554 ILLEGAL USE OF . SIGN, REM BCD XXXXXX006731 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 181/181 ------ REM BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. REM BCD 8XXXXXX007021 LAMBDA TABLE SIZE EXCEEDED. REM BCD 6XXXXXX007023 BETA TABLE SIZE EXCEEDED. REM BCD 8XXXXXX007026 ALPHA TABLE SIZE EXCEEDED. REM BCD XXXXXX007532 FLOATING POINT CONSTANT OUTSIDE RANGE OF M REM BCD 2ACHINE. rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 182/182 ------ REM BCD XXXXXX010534 CHECK SUM ERROR TN READING FIXED POINT CON BCD 3STANT FROM DRUM 2. REM BCD 6XXXXXX011216 MIXED EXPRESSION. REM BCD 6XXXXXX011220 MIXED EXPRESSION REM BCD XXXXXX012750 CHECK SUM ERROR IN READING SIGMA TABLE ENT BCD 3RY FROM DRUM 2. REM REM 4F1D7200 REM 4F1D7210 REM 1NITALIZATION RECORD F015. 4F1D7220 REM 4F1D7230 BCD XXXXXX000553 FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 183/183 ------ BCD 7 WRITESTATE A OF SECTION ONE ON DRUM 1. 4F1D7250 REM 4F1D7260 BCD XXXXXX000560 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7270 BCD 7 WRITESTATE D OF SECTION ONE ON DRUM 2. 4F1D7280 REM 4F1D7290 BCD XXXXXX000563 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7300 BCD 7 WRITESTATE B OF SECTION ONE ON DRUM 3, 4F1D7310 REM 4F1D7320 BCD XXXXXX000566 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 184/184 ------ BCD 7 WRITESTATE C OF SECTION ONE ON DRUM 4, 4F1D7340 REM 4F1D7350 BCD 2XXXXXXXXXXXX 4F1D7360 END 4F1D7370 REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000, F1P00010 REM ----------FILE: 185.PNG-----------------------------BEFORE LINE ABOVE ORG 0 F1P00020 PZE ORG1PA,,ORG1PA F1P00030 PZE END1PA-1 F1P00040 REM F1P00050 REM THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME F1P00060 REM F1P00070 ORG1PA ORG 614 F1P00080 NOP TO PERMIT STOP FOR TESTING RUNS, F1P00090 PARTA WEF 4 F1P00100 REM TABLE SAVING PROGRAM F1P00110 REM WRITE FIXCON WORD COUNT ON DRUM F1P00120 WRS 194 F1P00130 CLA FXCNIX-3 F1P00140 ARS 17 F1P00150 STO WORKCL F1P00160 CPY WORKCL F1P00170 CPY WORKCL F1P00180 REM PROGRAM FOR SAVING COMPAIL TABLE F1P00190 LXD BBOX,2 F1P00200 TXH A1PTS,2,0 F1P00210 TSX DIAG,4 STOP FOR NO INSTRUCTIONS COMPILED F1P00220 A1PTS WRS 147 F1P00230 LXA L(0),1 SAVE F1P00240 AA3PTS CPY CIB,1 CIT F1P00250 TXI AA1PTS,1,-1 BUFFER F1P00260 AA1PTS TXI AA2PTS,2,1 F1P00270 AA2PTS TXH AA3PTS,2,0 F1P00280 WEF 147 F1P00290 REW 147 F1P00300 A5PTS RTT TURN OFF TAPE CHECK F1P00310 NOP INDICATOR AND LIGHTS F1P00320 LXA L(4),1 F1P00330 LXA L(0),4 F1P00340 A14PTS RDS 147 F1P00350 A6PTS CPY COMP,4 COPY A RECORD OF COMPILED F1P00360 TXI A6PTS,4,-1 INSTRUCTIONS INTO STORAGE F1P00370 TRA A10PTS EOF F1P00380 WRS 219 EOR F1P00390 RTT F1P00400 TRA A11PTS TAPE CHECK ON F1P00410 WRS 146 F1P00420 CLA CMPREC COUNT EACH F1P00430 ADD L(1) COMPAIL F1P00440 STO CMPREC RECORD F1P00450 LXA L(2),1 F1P00460 LXA L(0),2 TRANSFER RECORD F1P00470 A9PTS CPY COMP,2 FROM STORAGE F1P00480 TXI A7PTS,2,-1 TO TAPE 2 F1P00490 A7PTS TXI A8PTS,4,1 F1P00500 A8PTS TXH A9PTS,4,0 F1P00510 TRA A14PTS F1P00520 A11PTS BST 147,0,1 PREPARE TO READ RECORD AGAIN F1P00530 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 186/186 ------ TIX A14PTS-1,1,1 TEST FOR 2 TAPE CHECKS, F1P00540 TSX DIAG,4 STOP FOR 5TH READ CHECK F1P00550 A10PTS WEF 146 END OF COMPAIL ON TAPE 2 F1P00560 WRS 146 F1P00570 CPY CMPREC F1P00580 REM PROGRAM TO SAVE FORSUB TABLE F1P00590 LXD BK,1 F1P00600 TXL WEF,1,0 TEST FOR EMPTY TABLE F1P00610 LXA L(0),2 F1P00620 CPY FORSUB,2 F1P00630 TXI A15PTS,2,-1 F1P00640 A15PTS TXI A15PTS+1,1,1 F1P00650 TXH A15PTS-2,1,0 F1P00660 WEF WEF 146 F1P00670 REM PROGRAM FOR SAVING FLOCON TABLE F1P00680 FL00 LXD FLCNIX-3,4 (N) F1P00690 PXD 0,4 F1P00700 ARS 18 F1P00710 STO FLSIZE LOAD FLSIZE WITH N F1P00720 TXL FL09,4,0 IS TABLE EMPTY F1P00730 CAL MSK F1P00740 ANS FLCNIX-2 F1P00750 ANS FLCNIX-3 F1P00760 CLA FLCNIX-3 GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770 SUB FLCNIX-2 F1P00780 STA FL04 SAVE L F1P00790 FL01 LXA L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS F1P00800 FL02 LXA FL04,4 (L) F1P00810 RDR 2 F1P00820 LDA FLCNIX-2 F1P00830 FL03 CPY OTA+450,4 COPY FLOCON FROM DRUM F1P00840 TIX FL03,4,1 F1P00850 FL04 PXD **,0 F1P00860 LXA FL04,4 COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK F1P00870 LXA L(50),1 SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS F1P00880 FL05 ACL OTA+450,4 FOLLOWED BY THE FIFTY WORDS F1P00890 COM F1P00900 TNX ERROR,4,1 F1P00910 FL06 ACL OTA+450,4 F1P00920 TNX FL07,4,1 FINAL ENRTY , GET OUT OF CK SUM LOOP F1P00930 TIX FL06,1,1 F1P00940 COM F1P00950 TXI FL05,1,49 F1P00960 FL07 COM F1P00970 TZE FL08 TEST CK SUM F1P00980 TIX FL02,2,1 CK SUM FAILED, TRY AGAIN F1P00990 TSX DIAG,4 CK SUM FAILED FIVE TIMES F1P01000 FL08 LXA FL04,4 (L) F1P01010 FL09 WTB 2 F1P01020 CPY FLSIZE F1P01030 TXL PROFOR,4,0 IS FLOCON EMPTY F1P01040 LXA L(50),1 F1P01050 FL10 TNX ERROR,4,1 F1P01060 FL11 CPY OTA+450,4 F1P01070 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 187/187 ------ TNX PROFOR,4,1 FINISHED, GET OUT OF LOOP F1P01080 TIX FL11,1,1 F1P01090 TXI FL10,1,49 F1P01100 ERROR TSX DIAG,4 INDEX RAN OUT AT CK SUM F1P01110 REM ROUTINE TO PROCESS FORMAT TABLE F1P01120 PROFOR TSX TAP00,1 F1P01130 HTR 10 F1P01140 OTA F1P01150 TSX WAT00,1 F1P01160 HTR 10 F1P01170 OTA F1P01180 REM ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE. F1P01190 ADD00 LXD DIM1IX-3,4 ENTRY COUNT F1P01200 TXL ADD07,4,0 TABLE EMPTY F1P01210 ADD01 LXA L(5),2 F1P01220 ADD02 RDR 3 F1P01230 LXA L(0),1 F1P01240 LDA ORGDM1 F1P01250 PXD 0,0 F1P01260 ADD03 CPY OTA,1 COPY NAME F1P01270 CPY OTA+1,1 COPY N1 F1P01280 TXI ADD04,1,-2 F1P01290 ADD04 CAD GARBGE COPY AND SUM CK SUMS F1P01300 TIX ADD03,4,1 F1P01310 COM F1P01320 LXD DIM1IX-3,4 F1P01330 LXA L(0),1 F1P01340 ADD05 ACL OTA,1 SUM ENTRIES F1P01350 ACL OTA+1,1 F1P01360 TXI ADD06,1,-2 F1P01370 ADD06 TIX ADD05,4,1 F1P01380 COM F1P01390 TZE ADD08 F1P01400 LXD DIM1IX-3,4 CHECK SUM ERROR, TRY AGAIN F1P01410 TIX ADD02,2,1 F1P01420 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01430 ADD07 LXA L(0),1 F1P01440 ADD08 SXD NEWBAS,1 F1P01450 REM NOW READ DIM2 TABLE F1P01460 LXD DIM2IX-3,4 F1P01470 TXL ADD18,4,0 TABLE EMPTY F1P01480 ADD09 LXA L(5),2 F1P01490 ADD10 RDR 3 F1P01500 LXD NEWBAS,1 F1P01510 LDA ORGDM2 F1P01520 PXD 0,0 F1P01530 ADD11 CPY OTA,1 COPY NAME F1P01540 CPY OTA+1,1 COPY N1 N2 F1P01550 TXI ADD12,1,-2 F1P01560 ADD12 CAD GARBGE COPY AND SUM CK SUMS F1P01570 TIX ADD11,4,1 F1P01580 COM F1P01590 LXD DIM2IX-3,4 F1P01600 LXD NEWBAS,1 F1P01610 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 188/188 ------ ADD13 ACL OTA,1 F1P01620 ACL OTA+1,1 F1P01630 TXI ADD14,1,-2 F1P01640 ADD14 TIX ADD13,4,1 F1P01650 COM F1P01660 TZE ADD15 F1P01670 LXD DIM2IX-3,4 CK SUM ERROR TRY AGAIN F1P01680 TIX ADD10,2,1 F1P01690 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01700 ADD15 LXD DIM2IX-3,4 F1P01710 LXD NEWBAS,1 F1P01720 STZ WORKCL F1P01730 ADD16 CLA OTA+1,1 F1P01740 STA WORKCL F1P01750 LRS 53 F1P01760 MPY WORKCL N1*N2 F1P01770 STQ OTA+1,1 F1P01780 TXI ADD17,1,-2 F1P01790 ADD17 TIX ADD16,4,1 F1P01600 SXD NEWBAS,1 UPDATE NEWBAS FOR DIM3 ROUTINE F1P01810 REM NOW READ DIM3 TABLE. F1P01820 ADD18 LXD DIM3IX-3,4 F1P01830 TXL ADD28,4,0 DIM3 TABLE EMPTY F1P01840 ADD19 LXA L(5),2 F1P01850 ADD20 RDR 3 F1P01860 LXD NEWBAS,1 F1P01870 LDA ORGDM3 F1P01680 PXD 0,0 F1P01890 ADD21 CPY OTA,1 F1P01900 CPY OTA+1,1 F1P01910 CPY BUFFER,4 F1P01920 TXI ADD22,1,-2 F1P01930 ADD22 CAD GARBGE F1P01940 TIX ADD21,4,1 F1P01950 COM F1P01960 LXD DIM3IX-3,4 F1P01970 LXD NEWBAS,1 F1P01980 ADD23 ACL OTA,1 F1P01990 ACL OTA+1,1 F1P02000 ACL BUFFER,4 F1P02010 TXI ADD24,1,-2 F1P02020 ADD24 TIX ADD23,4,1 F1P02030 COM F1P02040 TZE ADD25 F1P02050 LXD DIM3IX-3,4 F1P02060 TIX ADD20,2,1 CK SUM FAILED TRY AGAIN F1P02070 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P02080 ADD25 LXD DIM3IX-3,4 F1P02090 LXD NEWBAS,1 F1P02100 ADD26 CLA OTA+1,1 F1P02110 STZ WORKCL F1P02120 STA WORKCL F1P02130 LRS 53 F1P02140 MPY WORKCL N1*N2 F1P02150 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 189/189 ------ MPY BUFFER,4 N3*(N1*N2) F1P02160 STQ OTA+1,1 F1P02170 TXI ADD27,1,-2 F1P02160 ADD27 TIX ADD26,4,1 F1P02190 NOP NOT USED. F1P02200 NOP NOT USED. F1P02210 REM NOW WRITE SIZ TABLE ON TAPE 2. F1P02220 ADD28 PXD 0,1 F1P02230 COM F1P02240 ADD DECR1 F1P02250 PDX 0,4 F1P02260 PXD 0,4 F1P02270 ARS 18 F1P02280 STO WORKCL F1P02290 ADD L(1) F1P02300 PAX 0,1 F1P02310 LXA L(0),2 F1P02320 PXD 0,0 F1P02330 ADD33 ACL OTA,2 COMPUTE CK SUM FOR SIZ TABLE F1P02340 TXI ADD32,2,-1 F1P02350 ADD32 TIX ADD33,4,1 F1P02360 SLW OTA,2 F1P02370 CLA DMASK F1P02380 ANS EIFNO F1P02390 WTB 2 F1P02400 CPY EIFNO F1P02410 CPY WORKCL F1P02420 TXL ADD31,1,1 F1P02430 LXA L(0),2 F1P02440 ADD29 CPY OTA,2 F1P02450 TXI ADD30,2,-1 F1P02460 ADD30 TIX ADD29,1,1 F1P02470 ADD31 WEF 2 F1P02480 WTB 2 WRITE SENSE SWITCH SETTINGS AS RE- F1P02490 LXA L(5),1 CORD ONE, FILE FIVE, TAPE TWO F1P02500 X0010 CPY ENDI1+5,1 F1P02510 TIX X0010,1,1 F1P02520 TSX TAP00,1 ASSEMBLE AND WRITE SUBDEF TABLE F1P02530 11 F1P02540 OTA F1P02550 TSX WAT00,1 F1P02560 11 F1P02570 OTA F1P02580 TSX TAP00,1 ASSEMBLE AND WRITE COMMON TABLE F1P02590 12 F1P02600 OTA F1P02610 TSX WAT00,1 F1P02620 12 F1P02630 OTA F1P02640 TSX TAP00,1 ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS F1P02650 13 F1P02660 OTA F1P02670 TSX WAT00,1 F1P02680 13 F1P02690 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 190/190 ------ OTA F1P02700 TSX TAP00,1 ASSEMBLE TEIFNO FROM TAPE 4 F1P02710 HTR 0 F1P02720 HTR OTA F1P02730 STZ PAT15 INSURE DECREMENT IS CLEAR F1P02740 LXD OTA-1,4 LENGTH OF TEIFNO INTO I.R.4 F1P02750 TXL WRITE,4,1 IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY F1P02760 LXD PAT13,1 INITIALIZE I.R. TO STEP THROUGH TABLE F1P02770 SXD PAT14,4 SAVE WORD COUNT F1P02780 ISPLUS LXD PAT14,4 REINTIALIZE FOR FURTHER SEARCHING F1P02790 NEXT CLA OTA,1 PICK UP NEXT ENTRY IN TEIFNO F1P02800 TPL MASK HAS THIS BEEN PROCESSED F1P02810 SLW OTA,1 F1P02820 TXI ISTHRU,1,-1 NO, SET I.R. TO LOOK AT NEXT ENTRY F1P02830 ISTHRU TIX NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02840 TRA WRITE YES, FINISHED F1P02850 MASK STA PAT15 STORE COMPERAND F1P02860 TXI RECOMP,1,-1 SET I.R.S TO START COMPARISON F1P02870 RECOMP PXD 0,1 F1P02880 PDX 0,2 F1P02890 TNX WRITE,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02900 SXD PAT14,4 SAVE NUMBER OF ENTRIES YET TO BE TREATED F1P02910 PAT16 CLA OTA,2 PICK UP ENTRY TO BE COMPARED F1P02920 TMI NODUP NO SEARCH NECESSARY IF NEGATIVE F1P02930 ANA PAT11 ISOLATE EXTERNAL FORMULA NUMBER F1P02940 CAS PAT15 COMPARE TO REMAINING ENTRIES F1P02950 TRA NODUP NO DUPLICATE F1P02960 TRA PAT9 DUPLICATE F1P02970 NODUP TXI PAT8,2,-1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRYF1P02980 REM FOR COMPARISON F1P02990 PAT8 TIX PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED F1P03000 TRA ISPLUS YES F1P03010 PAT9 CLA OTA,2 FLAG DUPLICATE ENTRY NEGATIVE F1P03020 SSM F1P03030 STO OTA,2 F1P03040 CLS OTA-1,1 F1P03050 STO OTA-1,1 F1P03060 TRA ISPLUS F1P03070 WRITE TSX WAT00,1 WRITE TEIFNO ON TAPE F1P03080 HTR 0 F1P03090 OTA F1P03100 TSX TAP00,1 ASSEMBLE TIFGO F1P03110 HTR 2 F1P03120 L(2TA) HTR 2TA F1P03130 REM START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO F1P03140 MFGTP CLA 2TA-1 GET NUMBER OF WORDS IN 2TA. F1P03150 TZE WFG00 EXIT FOR NO ENTRIES IN TABLE, F1P03160 PDX 0,2 SET INDEX B TO NUMBER OF WORDS, F1P03170 ARS 18 COMPUTE F1P03180 ADD L(2TA) 2TA F1P03190 STA MFG00 PLUS F1P03200 STA MFG03 NUMBER F1P03210 STA MFG05 OF F1P03220 STA MFG08 WORDS F1P03230 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 191/191 ------ STA MFG09 IN F1P03240 STA MFG12 2TA F1P03250 STA MFG18 AND F1P03260 STA MFG20 INITIALIZE ADDRESSES F1P03270 CLA OTA-1 GET NUM WORDS IN OTA F1P03280 TNZ MFGOK TABLE EXISTS F1P03290 TRA TEIFER STOP FOR NO TABLE IN OTA F1P03300 MFGOK ARS 18 NUMBER WORDS PUT IN AC ADDRESS F1P03310 ADD L(OTA) ADD OTA ORIGIN F1P03320 STA MFG01 INITIALIZE ADDRESSES WITH F1P03330 STA MFG02 OTA + NUM WORDS F1P03340 STA MFG06 F1P03350 STA MFG07 F1P03360 STA MFG10 F1P03370 STA MFG11 F1P03380 STA MFG17 F1P03390 STA MFG19 F1P03400 MFG00 CLA 0,2 ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410 TPL MFG14 SIGN IS PLUS. F1P03420 STA E3 SAVE A1. F1P03430 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA.(2) F1P03440 MFG01 CLA 0,4 AL PRIME AND AL GO TO AC. F1P03450 ANA MSK ERASE AL PRIME IN AC. F1P03460 SUB E3 COMPARE TEIFNO ARGUMENT WITH A1. F1P03470 TZE MFG02 AL EQUALS ARGUMENT. F1P03480 TIX MFG01,4,1 COMP AL VS NEXT TEIFNO ENTRY. (3A1)F1P03490 CLA PAT13 F1P03500 TRA MFG03 F1P03510 MFG02 CLA 0,4 A1 PRIME AND A1L GO TO AC. F1P03520 ARS 18 A1 PRIME GOES TO ADDRESS OF AC F1P03530 MFG03 STA 0,2 (I) A1 PRIME REPLACES A1 F1P03540 MFG04 TXI MFG05,2,-1 TAKE WORD 2 OF TIFGO ENTRY F1P03550 MFG05 CLA 0,2 (1). AC DECK IS A2, ADDR IS A3 F1P03560 STA E3 SAVE A3 F1P03570 LXD OTA-1,4 (2) F1P03580 MFG06 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03590 ANA MSK ERASE A3 PRIME IN AC F1P03600 SUB E3 COMPARE TEIFNO ARGUMENT WITH A3 F1P03610 TZE MFG07 A3 EQUALS ARGUMENT F1P03620 TIX MFG06,4,1 (3A3) F1P03630 CLA PAT13 F1P03640 TRA MFG08 F1P03650 MFG07 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03660 ARS 18 A3 PRIME GOES TO ADDR OF AC F1P03670 MFG08 STA 0,2 (1). A3 PRIME REPLACES A3 F1P03680 MFG09 CLA 0,2 (1). A2 AND A3 PRIME GO TO AC F1P03690 ARS 18 A2 GOES TO ADDR OF AC F1P03700 STA E3 SAVE A2 F1P03710 LXD OTA-1,4 (2) F1P03720 MFG10 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03730 ANA MSK ERASE A2 PRIME IN AC F1P03740 SUB E3 COMPARE TEIFNO ARGUMENT WITH A2 F1P03750 TZE MFG11 A2 EQUALS ARGUMENT F1P03760 TIX MFG10,4,1 (3A2) F1P03770 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 192/192 ------ CLA PAT13 F1P03780 TRA MFG12 F1P03790 MFG11 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03800 MFG12 STD 0,2 (1) A2 PRIME REPLACES A2 F1P03810 TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P03820 MFG13 TIX MFG13-1,2,1 TAKE SECOND WORD OF 2TA ENTRY F1P03830 TRA WFG00 EXIT TO TAPE WRITING PROGRAM F1P03840 MFG14 PAX 0,4 INTEGER N GOES TO INDEX C F1P03850 TRA MFG14+9,4 F1P03860 TRA MFG13 N EQUALS 7 NO MODIFICATION F1P03670 TRA MFG15 N EQUALS 6 F1P03880 TRA MFG04 N EQUALS 5 F1P03890 TRA MFG04 N EQUALS 4 F1P03900 TRA MFG04 N EQUALS 3 F1P03910 TRA MFG13 N EQUALS 2 NO MODIFICATION F1P03920 TRA MFG13 N EQUALS 1 NO MODIFICATION F1P03930 TRA MFG15 N EQUALS 0 F1P03940 MFG15 TXI MFG16,2,-1 TAKE WORD 2 OF 2TA ENTRY F1P03950 MFG16 LXD OTA-1,4 (2) F1P03960 MFG17 CLA 0,4 K PRIME AND K GO TO AC F1P03970 ANA MSK ERASE K PRIME F1P03980 MFG18 SUB 0,2 (1). COMPARE K WITH TEIFNO ARGUMENTF1P03990 TZE MFG19 K EQUALS ARGUMENT F1P04000 TIX MFG17,4,1 (3K) F1P04010 CLA PAT13 F1P04020 TRA MFG20 F1P04030 MFG19 CLA 0,4 K PRIME AND K GO TO AC F1P04040 ARS 18 K PRIME GOES TO ADDRESS OF AC F1P04050 MFG20 STA 0,2 (1). K PRIME REPLACES K F1P04060 TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P04070 WFG00 TSX WAT00,1 WRITE 2TA ON TAPE F1P04080 2 F1P04090 HTR 2TA F1P04100 TSX TAP00,1 ASSEMBLE TRAD F1P04110 HTR 3 F1P04120 L(3TA) HTR 3TA F1P04130 REM PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO F1P04140 MTRTP CLA 3TA-1 GET NUM OF WORDS IN 3TA F1P04150 TZE WTR00 NO ENTRIES IN TABLE F1P04160 PDX 0,2 NUMBER OF WORDS PUT IN INDEX B F1P04170 ARS 18 RESET ADDRESSES F1P04180 ADD L(3TA) F1P0419O STA MTR02 F1P04200 STA MTR04 F1P04210 CLA OTA-1 GET NUMBER WORDS IN OTA. F1P04220 TNZ MTROK TABLE EXISTS F1P04230 TRA TEIFER STOP FOR NO TABLE IN OTA F1P04240 MTROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04250 ADD L(OTA) ADD OTA ORIGIN F1P04260 STA MTR01 INITIALIZE ADDRESS F1P04270 MTR00 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04280 MTR01 CLA 0,4 A SUB I PRIME AND A SUB I GO TO AC F1P04290 STD E3 SAVE A SUB I PRIME F1P04300 ANA MSK ERASE SUB I PRIME F1P04310 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 193/193 ------ MTR02 SUB 0,2 ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320 TZE MTR03 A SUB I EQUALS ARGUMENT F1P04330 TIX MTR01,4,1 A SUB I NOT EQUAL TO ARGUMENT F1P04340 CLA PAT13 F1P04350 TRA MTR04 F1P04360 MTR03 CLA E3 A SUB I PRIME GOES TO AC DECR. F1P04370 ARS 18 A SUB I PRIME GOES TO AC ADDR. F1P04380 MTR04 STA 0,2 (1). A SUB I PRIME REPLACES A SUB IF1P04390 TIX MTR00,2,1 TAKE NEXT WORD OF 3TA F1P04400 WTR00 TSX WAT00,1 ALL WORDS OF 3TA EXAMINED SO F1P04410 3 WRITE 3TA ON TAPE F1P04420 3TA F1P04430 AD000 TSX TAP00,1 ASSEMBLE TDO F1P04440 1 F1P04450 OATDO 1TA ORIGIN OF ASSEMBLED TDO F1P04460 REM PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO F1P04470 MDOTP CLA 1TA-1 GET NUMBER OF WORDS IN ITA F1P04480 TZE WDO00 EXIT FOR NO WORDS IN TABLE F1P04490 PDX 0,2 NUMBER OF WORDS IN ITA PUT IN IRB F1P04500 ARS 18 NUM WORDS PUT IN AC ADDR F1P04510 ADD OATDO ADD ORIGIN OF ASSEMBLED TDO F1P04520 STA MDO00 INITIALIZE ADDRESSES F1P84530 STA MDO06 F1P04540 STA MDO30 F1P04550 CLA OTA-1 GET NUMBER WORDS IN OTA F1P04560 MDOOK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04570 ADD L(OTA) ADD OTA ORIGIN AND F1P04580 STA MDO02 INITIALIZE ADDRESSES F1P04590 STA MDO03 F1P04600 STA MDO04 F1P04610 STA MDO041 F1P04620 MDO00 CLA 0,2 ADDR IS ITA + NUMBER WORDS (1) F1P04630 TPL MDO01 SIGN OF WORD IS PLUS F1P04640 SSP CHANGE SIGN OF WORD IN TABLE F1P04650 MDO30 STO 0,2 F1P04660 TRA MDO07 F1P04670 MDO01 ANA MSK ERASE DECR IN AC F1P04680 STA E1 SAVE BETA F1P04690 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04700 TXH MDO02,4,0 TEST FOR TEIFNO F1P04710 TRA TEIFER STOP FOR NO TEIFNO F1P04720 MDO02 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04730 ANA MSK ERASE BETA PRIME F1P04740 SUB E1 BETA COMPARED WITH TABLE ARGUMENT F1P04750 TZE MDO03 BETA EQUALS ARGUMENT F1P04760 TIX MDO02,4,1 BETA NOT EQUAL TO ARGUMENT F1P04770 CLA PAT13 F1P04780 TRA MDO06 F1P04790 MDO03 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04800 STD E2 SAVE DECR OF FIRST POSSIBILITY F1P04810 TNX MDO08,4,1 SEE IF THERE ARE 2 ENTRIES FOR F1P04820 MDO04 CLA 0,4 ONE ARGUMENT F1P04830 ANA MSK ERASE DECR IN AC F1P04840 SUB E1 F1P04650 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 194/194 ------ TZE MDO041 THERE ARE 2 ENTRIES F1P04860 MDO08 CLA E2 THERE IS ONLY ONE ENTRY F1P04870 TRA MDO05 FOR THIS ARGUMENT F1P04860 MDO041 CLA 0,4 F1P04890 MDO05 ARS 18 F1P04900 MDO06 STA 0,2 (I)* BETA PRIME REPLACES BETA F1P04910 MDO07 TIX MDO00,2,5 TAKE NEXT ENTRY IN ITA F1P04920 WDO00 TSX WAT00,1 WRITE TDO ON TAPE F1P04930 HTR 1 F1P04940 T0T1 HTR 1TA F1P04950 RTB 1 F1P04960 TRA 4 GO TO 1-CS FOR PART B OF ONE PRIME F1P04970 DMASK 0,0,32767 F1P04980 PAT11 OCT 77777 F1P04990 PAT13 HTR 0 F1P05000 PAT14 HTR 0 F1P05010 PAT15 HTR 0 F1P05020 GARBGE BSS 1 F1P05030 WORKCL BSS 1 F1P05040 NEWBAS BSS 1 F1P05050 BUFFER BES 90 F1P05060 E1PTS BSS 1 F1P05070 FLSIZE BSS 1 F1P05080 CMPREC BSS 1 F1P05090 END1PA ORG 1650 F1P05100 1TAM1 BSS 1 NO OF WORDS IN BLOCK F1P05110 1TA BSS 750 BLOCK FOR TABLE ASSEMBLING F1P05120 REM F1P05130 REM F1P05140 REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B = F0240000. F1P05150 ORG 0 F1P05160 PZE ORG1PB,,ORG1PB F1P05170 PZE END1PB F1P05180 REM F1P05190 REM THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME F1P05200 REM F1P05210 ORG1PB ORG 327 F1P05220 NOP TO PERMIT A STOP FOR TESTING USE. F1P05230 TSX TAP00,1 ASSEMBLE FORVAL F1P05240 TNT6 HTR 6 F1P05250 TOT6 HTR 6TA F1P05260 LXD 6TA-1,4 TEST FOR ENTRIES IN FORVAL, IF NONE WRITE F1P05270 TXL CLMD09,4,0 IDENTIFICATION WORD AND ZERO WORD. F1P05280 REM F1P05290 TSX TAP00,1 ASSEMBLE TABLE OF FIRST, LAST FORMULA F1P05300 16 NUMBERS OF CALL STATEMENTS. F1P05310 L16TA 16TA F1P05320 REM F1P05330 LXD 16TA-1,2 TEST FOR ANY ENTRIES IN CALL NUMBER TABLE, F1P05340 TXL CLMD09,2,0 IF NONE WRITE OUT FORVAL TABLE. F1P05350 REM F1P05360 REM THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER TABLES. F1P05370 REM THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE F1P05380 REM REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT. F1P05390 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 195/195 ------ REM THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO F1P05400 REM TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA F1P05410 REM NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH, F1P05420 REM F1P05430 STZ WORKCL F1P05440 LXA L(0),1 PREPARE FOR FORWARD SEARCH. F1P05450 LXD 6TA-1,4 NO OF ENTRIES IN FORVAL. F1P05460 PXD ,2 F1P05470 ARS 18 F1P05480 ADD L16TA F1P05490 STA *+1 F1P05500 REM F1P05510 CLMD01 CLA ..,2 GET NEXT ENTRY IN CALL TABLE. F1P05520 STD WORKCL DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530 ANA MSK F1P05540 ALS 18 F1P05550 CLMD02 CAS 6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL. F1P05560 TXI CLMD04,1,-1 CALL GREATER THAN FORVAL F1P05570 TRA CLMD03 CALL EQUAL FORVAL. F1P05580 TIX CLMD01,2,1 GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE F1P05590 TRA CLMD09 GO WRITE FORVAL TABLE. F1P05600 REM F1P05610 CLMD03 CLA WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS F1P05620 STD 6TA,1 FIRST RELATED TO CALL WITH LAST. F1P05630 TXI *+1,1,-1 F1P05640 CLMD04 TIX CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650 REM IF NOT GO WRITE FORVAL TABLE. F1P05660 REM F1P05670 CLMD09 TSX WAT00,1 F1P05680 HTR 6 FORVAL F1P05690 HTR 6TA ON TAPE F1P05700 CLA 6TA-1 GET NUMBER OF WORDS IN FORVAL F1P05710 TNZ WFD00 TABLE EXISTS F1P05720 TRA A4VAR EXIT 10 ASSEMBLE NEXT TABLE F1P05730 WFD00 WRS 194 PREPARE TO WRITE FORVAL ON DRUM F1P05740 WFD01 PDX 0,1 SET INDEX A TO NUM OF WORDS F1P05750 LXA WFD01,2 SET INDEX B TO ZERO F1P05760 ARS 18 PUT NUM OF WORDS IN AC F1P05770 ADD TOT6 F1P05780 STA WFD04 INITIALIZE F1P05790 STA WFD07 F1P05800 SUB L(1) ADDRESSES F1P05810 STA WFD03 F1P05820 STA WFD06 F1P05830 TXI WFD02,1,-1 SUBTRACT ONE FROM INDEX A F1P05840 WFD02 CLM COMPUTE CHECK SUM F1P05850 WFD03 ACL 0,1 FOR EACH FORVAL F1P05860 WFD04 ACL 0,1 ENTRY AND SAVE IN F1P05870 SLW FRCHS,2 SEPARATE TABLE F1P05880 TXI WFD05,2,-1 F1P05890 WFD05 TIX WFD02,1,2 TEST END OF FORVAL ENTRIES F1P05900 LXA WFD01,2 SET INDEX B TO ZERO F1P05910 LXD 6TA-1,1 F1P05920 LDA DRL02 F1P05930 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 196/196 ------ TXI WFD06,1,-1 F1P05940 WFD06 CPY 0,1 WRITE FORVAL F1P05950 WFD07 CPY 0,1 ENTRY F1P05960 TNX WFD08,1,2 TEST END OF FORVAL ENTRIES F1P05970 CPY FRCHS,2 WRITE CHECK SUM F1P05980 TXI WFD06,2,-1 FOR ABOVE ENTRY F1P05990 WFD08 CPY FRCHS,2 WRITE CHECK SUM FOR LAST ENTRY F1P06000 CPY FRCON WRITE END OF TABLE SIGNAL F1P06010 A4VAR TSX TAP00,1 ASSEMBLE FORVAR. F1P06020 TNT5 HTR 5 F1P06030 HTR 5TA F1P06040 TSX WAT00,1 WRITE FORVAR ON TAPE F1P06050 HTR 5 F1P06060 HTR 5TA F1P06070 TSX TAP00,1 ASSEMBLE FORTAG F1P06080 HTR 4 F1P06090 HTR 4TA F1P06100 TSX WAT00,1 WRITE FORTAG ON TAPE F1P06110 HTR 4 F1P06120 HTR 4TA F1P06130 REM PROGRAM FOR PROCESSING FREQUENCY TABLE. FRET F1P06140 TSX TAP00,1 ASSEMBLE FRET. F1P06150 HTR 7 F1P06160 TOT7 HTR 7TA ORIGIN OF ASSEMBLED FRET, F1P06170 MFRTP CLA 7TA-1 GET NUM OF WORDS IN TABLE F1P06180 TZE WFR00 EXIT FOR EMPTY TABLE F1P06190 PDX 0,2 SET INDEX B TO NUM WORDS IN TABLE F1P06200 ARS 18 PUT NUMBER IN AC ADDRESS AND F1P06210 ADD TOT7 INITIALIZE ADDRESSES F1P06220 STA MFR00 F1P06230 STA MFR03 F1P06240 CLA OTA-1 GET NUMBER OF WORDS IN OTA F1P06250 TNZ MFROK TABLE EXISTS F1P06260 TRA TEIFER STOP FOR NO TABLE IN OTA F1P06270 MFROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P06280 ADD L(OTA) ADD OTA ORIGIN AND F1P06290 STA MFR01 INITIALIZE ADDRESSES F1P06300 STA MFR02 F1P06344 MFR00 CLA 0,2 ADDR IS 7TA + NUMBER OF WORDS F1P06320 TPL MFR04 DO NOT MODIFY THIS WORD F1P06330 STA E10 SAVE ABSOLUTE PART OF WORD F1P06340 LXD OTA-1,1 SET INDEX TO NUM WORDS IN OTA F1P06350 MFR01 CLA 0,1 TEIFNO ARGUMENT IS IN AC. F1P06360 ANA MSK COMPARE WITH 7TA WORD F1P06370 SUB E10 F1P06380 TZE MFR02 MODIFY 7TA WORD F1P06390 TIX MFR01,1,1 GO TO NEXT TEIFNO WORD F1P06400 CLA L(0) NO ENTRY FOUND IN TEIFNO. IGNORE. F1P06410 TRA MFR03 F1P06420 MFR02 CLA OTA,1 TEIFNO WORD GOES TO AC F1P06430 ARS 18 INTERNAL FORMULA NUM IN AC ADDR, F1P06440 MFR03 STA 0,2 INTERNAL FORMULA NUM GOES TO 7TA F1P06450 MFR04 TIX MFR00,2,1 EXAMINE NEXT WORD OF 7TA F1P06460 REM PROGRAM FOR SORTING FRET F1P06470 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 197/197 ------ SFRTP CLA 7TA-1 GET NUMBER OF WORDS IN FRET F1P06480 ARS 18 NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490 ADD TOT7 COMPUTE NUMBER OF WORDS IN TABLE F1P06500 STA SFR01 PLUS ORIGIN OF TABLE AND INITIALIZEF1P06510 STA SFR03 ADDRESSES F1P06520 STA SFR06 F1P06530 STA SFR07 F1P06540 STA SFR11 F1P06550 STA SFR13 F1P06560 STA SFR17 F1P06570 SFR00 CLM SET E12 TO ZERO TO INDICATE F1P06580 STO E12 TABLE IS IN ORDER. F1P06590 LXD 7TA-1,1 SET INDEX A TO NUM OF WORDS IN 7TA F1P06600 SFR01 CLA 0,1 A WORD OF 7TA GOES TO AC. F1P06610 TMI SFR02 COMPARE THIS WORD. IT IS ALPHA ONE F1P06620 TXI SFR01,1,-1 EXAMINE NEXT WORD OF 7TA F1P06630 SFR02 STA E11 SAVE ALPHA ONE FOR COMPARISON F1P06640 SXD A1BOX,1 SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650 TNX SFR21,1,1 EXAMINE NEXT WORD OF 7TA F1P06660 SFR03 CLA 0,1 PUT NEXT WORD OF 7TA IN AC. F1P06670 TMI SFR05 COMPARE THIS WORD. IT IS ALPHA TWO F1P06680 TXL SFR21,1,1 EXIT FOR END OF TABLE F1P06690 TXI SFR03,1,-1 EXAMINE NEXT 7TA WORD F1P06700 SFR05 SSP COMPUTE ALPHA TWO F1P06710 SUB E11 MINUS ALPHA ONE F1P06720 TPL SFR01 ALPHA ONE IS SMALLER F1P06730 CLA L(1) C(E12) NOT ZERO INDICATES TABLE WASF1P06740 STO E12 NOT IN ORDER ON THIS PASS. F1P06750 LXA L(0),4 SET INDEX C TO ZERO TO INDEX OTA F1P06760 SFR06 CLA 0,1 ALPHA TWO GOES TO AC F1P06770 STO OTA,4 SAVE ALPHA TWO F1P06780 TXI SFR07,1,-1 GET NEXT WORD OF ALPHA TWO ENTRY F1P06790 SFR07 CLA 0,1 PUT THIS WORD IN AC F1P06800 TMI SFR10 ALL WORDS OF ALPHA TWO ENTRY SAVED F1P06810 TXI SFR09,4,-1 GO TO NEXT WORD OF OTA F1P06820 SFR09 STO OTA,4 SAVE WORDS OF ALPHA TWO ENTRY F1P06830 TXL SFR10,1,1 ALPHA TWO ENTRY IS END OF TABLE F1P06840 TXI SFR07,1,-1 EXAMINE NEXT WORD OF 7TA F1P06850 SFR10 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860 SFR11 CLA 0,1 ALPHA ONE GOES TO AC F1P06870 TXI SFR12,4,-1 GO TO NEXT WORD OF OTA F1P06880 SFR12 STO OTA,4 SAVE ALPHA ONE F1P06890 SXD A2BOX,4 COMPUTE INDEX FOR F1P06900 CLA A1BOX RETURNING TO ALPHA ONE F1P06910 ADD A2BOX AFTER TRANSPOSING F1P06920 STD A2BOX ALPHA ONE AND ALPHA TWO ENTRIES F1P06930 TXI SFR13,1,-1 EXAMINE NEXT WORD OF 7TA F1P06940 SFR13 CLA 0,1 PUT NEXT WORD IN AC F1P06950 TMI SFR15 FINISHED SAVING ALPHA ONE ENTRY F1P06960 TXI SFR14,4,-1 GO TO NEXT WORD OF OTA F1P06970 SFR14 STO OTA,4 SAVE WORDS OF ALPHA ONE ENTRY F1P06980 TXI SFR13,1,-1 EXAMINE NEXT WORD OF 7TA F1P06990 SFR15 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000 LXA L(0),2 SET INDEX B TO INDEX OTA F1P07010 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 198/198 ------ SFR16 CLA OTA,2 ALPHA ONE ENTRY AND ALPHA TWO ENTRYF1P07020 SFR17 STO 0,1 ARE INTERCHANGED F1P07030 TXI SFR18,2,-1 GO TO NEXT WORD OF OTA F1P07040 SFR18 TNX SFR00,1,1 END OF TABLE EXIT F1P07050 TXL SFR20,4,1 TEST IF OTA IS EMPTIED F1P07060 TXI SFR16,4,1 COUNT WORDS TAKEN FROM OTA F1P07070 SFR20 LXD A2BOX,1 GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07080 TRA SFR01 START OVER WITH NEW ALPHA ONE F1P07090 SFR21 CLA E12 TEST IF TABLE IS IN ORDER F1P07100 TNZ SFR00 EXAMINE TABLE AGAIN F1P07110 REM PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN F1P07120 REM TIFGD F1P07130 RFT00 BST 146 MOVE TAPE F1P07140 BST 146 THRU TABLES F1P07150 BST 146 ALREADY WRITTEN F1P07160 BST 146 TO OBTAIN F1P07170 BST 146 TIFGO F1P07180 BST 146 F1P07190 RDS 146 SELECT TAPE FOR READING F1P07200 CLA L(4) PREPARE TO COUNT F1P07210 STO IT1 TWO TAPE TESTS F1P07220 CPY E1RF GET TABLE NUMBER F1P07230 CLA E1RF AND COMPARE WITH F1P07240 SUB TNT2 TABLE CALLED FOR F1P07250 TZE RFT01 TABLE NUMBERS AGREE F1P07260 TSX DIAG,4 STOP FOR TABLE NOT IN RIGHT RECORD F1P07270 RFT01 CPY OTA-1 GET NUMBER OF WORDS F1P07280 CLA OTA-1 IN TAPE RECORD F1P07290 TZE WFR01 EXIT FOR EMPTY TABLE ON TAPE F1P07300 STD RFT05 F1P07310 RTT TURN OFF TAPE F1P07320 NOP CHECK INDICATOR AND LIGHTS F1P07330 RFT02 LXA L(0),2 SET INDEX B TO ZERO F1P07340 RFT03 CPY OTA,2 F1P07350 TXI RFT03,2,-1 COPY LOOP F1P07360 NOP END OF FILE JUMP F1P07370 WRS 219 END OF RECORD. DELAY FOR TAPE TEST F1P07380 RTT TAPE TEST F1P07390 TRA RFT04 TAPE TEST ON F1P07400 TRA RFT07 TAPE TEST OFF F1P07410 RFT04 BST 148 REPEAT RECORD F1P07420 RDS 148 PREPARE TO READ RECORD F1P07430 RFT05 TXI RFT06,2,** COMPENSATE FOR REREADING RECORD F1P07440 RFT06 CLA IT1 COUNT F1P07450 SUB L(1) TWO F1P07460 STO IT1 TAPE TESTS F1P07470 CPY E1RF GET TABLE NUMBER F1P07480 CPY E1RF GET NUMBER OF WORDS IN TABLE F1P07490 TPL RFT02 GO TO READ TAPE F1P07500 TSX DIAG,4 STOP FOR SECOND TAPE TEST F1P07510 RFT07 CLA 7TA-1 COMPUTE TABLE F1P07520 ARS 18 ORIGIN PLUS F1P07530 ADD TOT7 NUMBER OF F1P07540 STA RFT09 WORDS IN F1P07540 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 199/199 ------ STA RFT13 FRET AND F1P07560 STA RFT18 INITIALIZE ADDRESSES F1P07570 CLA OTA-1 GET NUMBER OF WORDS IN TI FGO F1P07580 ARS 18 PUT IN AC AND F1P07590 SUB L(1) SUBTRACT ONE F1P07600 PAX 0,4 SET INDEX C TO THIS NUMBER F1P07610 ADD TOTO ADD ORIGIN OF TIFGO ADD F1P07620 STA RFT08 INITIALIZE ADDRESS F1P07630 CLM F1P07640 SLW E1RFT F1P07650 RFT08 CLA 0,4 GET FIRST WORD OF TIFGO ENTRY F1P07660 STD E1RFT SAVE FORMULA NUMBER F1P07670 TMI RFT09-1 ENTRY IS AN IF(E) F1P07680 ANA MSK ERASE DECREMENT OF AC F1P07690 SUB L(2) TEST FOR GO TO VECTOR ENTRY F1P07700 TNZ RFT20 EXIT FOR ENTRY NOT A GO TO VECTOR F1P07710 LXD 7TA-1,1 SET INDEX A TO NUM OF WORDS IN FRETF1P07720 RFT09 CLA 0,1 GET WORD OF FRET ENTRY F1P07730 TPL RFT10 TEST FOR FIRST WORD OF ENTRY F1P07740 SSP PUT FORMULA NUMBER F1P07750 ALS 18 IN DECREMENT OF AC F1P07760 SUB E1RFT COMPARE FORMULA NUMBERS F1P07770 TZE RFT11 FORMULA NUMBERS MATCH F1P07780 RFT10 TIX RFT09,1,1 TEST END OF FRET F1P07790 TRA RFT20 EXIT FOR END OF FRET F1P07800 RFT11 TNX RFT20,1,1 PREPARE FOR SECOND WORD OF ENTRY F1P07810 RFT12 SXD E2RFT,1 AND SAVE INDEX A FOR RETURN F1P07820 LXA L(0),2 SET INDEX B TO ZERO F1P07830 RFT13 CLA 0,1 GET FREQUENCY PART OF ENTRY F1P07840 TMI RFT15 TEST END OF ENTRY F1P07850 STO FRTS,2 SAVE FREQUENCY F1P07860 TXI RFT14,2,-1 TAKE NEXT FRTS WORD F1P07870 RFT14 TIX RFT13,1,1 TAKE NEXT FRET WORD F1P07880 RFT15 TXL RFT20,2,0 EXIT FOR NO FREQUENCY IN ENTRY F1P07890 LXD E2RFT,1 SET INDEX A TO GET 2ND ENTRY WORD F1P07900 RFT16 TXI RFT17,2,1 GET FREQUENCIES F1P07910 RFT17 CLA FRTS,2 IN REVERSE ORDER F1P07920 RFT18 STO 0,1 AND REPLACE IN FRET ENTRY F1P07930 TXI RFT19,1,-1 TAKE NEXT WORD OF FRET ENTRY F1P07940 RFT19 TXH RFT16,2,0 TEST END OF ENTRY F1P07950 RFT20 TIX RFT08,4,2 TEST END OF TIFGO F1P07960 WFR01 RDS 146 POSITION F1P07970 RDS 146 TAPE F1P07980 RDS 146 FOR F1P07990 RDS 146 WRITING F1P08000 RDS 146 FRET F1P08010 WFR00 TSX WAT00,1 WRITE F1P08020 HTR 7 FRET F1P08030 HTR 7TA ON TAPE F1P08040 TSX TAP00,1 ASSEMBLE EQUIT. F1P08050 8 F1P08060 EQ F1P08070 REM PROGRAM FOR CLASSES OF EQUIVALENCE F1P08080 REM INITIALIZATION OF ADDRESSES AND STORAGE F1P08090 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 200/200 ------ CLEQ CLA EQM1 COMPUTE EO ORIGIN PLUS F1P08100 ARS 18 NUMBER OF WORDS IN TABLE F1P08110 ADD L(EQ) F1P08120 STA B7CLQ F1P08130 STA B8CLQ F1P08140 STA B9CLQ F1P08150 STA B2CLQ F1P08160 STA B11CLQ F1P08170 STA C2CLQ F1P08180 STA C3CLQ F1P08190 STA A10CLQ F1P08200 STA A11CLQ F1P08210 STA A12CLQ F1P08220 STA A13CLQ F1P08230 STA A17CLQ F1P08240 STA C10CLQ F1P08250 OADDR CLM F1P08260 SLW MEEQM1 F1P08270 SLW BOX1 F1P08280 SLW E1CLEQ F1P08290 SLW E2CLEQ F1P08300 SLW E3CLEQ F1P08310 SLW E4CLEQ F1P08320 SLW E5CLEQ F1P08330 LXA OADDR,2 F1P08340 LXD EQM1,4 F1P08350 G2CLQ SLW MEEQ,2 F1P08360 TXI G1CLQ,2,-1 F1P08370 G1CLQ TIX G2CLQ,4,1 F1P08380 CLA DECR1 F1P08390 STO BOX2 F1P08400 REM INITIALIZATION OF AN EQUIVALENCE CLASS F1P08410 BOCLQ LXD EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ F1P08420 TXL OUT,1,0 EXIT FOR EMPTY EQ TABLE F1P08430 LXD BOX2,2 PREPARE TO ENTER F1P06440 TXI B7CLQ,2,-1 A WORD IN MEEQ F1P08450 B7CLQ CLA 0,1 OBTAIN EQ WORD F1P06460 TZE B5CLQ EXIT FOR DELETED EQ SET F1P08470 STO MEEQ,2 SAVE EQ SET IN TABLE MEEQ F1P08480 CLM INDICATE F1P08490 B8CLQ SLW 0,1 DELETED F1P08500 TXI B1CLQ,2,-1 EQ SET F1P08510 B1CLQ TNX 0,1,1 EXIT FOR END OF EQ TABLE F1P08520 B2CLQ CLA 0,1 OBTAIN EQ SUBSCRIPT F1P08530 TMI B4CLQ EXIT FOR END OF EQ SET F1P08540 STO MEEQ,2 SAVE REST OF EQ SET F1P08550 TXI B9CLQ,1,-1 F1P08560 B9CLQ CLA 0,1 OBTAIN EQ SYMBOL F1P08570 TXI B10CLQ,2,-1 F1P08580 B10CLQ STO MEEQ,2 F1P08590 TXI B3CLQ,2,-1 IN TABLE MEEQ F1P08600 B3CLQ TIX B2CLQ,1,1 F1P08610 TRA ** EXIT FOR END OF EQ TABLE F1P08620 B4CLQ SSP SAVE LAST F1P08630 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 201/201 ------ STO MEEQ,2 SUBSCRIPT OF EQ SET F1P08640 SXD BOX2,2 AND ITS MEEQ INDEX F1P08650 TRA C0CLQ GO TO COMPARISON ROUTINE F1P08660 B5CLQ TXI B11CLQ,1,-1 F1P08670 B11CLQ CLA 0,1 LOOP TO F1P08680 TPL B6CLQ GO THROUGH F1P08690 TIX B7CLQ,1,1 DELETED SET F1P08700 B6CLQ TIX B11CLQ,1,2 F1P08710 TRA END EXIT FOR COMPLETELY DELETED EO TABLF1P08720 REM COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS F1P08730 C0CLQ LXD BOX2,2 INITIALIZE TEST F1P06740 SXD C5CLQ,2 FOR END OF MEEO TABLE F1P08750 LXD BOX1,2 SET INDEX B TO GET 1ST SYMB OF MEEQF1P08760 C6CLQ LXD EQ-1,1 PREPARE TO SCAN EQ TABLE F1P08770 C7CLQ SXD E1CLEQ,1 SAVE INDEX OF 1ST WORD OF EQ SET F1P08760 C2CLQ CLA 0,1 OBTAIN EQ WORD F1P08790 TNZ C4CLQ SET NOT DELETED F1P08800 TXI C3CLQ,1,-1 F1P08810 C3CLQ CLA 0,1 LOOP TO GO THRU F1P08820 TMI C1CLQ DELETED SET F1P08830 TIX C3CLQ,1,2 F1P08840 C1CLQ TIX C7CLQ,1,1 EXAMINE NEXT EQ SET F1P08850 TRA C9CLQ EXIT FOR END OF EO TABLE F1P08860 C4CLQ STO E5CLEQ SAVE EQ SYMBOL F1P08870 TXI C10CLQ,1,-1 F1P08880 C10CLQ CLA 0,1 GET EQ SUBSCRIPT F1P08890 TPL C8CLQ NOT END OF EQ SET F1P08900 CLA E5CLEQ GET LAST SYMBOL OF EQ SET F1P08910 SUB MEEQ,2 COMPARE WITH MEEQ SYMBOL F1P08920 TZE A0CLQ MATCH F1P08930 TIX C7CLQ,1,1 NO MATCH F1P08940 TRA C9CLQ F1P08950 C8CLQ CLA E5CLEQ F1P08960 SUB MEEQ,2 F1P08970 TZE A0CLQ F1P08980 TIX C2CLQ,1,1 F1P08990 C9CLQ TXI C5CLQ,2,-2 GET NEXT MEEQ SYMBOL F1P09000 C5CLQ TXH C6CLQ,2,** TEST END OF TABLE MEEQ F1P09010 REM END OF TABLE MEEQ, NO MATCH IN TABLE EQ F1P09020 F2CLQ LXD BOX2,2 INDICATE F1P09030 CLA MEEQ,2 END OF SET F1P09040 SSM IN TABLE F1P09050 STO MEEQ,2 MEEQ F1P09060 TXI F1CLQ,2,-1 INITIALIZE INDEX OF F1P09070 F1CLQ SXD BOX1,2 NEXT SET IN TABLE MEEO AND F1P09080 TRA BOCLQ INITIALIZE THE SET F1P09090 REM MEEQ SYMBOL MATCHES EQ SYMBOL F1P09100 A0CLQ TXI A14CLQ,1,1 F1P09110 A14CLQ SXD A6CLQ,1 SAVE EO INDEX OF MATCHED SYMBOL F1P09120 TIX A1CLQ,1,1 F1P09130 A1CLQ TXI A2CLQ,2,-1 F1P09140 A2CLQ CLA MEEQ,2 F1P09150 STA E2CLEQ SAVE SUBSCRIPT OF MEEQ SYMBOL F1P09160 A10CLQ CLA 0,1 F1P09170 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 202/202 ------ STA E3CLEQ SAVE SUBSCRIPT OF EQ SYMBOL F1P09160 LXD BOX2,2 F1P09190 TXI A16CLQ,2,-1 F1P09200 A16CLQ SXD E1CLQ,2 F1P09210 TXI A15CLQ,2,1 F1P09220 A15CLQ TMI A9CLQ MATCHED SYMBOL IS END OF EQ SET F1P09230 A4CLQ TXI A3CLQ,2,-1 LOOP TO TRANSFER F1P09240 A3CLQ TNX 0,1,1 TO MEEO SYMBOLS OF F1P09250 A11CLQ CLA 0,1 EQ BELOW MATCHED SYMBOL F1P09260 STO MEEQ,2 F1P09270 TNX 0,1,1 F1P09280 TXI A17CLQ,2,-1 F1P09290 A17CLQ CLA 0,1 F1P09300 TMI A5CLQ F1P09310 STO MEEQ,2 F1P09320 TRA A4CLQ F1P09330 A5CLQ STA MEEQ,2 SAVE SBSCR OF LAST SYMBOL OF EQ SETF1P09340 A9CLQ LXD E1CLEQ,1 F1P09350 A6CLQ TXL A8CLQ,1,** EXIT FOR MATCHED SYMBOL REACHED F1P09360 A12CLQ CLA 0,1 LOOP TO TRANSFER F1P09370 TXI A7CLQ,2,-1 TO MEEO SYMBOLS OF F1P09380 A7CLQ STO MEEQ,2 EQ ABOVE MATCHED F1P09390 TXI A6CLQ,1,-1 SYMBOL F1P09400 A8CLQ SXD BOX2,2 F1P09410 SXD D2CLQ,2 F1P09420 SXD D4CLQ,2 F1P09430 LXD E1CLEQ,1 INDICATE F1P09440 CLM DELETED F1P09450 A13CLQ SLW 0,1 EQ SET F1P09460 REM NORMALIZATION OF MEEQ SUBSCRIPTS F1P09470 CLA E3CLEQ GET EQ SUBSCRIPT F1P09480 SUB E2CLEQ COMPARE WITH MEEQ SUBSCRIPT F1P09490 TZE C0CLQ SUBSCRIPTS MATCH F1P09500 STA E4CLEQ F1P09510 TPL E0CLQ F1P09520 REM EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT F1P09530 LXD E1CLQ,2 F1P09540 TXI D4CLQ,2,-1 F1P09550 D4CLQ TXL D3CLQ,2,** F1P09560 D1CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09570 ADD E4CLEQ OF NEW SYMBOLS F1P09580 STA MEEQ,2 IN MEEQ SET F1P09590 TXI D2CLQ,2,-2 F1P09600 D2CLQ TXH D1CLQ,2,** F1P09610 D3CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPT F1P09620 ADD E4CLEQ OF LAST NEW SYMBOL F1P09630 STA MEEQ,2 ENTERED IN MEEQ SET F1P09640 TRA C0CLQ GO TO COMPARISON ROUTINE F1P09650 REM EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT F1P09660 E0CLQ LXD BOX1,2 F1P09670 TXI E2CLQ,2,-1 F1P09680 E2CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09690 ADD E4CLEQ OF OLD SYMBOLS F1P09700 STA MEEQ,2 IN MEEQ SET F1P09710 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 203/203 ------ TXI E1CLQ,2,-2 F1P09720 E1CLQ TXH E2CLQ,2,** F1P09730 TRA C0CLQ GO TO COMPARISON ROUTINE F1P09740 END CLA BOX2 COMPUTE F1P09750 COM NUMBER F1P09760 ADD DECR2 OF WORDS F1P09770 PDX 0,2 IN TABLE F1P09780 PXD 0,2 MEEO AND F1P09790 STD MEEQM1 SAVE WITH TABLE F1P09800 REM REDUNDANCY AND INCONSISTENCY TEST OF EQUIVALENCE SENTENCES F1P09810 LXD BOX2,2 INITIALIZATION F1P09820 SXD M11CLQ,2 OF F1P09830 LXA OADDR,2 INDEXING F1P09840 SXD BOX1,2 F1P09850 M6CLQ LXD BOX1,2 OBTAIN F1P09860 CLA MEEQ,2 FIXED F1P09870 STO SMBL SYMBOL F1P09880 TXI M10CLQ,2,-1 AND F1P09890 M10CLQ CLA MEEQ,2 ITS F1P09900 STO SBSCR SUBSCRIPT F1P09910 TXI M1CLQ,2,-1 F1P09920 M1CLQ CLA MEEQ,2 GET CHANGING SYMBOL AND F1P09930 CAS SMBL COMPARE WITH FIXED SYMBOL F1P09940 TRA M2CLQ NO MATCH F1P09950 TRA K1CLQ MATCH F1P09960 M2CLQ TXI M3CLQ,2,-1 HAS END OF CHANGING SYMBOLS F1P09970 M3CLQ CLA MEEQ,2 BEEN REACHED, NO MATCH CASE F1P09980 TMI M4CLQ YES F1P09990 TXI M1CLQ,2,-1 NO F1P10000 M4CLQ SXD M7CLQ,2 F1P10010 M9CLQ LXD BOX1,2 PREPARE TO GET F1P10020 TXI M5CLQ,2,-2 NEXT FIXED F1P10030 M5CLQ SXD BOX1,2 SYMBOL F1P10040 TXI M7CLQ,2,-1 F1P10050 M7CLQ TXH M6CLQ,2,** TEST END OF MEEQ SET F1P10060 M11CLQ TXL CLQOUT,2,0 F1P10070 TXI M8CLQ,2,-1 F1P10080 M8CLQ SXD BOX1,2 F1P10090 TRA M6CLQ F1P10100 K1CLQ TXI K2CLQ,2,-1 GET SUBSCRIPT F1P10110 K2CLQ CLA MEEQ,2 OF CHANGING SYMBOL F1P10120 TMI K4CLQ END OF SET REACHED F1P10130 CAS SBSCR COMPARE SUBSCRIPTS OF MATCHED SYMBLF1P10140 TRA K3CLQ NO MATCH, INCONSISTENT CASE F1P10150 TXI M1CLQ,2,-1 MATCH, REDUNDANT CASE F1P10160 K3CLQ LXD NEWTBL,4 F1P10170 TXH ERSTOR,4,0 F1P10180 CLA FRCON F1P10190 STO MEEQ F1P10200 ERSTOR CLA SMBL F1P10210 STO MEEQ+1,4 F1P10220 TXI SAVIR4,4,-1 F1P10230 SAVIR4 SXD NEWTBL,4 F1P10240 TRA M9CLQ GET NEXT SYMBOL F1P10250 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 204/204 ------ NEWTBL HTR 0 F1P10260 K4CLQ SSP F1P10270 CAS SBSCR F1P10280 TRA K3CLQ F1P10290 TRA M9CLQ F1P10300 TRA K3CLQ F1P10310 CLQOUT LXD NEWTBL,4 F1P10320 TXL OUT,4,0 F1P10330 CLA FRCON F1P10340 STO MEEQ+1,4 F1P10350 OUT TSX WAT00,1 WRITE EQUIT ON TAPE. F1P10360 8 F1P10370 MEEQ F1P10380 TSX TAP00,1 ASSEMBLE TABLE CLOSUB F1P10390 9 F1P10400 TOT9 9TA ORIGIN OF TABLE 9 F1P10410 REM PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB F1P10420 RDCTP CLA 9TA-1 GET NUMBER OF WORDS IN 9TA F1P10430 TZE REC07 EXIT FOR EMPTY TABLE F1P10440 PDX 0,4 SET INDEX C TO NUM OF WORDS IN 9TA F1P10450 ARS 18 COMPUTE TABLE ORIGIN PLUS F1P10460 ADD TOT9 NUMBER OF WORDS IN TABLE F1P10470 STA REC01 AND INITIALIZE ADDRESS F1P10480 LXD REC03,2 SET INDEX B TO COMP 1 AND F1P10490 SXD REC04,2 SAVE COMP 1 IN DECR OF REC04 F1P10500 REC00 LXA L(0),2 SET INDEX B TO ZERO F1P10510 REC01 CLA 0,4 GET 9TA WORD AND F1P10520 REC02 CAS 9TA,2 COMPARE WITH 9TA WORD F1P10530 TRA REC03 9TA WORDS NOT EQUAL F1P10540 TRA REC06 9TA WORDS ARE EQUAL F1P10550 REC03 TXI REC04,2,-1 TAKE NEXT 9TA WORD F1P10560 REC04 TXH REC02,2,** TEST FOR END OF NEW 9TA TABLE F1P10570 LXD REC04,1 ADD COMP 1 TO DECR OF F1P10580 TXI REC05,1,-1 REC04 TO ACCOUNT FOR F1P10590 REC05 SXD REC04,1 FOLLOWING ENTRY F1P10600 STO 9TA,2 ENTER UNEQUAL 9TA WORD IN TABLE F1P10610 REC06 TIX REC00,4,1 TEST END OF OLD 9TA TABLE F1P10620 LXD REC04,4 GET TWOS COMP OF NUMBER F1P10630 PXD 0,4 OF WORDS ENTERED IN 9TA F1P10640 COM COMPUTE TRUE FIGURE AND F1P10650 ADD L(1) STORE IN 9TA-1 F1P10660 PDX 0,4 F1P10670 SXD 9TA-1,4 F1P10680 REC07 TSX WAT00,1 WRITE MODIFIED F1P10690 HTR 9 TABLE CLOSUB F1P10700 HTR 9TA ON TAPE F1P10710 WEF 146 END OF TAPE TABLES FILE F1P10720 REW 3 F1P10730 CLA WAT99 CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3 F1P10740 STA WAT09 F1P10750 STA WAT05+2 F1P10760 STA WAT07-1 F1P10770 STA WAT08 F1P10780 CLA WAT05+4 NOP F1P10790 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 205/205 ------ STO WAT04-1 OVER COPY IDENTIFICATION F1P10800 STO WAT04 OVER COPY WORD COUNT F1P10810 STO WAT03-1 OVER STA FOR WORD COUNT F1P10820 CLA TP3TRA F1P10830 STO WAT04+2 F1P10840 TSX TAP00,1 ASSEMBLE NONEXC TABLE F1P10850 14 F1P10860 XTA F1P10870 TSX WAT00,1 WRITE NONEXC TABLE ON TAPE 3 F1P10880 14 F1P10890 XTA F1P10900 TSX TAP00,1 ASSEMBLE TSTOPS TABLE F1P10910 15 F1P10920 XTA F1P10930 TSX WAT00,1 WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3 F1P10940 15 F1P10950 XTA F1P10960 CLA EIFNO F1P10970 ADD DECR1 SET EIFNO TO LAST ADD IN PROBLEM PLUS 1 F1P10980 STO EIFNO F1P10990 CAL DECR2 F1P11000 COM F1P11010 ANS 16 F1P11020 CLA ENDI4 F1P11030 CAS L(1) F1P11040 TRA *+4 F1P11050 CLA DECR2 F1P11060 ORS 16 F1P11070 TRA SPACE F1P11080 PXD ,0 F1P11090 SWT 4 F1P11100 TRA SPACE F1P11110 CLA DECR2 F1P11120 ORS 16 F1P11130 SPACE RTB 1 F1P11140 TRA 4 F1P11150 WAT99 147 ADD OF TAPE 3 IN BINARY MODE F1P11160 REM WORKING STORAGE FOR PROGRAM CLEQ F1P11170 L(EQ) EQ F1P11180 BOX1 F1P11190 BOX2 F1P11200 E1CLEQ F1P11210 E2CLEQ F1P11220 E3CLEQ F1P11230 E4CLEQ F1P11240 E5CLEQ F1P11250 REM WORKING STORAGE FOR PROGRAM AMW F1P11260 E10 F1P11270 E11 AMW2105 F1P11280 A1BOX AMW 2106 F1P11290 A2BOX AMW 2305 F1P11300 IT1 AMW 2510 F1P11310 E1RFT F1P11320 E2RFT F1P11330 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 206/206 ------ END1PB ORG 907 F1P11340 XTAM1 BSS 1 F1P11350 XTA BSS 1500 THIS IS TABLE ASSEMBLY BUFFER OF PART 2 F1P11360 REM F1P11370 REM F1P11380 REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000. F1P11390 ORG 0 F1P11400 PZE ORG1PC,,1TOCS F1P11410 PZE END1PC F1P11420 REM F1P11430 REM COMMON TO SECTION ONE PRIME F1P11440 REM F1P11450 ORG1PC ORG 2408 F1P11460 OTAM1 BSS 1 LOCATION OF NUM OF WORDS IN TEIFNO F1P11470 OTA BSS 1500 BLOCK FOR ASSEMBLED TEIFNO F1P11480 REM TABLE ASSEMBLY PROGRAM F1P11490 TAP00 REW 4 F1P11500 STQ E2A F1P11510 SXD E3A,2 F1P11520 SXD E4A,4 F1P11530 CLA 1,1 GET TABLE NUMBER F1P11540 STA TAP00+6 F1P11550 PAX ,2 F1P11560 ALS 1 F1P11570 ADD 1,1 FORM 3I F1P11580 ADD OAD F1P11590 STA TAP06 F1P11600 STA TAP20 F1P11610 ADD L(2) FORM INTET + 3I +2 F1P11620 STA TAP01 F1P11630 STA TAP05 F1P11640 CLA MWN+10,2 F1P11650 PAX ,2 TABLE MAXIMUM F1P11660 SXD TAP081,2 F1P11670 SXD OVTEST,2 F1P11680 LXA L(0),2 F1P11690 TAP01 LXA **,4 NO OF BLOCKS OF THIS TABLE ON TAPE 4 F1P11700 CLA 2,1 F1P11710 STA TAP03 F1P11720 STA TAP08 F1P11730 SUB L(1) F1P11740 STA TAP11 F1P11750 STA TAP12 F1P11760 TXL TAP05,4,0 TEST FOR NO TAPE RECORDS F1P11770 TAP20 CLA ** F1P11780 STD TAP14+1 F1P11790 RTT TURN OFF INDICATOR F1P11600 TXH 0,0,0 F1P11810 TAP02 IOD F1P11820 RTT TEST INDICATOR F1P11830 TXI TAP14,4,1 ON F1P11840 CLA L(4) OFF F1P11850 STO E5A F1P11860 READ4 RTB 4 F1P11870 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 207/207 ------ CPY E1A COPY IDENTIFICATION F1P11880 TRA TAP025 F1P11890 TSX DIAG,4 EOF MACHINE ERROR F1P11900 TAP025 CLA E1A F1P11910 SUB 1,1 TEST FOR RECORD OF TABLE BEING ASSEMBLED F1P11920 TNZ READ4 F1P11930 TAP03 CPY **,2 F1P11940 TXI OVTEST,2,-1 F1P11950 TSX DIAG,4 EOF MACHINE ERROR F1P11960 TIX TAP02,4,1 F1P11970 TAP04 IOD F1P11980 RTT F1P11990 TRA TAP14 F1P12000 TAP05 CLA ** F1P12010 ARS 18 F1P12020 TZE TAP11 F1P12030 PAX ,4 F1P12040 TAP06 ADD ** F1P12050 STA TAP07 F1P12060 TAP07 CLA **,4 F1P12070 TAP08 STO **,2 F1P12080 TXI TAP081,2,-1 F1P12090 TAP081 TXL OVFLOW,2,** F1P12100 TAP09 TIX TAP07,4,1 F1P12110 TAP11 STZ ** F1P12120 PXD ,2 F1P12130 TZE TAP13 F1P12140 ARS 18 F1P12150 COM F1P12160 ADD L(1) F1P12170 PAX ,2 F1P12180 TAP12 SXD **,2 F1P12190 TAP13 LDQ E2A F1P12200 LXD E3A,2 F1P12210 LXD E4A,4 F1P12220 TRA 3,1 RETURN TO CALLER F1P12230 OVTEST TXH TAP03,2,** F1P12240 OVFLOW TSX DIAG,4 BUFFER AREA EXCEEDED F1P12250 TAP14 BST 4 F1P12260 TXI TAP14+2,2,** F1P12270 CLA E5A F1P12280 SUB L(1) F1P12290 STO E5A F1P12300 TNZ READ4 F1P12310 TSX DIAG,4 THREE FAILURES IN READING A RECORD FROM T4 F1P12320 OAD INTET F1P12330 BSS 3 F1P12340 REM MAXIMUM NUMBER OF WORDS ALLOWED IN VARIOUS TABLES F1P12350 -100 FMTEFN, TABLE 17 F1P12360 -100 CALLFN, TABLE 16 F1P12370 -300 TSTOPS, TABLE 15 F1P12380 -750 NONEXC, TABLE 14 F1P12390 -900 HOLARG, TABLE 13 F1P12400 -600 COMMON, TABLE 12 F1P12410 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 208/208 ------ -900 SUBDEF, TABLE 11 F1P12420 MWN -1430 FORMAT, TABLE 10 F1P12430 -1500 CLOSUB, TABLE 9 F1P12440 -1500 EQUIT, TABLE 8 F1P12450 -750 FRET, TABLE 7 F1P12460 -1000 FORVAL, TABLE 6 F1P12470 -1500 FORVAR, TABLE 5 F1P12480 -1500 FORTAG, TABLE 4 F1P12490 -250 TRAD, TABLE 3 F1P12500 -600 TIFGO TABLE 2 F1P12510 -750 TDO, TABLE 1 F1P12520 -750 TEIFNO, TABLE 0 F1P12530 REM F1P12540 REM PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE F1P12550 WAT00 SXD E1W,2 START PROGRAM WAT F1P12560 CLA L(4) PREPARE TO COUNT F1P12570 STO E2W TWO TAPE TESTS F1P12580 WAT09 WRS 146 PREPARE TO WRITE ON TAPE 2 F1P12590 CLA 2,1 COMPUTE LOCATION OF NUMBER OF WORDSF1P12600 SUB L(1) IN TABLE AND INITIALIZE ADDRESSES F1P12610 STA WAT03 F1P12620 STA WAT04 F1P12630 WAT03 CLA ** ADDRESS IS NTA-1 F1P12640 ARS 18 NUMBER OF WORDS IN TABLE PUT IN F1P12650 PAX 0,2 INDEX B F1P12660 ADD 2,1 RESET ADDRESS F1P12670 STA WAT05 F1P12680 CPY 1,1 IDENTIFY TABLE ON TAPE F1P12690 WAT04 CPY ** NUM OF WORDS IN TABLE PUT ON TAPE F1P12700 SUB 2,1 F1P12710 TZE WAT06 NO ENTRIES IN TABLE F1P12720 WAT05 CPY 0,2 ADDR IS NTA + NUM WORDS IN NTA F1P12730 TIX WAT05,2,1 COPY LOOP F1P12740 BST 146 F1P12750 RTT F1P12760 NOP F1P12770 RDS 146 F1P12780 WAT07 CPY E2A F1P12790 TRA WAT07 F1P12800 NOP E O R F1P12810 WRS 219 E O F F1P12820 RTT F1P12830 TRA WAT10 TAPE CHECK ON F1P12840 TRA WAT06 TAPE CHECK OFF F1P12850 WAT10 CLA E2W F1P12860 SUB L(1) F1P12870 STO E2W F1P12880 TPL WAT08 F1P12890 TSX DIAG,4 STOP FOR THIRD TAPE CHECK F1P12900 WAT08 BST 146 F1P12910 TRA WAT09 F1P12920 CPY L(0) F1P12930 WAT06 LXD E1W,2 RESTORE INDEX B F1P12940 TRA 3,1 RETURN TO MAIN PROGRAM F1P12950 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 209/209 ------ REM F1P12960 E1W F1P12970 E2W F1P12980 L(0) 0 F1P12990 L(1) 1 F1P13000 L(2) 2 F1P13010 L(3) 3 F1P13020 L(4) 4 F1P13030 L(5) 5 F1P13040 L(8) 8 F1P13050 L(50) 50 F1P13060 DECR1 0,0,1 F1P13070 DECR2 0,0,2 F1P13080 MSK OCT 77777 AMWO5O3 F1P13090 FRCON OCT 377777777777 35 ONES. AMW 1318 F1P13100 DRL02 202 LOCATION OF FIRST WORD ON DRUM F1P13110 TNT2 2 F1P13120 E3 NON ERASABLE 0416 TO 0908 F1P13130 E4 F1P13140 L(0TA) OTA F1P13150 TEIFER TSX DIAG,4 F1P13160 TP3TRA TZE WAT06-1 F1P13170 E1A BSS 1 F1P13180 E2A BSS 1 F1P13190 E3A BSS 1 F1P13200 E4A BSS 1 F1P13210 E5A BSS 1 F1P13220 E1 SYN E4 F1P13230 E2 SYN E3 F1P13240 TAPOO SYN TAP00 F1P13250 WATOO SYN WAT00 F1P13260 L(OTA) SYN L(0TA) F1P13270 DIAG SYN 4 F1P13280 COMP SYN 1TA F1P13290 2TA SYN 1TA F1P13300 3TA SYN 1TA F1P13310 TOTO SYN L(OTA) F1P13320 EQM1 SYN OTA-1 F1P13330 EQ SYN OTA F1P13340 4TA SYN XTA F1P13350 5TA SYN XTA F1P13360 6TA SYN XTA F1P13370 7TA SYN XTA F1P13380 9TA SYN XTA F1P13390 MEEQM1 SYN XTA-1 F1P13400 MEEQ SYN XTA F1P13410 FRTS SYN XTA+750 F1P13420 FRCHS SYN XTA+1000 F1P13430 E12 SYN E3 F1P13440 E1RF SYN E4 F1P13450 SMBL SYN E1CLEQ F1P13460 SBSCR SYN E2CLEQ F1P13470 16TA SYN 6TA+1000 F1P13480 1TOCS SYN 4 F1P13490 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 210/210 ------ REM F1P13500 REM THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER F1P13510 REM FROM SECTION ONE TO SECTION ONE PRIME. F1P13520 EIFNO SYN 24 F1P13530 ENDI1 SYN 25 F1P13540 ENDI4 SYN 28 F1P13550 INTET SYN 210 F1P13560 FXCNIX SYN 271 F1P13570 FLCNIX SYN 276 F1P13580 ORGDM1 SYN 299 F1P13590 DIM1IX SYN 301 F1P13600 ORGDM2 SYN 304 F1P13610 DIM2IX SYN 306 F1P13620 ORGDM3 SYN 309 F1P13630 DIM3IX SYN 311 F1P13640 BK SYN 312 F1P13650 FORSUB SYN 313 F1P13660 BBOX SYN 415 F1P13670 CIB SYN 416 F1P13680 END1PC BSS 0 F1P13690 END F1P13700 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 211/211 ------ ORG 25 ERLIST SYN 32767 TABLE SYN ERLIST-100 TRADT SYN ERLIST-1250 BETA SYN ERLIST-1251 TIFGOT SYN ERLIST-1252 ALPHA SYN ERLIST-1252 NONEXT SYN ERLIST-1852 REW 2 REW 3 LXA IR2,4 RDFILE RTD 2 WILL READ ANY KIND OF END FILE MARK CPY 0 TRA RDFILE TIX RDFILE,4,1 SPACE OVER 2 FILES AND OVER 1ST RECORD OF RTB 2 3RD FILE NOP LXA IR4,1 CP CPY TABLE+1,1 TXI CP,1,1 TRA831 START AGAIN, CANNOT GET END FILE TIX FORSUB,1,1 DROP COUNT OF 2ND FILE OVER RTB 2 SPACE OVER END FILE AFTER FORSUB RTB 2 SPACE OVER FLOCON RTB 2 SPACE OVER FORMAT RDREC LXA IR4,1 RTB 2 CPY IDENT CPY WDCONT COPY CPY TABLE,1 ALTERNATE FOR READING TRAD CPY TRAD,2 CPTXI TXI COPY,1,1 TIX COPYAA,1,1 COPYAA TXI COPY,4,-1 PXD 0,1 RDA TRA PTCH NOP GOES HERE AFTER SIZ TABLES ARE READ SUBWDS SUB WDCONT RDAAB TZE SIZ TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ LXD BST,4 TXL TRY,4,14 LDQ IDENT BADWC TSX ERROR,4 TRA DIAGND TRY TXI RDSXD,4,1 RDSXD SXD BST,4 BST 2 TRA RDREC IDNTFY STZ BST FORMAT SIZE AND ALL TAPE TABLES HAVE LXA TAPTAB,2 IDENTIFICATION WORD AS FIRST WORD OF CLA IDENT TAPE RECORD, NOT INCLUDED IN WORD CAS CAS TAPTAB,2 COUNT TRA NEXT TRA HAVE NEXT TIX CAS,2,2 LXD BSTA,4 BACK SPACE RECORD AND TRY AGAIN 15 TIMES rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 212/212 ------ TXL TRYA,4,14 IF NECESSARY LDQ IDENT NOIDEN TSX ERROR,4 TRA DIAGND TRYA TXI IDNSXD,4,1 IDNSXD SXD BSTA,4 BST 2 TRA RDREC HAVE STZ BSTA CLA TAPTAB+1,2 STA TRA TRA TRA 0 NOTIFG RTB 2 IF NO TIFGO ENTRY, IGNORE TRAD ENTRY TRA RDREC FORSUB TIX SAVEA,1,2 LXA IR4,1 SAVEA SXD TXLA,1 LXA IR4,1 LDQA LDQ TABLE,1 TSXA TSX CHECKA,4 TXI TXLA,1,2 TXLA TXL LDQA,1,0 TRA OVER SIZ TXL SETRD,1,0 IF NO ENTRIES, GET NEXT TAPE RECORDS TIX SAVEB,1,2 REDUCE WORD COUNT FOR END OF ENTRIES TEST LXA IR4,1 IF TOO SMALL, SET TO ZERO SAVEB SXD TXLB,1 LXA IR4,1 START AT FIRST ENTRY, THAT IS IR IS ZERO LDQB LDQ TABLE,1 TSXB TSX CHECKA,4 TXI TXLB,1,2 GET NEXT 2 WORD ENTRY TXLB TXL LDQB,1,0 SETRD RTB 2 SPACE OVER GAP AT END OF 4TH FILE RTB 2 SPACE OVER 5 WORD END RECORD CLA AFTRSZ STA RDAAB CLA NOP STO RDA RESET TEST AT END OF READ LOOP TRA RDREC SUBARG TXL RDREC,1,0 INITIALIZATION OF END ENTRIES TEST TIX SAVEC,1,1 LXA IR4,1 SAVEC SXD TXLC,1 LXA IR4,1 LDQC LDQ TABLE,1 TSXC TSX CHECKA,4 TXI TXLC,1,1 1 WORD ENTRIES TXLC TXL LDQC,1,0 TRA RDREC UPPER TXL UPPRTB,1,0 INITIALIZE END OF ENTRIES TEST TIX SAVED,1,1 LXA IR4,1 SAVED SXD TXLD,1 LXA IR4,1 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 213/213 ------ LDQD LDQ TABLE,1 TSXD TSX CHECKA,4 TXI TXLD,1,1 1 WORD ENTRIES TXLD TXL LDQD,1,0 UPPRTB RTB 2 NO SCAN OF HOLARG RECORD TRA RDREC TEIFNO TXL RDREC,1,0 INITIALIZE END OF ENTRIES TEST TIX SAVEE,1,1 LXA IR4,1 SAVEE SXD TXLE,1 LXA IR4,1 CLAE CLA TABLE,1 MINUS ENTRY MEANS BETA IS TPL TSTE DUPLICATED IN SOURCE PROGRAM LDQ TABLE,1 TSXE TSX ERROR,4 TSTE TXI TXLE,1,1 TXLE TXL CLAE,1,0 CLA ADTIFG STA COPY TRA RDREC TIFGO TXL PATIF,1,0 IF NO ENTRIES, IGNORE TRAD IDENTIFICATION TIX SAVEF,1,2 LXA IR4,1 SAVEF SXD TXLF,1 CLA ADTRAD SET READ LOOP TO READ TRAD STO COPY UPWARDS IN MEMORY. BUT CLA CPTRAD KEEP TRACK OF WORD COUNT STA CPTXI AS USUAL LXA IR4,4 TRA RDREC TRAD CLA ADTABL RESTORE COPY LOOP STO COPY CLA COPYAA STA CPTXI TXI SXDG,4,-1 SXDG SXD BETANB,4 SAVE NUMBER OF ENTRIES IN BETA TABLE CLA 24 ADD ONE TO LAST TEIFNO NOP GET LAST TEIFNO ARS 18 STZ BETA STA BETA RTB 3 LXA IR4,2 READ IN TABLE OF NON EXECUTABLE CPNON CPY 0 STATEMENTS AND SAVE LXD 0,4 DECREMENT OF TABLE IN TRA PXDH ADDRESS OF MEMORY TRA SAVXNB PXDH PXD 0,4 ARS 18 STO NONEXT,2 TXI CPNON,2,1 SAVXNB TIX SAVEH,2,1 SET END OF ENTRIES TEST LXA IR4,2 SAVEH SXD TXLH,2 SET END OF ENTRIES TEST rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 214/214 ------ LXA IR4,1 CLAF CLA TIFGOT,1 SAVE ALPHA IN CASE OF ERROR, AND ARS 18 ALSO TO PUT IN ALPHA TABLE AT STA ALFA END OF PROCESSING EACH KIND OF TIFGO CLA TIFGOT,1 DETERMINE KIND OF ENTRY TMI TIFMI PAX 0,2 TXL TIFZRO,2,0 TXL TIFGO1,2,1 TXL TIFGO2,2,2 TXL TIFGO3,2,3 TXL TIFGO4,2,4 TXL TIFGO5,2,5 TXL TIFGO6,2,6 LDQ TIFGOT,1 NOT IDENTIFYABLE, SAVE IN ERROR WHATIF TSX ERROR,4 TABLE, BUT PUT ALPHA IN TABLE ANYWAY NXTIFG LXD ALFANB,4 STORE ALPHA IN TABLE CLA ALFA STO ALPHA,4 TXI FSAVE,4,1 FSAVE SXD ALFANB,4 RETIF6 TXI TXLF,1,2 TYPE 6 TIFGO ENTRIES DO NOT GO IN TXLF TXL CLAF,1,0 ALPHA TABLE TRA STOPS WHEN TIFGO FINISHED, READ IN STOPS TIFMI ANA ADDMSK TNZ SAVEB1 IF BETA IS ZERO, THERE WAS NO ENTRY MINB1 TSX NOBETA,4 CORRESPONDING TO IT IN COL 1 TO 5 OF TRA NOWB2 SOURCE PROGRAM, SKIP REST OF PROCESSING SAVEB1 TSX ISNONX,4 IF BETA IS NOT EXECUTABLE, DO NOT PUT IN TMI NOWB2 BETA TABLE TSX MORBTS,4 NOWB2 CLA TIFGOT-1,1 ARS 18 ANA ADDMSK TNZ SAVEB2 MINB2 TSX NOBETA,4 TRA NOWB3 SAVEB2 TSX ISNONX,4 TMI NOWB3 TSX MORBTS,4 NOWB3 CLA TIFGOT-1,1 ANA ADDMSK TNZ SAVEB3 MINB3 TSX NOBETA,4 TRA ALFAD1 SAVEB3 TSX ISNONX,4 TMI ALFAD1 TSX MORBTS,4 ALFAD1 CLA DECTRE STD ALFA TRA NXTIFG TIFZRO CLA TIFGOT-1,1 ANA ADDMSK TNZ TIFOB rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 215/215 ------ TSXTFO TSX NOBETA,4 TRA NEXTI KEEP TRACK OF NUMBER OF BETAS TIFOB TSX ISNONX,4 TMI NEXTI TSX MORBTS,4 NEXTI CLA TIFGOT-1,1 DO NOT PUT IN ALPHA TABLE IF PDX 0,4 ENTRY BY IRV FOR SAP INSTRUCTIONS TXH RETIF6,4,0 CLA DECONE STD ALFA TRA NXTIFG TIFGO1 STZ TRADNB CLAJ CLA TIFGOT-1,1 PREPARE TO READ RELATED TRAD ENTRIES PDX 0,2 ALS 18 STD TXHJ MORTR CLA TRADT+250,2 TNZ TRADX1 BTIFG1 TSX NOBETA,4 TRA ADDJ TRADX1 TSX ISNONX,4 IF TRAD IS NON EXECUTABLE, MAKE ENTRY TPL ADDJ FAIL ANY ALPHA PLUS 1 SEARCH LATER ON CLA DECONE BY PUTING NUMBER IN DECFIELD STD TRADT+250,2 BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN ADDJ CLA TRADNB ADD DECONE STO TRADNB TXI TXHJ,2,-1 TXHJ TXH MORTR,2,0 CLA TRADNB STD ALFA TRA NXTIFG TIFGO2 STZ TRADNB CLAK CLA TIFGOT-1,1 PDX 0,2 ALS 18 STD TXHK MORTRD CLA TRADT+250,2 TNZ TRADX2 BTIFG2 TSX NOBETA,4 TRA ADDK TRADX2 TSX ISNONX,4 TPL ADDK CLA DECONE STD TRADT+250,2 ADDK CLA TRADNB ADD DECONE STO TRADNB TXI TXHK,2,-1 TXHK TXH MORTRD,2,0 CLA TRADNB STD ALFA TRA NXTIFG TIFGO3 CLA TIFGOT-1,1 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 216/216 ------ ARS 18 ANA ADDMSK TNZ TIF3B1 B1TIF3 TSX NOBETA,4 TRA NEXTL TIF3B1 TSX ISNONX,4 TMI NEXTL TSX MORBTS,4 NEXTL CLA TIFGOT-1*,1 ANA ADDMSK TNZ TIF3B2 B2TIF3 TSX NOBETA,4 TRA ADDL TIF3B2 TSX ISNONX,4 TMI ADDL TSX MORBTS,4 ADDL CLA DECTWO STD ALFA TRA NXTIFG TIFGO4 CLA TIFGOT-1,1 ARS 18 ANA ADDMSK TNZ TIF4B1 B1TIF4 TSX NOBETA,4 TRA NEXTM TIF4B1 TSX ISNONX,4 TMI NEXTM TSX MORBTS,4 NEXTM CLA TIFGOT-1,1 ANA ADDMSK TNZ TIF4B2 B2TIF4 TSX NOBETA,4 TRA ADDM TIF4B2 TSX ISNONX,4 TMI ADDM TSX MORBTS,4 ADDM CLA DECTWO STD ALFA TRA NXTIFG TIFGO5 CLA TIFGOT-1,1 ARS 18 ANA ADDMSK TNZ TIF5B1 B1TIF5 TSX NOBETA,4 TRA NEXTN TIF5B1 TSX ISNONX,4 TMI NEXTN TSX MORBTS,4 NEXTN CLA TIFGOT-1,1 ANA ADDMSK TNZ TIF5B2 B2TIF5 TSX NOBETA,4 TRA ADDN TIF5B2 TSX ISNONX,4 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 217/217 ------ TMI ADDN TSX MORBTS,4 ADDN CLA DECTWO STD ALFA TRA NXTIFG TIFGO6 CLA TIFGOT-1,1 ANA ADDMSK TNZ RETIF6 TIF6B TSX NOBETA,4 TRA RETIF6 STOPS RTB 3 LXD ALFANB,1 LOAD NUMBER ALREADY IN ALPHA TABLE CPSTOP CPY 0 READ TABLE OF STOPS INTO REST OF LXD 0,4 ALPHA TABLE, PUT DECREMENT OF TRA PDXP TAPE TABLE INTO ADDRESS OF MEMORY TRA TIXP PDXP PXD 0,4 ARS 18 STO ALPHA,1 TXI CPSTOP,1,1 TIXP TIX NEXTP,1,1 LXA IR4,1 NEXTP SXD ENDALF,1 SXD ALFANB,1 SXD FRETST,1 CLA CHNONX RESET ISNONX ROUTINE SO IT IS STA YESNOX MERELY INFORMATIVE AND DOES NOT LXA IR4,1 MAKE ENTRIES IN ERROR TABLE CLAQ CLA ALPHA,1 QADD TRA PAQADD ADDQ STZ ALFA STA ALFA LXA IR4,2 NXTBTA CLA BETA,2 CAS ALFA TRA NEXTQ TRA NXTALF NEXTQ TXI BETANB,2,-1 BETANB TXH NXTBTA,2,0 CLA ALFA TSX ISNONX,4 IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA TMI ALAND1 TABLE FOR ALPHA +2 ETC NOTRA TSX NOBETA,4 NOT EITHER TABLE, PART OF PROG NOT ENTERED NXTALF TXI ENDALF,1,1 ENDALF TXL CLAQ,1,0 TRA RDREC ALAND1 CLA ALFA TRA QADD TDO TXL SPACES,1,0 TIX SAVES,1,5 INITIALIZE END OF ENTRIES TEST LXA IR4,1 SAVES SXD TXLS,1 LXA IR4,1 CLADO CLA TABLE,1 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 218/218 ------ ANA TAGMSK SAVE TAG FIELD FOR PROCESSING N1,N2,N3 ALS 18 STP DOTAG CLA TABLE,1 SAVE ALPHA IN CASE OF ERROR ARS 18 STA ALFA CLA TABLE,1 ANA ADDMSK TNZ BINTIF DONOBT TSX NOBETA,4 TRA DOALF BINTIF LXA IR4,2 IS BETA IN DO TABLE A CONDITIONAL STO DOBETA TRANSFER, THAT IS, IS IT IN ALPHA TABLE SCLA CLA ALPHA,2 ANA ADDMSK MASK OUT NUMBER OF BRANCHES CAS DOBETA TRA TIXS TRA CONBET THIS IS AN ERROR TIXS TXI ALFANB,2,1 ALFANB TXL SCLA,2,0 CLA DOBETA TSX ISNONX,4 TPL DOALF IF BETA IN TO IS NON EXECUTABLE THIS DOBTNX TSX NOBETA,4 TSX ADOB,4 DOALF CLA ALFA ANA ADDMSK CLEAR ANY HASH LEFT FROM ERROR RECODING ADD ADDONE TSX ISNONX,4 IF ALPHA PLUS 1 IS NON EXECUTABLE TPL DOSYMB THIS IS ERROR DOALNX TSX NOBETA,4 TSX ADOB,4 DOSYMB LDQ TABLE-1,1 DOES SYMBOL CONTAIN ANY ILLEGAL PUNSYM TSX CHECKA,4 PUNCTUATION TPL IJKSYM TSX ADOB,4 IJKSYM TSX CHECKB,4 DOES SYMBOL BEGIN WITH IJKLM OR N TPL NL TSX ADOB,4 NL CAL DOTAG PBT TRA N2+1 NO LDQ TABLE-2,1 YES PUNN1 TSX CHECKA,4 TPL IJKN1 TSX ADOB,4 IJKN1 TSX CHECKB,4 TPL N2 TSX ADOB,4 N2 CAL DOTAG ALS 1 PBT TRA N3 LDQ TABLE-3,1 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 219/219 ------ PUNN2 TSX CHECKA,4 TPL IJKN2 TSX ADOB,4 IJKN2 TSX CHECKB,4 TPL N3 TSX ADOB,4 N3 CAL DOTAG ALS 2 PBT TRA NXTDO LDQ TABLE-4,1 PUNN3 TSX CHECKA,4 TPL IJKN3 TSX ADOB,4 IJKN3 TSX CHECKB,4 TPL NXTDO TSX ADOB,4 NXTDO TXI TXLS,1,5 TXLS TXL CLADO,1,0 SPACES RTB 2 SPACE OVER FORVAL RTB 2 SPACE OVER FORVAR RTB 2 SPACE OVER FORTAG TRA RDREC CONBET TSX NOBETA,4 TSX ADOB,4 TRA DOALF AND TEST ALPHA FRET TXL RDREC,1,2 GO THRO THIS TABLE FROM LAST TO FIRST NEXTT LXA IR4,2 CLAT CLA TABLE+1,1 TMI NEWFRT TXI TNEXT,2,1 TNEXT TIX CLAT,1,1 WILL NOT FAIL BEFORE THE TMI NEWFRT SXD FRETNB,2 SAVE NUMBER OF FREQUENCIES ANA ADDMSK STO ALFA FREQUENCY OF BETA IS IGNORED BY TNZ BRANCH FORTRAN IF NO CORRESPONDING BETA IN TRA NXTFRT COLUMN 1 TO 5 OF SOURCE PROGRAM BRANCH LXA IR4,4 TCLAT CLA ALPHA,4 ANA ADDMSK CAS ALFA TRA TIXT TRA HAVALF TIXT TXI FRETST,4,1 FRETST TXL TCLAT,4,0 SET AT END OF READING IN STOP TABLE TRA NXTFRT HAVALF CLA ALPHA,4 THE ONLY TIME A FREQUENCY STATEMENT CAN ANA DECMSK LOUSE UP THE OBJECT PROGRAM IS WHEN SUB FRETNB THERE ARE MORE FREQUENCIES GIVEN THAN TPL NXTFRT BRANCHES. FRETIF TSX NOBETA,4 NXTFRT TIX NEXTT,1,1 TRA RDREC EQUIV CLA TABLE FIRST WORD IN TABLE WILL BE 35 ONES rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 220/220 ------ SUB MSK35 IF THERE HAVE BEEN INCONSISTANT TNZ DIAGND LXA IR4,1 NXTEQV CLA TABLE-1,1 SUB MSK35 LAST INCONSISTANCY IS FOLLOWED BY TZE DIAGND ANOTHER WORD OF ONES LDQ TABLE-1,1 NOTEQV TSX ERROR,4 TXI NXTEQV,1,1 DIAGND CLA ERNBR TZE SPACE2 IF NO ERROR, READ IN SECTION II STO 24 SAVE FOR BIG D CLA TW13 PUT RECORD NUMBER IN 2 FOR PRINT OUT STO 2 LXA IR4,2 DIAGRD RTD 1 SPACE OVER REST OF SYSTEM IN FORTRAN CPY 0 TRA DIAGRD TXI TST2FL,2,1 TST2FL TXL DIAGRD,2,1 RTB 1 END FILE SKIP, START TO READ BIG D LXA IR4,1 DCPY CPY 25,1 TXI DCPY,1,-1 NOP BIGD TSX 26,4 REW NOP REPLACED BY SPACE2 AT 1263. WAS REWIND NOP REM ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE REM WHICH HAS MISSING BETA, IN DEC OF AC AND REM ALPHA IN ADDRESS OF AC. NOBETA SXD ALFA,4 TSX SAVALF,4 LXD ALFA,4 TRA 1,4 REM ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC SAVALF SXD ERAS,4 LXD ERNBR,4 CLA ALFA STO ERLIST,4 TXI NEXTA,4,1 SAME RETURN AS ERROR ROUTINE. REM ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA REM MAKES 2 WORD ENTRY IN ERROR LIST REM 1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND REM 2...CONTENTS OF MQ REM EXIT AC HASH, MQ NOT CHANGED ERROR PXD 0,4 PUT TSX FROM SECTION SCANNING LXD ERNBR,4 FOR ERROR, IN DEC OF 1ST WORD STD ERAS STD ERLIST,4 CLA IR4 PUT TSX FROM DABLE IN WHI+H ARS 18 ERROR WAS FOUND, IN ADDR. OF 1ST WORD STA ERLIST,4 STQ ERLIST-1,4 PUT MQ IN 2ND WORD REM ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 221/221 ------ TXI NEXTA,4,2 NEXTA SXD ERNBR,4 LXD ERAS,4 TRA 1,4 REM ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA REM FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME. EXIT SAME, EXCEPT REM WHERE MATCH IS FOUND, THEN AC HAS HASH ISNONX SXD IR4,4 ERROR WILL RECORD WHICH TABLE WAS SCANNED TRA PATS2 CASH CAS NONEXT,2 TRA NEXTH YESNOX TRA NONEXB THIS WILL BE CHANGED TO BYPASS ERROR WHEN NEXTH TXI TXLH,2,1 SCANNING BETA TABLE TXLH TXL CASH,2,0 TRA PATRE2 NONEXB ALS 18 ERROR, SAVE BETA AND ALPHA IN LIST STD ALFA LDQ ALFA TSXH TSX ERROR,4 INFORM LXD IR4,4 SSM SET RETURN TO SHOW ERROR TRA PATRE2 REM ENTER WITH HASH IN AC MQ HAS BCD SYMBOL. EXIT WITH HASH IN REM AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS ONLY WHEN REM ILLEGAL CHARACTER PRESENT CHECKA STQ NAME SXD IR4,4 SXD IR2,2 SXD IR1,1 LXD SYMBL,1 6 INTO IR1 NXTNAM LXA SYMBL,2 10 INTO IR2 PXD 0,0 CLEAR AC AND COMPARE NEXT BCD LGL 6 CHARACTER WITH TABLE OF ILLEGAL SYMBOLS ACAS CAS SYMBL,2 TRA ATIX TRA WRONG ATIX TIX ACAS,2,1 GET NEXT ILLEGAL SYMBOL FOR COMPARISON TIX NXTNAM,1,1 GET NEXT BCD CHARACTER FOR COMPARISON RETNA LXD IR4,4 LXD IR2,2 LXD IR1,1 TRA 1,4 WRONG LDQ NAME CHATSX TSX ERROR,4 SSM SIGNAL THAT ERROR HAS BEEN PICKED UP TRA RETNA REM ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH REM THEN MINUS CHECKB LDQ NAME SXD IR4,4 LXA IJK,4 PXD 0,0 LGL 6 BCAS CAS IJK,4 REM ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 222/222 ------ TRA BTIX TRA RETNB BTIX TIX BCAS,4,1 LDQ NAME CHBTSX TSX ERROR,4 SSM RETNB LXD IR4,4 TRA 1,4 REM ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0, REM 3,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY REM IN BETA TABLE. EXIT WITH SAME. MORBTS SXD ERAS,4 LXD BETANB,4 STOBET STO BETA,4 TXI STBET,4,-1 STBET SXD BETANB,4 SXD BETANB,4 LXD ERAS,4 TRA 1,4 ADOB SXD ERAS,4 LXD ERNBR,4 CLA TABLE,1 STO ERLIST,4 CLA TABLE-1,1 STO ERLIST-1,4 TXI NEXTA,4,2 IR1 HTR IR2 HTR 2 IR4 HTR 0 ADDONE HTR 1 DECONE HTR 0,0,1 DECTWO HTR 0,0,2 DECTRE HTR 0,0,3 ADDMSK OCT 000000077777 TAGMSK OCT 000000700000 DECMSK OCT 077777000000 MSK35 OCT 377777777777 ADTABL CPY TABLE,1 ADTIFG HTR TIFGOT ADTRAD CPY TRADT,4 CPTRAD HTR COPYAA CHNONX HTR INFORM ALFA TW13 HTR 213 TRADNB ERNBR IDENT WDCONT NAME ERAS XERAS BST STORE NUMBER OF TIMES WORD COUNT WRONG BSTA DITTO IDENTIFICATION DOTAG REM ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 223/223 ------ DOBETA NOP NOP FRETNB BCD 100000I BCD 100000K BCD 100000J BCD 100000L BCD 100000M BCD 100000N IJK HTR 6,0,0 BCD 100000+ OCT 000000000014 OTHER MINUS SIGN BCD 100000 BCD 100000/ BCD 100000$ BCD 100000( BCD 100000) BCD 100000= BCD 100000, BCD 100000. BCD 100000* SYMBL HTR 11,0,6 AFTRSZ HTR IDNTFY OCT 000000000013 HTR SUBARG OCT 000000000014 HTR UPPER OCT 000000000000 HTR TEIFNO OCT 000000000002 HTR TIFGO OCT 000000000003 HTR TRAD OCT 000000000001 HTR TDO OCT 000000000007 HTR FRET OCT 000000000010 HTR EQUIV TAPTAB HTR 16 PTCH TIX SZW,1,1 SIZ TABLE HAS CHECK SUM ENTRY NOT SZW PXD 0,1 NOT INCLUDED IN WORD COUNT ARS 18 TRA SUBWDS PATIF CLA ADTABL STO COPY TRA NOTIFG SPACE2 RTB 2 RTB 2 IOD RTT NOP TRA 4 PAQADD TZE NXTALF REM ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 224/224 ------ ADD ADDONE TRA ADDQ PATS2 SXD PATERA,2 LXA IR4,2 TRA CASH PATRE2 LXD PATERA,2 TRA 1,4 PATERA END REM BLOCK ONE OF SECTION TWO. rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 221/225 ------ REM BLOCK ONE OF SECTION TWO. REM MASTER RECORD CARD = FN027 F2100000 REM BLOCK ONE OF SECTION TWO PERFORMS THE F2100001 REM PRELIMINARY DO NEST STRUCTURE ANALYSIS F2100002 REM REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS F2100003 REM LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY. F2100004 REM TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED F2100005 REM INTO TABLE TRALEV. IF THERE IS A VARIABLE F2100006 REM PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION F2100007 REM IS ASSIGNED. F2100008 REM FINALLY, A SEARCH IS MADE T0 DETERMINE F2100009 REM WHETHER A DO INDEX COUNTER IS F2100010 REM NECESSARY T0 KEEP CURRENT THE VALUES F2100011 REM OF THE DO INDEX. F2100012 ORG 25 F2100015 DOTAG BSS 1 F2100017 BSS 1349 F2100020 DOTAGZ BSS 1 F2100030 TIFGO BSS 1 F2100040 BSS 599 F2100050 TIFZ BSS 1 F2100060 TRAD BSS 1 F2100070 BSS 249 F2100080 TRADZ BSS 1 F2100090 TRALEV BSS 1 F2100100 BSS 599 F2100110 TLTZ BSS 1 F2100120 ORG 1376 F2100130 FORVAL BSS 1 F2100140 BSS 999 F2100150 4VALZ BSS 1 F2100160 ORG 1376 F2100170 FORVAR BSS 1 F2100180 BSS 1499 F2100190 4VARZ BSS 1 F2100200 ORG 476 F2100210 FORTAG BSS 1 F2100211 BSS 1499 F2100230 FORTZ BSS 1 F2100240 REM PROGRAM C ONSTANTS F2100250 ORG 2876 F2100260 L(0) 0,0,0 F2100270 L(1) 0,0,1 F2100280 L(2) 0,0,2 F2100290 L(3) 0,0,3 F2100300 L(4) 0,0,4 F2100310 L(5) 0,0,5 F2100320 L(6) 0,0,6 F2100330 L(9) 0,0,9 F2100340 L(600) 0,0,600 F2100350 L(1000 0,0,1000 F2100360 L(1350 0,0,1350 F2100370 L(1500 0,0,1500 F2100380 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 222/226 ------ L(MZ) MZE F2100390 BITONE OCT 200000000000 F2100400 BITTWO OCT 100000000000 F2100410 DECADD OCT 77777077777 F2100420 DECMSK OCT 77777000000 F2100430 TAGMSK OCT 700000 F2100440 ADDMSK OCT 77777 F2100450 NCMSK OCT -377777477777 F2100460 CR1 OCT 100000 F2100470 CR2 OCT 200000 F2100480 REM BEGIN BLO CK ONE. F2100490 TAP00 REW 148 F2100500 REW 147 F2100510 RTT F2100520 NOP F2100530 BST TTAPE POSITION TAPE TWO F2100540 LXD L(9),1 FOR READING IN TAPE F2100550 TAP10 BST TTAPE TABLES F2100560 TIX TAP10,1,1 F2100570 PSE 96 ALL LIGHTS OFF F2100580 PSE 98 TRALEV LIGHT 98 ON F2100590 LXD L(2),2 READ F2100600 CLA TIFAD IN F2100610 TSX RTAPE,4 TIEFGO F2100620 SXD TIFGO-1,1 SAVE NEXT UNUSED INDEX F2100630 LXD L(3),2 READ F2100640 CLA TRADAD IN F2100650 TSX RTAPE,4 TRAD F2100660 SXD TRAD-1,1 SAVE NEXT UNUSED INDEX F2100670 LXD L(1),2 READ F2100680 CLA DOAD IN F2100690 TSX RTAPE,4 TDO WITH DOTAG FORMAT F2100700 SXD DOTAG-1,1 SAVE NEXT UNUSED INDEX F2100710 TXL MR00,1,1349 TEST FOR EMPTY DOTAG F2100720 PSE 99 DOTAG EMPTY F2100730 TRA TS4VAL F2100740 REM MR00 COMPUTES LEVEL, X, CARRY BITS. F2100750 MR00 LXD DOTAG-1,1 INITIALIZE TEST F2100760 SXD MR70,1 INSTRUCTION. F2100770 LXD L(1350,1 INITIALIZE XRA TO MAX DOTAG. F2100780 MR05 CLA L(1) INITIALIZE LEVEL TO ONE F2100790 MR10 PDX 0,2 PUT LEVEL IN XRB F2100800 STO DOTAGZ+5,1 STORE LEVEL IN L WORD F2100810 CLA DOTAGZ,1 INSPECT TAG OF FIRST WORD) F2100820 SXD MR14,4 F2100830 PAX 0,4 F2100840 STD MR12 F2100850 MR12 TXH MR15,4 F2100860 TRA ERBETA BETA LESS THAN OR EQUAL TO ALPHA F2100871 MR14 HTR F2100880 MR15 LXD MR14,4 F2100890 ANA TAGMSK IF ZERO( TRA TO MR20) F2100900 TZE MR20 IF NOT ZERO( PUT BIT F2100910 CLA BITTWO IN L WORD FOR X NOT F2100920 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 223/227 ------ ORS DOTAGZ+5,1 COMPUTABLE AND GO TO F2100930 TRA MR60 END. F2100940 MR20 CLA DOTAGZ+3,1 COMPUTE X AND STORE IN F2100950 SUB DOTAGZ+2,1 L WORD F2100960 ADD DOTAGZ+4,1 F2100970 LRS 35 F2100980 DVH DOTAGZ+4,1 F2100990 MPY DOTAGZ+4,1 F2101000 LLS 35 F2101010 STA DOTAGZ+5,1 F2101020 TXL MR60,2,1 IF L IS ONE( SKIP CARRY TEST) F2101030 CLA DOTAGZ,4 OBTAIN NEXT BACK.SUBNEST F2101040 ARS 15 DO( FIRST WORD. IN-SPECT TAG F2101050 LBT FOR VARIABLE N3) IF NOT. F2101060 TRA MR30 0) VARIABLE( CONTINUE-WITH MR30, F2101070 TRA MR60 1) OTHERWISE GO TO END. F2101080 MR30 CLA DOTAGZ,4 OBTAIN FIRST WORD OF NEXT F2101090 ANA DECADD BACK SUBNEST DO, REMOVE F2101100 ADD L(1) TAG, AND ADD ONE TO ALPHA. F2101110 SUB DOTAGZ,1 SUB FIRST WORD CURRENT DO. F2101120 TNZ MR40 (TAG IS ZERO). IF RESULT IS F2101130 CLA CR1 ZERO, CARRY IS TYPE ONE, F2101140 TRA MR50 IF NOT ZERO, CARRY IS TYPE F2101150 MR40 CLA CR2 TWO. INDICATE TYPE IN F2101160 MR50 ORS DOTAGZ+5,1 L WORD OF CURRENT DA. F2101170 MR60 PXD 0,1 MAKE CURRENT.DO NEXT BACK F2101180 PDX 0,4 SUBNEST DO. F2101190 TXI MR70,1,-9 TAKE NEXT DO IN DOTAG. F2101200 MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2101211 CLA DOTAGZ,1 OBTAIN FIRST WORD NEW DO. F2101220 ANA ADDMSK OBTAIN BETA F2101230 STO MRES AND SAVE F2101240 MR75 CLA DOTAGZ,4 OBTAIN BETA OF XRC DO, F2101250 ANA ADDMSK AND SUBTRCT NEW BETA.. F2101260 STO MRES1 F2101270 SUB MRES IF NOT NEGATIVE, XRC DD F2101280 TMI MR80 CONTAINS NEW DO. OTHERWISE, TRA F2101290 CLA DOTAGZ+5,4 XRC DO CONTAINS NEW DO, F2101300 ANA DECMSK OBTAIN LEVEL OF XRC DO, F2101310 ADD L(1) ADD ONE, STORE IN L. F2101320 TRA MR10 GO TO MR10 F2101330 MR80 CLA DOTAGZ,1 F2101340 ANA DECMSK F2101350 ARS 18 F2101360 CAS MRES1 F2101370 TRA MR85 ALPHA(XRA) GREATER THAN BETA(XRC) F2101380 TRA ERLIST EQUALITY F2101391 TRA ERLIST LESS THAN F2101401 MR85 CLA DOTAGZ+5,4 F2101410 PDX 0,2 NEWDO. IF XRL DO IS OF F2101420 TXL MR05,2,1 LEVEL ONE, START NEW NEST F2101430 TXI MR75,4,9 BY TRA TO MR05. ELSE TRA MR75, F2101440 MRES HTR ES F2101450 MRES1 HTR F2101460 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 224/228 ------ REM FLOW, TRANSFER ANALYS1S, F2101470 FLOW LXD TIFGO-1,4 TEST FOR EMPTY TIFGO F2101480 TXH SV00,4,599 F2101490 LXD DOTAG-1,1 INITIALIZE F2101500 SXD FLO30,1 TEST F2101510 SXD FLO60,4 INSTRUCTIONS F2101520 SXD ADL60,1 F2101530 SXD INC40,1 F2101540 SXD RNC70,1 F2101550 LXA TLT50,1 INITIALIZE TRALEV F2101560 SXD TLT50,1 INDEX VALUE F2101570 FLO10 LXD L(600),4 INIT1ALIZE F2101580 SXD TIFX,4 CURRENT TIFGO INDEX F2101590 LXD L(1350,1 INITIALIZE XRA, DOTAG INDEX F2101600 FLO15 CLA DOTAGZ+5,1 OBTAIN LEVEL OF DO F2101610 PDX 0,2 AND F2101620 TXL FLO40,2,1 TRA IF LEVEL ONE. IF NOT F2101630 FLO20 TXI FLO30,1,-9 LEVEL ONE, FIND NEXT F2101640 FLO30 TXH FLO15,1 LEVEL ONE, IF ANY. F2101650 TRA FLOEND F2101660 FLO40 SXD BNX,1 SAVE BEGINNING 0O NEST INDEX. F2101670 CLA DOTAGZ,1 INITIALIZE F2101680 PAX 0,2 BEGINNING OF NEST F2101690 ANA DECMSK AND F2101700 STO BNA END OF NEST F2101710 PXD 0,2 ADDRESSES F2101720 STO ENA F2101730 LXD TIFX,4 OBTAIN CURRENT T1FGO INDEX F2101740 FLO50 CLA TIFZ,4 AND SEARCH FOR TIFGO F2101750 ANA DECMSK ENTRY IN NEST. F2101760 CAS BNA COMPARE WITH BNA F2101770 TRA FLO70 GREATER THAN OR EQUAL TO F2101780 TSX DIAG,4 BNA, MAY BE IN NEST. ERROR. GO TO DIAGNOSTIC. F2101795 FLO55 TXI FLO60,4,-2 LESS THAN BNA, GO BACK F2101800 FLO60 TXH FLO50,4 FOR NEXT TIFGO ENTRY, F2101810 TRA FLOEND IF ANY. IF NONE, EXIT F2101820 FLO65 LXD BNX,1 F2101830 TRA FLO20 F2101840 FLO70 SXD TIFX,4 SAVE CURRENT TIFGO INDEX F2101850 CAS ENA COMPARE G AND ENA F2101860 TRA FLO65 G GREATER, GO BACK FOR NEXT NEST. F2101870 NOP G EQUAL TO F2101880 STO G OR LESS THAN G, SAVE G. F2101890 CLA TIFZ,4 TEST FOR THREE ADDRESS IF. F2101900 TMI FLO75 USE ADDRESS TO DETERMINE F2101910 PAX 0,2 WHETHER OR NOT THIS IS AN F2101920 TXL FLO75,2,5 ASSIGN FORMULA. IF IT IS, F2101930 TXL FLO55,2,6 IGNORE, TAKE NEXT TIFGO ENTRY F2101940 TXL FLO75,2,7 TEST FOR ADD. GREATER THAN F2101950 TSX DIAG,4 SEVEN. ERROr. GO TO DIAGN0STIC. F2101965 FLO75 CLA G OBTAIN G F2101970 LXD BNX,1 OBTAIN CURRENT NEST INDEX F2101980 TSX ADLOC,4 OBTAIN XDG AND LDG F2101990 CLA BITONE PUT BIT IN DOTAG FOR TRA F2102000 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 225/229 ------ ORS DOTAGZ+6,1 IN IMMEDIATE RANGE. F2102010 PXD 0,1 SAVE F2102020 STO XDG XDG F2102030 PXD 0,2 AND F2102040 STO LDG LDG F2102050 CLS G LIST MINUS G F2102060 TSX TLT00,4 IN TRALEV BUFFER. F2102070 LXD TIFX,4 OBTAIN FIRST WORD OF F2102080 CLA TIFZ,4 TIFGO ENTRY F2102090 TMI 3ADIF TRA IF 3ADIF F2102100 PAX 0,2 PUT ADDRESS IN XRB F2102110 FLO80 TRA FLO80+8,2 INDEXED TRA, F2102120 TSX DIAG,4 7, R0YS TRA. ERROR, GO TO DIAGNOSTIC. F2102135 TSX DIAG,4 6, ASSIGN FORMULA ERROR. GO TO DIAGNOSTIC. F2102145 TRA 2ADIF 5, 2 ADDRESS TYPE F2102150 TRA 2ADIF 4, 2 ADIF F2102160 TRA 2ADIF 3, 2ADIF F2102170 TRA GOTOVN 2 VECTOR TYPE TRA F2102180 TRA GOTOVN 1 GO TO N (ASSIGN) F2102190 TRA GOTOK 0 GO TO CONSTANT F2102200 FLO90 LXD TIFX,4 GO BACK FOR NEXT F2102210 TXI FLO60,4,-2 TIFGO ENTRY, F2102220 FLOEND LXD TLT50,1 TEST IF ANY TRALEV ENTRIES F2102230 TXH SV00,1,599 F2102240 TSX TLT20,4 IF SO, GO TO WRITE ROUTINE F2102250 TRA SV00 F2102260 REM CONTROL ROUTINES F2102270 3ADIF ANA ADDMSK THE FOLLOWING ROUTINES F2102280 ALS 18 ARRANGE TO PROCESS ALL OF F2102290 TSX FA000,4 THE ADDRESSES ASSOCIATED F2102300 LXD TIFX,4 WITH THE TIFGO ENTRY, F2102310 2ADIF CLA TIFZ+1,4 ONE AT A TIME. F2102320 ANA DECMSK WHEN ALL ADDRESSES F2102330 TSX FA000,4 ARE PR0CESSED, F2102340 LXD TIFX,4 CONTR0L IS RETURED TO F2102350 GOTOK CLA TIFZ+1,4 FLO90 FOR NEXT F2102360 ANA ADDMSK TIFGO ENTRY. F2102370 ALS 18 F2102380 TSX FA000,4 F2102390 TRA FLO90 F2102400 GOTOVN CLA TIFZ+1,4 FOR GOTOV TRANSFERS, F2102410 PAX 0,4 USE WORD TWO F2102420 SXD GTV20,4 FOR INDEXING F2102430 PDX 0,4 VALUES NECESSARY F2102440 TRA GTV20 F2102450 GTV10 CLA TRADZ,4 TO GET ADDRESSES F2102460 ALS 18 FR0M TABLE TRAD. F2102470 SXD GTV30,4 FOR GOTON (ASSIGN) TYPE F2102480 TSX FA000,4 TRANSFERS, ALL ADDRESSES F2102490 LXD GTV30,4 MUST BE PROCESSED EVEN F2102500 TXI GTV20,4,-1 THOUGH THEY ARE ON SAME F2102510 GTV20 TXH GTV10,4 LEVEL BECAUSE OF F2102520 GTV30 TXL FLO90,0 CARRY RESTRICTIONS. F2102530 REM ANALYSIS OF ADDRESS F2102540 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 226/230 ------ FA000 SXD RS60,4 SAVE TSX SET F2102550 STO A SAVE ADDRESS F2102560 LXD BNX,1 OBTAIN F2102570 TSX ADLOC,4 INDEX OF DO CONTAINING F2102580 PXD 0,1 ADDRESS AND LEVEL OF F2102590 STO XDA THAT DO. F2102600 PXD 0,2 SAVE IN F2102610 STO LDA XDA AND LDA. F2102620 TXL FA010,2,20 TEST LEVEL F2102630 TSX DIAG,4 LEV. ADD OF TRA EXCEEDS 20. ERROr. GO TO DIAGNOSTIC. F2102645 FA010 ARS 18 F2102650 STA FA020 TRANSFER F2102660 CAL L(MZ) LEVEL IN F2102670 LXD XDG,1 XDG DO. F2102680 FA020 ARS F2102690 ORS DOTAGZ+7,1 F2102700 CLA LDA LIST F2102710 ARS 18 ADDRESS AND LEVEL F2102720 ADD A IN F2102730 TSX TLT00,4 TLT. CONTINUE WITH RS00 F2102740 REM TRANSFER BIT INSERTION IN DO FORMULA F2102750 RS00 LXD XDG,1 XRA CONTAINS XDG F2102760 LXD LDG,2 XRB CONTAINS LDG F2102770 RS10 PXD 0,2 IF G AND A IN SAME DO, F2102780 SUB LDA EXIT. THIS ROUTINE INSERTS F2102790 TZE INC00 BIT MEANING THERE IS A JUMP F2102800 TPL RS20 OUT OF THE RANGE OF THIS DO. F2102810 TSX DIAG,4 JUMP INTO HIGHER LEVEL. ERROr. GO TO DIAGNOSTIC. F2102825 RS20 CAL L(MZ) F2102830 ORS DOTAGZ+5,1 F2102840 TXL INC00,2,1 FIND NEXT BACK SUBNEST F2102850 RS30 TXI RS40,1,9 DO FORMULA F2102860 RS40 CLA DOTAGZ+5,1 AND RETURN F2102870 STD RS50 TO TEST F2102880 RS50 TXL RS30,2 LEVEL F2102890 PDX 0,2 AT F2102900 RS60 TXL RS10,0 RS10 F2102910 REM INDEXING NO CARRY CONDITION F2102920 INC00 CLA LDA EXIT IF F2102930 TZE RNC00 LDA IS ZERO. F2102940 CLA G PLACE G ANDA F2102950 LDQ A IN F2102960 TLQ INC20 INCX AND INCY SO THAT F2102970 STO INCX INCX IS LESS THAN INCY. F2102980 STQ INCY F2102990 TRA INC30 F2103000 INC20 STQ INCX F2103010 STO INCY F2103020 INC30 LXD XDA,1 INITIALIZE XRA F2103030 INC35 TXI INC40,1,-9 FIND DO OF LEVEL LDA F2103040 INC40 TXL RNC00,1 PLUS ONE. F2103050 CLA DOTAGZ+5,1 F2103060 ANA DECMSK F2103070 SUB LDA F2103080 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 227/231 ------ SUB L(1) F2103090 TZE INC50 DO OF LEVEL LDA PLUS ONE FOUND. F2103100 TPL INC35 LEVEL TO HIGH, GO BACK. F2103110 TRA RNC00 LEVEL TO LOW, DA EXHAUSTED. F2103120 INC50 CLA DOTAGZ,1 OBTAIN BETA OF F2103130 PAX 0,2 THIS DO IN DECREMENT. F2103140 PXD 0,2 F2103150 CAS INCY COMPARE WITH INCY. F2103160 TRA RNC00 GREATER THAN OR EQUAL TO F2103170 TRA RNC00 GREATEST OF G, A, EXIT. F2103180 CAS INCX LESS THAN INCY, COMPARE F2103190 TRA INC60 WITH INCX. GREATER THAN F2103200 TRA INC60 OR EQUAL TO INCX, GO TO INC60. F2103210 TRA INC35 LESS THAN INCX, GET NEXT DO. F2103220 INC60 CAL NCMSK AND OUT CARRY BITS. F2103230 ANS DOTAGZ+5,1 F2103240 TRA INC35 GO BACK FOR NEXT DO. F2103250 INCX HTR ES. F2103260 INCY HTR ES. F2103270 REM RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL F2103280 RNC00 CLA LDA EXIT IF LDA IS ZERO F2103290 TZE RNC95 F2103300 CLA LDG EXIT IF F2103310 SUB LDA LDA EQUALS F2103320 TZE RNC95 LDG F2103330 PDX 0,4 INITIALIZE COUNTER XR6 F2103340 LXD XDG,1 INITIALIZE XRA F2103350 CLA LDG AND F2103360 PDX 0,2 XRB. C(ACC) LDG. F2103370 TXI RNC50,2,1 C(XRB) LDG PLUS ONE. F2103380 RNC20 TXI RNC30,1,9 FIND NEXT BACKS F2103390 RNC30 TXH RNC95,1,1350 SUBNESTDO. F2103400 CLA DOTAGZ+5,1 F2103410 STD RNC40 F2103420 RNC40 TXL RNC20,2 F2103430 RNC50 SXD RNC75,1 SAVE XRA F2103440 STD RNC85 SAVE LEVEL OF THIS DO F2103450 PXD 0,2 SAVE LEVEL OF NEXT INNER F2103460 STO RNC90 SUBNEST DO. F2103470 RNC60 TXI RNC70,1,-9 TAKE NEXT DOWN DO IF ANY. F2103480 RNC70 TXL RNC80,1 F2103490 CLA DOTAGZ,1 IF BETA F2103500 ANA ADDMSK OF THIS DO F2103510 ALS 18 IS LESS F2103520 SUB G THAN G, F2103530 TPL RNC80 TEST LEVEL F2103540 CLA DOTAGZ+5,1 TO SEE IF F2103550 ANA DECMSK THIS DO IS OF SAME F2103560 SUB RNC90 LEVEL AS NEXT INNERMOST F2103570 TNZ RNC60 SUBNEST DO. IF NOT, GET NEXT DO. F2103580 CLA DOTAGZ+6,1 IF SO, MAKE NO CARRY F2103590 ANA DECMSK TRANSFER LEVEL OF THIS F2103600 SUB LDA DO EQUAL TO GREATER F2103610 TPL RNC60 OF PREVIOUS VALUE F2103620 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 228/232 ------ CLA LDA AND CURRENT LDA. F2103630 STD DOTAGZ+6,1 F2103640 RNC75 TXL RNC60,0 GO BACK FOR NEXT TEST DO F2103650 RNC80 LXD RNC75,1 GO BACK FOR NEXT SUBNEST DO, F2103660 LXD RNC85,2 IF COUNTER PERMITS. F2103670 TIX RNC20,4,1 OTHERWISE, EXIT. F2103680 RNC85 TXL RNC95,0 F2103690 RNC90 HTR ES F2103700 RNC95 LXD RS60,4 GO BACK TO CONTROL ROUTINE F2103710 TRA 1,4 FOR NEXT ADDRESS. F2103720 REM INDEX AND LEVEL OF ADDRESS F2103730 ADLOC SXD ADL20,4 SAVE TSX SET F2103740 LXD L(0),4 INITIALIZE XRC, F2103750 SXD ADL30,4 AND DEC OF ADL30, PUT ADDRESS F2103760 STO ADL90 IN ADL90. XRA CONTAINS BNX F2103770 ADL10 CLA DOTAGZ,1 OBTAIN FIRST WORD. F2103780 PAX 0,2 SAVE BETA F2103790 ANA DECMSK GET ALPHA ALONE. F2103800 CAS ADL90 COMPARE WITH ADDRESS. IF F2103810 ADL20 TXL ADL70,0 ALPHA NOT LESS THAN ADD, THEN F2103820 ADL30 TXL ADL70,0 ADD IN LAST CHOOSEN DO. F2103830 PXD 0,2 IF ALPHA LESS THAN ADD, F2103840 CAS ADL90 COMPARE WITH BETA. F2103850 NOP IF BETA IS NOT LESS THAN F2103860 TRA ADL40 ADDRESS, THIS DO CONTAINS F2103870 TXH ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST F2103880 TRA ADL70 TO ADL 70. OTHERWISE, GO TO 30 F2103890 ADL40 SXD ADL30,1 IF DO IN THIS NEST, SXD. F2103900 ADL50 TXI ADL60,1,-9 IN ANY CASE, TAKE NEXT DOWN F2103910 ADL60 TXL ADL70,1 DO, IF ANY, F2103920 CLA DOTAGZ+5,1 PUT LEVEL IN XRC. F2103930 PDX 0,4 AND GO BACK FOR TEST F2103940 TXH ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE. F2103950 ADL70 LXD ADL30,3 OBTAIN XDA IN XRA, XRB. F2103960 TXL ADL80,1,0 EXIT IF ZERO. F2103970 CLA DOTAGZ+5,1 IF NOT ZERO, GET LDA IN F2103980 PDX 0,2 XRB, PUT F2103990 ADL80 LXD ADL20,4 TSX SET IN XRC F2104000 TRA 1,4 AND RETURN. F2104010 ADL90 HTR F2104020 REM TRALEV LISTING F2104030 TLT00 LXD TLT50,1 OBTAIN CURRENT TRALEV F2104040 STO TLTZ,1 INDEX. STORE ENTRY. F2104030 TXI TLT10,1,-1 IF TABLE NOW FULL, GO TO F2104060 TLT10 SXD TLT50,1 TAPE WRITING ROUTINE. F2104070 TXL TLT20,1,0 OTHERWISE, SAVE NEW INDEX F2104080 TRA 1,4 AND RETURN. F2104090 TLT20 WRS TLTAPE SELECT TAPE TO WRITE AWAY F2104100 LXD TLT50,1 BUFFER. INITIALIZE XRA F2104110 SXD TLT40,1 AND TEST INSTR. F2104120 MSE 98 TURN OFF TRALEV TAPE EMPTY F2104130 NOP LIGHT F2104140 LXA TLT50,1 RE-INITIALIZE INDEX QUANTITIES F2104150 SXD TLT50,1 F2104160 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 229/233 ------ TLT30 CPY TLTZ,1 COPY BUFFER. F2104170 TXI TLT40,1,-1 F2104180 TLT40 TXH TLT30,1 F2104190 TRA 1,4 RETURN. F2104200 TLT50 HTR 600 BUFFER SIZE F2104210 REM ES FORFLOW F2104220 BNX BSS 1 BEGINNING OF NEST INDEX F2104230 BNA BSS 1 BEGINNING OF NEST ADDRESS F2104240 ENA BSS 1 END OF NEST ADDRESS F2104250 G BSS 1 GAMMA OF SOME TIFGO ENTRY F2104260 XDG BSS 1 INDEX OF DO WITH G IN IMMED. F2104270 LDG BSS 1 RANGE. LEVEL OF XDG. F2104280 A BSS 1 AN ADDRESS TO WHICH G TRANSFERS. F2104290 XDA BSS 1 1NDEX OF DO WITH A IN IMMED. F2104300 LDA BSS 1 RANGE. LEVEL OF XDA. F2104310 TIFX BSS 1 CURRENT TIFGO INDEX. F2104320 REM DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS F2104330 SV00 LXD DOTAG-1,1 F2104340 SXD SV80,1 F2104350 SXD SV95,1 F2104360 SXD TRA40,1 F2104370 LXD L(1350,1 INITIALIZE XRA F2104380 SXD SV44,1 SAVE CURRENT DO INDEX F2104390 SV10 SXD SV98,1 SAVE NEST INDEX F2104400 SV20 CLA DOTAGZ,1 OBTAIN FIRST WORD CURRENT F2104410 ANA TAGMSK DO AND INSPECT TAG F2104420 TZE SV90 IF ZERO, GO TO INDEXING F2104430 LXD SV98,4 OTHERWISE, NEST INDEX IN XRC F2104440 SV30 CLA DOTAGZ+1,4 OBTAIN SYM OF XRC, F2104450 LXD L(3),2 INITIALIZE XRB COUNTER F2104460 SV40 CAS DOTAGZ+4,1 AND TEST FOR SYM EQUALS VAR.N. F2104470 SV44 TXL SV50,0 CURRENT DO INDEX STORAGE. F2104480 SV48 TXL SF00,0 INDEX STO OF N IN CUR. DO F2104490 SV50 TXI SV60,1,1 TAKE NEXT.N, COUNT F2104500 SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2104510 SV65 LXD SV44,1 SYM NOT VAR.N., PUT CURRENT F2104520 SV70 TXI SV80,4,-9 DO INDEX IN XRA AND INDEX F2104530 SV80 TXL SV90,4 XRC. IF TABLE ENDS, GO70 SU90. F2104540 CLA DOTAGZ+5,4 OTHERWISE TEST FOR,NEW NEST, F2104550 PDX 0,2 IF NOT NEW NEST, GO BACK TO. F2104560 TXH SV30,2,1 TEST SYM. OTHERWISE. F2104570 SV90 TXI SV95,1,-9 TAKE NEXT DOWN DO F2104580 SV95 TXL TS4VAL,1 POSSIBLE. OTHERWISE, EXIT F2104590 SXD SV44,1 SAVE CURRENT DO INDEX. F2104600 CLA DOTAGZ+5,1 F2104610 PDX 0,2 INSPECT LEVEL. F2104620 TXH SV20,2,1 IF NOT NEW NEST, TRA SV20 F2104630 SV98 TXL SV10,0 1F NEW NEST, SV10 (NEST.INDEX STO.)F2104640 SF00 SXD SV48,1 SAVE INDEX OF N. N CURRENT DO F2104650 SXD SF10,2 SAVE N COUNTER. F2104660 SXD SF15,4 F2104670 PXD 0,4 SAVE INDEX OF SYMBOL DO F2104680 STO SFES1 IN FULL WORD. F2104690 LXD SV44,1 OBTAIN INDEX OF CURRENT DO F2104700 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 230/234 ------ PXD 0,1 IN ACC. AND COMPARE F2104710 CAS SFES1 WITH INDEX OF SYMBOL DO. F2104720 SF10 TXL SF20,0 CURRENT INDEX GREATER. F2104730 TRA SF79 EQUALITY F2104740 PSE 97 SYMBOL INDEX GREATER, F2104750 SF15 TXL SF30,0 TURN ON LIGHT 97. F2104760 SF20 LXD SV44,4 CUR. IND. GREATER, PUT IN XRC F2104770 LXD SFES1,1 SYM. IND. IN XRA. F2104780 MSE 97 LIGHT 97 OFF. F2104790 NOP AT SF30, XRA CONTAIN LEAST F2104800 SF30 PXD 0,4 OF CUR. IND, SYM. IND. XRC F2104810 STO SFES1 CONTAINS GREATER. PUT IN ES. F2104820 SF35 CLA DOTAGZ+5,1 PUT LEVEL OF D(XRA) IN F2104830 PDX 0,2 XRB. HALT IF F2104840 TXH SF40,2,1 LEVEL F2104850 TSX DIAG,4 IS ONE ERROr. GO TO DIAGNOSTIC F2104865 SF40 TXI SF50,1,9 BACK UP IN XRA- F2104870 SF50 TXL SF60,1,1350 HALT IF TOP OD DOTAG F2104880 TSX DIAG,4 PASSED. ERROr. GO TO DIAGNOSTIC F2104893 SF60 CLA DOTAGZ+5,1 THIS ROUTINE, BY RAISING F2104900 STD SF70 XRA, EXITS TO SF80 OR F2104910 SF70 TXL SF40,2 SF90 UPON FINDING A DO F2104920 PXD 0,1 IN THE SUBNEST OF XRA F2104930 CAS SFES1 WHICH IS THE DO OF XRC OR F2104940 TRA SF73 CONTAINS THE DO OF XRC F2104950 TRA SF80 AND CURRENT DO. F2104960 TRA SF35 GO BACK FOR NEXT DO F2104970 SF73 SXD SF76,1 THIS ROUTINE (THROUGH SF76) F2104980 SF74 LXD SF15,1 F2104990 TSX TRA00,4 USES TRA00 F2105000 TZE SFEND F2105010 STO SF78 TO DETERMINE THE F2105020 LXD SF76,1 GREATEST EXIT LEVEL OF F2105030 CLA DOTAGZ+5,1 DEFINITION FROM A F2105040 ANA DECMSK DO SYM NOT IN THE F2105050 CAS SF78 SUBNEST OF A DO WITH F2105060 CLA SF78 VARIABLE NS, BUT IN A F2105070 NOP SUBNEST WHICH HAS A F2105080 SF76 TXL SF90,0 NON EMPTY INTERSECTION F2105090 SF78 HTR WITH THAT SUB NEST. F2105100 SF79 CLA DOTAGZ+5,1 F2105110 ANA DECMSK F2111120 SUB L(1) F2105130 TNZ SF90 F2105140 TRA SFEND F2105150 SF80 MSE 97 EQUALITY, IF SYM DO IS F2105160 TSX DIAG,4 CURRENT DO, ERROr. GO TO DIAGNOSTIC. F2105173 CLA BITONE F2105180 ORS DOTAGZ+5,1 F2105190 CLA DOTAGZ+5,1 OBTAIN LEVEL OF DEFINITION F2105200 ANA DECMSK AND STORE F2105210 SF90 ARS 18 IN ADDRESS PART F2105220 STO SFES1 OF SFESI. F2105230 LXD SV48,1 INDEX OF VAR.N. IN CUR. DO. F2105240 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 231/235 ------ CLA DOTAGZ+8,1 OBTAIN PREVIOUS LEV. DEF. F2105250 ANA ADDMSK AND COMPARE F2105260 CAS SFES1 WITH NEW, F2105270 TRA SFEND EXIT UNLESS F2105280 TRA SFEND NEW LEV. F2105290 CLA SFES1 IS LARGGER, IN WHICH CASE F2105300 STA DOTAGZ+8,1 REPLACE OLD WITH NEW F2105310 LXD SF10,2 OBTAIN N COUNTER IN XRB F2105320 SF92 CLA DOTAGZ+4,1 OBTAIN VAR. N IN ACC. F2105330 TRA SF96 GO TO INDEXING. F2105340 SF94 CAS DOTAGZ+4,1 COMPARE, TO FIND DUPLICATE F2105350 TRA SF96 N S. F2105360 TRA SF99 DUPE FOUND. F2105370 SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2105380 SF98 TIX SF94,2,1 AND IN COUNTER F2105390 TRA SFEND F2105400 SF99 CLA SFES1 REPLACE F2105410 STA DOTAGZ+8,1 OLD LEVEL F2105420 TRA SF92 OF DEFINITION. F2105430 SFEND LXD SF15,4 GO BACK FOR NEXT F2105440 TRA SV65 SYMBOL DO F2105450 SFES1 HTR ES, F2105460 REM GREATEST TRANSFER LEVEL OUT OF DO FORMULA F2105470 TRA00 CLA DOTAGZ+5,1 OBTAIL LEVEL OF DO F2105480 PDX 0,2 USE MAX LEV TWENTY F2105490 TRA10 TXL TRA20,2,20 F2105500 LXD TRA10,2 F2105510 TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2105520 PXD 0,2 COMPUTE LEVEL MINUS ONE F2105530 ARS 18 AND INITIALIZE SHIFT INSTR. F2105540 SUB TRAN1 COMPUTE 35 MINUS (L M1NUS F2105530 STA TRA70 ONE) AND F2105560 SUB TRAN2 INITIALIZE F2105570 STA TRA80 SHIFT INSTR. F2105580 PXD 0,0 INITIALIZE F2105590 STO TRAN5 ES LOCATION TO ZERO F2105600 TRA30 CAL DOTAGZ+7,1 OR INTO TRAN5 ALL THE F2105610 ORS TRAN5 T2 WORDS OF THIS DO F2105620 TXI TRA40,1,-9 AND ALL DOS CONTAINED F2105630 TRA40 TXL TRA60,1 BY THIS DO. F2105640 CLA DOTAGZ+5,1 F2105650 PDX 0,2 F2105660 TRA50 TXH TRA30,2 F2105670 TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2105680 TRA70 LLS REGISTER, SHIFT COMPUTED F2105690 TRA80 ALS AMOUNTS TO CONSTRUCT F2105700 ANA TRAN5 MASK IN ACC. AND IN F2105710 TZE TRA95 UNION OF T2 WORDS. EXIT IF ZERO. F2105720 STO TRAN5 OBTAIN LOW ORDER BIT F2105730 SUB TRAN1 IN ACC. F2105740 STO TRAN6 F2105750 ORA TRAN5 F2105760 SUB TRAN6 F2105770 LXD L(1),1 F2105780 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 232/236 ------ TRA85 CAS TRATAB+19,1 SEARCH TABLE F2105790 TRA TRA86 TO OBTAIN F2105800 TRA TRA90 LEVEL INTEGER F2105810 TRA86 TXI TRA87,1,1 F2105820 TRA87 TXL TRA85,1,19 F2105830 TSX DIAG,4 ERROr GO TO DIAGNOSTIC. F2103845 TRA90 PXD 0,1 PUT LEVEL IN ACC DECREMENT F2105850 TRA95 TRA 1,4 EXIT. F2105860 TRAN1 HTR 1 F2105870 TRAN2 HTR 35 F2105880 TRAN4 OCT 377777777777 F2105890 TRAN5 HTR F2105900 TRAN6 HTR F2105910 TRATAB OCT 200000 F2105920 OCT 400000 F2105930 OCT 1000000 F2105940 OCT 2000000 F2105950 OCT 4000000 F2105960 OCT 10000000 F2105970 OCT 20000000 F2105980 OCT 40000000 F2105990 OCT 100000000 F2106000 OCT 200000000 F2106010 OCT 400000000 F2106020 OCT 1000000000 F2106030 OCT 2000000000 F2106040 OCT 4000000000 F2106050 OCT 10000000000 F2106060 OCT 20000000000 F2106070 OCT 40000000000 F2106080 OCT 100000000000 F2106090 OCT 200000000000 F2106100 REM FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS F2106110 TS4VAL CLA 4VALAD READ IN F2106120 LXD L(6),2 FORVAL F2106130 TSX RTAPE,4 F2106140 TXL TSV10,1,999 F2106150 PSE 100 IF FORVAL EMPTY, SET F2106160 TRA T190 SENSE LIGHT AND EXTT F2106170 TSV10 SXD TS40,1 INITIALIZE TEST INSTRS. F2106180 SXD TS75,1 F2106190 MSE 99 TEST FOR EMPTY DOTAG F2106200 TRA TSV20 OFF, NOT EMPTY F2106210 PSE 99 ON, DOTAG EMPTY F2106220 TRA T190 EXIT F2106230 TSV20 LXD DOTAG-1,1 DOTAG TEST INITIALIZING F2106240 SXD TS35,1 F2106230 LXD L(1350,1 INITIALIZE XRA F2106260 LXD L(1000,4 AND F2106270 SXD XFOR,4 XFOR. CONTINUE WITH TS00 F2106280 TS00 MSE 97 SENSE LIGHT-97 OFF F2106290 NOP F2106300 TS10 CLA DOTAGZ+5,1 OBTAIN LEVEL OF CURRENT F2106310 PDX 0,2 DO IN XRB. IF L IS ONE, F2106320 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 233/237 ------ TXL TS15,2,1 GO TO NEST PROCEDURE. IF F2106330 MSE 97 L 1S NOT ONE AND LIGHT IS F2106340 TRA TS30,0 OFF, GO TO INNER DO PRECEDURE, F2106350 PSE 97 IF LIGHT IS ON, CONTINUE F2106360 TXI TS35,1,-9 INDEXING FOR NEXT NEST. F2106370 TS15 MSE 97 F2106380 NOP F2106390 CLA DOTAGZ,1 L IS ONE, DO NEST PR0CEDURE. F2106400 PAX 0,2 ESTABLISH BEGINNING OF F2106410 ANA DECMSK NEST ADDRESS BNA, AND F2106420 STO TBNA END OF NEST ADDRESS ENA. F2106430 PXD 0,2 SEARCH IN FORTAG UNTIL F2106440 STO TENA FOR NRS. FOUND GREATER F2106450 LXD XFOR,4 THAN ENA. IF NONE, EXIT F2106460 CLA TBNA FROM ENTIRE ROUTINE. F2106470 TS20 CAS 4VALZ,4 TEST WHETHER FIRST SUCH F2106480 TXI TS40,4,-2 NR. IS IN NEST IF NOT, F2106490 TSX DIAG,4 FIND NEXT NEST. IF SO, (ERROr. GO TO DIAGNOSTIC.)F2106503 SXD XFOR,4 GO TO INDEXING INSTRS. F2106510 CLA TENA FOR NEXT DO. F2106520 SUB 4VALZ,4 F2106530 TPL TS25 F2106540 PSE 97 RECORD NO FORVAL FALLS IN THIS NEST. F2106550 TS25 TXI TS35,1,-9 F2106560 TS30 CLA DOTAGZ,1 INNER DO PROCEDURE. F2106570 ANA TAGMSK TEST FOR NON ZERO TAG, F2106580 TNZ TS50 IN WHICH CASE TRA FOR F2106590 TS33 TXI TS35,1,-9 TABLE SEARCH. OTHERWISE, F2106600 TS35 TXH TS10,1 INDEX FOR NEXT DO, IF POSSIBLE. F2106610 TS38 TXL T190,0 EXIT, STORAGE FOR INDEX CUR. DO. F2106620 TS40 TXH TS20,4 INDEX TEST FOR FORVAL F2106630 TRA T190 EXIT F2106640 TS50 SXD TS38,1 SAVE INDEX OF CURRENT DO F2106650 SXD T110,2 SAVE LEVEL OF CURRENT DO F2106660 LXD XFOR,4 OBTAIN FORVAL INDEX IN XRC F2106670 TS55 LXD L(3),2 PUT THREE IN XRC F2106680 LXD TS38,1 CURRENT DO IN XRA F2106690 CLA TENA TEST FOR END OF NEST F2106700 SUB 4VALZ,4 F2106710 TMI TS33 NOT IN NEST TRA FOR NEXT DO. F2106720 CLA 4VALZ+1,4 IN NEST 0BTAIN FORTAG F2106730 TS60 CAS DOTAGZ+4,1 SYMBOL, COMPARE WITH VAR F2106740 TRA TS65 N SYMBOLS. F2106750 TRA TS80 EQUALITY F2106760 TS65 TXI TS70,1,1 INDEX IN XRA, F2106770 TS70 TIX TS60,2,1 COUNT IN XRB F2106780 TXI TS75,4,-2 TAKE NEXT FORTAG ENTRY, F2106790 TS75 TXH TS55,4 IF ANY F2106800 LXD TS38,1 RESTORE CURRENT DO INDEX F2106810 TXI TS35,1,-9 AND TRA FOR NEXT DO. F2106820 TS80 SXD T148,2 SAVE VAR. N. COUNTER. F2106830 SXD T144,1 SAVE COUNTER OF SYM IN DO F2106840 LXD TS38,1 CURRENT DO INDEX IN XRA F2106850 LXD T110,2 CURRENT DO LEVEL IN XRB F2106860 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 234/238 ------ TXI TS85,2,1 ADJUST XRB FOR CURRENT DO TEST. F2106870 TS85 CLA DOTAGZ+5,1 OBTAIN NEXT BACK DO IN F2106880 STD TS90 SUBNEST. ON FIRST TIME F2106890 TS90 TXH T100,2 THROUGH, CURRENT DO IS F2106900 TS92 TXI TS85,1,9 PRODUCED. F2106910 TS94 TIX TS92,2,1 ADJUST LEVEL. F2106920 TSX DIAG,4 IF NOT IN NEST, ERROr. GO TO DIAGNOSTIC. F2106933 T100 CLA DOTAGZ,1 NEXT BACK DO FOUND. F2106940 ANA DECMSK TEST TO SEE IF FORTAG F2106950 SUB 4VALZ,4 FORMULA NR. IS IN THIS F2106960 TPL TS94 DO. IF NOT, GO TO TS94 F2106970 CLA DOTAGZ,1 TO ADJUST LEVEL FOR F2106980 ANA ADDMSK OBTAINING NEW SUBNEST DO. F2106990 ALS 18 F2107000 SUB 4VALZ,4 F2107010 TMI TS94 F2107020 T110 TXL T120,2 DEC CONTAINS CURRENT LEVEL. F2107030 TRA T170 APPARENT DEFINITION OF A VARIABLE N WITHIN F2107044 REM RANGE OF THE DO WITH VARIABLE N. IGNORE AND F2107046 REM GET NEXT FORVAL. F2107047 T120 LXD T144,1 PUT CUR. VAR. DO INDEX IN F2107050 CLA DOTAGZ+8,1 XRA, AND OBTAIN LEV. DEF, F2107060 PAX 0,2 OF VAR. N. F2107070 SXD T130,2 STORE IN DEC OF T130. F2107080 LXD TS90,2 OBTAIN LEVEL OF DO CONTAINING F2107000 T130 TXL T170,2 FURTAG FOR. NR. F2107100 PXD 0,2 CHOOSE LARGER AND PUT IN F2107110 ARS 18 LEV, DEF. FIELD OF CURRENT DO. F2107120 STA DOTAGZ+8,1 IF CHANGE MADE, SAVE F2107130 STO T195 LEVEL, F2107140 LXD T148,2 AND TEST TO SEE IF THIS F2107150 CLA DOTAGZ+4,1 SYMBOL F2107160 TXI T160,1,1 DUPLICATED F2107170 T140 CAS DOTAGZ+4,1 IN DO VAR.N S. F2107180 T144 TXL T150,0 IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100 T148 TXL T180,0 OF DEF BY THIS ( DEC HAS 3,2,1 IF FORVAL F2107200 REM MATCHES VARIABLE N3,N2,N1) F2107201 T150 TXI T160,1,1 NEW LEVEL. F2107210 T160 TIX T140,2,1 F2107220 T170 TXI TS75,4,-2 F2107230 T180 CLA T195 F2107240 STA DOTAGZ+8,1 F2107230 CLA DOTAGZ+4,1 F2107260 TXI T160,1,1 F2107270 T190 TRA RH00 EXIT F2107280 T195 HTR ES F2107290 XFOR HTR FORTAG INDEX F2107300 TBNA HTR ES F2107310 TENA HTR ES F2107320 REM USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH. F2107330 RH00 LXD L(5),2 READ IN F2107340 CLA 4VARAD FORVAR F2107350 TSX RTAPE,4 F2107360 TXH RH95,1,1499 EXIT IF FORVAR EMPTY F2107370 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 235/239 ------ MSE 99 TEST FOR EMPTY DOTAG. F2107380 TRA RH05 NOT EMPTY F2107390 PSE 99 EMTPY, RESTORE SENSE LIGHT F2107400 TRA RH95 AND EXIT. F2107410 RH05 SXD RH60,1 FORVAR.TEST F2107420 SXD RH75,1 INIT1ALIZING F2107430 LXD DOTAG-1,1 DOTAG TEST F2107440 SXD RH90,1 INITIALIZING F2107450 LXD L(1500,1 MAX WORDS IN FORVAL F2107460 SXD RHNNX,1 IN NEXT NEST INDEX. F2107470 MSE 97 TURN LIGHT 97 OFF. F2107480 NOP F2107490 LXD L(1350,1 PUT MAX WDS IN DOTAG IN XRA. F2107500 RH10 CLA DOTAGZ,1 OBTAIN FIRST DOTAG WORD. F2107510 PAX 0,2 SEPARATE ALPHA AND BETA, F2107520 ANA DECMSK STORE IN RFIRST AND RLAST F2107530 STO RFIRST F2107540 PXD 0,2 F2107550 STO RLAST F2107560 CLA DOTAGZ+5,1 OBTAIN LEVEL IN XRB. F2107570 PDX 0,2 F2107580 TXH RH30,2,1 TRA IF LEVEL GREATER THAN ONE. F2107590 MSE 97 LEVEL IS ONE, TEST WHETHER, F2107600 TRA RH20 ON LAST LEVEL ONE, FORVAR F2107610 TRA RH95 EXHAUSTED, IF SO, EXIT, F2107620 RH20 LXD RHNNX,4 OTHERWISE, ADJUST FORVAR F2107630 SXD RHCNX,4 1NDEX TO SKIP LAST NEST AREA F2107640 RH30 LXD RHCNX,4 PUT FORVAR INDEX IN XRC F2107650 CLA RFIRST BEGIN SEARCH FOR FIRSTL. F2107660 RH40 CAS 4VARZ,4 FORVAR ENTRY IN RANGE. F2107670 TXI RH60,4,-2 F2107680 TSX DIAG,4 ERROr GO TO DIAGNOSTIC F2107695 SXD RHCNX,4 SAVE INDEX AT THIS POINT, F2107700 RH50 CLA RLAST FOR NEXT DO, AND COMPARE F2107710 CAS 4VARZ,4 FORVAR ENTRY WITH RLAST F2107720 NOP F2107730 TRA RH70 TRA, IN RANGE. F2107740 TRA RH80 TRA, NOT IN RANGE F2107750 RH60 TXH RH40,4 IF NO ENTRIES GREATER F2107760 TRA RH95 THAN RFIRST, EXIT. F2107770 RH70 CLA DOTAGZ+1,1 IN RANGE, COMPARE SYMB0LS F2107780 SUB 4VARZ+1,4 IF EQUAL, PUT BIT IN F2107790 TNZ RH72 DOTAG-ENTRY. F2107800 CLA BITONE F2107810 ORS DOTAGZ+5,1 F2107820 TXH RH85,2,1 F2107830 RH72 TXI RH75,4,-2 INDEX FORVAR AND GO BACK, F2107840 RH75 TXH RH50,4 IF POSSIBLE. OTHERWISE, F2107850 TXH RH85,2,1 TEST LEVEL. IF LEVEL IS F2107860 PSE 97 ONE, ARRANGE TO EXIT WHEN F2107870 TRA RH85 NEXT LEVEL ONE ENCOUNTERED F2107880 RH80 TXH RH85,2,1 N0T IN RANGE, TEST LEVEL F2107890 SXD RHNNX,4 SET NEXT NEST INDEX IF L IS ONE. F2107900 RH85 TXI RH90,1,-9 INDEX IN DOTAG AND GO F2107910 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 236/240 ------ RH90 TXH RH10,1 BACK, IF POSSIBLE. F2107920 RH95 TRA LB00 EXIT F2107930 RHNNX HTR NEXT NGST INDEX F2107940 RHCNX HTR CURRENT NEST INDEX F2107950 RFIRST HTR ALPHA ADDRESS F2107960 RLAST HTR BETA ADDRESS F2107970 REM TAPE READING ROUTINE F2107980 RTAPE STA RT40 INITIALIZE TABLE ADDRESS F2107990 STO RT92 F2108000 SXD RT80,4 SAVEXRC, TSX SET F2108010 PXD 0,2 SAVE XRB, F2108020 ARS 18 TABLE NR, IN ADDRESS. F2108030 STO RT90 F2108040 LXD RTD18,4 INITIALIZE ERROr COUNTER. F2108050 SXD RT73,4 F2108060 RT10 RDS TTAPE SELECT TAPE F2108070 LXD RT92,1 PUT MAX NR WORDS IN XRA F2108080 LXD L(2),4 PUT TWO IN XRC F2108090 RT20 CPY RT95+2,4 COPY FIRST TWO WORDS. F2108100 TRA RT30 INTO E.S. F2108110 TSX DIAG,4 EOF. ERROr. GO TO DIAGNOSTIC F2108125 TSX DIAG,4 EOR ERROR. GO TO DIAGNOSTIC. F2108135 RT30 TIX RT20,4,1 F2108140 TXL RTDO0,2,1 F2108150 RT40 CPY 0,1 COPY TABLE F2108160 TXI RT40,1,-1 COUNT NR. OF WORDS. F2108170 TSX DIAG,4 EOF ERROr. GO TO DIAGNOSTIC. F2108183 RT45 WRS 219 ERROr. GO TO DIAGNOSTIC. F2108183 RTT ERROr TEST F2108190 TRA RT70 ERROr, TRA F2108200 CLA RT90 NO ERROr, F2108220 SUB RT95 TEST TABLE NR. F2108230 TZE RT60 NO ERROr F2108240 TSX DIAG,4 WRONG TABLE 1DENT NR. ERROr. GO TO DIAGNOSTIC. F2108255 RT60 LXD RT80,4 TABLE CORRECT, F2108260 TRA 1,4 RETURN. F2108270 RT70 LXD RT73,4 F2108280 BST TTAPE ERROr, BACKSPACE TAPE F2108290 TNX RT75,4,1 F2108300 SXD RT73,4 COUNT DOWN ERROR COUNTER F2108310 RT73 TXL RT10,0 F2108320 RT75 LDQ RT90 IF FIVE FAILURES, PUT F2108332 TSX DIAG,4 TABLE NR. IN MQ. ERROR. GO TO DIAGNOSTIC. F2108344 RT80 HTR TSX INDEX STORAGE F2108350 RT90 HTR TABLE NR STORAGE, C.S. F2108360 RT92 HTR ADDRESS WORD STORAGE F2108370 RT95 HTR TABLE NR, WD ONE OF TABLE. F2108380 RT96 HTR NR. OF WDS IN DEC. F2108390 RTDO0 PXD 0,0 THIS ROUTINE F2108400 RTD10 LXD RTD18,4 READS IN ONE F2108410 RTD15 CPY DOTAGZ,1 ENTRY FROM F2108420 TXI RTD20,1,-1 TDO, AFTER WHICH F2108430 TSX DIAG,4 FOUR ZERO WORDS =ERROr. GO TO DIAGNOSTIC. F2108445 RTD18 TXL RT45,0,5 ARE STORED,BEFORE F2108450 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 237/241 ------ RTD20 TIX RTD15,4,1 READING IN F2108460 RTD23 TXI RTD25,4,3 THE NEXT ENTRY. F2108470 RTD25 STO DOTAGZ,1 STORE ZERO F2108480 TXI RTD30,1,-1 INDEX F2108490 RTD30 STO DOTAGZ,1 AND REPEAT. F2108500 TXI RTD35,1,-1 WHEN DOTAG F2108510 RTD35 STO DOTAGZ,1 ENTRY IS F2108520 TXI RTD40,1,-1 COMPLETE, F2108530 RTD40 STO DOTAGZ,1 TRA F2108540 TXI RTD10,1,-1 TO RTD10 F2108550 DOAD HTR DOTAGZ,0,1350 ADDRESS PART CONTAINS F2108560 4VALAD HTR 4VALZ,0,1000 ADDRESS OF LAST WORD IN F2108570 TIFAD HTR TIFZ,0,600 TABLE PLUS ONE. F2108580 TRADAD HTR TRADZ,0,250 DEC CONTAINS MAX NR OF F2108590 4VARAD HTR 4VARZ,0,1500 WRDS. F2108600 4TAGAD HTR FORTZ,0,1500 F2108610 REM TRANSFER IN EXTENDED RANGE BIT. F2108620 LB00 MSE 99 TEST FOR EMPTY DOTAG F2108630 TRA LB02 OFF, NOT EMPTY F2108640 PSE 99 ON, EMPTY, RESET LIGHT F2108650 TRA EB00 AND EX1T F2108660 LB02 LXD DOTAG-1,1 OBTAIN NEXT UNUSED INDEX F2108670 LB05 TXL LB60,0 TRA TO ADJUST FOR LAST DO. F2108680 LB10 CLA DOTAGZ+6,1 OBTAIN T1 WORD. F2108690 TMI LB60 TEST SIGN, TRA IF NEG. F2108700 ANA BITONE TEST FOR TRA IN IMMED. RANGE. F2108710 TZE LB60 IF NONE,TRA. F2108720 SXD LB05,1 SAVE XRA F2108730 CLA DOTAGZ+5,1 PUT LEVEL F2108740 PDX 0,2 IN XRB F2108750 LB20 CAL LMSK OR IN F2108760 ORS DOTAGZ+6,1 MSK F2108770 TXL LB50,2,1 EXIT IF LEVEL ONE. F2108780 LB25 TXI LB30,1,9 FIND NEXT BACK F2108790 LB30 CLA DOTAGZ+5,1 SUBNEST DO, F2108800 STD LB40 F2108810 LB40 TXL LB25,2 F2108820 PDX 0,2 SAVE NEW LEVEL IN XRB. F2108830 CLA DOTAGZ+6,1 TEST SIGN OF WORD T1. F2108840 TPL LB20 IF PLUS GO TO PUT IN MSK. F2108850 LB50 LXD LB05,1 IF NOT, FIND NEXT DO F2108860 LB60 TXI LB70,1,9 IN MAIN PASS. F2108870 LB70 TXL LB10,1,1350 EB00 FOLLOWS F2108880 REM END OF BLOCK ROUTINE F2108890 EB00 REW 147 REWIND DOTAG TAPE F2108900 MSE 99 TEST FOR EMPTY DQTAG F2108910 TRA EB10 OFF, NOT EMPTY F2108920 PSE 99 ON, EMPTY, RESTORE AND TRA. F2108930 TRA EB50 F2108940 EB10 LXD DOTAG-1,1 INITIALIZE TEST INSTR. F2108950 SXD EB40,1 AND F2108960 LXD L(1350,1 XRA F2108970 EB20 LXD L(9),4 WRITE F2108980 CLA DOTAGZ+5,1 DOTAG F2108990 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 238/242 ------ PDX 0,2 ON F2109000 TXH EB30,2,1 TAPE F2109010 WRS 147 ONE F2109020 EB30 CPY DOTAGZ,1 NEST F2109030 TXI EB40,1,-1 PER F2109040 EB40 TXL EB50,1 RECORD F2109050 TIX EB30,4,1 F2109060 TRA EB20 F2109070 EB50 WEF 147 WRITE END OF FILE F2109080 EB60 LXD L(4),2 READ F2109090 CLA 4TAGAD IN F2109100 TSX RTAPE,4 FORTAG. F2109110 SXD FORTAG-1,1 SET SENSE LIGHT 97 F2109120 MSE 97 ON IF FORTAG F2109130 NOP EMPTY, OFF IF F2109140 TXL EB70,1,1499 FORTAG F2109150 PSE 97 NOT EMPTY. F2109160 EB70 RDS TTAPE MOVE TTAPE PAST F2109170 CPY EB80 END OF FILE MARK. F2109180 TRA EB70 F2109190 TRA EB90 EOF F2109200 TSX DIAG,4 SHOULD NOT BE EOR HERE. ERROr. GO TO DIAGNOSTIC. F2III215 EB80 HTR ES F2109220 EB90 MSE 98 IS TRALEV TALBE EMPTY F2109230 TRA EB95 F2109240 WRS TLTAPE ON, EMPTY. F2109250 CPY L(0) F2109260 CPY L(0) F2109270 PSE 98 F2109280 EB95 WEF TLTAPE TRALEV TAPE F2109290 RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2109295 TRA ONETCS GO TO ONE TO CS ( MONITOR). F2109296 ERLIST SXD ERIR2,2 SAVE X R B F2109311 LXD ERNBR,2 GET ERROr NUMBER F2109321 CLA DOTAGZ,4 SAVE ALPHA DO BETA F2109331 STO LIST,2 IN LIST F2109141 CLA DOTAGZ+1,4 AND SYMBOL F2109351 STO LIST-1,2 F2109361 CLA DOTAGZ,1 SAVE OTHER ALPHA DO BETA F2109371 STO LIST-2,2 F2109181 CLA DOTAGZ+1,1 AND SYMBOL F2109391 STO LIST-3,2 F2102401 TXI ERNXT,2,4 F2109411 ERNXT SXD ERNBR,2 F2109421 LXD ERIR2,2 F2109431 TRA MR60 F2109441 ERIR2 F2109451 ERNBR F2109461 ERBETA SXD ERIR2,2 SAVE ALPHA DO BETA F2109471 LXD ERNBR,2 WHERE ALPHA F2109481 STZ LIST,2 IS GREATER THAN F2109491 CLA DOTAGZ,1 ITS BETA F2109501 STO LIST-1,2 F2109511 CLA DOTAGZ+1,1 F2109521 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 239/243 ------ STO LIST-2,2 F2109531 TXI ERNX,2,3 F2109541 ERNX SXD ERNBR,2 F2109551 LXD ERIR2,2 F2109561 TRA MR15 F2109571 ERTST LXD ERNBR,2 F2109581 TXL FLOW,2,0 F2109591 TSX 4,4 F2109601 LIST SYN 32767 F2109611 ONETCS EQU 4 F2109710 DIAG EQU 4 F2109711 LMSK SYN L(MZ) F2109712 TTAPE EQU 146 F2109722 TLTAPE EQU 148 F2109732 END END OF BLOCK 1 F2109742 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 240/244 ------ REM BLOCK TWO OF SECTION TWO. REM MASTER RECORD CARD = FN034 F2200004 REM BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE F2200006 REM SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS F2200010 REM SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE F2200020 REM DOS. THERE ARE TWO MACHINE STATES, ONE F2200030 REM OF WHICH IS RESERVED EXCLUSIVELY F2200040 REM FOR THOSE SUBSCRIPT COMBINATIONS F2200050 REM SOME SUBSCRIPT ELEMENT/S OF WHICH ARE F2200060 REM NOT UNDER CONTROL OF A DO (RELATIVE F2200070 REM CONSTANT). F2200080 ORG 25 F2200090 DOTAG BSS 1 F2200100 BSS 449 F2200110 DOTAGZ BSS 1 F2200120 FORTAG BSS 1 F2200140 BSS 1499 F2200150 FORTZ BSS 1 F2200160 ORG 1976 F2200170 DOREC BSS 1 (INIT ZERO) F2200180 BSS 1 F2200190 ATSW BSS 1 ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITOF2200200 NEWTAG BSS 1 (INIT 4000M0DS, FIRSTTAG) F2200210 XC BSS 1 IX CURRENT DO. F2200220 LC BSS 1 LEV CURRENT DO F2200230 ALPHA BSS 1 ALPHA CURRENT DO F2200240 BETA BSS 1 BETA CURRENT DO F2200250 TAG BSS 1 TAG CURRENT TAG IN ROUTINE TAG F2200260 TS BSS 1 TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT F2200270 TAG1 BSS 1 4TH WD OF TAGTAG F2200280 GR0UP BSS 1 GROUP NR. IN DEC F2200290 C1 BSS 1 COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOMF2200300 S1 BSS 1 SUBSCR 1ST SYMB F2200310 C2 BSS 1 COEFF 2ND SYMB F2200320 S2 BSS 1 SUBSC 2ND F2200330 C3 BSS 1 COEFF 3RD F2200340 S3 BSS 1 SUBSC 3RD F2200350 D1 BSS 1 DIMENSION 1ST F2200360 D2 BSS 1 DIM 2ND F2200370 X1 BSS 1 IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD F2200380 L1 BSS 1 LEV DO MATCHING 1ST SYMB BELOW, INIT 0,IDENTF2200390 X2 BSS 1 IX DO MATHCING 2ND SYMB F2200400 L2 BSS 1 LEV DO MATCHING 2ND F2200410 X3 BSS 1 IX DO MATCHING 3RD F2200420 L3 BSS 1 LEV DO MATCHING 3RD F2200430 XL BSS 1 IX LOWEST LEVEL DOSUB F2200440 LL BSS 1 LEV LOWEST LEVEL DOSUB F2200450 NRSUBS BSS 1 NR. SUBSCRIPTS IN SUBSCR COMBINATION F2200460 NRRC BSS 1 NR. RELCONS IN SUBSCR COMBINATION F2200470 NRDS BSS 1 NR DOSUBS IN S.C. F2200480 DORC BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC F2200490 RCSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCONF2200500 DOSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB F2200510 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 241/245 ------ DELTA BSS 1 F2200520 RCDUP BSS 1 BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS F2200530 DUPES BSS 1 BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS F2200540 RSYM1 BSS 1 -- F2200550 RSYM2 BSS 1 F2200560 CARWRD BSS 1 BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2, F2200570 REM 13 CENTER TYPE 1, 14 CENTER TYPE 2. F2200571 REM S SET NEG IF COUNTER AND TEST FOUND F2200572 TL1 BSS 1 F2200580 TL2 BSS 1 F2200590 A BSS 1 F2200600 B BSS 1 F2200610 NEXTA BSS 1 F2200620 LASTB BSS 1 F2200630 REBITS BSS 1 F2200640 TRABIT BSS 1 F2200650 LOWP0S BSS 1 5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID) F2200660 L(0) 0,0,0 F2200670 L(1) 0,0,1 F2200680 L(2) 0,0,2 F2200690 L(3) 0,0,3 F2200711 L(4) 0,0,4 F2200710 L(5) 0,0,5 F2200720 L(6) 0,0,6 F2200730 L(20) 0,0,20 F2200740 L(36) 0,0,36 F2200750 L(60) 0,0,60 F2200760 L(450) 0,0,450 F2200770 L(1500 0,0,1500 F2200780 L(1)A 1 F2200790 L(2)A 2 F2200800 L(4)A 4 F2200810 L(MZ) MZE F2200820 35ONES OCT 377777777777 F2200830 DECMSK OCT 77777000000 F2200840 ADDMSK OCT 77777 F2200850 CR1 OCT 100000000 BIT 11 F2200860 CR2 OCT 40000000 BIT 12 F2200870 CARMSK OCT 300000 BITS 19,20 (CARRY BITS OF DOTAG, WD 6) F2200880 FRSTAG OCT 4000 F2200890 BITONE OCT 200000000000 F220090D BITTWO OCT 100000000000 F2200910 2BITS OCT -200000000000 S AND 1 BIT F2200920 BIT18 OCT 400000 F2200930 BIT19 OCT 200000 F2200940 BIT20 OCT 100000 F2200950 ADTXX 100 DEC CONTAINS (FROM)HERE TO NAMXX BELOW, F2200960 RESXX 300 IX VALUE FOR NEXT (DEC INiT SET TO-ADD) F2200970 TAGXX 80 TABLE ENTRY. F2200980 NAMXX 100 F2200990 BEGIN REW DOTAPE REWIND DOTAG TAPE F2201000 LXD L(5),1 INITIALIZE F2201010 BEG10 CLA LADDIN+5,1 DRUM PROGRAM F2201020 ANA ADDMSK ADDRESSES F2201030 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 242/246 ------ STO LADDS+5,1 TIX BEG10,1,1 F2201040 CLA L(0) , , F2201050 STO DOREC F2201060 RTT TURN F2201070 NOP LIGHT OFF F2201080 LXD L(0),6 TEST FOR EMPTY F2201090 MSE 100 FORVAL F2201110 LXD L(1),4 OFF, NOT EMPTY F2201120 SXD END80,4 ON, EMPTY F2201130 MSE 99 TEST FOR F2201140 LXD L(1),2 EMPTY DOTAG F2201150 SXD END85,2 SAVE TABLE INFO 1N END PROG. F2201160 TXL END,2,0 IF DOTAG EMPTY, GO TO END. F2201170 LXD FORTAG-1,1 INITIALIZE F2201170 SXD TINF30,1 FORTAG F2201180 SXD TAG20,1 TEST F2201190 SXD TAG90,1 INSTRUCTIONS. F2201200 PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE F2201220 STO NEWTAG F2201230 TRA NEST F2201240 END WEF ATAPE WEF ON TAGTAG TAPE F2201250 WRS 195 MAKE END OF DRUMTAG TABLE ENTRY. F2201260 LDA LADDS+4 F2201270 CPY 35ONES F2201280 CPY 35ONES F2201290 LXD L(5),1 F2201300 END10 WRS 219 DELAY. F2201310 WRS ADRUM WRITE. F2201320 CLA LADDIN+5,1 ALL F2201330 SUB L(2)A DRUM F2201340 STA END90 TABLE F2201350 CLA LADDIN+5,1 WORD F2201360 ANA ADDMSK COUNTS F2201370 SUB LADDS+5,1 IN F2201380 SSP FIRST F2201390 STO END95 TWO F2201400 LDA END90 WORDS F2201410 CPY END95 PRECEDING F2201420 CPY END95 EACH TABLE . (TSXCOM, TRASTO, NAMKEY, F2201430 TIX END10,1,1 CHATAG, DRMTAG) F2201440 PSE 96 RESTORE SENSE LIGHTS F2201450 LXD END80,1 SL 100 ON, FORVAL EMPTY F2201450 TXH END20,1,0 SL 99 ON, DOTAG EMPTY, F2201470 PSE 100 F2201480 END20 LXD END85,1 F2201490 TXH END30,1,0 F2201500 PSE 99 F2201510 END30 WEF TAPE2 WRITE EOF AFTER DONEST RECORDS F2201520 WRS TAPE2 F2201530 CPY DOREC MAKE AN EXTRA FILE WITH F2201540 CPY DOREC DONEST RECORD COUNT. F2201550 WEF TAPE2 F2201560 CLA LADDS+1 TRASTO CARRYOVER TO BLOCK 3 F2201570 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 243/247 ------ STO 4093 F2201580 CLA LADDS TSXCOM CARRYOVER TO BLOCK 3. F2201590 STO 4094 F2201600 CLA LADDS+2 NAMKEY (OR NAME) CARRYOVER TO BLOCK 3, F2201610 STO 4095 F2201620 TRA NORMRT F2201635 END80 HTR ES. (DEC HAS 1 IF FORVAL NOT EMPTY) F2201640 END85 HTR FOR (DEC HAS 1 IF DOTAG NOT EMPTY) F2201650 END90 HTR END F2201670 END95 HTR PROGRAM. F2201680 NEST LXD L(0),1 READ F2201690 NEST10 RDS DOTAPE ONE F2201700 LXD L(450),2 NEST OF DO FORMULAS F2201710 NEST20 CPY DOTAGZ,2 FROM F2201720 TXI NEST60,2,-1 DOTAPE. F2201730 TRA END IF EOF, GO TO ROUTINE END. F2201740 NEST30 CLA L(0) INITIALIZING INSTRUCTIONS. F2201750 STO ATSW F2201760 SXD XC,2 PUT C(XRB) IN XC F2201780 SXD DOTAG-1,2 INITIALIZE F2201790 SXD NEST95,2 DECS F2201800 SXD TRAW20,2 THAT F2201810 SXD TRAW50,2 TEST F2201820 SXD SPC040,2 END OF F2201830 SXD SPC090,2 DONEST. F2201840 LXA ADTXX,4 INIT F2201850 SXD ADTXX,4 DECS F2201860 LXA RESXX,4 FROM F2201870 SXD RESXX,4 ADDRESSES. F2201880 LXA TAGXX,4 F2201890 SXD TAGXX,4 F2201900 LXA NAMXX,4 F2201910 SXD NAMXX,4 F2201920 WRS 219 MAKE F2201930 RTT RTT F2201940 TRA NEST35 TEST F2201950 TRA DOFOR IF NO ERROR, GO TO DOFOR. F2201960 NEST35 TXI NEST40,1,1 IF ERROR, . F2201970 NEST40 TXH NEST50,1,4 TRY 4 TIMES MORE FOR F2201985 BST DOTAPE CORRECT READ. F2201990 TRA NEST10 AFTER FIFTH INCORRECT READ, F2202002 NEST50 TSX DIAG,4 ERROR. GO TO DIAGNOSTIC F2202015 NEST60 TXH NEST20,2,0 INDEX COPY. IF DOTAG F2202020 CPY NEST70 STORAGE FULL, AND MORE F2202030 TSX DIAG,4 NEST ENTRIES REMAIN. ERROR. GO TO DIAGNOSTIC. F2202045 TSX DIAG,4 INCORRECT EOF. ERROR. GO TO DIAGNOSTIC. F2202055 TRA NEST30 NO ENTRIES LEFT, GO TO NEST30). F2202060 NEST70 HTR E.S. F2202070 NESTEN LXD L(4),2 PUT END OF NEST INDICATION F2202080 CLA 35ONES IN TAGTAG, CONSISTING OF F2202090 NEST80 STO E1+4,2 FOUR WORDS OF 35 ONES. F2202100 TIX NEST80,2,1 F2202120 TSX TAGENT,4 ENTER IN TAGTAG AND F2202130 TSX TETAPE,2 WRITE BUFFER ON TAPE. F2202140 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 244/248 ------ CLA L(1) STO ATSW SET ADDED TAG SWITCH F2202150 TSX DRMENT,4 AND GO TO DRMENT TO F2202160 LXD NAMXX,1 PROCESS ADDED TAGS F2202170 REM SXD NEST84,1 TO DRUM TABLE NAME F2202190 SXD NEST84,1 TO DRUM TABLE NAME F2202190 LXA NAMXX,1 ALL ENTRIES F2202200 NEST81 TXL NEST84,0 IN CORE TABLE NAME F2202210 NEST82 CLA NAMZ,1 F2202210 STO E1 F2202220 CLA NAMZ+1,1 F2202230 STO E2 F2202240 CLA NAMKEY F2202250 SXD NEST81,1 F2202260 TSX LIST,4 F2202270 LXD NEST81,1 F2202280 TXI NEST84,1,-2 F2202290 NEST84 TXH NEST82,1 F2202300 LXD ADTXX,1 TRANSFER F2202310 SXD NEST88,1 TO DRUM TABLE NAME F2202320 LXA ADTXX,1 ALL ENTRIESP F2202340 NEST85 TXL NEST88,0 IN CORE TABLE ADTAG F2202340 NEST86 CLA ADTAGZ+1,1 EXCEPT F2202360 TMI NEST87 RESET F2202370 STO E2 ENTRIES F2202380 CLA ADTAGZ,1 F2202380 STO E1 F2202390 PDX 0,2 F2202400 CLA DOTAGZ,2 F2202410 STD E1 F2202420 SXD NEST85,1 F2202430 CLA NAMKEY F2202440 TSX LIST,4 F2202450 LXD NEST85,1 F2202460 NEST87 TXI NEST88,1,-2 F2202470 NEST88 TXH NEST86,1 F2202480 NST100 LXD DOTAG-1,1 F2202490 TRA NST120 F2202500 NST110 CLA DOTAGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG F2202510 ANA BBIT EQ 1. F2202530 TZE NST120 AND F2202530 CLA DOTAGZ-1,1 DOES BIT 18 WD 9 OF PRIOR DOTAG F2202550 ANA ABIT EQ 1. F2202550 TNZ NST120 F2202560 CLA ADDMSK YES. ERASE DEC WD 9 F2202570 ANS DOTAGZ+8,1 OF PRIOR DOTAG. F2202580 NST120 TXI NST130,1,9 F2202590 NST130 TXL NST110,1,441 F2202610 CLA DOREC WRITE F2202620 ADD L(1) DOTAG F2202630 STO DOREC ON F2202640 WRS TAPE2 TAPE TWO. F2202660 LXD L(450),1 COUNT NR. F2202670 NEST90 CPY DOTAGZ,1 OF NESTS. F2202680 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 245/249 ------ TXI NEST95,1,-1 IN DOREC. F2202700 NEST95 TXH NEST90,1 (DEC HAS DOTAG IX) F2202710 TRA NEST RETURN FOR NEXT NEST, F2202720 DOFOR LXD XC,1 OBTAIN F2202730 TXI DOF10,1,9 NEXT BACK DO, F2202740 DOF10 TXH NESTEN,1,450 IF ANY. F2202750 TSX DOINFO,4 USE DOINFO F2202760 TRA TAG00 AND GO TO TAG00 ROUT1NE. F2202770 DOFEND LXD XC,1 IS A COUNTER F2202780 CLA DOTAGZ+8,1 F2202790 ANA BIT19 F2202800 TZE MAKESC F2202810 CAL DOTAGZ+5,1 NECESSARY BECAUSE OF F2202820 ANA 2BITS TRANSFERS OR COMPUTATION WITH F2202830 TNZ DOF15 SYMBOL. F2202840 CLA BIT20 TEST FOR F2202850 ANA DOTAGZ+6,1 DELTA TWO F2202860 TZE DOF20 INSERT F2202870 DOF15 CLA DOTAGZ+6,1 HAS A COUNTER BEEN F2202880 ANA BITTWO FOUND. F2202890 TNZ DOF40 IF NOT, F2202900 TRA MAKESC MAKE ONE. (RETURN IS TO DOF40) F2202910 DOF20 CLA DOTAGZ+5,1 IF NO COUNTER NECESSARY, F2202920 ANA SUBBIT HAS SYM OCCURRED WITH F2202930 TZE DOF30 RECON NOT AS TYPE ONE F2202940 CLA DOTAGZ+8,1 CARRY. IF SO, HAS A F2202950 PDX 0,2 TEST BEEN FOUND. F2202960 TXH DOF40,2,0 IF NOT, F2202970 TRA MAKESC MAKE A COUNTER (RETURN IS T0 DOF40)F2202980 DOF30 CLA DOTAGZ+8,1 IF SYM HAS NOT OCCURRED WITH F2202990 ARS 12 RELCON OR IN SUCH OCCURRENCES F2203000 PDX 0,2 WAS ALWAYS A TYPE ONE F2203010 TXL DOF40,2,11 CARRY, IS CURRECT TEST F2203020 CLA BBIT F2203030 ORS DOTAGZ+8,1 F2203040 DOF40 CLA DOF50 MADE. TAKE SIGN AND F2203030 ANS DOTAGZ+8,1 TEST TABLE INTEGER OUT F2203060 TRA DOFOR OF TEST WORD AND EXIT. F2203070 DOF50 OCT 7777777777 F2203080 MAKESC CLA L(4) INITIALIZE F2203090 STO DOSUBS DOSUBS AND OTHER LOCATIONS F2203100 CLA L(0) USED IN 1NS00. F2203110 STO RCSUBS F2203120 STO DORC F2203130 STO C1 F2203140 STO CARWRD F2203150 CLA NEWTAG GET A NAME F2203160 STO TS FOR THIS F2203170 ADD L(1)A SUBSCRIPT AND F2203180 STO NEWTAG UP DATE NEWTAG. F2203190 TSX 1NS00,4 USE 1NS00 FOR TEST INF0,LIST. F2203200 CLA L(6) SET UP TAG TAG F2203210 ORA L(4)A ENTRY F2203220 ORA CARWRD F2203230 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 246/250 ------ SLW E4 F2203240 CLA TS F2203250 STO E3 F2203270 CLA L(0) F2203280 STO E2 F2203290 CLA XC F2203300 ARS 18 F2203310 ORA ALPHA F2203320 STO E1 F2203340 TSX TAGENT,4 ENTER INTO TAGTAG. F2203350 LXD XC,1 F2203360 CLA ABIT F2203370 ORS DOTAGZ+8,1 F2203380 TRA DOF40 RETURN F2203390 DOINFO CLA DOTAGZ,1 FOR THE DO FORMULA WHOSE F2203400 PAX 0,2 INDEX IS IN XRA, F2203410 ANA DECMSK ESTABLISH F2203420 STO ALPHA ALPHA,BETA,XC,XL F2203430 PXD 0,2 F2203440 STO BETA F2203450 PXD 0,1 F2203460 STO XC F2203470 CLA DOTAGZ+5,1 F2203480 ANA DECMSK F2203490 STO LC F2203500 TRA 1,4 F2203510 TAG00 LXD L(1500,1 THIS ROUTINE F2203520 TRA TAG20 SELECTS EVERY TAG F2203530 TAG05 CLA FORTZ,1 IN THE RANGE OF THE F2203540 ANA DECMSK CURRENT DO WHICH F2203550 CAS ALPHA CONTAINS THE SUBSCRIPT F2203560 TRA TAG30 SYMBOL OF THE CURRENT F2203570 TSX DIAG,4 DO, AND WHICH HAS NOT (ERROR. GO TO DIAGNOSTIC.)F2203585 TAG10 TXI TAG20,1,-1 PREVIOUSLY BEEN F2203590 TAG20 TXH TAG05,1 PROCESSED, AND (DEC HAS FORTAG IX) F2203600 TRA DOFEND COMPLETELY PROCESSES F2203610 TAG25 LXD TAG40,1 THE TAG. THE RETURN F2203620 TRA TAG10 IS TO DOFEND F2203630 TAG30 CAS BETA COMPARE WITH BETA. F2203640 TAG40 TXL DOFEND,0 RANGE FINISHED. (DEC HAS CURR FORTAG IX) F2203650 NOP IF ENTRY IS NEGATIVE, F2203660 CLA FORTZ,1 THEN IT HAS ALREADY F2203670 TMI TAG10 BEEN PROCESSED. F2203680 ANA ADDMSK STORE F2203690 STO TAG IN TAG, F2203710 SXD TAG40,1 AND SAVE INDEX. F2203720 TSX SUBCOM,4 OBTAIN SUB. COM. F2203730 NOP F2203745 TSX IDENT,4 USE IDENT. F2203750 TRA TAG25 SC. NOT WANTED. F2203760 TSX NAME,4 SC. TO BE PROCESSED. USE NAME. F2203770 TSX BRANCH,4 F2203780 TSX SCEND,4 F2203800 TSX TAGENT,4 F2203810 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 247/251 ------ TAG50 LXD L(5),2 F2203820 TAG52 CLA X1+5,2 ENTER BIT 18 WD 9 F2203830 TZE TAG58 OF MATCHING DOTAG F2203840 PDX 0,1 IF 1ST SUBSCR OR F2203850 TXH TAG56,2,4 IF THERE IS NO F2203860 CLA CR1 TYPE 1 CARRY INTO F2203870 TXH TAG54,2,2 THE 2ND AND 3RD F2203880 ARS 2 SUBSCRS RESPECTIVELY, F2203890 TAG54 ANA CARWRD F2203910 TNZ TAG58 F2203910 TAG56 CLA ABIT ENTER BIT 18 WD 9. F2203920 ORS DOTAGZ+8,1 F2203940 TAG58 TIX TAG52,2,2 F2203950 LXD L(5),4 TAG 60 SEQUENCE CONCERNS F2203960 TAG60 CLA X1+5,4 TESTS AND ADDED TAGS. F2203970 TZE TAG68 FOR EACH INDEXED SUBSCRIPT, F2203980 PDX 0,1 DETERMINE F IRST WHETHER F2203990 CLA RCSUBS OR NOT IT F2204000 ORA DORC OCCURS WITH F2204010 TZE TAG66 A RELCON F2204020 TXL TAG64,4,1 IF SO, PUT IN F2204030 CLA CR1 SUBBIT MEANING A TEST F2204040 TXH TAG62,4,3 IS NEEDED UNLESS F2204050 ARS 2 THE 1ST AND 2ND. F2204070 TAG62 ANA CARWRD SUBSCR PROMOTE A F2204070 TNZ TAG68 TYPE ONE CARRY (LEFT F2204080 TAG64 CLA SUBBIT OR CENTER RESPECTIVELY) F2204090 ORS DOTAGZ+5,1 IS F2204100 TAG65 TXL TAG68,0 NEEDED. F2204110 TAG66 CLA BIT19 F2204120 ORS DOTAGZ+8,1 F2204130 CLA DOTAGZ+5,1 IF THE SUBSCRIPT DOES NOT OCCUR F2204140 ANA 2BITS WITH A RELCON, DETERMINE WHETHER OR F2204160 TNZ TAG68 NOT A COUNTER hAS ALREAD Y BEEN REQUESTED. F2204170 SXD TAG65,4 IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED. F2204180 TSX TEST,2 IF NOT, USE ROUTINE TEST. F2204190 LXD TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT. F2204200 TAG68 TIX TAG60,4,2 F2204220 TAG70 LXD TAG40,1 SET ALL OCCURRANCES F2204230 TAG72 CLA FORTZ,1 OF THIS TAG, IN FORTAG, F2204240 ANA DECMSK IN THE RANGE OF THIS F2204240 CAS BETA DO, NEGATIVE. F2204250 TAG75 TXL TAG25,0 F2204260 NOP F2204270 CLA FORTZ,1 F2204280 ANA ADDMSK F2204290 SUB TAG F2204300 TNZ TAG80 F2204310 CAL L(MZ) F2204320 ORS FORTZ,1 F2204330 TAG80 TXI TAG90,1,-1 F2204340 TAG90 TXH TAG72,1 . (DEC HAS FORTAG IX) F2204380 TRA TAG25 RETURN FOR NEXT TAG. F2204370 REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE F2204380 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 248/252 ------ REM CORRESPONDING SUBSCRIPT COMPINATION FROM THE TAU F2204390 REM DRUM AND P0SITIONS IT IN PROPER FORMAT IN STORAGE. F2204400 SUBCOM SXD SUB085,4 SAVE LINKAGE INDEX. F2204410 LXD SUBORG,1 INITIALIZE ERROR COUNTER F2204420 SUB010 RDS TAUDRM SELECT TAU DRUM. F2204430 LXD SUBORG+2,4 INITIALIZE F2204440 PXD 0,0 SUBSCRIPT COMBINATION F2204450 SUB020 STO C1+8,4 SPACE F2204460 TIX SUB020,4,1 TO ZERO. F2204470 CLA TAG COMPUTE F2204480 LRS 9 DRUM F2204490 PAX 0,6 ADDRESS. F2204500 PXD 0,0 TAU ONE ADD. IS ORG+3TAU. F2204510 LLS 9 TAU TWO ADD. IS ORG+5TAU. F2204520 STO SUBES1 TAU THREE ADD. IS ORG+7TAU F2204530 ALS 1 STORE F2204540 STO SUBES2 ADDRESS F2204550 CLA SUBORG+3,4 IN SUBES1 F2204560 ADD SUBES1 FOR LDA F2204570 SUB030 ADD SUBES2 INSTRUCTION. F2204580 TIX SUB030,4,1 F2204590 STA SUBES1 F2204600 LDA SUBES1 COPY SUB. COMB. F2204610 CPY C1 TAU ONE, TWO, THREE F2204620 TXL SUB040,2,2 F2204630 CPY C3 TAU 3 F2204640 SUB040 CPY S1 TAU 1,2,3 F2204650 TXL SUB060,2,1 F2204660 CPY S2 TAU 2,3 F2204670 TXL SUB050,2,2 F2204680 CPY S3 TAU 3 F2204690 SUB050 CPY D1 TAU 2,3 F2204700 SUB060 CPY SUBES1 TAU 1,2,3 F2204710 LXD SUBORG,4 COMPUTE CHECK SUM F2204720 CAL C1 AND COMPARE WITH F2204730 SUB070 ACL C1+7,4 ENTRY CHECK SUM. F2204740 TIX SUB070,4,1 THREE ATTEMPTS ARE MADE F2204750 SLW SUBES2 T0 READ SC CORRECTLY. F2204760 CLA SUBES2 IF ERROR STILL PRESENT, F2204770 SUB SUBES1 COMPLETE ROUTINE, MAKE.ERROR RET. F2204780 TZE SUB075 CHECK SUMS AGREE, TRA. F2204790 TIX SUB010,1,1 CHECK SUMS DISAGREE F2204805 PAT03 TSX DIAG,4 IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC. F2204815 SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1,D2, F2204820 SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2204830 PAX 0,2 STORAGE FORMAT. F2204840 ANA DECMSK F2204850 STO C1+7,4 F2204860 PXD 0,2 F2204870 TNX SUB090,4,6 F2204880 STO C2 F2204890 SUB085 TXL SUB080,0 F2204900 SUB090 STO D2 F2204910 LXD SUB085,4 RESTORE LTNKAGE INDEX, F2204920 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 249/253 ------ NOP F2204935 TRA 2,4 A NORMAL RETURN. F2204940 SUB100 NOP F2204955 SUBORG OCT 6001356 DEC. IS 6, ADD. IS ORG. TAU 3 F2204960 OCT 7000454 DEC. IS 7, ADD. IS ORG. TAU 2 F2204970 OCT 10000000 DEC. IS 8, ADD. IS ORG. TAU 1 F2204980 SUBES1 HTR E.S. F2204990 SUBES2 HTR E.S. F2205000 REM SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY F2205010 SCEND CLA GR0UP ALL OF SCEND IS CONCERNED F2205020 STO TAG1 WITH GENERATING THE F2205030 CLA DOSUBS TAGTAG ENTRY FROM ITS F2205040 ORA DUPES F2205050 ARS 18 VARIOUS COMPONENTS. F2205060 ORS TAG1 F2205070 CLA RCSUBS F2205079 ORA DORC F2205080 ARS 15 F22D5100 ORS TAG1 F2205110 CLA DUPES F2205120 ARS 9 F2205130 ORS TAG1 F2205140 CAL CARWRD F2205150 ORS TAG1 F2205160 LXD L(5),1 F2205170 SCE010 CLA L(1) F2205180 CAS C1+5,1 GENERATES THE THREE BIT F2205190 TRA SCE020 TAG SHOWING WHICH F2205200 TRA SCE020 COEFFICIENTS ARE GREATER F2205210 PXD 0,1 THAN ONE. F2205220 TXL SCE015,1,1 F2205230 SUB L(1) F2205240 SCE015 ARS 6 F2205250 ORS TAG1 F2205260 SCE020 TIX SCE010,1,2 F2205270 CLA TAG1 TAG1 IS NOW COMPLETE. F2205280 STO E4 CONSTRUCT THE TAGTAG F2205290 CLA TAG ENTRY F2205300 ALS 18 F2205310 ADD TS F2205320 STO E3 F2205330 CLA X3 F2205340 ARS 18 F2205350 ADD X2 F2205360 STO E2 F2205370 CLA X1 F2205380 ARS 18 F2205390 ADD ALPHA F2205400 STO E1 F2205410 TRA 1,4 F2205420 TEST CLA DOTAGZ+8,1 IF A SUFFICIENTLY GOOD F2205430 TMI 1,2 TEST PREVIOUSLY FOUND, EXIT. F2205440 TIX TEST10,4,1 XRC CONTAINS 5,3,1, F2205450 TEST10 PXD 0,4 DEPENDING ON P0SITION NR F2205460 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 250/254 ------ ALS 3 1,2,3. CONSTRUCT A F2205470 ORA GR0UP TABLE SEARCH MASK IN F2205480 TXL TEST20,4,1 WHICH THE FORTH OCTAL F2205490 STO TEST85 DIGIT IS THE CARRY BIT F2205500 CLA CARWRD INF0. FOR THE POSITION F2205510 ALS 5,4 BEING CONSIDERED THE F2205520 ANA TEST90 FIFTH OCTAL DIGIT IS THE F2205530 ORA TEST85 POSITION BIT, AND THE F2205540 TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2205550 TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2205560 TXI TEST40,4,-1 SEARCH TESTAB FOR F2205570 TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2205580 TXI TEST40,4,-1 C(XRC) AFTER SEARCH, IF F2205590 TEST40 TXH TEST30,4,0 ENTRY NOT FOUND C(XRC)=0. F2205600 TEST50 SXD TEST60,4 COMPARE THIS INTEGER F2205610 CLA DOTAGZ+8,1 WITH PREVIOUS.INTEGER, F2205620 PDX 0,4 IF ANY, IF NEW NR. IS LESS F2205630 TXL TEST75,4,0 THAN OLD, USE NEW TAG F2205640 ARS 12 FOR TEST. OTHERWISE F2205650 PDX 0,4 USE OLD TAG. F2205660 TEST60 TXL TEST80,4 (DEC HAS TEST TAB NR. FOR THIS S C.) F2205670 TEST70 CLA TEST95 IF THE NEW TAG IS F2205680 ANS DOTAGZ+8,1 USED, AND C(XRC) F2115690 TEST75 LXD TEST60,4 AFTER SEARCH WAS ZERO, F2205700 PXD 0,4 SET DOTAGZ+8 WORD F2205710 ARS 6 NEGATIVE. F2205720 ORA TS F2205730 ALS 18 F2205740 ORS DOTAGZ+8,1 F2205750 TXH TEST80,4,0 F2205760 CAL L(MZ) F2205770 ORS DOTAGZ+8,1 F2205780 TEST80 TRA 1,2 F2205790 TEST85 HTR STORAGE FOR COMPOSED TST WORD. F2205800 TEST90 OCT 300000000 BITS 10, 11 )-. - -. F2205810 TEST95 OCT 777777 F2205820 TESTAB OCT 241000000 FIRST SIGNIF DIGIT CONTAINS F2205830 OCT 221000000 A TWO IF TYPE ONE CARRY , F2205840 OCT 244000000 ONE IF TYPE TWO FROM LEFT OR F2205850 OCT 222000000 CENTER. (4TH OCT DIG). NEXT F2205860 OCT 141000000 HAS 4 IF POSIT OF SUBSC IS F2205870 OCT 121000000 LEFT, 2 IF CENTER, 0 IF RIGHT F2205880 OCT 144000000 (5TH OCT DIGIT). FINAL DIG HAS F2205890 OCT 122000000 GR0UP NR. (6TH OCT DIG). F2205900 OCT 45000000 F2205910 OCT 41000000 F2205920 OCT 21000000 F2205930 OCT 44000000 F2205940 OCT 22000000 F2205950 OCT 43000000 F2205960 OCT 23000000 F2205970 CARRY SXD CAR05,4 SAVE LINKAGE F2205980 CLA X1+4,2 PUT LEFT INDEX F2205990 PDX 0,1 IN XRA F2206000 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 251/255 ------ CLA X1+6,2 PUT RIGHT INDEX F2206010 PDX 0,4 IN XRC F2206020 CLA DOTAGZ+5,1 TEST LEFS SUB. DO F2206030 ANA CARMSK CARRY BITS. F2206040 TZE CAR30 EXIT IF NO CARRY. F2206050 CLA DOTAGZ+6,1 COMPARE F2206060 ANA DECMSK NO CARRY TRA LEVEL F2206070 CAS LL AND LOW LEVEL. F2206080 TRA CAR30 EXIT F2206090 CAR05 TXL CAR30,0 F2206100 CLA DOTAGZ+5,1 COMPUTE FOR LEFT F2206110 ANA ADDMSK SUBSCRIPT THE QUANTITY F2206120 STO CAR40 C*X (COEF. TIMES ADDED F2206130 LDQ CAR40 VALUE). F2206140 MPY C1+4,2 COMPUTE FOR RIGHT F2206150 STQ CAR40 SUBSCRIPT THE QUANTITY F2206160 LDQ D1 C*N3*D(L) (O0EF.TIMES F2206170 TXH CAR10,2,2 INCREMENT TIMES DIM. OF F2206180 LDQ D2 LEFT SUBSCR1PT. F2206190 CAR10 MPY DOTAGZ+4,4 IF THESE QUANTIT1ES F2206200 MPY C1+6,2 ARE UNEQUAL, F2206210 ALS 17 EXIT F2206220 SUB CAR40 F2206230 TNZ CAR30 OBTAIN LEFT F2206240 CLA DOTAGZ+5,1 SUB. DOTAG F2206250 ANA CARMSK CARRY BITS AGAIN. F2206260 ARS 15 TEST FOR F2206270 LBT CARRY TYPE 0NE F2206280 TRA CAR15 OR CARRY TYPE F2206290 CLA CR1 TWO. F2206300 TRA CAR20 OBTAIN PROPER F2206310 CAR15 CLA CR2 TAGTAG CARRY BIT, F2206320 CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2206330 ARS 2 CENTER SUB. AND F2206340 CAR25 ORS CARWRD PLACE IN CARWRD. F2206350 CAR30 LXD CAR05,4 EXIT F2206I60 TRA 1,4 F2206370 CAR40 HTR E.S. F2206380 LIST SXD LIST40,4 SAVE LINKAGE F2206400 PDX 0,1 PUT INDEX QUANTITY IN XRA F2206410 PAX 0,6 PUT NR. OF WDS IN XRB,XRC. F2206420 ADD LIST50 COMPUTE NR, OF WRDS F2206430 STA LIST30 PLUS ORIGIN EI AND F2206440 STA LIST20 INITIALIZE ADDRESSES. F22064S0 CLA LADDIN+5,1 TEST F2206460 ARS 18 FOR F2206470 SUB LADDS+5,1 FULL F2206480 TNZ LIST10 TABLE. F2206490 TSX BURNCE,4 DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG. F2206505 LIST10 PXD 0,0 ZERO IN ACC. F2206510 LIST20 ACL 0,2 COMPUTE F2206520 TIX LIST20,2,1 ENTRY F2206530 WRS ADRUM SELECT DRUMF F2206535 SLW LIST60 CHECK SUM. F2206540 rem ------ scanned 10/8/06 304349-Volume_I.pdf Page 252/256 ------ LDA LADDS+5,1 COPY F2206550 LIST30 CPY 0,4 ENTRY F2206560 TIX LIST30,4,1 AND F2206570 CPY LIST60 CHECK SUM. F2206580