$JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 $* FORTRAN II PROCESSOR, 7090-FO-928 00000020 $* VERSION 3, MODIFICATION LEVEL 35 (35)00000030 $EXECUTE IBSFAP $00000050 * 32K 709/7090 FORTRAN SECTION TWO F2A00000 * FAP F2A00020 * 32K 709/7090 FORTRAN SECTION TWO F2A00030 COUNT 7400 F2A00040 LBL 9F18,M F2A00050 TTL BLOCK A. F2A00060 SST FORTRAN $F2A00070 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK A. F2A00080 HEAD 1 F2A00090 ABS $F2A00100 ORG SYSCUR $F2A00110 BCI 1,9F1800 $F2A00120 ORG (LODR) $F2A00121 TXI TAP00,,180 F2A00130 REM PERFORMS THE PRELIM DO NEST STRUCTURE ANALYSIS F2A00150 REM REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS F2A00160 REM LEVEL NUMBERS AND THE POSSIBILITY OF CARRY. F2A00170 REM TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED F2A00180 REM INTO TABLE TRALEV. IF THERE IS A VARIABLE F2A00190 REM PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION F2A00200 REM IS ASSIGNED. F2A00210 REM FINALLY, A SEARCH IS MADE TO DETERMINE F2A00220 REM WHETHER A DO INDEX COUNTER IS F2A00230 REM NECESSARY TO KEEP CURRENT THE VALUES F2A00240 REM OF THE DO INDEX. F2A00250 TOP SYN BOTIOP-1 UPPERMOST CORE FOR SEC. 2. F2A00260 M SYN 7 M/N IS RATIO OF TABLE SIZES. $F2A00270 N SYN 8 TO NORMAL 32 K TABLE SIZE $F2A00280 FTAPE1 SYN SYSTAP F2A00290 FTAPE2 SYN FINTAP F2A00300 FTAPE3 SYN SINTAP F2A00310 FTAPE4 SYN TINTAP F2A00320 ENDCOR SYN TOP+1 LAST POSIT IN CORE +1 F2A00330 TDOZ SYN ENDCOR DEFINITIONS OF TABLE F2A00340 TDO SYN TDOZ-600*M/N*5 POSITIONS IN MEMORY. F2A00350 TDOWC SYN TDO-1 WHEN Z FOLLOWS THE TABLE F2A00360 TIFZ SYN TDOWC NAME, THE LOCATION IS THE F2A00370 TIFGO SYN TIFZ-1200*M/N*2 LAST LOC +1 IN THE TABLE. F2A00380 TIFGWC SYN TIFGO-1 WHEN WC FOLLOWS THE TABLE F2A00390 TRADZ SYN TIFGWC NAME, THE LOCATION IS THAT F2A00400 TRAD SYN TRADZ-1000*M/N OF THE TABLE WORD COUNT. F2A00410 TRADWC SYN TRAD-1 F2A00420 FIXCN SYN TRADWC-400*M/N-2 F2A00430 FIXWC SYN FIXCN-1 F2A00440 TAU3 SYN FIXWC-300*M/N*6 F2A00450 TAU2 SYN TAU3-360*M/N*4 F2A00460 TAU1 SYN TAU2-400*M/N*2 F2A00470 DRMTGZ SYN TAU1-2 F2A00480 DMTGTB SYN DRMTGZ-400*M/N*4 F2A00490 DMTGWC SYN DMTGTB-1 F2A00500 4VALZ SYN DMTGWC F2A00510 FORVAL SYN 4VALZ-2000*M/N*2 F2A00520 4VALWC SYN FORVAL-1 F2A00530 DOTGZ SYN 4VALWC F2A00540 DOTAG SYN DOTGZ-600*M/N*9 F2A00550 DOTGWC SYN DOTAG-1 F2A00560 4VARZ SYN DOTGWC F2A00570 FORVAR SYN 4VARZ-3000*M/N*2 F2A00580 FRVRWC SYN FORVAR-1 F2A00590 FORTZ SYN DOTGZ-200*M/N*9-1 F2A00600 FORTAG SYN FORTZ-3000*M/N*2 F2A00610 FRTGWC SYN FORTAG-1 F2A00620 TLTZ SYN ENDCOR TRALEV BUFFER USED AFTER TDO F2A00630 TRALEV SYN TLTZ-2400*M/N IS EXPANDED AND MOVED F2A00640 TRLVWC SYN TRALEV-1 TO DOTAG. F2A00650 RTTBNR SYN FRVRWC-2 F2A00660 RT90 SYN RTTBNR-1 F2A00670 HEAD 0 F2A00680 M SYN 1$M F2A00690 N SYN 1$N F2A00700 REM BLOCK ONE COMMON AREA. CELLS TO BE SHARED WITH LATER BLOCKS. F2A00710 ORG BOTTOM+10 TEN INFO CELLS BELOW ORG FOR SEC. 3.F2A00720 ERRORM TXI (DIAG),,0 MACHINE ERROR HAS OCCURRED. F2A00730 ERROR1 TXI (DIAG),,-1244 4.NESTS WRONG OR F2A00740 PZE 1$LIST A HIGHER THAN B. F2A00750 ERROR2 TXI (DIAG),,-306 5.N3 OF DO EQUALS ZERO. F2A00760 PZE 1$DOTGZ F2A00770 ERROR3 TXI (DIAG),,-468 6.TRA TO DO OF LEVEL OVER 20. F2A00780 ERROR4 TXI (DIAG),,-485 7.TRANSFER INTO A DO FROM F2A00790 PZE 1$TIFZ OUTSIDE ITS RANGE. F2A00800 ERROR5 TXI (DIAG),,-719 8.N1,2,OR 3 REDEFINED INSIDE DO. F2A00810 ERROR6 TXI (DIAG),,-404 9.MORE THAN 200 DOS IN A NEST. F2A00820 ERROR7 TXI (DIAG),,-858 10.TABLE HAS OVERFLOWED. F2A00830 ERROR8 TXI (DIAG),,-1005 11.INTERMEDIATE TABLE IS FULL. F2A00840 PZE 2$DOTAG F2A00850 ERROR9 TXI (DIAG),,-542 12.CORE TABLE IS FULL. F2A00860 ERRO10 TXI (DIAG),,-13438 13.FIXCON HAS OVERFLOWED. F2A00870 ERRO11 TXI (DIAG),,-13391 14.TAGTAG HAS OVERFLOWED. F2A00880 ERRO12 TXI (DIAG),,-13496 15.TOO MANY DOS ENDING AT THE F2A00890 PZE 5$VCTR SAME STATEMENT. F2A00900 ERRO13 TXI (DIAG),,-7 DOFILE HAS OVERFLOWED. F2A00910 PZE 5$DOTAG F2A00920 ERRO14 TXI (DIAG),,-8 TRALEV TOO LARGE. F2A00930 REWIND PZE ,,-1 F2A00940 MAXFTG PZE ,,3000*M/N*2 MAX SIZE FORTAG. F2A00950 MAXFVL PZE ,,2000*M/N*2 MAX SIZE FORVAL. F2A00960 MAXDTG PZE ,,600*M/N*9 MAX SIZE DOTAG. F2A00970 DORCCT PZE COMMON CELL TO CARRY F2A00980 REM COUNT OF DOTAG B RECORDS. F2A00990 ADDMSK OCT 77777 F2A01000 DECMSK OCT 77777000000 F2A01010 BITONE OCT 200000000000 F2A01020 BITTWO OCT 100000000000 F2A01030 HEAD 1 F2A01040 REM PROGRAM CONSTANTS F2A01050 ORG BITTWO+1 F2A01060 L(0) 0,0,0 F2A01070 L(1) 0,0,1 F2A01080 L(3) 0,0,3 F2A01090 MAXTIF PZE ,,1200*M/N*2 MAX SIZE TIFGO. F2A01100 MAXFVR PZE ,,3000*M/N*2 MAX SIZE FORVAR. F2A01110 MAXTDO PZE ,,600*M/N*5 MAX SIZE TDO. F2A01120 L(MZ) MZE F2A01130 DECADD OCT 77777077777 F2A01140 TAGMSK OCT 700000 F2A01150 NCMSK OCT -377777477777 F2A01160 CR1 OCT 100000 F2A01170 CR2 OCT 200000 F2A01180 TBCHK PZE F2A01190 PZE F2A01200 REM BEGIN BLO CK ONE. F2A01210 TAP00 SLF ALL LIGHTS OFF. F2A01220 SLN 2 TRALEV LIGHT ON. F2A01230 DCT F2A01240 NOP F2A01250 CLA MAXTIF COMPUTE NEXT F2A01260 SUB TIFGWC UNUSED INDEX FOR F2A01270 STD TIFGWC TIFGO, AND STORE. F2A01280 CLA MAXTDO COMPUTE NEXT UNUSED F2A01290 SUB TDOWC INDEX FOR TDO, F2A01300 STD TDOWC AND STORE. F2A01310 LXD TDOWC,1 LOAD XR AND F2A01320 TXL TAP15,1,600*M/N*5-1 TEST FOR EMPTY TDO. F2A01330 SLN 3 TDO IS EMPTY, SET F2A01340 CLA MAXDTG SDNSE LIGHT, STORE F2A01350 STD DOTAG-1 UNUSED INDEX F2A01360 TRA TS4VAL VALUE, AND TRANSTER. F2A01370 TAP15 SXD TAP35,1 THIS ROUTINE F2A01380 LXD MAXTDO,1 MOVES FIVE-WORD F2A01390 LXD MAXDTG,2 TDO ENTRIES F2A01400 TAP20 AXT 5,4 TO DOTAG F2A01410 TAP21 CLA TDOZ,1 AND EXPANDS TO F2A01420 STO DOTGZ,2 A NINE-WORD PER F2A01430 TXI *+1,1,-1 ENTRY TABLE. F2A01440 TXI *+1,2,-1 F2A01450 TIX TAP21,4,1 F2A01460 AXT 4,4 F2A01470 TAP30 STZ DOTGZ,2 ZERO OUT FOUR F2A01480 TXI *+1,2,-1 WORDS AFTER F2A01490 TIX TAP30,4,1 EACH TDO. F2A01500 TAP35 TXH TAP20,1,** DEC. CONTAINS LAST TDO+1 F2A01510 SXD DOTAG-1,2 SAVE UNUSED INDEX. F2A01520 TRA MR00 F2A01530 REM MROO COMPUTES LEVEL, X, CARRY BITS. F2A01540 MR00 LXD DOTAG-1,1 INITIALIZE TEST F2A01550 SXD MR70,1 INSTRUCTION. F2A01560 LXD MAXDTG,1 INITIALIZE XRA TO MAX DOTAG. F2A01570 MR05 CLA L(1) INITIALIZE LEVEL TO ONE F2A01580 MR10 PDX 0,2 PUT LEVEL IN XRB F2A01590 STO DOTGZ+5,1 STORE LEVEL IN L WORD F2A01600 CLA DOTGZ,1 INSPECT TAG OF FIRST WORD. F2A01610 SXD MR14,4 F2A01620 PAX 0,4 F2A01630 STD MR12 F2A01640 MR12 TXH MR15,4,0 F2A01650 TRA ERBETA F2A01660 MR14 PZE F2A01670 MR15 LXD MR14,4 F2A01680 ANA TAGMSK IF ZERO( TRA TO MR20) F2A01690 TZE MR20 IF NOT ZERO( PUT BIT F2A01700 CLA BITTWO IN L WORD FOR X NOT F2A01710 ORS DOTGZ+5,1 COMPUTABLE AND GO TO F2A01720 TRA MR60 END. F2A01730 MR20 CLA DOTGZ+3,1 COMPUTE X AND XTORE IN F2A01740 SUB DOTGZ+2,1 L WORD F2A01750 ADD DOTGZ+4,1 F2A01760 LRS 35 F2A01770 DVP DOTGZ+4,1 F2A01780 DCT F2A01790 TSX ERROR2,4 SOURCE PROGRAM ERROR. F2A01800 MPY DOTGZ+4,1 F2A01810 LLS 35 F2A01820 STA DOTGZ+5,1 F2A01830 TXL MR60,2,1 IF L IS ONE( SKIP CARRY TEST) F2A01840 CLA DOTGZ,4 OBTAIN NEXT BACK SUBNEST F2A01850 ARS 15 DO( FIRST WORD. IN SPECT TAG F2A01860 LBT FOR VARIABLE N3) IF NOT F2A01870 TRA MR30 0) VARIABLE( CONTINUE WITH MR30, F2A01880 TRA MR60 1) OTHERWISE GO TO END. F2A01890 MR30 CLA DOTGZ,4 OBTANN FIRST WORD OF NEXT F2A01900 ANA DECADD BACK SUBNEST DO, REMOVE F2A01910 ADD L(1) TAG, AND ADD ONE TO ALPHA. F2A01920 SUB DOTGZ,1 SUB 1ST WD OF CURRENT DO F2A01930 TNZ MR40 (TAG IS ZERO). IF RESULT IS F2A01940 CLA CR1 ZERO, CARRY IS TYPE ONE, F2A01950 TRA MR50 IF NOT ZERO, CARRY IS TYPE F2A01960 MR40 CLA CR2 TWO. INDICATE TYPE IN F2A01970 MR50 ORS DOTGZ+5,1 L WORD OF CURRENT DO. F2A01980 MR60 PXD 0,1 MAKE CURRENT DO NEXT BACK F2A01990 PDX 0,4 SUBNEST DO. F2A02000 TXI MR70,1,-9 TAKE NEXT DO IN DOTAG. F2A02010 MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2A02020 CLA DOTGZ,1 OBTAIN 1ST WD OF NEW DO. F2A02030 ANA ADDMSK OBTAIN BETA F2A02040 STO MRES AND SAVE F2A02050 MR75 CLA DOTGZ,4 OBTAIN BETA OF XRC DO, F2A02060 ANA ADDMSK AND SUBTRCT NEW BETA. F2A02070 STO MRES1 F2A02080 SUB MRES IF NOT NEGATIVE, XRC DO F2A02090 TMI MR80 CONTAINS NEW DO. OTHERWISE, TRA. F2A02100 CLA DOTGZ+5,4 XRC CONTAINS NEW DO. F2A02110 ANA DECMSK OBTAIN LEVEL OF XRC DO, F2A02120 ADD L(1) ADD ONE, STORE IN L. F2A02130 TRA MR10 GO TO MRIO F2A02140 MR80 CLA DOTGZ,1 F2A02150 ANA DECMSK F2A02160 ARS 18 F2A02170 CAS MRES1 F2A02180 TRA MR85 ALPHA(XRA) GREATER THAN BETA(XRC) F2A02190 TRA ERLIST F2A02200 TRA ERLIST F2A02210 MR85 CLA DOTGZ+5,4 F2A02220 PDX 0,2 NEWDO. IF XRL DO IS OF F2A02230 TXL MR05,2,1 LEVEL ONE, START NEW NEST F2A02240 TXI MR75,4,9 BY TRA TO MR05. ELSE TRA MR75. F2A02250 MRES PZE F2A02260 MRES1 PZE F2A02270 REM FLOW, TRANSFER ANALYSIS. F2A02280 FLOW LXD TIFGO-1,4 TEST FOR EMPTY TIFGO F2A02290 TXH SV00,4,1200*M/N*2-1 TEST FOR EMPTY TIFGO. F2A02300 LXD DOTAG-1,1 INITIALIZE F2A02310 SXD FL030,1 TEST F2A02320 SXD FL060,4 INSTRUCTIONS F2A02330 SXD ADL60,1 F2A02340 SXD INC40,1 F2A02350 SXD RNC70,1 F2A02360 AXT 0,1 INITIALIZE TRALEV F2A02370 SXD TLT50,1 INDEX VALUE F2A02380 FLO10 LXD MAXTIF,4 INITIALIZE F2A02390 SXD TIFX,4 CURRENT TIFGO INDEX F2A02400 LXD MAXDTG,1 INITIALIZE XRA, DOTAG IX F2A02410 FL015 CLA DOTGZ+5,1 INITIALIZE XRA, DOTAG IX F2A02420 PDX 0,2 AND F2A02430 TXL FL040,2,1 TRA IF LEVEL ONE. IF NOT F2A02440 FL020 TXI FL030,1,-9 LEVEL ONE, FIND NEXT F2A02450 FL030 TXH FL015,1,0 LEVEL ONE, IF ANY. F2A02460 TRA FLOEND F2A02470 FL040 SXD BNX,1 SAVE BEGINNING OF NEST INDEX. F2A02480 CLA DOTGZ,1 INITIALIZE F2A02490 PAX 0,2 BEGINNING OF NEST F2A02500 ANA DECMSK AND F2A02510 STO BNA END OF NEST F2A02520 PXD 0,2 ADDRESSES F2A02530 LXD TIFX,4 OBTAIN CURRENT TIFGO INDEX F2A02540 STO ENA F2A02550 FL050 CLA TIFZ,4 AND SEARCH FOR TIFGO F2A02560 ANA DECMSK ENTRY IN NEST. F2A02570 CAS BNA COMPARE WITH BNA F2A02580 TRA FL070 GREATER THAN OR EQUAL TO F2A02590 TSX ERRORM,4 DECR OF TIFGO WORD (XR VALUE F2A02600 REM IN TIFX) SHOULD BE UNEQUAL TO F2A02610 REM BNA, WHICH CAME FROM THE IFN F2A02620 REM IN THE XR1 DOTAG WORD. TIFGO F2A02630 REM IS REC 6 FILE 5 TAPE2, AND THE F2A02640 REM DOTAG WORD IS PICKED UP FROM F2A02650 REM TDO (REC 8 FILE5 TAPE B2). F2A02660 FL055 TXI FL060,4,-2 LESS THAN BNA, GO BACK F2A02670 FL060 TXH FL050,4,0 FOR NEXT TIFGO ENTRY, F2A02680 TRA FLOEND IF ANY. IF NONE, EXIT F2A02690 FL065 LXD BNX,1 F2A02700 TRA FL020 F2A02710 FL070 SXD TIFX,4 SAVE CURRENT TIFGO INDEX F2A02720 CAS ENA COMPARE G AND ENA F2A02730 TRA FL065 G GREATER, GO BACK FOR NEXT NEST. F2A02740 NOP G EQUAL TO F2A02750 STO G OR LESS THAN G, SAVE G. F2A02760 CLA TIFZ,4 TEST FOR THREE ADDRESS IF. F2A02770 TMI FL075 USE ADDRESS TO DETERMINE F2A02780 PAX 0,2 WHETHER OR NOT THIS IS AN F2A02790 TXL FL075,2,5 ASSIGN FORMULA. IF IT IS, F2A02800 TXL FL055,2,6 IGNORE, TAKE NEXT TIFGO ENTRY F2A02810 TXL FL075,2,7 TEST FOR ADD. GREATER THAN F2A02820 TSX ERRORM,4 THE ADDRESS OF TIFGO WORD(XR VALUE F2A02830 REM IN TIFX) SHOULD BE 7 OR LESS. F2A02840 REM TIFGO IS FROM REC 6.FILE5 TAPE 2. F2A02850 FL075 CLA G OBTAIN G F2A02860 LXD BNX,1 OBTAIN CURRENT NEST INDEX F2A02870 TSX ADLOC,4 OBTAIN XDG AND LDG F2A02880 CLA BITONE PUT BIT IN DOTAG FOR TRA F2A02890 ORS DOTGZ+6,1 IN IMMEDIATE RANGE F2A02900 PXD 0,1 SAVE F2A02910 STO XDG XDG F2A02920 PXD 0,2 AND F2A02930 STO LDG LDG F2A02940 CLS G LIST MINUS G F2A02950 TSX TLT00,4 IN TRALEV BUFFER. F2A02960 LXD TIFX,4 OBTAIN FIRST WORD OF F2A02970 CLA TIFZ,4 TIFGO ENTRY F2A02980 TMI 3ADIF TRA IF 3ADIF F2A02990 PAX 0,2 PUT ADDRESS IN XRB F2A03000 FL080 TRA FL080+8,2 INDEXED TRA. F2A03010 TSX ERRORM,4 TIFGO ADDRESS IN XR2 IS SIX F2A03020 TRA DT050 (20)F2A03030 REM OR LESS. TIFGO WORD IS PICKED F2A03040 REM UP WITH XR VALUE IN TIFX. F2A03050 REM TIFGO IS REC 6 FILE 5 TAPE2. F2A03060 TRA 2ADIF 5, 2 ADDRESS TYPE F2A03070 TRA 2ADIF 4, 2 ADIF F2A03080 TRA 2ADIF 3, 2ADIF F2A03090 TRA GOTOVN 2 VECTOR TYPE TRA F2A03100 TRA GOTOVN 1 GO TO N (ASSIGN) F2A03110 TRA GOTOK 0 GO TO CONSTANT F2A03120 FL090 LXD TIFX,4 GO BACK FOR NEXT F2A03130 TXI FL060,4,-2 TIFGO ENTRY. F2A03140 FLOEND LXD TLT50,1 TEST IF ANY TRALEV ENTRIES F2A03150 TXL SV00,1,0 F2A03160 TSX TLT20,4 IF SO, GO TO WRITE ROUTINE F2A03170 TRA SV00 F2A03180 REM CONTROL ROUTINES F2A03190 3ADIF ANA ADDMSK THE FOLLOWING ROUTINES F2A03200 ALS 18 ARRANGE TO PROCESS ALL OF F2A03210 TSX FA000,4 THE ADDRESSES ASSOCIATED F2A03220 LXD TIFX,4 WITH THE TIFGO ENTRY, F2A03230 2ADIF CLA TIFZ+1,4 ONE AT A TIME. F2A03240 ANA DECMSK WHEN ALL ADDRESSES F2A03250 TSX FA000,4 ARE PROCESSED, F2A03260 LXD TIFX,4 CONTROL IS RETURED TO F2A03270 GOTOK CLA TIFZ+1,4 FL090 FOR NEXT F2A03280 ANA ADDMSK TIFGO ENTRY. F2A03290 ALS 18 F2A03300 TSX FA000,4 F2A03310 TRA FL090 F2A03320 GOTOVN CLA TIFZ+1,4 FOR GOTOV TRANSFERS, F2A03330 PAX 0,4 USE WORD TWO F2A03340 SXD GTV20,4 FOR INDEXING F2A03350 PDX 0,4 VALUES NECESSARY F2A03360 TRA GTV20 F2A03370 GTV10 CLA TRADZ,4 TO GET ADDRESSES F2A03380 ALS 18 FROM TABLE TRAD. F2A03390 SXD GTV30,4 FOR GOTON (ASSIGN) TYPE F2A03400 TSX FA000,4 TRANSFERS, ALL ADDRESSES F2A03410 LXD GTV30,4 MUST BE PROCESSED EVEN F2A03420 TXI GTV20,4,-1 THOUGH THEY ARE ON SAME F2A03430 GTV20 TXH GTV10,4,0 LEVEL BECAUSE OF F2A03440 GTV30 TXL FL090,,0 CARRY RESTRICTIONS. F2A03450 REM ANALYSIS OF ADDRESS F2A03460 FA000 SXD RS60,4 SAVE TSX SET F2A03470 TRA FA000A (20)F2A03480 LXD BNX,1 OBTAIN F2A03490 TSX ADLOC,4 INDEX OF DO CONTAINING F2A03500 PXD 0,1 ADDRESS AND LEVEL OF F2A03510 STO XDA THAT DO. F2A03520 PXD 0,2 SAVE IN F2A03530 STO LDA XDA AND LDA. F2A03540 TXL FA010,2,20 TEST LEVEL F2A03550 TSX ERROR3,4 LEVEL ADD. OF TRA EXCEEDS 20. F2A03560 FA010 SXA FA020,2 F2A03570 CAL L(MZ) LEVEL IN F2A03580 LXD XDG,1 XDG DO. F2A03590 FA020 ARS ** F2A03600 ORS DOTGZ+7,1 F2A03610 CLA LDA LIST F2A03620 ARS 18 ADDRESS AND LEVEL F2A03630 ADD A IN F2A03640 TSX TLT00,4 TLT. CONTINUE WITH RS00 F2A03650 REM TRANSFER BIT INSERTION IN DO FORMULA F2A03660 RS00 LXD XDG,1 XRA CONTAINS XDG F2A03670 LXD LDG,2 XRB CONTAINS LDG F2A03680 RS10 PXD 0,2 IF G AND A IN SAME DO, F2A03690 SUB LDA EXIT. THIS ROUTINE INSERTS F2A03700 TZE INC00 BIT MEANING THERE IS A JUMP F2A03710 TPL RS20 OUT OF THE RANGE OF THIS DO. F2A03720 LXD TIFX,1 F2A03730 TSX ERROR4,4 SOURCE PROGRAM ERROR. F2A03740 RS20 CAL L(MZ) F2A03750 ORS DOTGZ+5,1 F2A03760 TXL INC00,2,1 FIND NEXT BACK SUBNEST F2A03770 RS30 TXI RS40,1,9 DO FORMULA F2A03780 RS40 CLA DOTGZ+5,1 AND RETURN F2A03790 STD RS50 TO TEST F2A03800 RS50 TXL RS30,2,0 LEVEL F2A03810 PDX 0,2 AT F2A03820 RS60 TXL RS10,,0 RS10 F2A03830 REM INDEXING NO CARRY CONDITION F2A03840 INC00 CLA LDA EXIT IF F2A03850 TZE RNC00 LDA IS ZERO. F2A03860 CLA G PLACE G ANDA F2A03870 LDQ A IN F2A03880 TLQ INC20 INCX AND INCY SO THAT F2A03890 STO INCX INCX IS LESS THAN INCY. F2A03900 STQ INCY F2A03910 TRA INC30 F2A03920 INC20 STQ INCX F2A03930 STO INCY F2A03940 INC30 LXD XDA,1 INITIALIZE XRA F2A03950 INC35 TXI INC40,1,-9 FIND DO OF LEVEL LDA F2A03960 INC40 TXL RNC00,1,0 PLUS ONE. F2A03970 CLA DOTGZ+5,1 F2A03980 ANA DECMSK F2A03990 SUB LDA F2A04000 SUB L(1) F2A04010 TZE INC50 DO OF LEVEL LDA PLUS ONE FOUND. F2A04020 TPL INC35 LEVEL TO HIGH, GO BACK. F2A04030 TRA RNC00 LEVEL TO LOW, DA EXHAUSTED. F2A04040 INC50 CLA DOTGZ,1 OBTAIN BETA OF F2A04050 PAX 0,2 THIS DO IN DECREMENT. F2A04060 PXD 0,2 F2A04070 CAS INCY COMPARE WITY INCY. F2A04080 TRA RNC00 GREATER THAN OR EQUAL TO F2A04090 TRA RNC00 GREATEST OF G, A, EXIT. F2A04100 CAS INCX LESS THAN INCY, COMPARE F2A04110 TRA INC60 WITH INCX. GREATER THAN F2A04120 TRA INC60 OR EQUAL TO INCX, GO TO INC60. F2A04130 TRA INC35 LESS THAN INCX, GET NEXT DO. F2A04140 INC60 CAL NCMSK AND OUT CARRY BITS. F2A04150 ANS DOTGZ+5,1 F2A04160 TRA INC35 GO BACK FOR NEXT DO. F2A04170 INCX PZE ES. F2A04180 INCY PZE ES. F2A04190 REM RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL F2A04200 RNC00 CLA LDA EXIT IF LDA IS ZERO F2A04210 TZE RNC95 F2A04220 CLA LDG EXIT IF F2A04230 SUB LDA LDA EQUALS F2A04240 TZE RNC95 LDG F2A04250 PDX 0,4 INITIALIZE COUNTER XR6 F2A04260 LXD XDG,1 INITIALIZE XRA F2A04270 CLA LDG AND F2A04280 PDX 0,2 XRB. C(ACC) LDG. F2A04290 TXI RNC50,2,1 C(XRB) LDG PLUS ONE. F2A04300 RNC20 TXI RNC30,1,9 FIND NEXT BACK F2A04310 RNC30 TXH RNC95,1,600*M/N*9 SUBNEST DO. F2A04320 CLA DOTGZ+5,1 F2A04330 STD RNC40 F2A04340 RNC40 TXL RNC20,2,0 F2A04350 RNC50 SXD RNC75,1 SAVE XRA F2A04360 STD RNC85 SAVE LEVEL OF THIS DO F2A04370 PXD 0,2 SAVE LEVEL OF NEXT INNER F2A04380 STO RNC90 SUBNEST DO. F2A04390 RNC60 TXI RNC70,1,-9 TAKE NEXT DOWN DO IF ANY. F2A04400 RNC70 TXL RNC80,1,0 F2A04410 CLA DOTGZ,1 IF BETA F2A04420 ANA ADDMSK OF THIS DO F2A04430 ALS 18 IS LESS F2A04440 SUB G THAN G, F2A04450 TPL RNC80 TEST LEVEL F2A04460 CLA DOTGZ+5,1 TO SEE IF F2A04470 ANA DECMSK THIS DO IS OF SAME F2A04480 SUB RNC90 LEVEL AS NEXT INNERMOST F2A04490 TNZ RNC60 SUBNEST DO. IF NOT, GET NEXT DO. F2A04500 CLA DOTGZ+6,1 IF SO, MAKE NO CARRY F2A04510 ANA DECMSK TRANSFER LEVEL OF THIS F2A04520 SUB LDA DO EQUAL TO GREATER F2A04530 TPL RNC60 OF PREVIOUS VALUE F2A04540 CLA LDA AND CURRENT LDA. F2A04550 STD DOTGZ+6,1 F2A04560 RNC75 TXL RNC60,,0 GO BACK FOR NEXT TEST DO. F2A04570 RNC80 LXD RNC75,1 GO BACK FOR NEXT SUBNEST DO, F2A04580 LXD RNC85,2 IF COUNTER PERMITS. F2A04590 TIX RNC20,4,1 OTHERWISE, EXIT. F2A04600 RNC85 TXL RNC95,,0 F2A04610 RNC90 PZE ES F2A04620 RNC95 LXD RS60,4 GO BACK TO CONTROL ROUTINE F2A04630 TRA 1,4 FOR NEXT ADDRESS. F2A04640 REM INDEX AND LEVEL OF ADDRESS F2A04650 ADLOC SXD ADL20,4 SAVE TSX SET F2A04660 LXD L(0),4 INITIALIZE XRC, F2A04670 SXD ADL30,4 AND DEC OF ADL30, PUT ADDRESS F2A04680 STO ADL90 IN ADL90. XRA CONTAINS BNX F2A04690 ADL10 CLA DOTGZ,1 OBTAIN FIRST WORD. F2A04700 PAX 0,2 SAVE BETA F2A04710 ANA DECMSK GET ALPHA ALONE. F2A04720 CAS ADL90 COMPARE WITH ADDRESS. IF F2A04730 ADL20 TXL ADL70,,0 ALPHA NOT LESS THAN ADD, THEN F2A04740 ADL30 TXL ADL70,,0 ADD IN LAST CHOSEN DO. F2A04750 PXD 0,2 IF ALPHA LESS THAN ADD, F2A04760 CAS ADL90 COMPARE WITH BETA. F2A04770 NOP IF BETA IS NOT LESS THAN F2A04780 TRA ADL40 ADDRESS, THIS DO CONTAINS F2A04790 TXH ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST F2A04800 TRA ADL70 TO ADL 70. OTHERWISE, GO TO 50 F2A04810 ADL40 SXD ADL30,1 IF DO IN THIS NEST, SXD. F2A04820 ADL50 TXI ADL60,1,-9 IN ANY CASE, TAKE NEXT DOWN F2A04830 ADL60 TXL ADL70,1,0 DO, IF ANY. F2A04840 CLA DOTGZ+5,1 PUT LEVEL IN XRC. F2A04850 PDX 0,4 AND GO BACK FOR TEST F2A04860 TXH ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE. F2A04870 ADL70 LXD ADL30,3 OBTAIN XDA IN XRA, XRB. F2A04880 TXL ADL80,1,0 EXIT IF ZERO. F2A04890 CLA DOTGZ+5,1 IF NOT ZERO, GET LDA IN F2A04900 PDX 0,2 XRB, PUT F2A04910 ADL80 LXD ADL20,4 TSX SET IN XRC F2A04920 TRA 1,4 AND RETURN. F2A04930 ADL90 PZE F2A04940 REM TRALEV LISTING F2A04950 TLT00 LXD TRLCT,1 TEST IF TWO RECORDS OF F2A04960 TXL *+2,1,1 TRALEV ALREADY WRITTEN. F2A04970 TSX ERRO14,4 YES, SEC. 3 SPACE UNAVAILABLE. F2A04980 LDC TLT50,1 OBTAIN CURRENT TRALEV F2A04990 STO TRALEV,1 INDEX STORE ENTRY. F2A05000 LXD TLT50,1 UPDATE F2A05010 TXI *+1,1,1 WORD F2A05020 SXD TLT50,1 COUNT. IF TABLE FULL, F2A05030 TXH TLT20,1,2400*M/N-1 GO TO WRITING ROUTINE. F2A05040 TRA 1,4 OTHERWISE, RETURN. F2A05050 TLT20 SXA TLT30,4 SAVE XRC. F2A05060 * *** F2A05070 TLT200 TSX (TAPE),4 WRITE F2A05080 PZE TLT50,,(WBNC) THE TRALEV F2A05090 PZE TRLVL,,FTAPE4 BUFFER. F2A05100 MSE 98 TURN OFF TRALEV TAPE F2A05110 NOP EMPTY LITE. F2A05120 AXT 0,1 REINITIALIZE F2A05130 SXD TLT50,1 WORD COUNT OF TRALEV CONT WD. F2A05140 LXD TRLCT,4 UPDATE TRALEV F2A05150 TXI *+1,4,1 RECORD COUNT F2A05160 SXD TRLCT,4 AND SAVE. F2A05170 TLT30 AXT 0,4 RESTORE XRC. F2A05180 TRA 1,4 RETURN. F2A05190 TLT50 IOCT TRALEV,,** DSC COMMAND WD. $F2A05200 TRLVL BCI 1,TRALEV F2A05210 TRLCT PZE F2A05220 REM ES FORFLOW F2A05230 BNX PZE BEGINNING OF NEST INDEX. F2A05240 BNA PZE BEGINNING OF NEST ADDRESS. F2A05250 ENA PZE END OF NEST ADDRESS. F2A05260 G PZE GAMMA OF SOME TIFGO ENTRY. F2A05270 XDG PZE INDEX OF DO WITH G IN IMMED. F2A05280 LDG PZE RANGE. LEVEL OF XDG. F2A05290 A PZE AN ADD. TO WHICH G TRANSFERS. F2A05300 XDA PZE INDEX OF DO WITH A IN IMMED. F2A05310 LDA PZE RANGE. LEVEL OF XDA. F2A05320 TIFX PZE CURRENT TIFGO INDEX. F2A05330 REM DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS. F2A05340 SV00 LXD DOTAG-1,1 F2A05350 SXD SV80,1 F2A05360 SXD SV95,1 F2A05370 SXD TRA40,1 F2A05380 LXD MAXDTG,1 INITIALIZE XRA F2A05390 SXD SV44,1 SAVE CURRENT DO INDEX F2A05400 SV10 SXD SV98,1 SAVE NEST INDEX F2A05410 SV20 CLA DOTGZ,1 GET 1ST WD CURRENT F2A05420 ANA TAGMSK DO AND INSPECT TAG. F2A05430 TZE SV90 IF ZERO, GO TO INDEXING. F2A05440 LXD SV98,4 OTHERWISE, NEST INDEX IN XRC. F2A05450 SV30 CLA DOTGZ+1,4 GET SYM OF XRG, F2A05460 LXD L(3),2 INITIALIZE XRB COUNTER F2A05470 SV40 CAS DOTGZ+4,1 AND TEST FOR SYM=VAR. N. F2A05480 SV44 TXL SV50,,0 CURRENT DO INDEX STORAGE. F2A05490 SV48 TXL SF00,,0 INDEX STO. OF N IN CUR. DO. F2A05500 SV50 TXI SV60,1,1 TAKE NEXT N, COUNT F2A05510 SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2A05520 SV65 LXD SV44,1 SYM NOT VAR.N., PUT CURRENT F2A05530 SV70 TXI SV80,4,-9 DO INDEX IN XRA AND INDEX F2A05540 SV80 TXL SV90,4,0 XRC. IF TABLE ENDS, GO TO SV90. F2A05550 CLA DOTGZ+5,4 OTHERWISE, TEST FOR NEW NEST. F2A05560 PDX 0,2 IF NOT NEW NEST, GO BACK TO F2A05570 TXH SV30,2,1 TEST SYM. OTHERWISE. F2A05580 SV90 TXI SV95,1,-9 TAKE NEXT DOWN DO IF F2A05590 SV95 TXL TS4VAL,1,0 POSSIBLE. OTHERWISE, EXIT. F2A05600 SXD SV44,1 SAVE CURRENT DO INDEX. F2A05610 CLA DOTGZ+5,1 F2A05620 PDX 0,2 INSPECT LEVEL. F2A05630 TXH SV20,2,1 IF NOT NEW NEST, TRA SV20 F2A05640 SV98 TXL SV10,,0 IF NEW NEST, SV10 (NEST INDEX STO.) F2A05650 SF00 SXD SV48,1 SAVE INDEX OF N IN CURRENT DO. F2A05660 SXD SF10,2 SAVE N COUNTER. F2A05670 SXD SF15,4 F2A05680 PXD 0,4 SAVE INDEX OF SYMBOL DO F2A05690 STO SFES1 IN FULL WORD. F2A05700 LXD SV44,1 OBTAIN INDEX OF CURRENT DO F2A05710 PXD 0,1 IN ACC. AND COMPARE F2A05720 CAS SFES1 WITH INDEX OF SYMBOL DO. F2A05730 SF10 TXL SF20,,0 CURRENT INDEX GREATER. F2A05740 TRA SF79 EQUALITY F2A05750 PSE 97 SYMBOL INDEX GREATER, F2A05760 SF15 TXL SF30,,0 TURN ON LIGHT 97. F2A05770 SF20 LXD SV44,4 CUR. IND. GREATER, PUT IN XRC F2A05780 LXD SFES1,1 SYM. IND. IN XRA. F2A05790 MSE 97 LIGHT 97 OFF. F2A05800 NOP AT SF30, XRA CONTAIN LEAST F2A05810 SF30 PXD 0,4 OF CUR. IND, SYM. IND. XRC F2A05820 STO SFES1 CONTAINS GREATER. PUT IN ES. F2A05830 SF35 CLA DOTGZ+5,1 PUT LEVEL OF D(XRA) IN F2A05840 PDX 0,2 XRB. HALT IF F2A05850 TXH SF40,2,1 LEVEL F2A05860 TSX ERRORM,4 AN INNER DO HAS LEVEL OF 1. F2A05870 REM SIXTH WD OF DOTAG ENTRY (XR F2A05880 REM VALUE IN SFES1) HAS LEVEL IN F2A05890 REM DECR. THIS WORD IS FORMED IN CORE. F2A05900 SF40 TXI SF50,1,9 BACK UP IN XRA F2A05910 SF50 TXL SF60,1,600*M/N*9 ERROR IF TOP OF F2A05920 TSX ERRORM,4 DOTAG PASSED. IF LEVEL OF DO F2A05930 REM (XR VALUE IN SFES1) IS OVER 1, F2A05940 REM THERE MUST BE ANOTHER DO F2A05950 REM BEFORE THE END OF THE DOTAG TABLE. F2A05960 SF60 CLA DOTGZ+5,1 THIS ROUTINE BY RAISING F2A05970 STD SF70 XRA, EXITS TO SF80 OR F2A05980 SF70 TXL SF40,2,0 SF90 UPON FINDING A DO. F2A05990 PXD 0,1 IN THE SUBNEST OF XRA F2A06000 CAS SFES1 WHICH IS THE DO OF XRC OR F2A06010 TRA SF73 CONTAINS THE DO OF XRC F2A06020 TRA SF80 AND CURRENT DO. F2A06030 TRA SF35 GO BACK FOR NEXT DO F2A06040 SF73 SXD SF76,1 THIS ROUTINE (THROUGH SF76) F2A06050 SF74 LXD SF15,1 F2A06060 TSX TRA00,4 USES TRA00 F2A06070 TZE SFEND F2A06080 STO SF78 TO DETERMINE THE F2A06090 LXD SF76,1 GREATEST EXIT LEVEL OF F2A06100 CLA DOTGZ+5,1 DEFINITION FROM A F2A06110 ANA DECMSK DO SYM NOT IN THE F2A06120 CAS SF78 SUBNEST OF A DO WITH F2A06130 CLA SF78 VARIABLE NS, BUT IN A F2A06140 NOP SUBNEST WHICH HAS A F2A06150 SF76 TXL SF90,,0 NON EMPTY INTERSECTION F2A06160 SF78 PZE WITH THAT SUBNEST. F2A06170 SF79 CLA DOTGZ+5,1 F2A06180 ANA DECMSK F2A06190 SUB L(1) F2A06200 TNZ SF90 F2A06210 TRA SFEND F2A06220 SF80 MSE 97 EQUALITY, IF SYM DO IS F2A06230 TSX ERROR5,4 SOURCE PROGRAM ERROR. F2A06240 CLA BITONE F2A06250 ORS DOTGZ+5,1 F2A06260 CLA DOTGZ+5,1 GET LEVEL OF DEFINITION F2A06270 ANA DECMSK AND STORE F2A06280 SF90 ARS 18 IN ADDRESS PART F2A06290 STO SFES1 OF SFESI. F2A06300 LXD SV48,1 INDEX OF VAR.N. IN CUR. DO. F2A06310 CLA DOTGZ+8,1 GET PREVIOUS LEVEL DEF. F2A06320 ANA ADDMSK AND COMPARE F2A06330 CAS SFES1 WITH NEW. F2A06340 TRA SFEND EXIT UNLESS F2A06350 TRA SFEND NEW LEV. F2A06360 CLA SFES1 IS LARGGER, IN WHICH CASE F2A06370 STA DOTGZ+8,1 REPLACE OLD WITH NEW F2A06380 LXD SF10,2 OBTAIN N COUNTER IN XRB F2A06390 SF92 CLA DOTGZ+4,1 GET VAR. N IN ACC. F2A06400 TRA SF96 GO TO INDEXING. F2A06410 SF94 CAS DOTGZ+4,1 COMPARE TO FIND DUPE F2A06420 TRA SF96 N S. F2A06430 TRA SF99 DUPE FOUND. F2A06440 SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2A06450 SF98 TIX SF94,2,1 AND IN COUNTER F2A06460 TRA SFEND F2A06470 SF99 CLA SFES1 REPLACE F2A06480 STA DOTGZ+8,1 OLD LEVEL F2A06490 TRA SF92 OF DEFINITION. F2A06500 SFEND LXD SF15,4 GO BACK FOR NEXT F2A06510 TRA SV65 SYMBOL DO F2A06520 SFES1 PZE ES. F2A06530 REM GREATEST TRANSFER LEVEL OUT OF DO FORMULA F2A06540 TRA00 CLA DOTGZ+5,1 GET LEVEL OF DO F2A06550 PDX 0,2 USE MAX LEV TWENTY F2A06560 TRA10 TXL TRA20,2,20 F2A06570 LXD TRA10,2 F2A06580 TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2A06590 PXD 0,2 COMPUTE LEVEL MINUS ONE F2A06600 ARS 18 AND INITIALIZE SHIFT INSTR. F2A06610 SUB TRAN1 COMPUTE 35 MINUS (L MINUS F2A06620 STA TRA70 ONE) AND F2A06630 SUB TRAN2 INITIALIZE F2A06640 STA TRA80 SHIFT INSTR. F2A06650 PXD 0,0 INITIALIZE F2A06660 STO TRAN5 ES LOCATION TO ZERO F2A06670 TRA30 CAL DOTGZ+7,1 OR INTO TRAN5 ALL THE F2A06680 ORS TRAN5 T2 WORDS OF THIS DO F2A06690 TXI TRA40,1,-9 AND ALL DOS CONTAINED F2A06700 TRA40 TXL TRA60,1,0 BY THIS DO. F2A06710 CLA DOTGZ+5,1 F2A06720 PDX 0,2 F2A06730 TRA50 TXH TRA30,2,0 F2A06740 TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2A06750 TRA70 LLS ** REGISTER, SHIFT COMPUTED F2A06760 TRA80 ALS ** AMOUNTS TO CONSTRUCT F2A06770 ANA TRAN5 MASK IN ACC. AND IN F2A06780 TZE TRA95 UNION OF T2 WORDS. EXIT IF ZERO. F2A06790 SLW TRAN5 OBTAIN LOW ORDER BIT (23)F2A06800 SUB TRAN1 IN ACC. F2A06810 STO TRAN6 F2A06820 ORA TRAN5 F2A06830 SUB TRAN6 F2A06840 LXD L(1),1 F2A06850 TRA85 CAS TRATAB+19,1 SEARCH TABLE F2A06860 TRA TRA86 TO OBTAIN F2A06870 TRA TRA90 LEVEL INTEGER F2A06880 TRA86 TXI TRA87,1,1 F2A06890 TRA87 TXL TRA85,1,19 F2A06900 TRA TRA88 GO TO PATCH (23)F2A06910 TRA90 PXD 0,1 PUT LEVEL IN ACC DECREMENT F2A06920 TRA95 TRA 1,4 EXIT. F2A06930 TRAN1 HTR 1 F2A06940 TRAN2 HTR 35 F2A06950 TRAN4 OCT 377777777777 F2A06960 TRAN5 PZE F2A06970 TRAN6 PZE F2A06980 TRATAB OCT 200000 F2A06990 OCT 400000 F2A07000 OCT 1000000 F2A07010 OCT 2000000 F2A07020 OCT 4000000 F2A07030 OCT 10000000 F2A07040 OCT 20000000 F2A07050 OCT 40000000 F2A07060 OCT 100000000 F2A07070 OCT 200000000 F2A07080 OCT 400000000 F2A07090 OCT 1000000000 F2A07100 OCT 2000000000 F2A07110 OCT 4000000000 F2A07120 OCT 10000000000 F2A07130 OCT 20000000000 F2A07140 OCT 40000000000 F2A07150 OCT 100000000000 F2A07160 OCT 200000000000 F2A07170 REM FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS F2A07180 * *** F2A07190 TS4VAL TSX (TAPE),4 READ F2A07200 PZE 4VALAD,,(RBNC) IN F2A07210 PZE 4VALL,,FTAPE2 FORVAL. F2A07220 * *** F2A07230 LXA (SCHU)+FTAPE2,2 COMPUTE F2A07240 SXD TBLEND,2 NEXT F2A07250 AXT 0,2 GO TO F2A07260 TSX CHECK,4 CHECK READ. F2A07270 LXA 4VALAD+1,2 UNUSED F2A07280 PXD 0,2 INDEX F2A07290 ADD 4VALAD+1 AND F2A07300 SUB TBLEND PLACE F2A07310 PDX 0,1 IN XR. F2A07320 SXD FORVAL-1,1 SAVE INDEX. F2A07330 TXL TSV10,1,2000*M/N*2-1 F2A07340 PSE 100 IF FORVAL EMPTY, SET F2A07350 TRA T190 SENSE LIGHT AND EXIT F2A07360 TSV10 SXD TS40,1 INITIALIZE TEST INSTRS. F2A07370 SXD TS75,1 F2A07380 MSE 99 TEST FOR EMPTY DOTAG F2A07390 TRA TSV20 OFF, NOT EMPTY F2A07400 PSE 99 ON, DOTAG EMPTY F2A07410 TRA T190 EXIT F2A07420 TSV20 LXD DOTAG-1,1 DOTAG TEST INITIALIZING F2A07430 SXD TS35,1 F2A07440 LXD MAXDTG,1 INITIALIZE XRA F2A07450 LXD MAXFVL,4 AND F2A07460 SXD XFOR,4 XFOR. CONTINUE WITH TS00 F2A07470 TS00 MSE 97 SENSE LIGHT 97 OFF F2A07480 NOP F2A07490 TS10 CLA DOTGZ+5,1 GET LEVEL OF CURRENT F2A07500 PDX 0,2 DO IN XRB. IF L IS ONE, F2A07510 TXL TS15,2,1 GO TO NEST PROCEDURE. IF F2A07520 MSE 97 L IS NOT ONE AND LIGHT IS F2A07530 TRA TS30,0 OFF, GO TO INNER DO PRECEDURE. F2A07540 PSE 97 IF LIGHT IS ON, CONTINUE F2A07550 TXI TS35,1,-9 INDEXING FOR NEXT NEST. F2A07560 TS15 MSE 97 F2A07570 NOP F2A07580 CLA DOTGZ,1 L IS ONE, DO NEST PROCEDURE. F2A07590 PAX 0,2 ESTABLISH BEGINNING OF F2A07600 ANA DECMSK NEST ADDRESS BNA, AND F2A07610 STO TBNA END OF NEST ADDRESS ENA. F2A07620 PXD 0,2 SEARCH IN FORTAG UNTIL F2A07630 STO TENA FOR NRS. FOUND GREATER F2A07640 LXD XFOR,4 THAN ENA. IF NONE, EXIT F2A07650 CLA TBNA FROM ENTIRE ROUTINE. F2A07660 TS20 CAS 4VALZ,4 TEST WHETHER FIRST SUCH F2A07670 TXI TS40,4,-2 NR. IS IN NEST IF NOT, F2A07680 TSX ERRORM,4 THE DECR OF FIRST WD OF XR1 F2A07690 REM DOTAG ENTRY IS THE IFN OF THE F2A07700 REM DO STATEMENT, AND SHOULD NOT F2A07710 REM BE EQUAL TO THE FORVAL IFN F2A07720 REM (DECR OF WD WITH XR VALUE F2A07730 REM IN TBNA). 4VAL IS REC9 FILE5 TP2 F2A07740 SXD XFOR,4 GO TO INDEXING INSTRS. F2A07750 CLA TENA FOR NEXT DO. F2A07760 SUB 4VALZ,4 F2A07770 TPL TS25 F2A07780 PSE 97 RECORD NO FORVAL FALLS IN THIS NEST.F2A07790 TS25 TXI TS35,1,-9 F2A07800 TS30 CLA DOTGZ,1 INNER DO PROCEDURE F2A07810 ANA TAGMSK TEST FOR NON ZERO TAG, F2A07820 TNZ TS50 IN WHICH CASE TRA FOR F2A07830 TS33 TXI TS35,1,-9 TABLE SEARCH. OTHERWISE, F2A07840 TS35 TXH TS10,1,0 INDEX FOR NEXT DO, IF POSSIBLE. F2A07850 TS38 TXL T190,,0 EXIT,STORAGE FOR INDEX CUR. DO. F2A07860 TS40 TXH TS20,4,0 INDEX TEST FOR FORVAL. F2A07870 TRA T190 EXIT F2A07880 TS50 SXD TS38,1 SAVE INDEX OF CURRENT DO F2A07890 SXD T110,2 SAVE LEVEL OF CURRENT DO F2A07900 LXD XFOR,4 OBTAIN FORVAL INDEX IN XRC F2A07910 TS55 LXD L(3),2 PUT THREE IN XRC F2A07920 LXD TS38,1 CURRENT DO IN XRA F2A07930 CLA TENA TEST FOR END OF NEST F2A07940 SUB 4VALZ,4 F2A07950 TMI TS33 NOT IN NEST,TRA FOR NEXT DO. F2A07960 CLA 4VALZ+1,4 IN NEST OBTAIN FORTAG F2A07970 TS60 CAS DOTGZ+4,1 SYMBOL, COMPARE WITH VAR. F2A07980 TRA TS65 N SYMBOLS. F2A07990 TRA TS80 EQUALITY F2A08000 TS65 TXI TS70,1,1 INDEX IN XRA, F2A08010 TS70 TIX TS60,2,1 COUNT IN XRB F2A08020 TXI TS75,4,-2 TAKE NEXT FORTAG ENTRY, F2A08030 TS75 TXH TS55,4,0 IF ANY. F2A08040 LXD TS38,1 RESTORE CURRENT DO INDEX F2A08050 TXI TS35,1,-9 AND TRA FOR NEXT DO. F2A08060 TS80 SXD T148,2 SAVE VAR. N. COUNTER. F2A08070 SXD T144,1 SAVE COUNTER OF SYM IN DO F2A08080 LXD TS38,1 CURRENT DO INDEX IN XRA F2A08090 LXD T110,2 CURRENT DO LEVEL IN XRB F2A08100 TXI TS85,2,1 ADJUST XRB FOR CURRENT DO TEST. F2A08110 TS85 CLA DOTGZ+5,1 GET NEXT BACK DO IN F2A08120 STD TS90 SUBNEST. ON FIRST TIME F2A08130 TS90 TXH T100,2,0 THROUGH, CURRENT DO IS F2A08140 TS92 TXI TS85,1,9 PRODUCED. F2A08150 TS94 TIX TS92,2,1 ADJUST LEVEL. F2A08160 TSX ERRORM,4 LEVEL OF CURRENT DO (IN XR2) F2A08170 REM SHOULD BE MORE THAN LEVEL OF F2A08180 REM BACK DO IN SAME NEST (DECR OF F2A08190 REM SIXTH WD OF DOTAG ENTRY WITH F2A08200 REM XR VALUE IN XR1. F2A08210 T100 CLA DOTGZ,1 NEXT BACK DO FOUND. F2A08220 ANA DECMSK TEST TO SEE IF FORTAG F2A08230 SUB 4VALZ,4 FORMULA NR. IS IN THIS F2A08240 TPL TS94 DO. IF NOT, GO TO TS94 F2A08250 CLA DOTGZ,1 TO ADJUST LEVEL FOR F2A08260 ANA ADDMSK OBTAINING NEW SUBNEST DO. F2A08270 ALS 18 F2A08280 SUB 4VALZ,4 F2A08290 TMI TS94 F2A08300 T110 TXL T120,2,0 DEC CONTAINS CURRENT LEVEL. F2A08310 TRA T170 APPARENT DEF OF A VAR N WITHIN F2A08320 REM RANGE OF THE DO WITH VARIABLE N. IGNORE AND F2A08330 REM GET NEXT FORVAL. F2A08340 T120 LXD T144,1 PUT CUR. VAR. DO INDEX IN F2A08350 CLA DOTGZ+8,1 XRA, AND GET LEV. DEF F2A08360 PAX 0,2 OF VAR. N. F2A08370 SXD T130,2 STORE IN DEC OF T130. F2A08380 LXD TS90,2 OBTAIN LEVEL OF DO CONTAINING F2A08390 T130 TXL T170,2,0 FORTAG FOR. NR. F2A08400 PXD 0,2 CHOOSE LARGER AND PUT IN F2A08410 ARS 18 LEV. DEF. FIELD OF CURRENT DO. F2A08420 STA DOTGZ+8,1 IF CHANGE MADE, SAVE F2A08430 STO T195 LEVEL, F2A08440 LXD T148,2 AND TEST TO SEE IF THIS F2A08450 CLA DOTGZ+4,1 SYMBOL F2A08460 TXI T160,1,1 DUPLICATED F2A08470 T140 CAS DOTGZ+4,1 IN DO VAR. N S. F2A08480 T144 TXL T150,,0 IF SO, REPLACE LEVEL OF DEF. F2A08490 T148 TXL T180,,0 BY THIS. DEC OF T144 HAS IX FOR F2A08500 REM VAR N, AND DEC OF T148 HAS 3,2,1 F2A08510 REM IF 4VAL MATCHES N3,N2,N1. F2A08520 REM MATCHES VARIABLE N3,N2,N1) F2A08530 T150 TXI T160,1,1 NEW LEVEL. F2A08540 T160 TIX T140,2,1 F2A08550 T170 TXI TS75,4,-2 F2A08560 T180 CLA T195 F2A08570 STA DOTGZ+8,1 F2A08580 CLA DOTGZ+4,1 F2A08590 TXI T160,1,1 F2A08600 T190 TRA RH00 EXIT F2A08610 T195 PZE ES F2A08620 XFOR PZE FORTAG INDEX F2A08630 TBNA PZE ES F2A08640 TENA PZE ES F2A08650 4VALAD IOCP TBCHK,,2 F2A08660 IORT FORVAL,,2000*M/N*2 F2A08670 REM USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH. F2A08680 * *** F2A08690 RH00 TSX (TAPE),4 READ F2A08700 PZE 4VARAD,,(RBNC) IN F2A08710 PZE 4VARL,,FTAPE2 FORVAR. F2A08720 * *** F2A08730 LXA (SCHU)+FTAPE2,2 COMPUTE F2A08740 SXD TBLEND,2 NEXT F2A08750 AXT 1,2 GO TO F2A08760 TSX CHECK,4 CHECK READ. F2A08770 LXA 4VARAD+1,2 UNUSED F2A08780 PXD 0,2 INDEX F2A08790 ADD 4VARAD+1 AND F2A08800 SUB TBLEND PLACE F2A08810 PDX 0,1 IN XR. F2A08820 SXD FORVAR-1,1 SAVE INDEX. F2A08830 TXH RH95,1,3000*M/N*2-1 EXIT IF FORVAR IS EMPTY. F2A08840 MSE 99 TEST FOR EMPTY DOTAG. F2A08850 TRA RH05 NOT EMPTY. F2A08860 PSE 99 EMPTY, RESTORE SENSE LIGHT F2A08870 TRA RH95 AND EXIT. F2A08880 RH05 SXD RH60,1 FORVAR TEST F2A08890 SXD RH75,1 INITIALIZING. F2A08900 LXD DOTAG-1,1 DOTAG TEST F2A08910 SXD RH90,1 INITIALIZING F2A08920 LXD MAXFVR,1 MAX WDS IN FORVAR F2A08930 SXD RHNNX,1 IN NEXT NEST INDEX. F2A08940 MSE 97 TURN LIGHT 97 OFF. F2A08950 NOP F2A08960 LXD MAXDTG,1 PUT MAX WDS IN DOTAG IN XRA F2A08970 RH10 CLA DOTGZ,1 GET 1ST DOTAG WORD. F2A08980 PAX 0,2 SEPARATE ALPHA AND BETA, F2A08990 ANA DECMSK STORE IN RFIRST AND RLAST. F2A09000 STO RFIRST F2A09010 PXD 0,2 F2A09020 STO RLAST F2A09030 CLA DOTGZ+5,1 GET LEVEL IN XRB. F2A09040 PDX 0,2 F2A09050 TXH RH30,2,1 TRA IF LEVEL GREATER THAN ONE. F2A09060 MSE 97 LEVEL IS ONE, TEST WHETHER, F2A09070 TRA RH20 ON LAST LEVEL ONE, FORVAR F2A09080 TRA RH95 EXHAUSTED. IF SO, EXIT. F2A09090 RH20 LXD RHNNX,4 OTHERWISE, ADJUST FORVAR F2A09100 SXD RHCNX,4 INDEX TO SKIP LAST NEST AREA. F2A09110 RH30 LXD RHCNX,4 PUT FORVAR INDEX IN XRC. F2A09120 CLA RFIRST BEGIN SEARCH FOR FIRST F2A09130 RH40 CAS 4VARZ,4 FORVAR ENTRY IN RANGE. F2A09140 TXI RH60,4,-2 F2A09150 TSX ERRORM,4 MACHINE ERROR. THE XR4 FORVAR F2A09160 REM ENTRY IS AN IFN WHICH CANNOT BE F2A09170 REM EQUAL TO THE IFN OF XR1 DOTAG ENTRY F2A09180 REM FROM WHICH RFIRST IS TAKEN. FORTAG F2A09190 REM IS REC. 11 FILE 5 TP2, AND DOTAG F2A09200 REM IFN IS ON TP2 AS TDO(REC 8 FILE 5). F2A09210 SXD RHCNX,4 SAVE INDEX AT THIS POINT F2A09220 RH50 CLA RLAST FOR NEXT DO, AND COMPARE F2A09230 CAS 4VARZ,4 FORVAR ENTRY WITH RLAST F2A09240 NOP F2A09250 TRA RH70 TRA, IN RANGE. F2A09260 TRA RH80 TRA, NOT IN RANGE. F2A09270 RH60 TXH RH40,4,0 IF NO ENTRIES GREATER F2A09280 TRA RH95 THAN RFIRST, EXIT. F2A09290 RH70 CLA DOTGZ+1,1 IN RANGE, COMPARE SYMBOLS. F2A09300 SUB 4VARZ+1,4 IF EQUAL, PUT BIT IN F2A09310 TNZ RH72 DOTAG ENTRY. F2A09320 CLA BITONE F2A09330 ORS DOTGZ+5,1 F2A09340 TXH RH85,2,1 F2A09350 RH72 TXI RH75,4,-2 INDEX FORVAR AND GO BACK, F2A09360 RH75 TXH RH50,4,0 IF POSSIBLE. OTHERWISE, F2A09370 TXH RH85,2,1 TEST LEVEL. IF LEVEL IS F2A09380 PSE 97 ONE, ARRANGE TO EXIT WHEN F2A09390 TRA RH85 NEXT LEVEL ONE ENCOUNTERED. F2A09400 RH80 TXH RH85,2,1 NOT IN RANGE, TEST LEVEL. F2A09410 SXD RHNNX,4 SET NEXT NEST INDEX IF L IS ONE. F2A09420 RH85 TXI RH90,1,-9 INDEX IN DOTAG AND GO F2A09430 RH90 TXH RH10,1,0 BACK, IF POSSIBLE. F2A09440 RH95 TRA LB00 EXIT F2A09450 RHNNX PZE NEXT NEST INDEX. F2A09460 RHCNX PZE CURRENT NEST INDEX. F2A09470 RFIRST PZE ALPHA ADDRESS. F2A09480 RLAST PZE BETA ADDRESS. F2A09490 4VARAD IOCP TBCHK,,2 F2A09500 IORT FORVAR,,3000*M/N*2 F2A09510 REM TRANSFER IN EXTENDED RANGE BIT. F2A09520 LB00 MSE 99 TEST FOR EMPTY DOTAG F2A09530 TRA DOTRAN GO TO TEST FOR ILLEGAL TRA INTO DO (20)F2A09540 PSE 99 ON, EMPTY, RESET LIGHT F2A09550 TRA EB00 AND EXIT F2A09560 LB02 LXD DOTAG-1,1 OBTAIN NEXT UNUSED INDEX F2A09570 LB05 TXL LB60,,0 F2A09580 LB10 CLA DOTGZ+6,1 F2A09590 TMI LB60 TEST SIGN, TRA IF NEG. F2A09600 ANA BITONE TEST FOR TRA IN IMMED. RANGE. F2A09610 TZE LB60 IF NONE,TRA. F2A09620 SXD LB05,1 SAVE XRA F2A09630 CLA DOTGZ+5,1 PUT LEVEL F2A09640 PDX 0,2 IN XRB F2A09650 LB20 CAL LMSK OR IN F2A09660 ORS DOTGZ+6,1 MSK F2A09670 TXL LB50,2,1 EXIT IF LEVEL ONE. F2A09680 LB25 TXI LB30,1,9 FIND NEXT BACK F2A09690 LB30 CLA DOTGZ+5,1 SUBNEST DO. F2A09700 STD LB40 F2A09710 LB40 TXL LB25,2,0 F2A09720 PDX 0,2 SAVE NEW LEVEL IN XRB. F2A09730 CLA DOTGZ+6,1 TEST SIGN OF WORD T1. F2A09740 TPL LB20 IF PLUS GO TO PUT IN MSK. F2A09750 LB50 LXD LB05,1 IF NOT, FIND NEXT DO F2A09760 LB60 TXI LB70,1,9 IN MAIN PASS. F2A09770 LB70 TXL LB10,1,600*M/N*9 EB00 FOLLOWS. F2A09780 *END O F BLOCK ROUTINE. WR DOTAG ON TP , ONE NEST PER RECORD. F2A09790 EB00 SLT 3 F2A09800 TRA EB10 OFF, NOT EMPTY F2A09810 PSE 99 ON, EMPTY, RESTORE AND TRA. F2A09820 TRA EB50 F2A09830 EB10 LXD DOTAG-1,1 INITIALIZE TEST INSTR. F2A09840 SXD EB40,1 AND F2A09850 SXD EB48,1 F2A09860 LXD MAXDTG,1 XRA F2A09870 CLA DOAD INITIALIZE COMMAND F2A09880 STA EBCOM1 ADDRESS, F2A09890 RIR 1 AND SWITCH. F2A09900 EB20 AXT 0,4 CLEAR COUNTER FOR W.C. IN COMMAND F2A09910 EB30 TXI *+1,4,9 BUMP FOR ONE DOTAG ENTRY. F2A09920 TXI *+1,1,-9 BUMP DOTAG XR. F2A09930 EB40 TXL EB45,1,0 DEC HAS DOTAG IX F2A09940 CLA DOTGZ+5,1 GET LEVEL OF DO F2A09950 PDX 0,2 INTO XRB AND IF F2A09960 TXH EB30,2,1 LEVEL IS GREATER THAN 1, GO TO BUMP F2A09970 EB45 LXD EBCOM1,2 SAVE LAST ADDRESS+1. F2A09980 SXA NSTAD,2 F2A09990 SXD EBCOM1,4 SET W.C. OF COMMAND. F2A10000 EB455 RNT 1 F2A10010 TRA EB46 FIRST TIME ONLY TRA. - SWITCH. F2A10020 CLA NSTAD COMPUTE NEXT ADDRESS. F2A10030 ADM EBCOM1 $F2A10040 ADD L(1) F2A10050 STA EBCOM1 F2A10060 EB46 SIR 1 SET SWITCH. F2A10070 * *** F2A10080 EB47 TSX (TAPE),4 WRITE ONE F2A10090 PZE EBCOM1,,(WBNP) NEST OF F2A10100 PZE DTGL,,FTAPE3 DOTAGA. F2A10110 EB48 TXH EB20,1,0 IF END DOTAG, EXIT F2A10120 * *** F2A10130 EB50 TSX (TAPE),4 WRITE EOF F2A10140 PZE ,,(WEFP) FOR DOTAG. F2A10150 PZE FILN1,,FTAPE3 F2A10160 * *** F2A10170 EB60 TSX (TAPE),4 READ F2A10180 PZE 4TAGAD,,(RBNC) IN F2A10190 PZE 4TAGL,,FTAPE2 FORTAG. F2A10200 * *** F2A10210 LXA (SCHU)+FTAPE2,2 COMPUTE F2A10220 SXD TBLEND,2 NEXT F2A10230 AXT 2,2 GO TO F2A10240 TSX CHECK,4 CHECK READ. F2A10250 LXA 4TAGAD+1,2 UNUSED F2A10260 PXD 0,2 INDEX. F2A10270 ADD 4TAGAD+1 F2A10280 SUB TBLEND F2A10290 STD FORTAG-1 SAVE INDEX VALUE F2A10300 PDX 0,1 AND PLACE IN XR. F2A10310 MSE 97 ON IF FORTAG F2A10320 NOP EMPTY, OFF IF F2A10330 TXL EB70,1,3000*M/N*2-1 FORTAG F2A10340 PSE 97 NOT EMPTY. F2A10350 * *** F2A10360 EB70 TSX (TAPE),4 SPACE TAPE F2A10370 PZE SKTAP,,(SKBP) TO BEGINNING F2A10380 PZE DTGBL,,FTAPE2 OF NEXT FILE. F2A10390 TRA EB90 F2A10400 DOAD IORT DOTAG,,6 F2A10410 4TAGAD IOCP TBCHK,,2 F2A10420 IORT FORTAG,,3000*M/N*2 F2A10430 DTGL BCI 1,DOTAGA F2A10440 DTGBL BCI 1,DOTAGB F2A10450 EBCOM1 IOCT DOTAG,0,0 WD CT INITLZD, ADD INIT + UPDATED. $F2A10460 EBCOM2 IOCP L(0),0,1 TRALEV TP CONT WD. F2A10470 IOCT L(0),0,1 $F2A10480 NSTAD PZE F2A10490 EB90 MSE 98 IS TRALEV TALBE EMPTY F2A10500 TRA EB95 F2A10510 * *** F2A10520 TSX (TAPE),4 WRITE TWO F2A10530 PZE EBCOM2,,(WBNP) ZERO WORD COUNT F2A10540 PZE TRLVL,,FTAPE4 WORDS FOR EMPTY TRALEV. F2A10550 SLN 2 INDICATE EMPTY TRALEV. F2A10560 * *** F2A10570 EB95 TSX (TAPE),4 WRITE EOF F2A10580 PZE ,,(WEFP) FOR TRALEV. F2A10590 PZE FILN1,,FTAPE4 F2A10600 * *** F2A10610 TSX (LOAD),4 GO TO BLOCK 2. F2A10620 PZE F2A10630 REM *CHECK* TESTS READING OF TABLES BY COMPARING LABELS F2A10640 REM AND WORD COUNTS READ TO THOSE EXPECTED. F2A10650 CHECK CLA TABNO,2 COMPARE LABEL WANTED F2A10660 ANA ADDMSK TO F2A10670 SUB TBCHK LABEL READ. F2A10680 TZE CK4 F2A10690 AXT 0,1 WRONG LABEL, F2A10700 TRA TAPER GO TO ERROR. F2A10710 CK4 CLA TABNO,2 COMPUTE F2A10720 ANA DECMSK 1ST TABLE ADDRESS F2A10730 ADD TBCHK+1 PLUS WORD COUNT READ F2A10740 SUB TBLEND MINUS SCHU ADDRESS. F2A10750 TZE 1,4 NO ERRORS, RETURN. F2A10760 AXT 1,1 F2A10770 * *** F2A10780 TAPER TSX (TAPE),4 GO TO TAPE F2A10790 PZE ERIND,1,(TPER) ERROR F2A10800 PZE 4VALL,2,FTAPE2 DIAGNOSTIC. F2A10810 PZE 4,,FORTAG F2A10820 PZE 5,,FORVAR F2A10830 TABNO PZE 6,,FORVAL F2A10840 4TAGL BCI 1,FORTAG F2A10850 4VARL BCI 1,FORVAR F2A10860 4VALL BCI 1,FORVAL F2A10870 BCI 1,COUNT F2A10880 ERIND BCI 1,LABEL F2A10890 ERLIST SXD ERIR2,2 SAVE X R B F2A10900 LXD ERNBR,2 GET ERROR NUMBER F2A10910 CLA DOTGZ,4 SAVE ALPHA DO BETA F2A10920 STO LIST,2 IN LIST F2A10930 CLA DOTGZ+1,4 AND SYMBOL F2A10940 STO LIST-1,2 F2A10950 CLA DOTGZ,1 SAVE OTHER ALPHA DO BETA F2A10960 STO LIST-2,2 F2A10970 CLA DOTGZ+1,1 AND SYMBOL F2A10980 STO LIST-3,2 F2A10990 TXI ERNXT,2,4 F2A11000 ERNXT SXD ERNBR,2 F2A11010 LXD ERIR2,2 F2A11020 TRA MR60 F2A11030 ERIR2 F2A11040 ERNBR F2A11050 ERBETA SXD ERIR2,2 SAVE ALPHA DO BETA F2A11060 LXD ERNBR,2 WHERE ALPHA F2A11070 STZ LIST,2 IS GREATER THAN F2A11080 CLA DOTGZ,1 ITS BETA F2A11090 STO LIST-1,2 F2A11100 CLA DOTGZ+1,1 F2A11110 STO LIST-2,2 F2A11120 TXI ERNX,2,3 F2A11130 ERNX SXD ERNBR,2 F2A11140 LXD ERIR2,2 F2A11150 TRA MR15 F2A11160 ERTST LXD ERNBR,2 F2A11170 TXL FLOW,2,0 F2A11180 TSX ERROR1,4 SOURCE PROGRAM ERROR. F2A11190 LIST SYN ENDCOR-1 F2A11200 LMSK SYN L(MZ) F2A11210 SKTAP PZE ,,1 F2A11220 CHCK PZE F2A11230 PZE F2A11240 FILN1 BCI 1,EOF1 F2A11250 TBLEND PZE F2A11260 DOTRAN AXT DT050,1 SET (20)F2A11270 SXA GOTOVN-1,1 EXIT (20)F2A11280 SXA GTV30,1 FROM FLOW (20)F2A11290 ZSD FA000A+1 SET EXIT FROM FA000 (20)F2A11300 LXD TIFGO-1,4 IS TIFGO EMPTY (20)F2A11310 TXH LB02,4,1200*M/N*2-1 YES, EXIT (20)F2A11320 SXD DTEND,4 NO,STO NO. OF TIFGO ENTRIES (20)F2A11330 LXD MAXTIF,4 (20)F2A11340 DT000 SXD TIFX,4 STO CURRENT POINTER TO TIFGO (20)F2A11350 CLA TIFZ,4 PICK UP TIFGO ENTRY (20)F2A11360 STD G STO ORIGIN OF THE TRA (20)F2A11370 TRA FL080-2 PICK UP THE DESTINATION OF THE TRA (20)F2A11380 FA000A STO A STO DESTINATION OF TRA (20)F2A11390 TXL FA000+2,4,-1 FLOW SWITCH-- EXIT IF IN FLOW SCAN (20)F2A11400 DTSCAN LXD DOTAG-1,1 PICK UP NO OF DOES (20)F2A11410 SXD DT001+1,1 (20)F2A11420 TXI *+1,1,9 STEP UP POINTER TO DOTAG TABLE (20)F2A11430 SXD XDG,1 (20)F2A11440 CLA DOTGZ,1 PICK UP THE LAST ENTRY IN DOTAG TABLE (20)F2A11450 STD BNA STO IFN OF BEG OF DO (20)F2A11460 PAX 0,2 PICK UP IFN OF END OF DO (20)F2A11470 SXD ENA,2 STO IT IN DEC OF ENA (20)F2A11480 CLA A AC CONTAINS END PT OF TRA (20)F2A11490 LDQ ENA MQ CONTAINS END PT OF DO (20)F2A11500 TLQ DTDO1 TRA IF END OF TRA AFTER END OF DO (20)F2A11510 SUB BNA (20)F2A11520 TMI DTDO1 TRA IF END OF DO IS BEFORE BEG OF DO (20)F2A11530 TZE DTDO1 TRA IF END OF TRA = BEG OF DO (20)F2A11540 CLA G AC CONTAINS BEG OF TRA (20)F2A11550 TLQ *+3 TRA FROM OUT OF DO RANGE GO TO TEST (20)F2A11560 LDQ BNA (20)F2A11570 TLQ DTDO1 TRA IF TRA FROM WITHIN DO (20)F2A11580 CLA DOTGZ+5,1 PICK UP LEVEL OF DO (20)F2A11590 STD DTLEV SAVE IT FOR TEST (20)F2A11600 DT006 CLA DOTGZ+7,1 DOES THIS DO CONTAIN A TRA OUT OF NEST(20)F2A11610 TPL DT001 NO, CHECK INNER DOES (20)F2A11620 DTDO1 LXD XDG,1 YES, TRA LEGAL, GET NEXT DO (20)F2A11630 TXL DTSCAN+2,1,600*M/N*9-9 IS THIS THE LAST DO (20)F2A11640 TRA 1,4 YES, GET NEXT A (TRA ENDPOINT) (20)F2A11650 DT050 LXD TIFX,4 PICK UP TIFGO POINTER (20)F2A11660 TXI *+1,4,-2 STEP UP POINTER (20)F2A11670 DTEND TXH DT000,4,** IS THIS END OF TIFGO (20)F2A11680 TRA LB02 YES, EXIT (20)F2A11690 DT001 TXI *+1,1,-9 GET NEXT BACK DO (20)F2A11700 TXL DTERR,1,** TRA TO ERROR IF LAST DO WAS CHECKED (20)F2A11710 CLA DOTGZ+5,1 (20)F2A11720 PDX 0,2 PICK UP LEVEL OF THIS DO (20)F2A11730 DTLEV TXH DT006,2,** IS IT CONTAINED WITHIN DO WITH TRA (20)F2A11740 DTERR LXD TIFX,1 NO, GET IFN OF ILLEGAL TRA, TO PRINT (20)F2A11750 TSX ERROR4,4 ILLEGAL TRA INTO THE RANGE OF A DO (20)F2A11760 TRA88 PBT IS LEVEL GREATER THAN 20. (23)F2A11770 TSX ERROR3,4 YES, SOURCE PROGRAM ERROR. (23)F2A11780 TRA TRA95 NO (23)F2A11790 ENDB SYN *+97 (23)F2A11800 TCD -1 (23)F2A11810 LBL 9F19,M (26)F2A99000 TTL BLOCK B. F2A99010 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK B. F2B00000 HEAD 2 F2B00010 ORG SYSCUR $F2B00020 BCI 1,9F1900 $F2B00030 ORG (LODR) $F2B00040 TXI BEGIN,,190 F2B00060 REM SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS F2B00080 REM SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE F2B00090 REM DOS. THERE IS A CODING BLOCK STARTING AT SYMBOL CORES, F2B00100 REM VARIOUSLY TERMED STATE B OR RELCON, WHICH IS RESERVED F2B00110 REM FOR THOSE SUBSCRIPT COMBINATIONS F2B00120 REM SOME SUBSCRIPT ELEMENT/S OF WHICH ARE F2B00130 REM NOT UNDER CONTROL OF A DO (RELATIVE F2B00140 REM CONSTANT). F2B00150 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2B00160 N SYN 1$N TO NORMAL 32K SIZES. F2B00170 ORG BITTWO+1 F2B00180 HEAD 0 F2B00190 REM CELLS AND SUBROUTINES COMMON F2B00200 REM TO BLOCKS TWO AND THREE. F2B00210 L(1)A OCT 1 F2B00220 L(0) OCT 0 F2B00230 35ONES OCT 377777777777 F2B00240 RSYM1 PZE F2B00250 RSYM2 PZE F2B00260 RSYM3 PZE F2B00270 C1 PZE F2B00280 S1 PZE F2B00290 C2 PZE F2B00300 S2 PZE F2B00310 C3 PZE F2B00320 S3 PZE F2B00330 D1 PZE F2B00340 D2 PZE F2B00350 A PZE F2B00360 B PZE F2B00370 NEXTA PZE F2B00380 LASTB PZE F2B00390 TAG PZE F2B00400 TRABIT PZE F2B00410 REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE F2B00420 REM CORRESPONDING SUBSCRIPT COMBINATION FROM THE TAU F2B00430 REM TABLE AND POSITIONS IT IN PROPER FORMAT IN WORK SPACE. F2B00440 TAU1 SYN 1$TAU1 F2B00450 TAU2 SYN 1$TAU2 F2B00460 TAU3 SYN 1$TAU3 F2B00470 FORTZ SYN 1$FORTZ F2B00480 DOTGZ SYN 1$DOTGZ F2B00490 SUBCOM SXD SUB085,4 SAVE LINKAGE INDEX F2B00500 LXD SUBORG+2,4 INITIALIZE F2B00510 PXD 0,0 SUBSCRIPT COMBO F2B00520 SUB020 STO C1+8,4 SPACE F2B00530 TIX SUB020,4,1 TO ZERO F2B00540 CLA TAG COMPUTE F2B00550 LRS 9 TABLE F2B00560 PAX 0,6 ADDRESS F2B00570 PXD 0,0 TAU ONE ADD. IS ORG+2 TAU. F2B00580 LLS 9 TAU TWO ADD. IS ORG+4 TAU. F2B00590 ALS 1 TAU THREE ADD. IS ORG+6 TAU. F2B00600 STO SUBES1 STORE TWO TAU F2B00610 CLA SUBORG+3,4 GET ORG AND F2B00620 SUB030 ADD SUBES1 ADD FACTOR OF TWO TAU F2B00630 TIX SUB030,4,1 F2B00640 STA SUB038 SET F2B00650 TXL SUB032,2,2 UP F2B00660 ADD L(1)A CLA F2B00670 STA SUB039 ADDRESSES F2B00680 SUB032 ADD L(1)A FOR F2B00690 STA SUB040 THE F2B00700 TXL SUB038,2,1 RETEIEVAL F2B00710 ADD L(1)A AND F2B00720 STA SUB043 DISPERSAL F2B00730 TXL SUB034,2,2 OF F2B00740 ADD L(1)A THE F2B00750 STA SUB046 TAU F2B00760 SUB034 ADD L(1)A TABLE F2B00770 STA SUB050 ENTRY F2B00780 SUB038 CLA ** GET C1,C2 WORD FOR F2B00790 STO C1 TAU 1,2,3. F2B00800 TXL SUB040,2,2 F2B00810 SUB039 CLA ** GET C3 WORD FOR F2B00820 STO C3 TAU 3. F2B00830 SUB040 CLA ** GET S1 WORD FOR F2B00840 STO S1 TAU1,2,3 F2B00850 TXL SUB095,2,1 F2B00860 SUB043 CLA ** GET S2 WORD FOR F2B00870 STO S2 TAU 2,3 F2B00880 TXL SUB050,2,2 F2B00890 SUB046 CLA ** GET S3 WORD FOR F2B00900 STO S3 TAU 3 F2B00910 SUB050 CLA ** GET D1, D2 WORD FOR F2B00920 STO D1 TAU 2,3 F2B00930 SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1,D2, F2B00940 SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2B00950 PAX 0,2 STORAGE FORMAT. F2B00960 ANA DECMSK F2B00970 STO C1+7,4 F2B00980 PXD 0,2 F2B00990 TNX SUB090,4,6 F2B01000 STO C2 F2B01010 SUB085 TXL SUB080,,0 F2B01020 SUB090 STO D2 F2B01030 SUB095 LXD SUB085,4 RESTORE LINKAGE INDEX. F2B01040 TRA 1,4 RETURN. F2B01050 SUBORG TAU3,0,6 ADDRESSES F2B01060 TAU2,0,7 CONTAIN F2B01070 TAU1,0,8 ORIGINS OF TAU. F2B01080 SUBES1 PZE E.S. FOR 2TAU ADDITIVE FACTOR. F2B01090 LIST PDX 0,1 PUT IX QUANTITY IN XRA F2B01100 PAX 0,2 PUT NR. WDS IN XRB, XRC. F2B01110 ADD LIST50 COMPUTE NUMBER WDS PLUS F2B01120 STA LIST10 ORIGIN E1 AND INITIALIZE ADD. F2B01130 SUB LIST50 SALVAGE ORIGINAL KEY WORD, F2B01140 ADD LADDS+5,1 COMPUTE NR WDS PLUS F2B01150 STA LIST20 CURRENT TABLE ADD AND INIT. ADD. F2B01160 CLA LADDIN+5,1 TEST F2B01170 ARS 18 FOR F2B01180 SUB LADDS+5,1 FULL F2B01190 TNZ LIST10 TABLE. F2B01200 SXD LIST05,1 FULL TABLE ERROR, SAVE F2B01210 TSX ERROR7,4 SOURCE PROGRAM ERROR. F2B01220 LIST05 PZE F2B01230 LIST10 CLA 0,2 PUT ENTRY F2B01240 LIST20 STO 0,2 INTO TABLE. F2B01250 TIX LIST10,2,1 F2B01260 CLA LADDS+5,1 COMPUTE F2B01270 ADD CHATAG+5,1 NEXT F2B01280 ANA ADDMSK ENTRY ADDRESS F2B01290 STO LADDS+5,1 F2B01300 TRA 1,4 EXIT. F2B01310 LIST50 HTR E1 L(E1) F2B01320 REM FOUR WORD ENTRY BLOCK. F2B01330 E1 PZE F2B01340 E2 PZE F2B01350 E3 PZE F2B01360 E4 PZE F2B01370 REM FIVE KEY WDS, C(DEC)=IX QUAN., C(ADD)=NR. OF WDS. F2B01380 CHATAG PZE 2,0,5 ACCUMULATOR F2B01390 TRASTO PZE 3,0,4 KEY F2B01400 TSXCOM PZE 2,0,3 WORD WHEN F2B01410 NAMKEY PZE 2,0,2 TSX TO LIST. F2B01420 DRMTAG PZE 4,0,1 (ADTAG). F2B01430 REM FIVE WDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART F2B01440 LADDS PZE CHATAG (INITIALLY ADD IS ADD OF F2B01450 PZE TRASTO (LADDIN. THEREAFTER, IT F2B01460 PZE TSXCOM (IS THE ADD OF THE NEXT F2B01470 PZE NAMKEY (TABLE ENTRY PENDING) F2B01480 PZE DRMTAG F2B01490 REM FIVE WDS., C(ADD)=ORG, C(DEC)=LAST TABLE LOCAT. PLUS ONE. F2B01500 LADDIN PZE CHTGTB,,CHTAGZ CHANGETAG F2B01510 PZE TRSTTB,,TRSTOZ TRASTO F2B01520 PZE TSCMTB,,TSXCMZ TSXCOM F2B01530 PZE NMKYTB,,NAMKYZ NAMEKEY F2B01540 PZE DMTGTB,,DRMTGZ DRUMTAG F2B01550 REM SUBROUTINE SPC000 F2B01560 SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2B01570 SXD SPC060,2 SAVE TINFOR,LIST INDICATOR F2B01580 SXD SPC105,4 SAVE TSX INDEX. F2B01590 STO SPCKEY SAVE LIST KEY WORD F2B01600 CLA DOTGZ+5,1 OBTAIN L WORD F2B01610 STD SPC050 INITIALIZE TEST INSTR. F2B01620 CLA DOTGZ,1 GET ALPHA-BETA WORD, F2B01630 PAX 0,2 SAVE BETA, F2B01640 ANA DECMSK OBTAIN ALPHA ALONE F2B01650 STO NEXTA STO IN NEXTA F2B01660 STO A AND STORE IN A. F2B01670 PXD 0,2 PUT BETA IN LASTB AND F2B01680 STO LASTB BETING SEARCH FOR R2 F2B01690 SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2B01700 SPC020 TXI SPC040,1,-9 GO DOWN ONE DO,IF POSSIBLE,ELSE F2B01710 SPC040 TXL SPC110,1,0 GO TO SET UP LAST INTERVAL. F2B01720 CLA DOTGZ+5,1 TEST IF THIS DO F2B01730 PDX 0,2 IS IN RANGE OF R1(DXL) F2B01740 SPC050 TXL SPC110,2,0 IF NOT, EXIT FOR LAST INTERVAL F2B01750 CLA DOTGZ+1,1 IF IN R1, IS THIS DO TO BE F2B01760 SUB RSYM1 SKIPPED. IF NOT,GO BACK TO F2B01770 TZE SPC053 GET NEXT DO. F2B01780 CLA DOTGZ+1,1 F2B01790 SUB RSYM2 F2B01800 TNZ SPC020 F2B01810 SPC053 CLA DOTGZ,1 R2 FOUND, FIX TO SKIP THIS F2B01820 PAX 0,2 INTERVAL. USE ALPHA OF R2 F2B01830 ANA DECMSK AS B,PUT BETA OF R2 IN F2B01840 STO B NEXTA. F2B01850 PXD 0,2 DO FORMULAS WITHIN R2 ARE F2B01860 STO NEXTA ACCOUNTED FOR AFTER SEARCH. F2B01870 SXD SPC115,1 SAVE INDEX OF R2. F2B01880 SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2B01890 SPC058 CLA A FOR F2B01900 SUB B NON EMPTY F2B01910 TZE SPC065 INTERVALS, F2B01920 TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2B01930 SPC060 TXL SPCSTO,,0 TRA TO USE LIST. F2B01940 SPC065 LXD SPC060,2 RETURN HERE,TEST TINFOR F2B01950 TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2B01960 SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2B01970 CLA DOTGZ+5,1 GET INDEX OF LAST R2 AND F2B01980 STD SPC100 STEP DOWN IN DOTAG BY USUAL F2B01990 SPC080 TXI SPC090,1,-9 PROCEDURE UNTIL SOME DO IS F2B02000 SPC090 TXL SPC110,1,0 FOUND NOT IN R2, OR UNTIL F2B02010 CLA DOTGZ+5,1 DOTAG ENDED. IF DO FOUND F2B02020 PDX 0,2 NOT IN R2,SET A AND GO TO TEST F2B02030 SPC100 TXH SPC080,2,0 IF THIS DO IS IN R1. F2B02040 CLA NEXTA IF IT IS,NEWR2 WILL BE FOUND F2B02050 STO A OR EXIT MADE TO SPC110. F2B02060 SPC105 TXL SPC050,,0 F2B02070 SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2B02080 STO A INTERVAL. FOR A,USE F2B02090 CLA LASTB CONTENTS OF NEXTA. FOR B, F2B02100 STO B USE BETA OF R1,FOUND IN F2B02110 LXD SPC060,2 LASTB. OBTAIN TINFOR,STOTAG F2B02120 CLA L(0) IND,AND SET LOCATION OF F2B02130 STD SPC060 INDICATOR TO ZERO. GO TO F2B02140 SPC115 TXL SPC058,,0 TINFOR OR TRASTO. F2B02150 SPC120 LXD SPC105,4 EXIT,ALL STORES DONE,OR, F2B02160 TRA 1,4 SEARCH MADE,T NOT FOUND. F2B02170 SPC130 LXD SPC105,4 EXIT,T FOUND F2B02180 TRA 2,4 IN SOME INTERVAL F2B02190 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2B02200 TRA SPC130 T FOUND F2B02210 TRA SPC065 T NOT FOUND F2B02220 SPCSTO CLA B FOR TRASTO,E2 AND E3 ARE F2B02230 ARS 18 ALREADY SET UP. COLLECT F2B02240 ADD A A AND B INTO E1 WORD, F2B02250 STO E1 PUT TRASTO INDICATOR IN F2B02260 CLA SPCKEY ACC. AND F2B02270 TSX LIST,4 TSX TO LISTING ROUTINE. F2B02280 TRA SPC065 ON RETURN,GO TO TEST FINISH. F2B02290 SPCKEY PZE STORAGE FOR TABLE KEY. F2B02300 REM SUBROUTINES TINFOR AND TINFXX F2B02310 TINFOR CLA DOTGZ,1 C(XRA) INDEX OF DO TO BE F2B02320 PAX 0,1 SEARCHED. SEPARATE ALPHA F2B02330 ANA DECMSK AND BETA F2B02340 STO A AND STORE IN A F2B02350 PXD 0,1 F2B02360 STO B B F2B02370 TINFXX LXD MAXFTG,1 PUT MAX FORTAG IX IN XRA. F2B02380 TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2B02390 ANA DECMSK RETAIN FORMULA NUMBER ONLY F2B02400 CAS A COMPARE ALPHA AND FORMULA NR. F2B02410 TRA TINF40 FOR. NR. GREATER THAN ALPHA. TRA. F2B02420 NOP C(A) MAY BE SOME BETA FROM SPC F2B02430 TINF20 TXI TINF30,1,-1 FOR.NR. LESS THAN ALPHA. GO F2B02440 REM BACK FOR NEXT FORTAG ENTRY F2B02450 TINF30 TXH TINF10,1,0 IF POSSIBLE. OTHERWISE, F2B02460 TRA 2,4 RETURN TO CALLING INSTR PLUS TWO. F2B02470 TINF40 CAS B COMPARE FOR. NR. WITH BETA F2B02480 TRA 2,4 FOR. NR. GREATER THAN BETA,EXIT. F2B02490 NOP FOR. NR. EQUAL TO OR F2B02500 CLA FORTZ,1 LESS THAN BETA,OBTAIN FORTAG F2B02510 TPL TINF20 TAG AND COMPARE WITH SEARCH TAG. F2B02520 ANA ADDMSK I.F. NOT EQUAL,GO BACK FOR NEXT TAG F2B02530 SUB TAG F2B02540 TNZ TINF20 IF EQUAL,RETURN TO CALLING F2B02550 TRA 1,4 F2B02560 HEAD 2 F2B02570 DBUFSZ EQU 200*M/N*9 SIZE OF BUFFERS FOR DO TABLE. F2B02580 ADTAGZ SYN ENDCOR ADDITIONAL F2B02590 ADTAG SYN ADTAGZ-200*M/N*2 TABLE DEFINITIONS. F2B02600 NAMKYZ SYN ADTAG FOR F2B02610 NAMZ SYN NAMKYZ BLOCK 2. F2B02620 NMKYTB SYN NAMKYZ-600*M/N*2 F2B02630 NAM SYN NMKYTB F2B02640 NMKYWC SYN NMKYTB-1 F2B02650 TSXCMZ SYN NMKYWC F2B02660 TSCMTB SYN TSXCMZ-400*M/N*2 F2B02670 TSCMWC SYN TSCMTB-1 F2B02680 RETABZ SYN TSCMWC-1 F2B02690 RETAB SYN RETABZ-1200*M/N F2B02700 TRSTOZ SYN RETAB F2B02710 TRSTTB SYN TRSTOZ-400*M/N*3 F2B02720 TRSTWC SYN TRSTTB-1 F2B02730 CHTAGZ SYN TRSTWC F2B02740 CHTGTB SYN CHTAGZ-400*M/N*2 F2B02750 CHTGWC SYN CHTGTB-1 F2B02760 FIXWC SYN 1$FIXWC F2B02770 TAU3 SYN 1$TAU3 F2B02780 TAU2 SYN 1$TAU2 F2B02790 TAU1 SYN 1$TAU1 F2B02800 4VALZ SYN 1$4VALZ F2B02810 DOTGZ SYN 1$DOTGZ F2B02820 DOTAG SYN DOTGZ-200*M/N*9 F2B02830 DTGWC SYN DOTAG-1 F2B02840 FORTZ SYN 1$FORTZ F2B02850 DO SYN FORTZ F2B02860 DOZ SYN DO+600*M/N*2 F2B02870 TAGZ SYN FRTGWC F2B02880 TAGTAG SYN TAGZ-1000*M/N*4 ORIGIN TAGTAG TABLE. F2B02890 DBUF2 SYN TAGZ-DBUFSZ USED TO BRING IN DOTAG TO F2B02900 DBUF1 SYN DBUF2-DBUFSZ MAKE DO TABLE. F2B02910 ORG TINF40+9 F2B02920 DOREC PZE NR DONEST RECS ON TAPE 2. F2B02930 PZE F2B02940 ATSW PZE ADDED TAG SW (1 IF PROC ADDED TAGS.)F2B02950 NEWTAG PZE INIT 4000, FROM FIRSTTAG. F2B02960 XC PZE IX CURRENT DO. F2B02970 LC PZE LEV CURRENT DO. F2B02980 ALPHA PZE ALPHA CURRENT DO. F2B02990 BETA PZE BETA CURRENT DO. F2B03000 TS PZE TAG, (4TAG OR NEW TAG NAME.) F2B03010 TAG1 PZE 4TH WD OF TAGTAG. F2B03020 GROUP PZE GROUP NO. IN DECR. F2B03030 REM HERE TO CARWRD ARE SET 0 IN IDENT. F2B03040 X1 PZE IX DO MATCHING 1ST SYMBOL. $F2B03050 L1 PZE LEV DO MATCHING 1ST SYMBOL. $F2B03060 X2 PZE IX DO MATCHING 2ND SYMB $F2B03070 L2 PZE LEV DO MATCHING 2ND $F2B03080 X3 PZE IX DO MATCHING 3RD $F2B03090 L3 PZE LEV DO MATCHING 3RD $F2B03100 XL PZE IX LOWEST LEVEL DOSUB $F2B03110 LL PZE LEV LOWEST LEVEL DOSUB $F2B03120 NRSUBS PZE NR. SUBSCRIPTS IN SUBSCR COMBINATION$F2B03130 NRRC PZE NR. RELCONS IN SUBSCR COMBINATION $F2B03140 NRDS PZE NR DOSUBS IN S.C. $F2B03150 DORC PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03160 REM IS DORC. F2B03170 RCSUBS PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03180 REM IS RELCON. F2B03190 DOSUBS PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03200 REM IS DOSUB. F2B03210 DELTA PZE $F2B03220 RCDUP PZE BIT IN 15,16,17 FOR CORRES DUPE RCS.$F2B03230 DUPES PZE BIT IN 15,16,17 FOR CORRES $F2B03240 REM DOSUBS. F2B03250 CARWRD PZE BIT IN 11 IF TYPE 1 CARRY, $F2B03260 REM 12 IF LEFT TYPE 2, 13 IF CENTER F2B03270 REM TYPE 1, 14 IF CENTER TYPE 2, F2B03280 REM S SET NEG IF COUNTER AND TEST FOUND F2B03290 TL1 PZE F2B03300 TL2 PZE F2B03310 REBITS PZE F2B03320 LOWPOS PZE 5,3,1 IF LL SUBSCR. IS X1,X2,X3. F2B03330 L(0) 0,0,0 F2B03340 L(1) 0,0,1 F2B03350 L(2) 0,0,2 F2B03360 L(3) 0,0,3 F2B03370 L(4) 0,0,4 F2B03380 L(5) 0,0,5 F2B03390 L(6) 0,0,6 F2B03400 L(36) 0,0,36 F2B03410 L(1)A 1 F2B03420 L(2)A 2 F2B03430 L(4)A 4 F2B03440 L(MZ) MZE F2B03450 DTGZAD PZE DOTGZ F2B03460 CR1 OCT 100000000 BIT 11 F2B03470 CR2 OCT 40000000 BIT 12 F2B03480 CARMSK OCT 300000 BITS 19,20(CARRY BITS FOR WD6 DOTAG)F2B03490 FRSTAG OCT 4000 F2B03500 2BITS OCT -200000000000 S AND 1 BIT F2B03510 BIT18 OCT 400000 F2B03520 BIT19 OCT 200000 F2B03530 BIT20 OCT 100000 F2B03540 ADTXX 200*M/N*2 IX VALUE FOR DEC F2B03550 RESXX 1200*M/N CONTAINS NEXT TABLE ENTRY. F2B03560 TAGXX 1000*M/N*4,,1000*M/N*4 F2B03570 NAMXX OCT 0 DEC AND ADD INITLZD AT BEGIN EVERY F2B03580 REM NEST TO VALUE FOR NEXT TABLE ENTRY.F2B03590 REM THEN DEC BMPD THRU NEST FOR NEXT F2B03600 REM TABLE ENTRY. F2B03610 * *** F2B03620 BEGIN TSX (TAPE),4 REWIND F2B03630 PZE REWIND,,(SKBP) DOTAGA F2B03640 PZE DTGL,,FTAPE3 TAPE. F2B03650 AXT 5,1 INITIALIZE F2B03660 BEG10 CLA LADDIN+5,1 PROGRAM F2B03670 ANA ADDMSK ADDRESSES F2B03680 STO $LADDS+5,1 F2B03690 TIX BEG10,1,1 F2B03700 CLA L(0) F2B03710 STO DOREC F2B03720 LXD L(0),6 TEST FOR EMPTY F2B03730 MSE 100 FORVAL F2B03740 LXD L(1),4 OFF, NOT EMPTY F2B03750 SXD END80,4 ON, EMPTY F2B03760 MSE 99 TEST FOR F2B03770 LXD L(1),2 EMPTY DOTAG. F2B03780 SXD END85,2 SAVE TABLE INFO IN END PROG. F2B03790 TXL ENDA,2,0 IF DOTAG EMPTY, GO TO END. F2B03800 LXD FORTAG-1,1 INITIALIZE F2B03810 SXD TINF30,1 FORTAG F2B03820 SXD TAG20,1 TEST F2B03830 SXD TAG90,1 INSTRUCTIONS. F2B03840 PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE. F2B03850 STO NEWTAG F2B03860 TRA NEST F2B03870 * *** F2B03880 ENDA TSX (TAPE),4 WRITE LABEL RECORD F2B03890 PZE NSTCM2,,(WBNP) FOR DOTAG B. F2B03900 PZE DTGBL,,FTAPE2 FILE (LABEL ONLY). F2B03910 * *** F2B03920 END TSX (TAPE),4 WRITE EOF F2B03930 PZE ,,(WEFP) AFTER F2B03940 PZE FIL2L,,FTAPE4 TAGTAG. F2B03950 CLA $LADDS+4 MAKE INDICATION IN F2B03960 STA END05 TABLE F2B03970 ADD L(1)A DRMTAG. F2B03980 STA END06 OF F2B03990 CLA 35ONES END F2B04000 END05 STO ** OF F2B04010 END06 STO ** ENTRIES. F2B04020 LXD L(5),1 F2B04030 END10 CLA LADDIN+5,1 STORE F2B04040 SUB L(1)A TABLE F2B04050 STA END15 WORD COUNTS IN F2B04060 CLA LADDIN+5,1 WD PRECEDING EACH TABLE OF F2B04070 ANA ADDMSK DRMTAG, F2B04080 SUB $LADDS+5,1 NAMEKEY, F2B04090 SSP TSXCOM, F2B04100 END15 STO ** TRASTO, F2B04110 TIX END10,1,1 CHATAG. F2B04120 PSE 96 RESTORE SENSE LIGHTS F2B04130 LXD END80,1 SL 100 ON, FORVAL EMPTY F2B04140 TXH END20,1,0 SL 99 ON, DOTAG EMPTY. F2B04150 PSE 100 F2B04160 END20 LXD END85,1 F2B04170 TXH END30,1,0 F2B04180 PSE 99 F2B04190 * *** F2B04200 END30 TSX (TAPE),4 WRITE EOF F2B04210 PZE ,,(WEFP) AFTER F2B04220 PZE FIL6L,,FTAPE2 DOTAGB. F2B04230 LXD DOREC,4 SAVE DOTAG RECORD COUNT F2B04240 SXD DORCCT,4 FOR LATER BLOCKS, F2B04250 SXA SKPT,4 AND SET SKIP COMMAND. F2B04260 * *** F2B04270 TSX (TAPE),4 POSITION TAPE F2B04280 PZE SKPT,,(SKBP) TO READ DOTAG F2B04290 PZE DTGBL,,FTAPE2 TABLE. F2B04300 * *** F2B04310 TSX (TAPE),4 REWIND TAGTAG TAPE F2B04320 PZE REWIND,,(SKBP) FOR LATER F2B04330 PZE TRLVL,,FTAPE4 POSITIONING. F2B04340 TRA MKDO GO TO FORM DO TABLE. F2B04350 TRLVL BCI 1,TRALEV F2B04360 END80 PZE ES. (DEC IS 1 IF 4VAL NOT EMPTY) F2B04370 END85 PZE ES. (DEC IS 1 IF DOTAG NOT EMPTY) F2B04380 * *** F2B04390 NEST TSX (TAPE),4 READ ONE F2B04400 PZE NSTCOM,,(RBEC) NEST OF F2B04410 PZE DTGL,,FTAPE3 DOTAGA. F2B04420 * *** F2B04430 NZT (SCHU)+FTAPE3 TEST FOR EOF. F2B04440 TRA TETAPE F2B04450 * *** F2B04460 CLA (SCHU)+FTAPE3 F2B04470 STO NSTSCH F2B04480 ANA ADDMSK INTO ADD OF AC F2B04490 SUB DTGZAD F2B04500 TMI NEST20 IF STORAGE EXCEEDED, F2B04510 TZE NEST20 F2B04520 TSX ERROR6,4 SOURCE PROGRAM ERROR. F2B04530 NEST20 PAX 0,2 F2B04540 NEST30 CLA L(0) INITIALIZING INSTRUCTIONS. F2B04550 STO ATSW F2B04560 SXD XC,2 PUT C(XRB) IN XC F2B04570 SXD DOTAG-1,2 INITIALIZE F2B04580 SXD TRW20,2 THAT F2B04590 SXD TRW50,2 TEST F2B04600 SXD SPC040,2 END OF F2B04610 SXD SPC090,2 DONEST. F2B04620 LXA ADTXX,4 INIT F2B04630 SXD ADTXX,4 DECS F2B04640 LXA RESXX,4 FROM F2B04650 SXD RESXX,4 ADDRESSES. F2B04660 CLA LADDIN+3 GET UPPER TERMINUS NAMKEY. F2B04670 ARS 18 TABLE IN ADDRESS, F2B04680 SUB $LADDS+3 MINUS CURRENT FOR XR VALUE, F2B04690 STA NAMXX AND INITLZ NAMXX F2B04700 ALS 18 (ADD WILL GET LOWER TERMINUS, F2B04710 STD NAMXX DEC NEXT-PENDING FOR THIS NEST) F2B04720 TRA DOFOR IF NO ERROR, GO TO DOFOR. F2B04730 NSTCOM IORT DOTAG,,201*M/N*9 F2B04740 NSTSCH PZE $F2B04750 DTGL BCI 1,DOTAGA F2B04760 FIL2L BCI 1,EOF2 F2B04770 FIL6L BCI 1,EOF6 F2B04780 SKPT MZE **,,1 F2B04790 NESTEN LXD L(4),2 PUT END OF NEST INDICATION F2B04800 CLA 35ONES IN TAGTAG, CONSISTING OF F2B04810 NEST80 STO $E1+4,2 FOUR WDS OF 35 ONES. F2B04820 TIX NEST80,2,1 F2B04830 TSX TAGENT,4 ENTER IN TAGTAG AND F2B04840 CLA L(1) SET ADDED TAG SWITCH F2B04850 STO ATSW AND GO TO DRMENT TO F2B04860 TSX DRMENT,4 PROCESS ADDED TAGS F2B04870 LXD ADTXX,1 TRANSFER F2B04880 SXD NEST88,1 TO DRUM TABLE NAME F2B04890 LXA ADTXX,1 ALL ENTRIESP F2B04900 NEST85 TXL NEST88,,0 IN CORE TABLE ADTAG F2B04910 NEST86 CLA ADTAGZ+1,1 EXCEPT F2B04920 TMI NEST87 RESET F2B04930 STO $E2 ENTRIES F2B04940 CLA ADTAGZ,1 F2B04950 STO $E1 F2B04960 PDX 0,2 F2B04970 CLA DOTGZ,2 F2B04980 STD $E1 F2B04990 SXD NEST85,1 F2B05000 CLA NAMKEY F2B05010 TSX $LIST,4 F2B05020 LXD NEST85,1 F2B05030 NEST87 TXI NEST88,1,-2 F2B05040 NEST88 TXH NEST86,1,0 F2B05050 NST100 LXD DOTAG-1,1 F2B05060 TRA NST120 F2B05070 NST110 CLA DOTGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG F2B05080 ANA BBIT EQ 1. F2B05090 TZE NST120 AND F2B05100 CLA DOTGZ-1,1 DOES BIT 18 WD9 OF PRIOR DOTAG F2B05110 ANA ABIT EQ 1. F2B05120 TNZ NST120 F2B05130 CLA ADDMSK YES. ERASE DEC WD 9 F2B05140 ANS DOTGZ+8,1 OF PRIOR DOTAG. F2B05150 NST120 TXI NST130,1,9 F2B05160 NST130 TXL NST110,1,200*M/N*9-9 F2B05170 CLA DOREC WRITE F2B05180 ADD L(1) DOTAG F2B05190 STO DOREC ON F2B05200 LXA NSTSCH,4 SET THE DECREMENT OF THE $F2B05210 TXI *+1,4,-DOTAG CHANNEL COMMAND WITH THE $F2B05220 SXD NSTCM2,4 WORD COUNT. $F2B05230 * *** F2B05250 NEST90 TSX (TAPE),4 WRITE A F2B05260 PZE NSTCM2,,(WBNC) NEST OF F2B05270 PZE DTGBL,,FTAPE2 DOTAGB. F2B05280 TRA NEST RETURN FOR NEXT NEST. F2B05290 NSTCM2 IOCT DOTAG,0,0 (DEC INITIALIZED. $F2B05300 DTGBL BCI 1,DOTAGB F2B05310 DOFOR LXD XC,1 OBTAIN F2B05320 TXI DOF10,1,9 NEXT BACK DO, F2B05330 DOF10 TXH NESTEN,1,200*M/N*9 IF ANY. F2B05340 TSX DOINFO,4 USE DOINFO F2B05350 TRA TAG00 AND GO TO TAG00 ROUTINE. F2B05360 DOFEND LXD XC,1 IS A COUNTER F2B05370 CLA DOTGZ+8,1 F2B05380 ANA BIT19 F2B05390 TZE MAKESC F2B05400 CAL DOTGZ+5,1 NECESSARY BECAUSE OF F2B05410 ANA 2BITS TRANSFERS OR COMPUTATION WITH F2B05420 TNZ DOF15 SYMBOL. F2B05430 CLA BIT20 TEST FOR F2B05440 ANA DOTGZ+6,1 DELTA TWO F2B05450 TZE DOF20 INSERT F2B05460 DOF15 CLA DOTGZ+6,1 HAS A COUNTER BEEN F2B05470 ANA BITTWO FOUND. F2B05480 TNZ DOF40 IF NOT, F2B05490 TRA MAKESC MAKE ONE. (RETURN IS TO DOF40) F2B05500 DOF20 CLA DOTGZ+8,1 HAS A TEST F2B05510 PDX 0,2 BEEN F2B05520 TXH DOF25,2,0 FOUND. F2B05530 TRA MAKESC NO, MAKE A COUNTER. F2B05540 DOF25 CLA DOTGZ+5,1 YES, HAS SYM OCCURRED WITH F2B05550 ANA SUBBIT RELCON NOT AS TYPE ONE CARRY. F2B05560 TNZ DOF40 IF YES, GO TO DOF40 F2B05570 DOF30 CLA DOTGZ+8,1 IF SYM HAS NOT OCCURRED WITH F2B05580 ARS 12 RELCON OR IN SUCH OCCURRENCES F2B05590 PDX 0,2 WAS ALWAYS A TYPE ONE F2B05600 TXL DOF40,2,11 CARRY, IS CURRECT TEST F2B05610 CLA BBIT F2B05620 ORS DOTGZ+8,1 F2B05630 DOF40 CLA DOF50 MADE. TAKE SIGN AND F2B05640 ANS DOTGZ+8,1 TEST TABLE INTEGER OUT F2B05650 TRA DOFOR OF TEST WORD AND EXIT. F2B05660 DOF50 OCT 7777777777 F2B05670 MAKESC CLA L(4) INITIALIZE F2B05680 STO DOSUBS DOSUBS AND OTHER LOCATIONS F2B05690 CLA L(0) USED IN 1NS00. F2B05700 STO RCSUBS F2B05710 STO DORC F2B05720 STO $C1 F2B05730 STO CARWRD F2B05740 CLA NEWTAG GET A NAME F2B05750 STO TS FOR THIS F2B05760 ADD L(1)A SUBSCRIPT AND F2B05770 STO NEWTAG UP DATE NEWTAG. F2B05780 TSX 1NS00,4 USE 1NS00 FOR TEST INFO,LIST. F2B05790 CLA L(6) SET UP TAG TAG F2B05800 ORA L(4)A ENTRY F2B05810 ORA CARWRD F2B05820 SLW $E4 F2B05830 CLA TS F2B05840 STO $E3 F2B05850 CLA L(0) F2B05860 STO $E2 F2B05870 CLA XC F2B05880 ARS 18 F2B05890 ORA ALPHA F2B05900 STO $E1 F2B05910 TSX TAGENT,4 ENTER INTO TAGTAG. F2B05920 LXD XC,1 F2B05930 CLA ABIT F2B05940 ORS DOTGZ+8,1 F2B05950 TRA DOF40 RETURN F2B05960 DOINFO CLA DOTGZ,1 FOR THE DO FORMULA WHOSE F2B05970 PAX 0,2 INDEX IS IN XRA, F2B05980 ANA DECMSK ESTABLISH F2B05990 STO ALPHA ALPHA,BETA,XC,XL F2B06000 PXD 0,2 F2B06010 STO BETA F2B06020 PXD 0,1 F2B06030 STO XC F2B06040 CLA DOTGZ+5,1 F2B06050 ANA DECMSK F2B06060 STO LC F2B06070 TRA 1,4 F2B06080 TAG00 LXD MAXFTG,1 THIS ROUTINE. F2B06090 TRA TAG20 SELECTS EVERY TAG F2B06100 TAG05 CLA FORTZ,1 IN THE RANGE OF THE F2B06110 ANA DECMSK CURRENT DO WHICH F2B06120 CAS ALPHA CONTAINS THE SUBSCRIPT F2B06130 TRA TAG30 SYMBOL OF THE CURRENT F2B06140 TSX ERRORM,4 THE IFN OF A SUBSCRIPTED F2B06150 REM VARIABLE (XR1 WD IN FORTAG) F2B06160 REM SHOULD NOT BE SAME AS IFN F2B06170 REM OF A DO (DECR OF FIRST WD OF F2B06180 REM DOTAG ENTRY WITH XR VALUE IN F2B06190 REM XC). 4TAG IS REC11 FILE 5 F2B06200 REM TAPE 2, DOTAG IS FILE 1 TP 3. F2B06210 TAG10 TXI TAG20,1,-1 PREVIOUSLY BEEN F2B06220 TAG20 TXH TAG05,1,0 PROCESSED, AND (DEC IS 4TAG IX) F2B06230 TRA DOFEND COMPLETELY PROCESSES F2B06240 TAG25 LXD TAG40,1 THE TAG. THE RETURN F2B06250 TRA TAG10 IS TO DOFEND F2B06260 TAG30 CAS BETA COMPARE WITH BETA. F2B06270 TAG40 TXL DOFEND,,0 END RANGE. (DEC HAS 4TAG IX) F2B06280 NOP IF ENTRY IS NEGATIVE, F2B06290 CLA FORTZ,1 THEN IT HAS ALREADY F2B06300 TMI TAG10 BEEN PROCESSED. F2B06310 ANA ADDMSK STORE F2B06320 STO $TAG IN TAG, F2B06330 SXD TAG40,1 AND SAVE INDEX. F2B06340 TSX SUBCOM,4 OBTAIN SUB. COM. F2B06350 NOP F2B06360 TSX IDENT,4 USE IDENT. F2B06370 TRA TAG25 SC. NOT WANTED. F2B06380 TSX NAME,4 SC. TO BE PROCESSED. USE NAME. F2B06390 TSX BRANCH,4 F2B06400 TSX SCEND,4 F2B06410 TSX TAGENT,4 F2B06420 TAG50 LXD L(5),2 F2B06430 TAG52 CLA X1+5,2 ENTER BIT 18 WD 9 F2B06440 TZE TAG58 OF MATCHING DOTAG F2B06450 PDX 0,1 IF 1ST SUBSCR OR F2B06460 TXH TAG56,2,4 IF THERE IS NO F2B06470 CLA CR1 TYPE 1 CARRY INTO F2B06480 TXH TAG54,2,2 THE 2ND AND 3RD F2B06490 ARS 2 SUBSCRS RESPECTIVELY. F2B06500 TAG54 ANA CARWRD F2B06510 TNZ TAG58 F2B06520 TAG56 CLA ABIT ENTER BIT 18 WD 9. F2B06530 ORS DOTGZ+8,1 F2B06540 TAG58 TIX TAG52,2,2 F2B06550 LXD L(5),4 TAG 60 SEQUENCE CONCERNS F2B06560 TAG60 CLA X1+5,4 TESTS AND ADDED TAGS. F2B06570 TZE TAG68 FOR EACH INDEXED SUBSCRIPT, F2B06580 PDX 0,1 DETERMINE F IRST WHETHER F2B06590 CLA RCSUBS OR NOT IT F2B06600 ORA DORC OCCURS WITH F2B06610 TZE TAG66 A RELCON. F2B06620 TXL TAG64,4,1 IF SO, PUT IN F2B06630 CLA CR1 SUBBIT MEANING A TEST F2B06640 TXH TAG62,4,3 IS NEEDED UNLESS F2B06650 ARS 2 THE 1ST AND 2ND F2B06660 TAG62 ANA CARWRD SUBSCR PROMOTE A F2B06670 TNZ TAG68 TYPE ONE CARRY (LEFT F2B06680 TAG64 CLA SUBBIT OR CENTER RESPECTIVELY) F2B06690 ORS DOTGZ+5,1 IS F2B06700 TAG65 TXL TAG68,,0 NEEDED. F2B06710 TAG66 CLA BIT19 F2B06720 ORS DOTGZ+8,1 F2B06730 CLA DOTGZ+5,1 IF THE SS DOES NOT OCCUR F2B06740 ANA 2BITS WITH A RELCON, DETERMINE WHETHER OR F2B06750 TNZ TAG68 NOT A COUNTER HAS BEEN REQUESTED. F2B06760 SXD TAG65,4 IF SO, TAKE NEXT INDEXED SUBSCR. F2B06770 TSX TEST,2 IF NOT, USE ROUTINE TEST. F2B06780 LXD TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT. F2B06790 TAG68 TIX TAG60,4,2 F2B06800 TAG70 LXD TAG40,1 SET ALL OCCURRANCES F2B06810 TAG72 CLA FORTZ,1 OF THIS TAG, IN FORTAG, F2B06820 ANA DECMSK IN THE RANGE OF THIS F2B06830 CAS BETA DO, NEGATIVE. F2B06840 TAG75 TXL TAG25,,0 F2B06850 NOP F2B06860 CLA FORTZ,1 F2B06870 ANA ADDMSK F2B06880 SUB $TAG F2B06890 TNZ TAG80 F2B06900 CAL L(MZ) F2B06910 ORS FORTZ,1 F2B06920 TAG80 TXI TAG90,1,-1 F2B06930 TAG90 TXH TAG72,1,0 (DEC HAS 4TAG INDEX) F2B06940 TRA TAG25 RETURN FOR NEXT TAG. F2B06950 REM SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY F2B06960 SCEND CLA GROUP ALL OF SCEND IS CONCERNED F2B06970 STO TAG1 WITH GENERATING THE F2B06980 CLA DOSUBS TAGTAG ENTRY FROM ITS F2B06990 ORA DUPES F2B07000 ARS 18 VARIOUS COMPONENTS. F2B07010 ORS TAG1 F2B07020 CLA RCSUBS F2B07030 ORA DORC F2B07040 ARS 15 F2B07050 ORS TAG1 F2B07060 CLA DUPES F2B07070 ARS 9 F2B07080 ORS TAG1 F2B07090 CAL CARWRD F2B07100 ORS TAG1 F2B07110 LXD L(5),1 F2B07120 SCE010 CLA L(1) F2B07130 CAS $C1+5,1 GENERATES THE THREE BIT F2B07140 TRA SCE020 TAG SHOWING WHICH F2B07150 TRA SCE020 COEFFICIENTS ARE GREATER F2B07160 PXD 0,1 THAN ONE. F2B07170 TXL SCE015,1,1 F2B07180 SUB L(1) F2B07190 SCE015 ARS 6 F2B07200 ORS TAG1 F2B07210 SCE020 TIX SCE010,1,2 F2B07220 CLA TAG1 TAG1 IS NOW COMPLETE. F2B07230 STO $E4 CONSTRUCT THE TAGTAG F2B07240 CLA $TAG ENTRY F2B07250 ALS 18 F2B07260 ADD TS F2B07270 STO $E3 F2B07280 CLA X3 F2B07290 ARS 18 F2B07300 ADD X2 F2B07310 STO $E2 F2B07320 CLA X1 F2B07330 ARS 18 F2B07340 ADD ALPHA F2B07350 STO $E1 F2B07360 TRA 1,4 F2B07370 TEST CLA DOTGZ+8,1 IF A GOOD F2B07380 TMI 1,2 TEST PREVIOUSLY FOUND, EXIT. F2B07390 SXA TEST80,2 SAVE RETURN. F2B07400 CLA NRSUBS IS TAG THREE F2B07410 SUB L(3) DIMENSIONAL. F2B07420 TNZ TEST05 NO, TEST IS VALID F2B07430 CLA DUPES ARE THERE F2B07440 ANA SUBMSK DUPE SUBSCRIPTS. F2B07450 TNZ TEST05 YES, TEST IS VALID. F2B07460 PXD 0,1 IS CURRENT SUBSCRIPT F2B07470 SUB X3 THE RIGHTMOST. $F2B07480 TZE TEST05 YES, TEST IS VALID. $F2B07490 CLA DOSUBS ARE THE OTHER F2B07500 ANA SUBMSK SUBSCRIPTS F2B07510 ERA SUBMSK DOSUBS. F2B07520 TNZ TEST05 NO, TEST IS VALID. F2B07530 CLA DOTGZ+5,1 IS RIGHTMOST $F2B07540 ANA DECMSK SUBSCRIPT CONTROLLED F2B07550 STO TCL F2B07560 SUB L3 BY A LOWER LEVEL DO. $F2B07570 TMI TEST05 NO, TEST IS VALID. $F2B07580 TRA TSTPCH YES GO TO PATCHED PORTION $F2B07590 RETRN SUB L2ORL1 IS CENTER ,OR LEFT, SS CONTROLLED $F2B07600 TMI TEST05 BY A LOWER LEVEL DO. NO,TEST IS OK$F2B07610 CLA L3 ARE TWO OUTER $F2B07620 SUB L2ORL1 DOS APART $F2B07630 SSP BY ONLY F2B07640 SUB L(1) ONE LEVEL. F2B07650 TNZ TEST80 NO, TEST IS NOT VALID. F2B07660 CLA L3 YES, FIND SUBSCRIPT CONTROLLED F2B07670 SUB L2ORL1 BY OUTER DO. $F2B07680 TMI TEST03 $F2B07690 LXD X2ORX1,2 CENTER (OR LEFT) SS IS CONTROLLED $F2B07700 CAL DOTGZ+7,2 BY OUTER DO. PICK UP TRA BITS $F2B07710 LXD L2ORL1,2 AND LEVEL NO. $F2B07720 TRA TEST04 F2B07730 TEST03 LXD X3,2 RIGHT SUBSCRIPT IS CONTROLLED F2B07740 CAL DOTGZ+7,2 BY OUTER DO. PICK UP TRA BITS F2B07750 LXD L3,2 AND LEVEL NO. F2B07760 TEST04 SXA *+1,2 IS THERE A TRA FROM THE RANGE OF F2B07770 ALS ** THE OUTER DO BACK TO THE RANGE F2B07780 PBT OF THE OUTER DO. F2B07790 TRA TEST05 NO, TEST IS VALID. F2B07800 TRA TEST80 TEST NO GOOD, LEAVE. F2B07810 TEST05 TIX TEST10,4,1 XRC CONTAINS 5,3,1 F2B07820 TEST10 PXD 0,4 DEPENDING ON POSITION NR F2B07830 ALS 3 1,2,3. CONSTRUCT A F2B07840 ORA GROUP TABLE SEARCH MASK IN F2B07850 TXL TEST20,4,1 WHICH THE FORTH OCTAL F2B07860 STO TEST85 DIGIT IS THE CARRY BIT F2B07870 CLA CARWRD INFO. FOR THE POSITION F2B07880 ALS 5,4 BEING CONSIDERED, THE F2B07890 ANA TEST90 FIFTH OCTAL DIGIT IS THE F2B07900 ORA TEST85 POSITION BIT, AND THE F2B07910 TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2B07920 TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2B07930 TXI TEST40,4,-1 SEARCH TESTAB FOR F2B07940 TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2B07950 TXI TEST40,4,-1 C(XRC) AFTER SEARCH, IF F2B07960 TEST40 TXH TEST30,4,0 ENTRY NOT FOUND,C(XRC)=0. F2B07970 TEST50 SXD TEST60,4 COMPARE THIS INTEGER F2B07980 CLA DOTGZ+8,1 WITH PREVIOUS INTEGER, F2B07990 PDX 0,4 IF ANY. IF NEW NR. IS LESS F2B08000 TXL TEST75,4,0 THAN OLD, USE NEW TAG F2B08010 ARS 12 FOR TEST. OTHERWISE F2B08020 PDX 0,4 USE OLD TAG. F2B08030 TEST60 TXL TEST80,4,0 (DEC HAS TEST TAB NR FOR THIS S.C.) F2B08040 TEST70 CLA TEST95 IF THE NEW TAG IS F2B08050 ANS DOTGZ+8,1 USED, AND C(XRC) F2B08060 TEST75 LXD TEST60,4 AFTER SEARCH WAS ZERO, F2B08070 PXD 0,4 SET DOTAGZ+8 WORD F2B08080 ARS 6 NEGATIVE. F2B08090 ORA TS F2B08100 ALS 18 F2B08110 ORS DOTGZ+8,1 F2B08120 TXH TEST80,4,0 F2B08130 CAL L(MZ) F2B08140 ORS DOTGZ+8,1 F2B08150 TEST80 AXT **,2 F2B08160 TRA 1,2 F2B08170 TEST85 PZE STORAGE FOR COMPOSED TEST WORD. F2B08180 TEST90 OCT 300000000 BITS 10, 11 F2B08190 TEST95 OCT 777777 F2B08200 TESTAB OCT 241000000 FIRST SIGNIF DIGIT CONTAINS F2B08210 OCT 221000000 A TWO IF TYPE ONE CARRY , F2B08220 OCT 244000000 ONE IF TYPE TWO FROM LEFT OR F2B08230 OCT 222000000 CENTER. (4TH OCT DIG). NEXT F2B08240 OCT 141000000 HAS 4 IF POSIT OF SUBSC IS F2B08250 OCT 121000000 LEFT, 2 IF CENTER, 0 IF RIGHT F2B08260 OCT 144000000 (5TH OCT DIGIT). FINAL DIG HAS F2B08270 OCT 122000000 GROUP NR. (6TH OCT DIG). F2B08280 OCT 45000000 F2B08290 OCT 41000000 F2B08300 OCT 21000000 F2B08310 OCT 44000000 F2B08320 OCT 22000000 F2B08330 OCT 43000000 F2B08340 OCT 23000000 F2B08350 TCL PZE F2B08360 SUBMSK OCT 3000000 F2B08370 CARRY SXD CAR05,4 SAVE LINKAGE F2B08380 CLA X1+4,2 PUT LEFT INDEX F2B08390 PDX 0,1 IN XRA F2B08400 CLA X1+6,2 PUT RIGHT INDEX F2B08410 PDX 0,4 IN XRC F2B08420 CLA DOTGZ+5,1 TEST LEFT SUB. DO F2B08430 ANA CARMSK CARRY BITS. F2B08440 TZE CAR30 EXIT IF NO CARRY. F2B08450 CLA DOTGZ+6,1 COMPARE F2B08460 ANA DECMSK NO CARRY TRA LEVEL F2B08470 CAS LL AND LOW LEVEL. F2B08480 TRA CAR30 EXIT F2B08490 CAR05 TXL CAR30,,0 F2B08500 CLA DOTGZ+5,1 COMPUTE FOR LEFT F2B08510 ANA ADDMSK SUBSCRIPT THE QUANTITY F2B08520 STO CAR40 C*X (COEF. TIMES ADDED F2B08530 LDQ CAR40 VALUE). F2B08540 MPY $C1+4,2 COMPUTE FOR RIGHT F2B08550 STQ CAR40 SUBSCRIPT THE QUANTITY F2B08560 LDQ $D1 C*N3*D(L) (COEFF. TIMES F2B08570 TXH CAR10,2,2 INCREMENT TIMES DIM. OF F2B08580 LDQ $D2 LEFT SUBSCRIPT). F2B08590 CAR10 MPY DOTGZ+4,4 IF THESE QUANTITIES F2B08600 MPY $C1+6,2 ARE UNEQUAL, F2B08610 ALS 17 EXIT F2B08620 SUB CAR40 F2B08630 TNZ CAR30 OBTAIN LEFT F2B08640 CLA DOTGZ+5,1 SUB. DOTAG F2B08650 ANA CARMSK CARRY BITS AGAIN. F2B08660 ARS 15 TEST FOR F2B08670 LBT CARRY TYPE ONE F2B08680 TRA CAR15 OR CARRY TYPE F2B08690 CLA CR1 TWO. F2B08700 TRA CAR20 OBTAIN PROPER F2B08710 CAR15 CLA CR2 TAGTAG CARRY BIT, F2B08720 CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2B08730 ARS 2 CENTER SUB. AND F2B08740 CAR25 ORS CARWRD PLACE IN CARWRD. F2B08750 CAR30 LXD CAR05,4 EXIT F2B08760 TRA 1,4 F2B08770 CAR40 PZE E.S. F2B08780 BRANCH SXD BRA45,4 IF THERE ARE RELCONS F2B08790 CLA NRRC (NOT DORC) IN THE SC, F2B08800 TZE BRA10 USE F2B08810 TRA CORES RELCON, (CODING BLOCK FOR MIXED RCS.F2B08820 BRA10 LXD NRDS,1 THIS ROUTINE F2B08830 TXH BRA30,1,1 CONDENSES F2B08840 BRA20 TSX 1NS00,4 DUPLICATE F2B08850 TRA BRA90 SUBSCRIPTS F2B08860 BRA30 TXH BRA50,1,2 AND F2B08870 CLA DUPES TRANSFERS F2B08880 TNZ BRA20 TO F2B08890 BRA40 TSX 2NS00,4 ROUTINES F2B08900 BRA45 TXL BRA90,,0 1NS00, 2NS00, 3NS00 F2B08910 BRA50 LXD DUPES,4 AFTER F2B08920 TXH BRA20,4,6 PROCESSING, F2B08930 TXL BRA80,4,0 RETURN F2B08940 TXH BRA60,4,5 IS TO F2B08950 TXL BRA60,4,3 DRMENT OR F2B08960 CLA L(3) TAG00 F2B08970 TRA BRA70 F2B08980 BRA60 CLA L(5) F2B08990 BRA70 STO DOSUBS F2B09000 TRA BRA40 F2B09010 BRA80 TSX 3NS00,4 F2B09020 BRA90 LXD BRA45,4 F2B09030 TRA 1,4 F2B09040 RSR SXD RSR20,4 SAVE LINKAGE F2B09050 SXD RSR30,1 SAVE INDEX F2B09060 CLA DOTGZ+6,1 HAS COUNTER ADJUSTMENT F2B09070 ANA BIT18 INSTRUCTION BEEN ENTERED. F2B09080 TNZ RSR10 IF SO, GO TO RSR10 F2B09090 CLA BIT18 IF NOT, ENTER IN F2B09100 ORS DOTGZ+6,1 TRASTO AN ENTRY TO CAUSE F2B09110 CLA DOTGZ,1 THE COUNTER TO BE F2B09120 SSM F2B09130 STO $E1 DECREASED BY N1, WHICH F2B09140 CLA DOTGZ+5,1 WILL MAKE IT USEFUL AS F2B09150 ANA DECMSK AS A RESET SUB. COMB. F2B09160 ARS 18 F2B09170 STO $E2 F2B09180 CLA DOTGZ+8,1 F2B09190 ANA DECMSK F2B09200 ORA DOTGZ+2,1 F2B09210 STO $E3 F2B09220 CLA TRASTO F2B09230 TSX $LIST,4 F2B09240 RSR10 LXD RSR30,1 ENTER IN TRASTO F2B09250 CLA DOTGZ+8,1 AN ENTRY TO CAUSE F2B09260 ANA DECMSK THE TAG UNDER F2B09270 ORA TS CONSIDERATION F2B09280 SSM F2B09290 STO $E3 TO BE RESET F2B09300 CLA TL2 BY THE ADJUSTED F2B09310 ARS 18 COUNTER AT THE F2B09320 ORA TL1 PROPER TIMES. F2B09330 STO $E2 F2B09340 CLA DOTGZ,1 F2B09350 STO $E1 F2B09360 CLA TRASTO F2B09370 TSX $LIST,4 F2B09380 LXD RSR20,4 F2B09390 TRA 1,4 F2B09400 RSR20 PZE F2B09410 RSR30 PZE F2B09420 DRMENT SXD DRM05,4 THIS ROUTINE F2B09430 LXD ADTXX,2 PROCESSES THE F2B09440 SXD DRM20,2 ADDED TAG TABLE F2B09450 LXA ADTXX,2 F2B09460 DRM05 TXL DRM20,,0 F2B09470 DRM10 CLA ADTAGZ,2 OBTAIN FIRST ENTRY WORD. F2B09480 PDX 0,1 PUT INDEX IN XRA. F2B09490 ANA ADDMSK STORE TAG F2B09500 STO $TAG IN TAG F2B09510 STO TS AND TS F2B09520 PXD 0,1 PUT INDEX F2B09530 STO XC IN XC F2B09540 SXD DRM30,2 SAVE INDEX B. F2B09550 CLA ADTAGZ+1,2 OBTAIN WORD TWO. F2B09560 TMI DRM40 TRA IF RESET ENTRY. F2B09570 STO TS SAVE NAME IN TS. F2B09580 TSX DOINFO,4 USE DOINFO F2B09590 TSX SUBCOM,4 AND F2B09600 NOP OTHER F2B09610 TSX IDENT,4 ROUTINES F2B09620 TSX ERRORM,4 SECOND WD OF XR1 DOTAG ENTRY F2B09630 REM SHOULD BE EQUAL TO S1,S2,OR F2B09640 REM S3. DOTAG IS FROM FILE 1 TAPE 3, F2B09650 REM AND S1,2,AND 3 COME FROM THE F2B09660 REM TAU TABLES IN CORE. F2B09670 TSX BRANCH,4 PROCESS F2B09680 TSX SCEND,4 ENTRY. F2B09690 CLA DRMTAG F2B09700 TSX $LIST,4 ENTER RESULT IN DRMTAG. F2B09710 DRM15 LXD DRM30,2 F2B09720 TXI DRM20,2,-2 F2B09730 DRM20 TXH DRM10,2,0 F2B09740 LXD DRM05,4 F2B09750 TRA 1,4 F2B09760 DRM30 PZE F2B09770 DRM40 PAX 0,4 FOR RESET ENTRY, F2B09780 ANA DECMSK INITIALIZE CELLS F2B09790 STO TL1 USED IN RSR ROUTINE. F2B09800 PXD 0,4 F2B09810 STO TL2 F2B09820 TSX RSR,4 F2B09830 TRA DRM15 TRA FOR NEXT ENTRY. F2B09840 REM SUBROUTINE TAGADD F2B09850 TAGADD TXH TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG F2B09860 PXD 0,1 F2B09870 TAGAD1 LXD ADTXX,1 F2B09880 TXL TAGAD6,1,0 F2B09890 TXH TAGAD8,2,0 XRB=1,NORMAL ADDED TAG F2B09900 ADD $TAG F2B09910 STO ADTAGZ,1 F2B09920 CLA NEWTAG F2B09930 LDQ NEWTAG F2B09940 STO ADTAGZ+1,1 F2B09950 ADD L(1)A F2B09960 STO NEWTAG F2B09970 TXI TAGAD2,1,-2 F2B09980 TAGAD2 SXD ADTXX,1 F2B09990 TAGAD3 TRA 1,4 F2B10000 TAGAD6 TSX ERROR8,4 ADTAG TABLE IS FULL. F2B10010 TAGAD8 STO ADTAGZ,1 F2B10020 STQ ADTAGZ+1,1 F2B10030 TXI TAGAD2,1,-2 F2B10040 REM INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG F2B10050 REM FOUND F2B10060 REM SUBROUTINE TRAWRD F2B10070 TRWRD SXD TRW65,4 F2B10080 CLA L(0) F2B10090 STO TRABIT F2B10100 CLA DOTGZ+5,1 F2B10110 STD TRW30 F2B10120 TRW10 CLA DOTGZ+7,1 GET T2 WORD F2B10130 ORS TRABIT OR INTO TRABIT F2B10140 TXI TRW20,1,-9 TAKE NEXT DO F2B10150 TRW20 TXL TRW70,1,0 IF NONE, EXIT. F2B10160 CLA DOTGZ+5,1 GET L WORD F2B10170 PDX 0,4 PUT L IN XRC. F2B10180 TRW30 TXL TRW70,4,0 EXIT IF DO IS NOT IN R1. F2B10190 TXL TRW10,2,1 IF COMPLETE TEST, GO BACK F2B10200 TRW35 CLA DOTGZ+1,1 IF INCOMPLETE, IS THIS A F2B10210 SUB $RSYM2 DO TO BE SKIPPED F2B10220 TNZ TRW10 IF NOT, GO BACK F2B10230 CLA DOTGZ+5,1 THIS DO IS TO BE SKIPPED F2B10240 STD TRW60 PUT LEVEL OF THIS DO IN INSTR F2B10250 TRW40 TXI TRW50,1,-9 TAKE NEXT DO, IF ANY F2B10260 TRW50 TXL TRW70,1,0 IF NOT, EXIT. F2B10270 CLA DOTGZ+5,1 OBTAIN L WORD. F2B10280 PDX 0,4 PUT L IN XRC F2B10290 TRW60 TXH TRW40,4,0 IF DO IS IN RANGE R2, GO BACK. F2B10300 TRW65 TXL TRW30,,0 OTHERWISE, GO TO TRW30. F2B10310 TRW70 LXD TRW65,4 F2B10320 CLA L(36) OBTAIN 36 IN DECREMENT F2B10330 SUB TL2 36-TL2 F2B10340 ARS 18 IN ADDRESS F2B10350 STA TRW90 INITIALIZE SHIFT F2B10360 CLA TL2 OBTAIN TL2 F2B10370 SUB TL1 TL2-TL1 F2B10380 ARS 18 IN ADDRESS F2B10390 STA TRW80 INITIALIZE SHIFT F2B10400 CLA L(0) ACC CONTAINS ZERO F2B10410 LDQ 35ONES MQ CONTAINS ALL ONES F2B10420 TRW80 LLS ** PUT TL2-TL1 ONES IN AC. F2B10430 TRW90 ALS ** POSITION ONES IN AC. F2B10440 ANA TRABIT AND IN TRANSFER BITS F2B10450 TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2B10460 REM SUBROUTINES TAGENT AND TETAPE F2B10470 TAGENT LXD TAGXX,1 THIS ROUTINE ENTERS F2B10480 TXH TE10,1,0 ONE ENTRY IN TAGZ, F2B10490 TSX ERRO11,4 TAGTAG IS FULL. F2B10500 TE10 LXD L(4),2 TRA TO TETAPE. F2B10510 TE20 CLA $E1+4,2 F2B10520 STO TAGZ,1 F2B10530 TXI TE30,1,-1 F2B10540 TE30 TIX TE20,2,1 F2B10550 SXD TAGXX,1 F2B10560 TRA 1,4 F2B10570 *ROUTI NE TETAPE ENTERS ALL THE VALID ENTRIES IN TAGTAG ON TP. THE LAST F2B10580 *ENTRY ON TAPE AFTER EACH NEST IS AN ENTRY OF 4 WDS OF 35 ONES. F2B10590 * *** F2B10600 TETAPE TSX (TAPE),4 REWIND DOTAG A F2B10610 PZE REWIND,,(SKBP) TAPE. F2B10620 PZE DTGL,,FTAPE3 F2B10630 CLA TAGXX GET XR VALUE OF F2B10640 ARS 18 TAGTAG IN DEC AND F2B10650 SUB TAGXX COMPUTE NR WDS F2B10660 ALS 18 F2B10670 STD TETCOM F2B10680 SXA TET20,4 F2B10690 * *** F2B10700 TET10 TSX (TAPE),4 WRITE F2B10710 PZE TETCOM,,(WBNP) TAGTAG F2B10720 PZE TAGL,,FTAPE4 TABLE. F2B10730 TET20 AXT 0,4 F2B10740 TRA END F2B10750 TETCOM IOCT TAGTAG,0,0 DEC INITIALIZED WC TAGTAG $F2B10760 TAGL BCI 1,TAGTAG F2B10770 IDENT SXD ID075,4 SAVE INDEX F2B10780 AXT 18,1 INITIALIZE IDENT STORAGE F2B10790 CLA L(0) TO ZERO F2B10800 STO IDES F2B10810 ID010 STO X1+18,1 F2B10820 TIX ID010,1,1 F2B10830 CLA 35ONES INITIALIZE F2B10840 STO LL LOW LEVEL F2B10850 LXD L(0),2 COUNT THE SUBSCRIPT F2B10860 LXD L(5),4 SYMBOLS. F2B10870 ID020 CLA $S1+5,4 STORE COUNT IN F2B10880 TZE ID030 NRSUBS, AND ALSO IN F2B10890 TXI ID030,2,1 NRRC, WHICH IS THE F2B10900 ID030 TIX ID020,4,2 COUNT OF REL. CON. F2B10910 PXD 0,2 SUBSCRIPTS. DO SUBS ARE F2B10920 STO NRRC SUBTRACTED OUT LATER. F2B10930 STO NRSUBS F2B10940 LXD XC,1 COMPARE EACH SYMBOL F2B10950 LXD LC,2 IN THE SUB. COMB. WITH F2B10960 PSE TL THE SYMBOL OF EACH F2B10970 ID050 CLA DOTGZ+1,1 DO IN THE SUB NEST. F2B10980 LXD L(5),4 WHEN EQUALITY IS F2B10990 ID060 CAS $S1+5,4 FOUND, GO TO ID120 F2B11000 TRA ID070 IF THE CURRENT DO F2B11010 TRA ID120 SYMBOL IS NOT FOUND, F2B11020 ID070 TIX ID060,4,2 MAKE EXIT FROM ID410 F2B11030 MSE TL F2B11040 TRA ID080 F2B11050 ID075 TXL ID410,,0 F2B11060 ID080 TXL ID150,2,1 THESE INSTRUCTIONS F2B11070 ID090 TXI ID100,1,9 FIND THE NEXT BACK F2B11080 ID100 CLA DOTGZ+5,1 SUB NEST DO FORMULA, F2B11090 STD ID110 AND RETURN CONTROL F2B11100 ID110 TXL ID090,2,0 TO ID050. F2B11110 PDX 0,2 F2B11120 TRA ID050 F2B11130 ID120 MSE TL TURN OFF TEST LIGHT F2B11140 NOP AND F2B11150 PXD 0,1 ESTABLISH F2B11160 STO X1+5,4 INDEX F2B11170 PXD 0,2 AND F2B11180 STO L1+5,4 LEVEL FOR THIS SUBSCRIPT. F2B11190 CLA NRRC SUBTRACT ONE FROM F2B11200 SUB L(1) NRRC. THIS WORD F2B11210 STO NRRC CONTAINS INITIALLY F2B11220 TZE ID150 THE NUMBER OF F2B11230 CLA DOTGZ+1,1 SUBSCRIPTS IN THE F2B11240 TRA ID070 COMBINATION. F2B11250 ID150 CLA X1 THIS ROUTINE F2B11260 LDQ X2 LOOKS FOR THE F2B11270 TLQ PT041 OUTERMOST F2B11280 CLA X2 DOTAG F2B11290 PT041 LDQ X3 OF A F2B11300 TLQ PT042 SUBSCRIPT F2B11310 CLA X3 COMBINATION. F2B11320 PT042 STO PT043 F2B11330 LXD L(6),4 F2B11340 LXD L(3),3 F2B11350 TRA ID160 RETURN F2B11360 PT043 PZE F2B11370 ID160 CLA $S1+3,1 WHICH CAN BE ASSIGNED. F2B11380 TZE ID170 HAVE BEEN ASSIGNED. F2B11390 SUB $S1+5,2 THIS F2B11400 TNZ ID170 ROUTINE F2B11410 PXD 0,4 MAKES UP THE F2B11420 ORS DUPES DUPLICATE F2B11430 ID170 TIX ID180,4,1 SUBSCRIPT F2B11440 ID180 TIX ID160,2,2 WORD. F2B11450 TIX ID190,4,1 F2B11460 ID190 TIX ID160,1,2 F2B11470 LXD NRRC,2 IF THERE IS MORE F2B11480 TXL ID300,2,0 THAN ONE RELCON, F2B11490 TXL ID195,2,1 AND IF THERE ARE F2B11500 CLA DUPES DUPLICATES, THEN THE F2B11510 STO RCDUP RELCONS ARE DUPLICATES. F2B11520 CLA L(0) OTHERWISE, THE DOSUBS F2B11530 STO DUPES ARE DUPLICATES. F2B11540 ID195 LXD L(5),4 IF THERE ARE RELCONS, F2B11550 ID200 CLA L1+5,4 THERE ARE NOT MORE F2B11560 TNZ ID210 THAN TWO. F2B11570 CLA $S1+5,4 PUT THEIR SYMBOLS F2B11580 TZE ID210 IN PSYM1 AND RSYM2, F2B11590 PXD 0,4 AND PUT BITS IN THE F2B11600 TXL ID205,4,1 PROPER POSITIONS OF F2B11610 SUB L(1) RCSUBS. F2B11620 ID205 ORS RCSUBS F2B11630 CLA $S1+5,4 F2B11640 TNX ID220,2,1 F2B11650 STO $RSYM2 F2B11660 ID210 TIX ID200,4,2 F2B11670 TRA ID300 F2B11680 ID220 STO $RSYM1 F2B11690 ID300 LXD L(5),4 FOR ALL DO SUBS, F2B11700 ID310 CLA X1+5,4 SELECT THE F2B11710 TZE ID340 MAXIMUM OF ALL F2B11720 PDX 0,1 VARAIBLE N LEVEL F2B11730 LXD L(3),2 OF DEFINITION F2B11740 ID320 CLA DOTGZ+6,1 QUANTITIES. F2B11750 ANA ADDMSK F2B11760 ALS 18 F2B11770 CAS IDES F2B11780 STO IDES F2B11790 NOP F2B11800 TIX ID330,1,1 F2B11810 ID330 TIX ID320,2,1 F2B11820 ID340 TIX ID310,4,2 F2B11830 LXD L(5),4 COMPARE THIS MAXIMUM F2B11840 LXD L(0),2 F2B11850 ID350 CLA L1+5,4 WITH EACH SUBSCRIPT F2B11860 TZE ID380 LEVEL, THOSE SUBSCRIPT F2B11870 CAS IDES LEVELS LESS THAN OR F2B11880 TRA ID370 EQUAL TO THE MAXIMUM F2B11890 NOP LEVEL OF DEFINITION F2B11900 PXD 0,4 QUANTITY WILL BE TREATED F2B11910 TXL ID360,4,1 AS REL. CONS. F2B11920 SUB L(1) INDICATE THIS CONDITION F2B11930 ID360 ORS DORC IN THE DORC WORD. F2B11940 CLA X1+5,4 F2B11950 PDX 0,1 F2B11960 CLA BITONE MAKE INDICATION FOR STORED COUNTER F2B11970 ORS DOTGZ+5,1 FOR THIS DORC. F2B11980 PXD 0,0 CLEAR X(N) AND L(N) F2B11990 STO L1+5,4 SINCE THEY ARE NO LONGER DOSUBS. F2B12000 STO X1+5,4 F2B12010 TRA ID380 F2B12020 ID370 CAS LL FOR TRUE DO SUBS. F2B12030 TRA ID372 ESTABLISH LOW LEVEL F2B12040 TRA ID372 AND LOW INDEX. LOW F2B12050 STO LL LEVEL WORD WAS F2B12060 CLA X1+5,4 INITIALIZED TO F2B12070 STO XL 35ONES. F2B12080 SXD LOWPOS,4 F2B12090 ID372 PXD 0,4 PUT BITS IN F2B12100 TXL ID375,4,1 PROPER POSITIONS F2B12110 SUB L(1) OF DOSUBS F2B12120 ID375 ORS DOSUBS WORD F2B12130 TXI ID380,2,1 F2B12140 ID380 TIX ID350,4,2 F2B12150 PXD 0,2 F2B12160 STO NRDS CHECK TO SEE THAT F2B12170 TNZ ID385 AT LEAST ONE SUBSCR IS A DOSUB F2B12180 TSX ERRORM,4 AC (ALSO IN NRDS) SHOULD NOT F2B12190 REM BE ZERO. XR2 PLACED IN AC TO F2B12200 REM TEST. F2B12210 ID385 LXD NRRC,2 THESE INSTRUCTIONS F2B12220 TXL ID400,2,0 COMPUTE DELTA. F2B12230 LXD L(1),4 IF ONE DISTINCT DOSUB, F2B12240 CLA RCDUP ONE DISTINCT RELCON, F2B12250 TNZ ID395 DELTA IS ONE. F2B12260 CLA DUPES IF TWO DISTINCT DOSUBS, F2B12270 TNZ ID395 ONE RELCON, DELTA IS TWO. F2B12280 TXL ID390,2,1 IF ONE DOSUB, TWO F2B12290 TXI ID395,4,2 DISTINCT RELCONS, F2B12300 ID390 LXD NRDS,2 DELTA IS THREE. F2B12310 TXL ID395,2,1 FOR ALL OTHER CASES, F2B12320 TXI ID395,4,1 DELTA IS ZERO. F2B12330 ID395 PXD 0,4 F2B12340 STO DELTA F2B12350 ID400 LXD ID075,4 EXIT, F2B12360 TRA 2,4 SUBCOM USED. F2B12370 ID410 LXD ID075,4 EXIT, F2B12380 TRA 1,4 SUBCOMB NOT USED. F2B12390 IDES PZE F2B12400 NAME SXD NAM10,4 SAVE LINKAGE F2B12410 CLA $TAG PUT TAU IN TS F2B12420 PAT05 STO TS P463 S F2B12430 LXD PT043,1 F2B12440 RET01 TSX TINFOR,4 SEARCH RANGE OF XL F2B12450 TRA NAM20 (FOUND) FOR NEGATICE TAG. F2B12460 NAM10 TXL NAM50,,0 NOT FOUND F2B12470 NAM20 CLA NEWTAG OBTAIN F2B12480 STO TS NEW F2B12490 ADD L(1)A NAME F2B12500 STO NEWTAG F2B12510 LXD XC,1 ARRANGE F2B12520 CLA DOTGZ,1 ENTRY BLOCK F2B12530 STO $E1 FOR CHATAG F2B12540 CLA $TAG ENTRY F2B12550 ALS 18 F2B12560 ADD TS F2B12570 STO $E2 F2B12580 CLA CHATAG F2B12590 LXD NRRC,4 USE LIST OR SPC000, F2B12600 TXH NAM30,4,0 DEPENDING UPON F2B12610 TSX $LIST,4 WHETHER OR NOT F2B12620 TRA NAM40 WORD NRRC IS ZERO. I.E., ARE THERE RF2B12630 NAM30 LXD L(2),2 NO TINFOR SEARCH REQUIRED. F2B12640 TSX SPC000,4 F2B12650 NAM40 CLA ALPHA ENTER ALPHA AND F2B12660 ORA $TAG NAME F2B12670 STO $E1 IN F2B12680 CLA TS NAME F2B12690 STO $E2 TABLE. F2B12700 CLA NAMKEY ENTER INTO F2B12710 TSX $LIST,4 NAME (OR NAMEKEY) TABLE. F2B12720 CLA LADDIN+3 UPDATE F2B12730 ARS 18 NAMXX INDEX REG F2B12740 SUB $LADDS+3 VALUES. F2B12750 ALS 18 . F2B12760 STD NAMXX . F2B12770 NAM50 LXD NAM10,4 EXIT F2B12780 TRA 1,4 F2B12790 REM 1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.F2B12800 1NS00 SXD 1NS20,4 SAVE LINKAGE F2B12810 LXD XC,1 F2B12820 CLA BITTWO IF A COUNTER HAS F2B12830 ANA DOTGZ+6,1 BEEN FOUND, F2B12840 TNZ 1NS10 GO TO 1NS10 F2B12850 LXD DOSUBS,4 SKIP TO 1NS10 F2B12860 TXL 1NS10,4,3 IF NOT FIRST POSITION. F2B12870 TXH 1NS10,4,4 F2B12880 CLA RCSUBS IF ANY RELCONS, F2B12890 ORA DORC GO TO 1NS10 F2B12900 TNZ 1NS10 F2B12910 LXD $C1,4 IF C1 IS NOT ONE, F2B12920 TXH 1NS10,4,1 GO TO 1NS10 F2B12930 CLA ADDMSK THIS SUB. COMB. WILL SERVE F2B12940 ANS DOTGZ+8,1 AS COUNTER AND TEST. ENTER IN F2B12950 CLA TS DOTAGZ+8. F2B12960 ALS 18 INDICATE F2B12970 ORA L(MZ) BEST TEST F2B12980 ORS DOTGZ+8,1 FOUND. F2B12990 CLA BITTWO INDICATE COUNTER FOUND. F2B13000 ORS DOTGZ+6,1 F2B13010 CAL L(MZ) SET CARWRD NEGATIVE. F2B13020 ORS CARWRD TEST BITONE OF L WORD. F2B13030 CLA BITONE IF ONE, SKIP TRASTO F2B13040 ANA DOTGZ+5,1 TEST. F2B13050 TNZ 1NS10 F2B13060 1NS05 CLA DOTGZ+5,1 TEST TO SEE IF TRANSFER F2B13070 TPL 1NS10 STORE NECESSARY. F2B13080 CLA DOTGZ,1 MAKE TRASTO ENTRY F2B13090 STO $E1 TO STORE COUNTER F2B13100 CLA DOTGZ+1,1 IN LOCATION OF SYMBOL. F2B13110 STO $E2 F2B13120 CLA LC F2B13130 ORA TS F2B13140 STO $E3 F2B13150 CLA TRASTO F2B13160 TSX $LIST,4 F2B13170 1NS10 CLA L(6) ENTER F2B13180 STO GROUP GROUP NR. F2B13190 LXD 1NS20,4 AND EXIT. F2B13200 TRA 1,4 F2B13210 1NS20 PZE F2B13220 REM 2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED F2B13230 REM SUBSCRIPTS. F2B13240 2NS00 SXD 2NS25,4 SAVE LINKAAGE F2B13250 2NS10 LXD DOSUBS,1 2NS10 TO 2NS80 DETERMINE THE F2B13260 LXD L(2),2 GROUP NR AND CARRY BITS F2B13270 CLA L1 FOR THE SL. F2B13280 TXH 2NS20,1,3 F2B13290 CLA L2 F2B13300 2NS20 TXL 2NS30,1,5 F2B13310 SUB L2 F2B13320 2NS25 TXL 2NS40,,0 F2B13330 2NS30 SUB L3 F2B13340 2NS40 TMI 2NS70 F2B13350 SUB L(1) F2B13360 TNZ 2NS60 F2B13370 TXL 2NS50,1,3 F2B13380 TXL 2NS60,1,5 F2B13390 TXI 2NS50,2,2 F2B13400 2NS50 LXD DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT F2B13410 TXH 2NS60,4,0 FOR DUPLICATES IN A REDUCED F2B13420 TSX CARRY,4 3NS CASE. F2B13430 2NS60 CLA L(1) F2B13440 2NS65 TXL 2NS80,,0 F2B13450 2NS70 CLA L(6) F2B13460 2NS80 STO GROUP F2B13470 PDX 0,4 F2B13480 LXD DOSUBS,2 THIS ROUTINE,TO 2NS90, F2B13490 CLA L1 PREPARES A TRAWRD CALLING F2B13500 TXH 2NS82,2,3 SEQUENCE TO DETERMINE F2B13510 CLA L2 WHETHER OR NOT RESETTING F2B13520 2NS82 TXL 2NS84,2,5 IS NECESSARY F2B13530 LDQ L2 F2B13540 TRA 2NS86 F2B13550 2NS84 LDQ L3 F2B13560 2NS86 TXL 2NS88,4,1 TEST GROUP F2B13570 STO TL1 F2B13580 STQ TL2 F2B13590 LXD X3,1 F2B13600 CLA L(1) F2B13610 TXL 2NS90,2,5 F2B13620 LXD X2,1 F2B13630 CLA L(2) F2B13640 TRA 2NS90 F2B13650 2NS88 STO TL2 F2B13660 STQ TL1 F2B13670 LXD X1,1 F2B13680 CLA L(4) F2B13690 TXH 2NS90,2,3 F2B13700 LXD X2,1 F2B13710 CLA L(2) F2B13720 2NS90 STO REBITS 2NS90 SEQ. SINGLE REBITS F2B13730 ANA DUPES ARE PART OF THE TAG OF THE F2B13740 TZE 2NS91 RESETTING SC,IT MUST BE F2B13750 CLA REBITS ADJUSTED FOR DUPE RESETS. F2B13760 ORA DUPES F2B13770 STO REBITS F2B13780 2NS91 SXD 2NS65,1 F2B13790 LXD L(1),2 F2B13800 TSX TRWRD,4 TEST FOR TRANSFER BITS. F2B13810 TZE 2NSEND RESETTING NOT NECESSARY IF F2B13820 LXD REBITS,2 TRAWRD RESULT ZERO. IF F2B13830 LXD 2NS65,1 RESETTING NECESSARY, EXECUTE F2B13840 TSX RESET,4 RESET ROUTINE AND F2B13850 2NSEND LXD 2NS25,4 EXIT F2B13860 TRA 1,4 F2B13870 REM 3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED F2B13880 REM SUBSCRIPTS. F2B13890 3NS00 SXD 3GRP15,4 SAVE LINKAGE F2B13900 REM THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC F2B13910 LXD L(0),2 PUT ZERO IN XRB F2B13920 CLA L3 OBTAIN L3 F2B13930 CAS L2 COMPARE WITH L2 F2B13940 TXI 3GRP10,2,4 L3 GREATER THAN L2 F2B13950 TSX ERRORM,4 LEVEL NOS.(L2,L3) SHOULD NOT F2B13960 REM BE EQUAL. LEVEL TAKEN FROM THE F2B13970 REM SECOND WD OF DOTAG ENTRY. F2B13980 3GRP10 CAS L1 L3 LESS THAN L2,COMPARE L3,L1 F2B13990 3GRP15 TXL 3GRP20,,0 L3 GREATER THAN L1. F2B14000 TSX ERRORM,4 LEVEL NO. OF INNER NEST (L3) F2B14010 REM SHOULD BE GREATER THAN THAT OF F2B14020 REM OUTER NEST (L1). F2B14030 TXI 3GRP20,2,1 L3 LESS THAN L1 F2B14040 3GRP20 CLA L2 OBTAIN L2 F2B14050 SUB L1 SUBTRACT L1 F2B14060 TMI 3GRP30 TRA IF L2 LESS THAN L1 F2B14070 TXI 3GRP30,2,2 L2 GREATER THAN L1 F2B14080 3GRP30 PXD 0,2 PUT GROUP NUMBER IN ACC DEC. F2B14090 STO GROUP OR INTO TAG 1 F2B14100 CLA L1 OBTAIN L1 F2B14110 SUB L(1) L1 LESS 1 F2B14120 SUB L2 L1 LESS 1 LESS L2 F2B14130 TNZ 3GRP40 NOT ZERO,NO CARRY,TRA F2B14140 LXD L(4),2 SET XRB F2B14150 TSX CARRY,4 AND TSX TO CARRY F2B14160 3GRP40 CLA L2 RE-ENTRY,OBTAIN L2 F2B14170 SUB L(1) L2 LESS 1 F2B14180 SUB L3 L2 LESS 1 LESS L3 F2B14190 TNZ 3GRP50 NOT ZERO,NO CARRY,TRA F2B14200 LXD L(2),2 SET XRB F2B14210 TSX CARRY,4 AND TSX TO CARRY F2B14220 3GRP50 LXD L(0),6 THE FOLLOWING ROUTINE, F2B14230 LXD GROUP,1 THROUGH 3GRP72, COMPUTES F2B14240 3GRP55 TRA 3GRP55+7,1 QUANTITIES FOR XRB, XRC. F2B14250 TXI 3GRP65,2,2 GROUP IS SIX F2B14260 TXI 3GRP65,4,4 FIVE F2B14270 TXI 3GRP65,2,4 FOUR F2B14280 TXI 3GRP60,6,2 THREE F2B14290 TXI 3GRP65,4,2 TWO F2B14300 TXI 3GRP60,4,4 ONE F2B14310 3GRP60 TXI 3GRP65,2,2 F2B14320 3GRP65 CLA X1+4,4 F2B14330 STO INX F2B14340 CLA X1+5,4 F2B14350 STO INL F2B14360 CLA X1+4,2 F2B14370 STO MIDX F2B14380 CLA X1+5,2 F2B14390 STO MIDL F2B14400 TXH 3GRP70,4,0 THE QUANTITIES IN XRB. F2B14410 TXI 3GRP70,4,1 XRC, ARE ZERO, TWO, OR F2B14420 3GRP70 SXD INP,4 FOUR, ADJUSTED TO ONE, F2B14430 TXH 3GRP72,2,0 TWO, FOUR, TO INDICATE THE F2B14440 TXI 3GRP72,2,1 POSITION OF THE SUBCCRIPT F2B14450 3GRP72 SXD MIDP,2 BEING RESET, STORE IN INP, MIDP. F2B14460 LXD L(4),4 THIS LOOP IS EXECUTED TWICE. F2B14470 3GRP75 CLA INX+4,4 OBTAIN INNER INDEX OF PAIR F2B14480 PDX 0,1 IN XRA F2B14490 CLA INL+4,4 OBTAIN INNER LEVEL OF PAIR F2B14500 STO TL2 TL2 F2B14510 CLA LL OBTAIN LOWER LEVEL IN F2B14520 STO TL1 TL1 F2B14530 LXD L(1),2 PUT ONE IN XRB, F2B14540 SXD 3GRP80,4 SAVE XRC, F2B14550 TSX TRWRD,4 AND USE TRWRD. F2B14560 LXD 3GRP80,4 RESTORE XRC, F2B14570 TZE 3GRP77 GO TO INDEXING IF ZERO. F2B14580 CLA INP+4,4 TRAWRD RESULT NOT ZERO. F2B14590 PDX 0,2 PREPARE TO F2B14600 CLA INX+4,4 USE RESET F2B14610 PDX 0,1 F2B14620 SXD 3GRP80,4 SAVE XRC, F2B14630 TSX RESET,4 GO TO RESET, F2B14640 LXD 3GRP80,4 RESTROE XRC, F2B14650 3GRP77 TIX 3GRP75,4,2 INDEX AND GO BACK, F2B14660 TRA 3NSEND OR EXIT F2B14670 INP PZE POSITION OF INNER SUB. F2B14680 3GRP80 PZE F2B14690 MIDP PZE POSITION OF MIDDLE SUB. F2B14700 INX PZE INDEX INNER LEVEL SUB. F2B14710 INL PZE LEVEL INNER LEVEL SUB. F2B14720 MIDX PZE INDEX MIDDLE LEVEL SUB. F2B14730 MIDL PZE LEVEL INNER LEVEL SUB. F2B14740 3NSEND LXD 3GRP15,4 F2B14750 TRA 1,4 F2B14760 RESET SXD RES45,4 SAVE LINKAGE F2B14770 PXD 0,2 SAVE F2B14780 STO RES300 PREFIX (REBITS) F2B14790 PXD 0,1 SAVE INDEX F2B14800 STO RES310 OF RESET F2B14810 CLA $C3 OBTAIN C3 IN F2B14820 ARS 18 ADDRESS PART. F2B14830 RES05 TRA RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS) F2B14840 TRA RES50 C(XRB)=110 F2B14850 TRA RES30 C(XRB)=101 F2B14860 TRA RES40 C(XRB)=100 F2B14870 TRA RES20 C(XRB)=011 F2B14880 TRA RES50 C(XRB)= 010 F2B14890 RES10 STO $E2 C(XRB)=001 F2B14900 CLA $D2 THESE INSTRUCTIONS, THRU F2B14910 ARS 18 RES60, COMPUTE THE F2B14920 ADD $D1 CHARACTERISTIC WORDS OF THE F2B14930 TRA RES60 SUBSCRIPT COMBINATION. F2B14940 RES20 ADD $C2 F2B14950 TRA RES10 F2B14960 RES30 ADD $C1 F2B14970 TRA RES10 F2B14980 RES40 CLA $C1 F2B14990 STO $E2 F2B15000 CLA L(0) F2B15010 RES45 TXL RES60,,0 F2B15020 RES50 CLA $C2 F2B15030 ARS 18 F2B15040 TXL RES55,2,2 F2B15050 ADD $C1 F2B15060 RES55 STO $E2 F2B15070 CLA $D1 F2B15080 RES60 STO $E3 F2B15090 TXH RES65,2,4 IF PREFIX IS 1,0,0, F2B15100 TXH RES400,2,3 T RA TO RES400 F2B15110 RES65 LXD RESXX,1 SEARCH F2B15120 SXD RES75,1 RETAB F2B15130 LXA RESXX,1 FOR F2B15140 TRA RES75 SAME F2B15150 RES70 CLA RETABZ,1 INDEX. F2B15160 ANA DECMSK F2B15170 CAS RES310 F2B15180 TXI RES75,1,-3 F2B15190 TRA RES80 INDEX FOUND, GO TO RES80 F2B15200 RES73 TXI RES75,1,-3 F2B15210 RES75 TXH RES70,1,0 F2B15220 TRA RES85 NOT FOUND, GO TO RES85 F2B15230 RES80 CLA RETABZ,1 COMPARE PREFIX OF F2B15240 ANA RES320 RETAB ENTRY F2B15250 ALS 6 WITH CURRENT F2B15260 SUB RES300 PREFIX. IF NOT EQUAL, F2B15270 TNZ RES73 CONTINUE RETAB SEARCH. F2B15280 CLA RETABZ+1,1 IF EQUAL, COMPARE F2B15290 SUB $E2 CHARACTERISTIC WORDS. F2B15300 TNZ RES73 IF F2B15310 CLA RETABZ+2,1 NOT F2B15320 SUB $E3 F2B15330 TNZ RES73 EQUAL, CONTINUE SEARCH. F2B15340 CLA RETABZ,1 IF EQUAL, F2B15350 ANA ADDMSK USE RESET TAG ALREADY F2B15360 STO RES330 ENTERED. SAVE NAME. F2B15370 TRA RES200 TRA TO RES200 F2B15380 RES85 CLA RES300 NO USABLE ENTRY FOUND. F2B15390 ARS 6 MAKE F2B15400 ORA $TAG NEW F2B15410 STO RES330 F2B15420 ORA RES310 ENTRY F2B15430 LXD RESXX,1 IN F2B15440 TXH RES87,1,0 RETAB. F2B15450 TSX ERROR8,4 RETAB TABLE IS FULL. F2B15460 RES87 STO RETABZ,1 F2B15470 CLA $E2 F2B15480 STO RETABZ+1,1 F2B15490 CLA $E3 F2B15500 STO RETABZ+2,1 F2B15510 TXI RES88,1,-3 ADJUST IN DEX. F2B15520 RES88 SXD RESXX,1 F2B15530 CLA RES310 MAKE E2 WORD F2B15540 TXH RES96,2,5 FOR DRUMTAG OR F2B15550 TXH RES94,2,4 TAGTAG ENTRY F2B15560 TXH RES92,2,3 F2B15570 TXH RES90,2,2 F2B15580 TXH RES96,2,1 F2B15590 ARS 18 F2B15600 TRA RES96 F2B15610 RES90 ARS 18 F2B15620 ADD RES310 F2B15630 TRA RES96 F2B15640 RES92 CLA L(0) F2B15650 RES94 ARS 18 F2B15660 RES96 STO $E2 F2B15670 CLA RES310 MAKE F2B15680 ARS 18 E1 WORD F2B15690 TXH RES98,2,3 F2B15700 CLA L(0) F2B15710 RES98 STO $E1 F2B15720 LXD RES310,1 F2B15730 CLA DOTGZ,1 F2B15740 ANA DECMSK F2B15750 ORS $E1 F2B15760 CLA RES330 MAKE F2B15770 STO $E3 E3 WORD F2B15780 CLA L(6) MAKE F2B15790 STO $E4 E4 F2B15800 CLA RES300 WORD F2B15810 ARS 18 F2B15820 ORS $E4 F2B15830 TXL RES110,2,2 F2B15840 TXL RES100,2,3 F2B15850 TXL RES110,2,4 F2B15860 RES100 ALS 9 F2B15870 ORS $E4 F2B15880 RES110 CLA L(0) THESE INSTRUCTIONS, F2B15890 STO RES340 TO RES170, DETERMINE F2B15900 LXD L(5),4 WHICH COEFFICIENTS F2B15910 RES120 CLA $C1+5,4 ARE GREATER THAN F2B15920 SUB L(1) ONE AND PLACE F2B15930 TZE RES140 THIS INFO IN F2B15940 TIX RES130,4,1 E4(TAG1). F2B15950 RES130 PXD 0,4 F2B15960 ORS RES340 F2B15970 TXI RES140,4,1 F2B15980 RES140 TIX RES120,4,2 F2B15990 CLA RES340 F2B16000 ANA RES300 F2B16010 ARS 6 F2B16020 ORS $E4 F2B16030 CLA DRMTAG DRUM TAG ENTRY F2B16040 TSX $LIST,4 OR F2B16050 TRA RES200 TAGTAG F2B16060 RES180 TSX TAGENT,4 ENTRY. F2B16070 RES200 LXD RES310,1 MAKE F2B16080 CLA DOTGZ,1 PROPER F2B16090 STO $E1 TRASTO F2B16100 CLA TL2 ENTRY F2B16110 ARS 18 F2B16120 ADD TL1 F2B16130 STO $E2 F2B16140 CLA RES330 F2B16150 ALS 18 F2B16160 ADD TS F2B16170 SSM F2B16180 STO $E3 F2B16190 CLA TRASTO F2B16200 TSX $LIST,4 F2B16210 RES210 LXD RES45,4 EXIT. F2B16220 TRA 1,4 F2B16230 RES300 PZE PREFIX STORAGE F2B16240 RES310 PZE INDEX STORAGE F2B16250 RES320 OCT 70000 PREFIX MASK F2B16260 RES330 PZE RESET NAME STORAGE. F2B16270 RES340 PZE E.S. F2B16280 RES400 CLA $E2 TEST FOR COEFFICIENT F2B16290 SUB L(1) EQUAL TO ONE. F2B16300 TNZ RES65 IF NOT, PROCESS NORMALLY F2B16310 CLA DOTGZ,1 THROUGH RESET. F2B16320 ARS 17 TEST FOR CONSTANT N1. F2B16330 LBT IF VARIABLE, NORMAL PROCESSING. F2B16340 TRA RES410 0 F2B16350 TRA RES65 1 F2B16360 RES410 CLA DOTGZ+6,1 HAS COUNTER BEEN FOUND. F2B16370 ANA BITTWO F2B16380 TNZ RES420 IF SO, GO TO RES420 F2B16390 CLA TL2 IF NOT, MAKE ENTRY F2B16400 ARS 18 IN ADDED TAG TABLE F2B16410 ORA TL1 FOR PROCESSING INTO F2B16420 SSM DRUM TAG AFTER NEST F2B16430 LRS 35 ANALYSIS. F2B16440 PXD 0,1 F2B16450 ORA TS F2B16460 LXD L(1),2 F2B16470 TSX TAGADD,4 F2B16480 TRA RES210 TRA TO EXIT F2B16490 RES420 TSX RSR,4 COUNTER FOUND, USE RSR. F2B16500 TRA RES210 TRA TO EXIT F2B16510 * *** F2B16520 NRMRT TSX (LOAD),4 GO TO BLOCK 3. F2B16530 PZE F2B16540 REM THIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS F2B16550 REM AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING F2B16560 REM EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION, F2B16570 REM AT WHICH POINT IT CALLS ON 2R0000. F2B16580 CORES LXD DOTAG-1,1 RELCON CODING BLOCK. (STATE B) F2B16590 SXD DSDR20,1 F2B16600 SXD DSD118,1 F2B16610 SXD DSD145,1 F2B16620 SXD 2R0020,1 F2B16630 DSDR00 MSE 100 F2B16640 NOP F2B16650 LXD XC,1 PUT INDEX OF DC IN XRA F2B16660 LXD DELTA,4 PUT DELTA IN XRC F2B16670 CLA LC INITIALIZE END OF F2B16680 STD DSDR30 DC TEST INSTR F2B16690 DSDR10 TXI DSDR20,1,-9 TAKE NEXT DOWN DO,IF POSSIBLE F2B16700 DSDR20 TXL DSD100,1,0 EXIT IF DOTAG EXHAUSTED. F2B16710 CLA DOTGZ+5,1 GET LEVEL OF THIS DO IN F2B16720 PDX 0,2 XRB,COMPARE WITH LEVEL OF F2B16730 DSDR30 TXL DSD100,2,0 D6 AND EXIT IF NOT IN DC. F2B16740 CLA DOTGZ+1,1 GET SYMBOL OF THIS DO F2B16750 SUB $RSYM1 COMPARE WITH FIRST R SYM. F2B16760 TZE DSDR50 IF THIS DO IS DR1,TRA. F2B16770 TXL DSDR10,4,2 IF NOT DR1,GO BACK,UNLESS DELTA3 F2B16780 CLA DOTGZ+1,1 GET SYMBOL AGAIN F2B16790 SUB $RSYM2 AND COMPARE WITH RSYM2. F2B16800 TNZ DSDR10 IF NOT RSYM1 OR RSYM2,GO BACK F2B16810 CLA $RSYM2 IF DO SYM IS RSYM2, F2B16820 LDQ $RSYM1 SWITCH RSYM1 AND RSYM2 F2B16830 STO $RSYM1 TO MAKE BUCKET LABLES F2B16840 STQ $RSYM2 AGREE WITH ORDER OF DO FORMULAS. F2B16850 DSDR50 SXD XR1,1 SAVE F2B16860 PXD 0,2 INDEX OF R1 F2B16870 STO LR1 AND LEVEL OF R1 F2B16880 STO TL2 INITIALIZE TRAWRD TL2 F2B16890 CLA LL INITIALIZE TRAWRD TL1 F2B16900 STO TL1 PREPARE F2B16910 LXD L(1),2 TRAWRD C(XRB) F2B16920 TXL DSDR55,4,2 F2B16930 LXD L(2),2 F2B16940 DSDR55 TSX TRWRD,4 GO TO TRWRD AND F2B16950 STO D2D1 SAVE IF NOT ZERO F2B16960 LXD DELTA,4 RETURN HERE F2B16970 TXH DSDR85,4,2 TRANSFER IF DELTA IS THREE F2B16980 TZE DSDR20 RETURN IF RESULT ZERO F2B16990 SXD DSDR95,1 F2B17000 TXL DSDR65,4,1 TR IF DELTA=1 F2B17010 CLA L(36) FOR DELTA=2,SEPARATE F2B17020 SUB LC TRAWRD RESULTS. F2B17030 ARS 18 F2B17040 STA DSDR60 F2B17050 LDQ L(0) F2B17060 CLA D2D1 F2B17070 DSDR60 LRS ** F2B17080 TZE DSDR62 IF TRANSFERS EXIST DC TO DL, F2B17090 PSE 100 SET SENSE SWITCH F2B17100 DSDR62 STQ D2D1 F2B17110 CLA D2D1 F2B17120 TZE DSDR80 IF NO TRANSFERS DR TO DC,EXIT F2B17130 DSDR65 CLA ATSW TEST ADDED TAG SWITCH F2B17140 TNZ DSDR80 IF ADDED DELTA TWO, SKIP INSERT F2B17150 LXD XR1,1 IS TAG IN DR1 F2B17160 TSX TINFOR,4 GO TO TINFOR AND RETURN F2B17170 TRA DSDR70 FOUND F2B17180 LXD L(0),2 NOT FOUND F2B17190 LXD XR1,1 F2B17200 TSX TAGADD,4 INSERT TAG IN R1,RETURN F2B17210 STQ TR1 HERE AND STORE NAME IN TR1 F2B17220 TRA DSDR75 F2B17230 DSDR70 LXD XR1,1 FIND NAME OF TAG IN R1 F2B17240 CLA DOTGZ,1 F2B17250 ANA DECMSK F2B17260 ADD $TAG F2B17270 TSX GETNAM,4 F2B17280 STO TR1 F2B17290 DSDR75 LXD XR1,1 LIST STORES F2B17300 LXD L(0),2 F2B17310 TSX STORES,4 F2B17320 DSDR80 LXD DSDR95,1 F2B17330 LXD DELTA,4 F2B17340 TRA DSDR20 F2B17350 DSDR85 TZE 2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6 F2B17360 LXD XR1,1 IF TRA R1 TO DC, F2B17370 LXD L(1),2 USE SPC000 TO LOOK FOR F2B17380 TSX SPC000,4 TAG IN R1 F2B17390 TRA DSDR87 NOT FOUND,GO TO DSDR87 F2B17400 LXD XR1,1 FOUND,USE SUBROUTINE F2B17410 CLA DOTGZ,1 GETNAM TO DETERMINE LABEL F2B17420 ANA DECMSK OF TAG IN R1 F2B17430 ADD $TAG F2B17440 TSX GETNAM,4 F2B17450 STO TR1 PUT NAME IN TR1 F2B17460 TRA DSDR89 F2B17470 DSDR87 LXD XR1,1 USE TAGADD TO INSERT F2B17480 LXD L(0),2 TAG IN R1 F2B17490 TSX TAGADD,4 F2B17500 STQ TR1 PUT NAME IN TR1 F2B17510 LXD XL,1 F2B17520 CLA BIT20 F2B17530 ORS DOTGZ+6,1 F2B17540 DSDR89 LXD XR1,1 LIST STORES F2B17550 LXD L(1),2 F2B17560 TSX STORES,4 F2B17570 DSDR90 TRA 2R0000 GO TO R2 ROUTINE AND F2B17580 DSDR92 LXD DELTA,4 RETURN HERE F2B17590 DSDR95 TXL DSDR20,,0 NEXT R1. DEC IS XNEXTR1. F2B17600 DSD100 TXL DSD200,4,1 TRA IF DELTA IS 1 F2B17610 TXH DSD200,4,2 TRA IF DELTA IS 3 F2B17620 MSE 100 DELTA IS 2,TEST D3D1 SWITCH F2B17630 TRA DSD110 LIGHT OFF F2B17640 TRA DSD170 LIGHT ON F2B17650 DSD110 LXD XL,1 OBTAIN INDEX OF DL IN XRA F2B17660 CLA DOTGZ+5,1 GET LEVEL OF DL F2B17670 STD DSD120 AND STORE IN TEST INSTR. F2B17680 DSD115 TXI DSD118,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2B17690 DSD118 TXL DSD200,1,0 OTHERWISE, EXIT. F2B17700 CLA DOTGZ+5,1 GET LEVEL OF THIS DO F2B17710 PDX 0,2 AND TEST WHETHER THIS DO IS F2B17720 DSD120 TXL DSD200,2,0 IN DL. IF NOT, EXIT. F2B17730 PXD 0,1 IF IN DL, F2B17740 SUB XC IF THIS DO D6. F2B17750 TZE DSD130 IF SO,TRA. F2B17760 CLA DOTGZ+1,1 IF NOT, IS THIS DO A DR. F2B17770 SUB $RSYM1 F2B17780 TZE DSD160 IF SO,TRA, F2B17790 TRA DSD115 IF NOT,GO BACK TO GET NEXT DO F2B17800 DSD130 SXD DSD150,2 IF DO IS DC, F2B17810 DSD140 TXI DSD145,1,-9 F2B17820 DSD145 TXL DSD200,1,0 F2B17830 CLA DOTGZ+5,1 IS NEW IN DL. F2B17840 PDX 0,2 IF SO,GO BACK TO STEP DOWN F2B17850 DSD150 TXL DSD120,2,0 AGAIN IN DC. IF NOT IN F2B17860 TRA DSD140 DC, GO TO TEST IF IN DL F2B17870 DSD160 PXD 0,2 INITIALIZE F2B17880 STO TL2 TL2 TO LEVEL OF DR F2B17890 CLA LL PUT LEVEL OF DL F2B17900 STO TL1 IN TL1 F2B17910 LXD L(1),2 PUT 1 IN XRB F2B17920 TSX TRWRD,4 AND GO TO TRWRD. F2B17930 TZE DSD118 IF RESUTL ZERO,GO BACK F2B17940 DSD170 LXD XL,2 F2B17950 CLA BITONE F2B17960 ORS DOTGZ+5,2 F2B17970 LXD LOWPOS,2 F2B17980 CLA L(0) F2B17990 STO X1+5,2 F2B18000 STO X1+6,2 F2B18010 TIX DSD175,2,1 F2B18020 DSD175 PXD 0,2 F2B18030 ORS DORC F2B18040 COM F2B18050 ANS DOSUBS F2B18060 CLA XC F2B18070 STO XL F2B18080 CLA LC F2B18090 STO LL F2B18100 CLA L(1) F2B18110 STO NRDS F2B18120 STO DELTA F2B18130 DSD200 TRA DS4VAL F2B18140 REM RELCON DELTA THREE SECOND LEVEL DEFINITION. F2B18150 2R0000 LXD XR1,1 PUT INDEX OF R1 IN XRA F2B18160 CLA LR1 OBTAIN LEVEL OF R1 F2B18170 STD 2R0030 INITIALIZE TEST INSTR. F2B18180 2R0010 TXI 2R0020,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2B18190 2R0020 TXL DSDR92,1,0 EXIT IF DOTAG EXHAUSTED. F2B18200 CLA DOTGZ+5,1 GET LEVEL OF DO F2B18210 PDX 0,2 PUT IN XRB AND COMPARE WITH F2B18220 2R0030 TXL DSDR92,2,0 LR1,EXIT IF NEW DO NOT IN XR1. F2B18230 CLA DOTGZ+1,1 GET SYMBOL OF NEW DO, F2B18240 SUB $RSYM2 COMPARE WITH RSYM2 F2B18250 TNZ 2R0010 IF NOT RSYM2,GO BACK. F2B18260 SXD XR2,1 SAVE INDEX F2B18270 PXD 0,2 AND LEVEL F2B18280 STO LR2 OF R2. F2B18290 STO TL2 PREPARE FOR TSX TO TRAWRD. F2B18300 CLA LC TO TEST FOR TRANSFERS F2B18310 STO TL1 FROM R2 TO DS. F2B18320 LXD L(1),2 F2B18330 TSX TRWRD,4 IF NO TRANSFERS, GO BACK F2B18340 TZE 2R0020 FOR NEXT DO. F2B18350 SXD 2R0065,1 F2B18360 STO D3D2 TEMPORARY STORAGE F2B18370 CLA L(36) PUT 36 IN ACC F2B18380 SUB LR1 SUB LEVEL OF R1, F2B18390 ARS 18 SHIFT RESULT AND F2B18400 STA 2R0050 F2B18410 LDQ L(0) PUT ZERO IN MQ, F2B18420 CLA D3D2 OBTAIN TRAWRD RESULT, F2B18430 2R0050 LRS ** PERFORM SEPARATION F2B18440 STO D3D1 AND SAVE F2B18450 STQ D3D2 RESULTS. F2B18460 CLA D3D1 IF D3D1 IS ZERO,THEN D3D2 F2B18470 TNZ 2R0060 IS NOT ZERO F2B18480 CLA D2D1 IF D2D1 IS ZERO, F2B18490 TZE 2R0200 TR TO GET NEX DO F2B18500 2R0060 LXD XR2,1 SEARCH FOR TAG F2B18510 TSX TINFOR,4 IN R2 F2B18520 TRA 2R0080 FOUND,TR TO OBTAIN NAME F2B18530 LXD XR2,1 NOT FOUND, LOOK FOR DELTA TWO F2B18540 TSX ADDSER,4 INSERT IN ADDED TAG TABLE. F2B18550 2R0065 TXL 2R0090,,0 FOUND, NAME IN AC. F2B18560 LXD XR2,1 NOT FOUND F2B18570 LXD L(0),2 ADD TAG F2B18580 TSX TAGADD,4 IN TABLE OF ADDED TAGS F2B18590 STQ TR2 PUT NAME IN TR2 F2B18600 TRA 2R0100 F2B18610 2R0080 LXD XR2,1 SEARCH F2B18620 CLA DOTGZ,1 FOR F2B18630 ANA DECMSK NAME F2B18640 ADD $TAG F2B18650 TSX GETNAM,4 F2B18660 2R0090 STO TR2 PUT NAME IN TR2 F2B18670 2R0100 CLA D3D1 LIST STORES,IF ANY TR, F2B18680 TZE 2R0150 FOR TRANSFERS F2B18690 LXD XR2,1 D3D1 F2B18700 LXD L(2),2 F2B18710 TSX STORES,4 F2B18720 2R0150 CLA D3D2 TEST TR F2B18730 TZE 2R0200 D3D2 F2B18740 CLA D2D1 TEST TR F2B18750 TZE 2R0200 D2D1 F2B18760 LXD XR2,1 LIST STORES F2B18770 TSX STORXX,4 F2B18780 2R0200 LXD 2R0065,1 RETURN FOR F2B18790 TRA 2R0020 NEXT R2 F2B18800 REM TABLE SEARCH OF FORVAL F2B18810 DS4VAL LXD END80,1 OBTAIN FORVAL EMPTY INDICATOR. F2B18820 TXL DS4V20,1,0 EXIT IF FORVAL EMPTY F2B18830 CLA $TAG PRESET WD E2 FOR LIST F2B18840 ALS 18 ROUTINE,TAU TAG AND NAME F2B18850 ADD TS F2B18860 STO $E2 F2B18870 MSE 100 LIGHT 100 OFF F2B18880 NOP F2B18890 CLA ALPHA THESE INSTRUCTIONS SET UP F2B18900 STO $A FOR DRUM SEARCH F2B18910 CLA BETA F2B18920 ADD L(1)A F2B18930 STO $B F2B18940 LXD L(0),1 GET LOC OF 1ST 4VAL ENTRY, STORE IN F2B18950 TSX FSXX,4 UPDATED ADD. PUT 0 IN XRA, GO TO F2B18960 LXD DELTA,4 SEARCH ROUTINE. UPON RETURN, F2B18970 TXH DS4V20,4,2 ECIT UNLESS DELTA IS 2, F2B18980 TXL DS4V20,4,1 IN WHICH CASE,CONTINUE F2B18990 PSE 100 TURN INDICATOR LIGHT ON F2B19000 CLA $B THE FOLLOWING INSTR. F2B19010 STO $NEXTA SET UP TWO ADDITIONAL F2B19020 CLA $A RANGES FOR SEARCHING, F2B19030 STO $B THOSE FORMULAS OUTSIDE F2B19040 LXD XL,2 OF DC BUT WITHIN DL. F2B19050 CLA DOTGZ,2 IN THESE SPECIAL RANGES F2B19060 PAX 0,2 AS SOON AS ONE ENTRY IS F2B19070 ANA DECMSK FOUND IN EITHER RANGE, F2B19080 STO $A TO BE DONE. F2B19090 PXD 0,2 F2B19100 ADD L(1)A F2B19110 STO $LASTB F2B19120 CLA $A F2B19130 ADD L(1) F2B19140 SUB $B F2B19150 TZE DS4V10 IF THIS RANGE IS EMPTY, SKIP SEARCH.F2B19160 LXD L(0),1 F2B19170 TSX FSXX,4 GO TO SEARCH ROUTINE F2B19180 DS4V10 CLA $NEXTA A AND B FOR SECOND F2B19190 STO $A F2B19200 CLA $LASTB F2B19210 STO $B F2B19220 SUB $A F2B19230 TZE DS4V20 F2B19240 PSE 100 F2B19250 LXD L(0),1 F2B19260 TSX FSXX,4 F2B19270 DS4V20 TRA RELEND EXIT F2B19280 REM ROUTINE FSXX FINDS THOSE FORVAL ENTRIES FALLING WITHIN THE F2B19290 REM RANGE A TO B (B+1) AS DEFINED EARLIER. F2B19300 FSXX SXD FS28,4 SAVE LINKAGE. F2B19310 FS00 CLA FORVAL-1 INITIALIZE DECREMENTS F2B19320 STD FS50 THAT TEST F2B19330 STD FS100 END OF FORVAL TABLE. F2B19340 LXD MAXFVL,1 LOAD XRA FOR FIRST FVL ENTRY. F2B19350 CLA $A F2B19360 FS20 LDQ 4VALZ,1 DOES THIS FORVAL ALPHA F2B19370 TLQ FS40 EXCEED A. F2B19380 CLA $B YES. DOES FIRST ENTRY EXCEEDING A F2B19390 TLQ FS85 ALSO EXCEED B. IF NO, TRANSFER. F2B19400 FS28 TXL BS99,,0 IF YES, EXIT. F2B19410 FS40 TXI FS50,1,-2 BUMP FOR NEXT FORVAL ENTRY. F2B19420 FS50 TXH FS20,1,0 IF END OF FORVAL TABLE REACHED F2B19430 TRA BS99 WITHOUT ANY ENTRY EXCEEDING A, EXIT.F2B19440 FS70 LDQ 4VALZ,1 DOES THIS FORVAL ENTRY F2B19450 TLQ FS90 EXCEED B, IF YES, F2B19460 FS80 SXD FSEND,1 SAVE IR FOR LAST 4VAL IN RANGE. F2B19470 SXD BS40,1 SET DEC FOR TEST IN BS BELOW F2B19480 TRA BS00 GO TO PROCESS THESE ENTRIES. F2B19490 FS85 SXD FSBEG,1 SAVE IR FOR 1ST 4VAL IN RANGE. F2B19500 FS90 TXI FS100,1,-2 BUMP FOR NEXT FORVAL ENTRY F2B19510 FS100 TXH FS70,1,0 IF END OF FORVAL TABLE, F2B19520 TRA FS80 GO TO SAVE IR SETTING. F2B19530 FSBEG PZE IX FOR 1ST 4VAL IN RANGE F2B19540 FSEND PZE IX FOR LAST+1 4VAL IN F2B19550 REM RANGE A TO B. F2B19560 REM THIS ROUTINE SEARCHES AMONG THOSE FORVAL ENTRIES OF F2B19570 REM ROUTINE FS00 FOR RSYM1, AND RSYM2 IF DELTA IS 3. F2B19580 BS00 CLA $RSYM1 DOES RSYM1 F2B19590 LXD DELTA,4 OR, IF DELTA IS 3, RSYM1 OR 2, F2B19600 BS10 LXD FSBEG,2 F2B19610 BS20 CAS 4VALZ+1,2 MATCH ANY OF THESE FORVAL ENTRIES F2B19620 TRA BS30 F2B19630 TRA BS60 YES. GO TO SEE IF NORMAL SEARCH. F2B19640 BS30 TXI BS40,2,-2 NO. STEP THRU RANGE OF FORVALS, F2B19650 BS40 TXH BS20,2,0 AND, IF NO MATCH FOUND, F2B19660 BS50 TXL BS99,4,2 EXIT. F2B19670 LXD L(0),4 (SET DELTA LESS THAN 3 FOR F2B19680 REM NEXT PASS). F2B19690 CLA $RSYM2 F2B19700 TRA BS10 F2B19710 BS60 MSE 100 TEST TO SEE IF F2B19720 TRA BS80 NORMAL SEARCH, OR IF F2B19730 BS78 TXL BS90,,0 SPECIAL CASE OF DELTA TWO. F2B19740 BS80 STO 4VALES RSYM FOUND,ARRANGE TO F2B19750 LXD XL,1 SAVE INDEXED SUBSCRIPTS. F2B19760 CLA BITONE F2B19770 ORS DOTGZ+5,1 F2B19780 LXD XC,1 F2B19790 ORS DOTGZ+5,1 RSYM FOUND, E2 PREVIOUSLY F2B19800 CLA 4VALZ,2 PREPARED,NOW PREPARE F2B19810 STO $E1 E1, SAVE AC, XRB, XRC, F2B19820 CLA TSXCOM AND LIST. F2B19830 SXD BS85,2 AFTER LISTING, F2B19840 SXD BS78,4 RESTORE ACC,XRB,XRC F2B19850 TSX $LIST,4 AND RETURN TO CONTINUE F2B19860 LXD BS85,2 SEARCH. F2B19870 LXD BS78,4 F2B19880 CLA 4VALES F2B19890 BS85 TXL BS30,,0 F2B19900 BS90 LXD XL,2 SPECIAL CASE,DELTA TWO, F2B19910 CLA BITONE PUT IN BIT TO SAVE SL F2B19920 ORS DOTGZ+5,2 F2B19930 LXD LOWPOS,2 OBTAIN INDEX QUANTITY 1, 3, 5. F2B19940 CLA L(0) FOR XL, F2B19950 STO X1+5,2 SET PROPER X AND L TO ZERO, F2B19960 STO X1+6,2 F2B19970 TIX BS91,2,1 ADJUST 1,3,5 TO 1,2,4, F2B19980 BS91 PXD 0,2 PUT IN ACC F2B19990 BS92 ORS DORC AND PUT BIT IN DORC F2B20000 COM REMOVE BIT F2B20010 ANS DOSUBS FROM DOSUBS F2B20020 CLA XC F2B20030 STO XL F2B20040 CLA LC F2B20050 STO LL F2B20060 CLA L(1) F2B20070 STO NRDS F2B20080 STO DELTA F2B20090 TRA DS4V20 EXIT F2B20100 BS99 LXD FS28,4 EXIT FROM FSXX ENTRY F2B20110 TRA 1,4 F2B20120 4VALES PZE E.S. F2B20130 XR1 F2B20140 LR1 F2B20150 XR2 F2B20160 LR2 F2B20170 D2D1 F2B20180 D3D1 F2B20190 D3D2 F2B20200 TR1 F2B20210 TR2 F2B20220 REM SUBROUTINE GETNAM F2B20230 GETNAM LXD NAMXX,1 THIS ROUTINE SEARCHES F2B20240 SXD GETN20,1 TABLE NAMZ FOR THE NAME F2B20250 LXA NAMXX,1 OF TAU TAG IN A PARTICULAR F2B20260 TRA GETN20 F2B20270 GETN05 CAS NAMZ,1 DO FORMULA. F2B20280 TRA GETN10 F2B20290 TRA GETN30 F2B20300 GETN10 TXI GETN20,1,-2 F2B20310 GETN20 TXH GETN05,1,0 F2B20320 ANA ADDMSK F2B20330 TRA 1,4 F2B20340 GETN30 CLA NAMZ+1,1 F2B20350 TRA 1,4 F2B20360 REM SUBROUTINE ADDSER F2B20370 ADDSER PXD 0,1 F2B20380 ADD $TAG F2B20390 LXD ADTXX,1 PREPARE XRA AND DEC O F2B20400 SXD ADS030,1 ADS030 FOR TABLE SEARCH. F2B20410 LXA ADTXX,1 F2B20420 TRA ADS030 TRA FOR EMPTY TABLE TEST F2B20430 ADS010 CAS ADTAGZ,1 F2B20440 TRA ADS020 F2B20450 TRA ADS040 FIRST WORD FOUND F2B20460 ADS020 TXI ADS030,1,-2 F2B20470 ADS030 TXH ADS010,1,0 F2B20480 TRA 2,4 NOT FOUND F2B20490 ADS040 CLA ADTAGZ+1,1 F2B20500 ADS050 TRA 1,4 F2B20510 REM SUBROUTINES STORES AND STORXX F2B20520 STORES SXD ST040,4 THIS ROUTINE PREPARES F2B20530 CLA LR1 AN ENTRY FOR TABLE TRASTO F2B20540 ARS 18 AND USES LIST TO ENTER F2B20550 ADD LC THE ENTRY ON THE PROPER F2B20560 STO $E2 DRUM TABLE. IF SPC000 F2B20570 CLA TR1 IS USED BY THE ROUTINE, F2B20580 TXL ST020,2,1 MANY ENTRIES MAY BE MADE F2B20590 CLA TR2 IN TRA STO. F2B20600 ST020 ALS 18 IF DELTA EQUALS ONE OR TWO, F2B20610 ADD TS THIS ROUTINE IS ENTERED F2B20620 STO $E3 THROUGH STORES WITH C(XRB) F2B20630 TXL ST035,2,0 ZERO. IF DELTA IS THREE F2B20640 TXL ST050,2,1 AND WE ARE WORKING ON F2B20650 TRA ST035 TRANSFERS DR2 TO DS,THEN F2B20660 STORXX SXD ST040,4 STORES ENTRY IS USED WITH F2B20670 CLA LR2 C(XRB)=2 F2B20680 ARS 18 IF DELTA=3,TRA DR1 TO DS, F2B20690 ADD LR1 STORES ENTRY IS USED WITH F2B20700 STO $E2 C(XRB)=1 F2B20710 CLA TR2 IF DELTA=3,TRA DR2 TO DR1, F2B20720 ALS 18 ENTRY STORXX IS USED. F2B20730 ADD TR1 C(XRB) NOT USED. F2B20740 STO $E3 LIST ROUTINE IS USED IN F2B20750 REM EVERY CASE, MAKING ONE F2B20760 REM TRASTO ENTRY, EXCEPT FOR F2B20770 REM CASE DELTA=3,TRA DR1 TO DS, F2B20780 REM C(XRB)=1,WHEN SPC000 IS USED. F2B20790 ST035 CLA DOTGZ,1 LIST ROUTINE USED. F2B20800 STO $E1 F2B20810 CLA TRASTO F2B20820 TSX $LIST,4 F2B20830 ST040 TXL ST100,,0 F2B20840 ST050 LXD L(2),2 SPC000 USED. F2B20850 CLA TRASTO F2B20860 TSX SPC000,4 F2B20870 ST100 LXD ST040,4 EXIT F2B20880 TRA 1,4 F2B20890 REM MKDO READS DOTAG A INTO DOUBLE BUFFERS AND USES THE F2B20900 REM FIRST TWO WORDS OF EACH ENTRY TO FORM THE DO TABLE F2B20910 REM FOR BLOCK THREE. F2B20920 MKDO LXD MAXDO,1 F2B20930 SLT 3 F2B20940 TRA MKDO1 EMPTY DOTAG. F2B20950 SLN 3 RESET SL F2B20960 TRA MKDO9 AND SKIP MKDO. F2B20970 MKDO1 AXT -1,2 FILL F2B20980 * *** F2B20990 TSX (TAPE),4 FIRST F2B21000 PZE DBIO2,2,(RBNP) BUFFER. F2B21010 PZE DTGL,,FTAPE3 F2B21020 MKDO2 AXC -1,2 REVERSE SWITCH. F2B21030 CLA DB1,2 CHANGE F2B21040 STA MKDO6 BUFFER ADDRESS. F2B21050 * *** F2B21060 TSX (TAPE),4 FILL F2B21070 PZE DBIO2,2,(RBEP) NEXT F2B21080 PZE DTGL,,FTAPE3 BUFFER. F2B21090 SXA MKDO2,2 F2B21100 NZT (SCHU)+FTAPE3 TEST FOR EOF. F2B21110 TRA MKDO9 EOF. F2B21120 * *** F2B21130 CLA (SCHU)+FTAPE3 COMPUTE F2B21140 ANA ADDMSK XR VALUE F2B21150 MKDO4 SUB DB1,2 FOR END OF F2B21160 PAX 0,4 NEST AND F2B21170 SXD MKDO8,4 SAVE IN TEST. F2B21180 AXT DBUFSZ,2 F2B21190 MKDO5 AXT 2,4 PICK UP F2B21200 MKDO6 CLA **,2 FIRST TWO WORDS F2B21210 STO DOZ,1 OF EACH DOTAG F2B21220 TXI *+1,2,-1 AND SAVE F2B21230 TXI *+1,1,-1 IN DO. F2B21240 TIX MKDO6,4,1 F2B21250 TXI *+1,2,-7 BUMP TO NEXT DOTAG ENTRY. F2B21260 MKDO8 TXH MKDO5,2,** IS THIS END OF NEST. F2B21270 TRA MKDO2 YES, GO TO READ NEXT NEST. F2B21280 MKDO9 SXD DOZ,1 SAVE XR VALUE FOR LAST DO ENTRY. F2B21290 * *** F2B21300 TSX (TAPE),4 REWIND TAPE 3 TO F2B21310 PZE REWIND,,(SKBP) WRITE DOFILE C. F2B21320 PZE DTGL,,FTAPE3 (BLOCK 4). F2B21330 TRA NRMRT GO TO BLOCK THREE) F2B21340 DBIO1 PZE DBUF1+DBUFSZ F2B21350 DB1 IORT DBUF2,,DBUFSZ F2B21360 DBIO2 PZE DBUF2+DBUFSZ F2B21370 DB2 IORT DBUF1,,DBUFSZ F2B21380 MAXDO PZE ,,600*M/N*2 MAX SIZE OF DO TABLE. F2B21390 TSTPCH CLA L(3)+5,4 PICK UP REFERENCE FOR NON CURRENT $F2B21391 PDX 0,2 SUBSCRIPT - LEFT OR CENTER $F2B21392 CLA L1+5,2 GET LEVEL NO. OF NON CURRENT SS $F2B21393 STD L2ORL1 AND STORE IN WORKING STORAGE $F2B21394 CLA X1+5,2 GET DOTAG REF. NO. OF NON CURRENT $F2B21395 STD X2ORX1 SS AND STORE IN WORKING STORAGE $F2B21396 CLA TCL RESTORE LEVEL OF CURRENT SS DO $F2B21397 X2ORX1 BRA RETRN,,*-* TO ACCUMULATOR AND RETURN $F2B21398 L2ORL1 PZE $F2B21399 ENDB SYN *+11 $F2B21400 TL EQU 97 F2B21410 ABIT SYN BIT18 F2B21420 BBIT SYN BIT20 F2B21430 SUBBIT SYN BIT18 F2B21440 RELEND SYN BRA10 FINISH OF RELCON CODING BLOK. F2B21450 TCD -1 $F2B21455 LBL 9F20,M F2B21460 TTL BLOCK C. F2B21470 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK C. F2C00000 HEAD 3 F2C00010 ORG SYSCUR $F2C00020 BCI 1,9F2000 $F2C00030 ORG (LODR) $F2C00040 TXI BLCK3A,,200 F2C00060 ABS F2C00070 REM BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR F2C00080 REM THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT F2C00090 REM ELEMENT OF WHICH IS UNDER CONTROL OF F2C00100 REM A DO (PURE RELATIVE CONSTANTS). TWO F2C00110 REM TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND F2C00120 REM WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO F2C00130 REM COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO F2C00140 REM SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR TYPES OF F2C00150 REM TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT F2C00160 REM CERTAIN INDEXING INSTRUCTIONS SHOULD BE COMPILED ACCOMPANYINGF2C00170 REM THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES F2C00180 REM OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND F2C00190 REM TABLE IRV ENTRIES ARE SORTED AND CONDENSED. ROUTINES F2C00200 REM ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 - F2C00210 REM SUBCOM, TRAWORD, SPC, TINFOR, LIST. F2C00220 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2C00230 N SYN 1$N TO NORMAL 32K SIZES. F2C00240 TCOMZ SYN NAMKYZ-1 ADDITIONAL TABLE F2C00250 TCOM SYN TSCMTB DEFINITIONS F2C00260 TCOMWC SYN TCOMZ FOR F2C00270 IRVZ SYN TCOM-1 BLOCK F2C00280 IRV SYN IRVZ-600*M/N THREE. F2C00290 IRVWC SYN IRV-1 F2C00300 TAU3 SYN 1$TAU3 F2C00310 TAU2 SYN 1$TAU2 F2C00320 TAU1 SYN 1$TAU1 F2C00330 4VALZ SYN 2$4VALZ F2C00340 FORTZ SYN 2$FORTZ F2C00350 DO SYN FORTZ F2C00360 DOZ SYN DO+600*M/N*2 F2C00370 DOTAG SYN DO+1 F2C00380 DOTGZ SYN DOTAG+600*M/N*9 F2C00390 NAMZ SYN FRTGWC F2C00400 NAME SYN NAMZ-600*M/N*2 F2C00410 NAMWC SYN NAME-1 F2C00420 REM CONSULT END OF BLOCK FOR MORE SYN AND EQU ENTRIES. F2C00430 ORG LADDIN+5 F2C00440 TS PZE NEW NAME. F2C00450 TAGIND PZE 1 IF ONLY 1 SC(COEFF 1), OTHERWISE 0F2C00460 DELTA PZE COUNT OF NO OF SYMBOLS IN SC COMB. F2C00470 TL2 PZE LEV OF DOTAG MATCHING SC SYMBOL. F2C00480 XR1 PZE IX DOTAG MATCHING RSYM1. F2C00490 LR1 PZE LEV DOTAG MATCHING RSYM1. F2C00500 NEXTR1 PZE IX LAST DOTAG OF NEST SEARCHED. F2C00510 REM IN TRAWRD 1ST LEVEL. F2C00520 XR2 PZE IX DOTAG MATCHING RSYM2. F2C00530 LR2 PZE LEV DOTAG MATCHING RWYM2. F2C00540 NEXTR2 PZE IX LAST DO OF NEST SEARCHED. F2C00550 REM IN TRAWRD ON 2ND LEVEL. F2C00560 XR3 PZE IX DOTAG MATCHING RSYM3. F2C00570 NEXTR3 PZE IX LAST DO OF NEXT SEARCHED. F2C00580 REM IN TRWRD ON 3RD LEVEL. F2C00590 SKIP PZE SKIP, ZERO OR ONE. F2C00600 IRVXX PZE CURRENT IRV TABLE IX VALUE. F2C00610 L(0) 0,0,0 F2C00620 L(1) 0,0,1 F2C00630 L(2) 0,0,2 F2C00640 L(3) 0,0,3 F2C00650 L(6) 0,0,6 F2C00660 L(36) 0,0,36 F2C00670 L(2)A OCT 2 F2C00680 L(MZ) MZE F2C00690 BIT18 OCT 400000 F2C00700 PREMSK OCT -200000000000 F2C00710 NAMAX ,,600*M/N*2 MAX SIZE OF NAME. F2C00720 IRVMAX 0,0,600*M/N MAXIMUM SIZE OF IRV. F2C00730 TCOMAX ,,1000*M/N*2 MAX SIZE OF TSXCOM. F2C00740 NMKYAD NMKYTB ORIGIN OF NAMKEY TABLE CARRYOVER F2C00750 REM FROM BL 2. F2C00760 NAMAD NAME ORIGIN O F NAME TABLE F2C00770 TCOMAD TCOM ORIGIN OF TCOM TABLE F2C00780 TRSTAD TRSTTB ORIGIN OF TRASTO TABLE F2C00790 BLCK3A CLA TSCMWC INITIALIZE F2C00800 ADD LADDIN+2 LADDS CONSTANTS F2C00810 ANA ADDMSK IN ROUTINE LIST FOR F2C00820 STO $LADDS+2 TSXCOM, F2C00830 CLA TRSTWC F2C00840 AXT TCOMZ,1 F2C00850 SXD LADDIN+2,1 F2C00860 ADD LADDIN+1 F2C00870 ANA ADDMSK F2C00880 STO $LADDS+1 AND TRASTO. F2C00890 CLA IRVMAX INITIALIZE IRVXX. F2C00900 STO IRVXX F2C00910 CLA L(0) INITIALIZE WD CT OF F2C00920 STO IRVWC IRV TABLE F2C00930 LXD FORTAG-1,1 IF FORTAG EMPTY, F2C00940 TXH BLCK3B,1,3000*M/N*2-1 F2C00950 CLA NMKYWC GET WD CT OF NAMKEY LEFT FROM BL2. F2C00960 PAX 0,1 F2C00970 TXL NAM95,1,0 IF NO TABLE NAME, GO SEARCH 4VAL. F2C00980 ADD NAMAD ADD ORG NAME TABLE TO GET END, AND F2C00990 STA NAM20 STORE IN STORE ADDRESS F2C01000 CLA NMKYWC GET WD CT OF NAMKEY LEFT FROM BL 2. F2C01010 ADD NMKYAD ADD ORG NAMKEY TABLE CARRYOVER FROM F2C01020 STA NAM10 BL2 TO GET END AND STORE IN CLA ADD F2C01030 PXD 0,1 F2C01040 SSM F2C01050 ADD NAMAX COMP NEXT UNUSED INDEX AND F2C01060 STO NAME-1 PLACE IN WD CT LOCAT. F2C01070 NAM10 CLA 0,1 MOVE NAMKEY TABLE CARRYOVER FROM F2C01080 NAM20 STO 0,1 BL 2 TO NEW LOCATION FOR THIS F2C01090 TIX NAM10,1,1 BLOCK. F2C01100 TRA BEGIN TABLE NAME ALL IN. F2C01110 NAM95 CLA NAMAX TABLE NAME EMPTY. F2C01120 STO NAME-1 F2C01130 BEGIN MSE LIGHT TEST FOR EMPTY FORVAL F2C01140 TRA INIT F2C01150 TRA BLCK3B F2C01160 INIT LXD FORVAL-1,1 INITIALIZE F2C01170 SXD TAB60,1 . F2C01180 LXD FORTAG-1,1 . F2C01190 SXD VAL80,1 . F2C01200 SXD VAL95,1 . F2C01210 LXD DOZ,1 . F2C01220 SXD IND20,1 . F2C01230 VALTAG LXD MAXFTG,1 THIS PROGRAM F2C01240 VAL10 CLA FORTZ,1 MAKES A F2C01250 TMI VAL90 PASS OVER F2C01260 ANA BITONE FORTAG, AND F2C01270 TNZ VAL90 FOR EACH POSITIVE(UNTREATED IN BL2) F2C01280 CLA FORTZ,1 TAG WITH BITONE EQUAL F2C01290 ANA ADDMSK TO ZERO, (NOT YET TREATED HERE) F2C01300 STO $TAG OBTAINS THE CORRESPONDING SSC. F2C01310 SXD SAVEA,1 COMBINATION FROM THE F2C01320 TSX SUBCOM,4 TAU TABLE DRUM. F2C01330 LXD L(3),4 F2C01340 PXD 0,0 F2C01350 VAL20 STO $RSYM1+3,4 INITIALIZE WITH ZEROES. F2C01360 TIX VAL20,4,1 F2C01370 LXD L(6),1 THIS ROUTINE STORES F2C01380 LXD L(3),2 THE SYMBOLS AS FOLLOWS F2C01390 VAL30 CLA $S1+6,1 LEFTMOST IN RSYM1, F2C01400 TZE VAL40 NEXT SYMBOL IN RSYM2, F2C01410 STO $RSYM1+3,2 RIGHTMOST IN RSYM3. F2C01420 TXI VAL40,2,-1 IF THERE ARE NOT THREE F2C01430 VAL40 TIX VAL30,1,2 SYMBOLS IN THE SC, THEN F2C01440 PXD 0,2 THE RSYM LOCATIONS ARE F2C01450 SSM SET TO ZERO. F2C01460 ADD L(3) DELTA IS THE SYMBOL COUNT. F2C01470 TZE VAL60 SUBSCRIPT IS CONSTANT, NO SYMBOLS. F2C01480 STO DELTA F2C01490 LXD L(0),4 LOCATION TAGIND IS SET F2C01500 SUB L(1) TO ZERO, UNLESS THE SC F2C01510 TNZ VAL50 HAS THE FOLLOWING F2C01520 CLA $S1 CHARACTERISTICS F2C01530 TZE VAL50 ONE SYMBOL F2C01540 LXD $C1,1 IN LEFTMOST POSITION F2C01550 TXH VAL50,1,1 WITH COEFFICIENT EQUAL F2C01560 LXD L(1),4 TO ONE F2C01570 VAL50 SXD TAGIND,4 F2C01580 SAVEA TXL TABSER,,0 GO TO TABSER(DEC IS 4TAG IX) F2C01590 VAL60 LXD SAVEA,1 RETURN FROM PROCESSING F2C01600 CLA FORTZ,1 ROUTINE. FOR THIS TAG, F2C01610 TMI VAL70 AND ALL TAGS EQUAL TO F2C01620 ANA BITONE THIS TAG, SET FORTAG F2C01630 TNZ VAL70 ENTRY BIT ONE EQUAL F2C01640 CLA FORTZ,1 TO ONE. F2C01650 ANA ADDMSK F2C01660 SUB $TAG F2C01670 TNZ VAL70 F2C01680 CLA BITONE F2C01690 ORS FORTZ,1 F2C01700 VAL70 TXI VAL80,1,-1 F2C01710 VAL80 TXH VAL60+1,1,0 IF 4TAG DONE,(DEC IS 4TAG IX) F2C01720 LXD SAVEA,1 GO BACK F2C01730 VAL90 TXI VAL95,1,-1 FOR NEXT TAG F2C01740 VAL95 TXH VAL10,1,0 IF ANY (DEC IS 4TAG IX) F2C01750 TRA BLCK3B F2C01760 TABSER LXD MAXFVL,1 F2C01770 SXD TAB40,2 (6 - 2X NO SUB SYMBOLS - VAL40) F2C01780 TAB10 LXD L(3),2 FORVAL F2C01790 CLA 4VALZ+1,1 FOR AN F2C01800 TAB20 CAS $RSYM1+3,2 OCCURRANCE F2C01810 TRA TAB30 OF ANY SYMBOL F2C01820 TRA FOUND IN THIS SC. F2C01830 TAB30 TXI TAB40,2,-1 F2C01840 TAB40 TXH TAB20,2,0 (DEC LOADED FROM TABSER +1) F2C01850 TAB50 TXI TAB60,1,-2 F2C01860 TAB60 TXH TAB10,1,0 (DEC HAS FORVAL IX) F2C01870 TRA VAL60 F2C01880 FOUND SXD FND10,1 IF SYMBOL FOUND, F2C01890 LXD TAGIND,4 MAKE NORMAL OR SPECIAL F2C01900 CLA 4VALZ,1 ENTRY IN TSXCOM, DEPENDING F2C01910 TXH FND20,4,0 ON TAGIND. (UNLESS SEE SUBRT INDO) F2C01920 STO FORNR F2C01930 TSX INDO,4 F2C01940 TRA FND40 INDO RETURN IF FRVL ALPH IN RANGE MTF2C01950 LXD FND10,1 RETURN FROM INDO WHEN NOT SO. F2C01960 CLA 4VALZ,1 F2C01970 STO $E1 SPECIAL ENTRY IF TAGIND F2C01980 CLA $TAG NOT ZERO. F2C01990 ALS 18 F2C02000 ORA $TAG F2C02010 FND10 TXL FND30,,0 (DEC HAS FORTAG IX) F2C02020 FND20 ORA $TAG SET UP E BLCK WHEN TAGIND IS 1. F2C02030 STO $E1 F2C02040 CLA $RSYM1 TAG SYMBOL F2C02050 FND30 STO $E2 F2C02060 CLA TSXCOM TSXCOM KEY F2C02070 TSX $LIST,4 F2C02080 FND40 LXD FND10,1 F2C02090 TRA TAB50 CONTINUE SEARCH F2C02100 REM SUBRT INDO.... THIS ROUTINE DETERMINES WHETHER THE FORVAL F2C02110 REM WHICH HAS BEEN FOUND TO MATCH A SUBSCRIPT FALLS WITHIN RANGE F2C02120 REM OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS F2C02130 REM MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED. F2C02140 INDO LXD IND60,1 F2C02150 TRA IND20 F2C02160 IND10 CLA DOZ,1 OBTAIN FIRST WORD DOTAG. F2C02170 PAX 0,2 DOTAGS BETA. F2C02180 ANA DECMSK DOTAGS ALPHA F2C02190 CAS FORNR AGAINST FORVAL ALPHA. F2C02200 TRA 2,4 OUTSIDE RANGE . RETURN. F2C02210 TSX ERRORM,4 DECR OF FIRST WD OF XR1 F2C02220 REM DO ENTRY (IFN) SHOULD NOT F2C02230 REM EQUAL TO FORNR. DO IS FIRST F2C02240 REM TWO WDS OF EACH DOTAG ENTRY F2C02250 REM (FILE 1 TAPE3), AND FORNR IS F2C02260 REM 4VAL ENTRY WITH XR VALUE IN F2C02270 REM DECR OF FND10. F2C02280 PXD 0,2 F2C02290 CAS FORNR DOTAGS BETA AGAINST FORVAL ALPHA. F2C02300 TRA IND30 FORVAL WITHIN RANGE F2C02310 TRA IND30 OF DOTAG. F2C02320 TXI IND20,1,-2 F2C02330 IND20 TXH IND10,1,0 F2C02340 TRA 2,4 DOTAG EXHAUSTED, RETURN. F2C02350 IND30 LXD L(3),2 F2C02360 CLA DOZ+1,1 FN EDIT CORR CD NR. F2C02370 IND40 CAS $RSYM1+3,2 DOES DOTAG SYMBOL EQUAL F2C02380 TRA IND50 FORVAL SYMBOL (WHICH HAS BEEN FOUND F2C02390 TRA 1,4 TO EQUAL SUBSCRIPT). IF SO, RETURN. F2C02400 IND50 TIX IND40,2,1 F2C02410 TXI IND20,1,-2 F2C02420 FORNR PZE STORAGE FOR 1ST WD 4VAL (ALPHA) F2C02430 IND60 ,,600*M/N*2 F2C02440 REM *******************SUBROUTINES COMMON TO 3A + 3B. F2C02450 * *** F2C02460 NORMRT TSX (LOAD),4 GO TO BLOCK 4. F2C02470 PZE F2C02480 BLCK3B LXD FORTAG-1,1 F2C02490 TXH NORMRT,1,3000*M/N*2-1 F2C02500 MSE 99 F2C02510 TRA RDO105 F2C02520 PSE 99 F2C02530 TRA RDTSX F2C02540 RDO105 LXD DORCCT,1 PICK UP DOTAG RECORD COUNT. F2C02550 SXA SKLST1,1 F2C02560 * *** F2C02570 RDORD TSX (TAPE),4 READ IN F2C02580 PZE RDOCM2,,(RBNC) ONE DOTAG F2C02590 PZE DTGBL,,FTAPE2 RECORD. F2C02600 * *** F2C02610 CLA (SCHU)+FTAPE2 UPDATE F2C02620 STA RDOCM2 ADDRESS. F2C02630 TIX RDORD,1,1 RETURN TO READ NEXT RECORD. F2C02640 CLA RDOCM2 COMPUTE F2C02650 ANA ADDMSK XR VALUE FOR F2C02660 SUB LDTGZ END OF TABLE. F2C02670 TMI RDO30 TEST FOR OVERFLOW. F2C02680 TSX ERRORM,4 DOTAG TABLE OVERFLOWS A BUFFER F2C02690 REM THE SAME SIZE AS THE ONE FROM WHICH F2C02700 REM IT WAS WRITTEN IN RECORD 16. F2C02710 REM DOTAG IS ON TAPE 2 AS FILE 6. F2C02720 RDO30 ALS 18 SAVE F2C02730 STD DOTAG-1 NEXT UNUSED INDEX. F2C02740 * *** F2C02750 RDO40 TSX (TAPE),4 SPACE TAPE F2C02760 PZE SKLST1,,(SKBP) TO READ DOTAG F2C02770 PZE DTGBL,,FTAPE2 TABLE (BLOCK 5). F2C02780 TRA DOPASS F2C02790 DTGBL BCI 1,DOTAGB F2C02800 RDOCM2 IORT DOTAG,,200*M/N*9 F2C02810 SKLST1 MZE **,,0 F2C02820 LDTGZ DOTGZ F2C02830 RDES1 PZE RECORD COUNT F2C02840 RDES2 PZE RECORD COUNT F2C02850 DOPASS LXD DOTAG-1,1 DOTAG INDEX. F2C02860 SXD SYM40,1 INITIALIZE. F2C02870 SXD SYM130,1 . F2C02880 SXD SYM220,1 . F2C02890 SXD TRAW20,1 . F2C02900 SXD TRAW50,1 . F2C02910 SXD SP040,1 F2C02920 SXD SP090,1 F2C02930 LXD NAME-1,1 . F2C02940 SXD GETN20,1 . F2C02950 REM THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON- F2C02960 REM NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMBINATIONF2C02970 REM FROM THE TAU TABLE. THE SYMBOLS ARE PUT INTO THE LOCATIONS F2C02980 REM RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INITIALIZED. F2C02990 REM CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY F2C03000 REM IN FORTAG AND ALL OTHER NON- NEGATIVE ENTRIES CONTAINING F2C03010 REM THIS TAG ARE SET NEGATIVE. F2C03020 TAGPAS LXD FORTAG-1,1 F2C03030 SXD TINF3,1 F2C03040 SXD TAGP80,1 F2C03050 SXD TAGP98,1 F2C03060 LXD MAXFTG,1 MAXIMUM SIZE TABLE FORTAG. F2C03070 TAGP10 CLA FORTZ,1 F2C03080 TMI TAGP94 IF NEG, GET NEXT FORTAG F2C03090 ANA ADDMSK TAG F2C03100 STO $TAG F2C03110 SXD TAGX,1 SAVE CURRENT FORTAG IX F2C03120 TSX SUBCOM,4 OBTAIN AND DISPERSE THE TAU TABLES. F2C03130 LXD L(3),4 F2C03140 PXD 0,0 F2C03150 TAGP20 STO $RSYM1+3,4 INITIALIZE WITH ZEROS. F2C03160 TIX TAGP20,4,1 F2C03170 LXD L(6),1 F2C03180 LXD L(3),2 F2C03190 LXD L(0),4 F2C03200 TAGP30 CLA $S1+6,1 GET SYMBOL F2C03210 TZE TAGP40 IF ZERO, GET NEXT SYMBOL F2C03220 TXH TAGP34,2,2 AT RSYM2 AND RSYM3 PASS, F2C03230 CAS $RSYM1 CHECK FOR DUPLICATE SYMBOLS. F2C03240 TRA TAGP32 F2C03250 TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM1. F2C03260 TAGP32 CAS $RSYM2 F2C03270 TRA TAGP34 F2C03280 TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM2. F2C03290 TAGP34 STO $RSYM1+3,2 F2C03300 TXI TAGP40,2,-1 BUMP DELTA COUNTER. F2C03310 TAGP40 TIX TAGP30,1,2 F2C03320 PXD 0,2 COMPUTE F2C03330 SSM DELTA AS NO F2C03340 ADD L(3) OF DISTINCT SYMBOLS. F2C03350 TZE TAGP50 CONSTANT SUBSCRIPT. F2C03360 STO DELTA F2C03370 LXD L(0),2 F2C03380 TXH TAGP45,4,0 IF DUPES, SET TAGIND TO ZERO F2C03390 SUB L(1) F2C03400 TNZ TAGP45 IF DELTA NOT 1, SET TAGIND TO 0. F2C03410 CLA $S1 F2C03420 TZE TAGP45 IF SSC CONSTANT, SET TAGIND TO 0. F2C03430 LXD $C1,1 IF COEFF NOT 1 SET TAGIND TO 0. F2C03440 TXH TAGP45,1,1 F2C03450 LXD L(1),2 OTHERWISE SET TAGIND TO ONE. F2C03460 TAGP45 SXD TAGIND,2 F2C03470 TRA SYMONE GO TO ANALYZE DONEST. F2C03480 TAGP50 LXD TAGX,1 IF ANY F2C03490 TAGP60 CLA FORTZ,1 OF THE AS YET UNTREATED F2C03500 TMI TAGP70 FORTAGS F2C03510 ANA ADDMSK ARE F2C03520 SUB $TAG THE SAME AS THAT TAG F2C03530 TNZ TAGP70 JUST TREATED, F2C03540 CAL L(MZ) SET THEM F2C03550 ORS FORTZ,1 MINUS. F2C03560 TAGP70 TXI TAGP80,1,-1 F2C03570 TAGP80 TXH TAGP60,1,0 (DEC HAS 4TAG IX) F2C03580 TAGP90 LXD TAGX,1 F2C03590 TAGP94 TXI TAGP98,1,-1 IF ALL OF FORTAG F2C03600 TAGP98 TXH TAGP10,1,0 HAS BEEN DONE, (DEC HAS 4TAG IX) F2C03610 TAGX TXL RDTSX,,0 EXIT. F2C03620 REM ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS F2C03630 REM SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE F2C03640 REM PROCESS SHOULD BE USED. F2C03650 REM IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2. F2C03660 SYMONE LXD MAXDTG,1 F2C03670 SYM10 LXD L(3),2 F2C03680 CLA DOTGZ+1,1 GET NEXT DOTAG SYMBOL. F2C03690 SYM20 CAS $RSYM1+3,2 IS IT SAME AS SS SYMBOL. F2C03700 TRA SYM30 F2C03710 TRA SYM50 YES F2C03720 SYM30 TIX SYM20,2,1 F2C03730 TXI SYM40,1,-9 F2C03740 SYM40 TXH SYM10,1,0 END OF DOTAG, RETURN. F2C03750 TRA TAGP50 F2C03760 SYM50 CLA $RSYM1 INTERCHANGE THE F2C03770 LDQ $RSYM1+3,2 MATCHING SUBSCRIPT F2C03780 STO $RSYM1+3,2 SYMBOL WITH F2C03790 STQ $RSYM1 RSYM1. F2C03800 CLA DOTGZ+5,1 F2C03810 ANA DECMSK STORE LEVEL F2C03820 STO LR1 OF F2C03830 STO TL2 DOTAG F2C03840 SXD XR1,1 THIS DOTAG IS R1. F2C03850 LXD DELTA,4 IF DELTA IS F2C03860 LXD L(1),2 ONE, THEN F2C03870 TXL SYM60,4,1 NO TRAWORD SKIP. F2C03880 LXD L(2),2 OTHERWISE, TRAWORD SKIP. F2C03890 SYM60 TSX TRAWRD,4 F2C03900 SXD NEXTR1,1 SAVE INDEX LAST DOTAG HANDLED. F2C03910 TZE SYM70 ARE THERE TRANSFERS OUT(TRABITS). F2C03920 LXD XR1,1 YES. LOAD I.R. FOR MATCHING DOTAG. F2C03930 LXD L(1),2 A ONE TELLS PROCESS THAT F2C03940 TSX PROCES,4 CALLER WAS SYMONE. (B). F2C03950 SYM70 LXD DELTA,4 NO TRANSFERS OUT (TRABITS) F2C03960 TXL SYM80,4,1 IF DELTA IS GREATER THAN ONE, THEN F2C03970 LXD XR1,1 LOAD INDEX REG FOR MATCHING DOTAG, F2C03980 LXD LR1,2 AND LEVEL AND F2C03990 TRA SYM2 GO TO SECOND LEVEL SEARCH. F2C04000 SYM80 LXD NEXTR1,1 DELTA IS ONE, F2C04010 TRA SYM40 CONTINUE FIRST LEVEL SEARCH. F2C04020 REM ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS F2C04030 REM NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE F2C04040 REM IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY. F2C04050 SYM2 SXD SYM100,2 INITIALIZE LEVEL TEST F2C04060 TRA SYM120 F2C04070 SYM90 CLA DOTGZ+5,1 GET LEVEL OF F2C04080 PDX 0,2 NEW DOTAG AND F2C04090 SYM100 TXL SYM40,2,0 TEST AGAINST LEVEL OF R1 AND F2C04100 CLA DOTGZ+1,1 IF IN RANGE OF R1, F2C04110 CAS $RSYM2 COMP DOTAG SYMBOL AND RSYM2. F2C04120 TRA SYM110 F2C04130 TRA SYM150 MATCHES . GO TO TREAT R2. F2C04140 SYM110 SUB $RSYM3 DOESNT MATCH RSYM2, TRY RSYM3. F2C04150 TZE SYM140 F2C04160 SYM120 TXI SYM130,1,-9 GET NEXT DOTAG F2C04170 SYM130 TXH SYM90,1,0 (DEC IS DOTAG IX) F2C04180 TRA SYM40 IF END OF DOTAG, EXIT. F2C04190 SYM140 CLA $RSYM2 DOTAG SYMBOL MATCHES RSYM3, F2C04200 LDQ $RSYM3 INTERCHANGE F2C04210 STO $RSYM3 RSYM2 AND F2C04220 STQ $RSYM2 RSYM3. F2C04230 SYM150 SXD XR2,1 THIS DOTAG IS R2 F2C04240 SXD LR2,2 SAVE ITS LEVEL . F2C04250 LXD L(1),2 IF DELTA IS F2C04260 LXD DELTA,4 TWO OR ONE, THEN F2C04270 TXL SYM160,4,2 NO TRAWORD SKIP. F2C04280 LXD L(2),2 OTHERWISE TRAWORD SKIP. F2C04290 SYM160 TSX TRAWRD,4 F2C04300 SXD NEXTR2,1 SAVE INDEX LAST DOTAG HANDLED. F2C04310 TZE SYM170 ARE THERE TRANSFERS OUT (TRABITS). F2C04320 LXD XR2,1 YES. LOAD IX REG FOR MATCHING DOTAG.F2C04330 LXD L(2),2 A TWO TELLS PROCESS THAT F2C04340 TSX PROCES,4 CALLER WAS SYM2. (2). F2C04350 SYM170 LXD DELTA,4 NO TRANSFERS OUT (TRABITS). F2C04360 TXL SYM180,4,2 IF DELTA IS 3 , THEN F2C04370 LXD XR2,1 LOAD INDEX REG FOR MATCHING DOTAG. F2C04380 LXD LR2,2 AND LEVEL AND F2C04390 TRA SYM3 GO TO THRID LEVEL SEARCH. F2C04400 SYM180 LXD NEXTR2,1 DELTA IS LESS THAN THREE, F2C04410 TRA SYM130 CONTINUE SECOND LEVEL SEARCH. F2C04420 REM ROUTINE SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2C04430 REM DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF F2C04440 REM NECESSARY, AND THEN RETURNS TO SYM2. F2C04450 SYM3 SXD SYM200,2 INITIALIZE WITH LEVEL OF R2. F2C04460 TRA SYM210 F2C04470 SYM190 CLA DOTGZ+5,1 GET LEVEL F2C04480 PDX 0,2 OF CURRENT DOTAG AND IF IT IS F2C04490 SYM200 TXL SYM130,2,0 OUT OF RANGE R2, EXIT. F2C04500 REM (DEC HAS LEVEL R2) F2C04510 CLA DOTGZ+1,1 CHECK FOR IDENTITY F2C04520 SUB $RSYM3 WITH THIRD FORTAG SYMBOL. F2C04530 TZE SYM230 IF IDENTITY, GO TO ANALYZE. IF NOT, F2C04540 SYM210 TXI SYM220,1,-9 GET NEXT DOTAG. F2C04550 SYM220 TXH SYM190,1,0 IF END OF DOTAG (DEC IS DOTAG IX) F2C04560 TRA SYM130 EXIT FROM THIRD LEVEL SEARCH F2C04570 SYM230 SXD XR3,1 SAVE IX OF MATCHING DO F2C04580 LXD L(1),2 NO TRAWORD SKIP. F2C04590 TSX TRAWRD,4 GO TO HUNT TRANSFERS-OUT. F2C04600 TZE SYM220 IF NO TRABITS, RETURN TO SEARCH. F2C04610 SXD NEXTR3,1 TRNSFRS OUT. SAVE IX LAST DO F2C04620 REM HANDLED IN TRAWRD. F2C04630 LXD XR3,1 F2C04640 LXD L(3),2 3 TELLS PROCESS THAT SYM3 CALLED. F2C04650 TSX PROCES,4 F2C04660 LXD NEXTR3,1 GET IX NEXT DOTAG AND F2C04670 TRA SYM220 CONTINUE THIRD LEVEL SEARCH. F2C04680 REM ROUTINE PROCESS DETERMINES WHETHER OR NOT THERE EXISTS A F2C04690 REM TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER ITS F2C04700 REM TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG F2C04710 REM IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS F2C04720 REM BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIESF2C04730 REM ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS. F2C04740 PROCES SXD DOX,1 SAVE DOTAG IX F2C04750 SXD SYMLNK,4 AND CALLER F2C04760 SXD PR10,2 AND INITIALIZE WITH B. F2C04770 LXD DELTA,2 F2C04780 LXD L(0),4 F2C04790 PR10 TXH PR20,2,0 DOES DELTA EXCEED B. (DEC IS B) F2C04800 LXD L(1),4 IF NOT, THEN NO SKIP. OTHERWISE, F2C04810 PR20 SXD SKIP,4 SKIP IF C(SKIP)=0. F2C04820 LXD TAGIND,4 TRA IF SPECIAL CASE( MOST SIMPLE). F2C04830 TXH PRSPEC,4,0 (TAGIND NOT ZERO) F2C04840 CLA DOTGZ,1 SEARCH NAME TABLE F2C04850 ANA DECMSK GET RSYM1 DOTAG ALPHA IN DEC F2C04860 ADD $TAG AND FORTAG IN ADDRESS. F2C04870 GETNM LXD NAMAX,1 LOAD MAX NO. TABLE WORDS F2C04880 TRA GETN3 F2C04890 GETN1 CAS NAMZ,1 DO THE DOTAG ALPHA AND FORTAG F2C04900 TRA GETN2 INDEX OF FIRST NAME ENTRY MATCH. F2C04910 TRA GETN4 YES F2C04920 GETN2 TXI GETN3,1,-3 NO, GET NEXT NAME TABLE. F2C04930 GETN3 TXH GETN1,1,0 IS NAME EXHAUSTED (DEC HAS IX) F2C04940 DOX TXL PR25,,0 YES, NOT FOUND (DEC HAS IX F2C04950 REM MATCHING DOTAG). F2C04960 GETN4 CLA NAMZ+1,1 FOUND. GET NEW TAG NAME F2C04970 STO TS AND SAVE IT. F2C04980 SYMLNK TXL PR80,,0 F2C04990 PR25 LXD SKIP,4 NOT FOUND IN NAME TABLE, F2C05000 LXD DOX,1 SEARCH FORTAG F2C05010 TXH PR30,4,0 IN PROPER RANGE. F2C05020 LXD L(1),2 INDICATE TINFOR SEARCH REQUIRED F2C05030 TSX SP000,4 F2C05040 TRA PR40 NOT FOUND F2C05050 TRA PR90 T FOUND F2C05060 PR30 TSX TINFR,4 F2C05070 TRA PR90 FOUND, GO TO EXIT. F2C05080 PR40 LXD L(0),2 T NOT FOUND, MAKE TYPE 6 F2C05090 TSX TRAENT,4 TRASTO ENTRY F2C05100 REM MAKE ENTRY IN TABLE IRV F2C05110 PR60 LXD IRVXX,1 GET IX FOR ENTRY IN TABLE IRV. F2C05120 TXH PR70,1,0 F2C05130 TSX ERROR9,4 IRV TABLE IS FULL. F2C05140 PR70 CLA $TAG PLACE TAG IN F2C05150 ALS 18 DECREMENT AND F2C05160 ADD $TAG ADDRESS AND F2C05170 STO IRVZ,1 STORE ENTRY IN TABLE IRV F2C05180 TXI PR75,1,-1 BUMP IRV TABLE INDEX AND F2C05190 PR75 SXD IRVXX,1 SAVE IT FOR NEXT ENTRY. F2C05200 TRA PR90 F2C05210 PR80 LXD L(1),2 MAKE TYPE ONE TRASTO ENTRY F2C05220 TSX TRAENT,4 F2C05230 PR90 LXD SYMLNK,4 RESTORE INDEX REG F2C05240 TRA 1,4 AND RETURN TO CALLER F2C05250 REM ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2C05260 REM RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE) F2C05270 PRSPEC CLA DOTGZ+8,1 IF DOTAGS F2C05280 ARS 18 TEST NAME F2C05290 SUB $TAG IS SAME AS F2C05300 TNZ PR100 CURRENT FORTAG F2C05310 CLA BIT18 AND IF F2C05320 ANA DOTGZ+6,1 THERE IS A F2C05330 TZE PR90 F2C05340 LXD L(3),2 MAKE A TYPE 5 TRASTO ENTRY F2C05350 TSX TRAENT,4 F2C05360 TRA PR90 F2C05370 PR100 TSX TINFR,4 LOOK FOR PREV. PROC. 4 TAG. F2C05380 TRA PR90 FOUND. F2C05390 LXD L(2),2 NOT FOUND, MAKE A TYPE 1 TRASTO F2C05400 TSX TRAENT,4 ENTRY F2C05410 TRA PR90 F2C05420 REM MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN F2C05430 REM B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE F2C05440 REM SIX TRASTO ENTRY WHEN B IS ZERO. F2C05450 TRAENT SXD TE70,4 F2C05460 LXD DOX,1 F2C05470 CLA DOTGZ,1 GET ALPHA AND BETA F2C05480 TXL TE10,2,2 WHERE B IS 3 (TYPE5) F2C05490 SSM SET E1 NEG. F2C05500 TE10 STO $E1 AND STORE IN E1. F2C05510 CLA TL2 GET LEVEL OF DOTAG F2C05520 ARS 18 INTO ADDRESS AND F2C05530 TXH TE20,2,0 WHERE B ZERO (TYPE 6), F2C05540 SSM SET NEG AND F2C05550 TE20 STO $E2 PUT IT INTO E2. F2C05560 TXL TE40,2,0 IS B=0 (TYPE 6). F2C05570 TXL TE30,2,1 IS B=1 (TYPE 1). F2C05580 CLA DOTGZ+8,1 B=2 OR 3(TYPE 1 OR 5).PREPARE F2C05590 ANA DECMSK DOTAG TEST NAME. F2C05600 TXL TE50,2,2 IS B=2 (SPECIAL TYPE 1). F2C05610 ORA DOTGZ+2,1 B=3.PREPARE DOTAG PARAMETER. F2C05620 SSM N1 AND MAKE NEGATIVE. F2C05630 TRA TE60 F2C05640 TE30 LXA TS,4 B=1. PUT NEW TAG NAME F2C05650 PXD 0,4 IN DECREMENT. F2C05660 TRA TE50 F2C05670 TE40 CLA L(MZ) B=0. MAKE DEC MINUS ZERO. F2C05680 TE50 ORA $TAG PUT FORTAG IN ADDRESS. F2C05690 TE60 STO $E3 STORE IN E3. F2C05700 CAL TRASTO GET TRASTO KEY WORD. F2C05710 LXD L(2),2 INDICATE TINFOR SEARCH NOT REQUIRED F2C05720 LXD SKIP,4 F2C05730 TXH TE80,4,0 IF SKIP IS 1 (DELTA GREATER THEN B)F2C05740 TSX SP000,4 GO TO SP. F2C05750 TE70 TXL TE90,,0 (DEC SAVES TSX LINK) F2C05760 TE80 TSX $LIST,4 GO TO LIST IF SKIP IS ZERO. F2C05770 TE90 LXD TE70,4 RETURN FROM LIST. F2C05780 TRA 1,4 RETURN TO CALLER. F2C05790 REM SUBROUTINE SP000 (IDENTICAL TO SPC000 IN BLOCK 2, F2C05800 REM EXCEPT FOR TABLE DEFINITIONS). F2C05810 SP000 SXD SP115,1 F2C05820 SXD SP060,2 F2C05830 SXD SP105,4 F2C05840 STO SPKEY F2C05850 CLA DOTGZ+5,1 F2C05860 STD SP050 F2C05870 CLA DOTGZ,1 F2C05880 PAX 0,2 F2C05890 ANA DECMSK F2C05900 STO $NEXTA F2C05910 STO $A F2C05920 PXD 0,2 F2C05930 STO $LASTB F2C05940 SP010 LXD SP115,1 F2C05950 SP020 TXI SP040,1,-9 F2C05960 SP040 TXL SP110,1,0 F2C05970 CLA DOTGZ+5,1 F2C05980 PDX 0,2 F2C05990 SP050 TXL SP110,2,0 F2C06000 CLA DOTGZ+1,1 F2C06010 SUB $RSYM1 F2C06020 TZE SP053 F2C06030 CLA DOTGZ+1,1 F2C06040 SUB $RSYM2 F2C06050 TNZ SP020 F2C06060 SP053 CLA DOTGZ,1 F2C06070 PAX 0,2 F2C06080 ANA DECMSK F2C06090 STO $B F2C06100 PXD 0,2 F2C06110 STO $NEXTA F2C06120 SXD SP115,1 F2C06130 SP055 LXD SP060,2 F2C06140 SP058 CLA $A F2C06150 SUB $B F2C06160 TZE SP065 F2C06170 TXL SPTIN,2,1 F2C06180 SP060 TXL SPSTO,,0 F2C06190 SP065 LXD SP060,2 F2C06200 TXL SP120,2,0 F2C06210 SP070 LXD SP115,1 F2C06220 CLA DOTGZ+5,1 F2C06230 STD SP100 F2C06240 SP080 TXI SP090,1,-9 F2C06250 SP090 TXL SP110,1,0 F2C06260 CLA DOTGZ+5,1 F2C06270 PDX 0,2 F2C06280 SP100 TXH SP080,2,0 F2C06290 CLA $NEXTA F2C06300 STO $A F2C06310 SP105 TXL SP050,,0 F2C06320 SP110 CLA $NEXTA F2C06330 STO $A F2C06340 CLA $LASTB F2C06350 STO $B F2C06360 LXD SP060,2 F2C06370 CLA L(0) F2C06380 STD SP060 F2C06390 SP115 TXL SP058,,0 STORAGE FOR TABLE KEY. F2C06400 SP120 LXD SP105,4 F2C06410 TRA 1,4 F2C06420 SP130 LXD SP105,4 F2C06430 TRA 2,4 F2C06440 SPTIN TSX TINFX,4 F2C06450 TRA SP130 F2C06460 TRA SP065 F2C06470 SPSTO CLA $B F2C06480 ARS 18 F2C06490 ADD $A F2C06500 STO $E1 F2C06510 CLA SPKEY F2C06520 TSX $LIST,4 F2C06530 TRA SP065 F2C06540 SPKEY PZE F2C06550 REM SUBROUTINES TINFR AND TINFX (IDENTICAL TO TINFOR AND F2C06560 REM TINFXX IN BLOCK 2, EXCEPT FOR TABLE DEFINITIONS). F2C06570 TINFR CLA DOTGZ,1 F2C06580 PAX 0,1 F2C06590 ANA DECMSK F2C06600 STO $A F2C06610 PXD 0,1 F2C06620 STO $B F2C06630 TINFX LXD MAXFTG,1 F2C06640 TINF1 CLA FORTZ,1 F2C06650 ANA DECMSK F2C06660 CAS $A F2C06670 TRA TINF4 F2C06680 NOP F2C06690 TINF2 TXI TINF3,1,-1 F2C06700 TINF3 TXH TINF1,1,0 F2C06710 TRA 2,4 F2C06720 TINF4 CAS $B F2C06730 TRA 2,4 F2C06740 NOP F2C06750 CLA FORTZ,1 F2C06760 TPL TINF2 F2C06770 ANA ADDMSK F2C06780 SUB $TAG F2C06790 TNZ TINF2 F2C06800 TRA 1,4 F2C06810 REM SUBROUTINE TRAWRD F2C06820 TRAWRD SXD TRAW65,4 F2C06830 CLA L(0) F2C06840 STO TRABIT INITIALIZE. F2C06850 CLA DOTGZ+5,1 LEVEL OF DOTAG F2C06860 STD TRAW30 F2C06870 TRAW10 CAL DOTGZ+7,1 GET T2 WORD. F2C06880 ORS TRABIT OR INTO TRABIT F2C06890 TXI TRAW20,1,-9 TAKE NEXT DO F2C06900 TRAW20 TXL TRAW70,1,0 IF NONE, EXIT (DEC IS DOTAG IX) F2C06910 CLA DOTGZ+5,1 GET L WORD. F2C06920 PDX 0,4 PUT L IN XRC. F2C06930 TRAW30 TXL TRAW70,4,0 EXIT IF DO IS NOT IN RANGE R1. F2C06940 REM (DEC HAS LEVEL DO). F2C06950 TXL TRAW10,2,1 IF COMPLETE TEST, NO TRWRD SKIP. F2C06960 TRAW35 CLA DOTGZ+1,1 IF INCOMPLETE TEST, IS THIS A F2C06970 SUB $RSYM2 DO TO BE SKIPPED. F2C06980 TZE TRAW38 IF SO, GO TO TRAW38 F2C06990 CLA DOTGZ+1,1 TEST RSYM3. F2C07000 SUB $RSYM3 IF NO SKIP F2C07010 TNZ TRAW10 GO BACK. F2C07020 TRAW38 CLA DOTGZ+5,1 THIS DO IS TO BE SKIPPED. F2C07030 STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR. F2C07040 TRAW40 TXI TRAW50,1,-9 TAKE NEXT DO IF ANY F2C07050 TRAW50 TXL TRAW70,1,0 IF NOT, EXIT. IF SO,(DEC IS DO IX) F2C07060 CLA DOTGZ+5,1 GET L WORD F2C07070 PDX 0,4 PUT L IN XRC F2C07080 TRAW60 TXH TRAW40,4,0 IF DO IS IN RANGE R2, GO BACK. F2C07090 TRAW65 TXL TRAW30,,0 OTHERWISE, GO TO TRAW30. F2C07100 TRAW70 LXD TRAW65,4 F2C07110 CLA L(36) OBTAIN 36 IN DECREMENT F2C07120 SUB TL2 36-TL2 (LEVEL OF DOTAG) F2C07130 ARS 18 IN ADDRESS F2C07140 STA TRAW90 INITIALIZE SHIFT F2C07150 CLA TL2 OBTAIN TL2 F2C07160 ARS 18 IN ADDRESS F2C07170 STA TRAW80 INITIALIZE SHIFT F2C07180 CLA L(0) ACC CONTAINS ZERO F2C07190 LDQ 35ONES MQ CONTAINS ALL ONES F2C07200 TRAW80 LLS ** PUT TL2 ONES IN AC (LEV DOTAG) F2C07210 TRAW90 ALS ** POSITION ONES IN AC. F2C07220 ANA TRABIT AND IN TRANSFER BITS F2C07230 TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2C07240 REM SET UP TSXCOM F2C07250 RDTSX CLA $LADDS+2 COMPUTE NR WDS IN TSXCOM. F2C07260 SUB TCOMAD TABLE AND F2C07270 ALS 18 F2C07280 STO TSCMWC STORE WORD COUNT. F2C07290 TZE IRVSRT IF IT IS EMPTY, EXIT. F2C07300 SSM IF NOT EMPTY, F2C07310 ADD TCOMAX COMPUTE NR OF UNFILLED TSXCOM F2C07320 STO TCOMWC SPACES AND SAVE IT AS AN IX VALUE, F2C07330 REM AND GO TO SORT TSXCOM. F2C07340 REM SORT TSXCOM F2C07350 SORT MSE LIGHT TURN OFF LIGHT F2C07360 NOP F2C07370 LXD TCOMWC,1 INITIALIZE F2C07380 TXI SORT10,1,2 F2C07390 SORT10 TXH MAKIRV,1,1000*M/N*2-2 F2C07400 SXD SORT80,1 INITIALIZE F2C07410 SORT20 LXD TCOMAX,1 F2C07420 SORT30 CLA TCOMZ,1 GET 1ST WD, 1ST ENTRY TSXCOM(ALPHA).F2C07430 CAS TCOMZ+2,1 COMPARE IT AGAINST SECOND ENTRY. F2C07440 TRA SORT50 OUT OF ORDER, REARRANGE ENTRY. F2C07450 TRA SORT40 IN ORDER BY 1ST WDS, CHECK 2ND WDS. F2C07460 TRA SORT70 ENTRIES IN ORDER, IGNORE. F2C07470 SORT40 CLA TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT F2C07480 CAS TCOMZ+3,1 HOW DO THEIR 2ND WORDS COMPARE. F2C07490 TRA SORT60 IF OUT OF ORDER, GO TO REARRANGE. F2C07500 TRA SORT70 IF EQUAL OR F2C07510 TRA SORT70 IF IN ORDER, IGNORE. F2C07520 SORT50 CLA TCOMZ,1 1ST ENTRY GREATER, OUT OF ORDER. F2C07530 LDQ TCOMZ+2,1 INTERCHANGE THE FIRST WORDS F2C07540 STO TCOMZ+2,1 OF THE F2C07550 STQ TCOMZ,1 TWO ENTRIES. F2C07560 SORT60 CLA TCOMZ+1,1 INTERCHANGE F2C07570 LDQ TCOMZ+3,1 THE F2C07580 STO TCOMZ+3,1 SECOND WORDS F2C07590 STQ TCOMZ+1,1 OF THE ENTRIES. F2C07600 PSE LIGHT INDICATE ENTRY OUT OF ORDER. F2C07610 SORT70 TXI SORT80,1,-2 BUMP FOR NEXT COMPARISON F2C07620 SORT80 TXH SORT30,1,0 IS PASS COMPLETE. F2C07630 REM (DEC HAS UNUSED TSXCOM BUFF+3). F2C07640 MSE LIGHT YES, WAS AN ENTRY OUT OF ORDER. F2C07650 TRA REMOVE NO. GO TO MAKIRV. F2C07660 LXD SORT80,1 YES. NUMBER OF COMPARISONS F2C07670 TXI SORT90,1,2 MADE IS DECREASED BY ONE F2C07680 SORT90 SXD SORT80,1 ON EACH PASS. F2C07690 TRA SORT20 F2C07700 REM BUILD UP TABLE IRV FROM TSXCOM F2C07710 MAKIRV LXD IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY) F2C07720 LXD TCOMWC,1 F2C07730 SXD MAK50,1 F2C07740 LXD TCOMAX,1 F2C07750 MAK10 CAL TCOMZ+1,1 GET SECOND WORD OF TSXCOM. F2C07760 ANA PREMSK PULL OUT PREFIX. F2C07770 TNZ MAK40 IS ANYTHING THERE. F2C07780 CLA TCOMZ+1,1 F2C07790 TXH MAK20,2,0 F2C07800 TSX ERROR9,4 IRV TABLE IS FULL. F2C07810 MAK20 STO IRVZ,2 STORE IRV. F2C07820 TXI MAK40,2,-1 F2C07830 MAK40 TXI MAK50,1,-2 F2C07840 MAK50 TXH MAK10,1,0 IS TSXCOM ENDED. (DEC IS UNUSED IX) F2C07850 MAK60 SXD IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV.F2C07860 REM SORT TABLE IRV. F2C07870 IRVSRT LXD IRVXX,1 F2C07880 TXI IRVS10,1,1 F2C07890 IRVS10 TXH END,1,600*M/N-1 IS THERE ONLY ONE ENTRY IN IRV. F2C07900 SXD IRVS50,1 F2C07910 MSE LIGHT TURN OFF LITE. F2C07920 NOP F2C07930 IRVS20 LXD IRVMAX,1 INITIALIZE F2C07940 IRVS30 CLA IRVZ,1 GET FIRST IRV ENTRY AND F2C07950 CAS IRVZ+1,1 COMPARE AGAINST ITS NEIGHBOR. F2C07960 TRA IRVS60 OUT OF ORDER. GO TO REARRANGE. F2C07970 NOP F2C07980 IRVS40 TXI IRVS50,1,-1 BUMP FOR NEXT COMPARISON F2C07990 IRVS50 TXH IRVS30,1,0 IS PASS COMPLETE (DEC IS IRV IX) F2C08000 MSE LIGHT YES . WAS OUT OF ORDER NABBED. F2C08010 TRA DELETE NO. SORT COMPLETE. F2C08020 TRA IRVS20 YES. MAKE ANOTHER PASS. F2C08030 IRVS60 LDQ IRVZ+1,1 REARRANGE F2C08040 STO IRVZ+1,1 THE OUT OF ORDER F2C08050 STQ IRVZ,1 IRV ENTRIES AND F2C08060 PSE LIGHT INDICATE SAME. F2C08070 TRA IRVS40 F2C08080 REM DELETE DUPE ENTRIES FROM TABLE IRV F2C08090 DELETE LXD IRVXX,1 F2C08100 SXD DEL30,1 INITIALIZE F2C08110 LXD IRVMAX,3 INIT STANDARD AND CANDIDATE XRS. F2C08120 TIX DEL10,2,1 BUMP CANDIDATE IR. F2C08130 DEL10 CLA IRVZ,2 GET CANDIDATE. F2C08140 CAS IRVZ,1 COMPARE AGAINST STANDARD. F2C08150 TRA DEL40 CANDIDATE DOES NOT MATCH STANDARD. F2C08160 TRA DEL20 CAND. MATCHES STANDARD. F2C08170 TSX ERRORM,4 IRV ENTRIES ARE OUT OF ORDER F2C08180 REM OR MACHINE HAS FAILED IF XR2 F2C08190 REM IRV IS LESS THAN XR1 IRV. F2C08200 DEL20 TXI DEL30,2,-1 BUMP FOR NEXT CANDIDATE. F2C08210 DEL30 TXH DEL10,2,0 IS IT END OF PASS(DEC IS IRV IX) F2C08220 TXI DEL35,1,-1 YES. BUMP STANDARD IR. F2C08230 DEL35 SXD IRVXX,1 SAVE NEW IRV SIZE INDEX. F2C08240 TRA END EXIT. F2C08250 DEL40 STO IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK. F2C08260 TXI DEL20,1,-1 AND INSTALL IT AS STANDARD. F2C08270 END CLA IRVMAX COMPUTE IRV F2C08280 SUB IRVXX WD CT AND F2C08290 STO IRVWC STORE IN WD PRECEDING TABLE (IN DEC)F2C08300 CLA $LADDS+1 COMPUTE TRASTO F2C08310 SUB TRSTAD WD CT AND F2C08320 STO TRSTWC STORE IN WD PRECEDING TABLE (IN ADD)F2C08330 TRA NORMRT F2C08340 ENDB SYN *+20 F2C08350 LIGHT EQU 100 IF FORVAL EMPTY, LIGHT ON. F2C08360 REMOVE SYN MAKIRV F2C08370 TCD -1 $F2C08375 LBL 9F21,M F2C08380 TTL BLOCK D. F2C08390 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK D. F2D00000 HEAD 4 F2D00010 ORG SYSCUR $F2D00020 BCI 1,9F2100 $F2D00030 ORG (LODR) $F2D00040 TXI START,,210 F2D00060 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2D00080 N SYN 1$N TO NORMAL 32K SIZES. F2D00090 REM BLOCK 4 F2D00100 REM THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE F2D00110 REM INDEX LOAD VALUES FOR PURE RELCONS. F2D00120 REM THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS F2D00130 REM (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1 F2D00140 REM TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE F2D00150 REM SUBROUTINES REQUIRED. F2D00160 HEAD 0 F2D00170 FIXCN SYN 1$FIXCN F2D00180 FIXWC SYN FIXCN-1 F2D00190 REM SUBROUTINES AND CELLS COMMON TO F2D00200 REM BLOCKS FOUR AND FIVE. F2D00210 ORG BITTWO+1 F2D00220 L1DEC OCT 1000000 F2D00230 L(3) OCT 3 F2D00240 L(6) OCT 6 F2D00250 L(8) OCT 10 F2D00260 BCD2 OCT 020000000000 F2D00270 E2C PZE F2D00280 E3C PZE F2D00290 LINKC PZE F2D00300 WRKSC DUP 1,8 EIGHT WRKSC WORDS. F2D00310 PZE F2D00320 OR000 DUP 1,12 F2D00330 PZE F2D00340 OR012 OCT 010000000001 F2D00350 OR013 OCT 060000000003 F2D00360 OR014 DUP 1,4 F2D00370 PZE F2D00380 OR018 PZE F2D00390 OR019 DUP 1,7 F2D00400 PZE F2D00410 OR026 OCT 010000000003 F2D00420 OR027 PZE F2D00430 L(STO) BCI 1,STO000 F2D00440 L(CLA) BCI 1,CLA000 F2D00450 REM COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON F2D00460 REM TABLE, AND SETS SENSE LIGHTS ACCORDINGLY. F2D00470 COSE LXA L(6),1 INDEX TO SELECT SUBSCRIPTS IN TURN. F2D00480 LXA L(3),2 INITIALISE SENSE LT. SELECTION. F2D00490 SXD LINKC,4 F2D00500 COSE5 CLA WRKSC+6,1 SELECT A S.C. COEFF. F2D00510 TZE COSE08 TRA IF NO SUBSC. IN THIS DIMENSION. F2D00520 SUB L1DEC F2D00530 TZE COSE08 TRA IF COEFF. IS ONE. F2D00540 PSE 100,2 SET CORRESPONDING SENSE LIGHT. F2D00550 CLA WRKSC+6,1 ENTER COEFF IN FIXCON IF F2D00560 TSX FXCON,4 NOT ALREADY THERE. F2D00570 STO OR000+12,2 STORE NAME OF FIXCON ENTRY. F2D00580 COSE08 TIX COSE10,1,2 F2D00590 COSE10 TIX COSE5,2,1 REPEAT FOR ALL SUBSCRIPTS. F2D00600 LXD LINKC,4 F2D00610 TRA 1,4 RETURN F2D00620 REM *************************************************************F2D00630 REM FIXCON SEARCHES THE FIXCN TABLE FOR THE PRESENCE OF F2D00640 REM A DESIRED FIXED POINT CONSTANT. IF THE DESIRED FIXCON F2D00650 REM IS NOT THERE AN ENTRY IS MADE. A SYMBOL IS F2D00660 REM FORMED FOR THE CONSTANT AND LEFT IN THE ACCUMULATOR. F2D00670 FXCON SXD E2C,1 SAVE INDEX REGISTERS. F2D00680 SXD E3C,2 X F2D00690 LXA FIXWC,1 $F2D00700 LXA FIXWC,2 $F2D00705 TXI *+1,2,FIXCN AND COUNTER FOR F2D00710 SXA FC10,2 SCAN OF FIXCON. F2D00720 SXA FC13,2 F2D00730 AXT 1,2 INITIALIZE ENTRY NO. COUNTER. F2D00740 TXL FC13,1,0 TEST FOR EMPTY TABLE F2D00750 FC10 CAS 0,1 ADDRESS INITIALIZED. F2D00760 TXI FC12,2,1 F2D00770 TXI FC14,2,-1 ENTRY FOUND. F2D00780 TXI FC12,2,1 F2D00790 FC12 TIX FC10,1,1 ENTRY NOT FOUND, CONTINUE SCAN. F2D00800 TXH FC16,2,LMXFIX HAS TABLE OVERFLOWED F2D00810 FC13 STO ** F2D00820 SXA FIXWC,2 UPDATE WORD COUNT. F2D00830 TXI *+1,2,-1 F2D00840 FC14 PXA 0,2 FORM FIXCON SYMBOL F2D00850 ORA BCD2 IN ACCUMULATOR. F2D00860 LXD E2C,1 RESTORE INDEX REGISTERS F2D00870 LXD E3C,2 AND F2D00880 TRA 1,4 RETURN. F2D00890 FC16 TSX ERRO10,4 FIXCON HAS OVERFLOWED. F2D00900 REM *************************************************************F2D00910 SUBCM SXD TAUREF,1 SAVE CALLERS INDEX F2D00920 SXD TAUREF+1,4 REGISTERS 1 AND 4. F2D00930 LXA L(8),4 F2D00940 SUB010 STZ WRKSC+8,4 INITIALIZE WRKSC F2D00950 TIX SUB010,4,1 TO ZEROES. F2D00960 LRS 9 ISOLATE TABLE NUMBER F2D00970 PAX 0,4 (TAU 1,2 OR 3) IN IR4. F2D00980 CLM F2D00990 LLS 9 F2D01000 ALS 1 TWICE ENTRY NO. FOR TAU 1. F2D01010 TXL SUB30,4,1 TRA IF TAU1. F2D01020 ALS 1 4 TIMES ENTRY NO. FOR TAU 2. F2D01030 TXL SUB30,4,2 TRA IF TAU2. F2D01040 STO TAUERS F2D01050 ARS 1 F2D01060 ADD TAUERS 6 TIMES ENTRY NO. FOR TAU 3. F2D01070 SUB30 PAC 0,1 TABLE IX=ENTRY LENGTH X NO. F2D01080 CLA* TAUREF+3,4 F2D01090 STD WRKSC C1. F2D01100 TXL SUB50,4,1 F2D01110 ALS 18 F2D01120 STD WRKSC+2 C2 (FOR TAU2 OR 3). F2D01130 TXL SUB50,4,2 TRA IF TAU2. F2D01140 SUB40 TXI *+1,1,-1 F2D01150 CLA* TAUREF+3,4 F2D01160 STD WRKSC+4 C3. F2D01170 SUB50 TXI *+1,1,-1 F2D01180 CLA* TAUREF+3,4 F2D01190 STO WRKSC+1 S1. F2D01200 TXL SUB060,4,1 TAU 1 FINISHED. F2D01210 TXI *+1,1,-1 F2D01220 CLA* TAUREF+3,4 F2D01230 STO WRKSC+3 S2 F2D01240 TXI *+1,1,-1 F2D01250 CLA* TAUREF+3,4 F2D01260 STO WRKSC+8,4 S3 IF TAU 3, D1 IF TAU 2. F2D01270 TXL SUB060,4,2 TAU2 FINISHED. F2D01280 TXI *+1,1,-1 F2D01290 CLA* TAUREF+3,4 F2D01300 STD WRKSC+6 D1 FOR TAU 3. F2D01310 ALS 18 F2D01320 STD WRKSC+7 D2. F2D01330 SUB060 LXD TAUREF,1 RESTORE CALLERS INDEX F2D01340 LXD TAUREF+1,4 REGISTERS 1 AND 4. F2D01350 TRA 1,4 F2D01360 TAUERS PZE ** F2D01370 TAUREF PZE TAU3,1,** INDIRECT ADDRESSING F2D01380 PZE TAU2,1,** REFERENCES TO F2D01390 PZE TAU1,1,** TAU TABLES. F2D01400 REM *************************************************************F2D01410 HEAD 4 F2D01420 A)BSZ EQU 200 SIZE OF CIT OUTPUT BUFFERS. F2D01430 BOB SYN 3$IRV ADDITIONAL F2D01440 BOBWC SYN BOB-1 TABLE F2D01450 FIXCN SYN 1$FIXCN DEFINITIONS. F2D01460 FIXWC SYN FIXCN-1 FOR BLOCK 4. F2D01470 ADTAG SYN DMTGTB F2D01480 ADTGWC SYN ADTAG-1 F2D01490 A)B2 SYN ADTGWC-A)BSZ F2D01500 A)B1 SYN A)B2-A)BSZ F2D01510 REM *************************************************************F2D01520 START CLA L(1) SAVE STATUS OF SENSE LIGHT 3. F2D01530 SLT 3 F2D01540 TRA START0 F2D01550 STO SENSE1 F2D01560 * *** F2D01570 START0 TSX (TAPE),4 SKIP OVER FIRST F2D01580 PZE SKLST3,,(SKBP) FILE OF F2D01590 PZE 5$TAGL,,FTAPE4 TAGTAG TAPE. F2D01600 START1 LXD BOBWC,1 F2D01610 TXL FIN,1,0 EXIT IF NO ENTRIES IN IRV. F2D01620 AXT 0,2 F2D01630 REPETE CLA BOB,2 SELECT TABLE IRV ENTRY. F2D01640 STA NAME1 PUT SUBCOM NAME IN NAME 1. F2D01650 ARS 18 PUT TAU REFERENCE F2D01660 STA TAG1 IN TAG1. F2D01670 ENTRY SXD BX,2 F2D01680 SXD AX,1 F2D01690 TSX $SUBCM,4 PICK UP TAU ENTRY. F2D01700 TSX COMPIL,4 COMPILE SUBROUTINE FRO COMPUTING F2D01710 LXD BX,2 LOAD VALUE. F2D01720 LXD AX,1 F2D01730 TXI TEST,2,-1 STEP DOWN COUNT THROUGH TABLE IRV. F2D01740 TEST TNX FINISH,1,1 END OF TABLE IRV. F2D01750 TSX LINKTR,4 COMPILE SUBROUTINE RETURN. F2D01760 TRA REPETE F2D01770 EQUAL TSX STOTP,4 F2D01780 TRA TEST-1 F2D01790 FINISH TSX LINKTR,4 F2D01800 TSX CITSP,4 WRITE CIT BUFFER ON TAPE. F2D01810 TRA FIN1 F2D01820 * *** F2D01830 FIN TSX (TAPE),4 WRITE FOUR F2D01840 PZE DSC2,,(WBNP) ZERO WORDS FOR F2D01850 PZE A)FNL,,FTAPE3 EMPTY DOFILE C. F2D01860 * *** F2D01870 FIN1 TSX (TAPE),4 WRITE EOF F2D01880 PZE 0,0,(WEFP) AFTER F2D01890 PZE FILN8L,,FTAPE3 A) ROUTINES. F2D01900 SLF TURN OFF ALL SENSE LIGHTS. F2D01910 CLA SENSE1 RESTORE STATUS F2D01920 TZE *+2 OF SENSE LIGHT 3. F2D01930 SLN 3 F2D01940 TRA 5$AINIT F2D01950 DSC2 IORT CIL00,,4 F2D01960 A)FNL BCI 1,A)FUNC F2D01970 SKLST3 PZE 0,,1 F2D01980 FILN8L BCI 1,EOF1 F2D01990 REM *************************************************************F2D02000 COMPIL SXD 1XBOX,1 F2D02010 SXD 2XBOX,2 F2D02020 SXD LINK1,4 SAVE LINKAGE F2D02030 PSE 96 TURN ALL SENSE LIGHTS OFF F2D02040 TSX $COSE,4 GET NAME OF COEFF IN FIXCON. F2D02050 CLA L(CLA) F2D02060 STO CIL01 THIS ROUTINE COMPILES F2D02070 CLA OR000+13 THE INSTRUCTION F2D02080 ANA 6ONES F2D02090 STO CIL02 CLA 6)+3, F2D02100 CLA $L(3) WITH ZERO TAG, F2D02110 ALS 18 F2D02120 STO CIL03 TOGETHER WITH A SYMBOLIC F2D02130 CLA NAME1 LOCATION OF F2D02140 ORA BCD10 F2D02150 STOLOC STO CIL00 10)+NAME1 F2D02160 TSX CIT,4 ENTER INSTR. IN CIT F2D02170 CLA L(STO) F2D02180 STO CIL01 THIS ROUTINE COMPILES THE F2D02190 CLA OR000+26 INSTRUCTION. F2D02200 PAX 0,1 F2D02210 ANA 6ONES STO 1)+3 F2D02220 SXD CIL03,1 THESE COMPILED INSTR. PLACE F2D02230 STO CIL02 1 IN ERASABLE STORAGE F2D02240 ZAC F2D02250 STO CIL00 F2D02260 TSX CIT,4 ENTER INSTR. IN CIT F2D02270 CLA $WRKSC+1 TEST 1ST SSC SYMBOL. F2D02280 TZE S2 NO SYMBOL PRESENT F2D02290 STO OR000+1 SAVE S1 FOR LXC ROUTINE F2D02300 LXA L(4),1 INDEX FOR NO. OF COMPILED INSTR. F2D02310 MSE 97 DOES 1ST COEFF EXCEED 1 F2D02320 TRA COMP20 NO F2D02330 TXI COMP30,1,2 YES. 6 INSTR. TO BE COMPILED F2D02340 COMP20 CLA KLX02 NO. COMPILE INSTR TO COMPUTE F2D02350 TRA COMP30+1 S1-1+(1 ALREADY IN ERASABLE) F2D02360 COMP30 CLA KLX021 YES. COMPILE C1A1-1 F2D02370 TSX LXC,4 +(1 AREADY IN ERASABLE) F2D02380 S2 CLA $WRKSC+3 F2D02390 TZE S3 TRA IF NO 2ND SUBSC. SYMBOL F2D02400 STO OR000+4 SAVE S2 FOR LXC ROUTINE. F2D02410 CLA $WRKSC+6 GET SYMBOLIC ADDRESS F2D02420 TSX $FXCON,4 OF D1 IN FIXCON TABLE F2D02430 STO OR000+7 AND STORE FOR LXC ROUTINE. F2D02440 LXA $L(6),1 6 INSTR. TO BE COMPILED. F2D02450 MSE 98 IS COEFF. C2 GREATER THAN 1. F2D02460 TRA COMP40 NO. COMPILE D1*S2-D1+ F2D02470 CLA KLX03 YES. 8 INSTR. COMPILED TO F2D02480 TXI COMP40+1,1,2 COMPUTE D1*S2*C3-D1+ F2D02490 COMP40 CLA KLX031 F2D02500 TSX LXC,4 + THAT ALREADY COMPUTED. F2D02510 S3 CLA $WRKSC+5 TEST FOR 3RD SUBSCRIPT F2D02520 TZE COMP55 SYMBOL. F2D02530 STO OR000+21 STORE FOR LXC ROUTINE. F2D02540 LDQ $WRKSC+6 COMPUTE D1*D2, F2D02550 MPY $WRKSC+7 AND OBTAIN F2D02560 ALS 17 NAME FOR THIS CONSTANT FROM F2D02570 TSX $FXCON,4 FIXCON, AND STORE FOR F2D02580 STO OR000+24 LXC ROUTINE. F2D02590 LXA $L(6),1 6 INSTR. TO BE COMPILED. F2D02600 MSE 99 IS 3RD COEFF GREATER THAN 1. F2D02610 TRA COMP50 NO. COMPILE D1D2*S3-D1D2+ F2D02620 CLA KLX05 YES, COMPILE D1D2*C3S3-D1D2+ F2D02630 TXI COMP50+1,1,2 F2D02640 COMP50 CLA KLX051 F2D02650 TSX LXC,4 + THAT ALREADY COMPUTED. F2D02660 COMP55 LXD BBOX,4 F2D02670 TXI COMP55+2,4,4 STEP UP CIT BUFFER COUNT F2D02680 SXD BBOX,4 F2D02690 TSX STOTP,4 COMPILE INSTRUCTION TO STORE F2D02700 LXD 1XBOX,1 LOADING VALUE FOR SUBSCRIPT COMB. F2D02710 LXD 1XBOX,2 F2D02720 LXD LINK1,4 F2D02730 TRA 1,4 RETURN F2D02740 REM *************************************************************F2D02750 STOTP SXD LINK2,4 ROUTINE COMPILES THE INSTR. F2D02760 CLA L(0) TO STORE THE RESULTS OF F2D02770 STO CIL00 THE SUBROUTINE COMPILATION IN F2D02780 STO CIL03 THE TAG NAME. F2D02790 CLA L(STO) THIS INSTRUCTION IS F2D02800 STO CIL01 F2D02810 CLA NAME1 STO 12)+ NAME1 F2D02820 ORA BCD14 F2D02830 STO CIL02 F2D02840 TSX CIT,4 ENTER IN CIT TABLE F2D02850 LXD LINK2,4 F2D02860 TRA 1,4 RETURN F2D02870 REM *************************************************************F2D02880 LINKTR CLA L(0) F2D02890 STO CIL00 THIS ROUTINE COMPILES F2D02900 STO CIL02 INSTRUCTION FOR RETURN F2D02910 CLA L(TRA) TO THE FORTRAN MASTER F2D02920 STO CIL01 ROUTINE. F2D02930 CLA RELTG TRA1,4 F2D02940 STO CIL03 F2D02950 SXD LINK1,4 F2D02960 TSX CIT,4 FENTER IN CIT TABLE. F2D02970 LXD LINK1,4 F2D02980 TRA 1,4 RETURN F2D02990 L(TRA) BCI 1,TRA000 F2D03000 RELTG OCT 000001000004 F2D03010 REM *************************************************************F2D03020 REM ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN. F2D03030 REM OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA F2D03040 LXC SXD LXC19,4 F2D03050 STO ERLXC SAVE LOCATION OF INSTR. SKELETON. F2D03060 PXD 0,1 NO. OF INST TO BE COMPILED. F2D03070 ARS 18 F2D03080 ADD ERLXC FORM ADDRESS WHICH GIVES F2D03090 STA LXC10 APPROPRIATE SKELETAL WORDS. F2D03100 LXC08 CLA L(0) SET CIT SYMBOLIC LOCN. TO ZERO F2D03110 STO CIL00 F2D03120 LXC10 LDQ 0,1 SELECT NEXT SKELETAL WORD. F2D03130 LLS 0 FOR COMPILATION. SET SIGN IN AC. F2D03140 LGL 18 BCD. OPERATION IS IN DECREMENT. F2D03150 STQ CIL01 STORE OPERATION F2D03160 TMI LXC20 CIT IS SHIFT TYPE INSTRUCTION. F2D03170 STA LXC15 CIT IS SYMBOLIC ADDRESS TYPE. F2D03180 LXC15 CLA ** ADD IS LOC OF SYMBOL ADDRESS. F2D03190 STO CIL02 OF CIT. F2D03200 CLA L(0) F2D03210 STO CIL03 SET CIT TAG TO ZERO. F2D03220 CAL CIL02 TEST FOR A COT F2D03230 ANA 6ONES SYMBOLIC ADDRESS OF THE TYPE F2D03240 TZE LXC30 1)+3 OR6)+2 ERASABLE F2D03250 ANA BIT01 STORAGE F2D03260 TNZ LXC30 NO F2D03270 CAL CIL02 YES. SEPARATE ADDRESS LEAVING THE F2D03280 ALS 18 CLASS OF SYMBOLS IN SYMBOLIC F2D03290 STD CIL03 ADDRESS POSN. ALONE, AND F2D03300 CAL 6ONES PLACING ADDEND IN REL. ADDRESS F2D03310 ANS CIL02 POSITION. F2D03320 LXC19 TXL LXC30,,0 UNCOND. TRANSFER LINKAGE IN DEC) F2D03330 LXC20 ALS 18 CIT IS SHIFT TYPE INSTRUCTION F2D03340 ANA DECMSK I.E. ABSOLUTE ADDRESS ONLY. F2D03350 STO CIL03 STORE ADDRESS IN CIT REL. ADDRESS. F2D03360 CLA L(0) STORE ZERO AS F2D03370 STO CIL02 SYMBOLIC ADDRESS. F2D03380 LXC30 TSX CIT,4 MAKE CIT ENTRY. F2D03390 TIX LXC08,1,1 RETURN FOR NEXT SKELETON INST. F2D03400 LXD LXC19,4 SKELETON COMPLETED. F2D03410 TRA 1,4 RETURN. F2D03420 LX100 PZE 14545,2,OR000+13 CLA. THESE WORDS F2D03430 PZE 11494,6,OR000+26 STO. CONSTITUTE THE F2D03440 LX102 PZE 14545,2,OR000+1 CLA. CODING F2D03450 PZE 11538,6,OR000+13 SUB. SKELETONS, F2D03460 PZE 5396,2,OR000+26 ADD. AND ARE F2D03470 PZE 11494,6,OR000+26 STO. CALLED UPON F2D03480 LX105 PZE 13608,4,OR000+1 LDQ. BY THE LXC F2D03490 PZE 18936,4,OR000+9 MPY. ACCORDING F2D03500 TNX 6386,2,17 ALS. TO THE F2D03510 PZE 11538,6,OR000+13 SUB. DIFFERENT F2D03520 PZE 5396,2,OR000+26 ADD. COMPUTATIONS F2D03530 PZE 11494,6,OR000+26 STO. REQUIRED F2D03540 LX110 PZE 13608,4,OR000+4 LDQ. F2D03550 PZE 18936,4,OR000+7 MPY. THE TAG AND F2D03560 TNX 6386,2,17 ALS. ADDRESS ARE F2D03570 PZE 11538,6,OR000+7 SUB. THE BCD F2D03580 PZE 5396,2,OR000+26 ADD. EQUIVALENTS OF F2D03590 PZE 11494,6,OR000+26 STO. THE CIT F2D03600 LX116 PZE 13608,4,OR000+4 LDQ. INSTRUCTIONS. F2D03610 PZE 18936,4,OR000+10 MPY. THE SYMBOLIC F2D03620 TNX 14962,4,18 LRS. DECREMENTS ARE F2D03630 PZE 18936,4,OR000+7 MPY. THE LOCATIONS F2D03640 TNX 6386,2,17 ALS. OF THE F2D03650 PZE 11538,6,OR000+7 SUB. ADDRESSES IN F2D03660 PZE 5396,2,OR000+26 ADD. THE CIT F2D03670 PZE 11494,6,OR000+26 STO. F2D03680 LX124 PZE 13608,4,OR000+21 LDQ. THE NEGATIVE F2D03690 PZE 18936,4,OR000+24 MPY. PREFIX INDICATES F2D03700 TNX 6386,2,17 ALS. A PURELY F2D03710 PZE 11538,6,OR000+24 SUB. ABSOLUTE ADDRESSES F2D03720 PZE 5396,2,OR000+26 ADD. F2D03730 PZE 11494,6,OR000+26 STO. F2D03740 LX130 PZE 13608,4,OR000+21 LDQ. F2D03750 PZE 18936,4,OR000+11 MPY. F2D03760 TNX 14962,4,18 LRS. F2D03770 PZE 18936,4,OR000+24 MPY. F2D03780 TNX 6386,2,17 ALS. F2D03790 PZE 11538,6,OR000+24 SUB. F2D03800 PZE 5396,2,OR000+26 ADD. F2D03810 PZE 11494,6,OR000+26 STO. F2D03820 REM *************************************************************F2D03830 REM *************************************************************F2D03840 REM CIT WRITES THE COMPILED INSTRUCTION F2D03850 REM BUFFER ON TAPE, WHEN FULL, AND ENTERS F2D03860 REM A NEW CIT INTO THE BUFFER. F2D03870 CIT SXD $E2C,2 F2D03880 SXD $E3C,4 F2D03890 LXD BBOX,2 F2D03900 TXL *+2,2,0 TEST FOR FULL BUFFER. F2D03910 TXL CIT06,2,-A)BSZ F2D03920 CIT01 AXT 4,4 F2D03930 CIT02 CLA CIL00+4,4 MOVE CIT TO OUTPUT F2D03940 CIT03 STO A)B1,2 BUFFER. F2D03950 TXI *+1,2,-1 F2D03960 TIX CIT02,4,1 F2D03970 SXD BBOX,2 F2D03980 CIT04 LXD $E2C,2 NOT FULL, F2D03990 CIT05 LXD $E3C,4 RETURN. F2D04000 TRA 1,4 F2D04010 CIT06 AXC -1,2 F2D04020 * *** F2D04030 CIT07 TSX (TAPE),4 WRITE ONE RECORD F2D04040 PZE A)B2A,2,(WBNP) OF A) CITS. F2D04050 PZE A)FNL,,FTAPE3 F2D04060 CLA DSC5,2 CHANGE OUTPUT F2D04070 STA CIT03 BUFFER ADDRESS. F2D04080 SXA CIT06,2 REVERSE SWITCH. F2D04090 STZ BBOX RESET WORD COUNT. F2D04100 ZET *+1 IS THIS LAST RECORD. F2D04110 CIT08 TRA CIT01-3 NO, GO BACK TO MAKE AN ENTRY. F2D04120 TRA CIT05 YES, RETURN. F2D04130 CITSP SXD $E3C,4 F2D04140 LDC BBOX,4 IS LAST F2D04150 TXL CIT05,4,0 BUFFER EMPTY. F2D04160 LAC CIT06,2 NO, COMPUTE WORD COUNT F2D04170 PXD ,4 AND STORE IN F2D04180 STD A)B2A,2 CURRENT I/O COMMAND. F2D04190 STZ CIT08 SET LAST-TIME SWITCH. F2D04200 TRA CIT07 F2D04210 DSC4 IORT A)B1,,A)BSZ F2D04220 A)B2A PZE A)B2 F2D04230 DSC5 IORT A)B2,,A)BSZ F2D04240 A)B1A PZE A)B1 F2D04250 BBOX PZE F2D04260 CIL00 PZE F2D04270 CIL01 PZE F2D04280 CIL02 PZE F2D04290 CIL03 PZE F2D04300 REM *************************************************************F2D04310 NAME1 PZE F2D04320 TAG1 PZE F2D04330 TAG2 PZE F2D04340 RECCNT PZE F2D04350 1XBOX PZE F2D04360 2XBOX PZE F2D04370 LINK1 PZE F2D04380 LINK2 PZE F2D04390 ERDRM PZE F2D04400 ERLXC PZE F2D04410 AX PZE F2D04420 BX PZE F2D04430 SENSE1 PZE F2D04440 BCD14 OCT 140000000000 F2D04450 BCD10 OCT 120000000000 F2D04460 6ONES OCT 770000000000 F2D04470 BIT01 OCT 600000000000 F2D04480 L(0) HTR 0 F2D04490 L(1) HTR 1 F2D04500 L(4) HTR 4 F2D04510 KLX02 HTR LX102 SKELETON KEYS F2D04520 KLX021 HTR LX105 FOR LXC ROUTINE. F2D04530 KLX03 HTR LX116 F2D04540 KLX031 HTR LX110 F2D04550 KLX05 HTR LX130 F2D04560 KLX051 HTR LX124 F2D04570 REM *************************************************************F2D04580 LADTG EQU 3+400*M/N*4 F2D04590 LMXFIX EQU 1200*M/N F2D04600 OR000 SYN $OR000 F2D04610 OR012 SYN OR000+12 F2D04620 OR013 SYN OR000+13 F2D04630 OR018 SYN OR000+18 F2D04640 OR026 SYN OR000+26 F2D04650 REM *************************************************************F2D04660 TTL BLOCK E. F2D04670 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK E. F2E00000 HEAD 5 F2E00010 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2E00020 N SYN 1$N TO NORMAL 32K SIZES. F2E00030 REM COMPILES DO LOOP INDEXING INSTRUCTIONS. F2E00040 REM INITIALIZATION F2E00050 CIBSZ EQU 200 SIZE OF CIT OUTPUT BUFFERS. F2E00060 DOCARZ SYN ENDCOR F2E00070 DOCARE SYN DOCARZ-400*M/N ADDITIONAL TABLE F2E00080 CARWC SYN DOCARE-1 DEFINITIONS FOR F2E00090 SXTXZ SYN TSCMWC F2E00100 SXTX SYN SXTXZ-600*M/N*2 BLOCK 5. F2E00110 SXDWC SYN SXTX-1 F2E00120 FIXCN SYN 4$FIXCN F2E00130 FIXWC SYN FIXCN-1 F2E00140 TAU3 SYN 1$TAU3 F2E00150 TAU2 SYN 1$TAU2 F2E00160 TAU1 SYN 1$TAU1 F2E00170 ADTAG SYN 4$ADTAG F2E00180 ADTGA SYN ADTAG-1 F2E00190 OADTGA SYN ADTGA-400*M/N-1 F2E00200 DOTAGZ SYN OADTGA F2E00210 DOTAG SYN DOTAGZ-200*M/N*9 F2E00220 MXTGA SYN DOTAG F2E00230 OMXTGA SYN MXTGA-1000*M/N F2E00240 TAGZ SYN OMXTGA F2E00250 TAGTG SYN TAGZ-1000*M/N*4 F2E00260 DOFILE SYN TAGTG-1500*M/N*4 F2E00270 BTWO SYN DOFILE-CIBSZ ORIGIN OF CIT F2E00280 BONE SYN BTWO-CIBSZ OUTPUT BUFFERS. F2E00290 TRLVL BCI 1,TRALEV F2E00300 DTGBL BCI 1,DOTAGB F2E00310 TAGL BCI 1,TAGTAG F2E00320 TIFL BCI 1,TIFGO F2E00330 SKLST4 MZE 1,,0 F2E00340 AINIT LXD DORCCT,2 PICK UP DOTAG F2E00350 SXD DOTGRC,2 RECORD COUNT. F2E00360 STZ CARWC F2E00370 STZ SXDWC F2E00380 CLA LADMX F2E00390 SUB ADTGWC F2E00400 PAX 0,1 F2E00410 SXD ADTGS1,1 F2E00420 SLT 3 TEST FOR EMPTY DOTAG. F2E00430 TRA MAN NOT EMPTY. F2E00440 SLN 3 RESTORE SL AND F2E00450 TRA DF70 SKIP BLOCK 5. F2E00460 REM F2E00470 MAN LXD DOTGRC,1 LOAD REMAINING DOTAG RECORD CNT. F2E00480 * *** F2E00490 TSX (TAPE),4 READ F2E00500 PZE IOCOM2,,(RBNP) IN F2E00510 PZE TAGL,,FTAPE4 TAGTAG. F2E00520 * *** F2E00530 TSX (TAPE),4 POSITION TAPE F2E00540 PZE SKLST4,,(SKBP) TO WRITE F2E00550 PZE CMPDOL,,FTAPE4 COMPDO. F2E00560 LXD LMXTG,2 INITIALIZE TEST F2E00570 TXI *+1,2,4 IN NEST SEARCH F2E00580 SXD FIND10,2 ROUTINE. F2E00590 MAN01 SXD DOTGRC,1 F2E00600 TXL MAN70,1,0 TEST FOR END DOTAG. F2E00610 * *** F2E00620 MAN03 TSX (TAPE),4 READ ONE F2E00630 PZE DSC6,,(RBNC) NEST OF F2E00640 PZE DTGBL,,FTAPE2 DOTAGS. F2E00650 LXA LMXTGA,2 INITIALIZE APPENDED F2E00660 MAN06 STZ MXTGA,2 TAGTAG AND F2E00670 TIX MAN06,2,1 APPENDED F2E00680 LXA LZEKMX,2 ADTAG F2E00690 MAN08 STZ ADTGA,2 TO ALL F2E00700 TIX MAN08,2,1 ZEROS. F2E00710 STZ BBOX INITIALIZE F2E00720 STZ DOIND INDICATORS. F2E00730 STZ DOIND1 F2E00740 STZ SWICH1 F2E00750 CLA ALLONE F2E00760 STO VCTR F2E00770 * *** F2E00780 CLA (SCHU)+FTAPE2 DETERMINE F2E00790 STO $E2C DOTAG AREA. F2E00800 LXA $E2C,1 F2E00810 TXL *+2,1,DOTAGZ F2E00820 TSX ERRORM,4 DOTAG RECORD OVERFLOWS A F2E00830 REM BUFFER OF THE SIZE OF THE F2E00840 REM ONE FROM WHICH IT WAS WRITTEN F2E00850 REM ONTO TAPE2 AS FILE 6. F2E00860 SXD MAN16,1 F2E00870 AXT DOTAGZ+2,1 FORM TEST FOR F2E00880 MAN16 TIX *+1,1,0 SCAN OF DOTAG F2E00890 SXD DOGS60,1 IN DOGS ROUTINE. F2E00900 SXD MAN18,1 INITIALIZE F2E00910 LXA LMXDTG,1 WORD 7 F2E00920 CAL T1MSK OF DOTAG F2E00930 MAN17 ANS DOTAGZ+6,1 FOR USE AS F2E00940 TXI *+1,1,-9 STORAGE OF VAR F2E00950 MAN18 TXH MAN17,1,0 TXH LOCATION F2E00960 TSX TTG,4 READ NEST OF TAGTAGS. F2E00970 MAN20 CLA L(1) INITIALIZE LOCATION INDICATOR F2E00980 STO LOCIND FOR A CYCLE OF CODING. F2E00990 TSX DOGS,4 SELECT BETA OR ALPHA. F2E01000 TRA MAN50 END OF NEST F2E01010 MAN40 LXD DOIND,2 SET UP ALPHA F2E01020 CLA DOTAGZ,2 WORD AND F2E01030 STD A BETA WORD IN F2E01040 PAX 0,1 PREPARATION FOR F2E01050 SXD B,1 ALPHA OR BETA CYCLE. F2E01060 ANA DECMSK LEAVE BETA IN ACC DECREMENT. F2E01070 ZET SWICH1 WHICH CYCLE IS APPROPRIATE. F2E01080 TSX RTX,4 BETA CYCLE. F2E01090 TSX AC,4 ALPHA CYCLE. F2E01100 TRA MAN20 RETURN FOR EITHER CYCLE F2E01110 MAN50 TRA DF01 GO TO SORT A NEST OF CIT'S. F2E01120 SXD BCNT,2 RETURN FROM DF ROUTINE. F2E01130 LXD DOTGRC,1 END OF NEST, F2E01140 TXI MAN01,1,-1 AND CONSIDER NEXT NEST. F2E01150 MAN70 SLF END OF DOTAG, F2E01160 TRA DF70 F2E01170 FILN2L BCI 1,EOF2 F2E01180 REM BEGIN BETA STAGE F2E01190 REM THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE F2E01200 REM INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVENF2E01210 REM DO. F2E01220 RTX SXD RTX024,4 F2E01230 LXD VCTR,1 VARIABLE CTR. LAST BETA. F2E01240 LXD B,2 BETA OF NEW DO. F2E01250 SXD *+1,2 F2E01260 TXH *+3,1,0 IS THIS THE FIRST BETA. F2E01270 STZ LOCIND F2E01280 TRA RTX05 F2E01290 PXD 0,2 F2E01300 ADD L(K1) FIRST B. SET F2E01310 STO VCTR VCTR AND F2E01320 CLA ALLONE INITIALIZE F2E01330 STO BLSW BLOCK INDICATOR. F2E01340 RTX05 CLA L(0) INITIALIZE THE TEST TAG F2E01350 STO TETTGX INDEX FOR THIS DO TO ZERO. F2E01360 STO XTG F2E01370 STO RTXTGX F2E01380 STO ADTGX F2E01390 TSX N3BIT,4 ISOLATE N3 BIT OF DOTAG F2E01400 TSX SCAN,4 F2E01410 RTXIN1 SXD RTXTGX,1 STORE FIRST TTG FOR TX CYCLE. F2E01420 SXD XTG,1 ENTRY THAT LIES BETWEEN A AND B F2E01430 RTX06 TSX FIND,4 F2E01440 TRA RTX180 END OF DO, START DMTG CYCLE. F2E01450 SXD XTG,1 SC MODIFIED BY DO, STORE. F2E01460 TSX TETG,4 PLACE TEST BITS IN TAG WORD. F2E01470 TSX PRES,4 F2E01480 REM AT THE END OF THIS ROUTINE THE BLOCK INDICATION IS IN XB. F2E01490 TXH RTX160,2,4 BL F, NO INSTR., GET NEW TAG. F2E01500 TXH RTX70,2,0 BLOCK DIFFERENT FROM A OR F. F2E01510 CLA N3IND BLOCK EQUALSA. F2E01520 TNZ RTX68 DECREMENT OF RXA IS VARIABLE F2E01530 RTX020 LXD TAG3,1 DECREMENT IS CONSTANT. F2E01540 TXH RTX50,1,0 TEST FOR INSERTED COUNTER. F2E01550 CLA TAG3 OR RESET TAG. F2E01560 LRS 11 F2E01570 LBT F2E01580 RTX024 TXL RTX30,,0 RESET F2E01590 TRA RTX34 COUNTER. F2E01600 RTX30 CLA TAG3 IF RESET TAG, PUT TAG F2E01610 ANA 11BITS NAME IN ACCUMULATOR AND F2E01620 TRA RTX51 GO TO SUBCOM. F2E01630 RTX34 TSX ENTR,4 IF COUNTER, MAKE F2E01640 TRA RTX52 ARTIFICIAL ENTRY IN WRKSC. F2E01650 RTX50 PXD 0,1 CURRENT TAG. F2E01660 ARS 18 GET TAG NAME F2E01670 RTX51 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E01680 RTX52 CLA L(TXI) COMPILE F2E01690 STO CIL01 TXI F2E01700 LXA POSIND,1 PREPARE FOR F2E01710 LXD DOIND,2 EXIT ROUTINE. F2E01720 TSX CN3IJ,4 ROUTINE COMPUTES DECREMENT N3G F2E01730 STO ERTX01 AND STORES IN ERTX01. F2E01740 LXA POSIND,1 F2E01750 CLA TAG4 TEST FOR DUPLICATE F2E01760 LRS 12 SUBSCRIPTS AND COMPUTE F2E01770 LLS 4,1 DECREMENT FOR THEM. F2E01780 LBT TEST ON S1,S2, OR S3 FOR DUPES. F2E01790 TRA RTX66 NO DUPLICATES FOR THIS SUBSCRIPT. F2E01800 ARS 1 F2E01810 LBT TEST FOR S1 OR S2 DUPES. F2E01820 TXI RTX62+3,1,2 DUPES ARE 1,3 ON TRANSFER. F2E01830 TXI RTX61,1,1 F2E01840 RTX61 STO ERTX02 STORE STATUS OF AC. DUPES ARE F2E01850 TSX CN3IJ,4 1,2 OR 2,3 OR 1,2,3. F2E01860 LXA POSIND,1 COMPUTE DECREMENT ADJUSTMENT F2E01870 ADD ERTX01 FOR NEXT LEFT SUBSCRIPT. F2E01880 STO ERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01F2E01890 RTX62 TXI RTX62+1,1,2 F2E01900 TXH RTX66,1,3 NOT 3RD SUBSCRIPT CASE. F2E01910 CLA ERTX02 LOW ORDER BIT IS SSC LEFT OF DOSUB. F2E01920 ARS 1 F2E01930 LBT TEST FOR S1 DUPE. F2E01940 TRA RTX66 F2E01950 LXD DOIND,2 F2E01960 TSX CN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1 F2E01970 ADD ERTX01 IN 1,2,3 AND 1,3 CASES. F2E01980 STO ERTX01 FINAL DECREMENT ADJUSTMENT. F2E01990 RTX66 CLA ERTX01 F2E02000 STA CIL01 AFTER DECREMENT IS COMPUTED, FILL F2E02010 TSX CIL023,4 OUT 4 WORDS OF F2E02020 TSX CIT,4 COMPILED INSTRUCTION.P F2E02030 TRA RTX69 AND CONTINUE. F2E02040 RTX68 TSX CILV,4 DEC IS VARIABLE. ASSIGN LOCATION F2E02050 CLA CIL00 PREPARE VCTR LOCATION F2E02060 ANA ADMSK FOR TGA ROUTINE. F2E02070 TSX TGA,4 PUT LOC IN APP TAGTAG WORD F2E02080 TSX CIL23,4 AND THEN FILL OUT F2E02090 CLA L(TXI) REMAINING WORDS OF F2E02100 STO CIL01 COMPILED INSTRUCTION F2E02110 TSX CIT,4 COMPILER ROUTINE. F2E02120 RTX69 CLA TAG4 TEST FOR SYMBOL F2E02130 TPL RTX160 INDICATION F2E02140 LXD DOIND,2 FORVAR F2E02150 CLA DOTAGZ+5,2 OCCURRANCE. F2E02160 ANA BIT1 F2E02170 TZE RTX160 NO FORVAR, CONTINUE. F2E02180 CLA L(0) FORVAR EXISTS. F2E02190 STO CIL00 F2E02200 CLA TAG3 COMPILE F2E02210 ANA ADMSK STORE F2E02220 STO CIL03 INSTRUCTION F2E02230 CLA L(SXD) FOR F2E02240 STO CIL01 FORVAR OCCURRANCE. F2E02250 LXD DOIND,2 F2E02260 CLA DOTAGZ+1,2 PUT FORVAR SUBSCRIPT F2E02270 STO CIL02 IN RELATIVE ADDRESS F2E02280 TSX CIT,4 WORD FOR SXD INSTRUCTION. F2E02290 TRA RTX160 F2E02300 RTX70 TXH RTX90,2,1 BLOCK IS B,C,D OR E. F2E02310 SXD BLKNUM,2 F2E02320 LXD TAG2,2 BLOCK B FIRST DETERMINE F2E02330 TSX NBITS,4 IF DECREMENT IS VARIABLE F2E02340 ADD N3IND F2E02350 TNZ RTX80 DECREMENT IS VARIABLE. F2E02360 CLA TAG3 DECREMENT IS CONSTANT. F2E02370 ARS 18 F2E02380 TSX $SUBCM,4 LAY OUT TAU INTO WRKSC. F2E02390 LXD DOIND,2 PREPARE FOR F2E02400 LXA POSIND,1 EXIT ROUTINE. F2E02410 TSX CN3IJ,4 COMPUTE N3G AND F2E02420 STO ERTX01 STORE IN ERTX01. F2E02430 LXD TAG2,2 F2E02440 LXA POSIND,1 MOVE POSIND TO LEFT SUB F2E02450 TXI RTX72,1,1 AND COMPUTE XN3G F2E02460 RTX72 TSX XMIN1,4 FOR LEFT SUB WHICH IS TEST. F2E02470 STO ERTX02 F2E02480 ADD ERTX01 ADDN3G FOR THIS SUBSCRIPT F2E02490 STO ERTX01 RESULT IS TXI DECREMENT. F2E02500 TSX EDCB,4 COMPILE TXI SXD TIX. F2E02510 TRA RTX160 CHECK BEST TEST. F2E02520 RTX80 TSX BCDE,4 BLOCK B IS VARIABLE. F2E02530 TRA RTX160 F2E02540 RTX90 TXH RTX110,2,2 BLOCK IS C,D, OR E. F2E02550 SXD BLKNUM,2 BLOCK IS C, PUT IN XB. F2E02560 LXD TAG2,2 ISOLATE F2E02570 TSX NBITS,4 NBITS INTO N1N2N3. F2E02580 ADD N3IND F2E02590 TNZ RTX100 DECREMENT IS VARIABLE, TSX BCDE. F2E02600 CLA TAG3 DECREMENT IS CONSTANT. F2E02610 ARS 18 LAY OUT TAU F2E02620 TSX $SUBCM,4 ENTRY INTO WRKSC. F2E02630 LXD TAG2,2 COMPUTE F2E02640 LXA L(3),1 XN3G-1 F2E02650 RTX91 TSX XMIN1,4 FOR F2E02660 STO ERTX02 SUBSCRIPT. F2E02670 LXA POSIND,1 THEN COMPUTE N3G F2E02680 LXD DOIND,2 FOR RIGHT F2E02690 TSX CN3IJ,4 SUBSCRIPT. F2E02700 ADD ERTX02 RESULT IS F2E02710 STO ERTX01 ERTX01. F2E02720 LDI TAG4 TEST F2E02730 RNT 1000 FOR DUPES. F2E02740 TRA RTX95 NO DOSUB DUPE. F2E02750 LXA POSIND,1 DOSUB IS DUPE. F2E02760 TXI RTX93,1,1 COMPUTE ADJUSTMENT F2E02770 RTX93 TSX CN3IJ,4 FOR DECREMENT AND F2E02780 ADD ERTX01 STORE IN ERTX01. F2E02790 STO ERTX01 XN3G(L) + N3G(R) + N3G(C) - 1) F2E02800 RTX95 TSX EDCB,4 COMPILE TXI SXD TIX. F2E02810 TRA RTX160 F2E02820 RTX100 TSX BCDE,4 BLOCK DECREMENT IS VARIABLE. F2E02830 TRA RTX160 F2E02840 RTX110 TXH RTX140,2,3 D OR E. F2E02850 SXD BLKNUM,2 STORE BLOCK NUMBER D. F2E02860 LXD TAG2+1,2 BLOCK D CONSIDERED. F2E02870 TSX NBITS,4 ISOLATE NBITS F2E02880 ADD N3IND CHECK FOR VARIABLE DECREMENT. F2E02890 TNZ RTX130 DECREMENT IS VARIABLE. F2E02900 CLA TAG3 DECREMENT IS CONSTANT. F2E02910 ARS 18 SET UP TAG F2E02920 ANA 11BITS NAME AND F2E02930 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E02940 LXD TAG2+1,2 CONSIDER CENTER SUBSCRIPT F2E02950 LXD XTG,4 F2E02960 LXA L(2),1 F2E02970 CLA TAGZ+3,4 DOES CARRY EXIST FOR F2E02980 ANA CRMSK TWO INNER DOS. F2E02990 TZE RTX111 IF NOT, GO TO RTX111. F2E03000 TSX CXIJ,4 YES, COMPUTE F2E03010 LXD $WRKSC,4 XN3G F2E03020 SXA ERTX02,4 MINUS F2E03030 SUB ERTX02 C1. F2E03040 TRA RTX112 F2E03050 RTX111 TSX XMIN1,4 COMPUTE (X-1)N3G F2E03060 RTX112 STO ERTX02 FOR CENTER SUBSCRIPT. F2E03070 LXA POSIND,1 PREPARE DOSUB SUBSCRIPT F2E03080 LXD DOIND,2 FOR CN3IJROUTINE. F2E03090 TSX CN3IJ,4 COMPUTE N3G FOR F2E03100 STO ERTX01 DOSUB SUBSCRIPT. F2E03110 CLA TAG4 TEST F2E03120 ARS 9 FOR F2E03130 ANA L(7) DUPES. F2E03140 TZE RTX126 NORMAL BLOCK D, NO DUPES. F2E03150 LBT F2E03160 TRA RTX118 XX0 BLOCK D, OR 0XX. F2E03170 LXA POSIND,1 X0X BLOCK D. F2E03180 TXI RTX114,1,2 SWITCH RIGHT OR LEFT POSIND. F2E03190 RTX114 TSX CN3IJ,4 COMPUTE N3G F2E03200 ADD ERTX01 DECREMENT ADJUSTMENT F2E03210 STO ERTX01 FOR X0X F2E03220 TRA RTX126 DUPES. F2E03230 RTX118 LXD TAG2+1,2 COMPUTE XN3G F2E03240 LXA $L(3),1 DECREMENT F2E03250 RTX122 TSX XMIN1,4 ADJUSTMENT F2E03260 ADD ERTX02 FOR CENTER F2E03270 STO ERTX02 SUBSCRIPT. F2E03280 RTX126 CLA ERTX02 SUB1 AND F2E03290 ADD ERTX01 YIELDING TXI F2E03300 STO ERTX01 DECREMENT. F2E03310 TSX EDCB,4 COMPILE TXI SXD TIX. F2E03320 TRA RTX160 END CHECK FOR TEST TAG. F2E03330 RTX130 TSX BCDE,4 BLOCK D IS VARIABLE. F2E03340 TRA RTX160 F2E03350 RTX140 SXD BLKNUM,2 BLOCK E F2E03360 LXD TAG2,2 PUT N BITS FOR S1 F2E03370 TSX NBITS,4 PLACE N BITS PLUS F2E03380 ADD N3IND N3IND FOR S1 F2E03390 STO ERTX01 AND S2 INTO ERTX01 F2E03400 LXD TAG2+1,2 FOR VARIABLE DECREMENT F2E03410 TSX NBITS,4 TEST. IF SUM IS NOT ZERO, F2E03420 ADD ERTX01 THEN THE DECREMENT IS VARIABLE. F2E03430 TNZ RTX154 DECREMENT IS VARIABLE. F2E03440 CLA TAG3 CONSTANT CASE, LAY F2E03450 ARS 18 OUT TAU ENTRY INTO F2E03460 TSX $SUBCM,4 WRKSC. F2E03470 LXD TAG2+1,2 SET UP CENTER SUBSCRIPT F2E03480 LXA L(2),1 FOR EXIT ROUTINE. F2E03490 TSX XMIN1,4 COMPUTE XN3G FOR CENTER. F2E03500 STO ERTX02 IN ERTX02. F2E03510 LXA POSIND,1 COMPUTE N3G F2E03520 LXD DOIND,2 FOR RIGHT F2E03530 TSX CN3IJ,4 SUBSCRIPT (DOSUB). F2E03540 ADD ERTX02 PUT FIRST TXI DECREMENT F2E03550 STO ERTX01 IN ERTX01. F2E03560 TSX EDCB,4 COMPILES FIRST F2E03570 LXD TAG2,2 THREE OF BLOCK E. F2E03580 LXA POSIND,1 COMPUTE XN3G FOR F2E03590 TXI RTX150,1,2 LEFT SUBSCRIPT. F2E03600 RTX150 TSX XMIN1,4 TO COMPILE 2ND F2E03610 STO ERTX01 BLOCK E, THE BLOCK F2E03620 STO ERTX02 NUMBER IS SET TO F2E03630 LXD BLKNUM,4 APPEAR LIKE BLOCK C SO F2E03640 TIX RTX152,4,2 THATTHE SXD LOCATION IS STORED F2E03650 RTX152 SXD BLKNUM,4 PROPERLY INTO DOTAG. F2E03660 TSX EDCB,4 COMPILE 2ND TXI SXD TIX. F2E03670 TRA RTX160 F2E03680 RTX154 TSX BCDE,4 E IS VARIABLE. THIS TAKES F2E03690 TSX CILV,4 CARE OF FIRST 3 INSTRUCTIONS.P F2E03700 TSX CIL23,4 THE REMAINING THREE ARE F2E03710 CLA L(TXI) F2E03720 STO CIL01 NOW COMPILED. F2E03730 TSX CIT,4 F2E03740 LXD BLKNUM,4 CHANGE BLKNUM F2E03750 RTX157 TIX RTX157,4,2 FROM E F2E03760 SXD BLKNUM,4 TO C AND F2E03770 TSX CSXD,4 TSX CSXD. F2E03780 LXD BLKNUM,4 F2E03790 TXI RTX157+5,4,2 F2E03800 SXD BLKNUM,4 F2E03810 LXD TAG2,2 PLACE LOCATION OF SXD F2E03820 CLA CIL00 INSTRUCTION IN PROPER DOTAG ENTRY F2E03830 ANA ADMSK AND POSITION. (LEFT SUB DO). F2E03840 ALS 12 F2E03850 ORS DOTAGZ+6,2 F2E03860 TSX CILV,4 GENERATE AND F2E03870 TSX CIL23,4 F2E03880 CLA L(TIX) COMPILE REMAINING INSTRC. F2E03890 STO CIL01 F2E03900 TSX CIT,4 PUT INTO BUFFER. F2E03910 RTX160 LXD DOIND,2 FINDING S.C. WHICH F2E03920 CLA DOTAGZ+8,2 HAS AN S THAT IS THE TEST. F2E03930 ANA TETMSK F2E03940 STO ERTX01 TEST NAME. F2E03950 CLA TAG3 COMPARE TAG NAME F2E03960 ALS 18 WITH BEST TEST F2E03970 ANA DECMSK OF CURRENT DO. F2E03980 SUB ERTX01 IF THIS TAG IS F2E03990 TNZ RTX164 BEST TEST, F2E04000 CLA XTG STORE ITS INDEX F2E04010 STO TETTGX IN TETTGX. F2E04020 RTX164 TRA RTX06 GO TO FIND FOR NEXT TAG. F2E04030 RTX180 CLA INST26 RTX184 LOCATION. F2E04040 STA RTX69+1 RESET AT END OF ROUTINE. F2E04050 LXA LADMX,4 PREPARE FOR ADTAG TXI. F2E04060 TXI RTX180+4,4,4 F2E04070 SXD XTG,4 F2E04080 CLA INST20 ADTGA LOCATION. F2E04090 STA TGA8 F2E04100 RTX184 TSX ADTGSE,4 SEARCH FOR ADTAG. F2E04110 TRA RTX192 END OF TABLE, START TX PHASE. F2E04120 PXD 0,2 ENTRY FOUND, CONTINUE ADTG CYCLE. F2E04130 ARS 18 POSIND IN ADDRESS. F2E04140 STO POSIND F2E04150 CLA TAG4 LOOK AT F2E04160 ARS 21 CARRY BITS. F2E04170 TXH RTX190,2,2 S1, BLOCK A. F2E04180 TXL RTX188,2,1 S3 F2E04190 ARS 2 S2 F2E04200 RTX188 ANA $L(3) F2E04210 TNZ RTX184 CARRY T1 OR T2 BLOCK F. F2E04220 RTX190 CLA N3IND F2E04230 TZE RTX020 DECREMENT IS CONSTANT. F2E04240 TSX CILV,4 DECREMENT IS VARIABLE. F2E04250 CLA CIL00 INSTRUCTION IS COMPILED F2E04260 ANA ADMSK AND ENTRY IS MADE F2E04270 TSX TGA,4 IN APPENDED DRM TG WORD. F2E04280 TSX CIL23,4 F2E04290 CLA L(TXI) COMPILE F2E04300 STO CIL01 TXI AND PUT F2E04310 TSX CIT,4 IN CIB. F2E04320 TRA RTX184 GET NEW ADTAG. F2E04330 RTX192 CLA INST24 RESET MODIFIED F2E04340 STA RTX69+1 ADDRESSES FOR F2E04350 CLA INST22 TXI CYCLE. F2E04360 STA TGA8 F2E04370 RTX195 LXD TETTGX,1 DETERMINE IF THIS DO HAS A TEST. F2E04380 TXH RTX197,1,0 THIS DO HAS A TEST. F2E04390 RTX196 LXD DOIND,2 NO TXL, F2E04400 CLA DOTAGZ,2 MAKE F2E04410 ALS 4 ENTRY F2E04420 ARS 4 INTO F2E04430 LXD CARWC,1 DOCARE. F2E04440 STO DOCARE,1 F2E04450 TXI *+1,1,-1 UPDATE DOCARE WORD COUNT. F2E04460 SXD CARWC,1 F2E04470 TRA RTX280 F2E04480 RTX197 PSE 096 CLEAR SENSE LIGHTS. F2E04490 TSX TGFM,4 FILL OUT TAG WORDS. F2E04500 TSX ISC,4 FIND DOSUB. F2E04510 TSX ERRORM,4 DOIND (XR VALUE OF CURRENT F2E04520 REM DOTAG ENTRY) MUST MATCH ONE 3 F2E04530 REM OF THE 3 TAG2 WDS TAKEN FROM F2E04540 REM THE XR1 TAGTAG ENTRY (FILE 2 F2E04550 REM TAPE 4). THIS IS AN ERROR F2E04560 REM RETURN FROM ISC. F2E04570 PXD 0,2 FORM F2E04580 ARS 18 POSITION F2E04590 STO POSIND INDICATOR. F2E04600 TSX CILV,4 OBTAIN LOCATION FOR TEST, F2E04610 LXD DOIND,2 ISOLATE F2E04620 TSX NBITS,4 NBITS. F2E04630 STO N1N2N3 F2E04640 CLA DOTAGZ+3,2 F2E04650 ANA 6ONES F2E04660 TNZ RTX210 N2 IS VARIABLE F2E04670 LXA POSIND,1 F2E04680 RTX198 TNX RTX200,1,1 IS POSITION S3. F2E04690 CLA TAG4 CHECK FOR DORC F2E04700 ANA BITMSK+2,1 F2E04710 STO N1SBX N1 BIT. F2E04720 TSX N1S02,4 F2E04730 TNZ RTX210 TXL VARIABLE DECREMENT. F2E04740 RTX200 LXD TAG3,1 F2E04750 TXH RTX201,1,0 F2E04760 TSX ENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED F2E04770 TRA RTX202 TAU ENTRY INTO WRKSC. F2E04780 RTX201 CLA TAG3 PREPARE FOR F2E04790 ARS 18 SUBCOM ROUTINE. F2E04800 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E04810 RTX202 LXD DOIND,2 PREPARE FOR AND CALL CXIJ F2E04820 LXA POSIND,1 ROUTINE TO COMPUTE XGN3. F2E04830 CLA DOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE F2E04840 TSX CXIJ+2,4 F2E04850 TNX RTX204,1,1 F2E04860 TSX TELC+2,4 COMPUTES LOAD VALUE FOR F2E04870 TRA RTX205 DEC, STO IN ERTX01.MAX.OF 32767 (26)F2E04880 RTX204 STO CIL01 FINAL TXL DECREMENT. F2E04890 CAL L(TXL) F2E04900 ORS CIL01 F2E04910 TSX CILNAM,4 ENTER TAG NAME IN CIL03. F2E04920 CLA A ALPHA PLUS ONE IS F2E04930 ADD $L1DEC ENTERED AS SYMBOLIC F2E04940 STO CIL02 ADDRESS. F2E04950 TSX CIT,4 ENTER TXL IN BUFFER. F2E04960 CLA L(0) ELIMINATE VARIABLE INDICATOR BIT. F2E04970 TRA RTX214 F2E04980 RTX210 CLA L(TXL) COMPILE INSTR FOR VARIABLE DECR. F2E04990 STO CIL01 F2E05000 TSX CILNAM,4 ENTER TAG NAME. F2E05010 CLA A ALPHA PLUS ONE IS F2E05020 ADD $L1DEC ENTERED AS THE F2E05030 STO CIL02 SYMBOLIC ADDRESS. F2E05040 TSX CIT,4 ENTER COMPILED TXL IN BUFFER. F2E05050 CLA BIT20 TEST VARIABLE INDICATOR. F2E05060 RTX214 LXD DOIND,2 ENTERONE IN BIT 20 IF F2E05070 ORS DOTAGZ+8,2 VARIABLE DECREMENT. F2E05080 CLA CIL00 STORE LOCATION F2E05090 ALS 24 OF F2E05100 ORS DOTAGZ+6,2 TEST. F2E05110 PSE 097 SET SENSE INDICATOR SO F2E05120 RTX222 LXD RTXTGX,1 START SCAN FOR TIXING. F2E05130 SXD XTG,1 F2E05140 RTX226 TSX FIND,4 FIND VALID TAG. FILL TAG WORDS. F2E05150 TRA RTX260 END OF DO. F2E05160 SXD XTG,1 SAVE IX OF TAG UNDER CONSIDERATION. F2E05170 RTX228 TSX SCLMN1,4 COMPARE LARGEST S INDES F2E05180 SUB DOIND WITH INDEX OF THE DO. F2E05190 TZE RTX234 DO IS OUTER, OBTAIN TAG. F2E05200 LXD TAG3,2 F2E05210 TXH RTX229,2,0 CURRENT TAG VALID, FILL OUT WRKSC. F2E05220 CLA TAG3 NEW TAG, DETERMINE F2E05230 ARS 11 IF TAU ENTRY F2E05240 LBT EXISTS. F2E05250 TRA RTX229+5 NO,TSX ENTR. F2E05260 CLA TAG3 YES, TSX F2E05270 TRA RTX229+2 SUBCOM. F2E05280 RTX229 CLA TAG3 CURRENT TAG F2E05290 ARS 18 VALID. F2E05300 ANA 11BITS FILL OUT F2E05310 TSX $SUBCM,4 WRKSC AND F2E05320 TRA RTX230 CONTINUE. F2E05330 TSX ENTR,4 ARTIFICIAL WRKSC ENTRY. F2E05340 RTX230 LXA POSIND,4 F2E05350 TIX CLA,4,1 MOVE RIGHT ONE POSITION. F2E05360 TRA RTX232 POSITION IS RIGHT, IGNORE CARRY. F2E05370 CLA CLA TAG4 POSITION IS LEFT OR CENTER, F2E05380 ARS 1 OR TYPE 1 AND 2 F2E05390 ORA TAG4 CARRY BITS FOR LEFT F2E05400 TXL ARS,4,1 AND CENTER POSITIONS. F2E05410 ARS 23 S2 CARRY BIT IN POSITION 35. F2E05420 TRA LBT F2E05430 ARS ARS 21 S3 CARRY BIT IN POSITION 35 F2E05440 LBT LBT TEST FOR DOSUB CARRY BIT. F2E05450 TRA RTX232 NO CARRY, CONTINUE. F2E05460 CLA TETTGX CARRY, SEE IF THIS F2E05470 SUB XTG TAG IS BEST TEST. F2E05480 TNZ RTX254 NO, GET NEXT TAG. F2E05490 RTX232 CLA L(TIX) COMPILE TIX INSTRUCTION. F2E05500 STO CIL01 F2E05510 CLA N1N2N3 TEST FOR VARIABLE DECREMENT. F2E05520 TZE RTX238 DECREMENT IS CONSTANT. F2E05530 MSE 097 DECREMENT IS VARIABLE8 TURN OFF F2E05540 NOP LIGHT INDICATION FIRST F2E05550 TSX CILV,4 TIX AFTER TXL AND ASSIGN F2E05560 TSX CIL23,4 LOCATION. F2E05570 CLA CIL00 WHEN DECREMENT IS VARIABLE, LOCATIONF2E05580 ANA ADMSK MUST BE STORED IN TGA WORD F2E05590 TSX TGAT,4 FOR SXD ADDRESS IS OBJECT TIME. F2E05600 TRA RTX250 NOW PERFORM COMPILING. F2E05610 RTX234 CLA L(DED) COMPILE OP WHICH INDICATES F2E05620 STO CIL01 SC IS DEAD. F2E05630 TRA RTX242 ASSIGN LOCATION IF NECESSARY. F2E05640 RTX238 LXA POSIND,1 DECREMENT IS CONSTANT. F2E05650 LXD DOIND,2 TEST FOR DUPLICATES F2E05660 TSX CXIJ,4 AND COMPUTE ACCORDINGLY. F2E05670 STO ERTX01 XN3G IN ERTX01. F2E05680 LDQ TAG4 TEST F2E05690 LLS 27,1 FOR F2E05700 LBT DUPES. F2E05710 TRA RTX240 NO DUPES. F2E05720 RTX239 TXI RTX239+1,1,1 DUPES EXIST F2E05730 LDQ TAG4 TEST DUPE F2E05740 LLS 27,1 BITS OF POSITIONS F2E05750 LBT TO THE LEFT OF DOSUB F2E05760 TRA RTX239 UNTIL THAT POSITION IS F2E05770 TSX CXIJ,4 IN XA, THEN CALLCXIJ F2E05780 ADD ERTX01 AND COMPUTE AND ADD F2E05790 STO ERTX01 DECREMENT ADJUSTMENT. F2E05800 RTX240 CLA ERTX01 PUT COMPUTED DE EREMTN F2E05810 STA CIL01 IN CIL01 WORD. F2E05820 RTX242 MSE 097 A LOC MUST BE ASSIGNED IF F2E05830 TRA RTX246 F2E05840 TSX CILV,4 THIS IS FIRST TIX AFTER F2E05850 TSX CIL23,4 TEST. F2E05860 TRA RTX250 F2E05870 RTX246 TSX CIL023,4 F2E05880 RTX250 TSX CIT,4 COMPILE INST. F2E05890 RTX254 TRA RTX226 RETURN FOR NEXT TG. F2E05900 RTX260 LXA LADMX,4 START DRMTG SEARCH AND F2E05910 TXI RTX260+2,4,4 F2E05920 SXD XTG,4 COMPILING F2E05930 RTX264 TSX ADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. F2E05940 TRA RTX270 END OF TABLE F2E05950 PXD 0,2 STORE POSITION F2E05960 ARS 18 OF DOSUB F2E05970 STO POSIND IN POSIND. F2E05980 CLA INST30 MODIFY TGTG F2E05990 STA RTX254 TIX COMPILING F2E06000 CLA INST20 ROUTINE TO F2E06010 STA TGA8 F2E06020 TRA RTX228 AND EXECUTE. F2E06030 RTX270 CLA INST32 ADTG PORTION FINISHED. F2E06040 STA RTX254 REMODIFY TIX COMPILING F2E06050 CLA INST22 ROUTINE FOR TGTGS. F2E06060 STA TGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS F2E06070 RTX280 LXD RTX024,4 LOCATION OF THE INSTRUCTION F2E06080 TRA 2,4 F2E06090 REM F2E06100 REM F2E06110 REM BEGIN ALPHA STATE F2E06120 REM THE ALPHA STATE, AC, IS CALLED BY MAN TO COMPILE ALL INITIALIF2E06130 REM ZATION AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2E06140 REM CONSIDERATION. F2E06150 AC SXD AC248,4 SAVE LINKAGE. F2E06160 STO VCTR F2E06170 LAC SXDWC,1 F2E06180 CLA DOTAGZ+6,2 2 F2E06190 ARS 27 WORD F2E06200 ANA 6ONESR ENTRY F2E06210 ALS 3 IN F2E06220 ADD B SXDTX F2E06230 STO SXTX+1,1 F2E06240 CLA DOTAGZ,2 F2E06250 ANA NOPRET F2E06260 STO SXTX,1 F2E06270 LXA SXDWC,1 UPDATE SXDTX WORD COUNT. F2E06280 TXI AC03,1,2 F2E06290 AC03 SXA SXDWC,1 F2E06300 AC05 CLA ALLONE INITIALIZE CIL WORDS F2E06310 STO BLSW BLOCK INDICATOR. F2E06320 TSX SCAN,4 SCAN AND FIND PICK F2E06330 SXD RTXTGX,1 F2E06340 SXD XTG,1 BY A DO WITHIN ALPHA F2E06350 AC010 TSX FIND,4 AND BETA. F2E06360 TRA AC240+1 END OF DO FOR DOTAG. F2E06370 SXD XTG,1 STORE TGTG INDEX IN XTG. F2E06380 AC014 TSX SCLMN1,4 OBTAIN X FOR MINLEV OF S.C. F2E06390 LXD XTG,1 SET UP FOR FIND ROUTINE. F2E06400 SUB DOIND TEST TO SEE IF THIS IS F2E06410 AC016 TNZ AC010 THE OUTERMOST DO. F2E06420 LXD TAG3,1 IF IT IS PROCEED TO F2E06430 TXH AC018,1,0 COMPILE PROPER INST. F2E06440 CLA TAG3 NO CURRENT TG, USE NEW TG. F2E06450 ARS 11 CHECK RESET TAG BIT F2E06460 LBT OR INSERTED COUNTER. F2E06470 TRA AC016I RESET TYPE ENTRY, USE NEW TAG. F2E06480 TSX ENTR,4 CTR. TYPE ENTRY, SIMULATE F2E06490 TRA AC020 WRKSC AND CONTINUE. F2E06500 AC016I CLA TAG3 RESET TYPE ENTRY F2E06510 ANA 11BITS LAY OUT TAU ENTRIES F2E06520 TSX $SUBCM,4 F2E06530 TRA AC021 DECRENENT AND CONTINUE. F2E06540 AC018 CLA TAG3 CURRENT TAG VALID, LAY F2E06550 ARS 18 OUT TAU DNTRIES INTO F2E06560 AC019 TSX $SUBCM,4 WRKSC AND CONTINUE F2E06570 AC020 TSX N1STET,4 F2E06580 CLA N1SBX VALUE IS CONSTANT F2E06590 TNZ AC030 VARIABLE, TRA AC030. F2E06600 TSX TELC,4 COMPUTE LOAD F2E06610 CLA ERTX01 VALUE F2E06620 ALS 18 AND PLACE F2E06630 ADD $L1DEC IN F2E06640 TSX $FXCON,4 FIXCON. F2E06650 STO CIL02 FIXCON LOCATION SYMBOL. F2E06660 TRA AC022 CONTINUE. F2E06670 AC021 CLA BCD0 F2E06680 STO CIL02 LXD ADDRESS TO BCD ZERO. F2E06690 STZ N1SBX F2E06700 AC022 CLA L(LXD) F2E06710 STO CIL01 LXD F2E06720 TSX CIL03I,4 FILL OUT LOCATION AND TG WORDS. F2E06730 CLA CIL02 PLACE LXD ADDRESS F2E06740 STO ORO00+27 IN ORO TABLE. F2E06750 PAX 0,4 RELATIVE PART OF FIXCON NAME F2E06760 ANA 6ONES F2E06770 STO CIL02 ADDRESS. F2E06780 SXD CIL03,4 RELATIVE ADDRESS. F2E06790 CLA LOCIND TEST LOCATION INDICATOR. F2E06800 TZE AC024 F2E06810 SUB L(1) F2E06820 STO LOCIND A LOCATION MUST BE F2E06830 CLA A ASSIGNED FOR 1ST LXD F2E06840 STO CIL00 COMPILED FOR AN ALPHA. F2E06850 AC024 TSX CIT,4 PUT IN DOFILE. F2E06860 AC030 CLA TAG4 VARIABLE CASE, THE BITS FOR F2E06870 ARS 3 DEFINING A SUB BY A DO OR F2E06880 ANA L(7) A RELCON OR BOTH ARE F2E06890 STO RELCO ISOLATED IN 3 SEPARATE F2E06900 CLA TAG4 WORDS, DEFDO, RELCO, AND F2E06910 ANA L(7) ORDEDO. F2E06920 STO DEFDO F2E06930 ORA RELCO F2E06940 STO OREDO F2E06950 CLA N1SBX IF CONSTANT LOAD, F2E06960 TZE AC100+2 TRA AC100+2. F2E06970 CLA L(2) IF VARIABLE LOAD, FILL F2E06980 TSX BITP,4 ORO TABLE. F2E06990 TRA AC040 S1 NOT DEFINED. F2E07000 STO ORO00+1 S1 DEFINED. STO SYMBOL IN ORO+1. F2E07010 AC040 CLA L(1) REPEAT FOR F2E07020 TSX BITP,4 S2. F2E07030 TRA AC046 S2 NOT DEFINED. F2E07040 STO ORO00+4 S2 DEFINED. PUT SUBSCRIPT F2E07050 CLA $WRKSC+6 SYMBOL IN ORO+4 AND F2E07060 TSX $FXCON,4 D1 SYMBOL F2E07070 STO ORO00+7 IN ORO+7. F2E07080 AC046 CLA L(0) REPEAT FOR F2E07090 TSX BITP,4 F2E07100 TRA AC048-1 F2E07110 STO ORO00+21 S3 DEFINED. PUT SUBSCRIPT F2E07120 LDQ $WRKSC+6 SYMBOL IN ORO+21 F2E07130 MPY $WRKSC+7 AND F2E07140 ALS 17 PUT F2E07150 TSX $FXCON,4 D1D2 IN F2E07160 STO ORO00+24 ORO+24. F2E07170 CLA $WRKSC+6 F2E07180 TSX $FXCON,4 GET SYMBOL FOR D1 F2E07190 STO ORO00+7 AND STORE IN ORO+7. F2E07200 PSE 96 TURN OFF SENSE LIGHTS. F2E07210 AC048 TSX $COSE,4 TEST COEFFS OVER 1. F2E07220 CLA OPMSK F2E07230 ANA TAG4 COEFS, 011 RELCONS, 100 CUPE. F2E07240 TNZ AC049 SOME OF ABOVE EXIST. F2E07250 LXD TAG21,1 NONE OF ABOVE EXIST, F2E07260 TXL AC048+7,1,0 IF S2 DEF BY DO, F2E07270 CAL DOTAGZ+2,1 ISOLATE N1. F2E07280 LXD TAG22,1 IF S3 DEF BY DO, F2E07290 TXL AC048+10,1,0 OR N1S OF S2 AND S3. F2E07300 ORA DOTAGZ+2,1 IF EITHER N1 IS GREATER F2E07310 SUB L(1) THAN 1, RETURN. F2E07320 TZE AC048I IS S1 IS F2E07330 TPL AC049 DEFINED BY A DO, F2E07340 AC048I LXD TAG2,1 IS/LATE N1. F2E07350 TXL AC048I+4,1,0 IF NOT ISOLATE F2E07360 CLA DOTAGZ+2,1 S1 (BCD). F2E07370 TRA AC048I+5 F2E07380 CLA $WRKSC+1 F2E07390 STO CIL02 STO S1 OR N1 SYMBOL. F2E07400 TSX CIL03I,4 FILL OUT F2E07410 CLA L(LXD) COMPILED INSTRUCTION F2E07420 STO CIL01 WORDS AND CONTINUE F2E07430 TRA AC100-1 TO INIT PORTION, F2E07440 AC049 LXA L(2),1 F2E07450 CLA OREDO IS LEFT SUB A RELCON, F2E07460 ANA L(4) DORC, OR DOSUB. F2E07470 TZE AC049A NO, COMPILE CLA, SUB. F2E07480 LXD TAG2,2 YES, IS IT A DOSUB. F2E07490 TXL AC049B,2,0 NO. F2E07500 CLA DOTAGZ+2,2 YES, IS N1(S1)=1. F2E07510 SUB L(1) F2E07520 TNZ AC049B NO. F2E07530 AC049A CLA KLX01 F2E07540 TSX LXC,4 COMPILE CLA, SUB. F2E07550 AC049B CLA OREDO F2E07560 ARS 2 DEFINITION. F2E07570 LBT OF S1. F2E07580 TRA AC064 S1 IS NOT DEF., TAKE S2. F2E07590 LXA $L(3),1 S1 DEFINED, GO TO F2E07600 TSX OP2,4 OPTIMIZING ROUTINE. F2E07610 LXA L(2),1 AT LEAST 4 COMP INST. F2E07620 MSE 97 TEST ON COEF F2E07630 TRA AC050 GREATER THAN 1. F2E07640 TXI AC050I,1,2 F2E07650 AC050 CLA KLX02 L(LXI02) F2E07660 TRA AC050I+1 F2E07670 AC050I CLA KLX02I L(LXI05) F2E07680 TSX LXC,4 COMPILER. F2E07690 AC064 CLA OREDO F2E07700 ARS 1 S2 F2E07710 LBT DEFINED. F2E07720 TRA AC080 S2 NOT DEFINED. S3. F2E07730 LXA L(2),1 CALL OP2 ROUTINE F2E07740 TSX OP2,4 TO OPTIMIZE. F2E07750 LXA $L(6),1 COUNTER FOR COMPILING. F2E07760 MSE 98 IS COEF GREATER THAN 1. F2E07770 TRA AC068 NO F2E07780 CLA KLX03 YES. F2E07790 TXI AC068+1,1,2 INCREMENT COMPILING COUNTER. F2E07800 AC068 CLA KLX03I F2E07810 TSX LXC,4 COMPILE S2 LOAD VALUE. F2E07820 AC080 CLA OREDO F2E07830 LBT F2E07840 TRA AC096 S3 NOT DEFINED, EXIT. F2E07850 LXA L(1),1 CALL OP2 ROUTINE F2E07860 TSX OP2,4 FOR OPTIMIZATION. F2E07870 LXA $L(6),1 COMPILING COUNTER. F2E07880 MSE 99 TEST FOR COEF GREATER THAN 1. F2E07890 TRA AC084 NONE. F2E07900 CLA KLX05 C3 GREATER THAN 1, COMPILE F2E07910 TXI AC084+1,1,2 KLX05 BLOCK. F2E07920 AC084 CLA KLX05I C3=1, COMPILE KLX05I F2E07930 TSX LXC,4 BLOCK. F2E07940 AC096 TSX CIL03I,4 COMPILE F2E07950 CLA L(LXD) LXD. F2E07960 STO CIL01 F2E07970 CLA ORO00+26 ERASABLE OBJECT TIME SYMBOL. F2E07980 PAX 0,1 F2E07990 ANA 6ONES F2E08000 SXD CIL03,1 F2E08010 STO CIL02 F2E08020 TSX CIT,4 PUT IN BUFFER. F2E08030 AC100 CLA ORO00+26 F2E08040 STO ORO00+27 F2E08050 LXA $L(3),1 PREPARE TO F2E08060 AC109 SXD AX,1 CHECK FOR F2E08070 CLA TAG2+3,1 DUPES. F2E08080 PDX 0,2 SAVE INDEX OF S. F2E08090 TXL AC160,2,0 POS. NOT MOD. BY DO. F2E08100 AC110 TNX AC116,1,1 F2E08110 CAS TAG2+3,1 SKIP DUPES F2E08120 TRA AC110 EXCEPT F2E08130 TRA AC160 RIGHTMOST. F2E08140 TRA AC110 F2E08150 AC116 CLA DOTAGZ+8,2 ISOLATE F2E08160 ANA 6TO17 NAME OF TEST F2E08170 STO TETTG FOR THIS DO F2E08180 CLA TAG3 AND F2E08190 ANA 24TO35 COMPARE F2E08200 ALS 18 WITH F2E08210 CAS TETTG CURRENT TAG. F2E08220 TRA AC160 NOT A TEST TAG. F2E08230 TRA AC120 THIS IS A TEST TAG. F2E08240 TRA AC160 NOT A TEST TAG. F2E08250 AC120 CLA DOTAGZ+3,2 THIS IS TEST TAG, F2E08260 ANA 6ONES 18 N2 CONSTANT. F2E08270 TNZ AC128 F2E08280 CLA DOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENTF2E08290 ANA BIT20 GO TO AC138 +4 F2E08300 TZE AC138 INSTEAD OF F2E08310 TRA AC138+4 F2E08320 AC128 CLA DOTAGZ+3,2 F2E08330 STO CIL02 PUT N2 WORD AS F2E08340 CLA L(0) SYMBOLIC ADDRESS AND F2E08350 STO CIL03 ZERO AS THE F2E08360 TRA AC140 RELATIVE ADDRESS. F2E08370 AC138 LDQ DOTAGZ+6,2 CONSTANT N2 CASE. F2E08380 RQL 9 IS TEST F2E08390 LGL 12 MODIFIED. F2E08400 TZE AC160 NO, TAKE NEXT SUB. F2E08410 CLA DOTAGZ+3,2 YES, ISOLATE N2. F2E08420 LXD AX,1 F2E08430 TSX CXIJ+2,4 IF POSITION IS F2E08440 TNX AC139,1,1 F2E08450 STO ESTORE F2E08460 CLA DOTAGZ+8,2 DOES TEST F2E08470 ANA BIT20 HAVE VARIABLE DECREMENT. F2E08480 TNZ AC139-1 F2E08490 CLA ESTORE F2E08500 TSX TELC+2,4 F2E08510 TRA AC139 F2E08520 CLA ESTORE F2E08530 AC139 ALS 18 F2E08540 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E08550 PAX 0,1 LOAD PORTION F2E08560 ANA 6ONES AND COMPILE F2E08570 STO CIL02 CLAL(GN2 + LOAD PORT.) F2E08580 CLA L(0) F2E08590 STO CIL03 F2E08600 SXD CIL03,1 F2E08610 TRA AC144 F2E08620 AC140 CLA L(1) F2E08630 LXD AX,1 COMPUTE G AND DETERMINE F2E08640 TSX CXIJ+2,4 IF GREATER THAN ONE. F2E08650 SUB L(1) F2E08660 TNZ AC146 F2E08670 AC144 CLA L(CLA) G = 1, F2E08680 STO CIL01 COMPILE F2E08690 CLA L(0) CLA N2, FOLLOWED F2E08700 STO CIL00 LATER BY STD. F2E08710 TSX CIT,4 F2E08720 TRA AC150 F2E08730 AC146 ADD L(1) G GREATER THAN 1, F2E08740 ALS 18 COMPILE F2E08750 TSX $FXCON,4 LDQ, MPY, ALS. F2E08760 STO ORO00+9 F2E08770 CLA CIL02 F2E08780 STO ORO00+1 F2E08790 CLA KLX02I F2E08800 LXA $L(3),1 F2E08810 TSX LXC,4 F2E08820 AC150 LXD AX,1 F2E08830 CLA TAG3,1 F2E08840 PDX 0,2 F2E08850 CLA DOTAGZ+8,2 F2E08860 ANA BIT20 F2E08870 LXD AX,2 F2E08880 TZE AC157 F2E08890 TNX AC157,2,1 F2E08900 LXA L(1),1 F2E08910 CLA KLX01I F2E08920 TSX LXC,4 F2E08930 CLA INST13 F2E08940 STO AC096 F2E08950 TSX $COSE,4 F2E08960 LXD AX,2 F2E08970 TXL AC080,2,2 F2E08980 TRA AC064 F2E08990 AC155 CLA INST14 F2E09000 STO AC096 F2E09010 LXD AX,2 F2E09020 LXD BBOX,4 F2E09030 TXI AC155+5,4,4 F2E09040 SXD BBOX,4 F2E09050 AC157 TSX TESTLO,4 F2E09060 CLA TETLOC IN TETLO. F2E09070 STO CIL02 COMPILE F2E09080 CLA L(STD) STD TETLO F2E09090 STO CIL01 AND RETURN TO F2E09100 SXD CIL00,0 AC160 TO F2E09110 SXD CIL03,0 CONSIDER NEXT F2E09120 TSX CIT,4 SUB OF TAG. F2E09130 AC160 LXD AX,1 F2E09140 TIX AC109,1,1 REDUCE POS. CTR. F2E09150 CLA TAG4 CHECK SUSBIT F2E09160 TPL AC165 FOR FORVAR. F2E09170 LXD DOIND,2 FORVAR, IS IT F2E09180 CLA DOTAGZ+5,2 WITHIN THE CURRENT DO. F2E09190 ANA BIT1 F2E09200 TZE AC165 NO, AC165. F2E09210 CLA L(0) YES, F2E09220 STO CIL02 COMPILE F2E09230 TSX CIL03I,4 INSTRUCTIONS F2E09240 CLA L(PXD) TO F2E09250 STO CIL01 STORE F2E09260 TSX CIT,4 THE F2E09270 CLA DOTAGZ+1,2 VALUE F2E09280 STO CIL02 OF F2E09290 CLA L(STO) THE F2E09300 STO CIL01 SUBSCRIPT F2E09310 PXD 0,0 INTO F2E09320 STO CIL03 ITS F2E09330 TSX CIT,4 SYMBOL. F2E09340 AC165 CLA XTG START SCANNING F2E09350 ARS 2 TGA FOR LOCATIONS F2E09360 PDX 0,1 INDICATING VARIABLE F2E09370 CAL MXTGA,1 DECREMENTS OF TXI F2E09380 SLW WRKTGA AND TIX INSTRUCTIONS- F2E09390 TZE AC240 NONE, AC240. F2E09400 LXA $L(3),1 YES, ISOLATE F2E09410 AC166 SXD AX,1 APP. TGTG AND F2E09420 CAL WRKTGA CHECK FOR F2E09430 ARS 18 LOCATIONS F2E09440 AC168 TNX AC170,1,1 OF TXI F2E09450 ARS 6 INSTRUCTIONS F2E09460 TRA AC168 WITH VARIABLE F2E09470 AC170 ANA 6ONESR DECREMENTS. F2E09480 TZE AC190 NONE, AC190. F2E09490 ALS 3 STORE F2E09500 STO TETLOC LOC. OF TXI. F2E09510 LXA L(0),4 F2E09520 LXD AX,1 IS F2E09530 CLA TAG4 POSITION F2E09540 TXL AC173,1,2 F2E09550 ANA BIT8 POSITION IS S1, IS F2E09560 AC171 TNZ AC172 THIS BLOCK D SPECIAL. F2E09570 CLA TAG4 NO, BLOCK A. F2E09580 TRA AC176 TSX AORO F2E09590 AC172 LDQ $WRKSC+2 TES, SET UP F2E09600 MPY $WRKSC+6 C1D1 AS G F2E09610 ALS 17 FOR XX POSITION. F2E09620 STO ORO00+20 C1 IS G FOR F2E09630 CLA $WRKSC N3X POSITION. F2E09640 STO ORO00+19 PREPARE TO F2E09650 LXA $L(3),1 CALL PC ROUTINE F2E09660 SXD N3X,1 TO COMPILE F2E09670 LXA L(2),1 INITIALIZATION F2E09680 SXD XX,1 INSTRUCTIONS F2E09690 TSX PC,4 FOR BLOCK D SPECIAL. F2E09700 TRA AC190 F2E09710 AC173 TXL AC174,1,1 IS POSITION S3) F2E09720 ARS 3 ISOLATE BLKNUM F2E09730 AC174 ARS 29 FROM TAG4 AND F2E09740 ANA L(7) CALLPROPER ROUTINE F2E09750 PAX 0,4 TO COMPILE INITIALIZATION F2E09760 AC176 TXH AC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK. F2E09770 TSX AORO,4 BLOCK A F2E09780 TRA AC190 F2E09790 TXH AC178,4,1 F2E09800 TSX BORO,4 BLOCK B F2E09810 TRA AC190 F2E09820 AC178 TXH AC182,4,2 F2E09830 TSX CORO,4 BLOCK C F2E09840 TRA AC190 F2E09850 AC182 TXH AC186,4,3 F2E09860 TSX DORO,4 BLOCK D. F2E09870 TRA AC190 F2E09880 AC186 TSX EORO,4 BLOCK E. F2E09890 TRA AC190 F2E09900 AC190 LXD AX,1 IF ALL SUBS HAVE NOT BEEN F2E09910 TIX AC166,1,1 CONSIDERED FOR TXIS, TAKE NEXT RT. F2E09920 LXA L(3),1 THIS REPRESENTS END OF F2E09930 AC200 SXD AX,1 TXI PHASE, START TIX. F2E09940 CLA WRKTGA ISOLATE APP. TGTG ENTRY. F2E09950 AC210 TNX AC214+1,1,1 F2E09960 ARS 6 F2E09970 AC214 TRA AC210 F2E09980 ANA 6ONESR F2E09990 TZE AC236 IS THERE A TIX VAR. DEC. LOC. F2E10000 ALS 3 YES, STORE TIX REL. LOC. F2E10010 STO TETLOC IN TETLOC WORD. F2E10020 LXD AX,1 F2E10030 CLA TAG2+3,1 ISOLATE F2E10040 PDX 0,2 N3 FOR F2E10050 ACI21 CLA DOTAGZ+4,2 THIS DO. F2E10060 SUB L(1) DOES N3 = 1. F2E10070 TZE AC220+2 F2E10080 TSX XORO,4 NO, PLACE N SYMBOLS F2E10090 LXA L(6),1 IN APPROP. ORO LOCS F2E10100 LXD AX,2 AND COMPUTE F2E10110 AC220 CLA KTX00+3,2 X QUANTITY F2E10120 TSX LXC,4 ON O.C. LEVEL. F2E10130 LXD AX,1 F2E10140 CLA INST4 TRA AC224. MODIFY ADRO F2E10150 STO AORO30 ROUTINE TO COMPUTE G. F2E10160 CLA INST5 TRAAC228. F2E10170 STO AORO40 F2E10180 TSX AORO,4 COMPUTE G, PUT IN ORO+19. F2E10190 AC224 TRA AC230 G1 = 1. F2E10200 AC228 LXD AX,1 G1 NOT = 1, F2E10210 CLA TAG2+3,1 COMPILE INSTRUCTIONS F2E10220 PDX 0,2 TO COMPUTE AND INITIALIZE F2E10230 CLA DOTAGZ+4,2 TIX DECREMENT. F2E10240 SUB L(1) F2E10250 TNZ AC228I N3 NOT = 1. F2E10260 CLA DOTAGZ+2,2 N3 = 1, DOES F2E10270 SUB L(1) N1 = 1. F2E10280 TNZ ACI22 N1 NOT = 1. F2E10290 CLA DOTAGZ+3,2 N3, N1=1. F2E10300 STO ORO00 G GREATER THAN 1. F2E10310 CLA K1AORO F2E10320 LXA L(4),1 F2E10330 TSX LXC,4 F2E10340 TRA AC234 EXIT TIX INITIALIZATION. F2E10350 ACI22 TSX OP3,4 N3= 1, N1 NOT = 1, F2E10360 CLA L(ADD) COMPILE F2E10370 STO CIL01 TIX F2E10380 CLA ORO00+13 INITIALIZATION F2E10390 PAX 0,1 GROUP F2E10400 ANA 6ONES FOR F2E10410 STO CIL02 THIS F2E10420 SXD CIL03,1 CASE. F2E10430 TSX CIT,4 F2E10440 CLA L(STO) F2E10450 STO CIL01 F2E10460 CLA L(0) F2E10470 STO CIL03 F2E10480 CLA ORO00+26 ERASEABLE STORAGE F2E10490 PAX 0,4 SYMBOL FOR ADDRESS. F2E10500 ANA 6ONES F2E10510 STO CIL02 F2E10520 SXD CIL03,4 F2E10530 TSX CIT,4 F2E10540 CLA ORO00+26 PLACE ERASEABLE SYMBOL F2E10550 STO ORO00 IN ORO00 FOR LXC BLOCK. F2E10560 LXA L(4),1 F2E10570 CLA K1AORO F2E10580 TSX LXC,4 F2E10590 TRA AC234 EXIT TIX INITIALIZATION. F2E10600 AC228I LXA L(4),1 F2E10610 CLA LTX040 COMPILE TIX INITIALIZATION F2E10620 TSX LXC,4 GROUP FOR THIS CASE. F2E10630 TRA AC234 EXIT TIX INITIALIZATION. F2E10640 AC230 LXD AX,1 G=1, F2E10650 CLA TAG2+3,1 DOES F2E10660 PDX 0,2 N3 = 1. F2E10670 CLA DOTAGZ+4,2 F2E10680 SUB L(1) F2E10690 TNZ AC230I NO. F2E10700 CLA DOTAGZ+2,2 YES, DOES N1= 1. F2E10710 SUB L(1) F2E10720 TNZ ACI23 NO. F2E10730 CLA DOTAGZ+3,2 G,N3,N1 = 1, F2E10740 STO ORO00 COMPILE TIX F2E10750 CLA K2AORO INITIALIZATION F2E10760 LXA L(2),1 FOR THIS F2E10770 TSX LXC,4 CASE. F2E10780 TRA AC234 EXIT TIX INITIALIZATION. F2E10790 ACI23 TSX OP3,4 N3=1, N1 NOT = 1. F2E10800 CLA L(ADD) COMPILE F2E10810 STO CIL01 TIX F2E10820 CLA ORO00+13 INITIALIZATION F2E10830 PAX 0,1 FOR F2E10840 ANA 6ONES THIS F2E10850 STO CIL02 CASE. F2E10860 SXD CIL03,1 F2E10870 TSX CIT,4 F2E10880 CLA K3AORO F2E10890 LXA L(1),1 F2E10900 TSX LXC,4 F2E10910 TRA AC234 EXIT TIX INITIALIZATION. F2E10920 AC230I LXA L(2),1 G =1, N3 NOT = 1. F2E10930 CLA LTX042 F2E10940 TSX LXC,4 THIS CASE. F2E10950 AC234 CLA INST3 RESET MODIFIED AORO. F2E10960 STO AORO30 LXC L(4),1. F2E10970 CLA INST2 F2E10980 STO AORO40 LXD L(2),1. F2E10990 AC236 LXD AX,1 F2E11000 TIX AC200,1,1 F2E11010 AC240 TRA AC010 F2E11020 LXA LADMX,2 START ADTG COMPILING. F2E11030 TXI AC240+3,2,4 F2E11040 SXD XTG,2 F2E11050 CLA INST8 L(TRA AC244). F2E11060 STA AC240 MODIFY RETURN FOR ADTG ENTRY. F2E11070 STA AC016 F2E11080 CLA INST10 F2E11090 STA AC165+3 F2E11100 AC244 TSX ADTGSE,4 FIND VALID ADTG ENTRY. F2E11110 TRA AC250 END OF TABLE , GET NEXT DO. F2E11120 AC248 TXL AC014,,0 VALID ENTRY, CONTINUE AC CYCLE. F2E11130 AC250 CLA INST11 REINITIALIZE INSTRUCTIONS F2E11140 STA AC240 MODIFIED FOR F2E11150 STA AC016 DRUMTAG F2E11160 CLA INST12 CYCLE. F2E11170 STA AC165+3 F2E11180 CLA LOCIND IF NO INSTRUCTIONS HAVE BEEN F2E11190 TZE AC260 COMPILED FOR THIS ALPHA, F2E11200 CLA L(BSS) F2E11210 STO CIL01 INSURES THAT THE EXTERNAL F2E11220 CLA A ALPHA WILL HAVE A CORRESPON- F2E11230 STO CIL00 DING INTERNAL ALPHA. F2E11240 STZ CIL02 F2E11250 STZ CIL03 F2E11260 TSX CIT,4 F2E11270 AC260 LXD AC248,4 F2E11280 TRA 1,4 EXIT ALPHA CYCLE F2E11290 REM *************************************************************F2E11300 REM DOGS IS CALLED BY MAN TO SELECT AN ALPHA OR BETA TO BE PRO F2E11310 REM CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). F2E11320 DOGS CLA L(0) INITIALIZING TO ZERO F2E11330 STO A ALL CALLS REQUIRED FOR F2E11340 STO B COMPARISON FOR EACH DO F2E11350 STO SWICH F2E11360 STO TEBBOX F2E11370 LXD DOIND1,1 IF LEVEL OF LAST F2E11380 TXL DOGS20,1,0 F2E11390 CLA SWICH1 F2E11400 TNZ DOGS20 F2E11410 CLA DOTAGZ+5,1 ANALYZED DOTAG ENTRY F2E11420 PDX 0,1 IS ONE THEN THE NEST F2E11430 TXH DOGS20,1,1 HAS BEEN COMPLETELY F2E11440 TRA 1,4 ANALYZED. IF NOT F2E11450 DOGS20 LXA LMXDTG,1 START SCAN AT FIRST ENTRY F2E11460 DOGS22 CLA SWICH F2E11470 TNZ DOGS25 B PORTION UNDER CONSIDERATION F2E11480 CLA DOTAGZ,1 A PORTION UNDER CONSIDERATION F2E11490 ANA BIT1 F2E11500 TNZ DOGS50 CONTINUE, ALREADY ANALYZED F2E11510 CLA DOTAGZ,1 SETS UP A PORTION OF F2E11520 PDX 0,2 DO FOR COMPARISON F2E11530 SXD B,2 PUT A OF DO IN INDICATOR B F2E11540 TRA DOGS30 PROCEED T/ COMPARISON F2E11550 DOGS25 CLA DOTAGZ,1 B PORTION UNDER CONSIDERATION F2E11560 ANA BIT2 MASK TO INDICATE LOOKED AT F2E11570 TNZ DOGS50 ALREADY ANALYZED, CONTINUE F2E11580 CLA DOTAGZ,1 SET UP A IN F2E11590 PDX 0,2 B WORD FOR COMPARISON F2E11600 SXD A,2 F2E11610 PAX 0,2 F2E11620 SXD B,2 F2E11630 DOGS30 CLA B F2E11640 CAS TEBBOX F2E11650 TRA DOGS45 T-B1 STORE B IN TEBBOX F2E11660 TRA DOGS40 T=B1 COMPARE AS F2E11670 TRA DOGS50 T-B1 CONTINUE F2E11680 DOGS40 CLA TEABOX CONPARE AS F2E11690 CAS A F2E11700 TRA DOGS50 T-A CONTINUE F2E11710 TSX ERRORM,4 TEABOX(IFN OF PRECEDING DO) F2E11720 REM SHOULD NOT EQUAL A (IFN OF F2E11730 REM SUCCEEDING DO). F2E11740 DOGS45 CLA A T-A STORE B IN TRBBOX F2E11750 STO TEABOX F2E11760 CLA B F2E11770 STO TEBBOX F2E11780 SXD DOIND1,1 RECORD THE DO POSITION F2E11790 CLA SWICH RECORD SWITCH F2E11800 STO SWICH1 F2E11810 DOGS50 CLA SWICH REVERSE SWITCH FOR F2E11820 SUB L(1) EITHER B OF SAME DO OR F2E11830 SSP A OF NEXT DO F2E11840 STO SWICH F2E11850 TNZ DOGS60 TESTS A,B STATUS IF A F2E11860 TXI DOGS60,1,-9 LOWERS INDEX FOR NEXT DO F2E11870 DOGS60 TXH DOGS22,1,0 F2E11880 LXD DOIND1,1 END OF SCAN F2E11890 SXD DOIND,1 DO INDICATOR SET F2E11900 LXA SWICH1,2 F2E11910 CLA BIT1 ORDER TO PLACE BIT IN F2E11920 TXL DOGS70,2,0 A OR B USED F2E11930 ARS 1 INDICATOR POSITION F2E11940 DOGS70 ORS DOTAGZ,1 F2E11950 TRA 2,4 EXIT AFTER FINDING DO F2E11960 REM *************************************************************F2E11970 REM SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2E11980 REM DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. F2E11990 REM THIS TAG IS CALLED RTXTGX. F2E12000 SCAN LXD FNEST,1 COMPARE B WITH DOFOR F2E12010 SCAN05 CLA B DOTAG A OF EACH TAGTAG F2E12020 CAS TAGZ,1 ENTRY IN NEST. F2E12030 TXI SCAN10,1,4 SEARCH COMPLETED. F2E12040 TSX ERRORM,4 THE IFN IN B(FROM CURRENT F2E12050 REM DOTAG ENTRY) SHOULD NOT BE F2E12060 REM EQUAL TO THE FIRST WORD F2E12070 REM OF XR1 TAGTAG ENTRY. TAGTAG IS F2E12080 REM FROM FILE 2 TAPE 4. F2E12090 TXI SCAN05,1,-4 G LESS THAN A. F2E12100 SCAN10 TRA 1,4 F2E12110 REM *************************************************************F2E12120 REM FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2E12130 REM FIED BY THE CURRENT DO. F2E12140 FIND SXD FIND22,4 F2E12150 LXD XTG,1 F2E12160 FIND04 TXI FIND10,1,-4 BUMP TO NEXT TGTG ENTRY. F2E12170 FIND10 TXH FIND20,1,0 DEC CONTAINS TAGTAG COUNT. F2E12180 LXD FIND22,4 F2E12190 TRA 1,4 END OF TGTG TABLE AND DO. F2E12200 FIND20 CLA A COMPARE DOTAGA WITH F2E12210 CAS TAGZ,1 TGTG DOFOR DOTAG A. F2E12220 TRA FIND10+1 END OF DO. F2E12230 NOP F2E12240 TSX TGFM,4 F2E12250 TSX ISC,4 F2E12260 FIND22 TXL FIND04,,0 POSIND=3 IF LEFTMOST SYMBOL. F2E12270 PXD 0,2 2IF CENTER. F2E12280 ARS 18 1 IF RIGHTMOST. F2E12290 STO POSIND F2E12300 LXD FIND22,4 F2E12310 TRA 2,4 SUCCESSFUL SEARCH. F2E12320 REM *************************************************************F2E12330 REM ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. F2E12340 ISC LXA L(1),2 COMPARE SUBSCRIPT F2E12350 CLA DOIND WITH THE INDEX F2E12360 SUB TAG2+3,2 OF THE CURRENT DO. F2E12370 TZE 2,4 CURRENT DO MODIFIES THIS TAG. F2E12380 TXI ISC+5,2,1 TRY NEXT LEFT F2E12390 TXL ISC+1,2,3 SUBSCRIPT. F2E12400 TRA 1,4 NO MODIFICATION, ERROR RETURN. F2E12410 REM *************************************************************F2E12420 REM TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO F2E12430 REM WORKING TGTG. F2E12440 TGFM CLA TAGZ,1 F2E12450 STD TAG1 IN WORKING TGTG. F2E12460 PAX 0,2 A, X1, X2, X3, TG, TG1. F2E12470 SXD TAG2,2 F2E12480 CLA TAGZ+1,1 F2E12490 STD TAG2+1 F2E12500 PAX 0,2 F2E12510 SXD TAG2+2,2 F2E12520 CLA TAGZ+2,1 F2E12530 STO TAG3 F2E12540 CLA TAGZ+3,1 F2E12550 STO TAG4 F2E12560 TRA 1,4 F2E12570 REM *************************************************************F2E12580 REM ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2E12590 ENTR LXD DOIND,2 SYMBOL OF DO IS F2E12600 CLA DOTAGZ+1,2 PLACED IN WRKSC F2E12610 STO $WRKSC+1 AND COEF. IS SET F2E12620 CLA $L1DEC =1. THIS SIMULATES F2E12630 STO $WRKSC A TAU TABLE ENTRY. F2E12640 TRA 1,4 F2E12650 REM *************************************************************F2E12660 REM LOCO ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2E12670 REM DATES A COUNTER FOR THE NEXT ASSIGNMENT. F2E12680 LOCO CLA LOCIND F2E12690 TZE 1,2 LOCATION ALREADY ASSIGNED. F2E12700 CLA L(0) IF LOCIND GREATER F2E12710 STO LOCIND F2E12720 CLA CIL00 TO ZERO. F2E12730 TNZ 1,2 IF CIL00 HAS NOT BEEN F2E12740 CLA VCTR F2E12750 STO CIL00 UPDATE VCTR. F2E12760 ADD $L(8) F2E12770 STO VCTR F2E12780 TRA 1,2 START COMPARING BUFFER F2E12790 REM *************************************************************F2E12800 REM SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG. F2E12810 SCLMN1 LXD TAG2,1 S1 INDEX QUANTITY. F2E12820 LXD TAG2+1,2 S2 INDEX QUANTITY. F2E12830 SXD SCLMN2,2 THIS ROUTINE F2E12840 SCLMN2 TXH SCLMN3,1,0 COMPARES SIZES F2E12850 LXD SCLMN2,1 OF THE INDEX F2E12860 SCLMN3 LXD TAG2+2,2 QUANTITIES OF F2E12870 SXD SCLMN4,2 EACH SUBSCRIPT IN A TAG. F2E12880 SCLMN4 TXH SCLMN5,1,0 LARGEST 2.X. QUANTITY F2E12890 LXD SCLMN4,1 IS FOUND AND LEFT IN F2E12900 SCLMN5 PXD 0,1 ACC FOR COMPARISON WITH DOIND. F2E12910 TRA 1,4 F2E12920 REM *************************************************************F2E12930 REM TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST F2E12940 REM DECREMENT. F2E12950 TELC LXA $L(3),1 F2E12960 CLA L(0) F2E12970 STO ERTX01 F2E12980 SXD $LINKC,4 F2E12990 TELC05 CLA TAG2+3,1 SEQUENCE. PUT S IN XB TO PREPARE F2E13000 PDX 0,2 FOR CN1IJ ROUTINE. F2E13010 TXL TELC10-2,2,0 NO S, GO TO NEXT S. F2E13020 TSX CN1IJ,4 COMPUTE (CN1-1)IJ ETC. F2E13030 ADD ERTX01 F2E13040 STO ERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2. F2E13050 TELC10 TIX TELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE. F2E13060 LXD $LINKC,4 F2E13070 TRA 1,4 F2E13080 REM *************************************************************F2E13090 REM CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A F2E13100 REM SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1 F2E13110 REM (C3N1-1)D1D2. F2E13120 CN1IJ LDQ DOTAGZ+2,2 N2 INTO MQ. F2E13130 LLS 18 F2E13140 TXL CN1IJ2,1,2 S2 OR S3, TRANSFER. F2E13150 MPY $WRKSC S1, F2E13160 SUB L(2) F2E13170 TRA CN1IJ8 F2E13180 CN1IJ2 TXL CN1IJ4,1,1 DIVIDE BY 2 AND RETURN. F2E13190 MPY $WRKSC+2 S2 F2E13200 SUB L(2) COMPUTE F2E13210 LRS 18 (2C2N1-2)D1D2 THEN F2E13220 MPY $WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2E13230 TRA CN1IJ8 BY 2 AND RETURN. F2E13240 CN1IJ4 MPY $WRKSC+4 S3, F2E13250 SUB L(2) COMPUTE F2E13260 LRS 18 (2C3N1-2)D1D2 THEN F2E13270 MPY $WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2E13280 LRS 18 DIVIDE BY 2 AND F2E13290 MPY $WRKSC+7 RETURN. F2E13300 CN1IJ8 ARS 1 DIVIDE BY 2. RESULT IS (C1N1-1) F2E13310 TRA 1,4 OR (C2N1-1)D1 OR (C3N1-1)D1D2. F2E13320 REM *************************************************************F2E13330 REM CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED, F2E13340 REM GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2E13350 REM BY THE CALLER. F2E13360 XMIN1 CLA DOTAGZ+5,2 F2E13370 ANA ADMSK F2E13380 SUB DOTAGZ+4,2 F2E13390 TRA CXIJ+2 F2E13400 CXIJ CLA DOTAGZ+5,2 F2E13410 ANA ADMSK ISOLATE X QUANTITY. F2E13420 STO ERTX03 F2E13430 TXH CXIJ+6,1,1 S2 OR S1. F2E13440 LDQ $WRKSC+4 S3, LOAD C3 F2E13450 TRA CXIJ2 F2E13460 TXL CXIJ1,1,2 S2. F2E13470 LDQ $WRKSC S1, LOAD C1. F2E13480 TRA CXIJ2 F2E13490 CXIJ1 LDQ $WRKSC+2 S2, LOAD C1. F2E13500 CXIJ2 MPY ERTX03 F2E13510 TXH CXIJ4,1,2 IF S1, FINISHED. F2E13520 LRS 18 F2E13530 MPY $WRKSC+6 CX TIMES D1. F2E13540 TXH CXIJ4,1,1 IF S2, FINISHED. F2E13550 LRS 18 F2E13560 MPY $WRKSC+7 CXD1 TIMES D2. F2E13570 CXIJ4 LLS 17 F2E13580 TRA 1,4 IN ACC. AND RETURN. F2E13590 REM *************************************************************F2E13600 REM CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2E13610 REM KNOWN, BUT IS KNOWN TO BE THE TEST FOR A GIVEN DO. THE F2E13620 REM ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2E13630 REM LOCATION OF THE SXD IS STORED IN THAT DOTAG SO THAT A TABLE (F2E13640 REM (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 TO FILL IN THEF2E13650 REM PROPER ADDRESS DURING MERGE. F2E13660 CSXD SXD ERTX01,4 ROUTINE FOR F2E13670 TSX CILV,4 COMPILING AN F2E13680 CLA L(0) SXD INSTRUCTION F2E13690 STO CIL03 WHERE THE F2E13700 STO CIL02 F2E13710 LXD BLKNUM,4 F2E13720 TXL CSXD4,4,2 BLOCKS B,C. F2E13730 LXD TAG21,4 BLOCKS D,E, LOAD S2 INDEX. F2E13740 TRA CSXD4+1 F2E13750 CSXD4 LXD TAG2,4 BLOCKS B,C, LOAD S1 INDEX. F2E13760 CLA DOTAGZ,4 FOR BLOCKS B,C, FILL IN F2E13770 ANA NOPRET SYMBOLIC ADDRESS OF SXD F2E13780 STO CIL02 FROM WD1 OF S1 DOTAG. F2E13790 CLA TAG3 NOT KNOWN. F2E13800 STA CIL03 F2E13810 CLA L(SXD) F2E13820 STO CIL01 F2E13830 TSX CIT,4 F2E13840 LXD ERTX01,4 F2E13850 TRA 1,4 F2E13860 REM *************************************************************F2E13870 REM ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION F2E13880 REM AND SPREADS IT INTO WORKING TAG (WRKSC). F2E13890 ADTGSE LXD XTG,1 F2E13900 ADTGS TXI ADTGS+1,1,-4 F2E13910 SXD XTG,1 F2E13920 ADTGS1 TXH ADTGS5,1,0 F2E13930 TRA 1,4 END OF TABLE. F2E13940 ADTGS5 CLA ADTGMX,1 COMPARE ADTG DDA WITH F2E13950 ANA DECMSK DOTAG A AND B UNTIL F2E13960 CAS A WE FIND AN ADTAG F2E13970 TRA ADTGS4 MODIFIED BY A DO THAT F2E13980 TRA ADTGS4 IS WITHIN THE RANGE F2E13990 TRA ADTGS OF THE CURRENT DO F2E14000 ADTGS4 CAS B F2E14010 TRA ADTGS NOT IN RANGE, SELECT NEXT. F2E14020 TSX ERRORM,4 THE IFN IN B(FROM CURRENT F2E14030 REM DOTAG ENTRY) SHOULD NOT BE F2E14040 REM EQUAL TO THE XR1 VALUE OF F2E14050 REM ADTAG. F2E14060 CLA ADTGMX,1 IN RANGE, FILL F2E14070 PDX 0,2 OUT WORKING TAG. F2E14080 SXD TAG1,2 DDA IN TAG1 DECREMENT. F2E14090 PAX 0,2 F2E14100 SXD TAG2,2 S1 INDEX IN TAG2. F2E14110 CLA ADTGMX+1,1 F2E14120 PDX 0,2 F2E14130 SXD TAG2+1,2 S2 INDEX IN TAG2+1 F2E14140 PAX 0,2 F2E14150 SXD TAG2+2,2 S3 INDEX IN TAG2+2. F2E14160 CLA ADTGMX+2,1 F2E14170 STO TAG3 TAG NAME IN TAG3. F2E14180 CLA ADTGMX+3,1 F2E14190 STO TAG4 ADTG WD4 IN TAG4. F2E14200 ADTGS8 LXA L(1),2 INIT FOR POSING. F2E14210 CLA TAG2+3,2 F2E14220 SUB DOIND TEST FOR MODIFICATION. F2E14230 TZE 2,4 PROPER ENTRY FOUND. F2E14240 TXH ADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT. F2E14250 TXI ADTGS8+1,2,1 ADTG NOT MOD BY DO, TAKE NEXT ADTG. F2E14260 REM *************************************************************F2E14270 REM N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO LF2E14280 REM LAST 3 BITS OF THE WORD N1SBX. F2E14290 N1STET CLA TAG4 F2E14300 ARS 3 ONE BIT F2E14310 ANA L(7) IS STORED IN N1SBX. F2E14320 ALS 3 F2E14330 STO N1SBX F2E14340 LXA $L(3),1 F2E14350 N1S02 CLA TAG2+3,1 A CONATAINS POSIND. F2E14360 PDX 0,2 F2E14370 TXL N1S05,2,0 NO TAG FOR THIS POS. F2E14380 CLA DOTAGZ,2 ISOLATE F2E14390 ARS 15 VARIABLE F2E14400 ANA L(4) N1 F2E14410 ARS 3,1 BIT. F2E14420 ORS N1SBX OR N1BIT TO N1SBX. F2E14430 N1S05 TIX N1S02,1,1 REPEAT FOR NEXT RIGHT S. F2E14440 CLA N1SBX F2E14450 TRA 1,4 F2E14460 REM *************************************************************F2E14470 REM OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2E14480 REM THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN F2E14490 REM (CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME. F2E14500 OP2 CLA 32766,4 F2E14510 STA RETURN LINKAGE. F2E14520 CLA TAG2+3,1 IF S IS NOT F2E14530 PDX 0,2 DEFINED BY A DO, F2E14540 TXH OP2P,2,0 F2E14550 TRA 1,4 F2E14560 OP2P CLA DOTAGZ+2,2 IF NOT DEFINED BY F2E14570 ANA 6ONES F2E14580 TNZ 1,4 RETURN TO MAIN ROUTINE. F2E14590 CLA DOTAGZ+2,2 IF CONSTANT, COMPUTE F2E14600 TSX CN1IJ,4 F2E14610 TZE RETURN RETURN AND CONSIDER S2. F2E14620 ALS 18 OTHERWISE COMPUTE F2E14630 TXL OP2P1,1,2 F2E14640 ADD $L1DEC TO (CN1-1). F2E14650 OP2P1 TSX $FXCON,4 F2E14660 TXL OP2P2,1,2 F2E14670 STO ORO00+1 F2E14680 TIX AC050,1,1 F2E14690 OP2P2 PAX 0,1 F2E14700 ANA 6ONES ASSIGN FIXCON SYMBOL. F2E14710 STO CIL02 CHECK SUBSCRIPT. IF F2E14720 PXD 0,1 S1, TRA RETURN (3RD). OTHERWISE F2E14730 STO CIL03 COMPILE ADD L(SYMBOL). F2E14740 CLA L(ADD) STO 1)+3. F2E14750 STO CIL01 F2E14760 CLA L(0) F2E14770 STO CIL00 F2E14780 LXD BBOX,1 F2E14790 TXI OP24,1,4 F2E14800 OP24 SXD BBOX,1 F2E14810 TSX CIT,4 F2E14820 CLA L(STO) F2E14830 STO CIL01 F2E14840 CLA L3DEC F2E14850 STO CIL03 F2E14860 CLA ORO00+26 F2E14870 ANA 6ONES F2E14880 STO CIL02 F2E14890 TSX CIT,4 F2E14900 RETURN TRA 0 ADDRESS MODIFIED. F2E14910 REM *************************************************************F2E14920 REM OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A F2E14930 REM CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1). F2E14940 OP3 SXD EROP3,4 F2E14950 CLA DOTAGZ,2 ARE ALL F2E14960 ARS 15 N PARAMETERS F2E14970 ANA L(7) CONSTANT. F2E14980 TNZ OP31 NO, OP31. F2E14990 CLA DOTAGZ+3,2 YES, F2E15000 SUB DOTAGZ+2,2 FORM F2E15010 ALS 18 N2-N1. F2E15020 TSX $FXCON,4 OBTAIN FIXCON SYMBOL. F2E15030 PAX 0,4 COMPILE F2E15040 ANA 6ONES CLA F2E15050 STO CIL02 L(N2-N1) F2E15060 PXD 0,4 AND F2E15070 STO CIL03 RETURN F2E15080 CLA L(CLA) TO F2E15090 STO CIL01 THE F2E15100 CLA L(0) CALLER. F2E15110 STO CIL00 ZERO LOCATION. F2E15120 TSX CIT,4 F2E15130 LXD EROP3,4 F2E15140 TRA 1,4 F2E15150 OP31 ARS 1 F2E15160 LBT F2E15170 TRA OP32 F2E15180 CLA DOTAGZ+3,2 N2 VARIABLE, F2E15190 STO CIL02 COMPILE F2E15200 CLA L(0) CLA L(N2). F2E15210 STO CIL03 F2E15220 TRA OP33 F2E15230 OP32 CLA DOTAGZ+3,2 F2E15240 ALS 18 F2E15250 TSX $FXCON,4 F2E15260 PAX 0,4 F2E15270 ANA 6ONES F2E15280 STO CIL02 F2E15290 PXD 0,4 F2E15300 STO CIL03 F2E15310 OP33 CLA L(0) F2E15320 STO CIL00 F2E15330 CLA L(CLA) F2E15340 STO CIL01 F2E15350 TSX CIT,4 F2E15360 CLA DOTAGZ,2 F2E15370 ARS 17 F2E15380 LBT F2E15390 TRA OP34 F2E15400 CLA DOTAGZ+2,2 N1IS VARIABLE, F2E15410 STO CIL02 PREPARE TO F2E15420 CLA L(0) COMPILE F2E15430 STO CIL03 SUBL(N1). F2E15440 TRA OP35 F2E15450 OP34 CLA DOTAGZ+2,2 N1 CONSTANT, F2E15460 ALS 18 OBTAIN F2E15470 TSX $FXCON,4 FIXCON SYMBOL F2E15480 PAX 0,4 FOR N1 F2E15490 ANA 6ONES AND PREPARE F2E15500 STO CIL02 TO COMPILE F2E15510 SXD CIL03,4 SUB L(N1). F2E15520 OP35 CLA L(SUB) COMPILE F2E15530 STO CIL01 SUB F2E15540 TSX CIT,4 L(N1) F2E15550 LXD EROP3,4 F2E15560 TRA 1,4 F2E15570 REM *************************************************************F2E15580 TTG LXD FIND10,1 PICK UP VALUE FOR LAST ENTRY F2E15590 TXI *+1,1,-4 OF NEST AND BUMP TO VALUE FOR F2E15600 SXD FNEST,1 FIRST ENTRY OF NEXT NEST. F2E15610 TTG10 CLA TAGZ,1 SEARCH FOR F2E15620 SUB ALLONE END OF NEST F2E15630 TZE *+4 FENCE. F2E15640 TXI *+1,1,-4 F2E15650 TXH TTG10,1,0 F2E15660 TSX ERRORM,4 A FENCE OF 4 WORDS OF ALLONES F2E15670 REM SHOULD END THE TAGTAG TABLE. F2E15680 SXD FIND10,1 F2E15690 TRA 1,4 F2E15700 FNEST PZE 0 F2E15710 IOCOM2 IOST TAGTG,,1000*M/N*4 F2E15720 REM *************************************************************F2E15730 CIT SXD $E2C,4 F2E15740 SXD $E3C,2 F2E15750 TSX LOCO,2 CITSP PART. F2E15760 LXD BBOX,2 F2E15770 NZT BLSW IF FIRST CIT OF A BLOCK, F2E15780 TRA CIT02 (NOT FIRST, OMIT) F2E15790 CLA CIL00 SET SIGN F2E15800 SSM MINUS F2E15810 STO CIL00 AND STORE. F2E15820 STZ BLSW RESET SIGNAL. F2E15830 CIT02 LXA L(4),4 MOVE THE F2E15840 CLA CIL00+4,4 CIT F2E15850 STO DOFILE,2 TO F2E15860 TXI CIT04,2,-1 DOFILE F2E15870 CIT04 TIX CIT02+1,4,1 BUFFER. F2E15880 TXH *+2,2,-LMXDF-1 F2E15890 TSX ERRO13,4 DOFILE IS FULL. F2E15900 SXD BBOX,2 SAVE DOFILE XR VALUE. F2E15910 LXD $E3C,2 F2E15920 LXD $E2C,4 F2E15930 TRA 1,4 F2E15940 REM *************************************************************F2E15950 REM DF01 SORTS A NEST OF CITS AND WRITES THEM ON TAPE 4. F2E15960 DF01 STZ NTEST ERASE 6AST BLOCK INDICATOR. F2E15970 LXD BCNT,2 LOAD WITH VALUE FOR NEXT BUFFER. F2E15980 LXD BBOX,1 LOAD WITH VALUE FOR LAST DOFILE WD. F2E15990 DF20 SXD DF40,1 SET END OF BLOCK TEST VALUE. F2E16000 TXI *+1,1,4 F2E16010 CAL DOFILE,1 SEARCH FOR BEGINNING F2E16020 PBT OF BLOCK OF CITS. F2E16030 TXI *-2,1,4 F2E16040 STO DOFILE,1 RESET P BIT TO ZERO IN CIT. F2E16050 DF31 TXH DF34,1,0 TEST FOR LAST BLOCK OF NEST. F2E16060 CLA ALLONE END OF F2E16070 STO NTEST NEST FLAG. F2E16080 DF34 SXA BLOCK,1 SAVE XR TO FIND NEXT BLOCK. F2E16090 DF36 CLA DOFILE,1 MOVE A WORD TO BUFFER F2E16100 DF37 STO BONE+CIBSZ,2 1 OR 2 (ADD. IS SWITCHED). F2E16110 TXI *+1,1,-1 F2E16120 TNX DF50,2,1 IS BUFFER FULL. F2E16130 DF40 TXH DF36,1,** TEST FOR END OF BLOCK. F2E16140 ZET NTEST TEST FOR END OF NEST. F2E16150 TRA MAN50+1 END OF NEST. F2E16160 LXA BLOCK,1 END OF BLOCK. RESET XR F2E16170 TRA DF20 AND GO TO FIND NEXT BLOCK. F2E16180 DF50 AXC -1,2 LOAD BUFFER INDEX. F2E16190 * *** F2E16200 DF51 TSX (TAPE),4 WRITE ONE F2E16210 PZE B1Z,2,(WBNP) RECORD OF F2E16220 PZE CMPDOL,,FTAPE4 COMPDO CIT'S. F2E16230 CLA DSC7,2 SWITCH BUFFER F2E16240 STA DF37 ADDRESS. F2E16250 SXA DF50,2 F2E16260 AXT CIBSZ,2 F2E16270 TXH DF40,1,0 IS THIS LAST BUFFER(XR1=0). F2E16280 * *** F2E16290 DFEXIT TSX (TAPE),4 WRITE END OF F2E16300 PZE ,,(WEFP) FILE F2E16310 PZE FILN2L,,FTAPE4 FOR COMPDO. F2E16320 * *** F2E16330 TSX (TAPE),4 POSITION TAPE 2 F2E16340 PZE SKLST5,,(SKBP) FOR F2E16350 PZE TIFL,,FTAPE2 SECTION THREE. F2E16360 * *** F2E16370 TSX (TAPE),4 REWIND TAPE 4 F2E16380 PZE REWIND,,(SKBP) FOR F2E16390 PZE TRLVL,,FTAPE4 SECTION THREE. F2E16400 * *** F2E16410 TSX (LOAD),4 GO TO SECTION THREE. F2E16420 PZE F2E16430 DF70 CLA DF50 PICK UP F2E16440 PAC ,2 BUFFER INDEX. F2E16450 CLA B1Z,2 COMPUTE WORD COUNT F2E16460 ANA DECMSK FOR LAST BUFFER, F2E16470 SUB BCNT AND STORE F2E16480 STD B1Z,2 IN I/O COMMAND. F2E16490 AXT 0,1 INDICATE LAST BUFFER AND F2E16500 TRA DF51 GO TO WRITE. F2E16510 CMPDOL BCI 1,COMPDO F2E16520 SKLST5 MZE 9,,1 F2E16530 BLOCK PZE 0 F2E16540 NTEST PZE 0 F2E16550 BLSW PZE F2E16560 BCNT PZE ,,CIBSZ F2E16570 B2Z PZE BTWO+CIBSZ F2E16580 DSC7 IORT BONE,,CIBSZ F2E16590 B1Z PZE BONE+CIBSZ F2E16600 DSC8 IORT BTWO,,CIBSZ F2E16610 LMXDF EQU 1000*M/N*4 F2E16620 TRA 1,4 F2E16630 REM *************************************************************F2E16640 REM CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A COMF2E16650 REM PILED BETA STATE INSTRUCTION. F2E16660 CILV CLA VCTR THIS ROUTINE UPDATES F2E16670 STO CIL00 VCTR AND F2E16680 ADD $L(8) STORE INTO CIL00 F2E16690 STO VCTR IT IS CALLED WHEN F2E16700 ANA ADMSK WE NEED A LOCATION F2E16710 SUB MAXLOC FOR A COMPILED F2E16720 TZE CILV1 INSTRUCTION. F2E16730 TRA 1,4 F2E16740 CILV1 TSX ERRO12,4 SOURCE PROGRAM ERROR. F2E16750 REM *************************************************************F2E16760 REM N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. F2E16770 N3BIT LXD DOIND,2 THIS ROUTIN E ISOLATES F2E16780 CLA DOTAGZ,2 THE N3 BIT SO THAT F2E16790 ARS 15 IT CAN BE EASILY TESTED. F2E16800 ANA L(1) F2E16810 STO N3IND F2E16820 TRA 1,4 RETURN F2E16830 REM TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS F2E16840 REM INFORMATION IS RECORDED IN TAG4. F2E16850 TETG CLA TAG3 ISOLATE F2E16860 ANA ADMSK TAG NAME. F2E16870 STO ER40 F2E16880 CLA TAG4 ISOLATE DUPES INDICATORS F2E16890 ARS 9 F2E16900 ANA L(7) IF THERE ARE DUPES F2E16910 STO ER41 THIS INSURES THAT TEST BITS F2E16920 SUB L(1) ARE ENTERED ONLY FOR F2E16930 ANS ER41 RIGHTMOST DUPE. F2E16940 LXA $L(3),1 F2E16950 CLA TAG2+3,1 SELECT DOTAG WHICH F2E16960 TZE TETG5 CONTROLS THIS F2E16970 PDX 0,2 SUBSCRIPT. F2E16980 CLA DOTAGZ+8,2 F2E16990 ANA TETMSK ISOLATE TEST NAME F2E17000 ARS 18 OF THIS SUBSCRIPT. F2E17010 SUB ER40 DOES TEST NAME EQUAL TAG NAME. F2E17020 TNZ TETG5 NO, GO TO NEXT SUBSCRIPT. F2E17030 LDQ ER41 TEST NAME EQUALS TAG NAME, F2E17040 LLS 36,1 SEE IF THIS SUBSCRIPT F2E17050 LBT IS A LEFT DUPE. F2E17060 TRA TETG3 NOT A LEFT DUPE, ENTER TEST BIT. F2E17070 TRA TETG5 LEFT DUPE, IGNORE. F2E17080 TETG3 CLA BIT1 ENTER TEST BIT F2E17090 ARS 10,1 FOR THIS F2E17100 ORS TAG4 SUBSCRIPT. F2E17110 TETG5 TIX TETG+10,1,1 DEAL WITH NEXT SUBSCRIPT. F2E17120 TRA 1,4 F2E17130 REM *************************************************************F2E17140 REM PRES DETERMINES THE TXI BLOCK NJMBER FOR A GIVEN TAG AND PUTSF2E17150 REM IT IN INDEX REGISTER B. F2E17160 PRES CLA TAG4 FIRST THE TEST F2E17170 LRS 26 BITS ARE ISOLATED F2E17180 ALS 33 AND STORED. F2E17190 STO ER40 TEST BITS 1,2. F2E17200 LLS 5 THEN THE GROUP NO. F2E17210 ALS 20 IS LEFT F2E17220 ORA TAG4 IN THE MQ WHILE THE F2E17230 ARS 21 CARRY BITS ARE ORED F2E17240 ANA L(5) AND STORED. F2E17250 STO ER41 CARRY BITS 101. F2E17260 LLS 5 THE GROUP NO. IS THEN F2E17270 ORA POSIND SHIFTED TO BE COMBINED F2E17280 LDQ ER40 WITH THE POS. THE TEST F2E17290 LLS 1 BITS ARE SEPARATED SO THAT F2E17300 ALS 1 THEY CAN OR PROPERLY WITH F2E17310 LLS 2 CARRY BITS LT, LC, CT, CC. F2E17320 ORA ER41 THIS RESULTS IN THE MASK F2E17330 STO ARG USED FOR TABLE SEARCH. F2E17340 SXD ER40,4 F2E17350 LXA L(1),1 THIS BLOCK REPRESENTS F2E17360 TXI PRES10,1,38 SETS OF CALLING SEQUENCES TO F2E17370 PRES10 SXD S3,1 SEARCH ROUTINE. MASK IS F2E17380 TXI PRES20,1,9 STORED AND BLOCK TEST F2E17390 PRES20 CLA SMSK1 INDEX DECREMENT IS STORED. F2E17400 STO SMSK FIRST 11 ENTRIES ARE F2E17410 TSX SEARCH,4 SEARCHED. THEN 12,12,4. F2E17420 CLA SMSK2 RETURN TO ROUTINE F2E17430 STO SMSK AFTER SEARCHING LAST F2E17440 TIX PRES30,1,12 BLOCK INDICATES AN ERROR. F2E17450 PRES30 SXD S3,1 F2E17460 TXI PRES40,1,12 F2E17470 PRES40 TSX SEARCH,4 F2E17480 CLA SMSK4 F2E17490 STO SMSK F2E17500 TIX PRES50,1,20 F2E17510 PRES50 SXD S3,1 F2E17520 TXI PRES60,1,20 F2E17530 PRES60 TSX SEARCH,4 F2E17540 CLA SMSK3 F2E17550 STO SMSK F2E17560 TIX PRES70,1,6 F2E17570 PRES70 SXD S3,1 F2E17580 TXI PRES80,1,6 F2E17590 PRES80 TSX SEARCH,4 F2E17600 TSX ERRORM,4 ERROR RETURN FROM SEARCH. F2E17610 REM IF LAST BLOCK OF RX TABLE F2E17620 REM IS SEARCHED AND NO XR1 RX F2E17630 REM WORD (MODIFIED BY SEARCH, F2E17640 REM STORED IN WRKRXT) IS FOUND F2E17650 REM TO MATCH ARG(ALSO MODIFIED F2E17660 REM BY SMSK), THIS RETURN IS F2E17670 REM TAKEN. F2E17680 REM *************************************************************F2E17690 REM SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2E17700 REM AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHINGF2E17710 REM COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2E17720 REM NUMBER. F2E17730 SEARCH CLA RXTA+48,1 F2E17740 ARS 3 THIS ROUTINE TAKES F2E17750 STO WRKRXT THE ARGUMENT MASK, EDITS F2E17760 CLA ARG IT AND THEN SEARCHES F2E17770 ANA SMSK PRESCRIBED BLOCKS OF F2E17780 SUB WRKRXT THE RX TABLE. F2E17790 TZE S8 SUCCESSFUL SEARCH. F2E17800 TIX S3,1,1 INDEX FOR NEXT ENTRY. F2E17810 S3 TXH SEARCH,1,0 TEST FOR END OF BLOCK. F2E17820 TRA 1,4 F2E17830 S8 CLA RXTA+48,1 TABLE ENTRY CONTAINS F2E17840 ANA L(7) BLOCK NOS. 0-5 WHICH F2E17850 PAX 0,2 CORRESPOND TO BLOCKS F2E17860 LXD ER40,4 A-F. F2E17870 TRA 1,4 F2E17880 RXTA OCT 6600 6L, 760 MASK F2E17890 OCT 6400 6C F2E17900 OCT 6200 6R F2E17910 OCT 5600 5L F2E17920 OCT 4600 4L F2E17930 OCT 4200 4R F2E17940 OCT 3400 3C F2E17950 OCT 2400 2C F2E17960 OCT 1600 1L F2E17970 OCT 5501 5C, 774 MASK F2E17980 OCT 5400 5C F2E17990 OCT 5302 5R F2E18000 OCT 5200 5R F2E18010 OCT 4541 4C F2E18020 OCT 4501 4C F2E18030 OCT 4445 4C F2E18040 OCT 4400 4C F2E18050 OCT 1541 1C F2E18060 OCT 1501 1C F2E18070 OCT 1445 1C F2E18080 OCT 1400 1C F2E18090 OCT 1215 1R, 773 MASK F2E18100 OCT 1200 1R F2E18110 OCT 2723 2L F2E18120 OCT 2733 2L F2E18130 OCT 2623 2L F2E18140 OCT 2633 2L F2E18150 OCT 3324 3R F2E18160 OCT 3302 3R F2E18170 OCT 3223 3R F2E18180 OCT 3200 3R F2E18190 OCT 3723 3L,BL. A, LEFT + CENTER TEST. F2E18200 OCT 3700 3L, BL. A, LEFT TEST. F2E18210 OCT 3623 3L, BL. D, CENTER TEST. F2E18220 OCT 3600 3L, BL. A, NO TEST. F2E18230 OCT 1334 1R F2E18240 OCT 1324 1R F2E18250 OCT 1315 1R F2E18260 OCT 1302 1R F2E18270 OCT 1233 1R F2E18280 OCT 1223 1R F2E18290 OCT 2600 2L, 763 MASK F2E18300 OCT 2610 2L F2E18310 OCT 2233 2R F2E18320 OCT 2223 2R F2E18330 OCT 2215 2R F2E18340 OCT 2200 2R F2E18350 REM *************************************************************F2E18360 REM CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2E18370 REM THROUGH A DO LOOP. THIS IS THE NORMAL TXI DECREMENT. F2E18380 CN3IJ LDQ DOTAGZ+4,2 COMPUTES DECREMENT AND F2E18390 LLS 18 LEAVES IT IN ACCUMULATOR. F2E18400 TXH CN3IJ5,1,2 IF POSIND=3, S1 POS. F2E18410 MPY $WRKSC+6 D1N3 FOR S2 OR S3. F2E18420 LRS 18 F2E18430 TXH CN3IJ5,1,1 POSIND=2 S2 POS. F2E18440 MPY $WRKSC+7 D2D1N3 FOR S3. F2E18450 LRS 18 F2E18460 CN3IJ5 PXD 0,1 PLACE TWICE F2E18470 ALS 1 POSIND IN F2E18480 PDX 0,1 INDEX REGISTER. F2E18490 MPY $WRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3. F2E18500 ARS 1 F2E18510 TRA 1,4 RESULT IS N3G. F2E18520 REM *************************************************************F2E18530 REM CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2E18540 REM FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2E18550 REM ING INSTRUCTIONS F2E18560 CIL023 CLA L(0) ROUTINE PLACES SPECIAL F2E18570 STO CIL00 F2E18580 CLA $L1DEC SYMBOL FOR ADDRESS. F2E18590 STO CIL03 F2E18600 CLA BCD15 AND INITIALIZES LOC. WORD F2E18610 STO CIL02 AND PLACES TAG IN F2E18620 CLA TAG3 TAG WD. THIS IS DOEN F2E18630 STA CIL03 FOR INST. OF K DECREMENT. F2E18640 TRA 1,4 F2E18650 REM *************************************************************F2E18660 REM TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2E18670 REM A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE F2E18680 REM ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION F2E18690 REM INSTRUCTIONS. F2E18700 TGA ALS 18 FOR RX LOC. F2E18710 TGAT ARS 3 FOR TX LOC, DIV VCTOR BY 8. F2E18720 STO ERTGA F2E18730 LXA POSIND,1 F2E18740 CLA XTG CALCULATES X LOC OF TTGA. F2E18750 ARS 2 INDEX QUANTITY FOR TTGA IS F2E18760 PDX 0,2 ONE FOURTH THAT FOR TTG. F2E18770 CLA ERTGA F2E18780 TGA5 TIX TGA10,1,1 SHIFT LEFT FOR S1 OR S2 F2E18790 TGA8 ORS MXTGA,2 ADDRESS IS ORIGIN PLUS MAX F2E18800 TRA 1,4 ADD TG WD. LINKAGE TRANSFER. F2E18810 TGA10 ALS 6 F2E18820 TRA TGA5 F2E18830 REM *************************************************************F2E18840 REM EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2E18850 REM ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2E18860 REM AND KNOWN. F2E18870 EDCB SXD EDCB5,4 COMPILES TXI SXD TIX F2E18880 CLA L(TXI) INSTRUCTIONS WHEN F2E18890 STO CIL01 DECREMENTS ARE KNOWN. F2E18900 CLA ERTX01 ASSUMES DECREMENTS TO F2E18910 STA CIL01 BE IN ERTX01 AND F2E18920 TSX CIL023,4 ERTX02. F2E18930 TSX CIT,4 COMPILE TXI INSTRUCITON. F2E18940 TSX CSXD,4 COMPILE SXD SKELETON. F2E18950 CLA CIL00 F2E18960 ANA ADMSK F2E18970 ALS 12 BELOW, PLACE SXD LOC. INTO F2E18980 LXD BLKNUM,4 DOTAG WORD 7. APPROPRIATE F2E18990 TXH EDCB10,4,2 BITS DEPEND ON BLOCK NOS. F2E19000 LXD TAG2,2 BLOCKS D, E SHIFT LEFT 12. F2E19010 TXH EDCB5,4,1 BLOCKS C, B USE S1 DOTAG. F2E19020 ALS 6 BLOCK C, SHIFT LEFT 12. F2E19030 EDCB5 TXL EDCB20,,0 BLOCK B, SHIFT LEFT 18. F2E19040 EDCB10 LXD TAG2+1,2 BLOCK D,E USE S2 DOTAG. F2E19050 EDCB20 ORS DOTAGZ+6,2 PLACE LOC. INTO WD 7. F2E19060 CLA L(TIX) COMPILE F2E19070 STO CIL01 TIX. F2E19080 CLA ERTX02 COMPILE F2E19090 STA CIL01 TIX DECREMENT. F2E19100 TSX CIL023,4 F2E19110 TSX CIT,4 F2E19120 LXD EDCB5,4 F2E19130 TRA 1,4 F2E19140 REM *************************************************************F2E19150 REM BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2E19160 REM ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2E19170 BCDE SXD BCDE2,4 F2E19180 TSX CILV,4 OBTAIN LOC. FOR FIRST INST. F2E19190 CLA CIL00 MAKE LOCATION ENTRY INTO F2E19200 ANA ADMSK APPENDED TAG WORD. F2E19210 TSX TGA,4 F2E19220 CLA L(TXI) PLACE OPERATION IN F2E19230 STO CIL01 COMPILED INSTRUCTIN. F2E19240 TSX CIL23,4 FILL OUT REMAINING WORDS. F2E19250 TSX CIT,4 F2E19260 TSX CSXD,4 F2E19270 LXD BLKNUM,2 F2E19280 TXL BCDE5,2,2 TEST FOR BLOCKS B OR C. F2E19290 CLA CIL00 BLOCK D OR E. F2E19300 LXD TAG2+1,1 PLACE LOC. OF SXD INST. F2E19310 ANA ADMSK INTO DOTAG ENTRY FOR F2E19320 ALS 12 CENTER SUBSCRIPT. F2E19330 ORS DOTAGZ+6,1 F2E19340 BCDE2 TXL BCDE9,,0 BLOCKS D,E CONTINUE F2E19350 BCDE5 CLA CIL00 BLOCK B OR C . F2E19360 LXD TAG2,1 PLACE LOC. FOR SXD OF F2E19370 ANA ADMSK REMAINING TWO BLOCKS. F2E19380 ALS 12 DISTINGUISH BETWEEN BLOCK B, C. F2E19390 TXH BCDE8,2,1 F2E19400 ALS 6 F2E19410 BCDE8 ORS DOTAGZ+6,1 F2E19420 BCDE9 PXD 0,2 BLOCK NUMBER MUST BE F2E19430 ALS 14 STORED IN PROPER POS. F2E19440 LXA POSIND,1 OF TAG 4 WORD. F2E19450 TXL BCDE10-1,1,1 F2E19460 TXL BCDE10,1,2 IF POSITION IS LEFT, F2E19470 CAL BIT8 PLACE A ONE IN BIT 7 OF TAG4 F2E19480 TRA BCDE10 TO INDICATE BLOCK D SPECIAL. F2E19490 ARS 3 F2E19500 BCDE10 LXD XTG,2 F2E19510 ORS TAGZ+3,2 F2E19520 TSX CILV,4 OBTAIN LOC. FOR THIRD F2E19530 CLA L(TIX) INST. AND OPERATION PART F2E19540 STO CIL01 FOR 2ND WORD. F2E19550 TSX CIL23,4 FILL OUT REMAINING WORDS. F2E19560 TSX CIT,4 F2E19570 LXD BCDE2,4 F2E19580 TRA 1,4 F2E19590 REM *************************************************************F2E19600 REM NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2E19610 NBITS CLA DOTAGZ,2 ROUTINE FOR ISOLATING F2E19620 ARS 15 THE N BITS OF A DO. F2E19630 ANA L(7) F2E19640 STO N1N2N3 F2E19650 TRA 1,4 F2E19660 REM *************************************************************F2E19670 REM CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2E19680 REM INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2E19690 REM TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. F2E19700 CIL23 CLA BCD15 THIS ROUTINE PLACES TAG IN F2E19710 STO CIL02 TAG WD. OF CIL03 AND 1 F2E19720 CLA TAG3 IN DECREMENT FOR THE F2E19730 ANA ADMSK RELATIVE PART, F2E19740 ORA $L1DEC PLACES THE LOCATION IN F2E19750 STO CIL03 THE ADDRESS WORD CIL02 . F2E19760 TRA 1,4 F2E19770 REM *************************************************************F2E19780 REM CILNAM ENTERS ONLY THE TAG NAME. F2E19790 CILNAM CLA TAG3 THIS ROUTINE F2E19800 ANA ADMSK ENTERS THE F2E19810 STO CIL03 TAG NAME F2E19820 TRA 1,4 IN CIL. F2E19830 REM *************************************************************F2E19840 REM CDORO TAKES COEF. AND DIM. AND FILLS OUT ORO. F2E19850 CDORO SXD CDORO1,4 F2E19860 LXD AX,2 F2E19870 MSE 100 F2E19880 CDORO1 TXH CDORO1+1,,0 WHICH SUB IS IT. F2E19890 TXL CDORO3,2,2 S2 OR S3, TRA. F2E19900 CLA $WRKSC S1, F2E19910 SUB $L1DEC IS C1 MORE THAN 1. F2E19920 TZE 1,4 C1=1, RETURN. F2E19930 PSE 100 C1 NOT = 1, TURN ON F2E19940 CLA $WRKSC SENSE LIGHT, ISOLATE C1. F2E19950 TRA CDORO7+1 F2E19960 CDORO3 LDQ $WRKSC+6 ISOLATE D1. F2E19970 TXL CDORO5,2,1 WHICH SUB IS IT. F2E19980 MPY $WRKSC+2 S2, FORM C2D1. F2E19990 TRA CDORO7 F2E20000 CDORO5 MPY $WRKSC+4 S3, FORM F2E20010 LRS 18 C3D1D2. F2E20020 MPY $WRKSC+7 F2E20030 CDORO7 ALS 17 ASSIGN SYMBOL F2E20040 TSX $FXCON,4 FOR G AND PUT F2E20050 STO ORO00+19 IN ORO + 19. F2E20060 LXD CDORO1,4 RESTORE LINKAGE, F2E20070 LXD AX,2 PUT AX POSITION IN F2E20080 TRA 1,4 I.R. B AND RETURN. F2E20090 REM *************************************************************F2E20100 REM AORO, BORO, CORO, DORO, AND EORO ARE CALLED TO MAKE APPROPRIAF2E20110 REM COMPILING TABLE (ORO) ENTRIES AND TO CALLL ROUTINES TO MAKE F2E20120 REM COMPUTATIONS AND COMPILE INSTRUCTIONS TO INTIALIZE VARIABLE DF2E20130 REM DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY. F2E20140 AORO SXD AORO5,4 F2E20150 CLA TAG2+3,1 LOCATION IS F2E20160 PDX 0,2 SPECIFIED IN ORO +14 F2E20170 CLA DOTAGZ,2 BY COMBINING TETLOC F2E20180 ANA ADMSK WITH PROPER BETA. F2E20190 ALS 18 F2E20200 ORA TETLOC F2E20210 STO ORO00+14 F2E20220 CLA DOTAGZ+4,2 F2E20230 STO ORO00 F2E20240 LXD AX,1 F2E20250 TXL AORO10,1,2 S2 OR S3. F2E20260 CLA $WRKSC S1, IS F2E20270 SUB $L1DEC C1=1. F2E20280 TZE AORO30 YES F2E20290 ADD $L1DEC NO, ASSIGN F2E20300 TSX $FXCON,4 SYMBOL FOR C1. F2E20310 STO ORO00+19 F2E20320 AORO5 TXL AORO40,,0 F2E20330 AORO10 TXL AORO20,1,1 IS SUB S2. F2E20340 LDQ $WRKSC+2 YES, FOR C2D1. F2E20350 MPY $WRKSC+6 IF S2 IS A F2E20360 ALS 17 DUPE, ADD C1. F2E20370 STO ERAORO F2E20380 LDQ TAG4 F2E20390 LLS 25 F2E20400 LBT F2E20410 TRA AORO14 NO DUPES. F2E20420 CLA $WRKSC F2E20430 ADD ERAORO F2E20440 STO ERAORO F2E20450 AORO14 CLA ERAORO CONTAINS C2D1, ETC. F2E20460 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E20470 STO ORO00+19 G AND PUT IN ORO+19 F2E20480 TRA AORO40 F2E20490 AORO20 LDQ $WRKSC+4 S3, FORM F2E20500 MPY $WRKSC+6 C3D1D2. F2E20510 LRS 18 F2E20520 MPY $WRKSC+7 F2E20530 ALS 17 F2E20540 STO ERAORO F2E20550 LDQ TAG4 CHECK DUPES F2E20560 LLS 26 AND MAKE G F2E20570 LBT ADJUSTMENTS F2E20580 TRA AORO24 ACCORDINGLY. F2E20590 ARS 1 F2E20600 LBT F2E20610 TRA AORO22 F2E20620 LDQ $WRKSC+2 F2E20630 MPY $WRKSC+6 F2E20640 ALS 17 F2E20650 ADD ERAORO F2E20660 STO ERAORO F2E20670 AORO22 CLA TAG4 F2E20680 ARS 11 F2E20690 LBT F2E20700 TRA AORO24 F2E20710 CLA $WRKSC F2E20720 ADD ERAORO F2E20730 STO ERAORO F2E20740 AORO24 CLA ERAORO F2E20750 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E20760 STO ORO00+19 G FOR S3. F2E20770 TRA AORO40 F2E20780 AORO30 LXA L(2),1 SUB IS S1, C1=1. F2E20790 CLA K2AORO COMPILE CLA, STD. F2E20800 TSX LXC,4 F2E20810 TRA AORO50 F2E20820 AORO40 LXA L(4),1 COMPILE LDQ,MPY, STD. F2E20830 CLA K1AORO F2E20840 TSX LXC,4 F2E20850 AORO50 LXD AORO5,4 RESTORE LINKAGE. F2E20860 TRA 1,4 F2E20870 REM *************************************************************F2E20880 BORO SXD $LINKC,4 FOR B BLOCK F2E20890 LDQ $WRKSC+2 COMPUTE G AS F2E20900 MPY $WRKSC+6 C2D1. PLACE F2E20910 ALS 17 THIS AND C1 F2E20920 STO ORO00+19 IN ORO. F2E20930 CLA $WRKSC F2E20940 STO ORO00+20 F2E20950 LXA L(2),1 INITIALIZE N3X F2E20960 SXD N3X,1 POS. TO S2. F2E20970 LXA $L(3),1 INITIALIZE XX F2E20980 SXD XX,1 POS. TO S1. F2E20990 TSX PC,4 F2E21000 LXD $LINKC,4 F2E21010 TRA 1,4 F2E21020 REM *************************************************************F2E21030 CORO SXD CORO05,4 F2E21040 LDQ $WRKSC+6 FORM C3D1D2 AND F2E21050 MPY $WRKSC+7 STORE IN F2E21060 LRS 18 ORO+19 F2E21070 MPY $WRKSC+4 FOR USE BY F2E21080 ALS 17 PC IN COMPUTING F2E21090 STO ORO00+19 BLOCK C DECREMENTS. F2E21100 CLA TAG4 TEST F2E21110 ARS 9 FOR F2E21120 LBT DUPES. F2E21130 CORO05 TXL CORO10,,0 NO DUPES. F2E21140 LDQ $WRKSC+6 IF DUPES, FORM F2E21150 MPY $WRKSC+2 C2D1, ADD TO F2E21160 ALS 17 ORO+19 , AND STORE F2E21170 ADD ORO00+19 IN ORO+19 FOR F2E21180 STO ORO00+19 USE BY PC. F2E21190 CORO10 CLA $WRKSC STORE C1 IN *F2E21200 STO ORO00+20 ORO+20 FOR PC. F2E21210 LXA L(1),1 SET N3X POSITION *F2E21220 SXD N3X,1 TO S3, F2E21230 LXA $L(3),1 XX POSITION TO S1. F2E21240 SXD XX,1 AND CALL PC TO COMPUTE F2E21250 TSX PC,4 AND COMPILE BLKC INIT. F2E21260 LXD CORO05,4 RESTORE LINKAGE AND F2E21270 TRA 1,4 RETURN TO MAIN ROUTINE. F2E21280 REM *************************************************************F2E21290 DORO SXD DORO5,4 BLOCK D NORMAL. F2E21300 LDQ $WRKSC+4 COMPUTES C3D1D2, G1 F2E21310 MPY $WRKSC+6 AND C2D1, G2 IF DUPE. F2E21320 LRS 18 EXIST IN THE CASE F2E21330 MPY $WRKSC+7 110 C1 ADDED TO G2. F2E21340 ALS 17 IN THE CASE 101 F2E21350 STO ORO00+19 C1 ADDED TO G1. F2E21360 LDQ $WRKSC+2 F2E21370 MPY $WRKSC+6 F2E21380 ALS 17 F2E21390 STO ORO00+20 F2E21400 LXD XTG,4 F2E21410 CLA TAGZ+3,4 DOES CARRY EXIST F2E21420 ANA CRMSK FOR TWO INNER DOS. F2E21430 TZE *+2 NO. F2E21440 SXD CTEST,4 YES, SET INDICATOR. F2E21450 CLA TAG4 F2E21460 ARS 9 F2E21470 ANA L(7) F2E21480 TZE DORO20 F2E21490 LBT F2E21500 DORO5 TXL DORO10,,0 F2E21510 CLA $WRKSC F2E21520 ADD ORO00+19 F2E21530 STO ORO00+19 F2E21540 TRA DORO20 F2E21550 DORO10 CLA $WRKSC F2E21560 ADD ORO00+20 F2E21570 STO ORO00+20 F2E21580 DORO20 LXA L(1),1 SET N3X POS. TO S3, F2E21590 SXD N3X,1 F2E21600 LXA L(2),1 XX POS. TO S2. F2E21610 SXD XX,1 F2E21620 TSX PC,4 MAKE COMPUTATIONS AND COMPILE F2E21630 STZ CTEST RESET CARRY INDICATOR. F2E21640 LXD DORO5,4 INSTRUCTIONS TO INIT. VAR. F2E21650 TRA 1,4 BLOCK D DECREMENTS. F2E21660 CRMSK OCT 140000000 F2E21670 CTEST PZE F2E21680 REM *************************************************************F2E21690 EORO SXD ERTN,4 F2E21700 TSX DORO,4 F2E21710 SXD EFLAG,4 F2E21720 TSX CORO,4 F2E21730 CLA ORO00+15 F2E21740 ADD L(8) F2E21750 STO ORO00+14 F2E21760 ADD L(16) F2E21770 STO ORO00+15 F2E21780 LXA L(2),1 F2E21790 CLA LXCEIP F2E21800 TSX LXC,4 F2E21810 LXD ERTN,4 F2E21820 STZ EFLAG F2E21830 LXD ERTN,4 F2E21840 TRA 1,4 F2E21850 EFLAG PZE F2E21860 ERTN PZE F2E21870 REM *************************************************************F2E21880 REM PC IS A SUBROUTINE CALLED BY AORO, BORO, ETC. TO MAKE COMPUTAF2E21890 REM TIONS AND TO CALL COMPILING ROUTINES FOR TXI DECREMENT INTIAF2E21900 REM LIZATION. F2E21910 PC SXD PC04,4 F2E21920 LXD N3X,1 F2E21930 CLA TAG2+3,1 F2E21940 PDX 0,2 F2E21950 CLA DOTAGZ,2 F2E21960 ANA ADMSK FORM LOCATION F2E21970 ALS 18 WORDS AND PUT F2E21980 ORA TETLOC IN ORO+14 F2E21990 STO ORO00+14 AND ORO+15. F2E22000 ADD L(16) F2E22010 STO ORO00+15 F2E22020 CLA DOTAGZ,2 IS N3 FOR THIS DO F2E22030 ARS 15 VARIABLE. F2E22040 LBT F2E22050 PC04 TXL PC10,,0 NO, PC10. F2E22060 CLA DOTAGZ+4,2 YES, F2E22070 STO ORO00 COMPILE F2E22080 CLA ORO00+19 LDQ L(G), (N3X POS.), F2E22090 TSX $FXCON,4 MPY N3, (N3X POS.), F2E22100 STO ORO00+19 ALS 17, F2E22110 LXA L(4),1 STO C(ORO+12) F2E22120 CLA K1BORO F2E22130 TSX LXC,4 F2E22140 TRA PC20 F2E22150 PC10 LDQ DOTAGZ+4,2 N3 CONSTANT, PUT F2E22160 MPY ORO00+19 N3G SYMBOL IN F2E22170 LLS 35 ORO+19 F2E22180 TSX $FXCON,4 F2E22190 STO ORO00+19 F2E22200 PC20 LXD XX,1 ISOLATE N3 FOR F2E22210 PCI CLA TAG2+3,1 XX POSITION F2E22220 PDX 0,2 F2E22230 CLA DOTAGZ+4,2 DOES N3 = 1. F2E22240 SUB L(1) F2E22250 TNZ PCI33-3 NO, GO TO PATCH $F2E22260 CLA DOTAGZ+5,2 YES, IS X CONST. F2E22270 ANA BIT2 F2E22280 TZE PC21 YES, PC21. F2E22290 TXL PCI31,1,2 NO, IS POS. S2. *F2E22300 CLA DOTAGZ+2,2 NO, IS N1 = 1. F2E22310 SUB L(1) F2E22320 TNZ PCI22 NO, PCI22. F2E22330 CLA DOTAGZ+3,2 YES, DOES C1 = 1. F2E22340 STO ORO00+1 F2E22350 CLA $WRKSC F2E22360 SUB $L1DEC F2E22370 TNZ PCI21 NO, PCI21. F2E22380 LXA L(1),1 YES, COMPILE F2E22390 CLA KLX02 CLA N1, F2E22400 TSX LXC,4 SUBL(1), AND F2E22410 TRA PCI33 F2E22420 PCI21 CLA $WRKSC F2E22430 TSX $FXCON,4 COMPILE F2E22440 STO ORO00+9 LDQ L(N2) F2E22450 CLA KLAR3 MPY L(C1) F2E22460 LXA L(4),1 ALS 17 F2E22470 TSX LXC,4 STO 1) +3. F2E22480 TRA PC60 F2E22490 PCI22 TSX OP3,4 COMPILE CLA L(N2-N1) F2E22500 CLA $WRKSC F2E22510 SUB $L1DEC IS C1=1. F2E22520 TZE PC60 F2E22530 CLA $WRKSC NO, OBTAIN F2E22540 TSX $FXCON,4 SYMBOL FOR F2E22550 STO ORO00+9 C1 AND F2E22560 PCI22R LXA L(1),1 COMPILE *F2E22570 CLA KLX01I STO 1)+3 *F2E22580 TSX LXC,4 *F2E22590 CLA ORO00+26 *F2E22600 STO ORO00+1 COMPILE *F2E22610 LXA L(3),1 LDQ 1)+3, *F2E22620 CLA KLAR3 MPY ORO00+9, *F2E22630 TSX LXC,4 ALS 17. *F2E22640 NZT CTEST TEST CARRY BETWEEN INNER DOS. *F2E22650 TRA PC60 NO CARRY. *F2E22660 CLA $WRKSC CARRY, COMPILE *F2E22670 TSX $FXCON,4 SUB L(C1). *F2E22680 STO ORO00+1 *F2E22690 LXA L(1),1 *F2E22700 CLA LXCI1 *F2E22710 TSX LXC,4 *F2E22720 TRA PC60 *F2E22730 PCI31 CLA ORO00+20 COMPILE *F2E22740 TSX $FXCON,4 CLA (N2-N1) OR *F2E22750 STO ORO00+9 CLA N2, *F2E22760 TSX OP3,4 SUB N1. *F2E22770 NZT CTEST TEST CARRY BETWEEN INNER DOS. *F2E22780 TRA PCI22R NO CARRY. *F2E22790 CLA ORO00+13 CARRY, *F2E22800 STO ORO00+27 COMPILE *F2E22810 LXA L(1),1 ADD L(1). *F2E22820 CLA KTX05 *F2E22830 TSX LXC,4 *F2E22840 TRA PCI22R *F2E22850 AXT 3,1 PATCH $F2E22860 TRA PC21 PATCH--RETURN TO PC21. $F2E22870 PZE NOT USED. *F2E22880 PCI33 LXA L(1),1 F2E22890 CLA LXCI61 F2E22900 TSX LXC,4 F2E22910 TRA PC60 F2E22920 PC21 TSX PXORO+2,4 IS X CONSTANT. $F2E22930 TRA PC22 NO, PC22. F2E22940 TRA PC30 F2E22950 PC22 LXD XX,2 F2E22960 LXA L(8),1 F2E22970 CLA ORO00+20 F2E22980 TXL PC23,2,2 F2E22990 CLA $WRKSC F2E23000 SUB L1DEC F2E23010 TZE PC24 F2E23020 ADD L1DEC F2E23030 PC23 TSX $FXCON,4 F2E23040 STO ORO00+9 F2E23050 LDQ ORO00+26 F2E23060 CLA KLAR1 F2E23070 TXI PC25,1,4 F2E23080 PC24 LDQ ORO00+3 F2E23090 CLA KLAR2 F2E23100 PC25 STQ MYORO F2E23110 TSX LXC,4 F2E23120 TRA PC60 F2E23130 PC30 NZT CTEST TEST FOR CARRY BTWN INNER DOS. F2E23140 TRA PC31 NO. F2E23150 LRS 35 YES, USE F2E23160 MPY ORO00+20 XN3G F2E23170 ALS 17 MINUS F2E23180 SUB $WRKSC C1 AS DECREMENT. F2E23190 TRA PC32 F2E23200 PC31 LRS 18 F2E23210 SUB DOTAGZ+4,2 F2E23220 LRS 17 F2E23230 MPY ORO00+20 F2E23240 ALS 17 F2E23250 PC32 TSX $FXCON,4 F2E23260 STO ORO00+20 F2E23270 LXA L(1),1 F2E23280 CLA XK F2E23290 TSX LXC,4 F2E23300 PC60 CLA EFLAG F2E23310 TNZ PC62+1 F2E23320 LXD N3X,1 F2E23330 CLA TAG2+3,1 IS F2E23340 PDX 0,2 N3 F2E23350 LXA $L(3),1 OF F2E23360 CLA DOTAGZ,2 CURRENT F2E23370 ARS 15 DO F2E23380 LBT VARIABLE. F2E23390 TRA PC61 CONSTANT, PC61. F2E23400 CLA LXCI8 VARIABLE, COMPILE F2E23410 PC62 TSX LXC,4 STD, ADD N3G, STD. F2E23420 LXD PC04,4 F2E23430 TRA 1,4 F2E23440 PC61 CLA LXCI8P CONSTANT. COMPILE F2E23450 TRA PC62 STD, ADD C(ORO+12), STD. F2E23460 REM *************************************************************F2E23470 REM CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2E23480 REM TRUCTIONS WITHOUT LOCATIONS. F2E23490 CIL03I CLA L(0) PLACE 0 IN LOCATION F2E23500 STO CIL00 WORD AND TAG IN F2E23510 CLA TAG3 TAG WORD OF COMPILED F2E23520 ANA ADMSK INSTRUCGIN. F2E23530 STO CIL03 F2E23540 TRA 1,4 F2E23550 REM *************************************************************F2E23560 REM BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON F2E23570 REM OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2E23580 REM CTIVELY. F2E23590 BITP STA BITP14 F2E23600 STA BITP02 INITIALIZE SHIFTS, F2E23610 STA BITP04 STORE LINKAGE F2E23620 PAX 0,2 AND PLACE 0,1,2 IN F2E23630 ALS 1 XB FOR S3, S2, AND F2E23640 PAX 0,1 S1 RESPECTIVELY. F2E23650 CLA RELCO IS THIS A F2E23660 BITP02 ARS ** RELCON. F2E23670 LBT X F2E23680 TRA BITP03 NOT RELCON. F2E23690 TRA BITP30 RELCON. F2E23700 BITP03 CLA DEFDO IS THIS DEFINED F2E23710 BITP04 ARS ** BY A DO. F2E23720 LBT X F2E23730 TRA 1,4 NO, UNDEFINED. F2E23740 CLA TAG2+2,2 ISOLATE DO F2E23750 PDX 0,2 INDEX. F2E23760 CLA N1SBX IS DO DEFINITION F2E23770 BITP14 ARS ** CONSTANT. F2E23780 LBT X F2E23790 TRA 1,4 DO DEFINITION IS CONSTANT. F2E23800 CLA DOTAGZ+2,2 ISOLATE N1 OF DEFINING F2E23810 TRA 2,4 DO. F2E23820 BITP30 CLA $WRKSC+5,1 RELCON, ISOLATE F2E23830 TRA 2,4 SUBSCRIPT. F2E23840 REM *************************************************************F2E23850 REM TESTLO OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2E23860 REM OF THE STD INITIALIZING INSTRUCTION. F2E23870 TESTLO CLA TAG2+3,2 INITIALIZE INDEX F2E23880 PDX 0,2 FOR TEST DOTAG. F2E23890 CLA L(0) ISOLATE F2E23900 LDQ DOTAGZ+6,2 SXD F2E23910 RQL 3 LOCATION F2E23920 LGL 6 AND PUT F2E23930 ALS 3 IN TETLOC F2E23940 STO TETLOC ADDRESS F2E23950 CLA DOTAGZ,2 PUT TXL F2E23960 ANA ADMSK LOCATION F2E23970 ALS 18 IN TETLOC F2E23980 ORS TETLOC DECREMENT. F2E23990 TRA 1,4 F2E24000 REM *************************************************************F2E24010 REM PREFACE TO ORO EXAMINES VARIABLIITY OF X QUANTITY. F2E24020 PXORO CLA TAG2+3,1 IF X IS F2E24030 PDX 0,2 CONSTANT IT IS F2E24040 CLA DOTAGZ+5,2 LEFT IN THE F2E24050 ANA BIT2 DECREMENT OF F2E24060 TNZ XORO ACC. F2E24070 CLA DOTAGZ+5,2 F2E24080 ANA ADMSK F2E24090 ALS 18 F2E24100 TRA 2,4 F2E24110 REM *************************************************************F2E24120 REM XORO FILLS OUT ORO FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2E24130 XORO SXD XORO32,4 F2E24140 CLA DOTAGZ,2 F2E24150 ARS 15 F2E24160 ANA L(7) F2E24170 STO N1N2N3 F2E24180 CLA L(ORO) ORIGIN OF ORO TABLE. F2E24190 ADD L(4) CALCULATES ADDRESS F2E24200 TXH XORO10,1,2 FOR STORING INTO F2E24210 ADD L(3) ORO TABLE. F2E24220 XORO10 TXH XORO20,1,1 F2E24230 ADD L(17) F2E24240 XORO20 STA XORO36 STORE ADRS FOR NS. F2E24250 LXA L(3),1 F2E24260 XORO30 LDQ N1N2N3 F2E24270 RQL 36,1 F2E24280 CLA DOTAGZ+2,2 F2E24290 TQP XORO34 N IS CONSTANT. F2E24300 XORO32 TXL XORO36,,0 N IS VARIABLE. F2E24310 XORO34 ALS 18 F2E24320 TSX $FXCON,4 F2E24330 XORO36 STO 0,1 F2E24340 TIX XORO40,2,1 F2E24350 XORO40 TIX XORO30,1,1 F2E24360 STO ORO00 F2E24370 LXD XORO32,4 F2E24380 TRA 1,4 F2E24390 REM *************************************************************F2E24400 REM THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2E24410 REM INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTANF2E24420 REM BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2E24430 REM OF INSTRUCTIONS IN INDEX REGISTER A. F2E24440 LXC SXD LXC19,4 F2E24450 STO ERLXC F2E24460 PXD 0,1 F2E24470 ARS 18 F2E24480 ADD ERLXC F2E24490 STA LXC10 F2E24500 CLA LOCIND TEST TO SEE IF F2E24510 TZE LXC08 THIS IS THE FIRST F2E24520 SUB L(1) LXD COMPILED. IF SO, F2E24530 STO LOCIND PLACE A IN F2E24540 LXD DOIND,2 DECREMENT F2E24550 CLA DOTAGZ,2 OF LOCATION WORD F2E24560 ANA DECMSK FOR FIRST COMPILED F2E24570 STO CIL00 INSTRUCTION. F2E24580 TRA LXC10 F2E24590 LXC08 CLA L(0) F2E24600 STO CIL00 F2E24610 LXC10 LDQ 0,1 SKELETAL INSTRUCTION. F2E24620 LLS 0 F2E24630 LGL 18 F2E24640 STQ CIL01 COMPILE OP. WORD. F2E24650 TMI LXC20 F2E24660 STA LXC15 SYMBOL.ADDR. TYPE INSTRUCTION. F2E24670 LXC15 CLA ** F2E24680 STO CIL02 SYMBOLIC ADDRESS. F2E24690 CLA L(0) RELATIVE F2E24700 STO CIL03 ADDRESS. F2E24710 CAL CIL02 TEST CIL02 F2E24720 ANA 6ONES WORD. F2E24730 TZE LXC30 FIRST CHARACTER IS ZERO. F2E24740 ANA BIT01 F2E24750 TNZ LXC30 FIRST CHARACTER ALPHABETIC. F2E24760 CAL CIL02 FIRST CHARACTER NUMBERIC, F2E24770 ALS 18 PLACE REIGHT HALF OF CIL02 F2E24780 STD CIL03 IN CIL03, LEFT HALF F2E24790 CAL 6ONES IN CIL02. F2E24800 ANS CIL02 F2E24810 LXC19 TXL LXC30,,0 SHIFT TYPE INSTRUCTION, F2E24820 LXC20 ALS 18 F2E24830 ANA DECMSK F2E24840 STO CIL03 F2E24850 CLA L(0) F2E24860 STO CIL02 F2E24870 LXC30 TSX CIT,4 F2E24880 TIX LXC08,1,1 COUNT COMPILED INSTR. IN BLK. F2E24890 LXD LXC19,4 F2E24900 TRA 1,4 F2E24910 REM *************************************************************F2E24920 KLX01 LXI00 F2E24930 KLX01I LXI00+1 F2E24940 KLX02I LXI05 F2E24950 KLX02 LXI02 F2E24960 KLX03 LXI16 F2E24970 KLX05 LXI30 F2E24980 KLX03I LXI10 F2E24990 KLX05I LXI24 F2E25000 K1AORO A1C00 F2E25010 KIAORO A1C01 F2E25020 K2AORO A1000 F2E25030 K3AORO A1001 F2E25040 KTX00 TXC00 F2E25050 TXC08 F2E25060 TXC18 F2E25070 KTX04 TXC30 F2E25080 KTX05 TXC31 F2E25090 LTX040 TX040 F2E25100 LTX042 TX042 F2E25110 LXCI XCI F2E25120 LXCI6 XCI6 F2E25130 LXCIE XCIE F2E25140 LXCIE1 XCIE+1 F2E25150 LXCIEP XCIEP F2E25160 LXCEIP XCEIP F2E25170 XK XKI F2E25180 K1BORO L(BIC) F2E25190 LX2CI X2CI F2E25200 LXCI61 XCI6+1 F2E25210 LXCI8 XCI8 F2E25220 LXCI1 XCI+1 F2E25230 LXI00 14545,2,ORO00+13 CLA F2E25240 11494,6,ORO00+26 STO F2E25250 LXI02 14545,2,ORO00+1 CLA F2E25260 11494,6,ORO00+26 STO F2E25270 LXI05 13608,4,ORO00+1 LDQ F2E25280 18936,4,ORO00+9 MPY F2E25290 TNX 6386,2,17 ALS 17 F2E25300 11494,6,ORO00+26 STO F2E25310 LXI10 13608,4,ORO00+4 LDQ F2E25320 18936,4,ORO00+7 MPY F2E25330 TNX 6386,2,17 ALS 17 F2E25340 11538,6,ORO00+7 SUB F2E25350 5396,2,ORO00+26 ADD F2E25360 11494,6,ORO00+26 STO F2E25370 LXI16 13608,4,ORO00+4 LDQ F2E25380 18936,4,ORO00+10 MPY F2E25390 TNX 14962,4,18 LRS F2E25400 18936,4,ORO00+7 MPY F2E25410 TNX 6386,2,17 ALS F2E25420 11538,6,ORO00+7 SUB F2E25430 5396,2,ORO00+26 ADD F2E25440 11494,6,ORO00+26 STO F2E25450 LXI24 13608,4,ORO00+21 LDQ F2E25460 18936,4,ORO00+24 MPY F2E25470 TNX 6386,2,17 ALS F2E25480 11538,6,ORO00+24 SUB F2E25490 5396,2,ORO00+26 ADD F2E25500 11494,6,ORO00+26 STO F2E25510 LXI30 13608,4,ORO00+21 LDQ F2E25520 18936,4,ORO00+11 MPY F2E25530 TNX 14962,4,18 LRS F2E25540 18936,4,ORO00+24 MPY F2E25550 TNX 6386,2,17 ALS F2E25560 11538,6,ORO00+24 SUB F2E25570 5396,2,ORO00+26 ADD F2E25580 11494,6,ORO00+26 STO F2E25590 L(BIC) 13608,4,ORO00+19 LDQ F2E25600 18936,4,ORO00 MPY F2E25610 TNX 6386,2,17 ALS F2E25620 11494,6,ORO00+12 STO F2E25630 XCI 14545,2,ORO00+2 CLA F2E25640 11538,6,ORO00+1 SUB F2E25650 5396,2,ORO00+3 ADD F2E25660 TNX 14962,4,35 LRS F2E25670 19815,2,ORO00+3 DVP F2E25680 18936,4,ORO00+3 MPY F2E25690 TNX 14962,4,18 LRS F2E25700 18936,4,ORO00+9 MPY F2E25710 XCI6 TNX 14578,4,35 LLS F2E25720 11538,6,ORO00+13 SUB F2E25730 XCI8 11476,6,ORO00+15 STD F2E25740 5396,2,ORO00+12 ADD F2E25750 11476,6,ORO00+14 STD F2E25760 A1C00 13608,4,ORO00 LDQ F2E25770 A1C01 18936,4,ORO00+19 MPY F2E25780 TNX 6386,2,17 ALS F2E25790 11476,6,ORO00+14 STD F2E25800 A1000 14545,2,ORO00 CLA F2E25810 A1001 11476,6,ORO00+14 STD F2E25820 TXC00 14545,2,ORO00+2 CLA F2E25830 11538,6,ORO00+1 SUB F2E25840 5396,2,ORO00+3 ADD F2E25850 TNX 14962,4,35 LRS F2E25860 19815,2,ORO00+3 DVP F2E25870 18936,4,ORO00+3 MPY F2E25880 TXC08 14545,2,ORO00+5 CLA F2E25890 11538,6,ORO00+4 SUB F2E25900 5396,2,ORO00+6 ADD F2E25910 TNX 14962,4,35 LRS F2E25920 19815,2,ORO00+6 DVP F2E25930 18936,4,ORO00+6 MPY F2E25940 TXC18 14545,2,ORO00+22 CLA F2E25950 11538,6,ORO00+21 SUB F2E25960 5396,2,ORO00+23 ADD F2E25970 TNX 14962,4,35 LRS F2E25980 19815,2,ORO00+23 DVP F2E25990 18936,4,ORO00+23 MPY F2E26000 TNX 14962,4,18 LRS F2E26010 18936,4,ORO00+7 MPY F2E26020 TNX 14962,4,18 LRS F2E26030 18936,4,ORO00+8 MPY F2E26040 TNX 14962,4,18 LRS F2E26050 18936,4,ORO00+11 MPY F2E26060 TXC30 TNX 14578,4,35 LLS F2E26070 TXC31 5396,2,ORO00+27 ADD F2E26080 11538,6,ORO00+13 SUB F2E26090 TX040 TNX 14962,4,18 LRS F2E26100 18936,4,ORO00+19 MPY F2E26110 TX042 TNX 14578,4,35 LLS F2E26120 11476,6,ORO00+14 STD F2E26130 X2CI 14545,2,ORO00+5 CLA F2E26140 11538,6,ORO00+4 SUB F2E26150 5396,2,ORO00+6 ADD F2E26160 TNX 14962,4,35 LRS F2E26170 19815,2,ORO00+6 DVP F2E26180 18936,4,ORO00+6 MPY F2E26190 TNX 14962,4,18 LRS F2E26200 18936,4,ORO00+20 MPY F2E26210 TNX 14578,4,35 LLS F2E26220 11538,6,ORO00+13 SUB F2E26230 XKI 14545,2,ORO00+20 CLA F2E26240 XCIE TNX 14578,4,35 LLS F2E26250 11538,6,ORO00+13 SUB F2E26260 11476,6,ORO00+15 STD F2E26270 11476,6,ORO00+14 STD F2E26280 XCI8P 11476,6,ORO00+15 STD F2E26290 5396,2,ORO00+19 ADD F2E26300 11476,6,ORO00+14 STD F2E26310 LXCI8P XCI8P F2E26320 XCIEP 14545,2,ORO00+20 CLA F2E26330 XCEIP 11476,6,ORO00+15 STD F2E26340 11476,6,ORO00+14 STD F2E26350 KLAR1 PZE KIII1 F2E26360 KLAR2 PZE KIII2 F2E26370 KLAR3 PZE KIII3 F2E26380 KIII1 13608,4,ORO00+3 LDQ (N3) F2E26390 18936,4,ORO00+9 MPY (C1) F2E26400 TNX 6386,2,17 ALS 17 F2E26410 11494,6,ORO00+26 STO 1)+3 F2E26420 KIII2 14545,2,ORO00+2 CLA N2 F2E26430 11538,6,ORO00+1 SUB N1 F2E26440 5396,2,ORO00+3 ADD N3 F2E26450 TNX 14962,4,35 LRS 35 F2E26460 19815,2,ORO00+3 DVP (N3) F2E26470 18936,4,MYORO MPY (N3) OR 1)+3 F2E26480 TNX 14578,4,35 LLS 35 F2E26490 11538,6,MYORO SUB (N3) OR 1)+3 F2E26500 KIII3 13608,4,ORO00+1 LDQ (N2) F2E26510 18936,4,ORO00+9 MPY (C1) F2E26520 TNX 6386,2,17 ALS 17 F2E26530 11538,6,ORO00+9 SUB (C1) F2E26540 MYORO PZE F2E26550 DSC6 IORT DOTAG,,200*M/N*9+1 F2E26560 REM *************************************************************F2E26570 TAG1 PZE F2E26580 TAG2 PZE F2E26590 TAG21 PZE F2E26600 TAG22 PZE F2E26610 TAG3 PZE F2E26620 TAG4 PZE F2E26630 DOTGRC PZE F2E26640 PZE F2E26650 REM *************************************************************F2E26660 EROP3 F2E26670 EROP OCT 100 F2E26680 REM *************************************************************F2E26690 L(TXI) BCI 1,TXI000 F2E26700 L(PXD) BCI 1,PXD000 F2E26710 L(SXD) BCI 1,SXD000 F2E26720 L(TIX) BCI 1,TIX000 F2E26730 L(TXL) BCI 1,TXL000 F2E26740 L(DED) BCI 1,DED000 F2E26750 L(LXD) BCI 1,LXD000 F2E26760 L(STD) BCI 1,STD000 F2E26770 L(ADD) BCI 1,ADD000 F2E26780 L(SUB) BCI 1,SUB000 F2E26790 L(BSS) BCI 1,BSS000 F2E26800 LMXDTG 200*M/N*9 F2E26810 MAXLOC OCT 400 F2E26820 L1DEC OCT 1000000 F2E26830 DRADS1 OCT 2664 F2E26840 DRADS2 204 F2E26850 DRADS3 2 F2E26860 AD202 202 F2E26870 L(17) 17 F2E26880 L(ORO) ORO00 F2E26890 ESTORE HTR 0 F2E26900 NOPRET OCT 077777077777 F2E26910 L3DEC OCT 000003000000 F2E26920 L(7) 7 F2E26930 BCD15 OCT 170000000000 F2E26940 BCD0 OCT 060000000002 F2E26950 BCD2 OCT 020000000000 F2E26960 BIT01 OCT 600000000000 F2E26970 T1MSK OCT 700000077777 F2E26980 6ONES OCT 770000000000 F2E26990 TETMSK OCT 007777000000 F2E27000 L(6) 6 F2E27010 L(8) 8 F2E27020 L(K1) OCT 10 F2E27030 INST20 ADTGA F2E27040 INST22 MXTGA F2E27050 INST24 RTX160 F2E27060 INST26 RTX184 F2E27070 INST30 RTX264 F2E27080 INST32 RTX226 F2E27090 LMXTG 1000*M/N*4,,1000*M/N*4 F2E27100 LMXTGA 1000*M/N F2E27110 ALLONE OCT 377777777777 F2E27120 LZEKMX 400*M/N F2E27130 LADMX 1600*M/N F2E27140 L(1) 1 F2E27150 L(2) 2 F2E27160 L(4) 4 F2E27170 L(3) 3 F2E27180 L(5) 5 F2E27190 L(0) 0 F2E27200 L(16) 16 F2E27210 BIT1 PTW 0 F2E27220 BIT2 PON 0 F2E27230 BIT8 OCT 002000000000 F2E27240 ADMSK OCT 77777 F2E27250 SMSK F2E27260 SMSK1 OCT 760 F2E27270 SMSK2 OCT 774 F2E27280 SMSK3 OCT 763 F2E27290 SMSK4 OCT 773 F2E27300 BITMSK OCT 20 F2E27310 OCT 10 F2E27320 OPMSK OCT 74030 F2E27330 11BITS OCT 3777 F2E27340 BIT20 OCT 100000 F2E27350 INST2 LXA L(4),1 F2E27360 INST3 LXA L(2),1 F2E27370 INST4 TRA AC224 F2E27380 INST5 TRA AC228 F2E27390 INST8 AC244 F2E27400 INST10 ADTGA F2E27410 INST11 AC010 F2E27420 INST12 MXTGA F2E27430 INST13 TRA AC155 F2E27440 INST14 TSX CIL03I,4 F2E27450 6ONESR OCT 77 F2E27460 6TO17 OCT 007777000000 F2E27470 24TO35 OCT 7777 F2E27480 BBOX PZE F2E27490 CIL00 PZE F2E27500 CIL01 PZE F2E27510 CIL02 PZE F2E27520 CIL03 PZE F2E27530 ERTGA PZE F2E27540 TETTG PZE F2E27550 SWICH2 PZE F2E27560 ERLXC PZE F2E27570 AX PZE F2E27580 RELCO PZE F2E27590 WRKTGA PZE F2E27600 N3X PZE F2E27610 XX PZE F2E27620 ADTGX PZE F2E27630 WRKRXT PZE F2E27640 TETTGX PZE F2E27650 RTXTGX PZE F2E27660 LOCIND PZE F2E27670 ERORBX PZE F2E27680 A PZE F2E27690 B PZE F2E27700 SWICH PZE F2E27710 TEBBOX PZE F2E27720 DOIND PZE F2E27730 DOIND1 PZE F2E27740 TEABOX PZE F2E27750 SWICH1 PZE F2E27760 N3IND PZE F2E27770 N1N2N3 PZE F2E27780 XTG PZE F2E27790 POSIND PZE F2E27800 ER40 PZE F2E27810 ER41 PZE F2E27820 ARG PZE F2E27830 VCTR PZE F2E27840 ERTX01 PZE F2E27850 ERTX02 PZE F2E27860 ERTX03 PZE F2E27870 BLKNUM PZE F2E27880 SXDTXZ PZE F2E27890 OREDO PZE F2E27900 DEFDO PZE F2E27910 N1SBX PZE F2E27920 TETLOC PZE F2E27930 REM PATCH TO RTX200 ROUTINE TO ALLOW DECR. MAX. OF 32767 (26)F2E27931 RTX205 CLA ERTX01 (26)F2E27932 ANA ADDMSK (26)F2E27933 TRA RTX204 (26)F2E27934 ENDB SYN *+27 (26)F2E27940 REM *************************************************************F2E27950 ERAORO SYN ERTX01 F2E27960 ERDRM SYN ERTX02 F2E27970 ERAB SYN ERTGA F2E27980 ORO00 SYN $OR000 F2E27990 ORO13 SYN ORO00+13 F2E28000 ORO18 SYN ORO00+18 F2E28010 ADTGMX SYN ADTAG+400*M/N*4 F2E28020 END -1 $F2E28030