$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,,(SKB