$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 THREE F3A00010 * FAP F3A00030 * 32K 709/7090 FORTRAN SECTION THREE F3A00040 PCC F3A00050 ABS F3A00060 COUNT 3600 F3A00070 HEAD A F3A00080 LBL 9F22,JAKE F3A00090 SST FORTRAN $F3A00100 PCC F3A00110 SPACE 6 F3A00120 REM 709/7090 FORTRAN SECTION THREE 32K VERSION F3A00130 REM F3A00140 SPACE 6 F3A00150 REM PARAMETERS VARIABLE AT ASSEMBLY TIME F3A00160 REM F3A00170 SPACE 2 F3A00180 M SYN 7 MULTIPLIER FOR 32 K TABLE SIZES. $F3A00190 N SYN 8 DIVISOR FOR 32 K TABLE SIZES. $F3A00200 R SYN 1 MULTIPLIER FOR CIT OUT PUT BUFFER SIZE. F3A00210 S SYN 1 DIVISOR FOR CIT OUT PUT BUFFER SIZE. F3A00220 P SYN 1 MULTIPLIER FOR AIL IN PUT BUFFER SIZE. F3A00230 Q SYN 1 DIVISOR FOR AIL IN PUT BUFFER SIZE. F3A00240 U SYN 1 MULTIPLIER FOR DO IN PUT BUFFER SIZE. F3A00250 V SYN 1 DIVISOR FOR DO IN PUT BUFFER SIZE. F3A00260 W SYN 1 MULTIPLIER FOR DOC IN PUT BUFFER SIZE F3A00270 X SYN 1 DIVISOR FOR DOC IN PUT BUFFER SIZE F3A00280 Y SYN 1 MULTIPLIER FOR FIRST BUFFER SIZE F3A00290 Z SYN 1 DIVISOR FOR FIRST BUFFER SIZE F3A00300 TBTAP SYN FINTAP TABLE TAPE. F3A00310 CSBTP SYN SINTAP CLOSED SUBROUTINE TAPE. F3A00320 VFLTP SYN SINTAP OVERFLOW TAPE. F3A00330 CITTP SYN TINTAP OUT PUT CIT TAPE. F3A00340 CDOTP SYN TINTAP TRALEV AND COMPDO TAPE. F3A00350 EJECT F3A00360 SPACE 3 F3A00370 REM NUMBER OF ENTRIES IN TABLES AND BUFFERS F3A00380 REM F3A00390 1DCAR SYN 400 DOCARE TABLE. F3A00400 1DM01 SYN 0 DUMMY BUFFER FOR CITCNT TABLE. F3A00410 1CTCT SYN 1 CITCNT COUNT. F3A00420 1TSCM SYN 1000 TSXCOM TABLE. F3A00430 1DM02 SYN 0 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A00440 1CTBF SYN 50 CIT BUFFER. F3A00450 1DM03 SYN 0 DUMMY BUFFER FOR DOC BUFFER. F3A00460 1DCBF SYN 50 DOC BUFFER. F3A00470 1SXTX SYN 600 SXTX TABLE. F3A00480 1DM04 SYN 0 DUMMY BUFFER FOR, AIL AND FIRST. F3A00490 1DOBF SYN 50 COMDO BUFFER. F3A00500 1DM05 SYN 0 DUMMY BUFFER FOR AIL AND FIRST. F3A00510 1ALBF SYN 50 COMPAIL BUFFER. F3A00520 1DM06 SYN 0 DUMMY BUFFER FOR FIRST FILE. F3A00530 1FRBF SYN 50 FIRST FILE BUFFER. F3A00540 1TRST SYN 400 TRASTO TABLE. F3A00550 1UCTG SYN 400 UCHTAG TABLE. F3A00560 1FXCN SYN 1200 FIXCON TABLE. F3A00570 1TRLV SYN 4800 TRALEV TABLE. F3A00580 1TFGO SYN 1200 TIFGO TABLE. F3A00590 1TRAD SYN 1000 TRAD TABLE. F3A00600 1DM07 SYN TOPMEM-5714-23400*M/N DUMMY BUFFER FOR FORTAG. F3A00610 1FRTG SYN 6000 FORTAG TABLE. F3A00620 1DM08 SYN 0 DUMMY BUFFER FOR CHTAG TABLE. F3A00630 1CHTG SYN 1200 CHTAG TABLE. F3A00640 SPACE 3 F3A00650 REM NUMBER OF WORDS IN TABLE AND BUFFER ENTRY F3A00660 REM F3A00670 2TBF1 SYN 1 ONE WORD IN TABLE OR BUFFER ENTRY. F3A00680 2TBF2 SYN 2 TWO WORDS IN TABLE OR BUFFER ENTRY. F3A00690 2TBF3 SYN 3 THREE WORDS IN TABLE OR BUFFER ENTRY. F3A00700 2TBF4 SYN 4 FOUR WORDS IN TABLE OR BUFFER ENTRY. F3A00710 EJECT F3A00720 REM TABLE AND BUFFER SIZE F3A00730 REM F3A00740 3IO01 SYN TOPMEM-BOTIOP I/O PACKAGE. F3A00750 3DCAR SYN 1DCAR*M/N DOCARE TABLE. F3A00760 3DM01 SYN 1DM01 DUMMY BUFFER FOR CITCNT. F3A00770 3CTCT SYN 1CTCT CITCNT COUNT. F3A00780 3TSCM SYN 1TSCM*M/N TSXCOM TABLE. F3A00790 3DM02 SYN 1DM02 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A00800 3CTB2 SYN 1CTBF*R/S CIT BUFFER 2. F3A00810 3CTB1 SYN 1CTBF*R/S CIT BUFFER 1. F3A00820 3DM03 SYN 1DM03 DUMMY BUFFER FOR DOC BUFFER. F3A00830 3DCB2 SYN 1DCBF*W/X DOC BUFFER 2. F3A00840 3DCB1 SYN 1DCBF*W/X DOC BUFFER 1. F3A00850 3SXTX SYN 1SXTX*M/N SXTX TABLE. F3A00860 3DM04 SYN 1DM04 DUMMY BUFFER FOR DO, AIL AND FIRST FILE. F3A00870 3DBF2 SYN 1DOBF*U/V COMPDO BUFFER 2. F3A00880 3DBF1 SYN 1DOBF*U/V COMPDO BUFFER 1. F3A00890 3DM05 SYN 1DM05 DUMMY BUFFER FOR AIL AND FIRST FILE. F3A00900 3ALB2 SYN 1ALBF*P/Q COMPAIL BUFFER 2. F3A00910 3ALB1 SYN 1ALBF*P/Q COMPAIL BUFFER 1. F3A00920 3DM06 SYN 1DM06 DUMMY BUFFER FOR FIRST FILE. F3A00930 3FRB2 SYN 1FRBF*Y/Z FIRST FILE BUFFER 2. F3A00940 3FRB1 SYN 1FRBF*Y/Z FIRST FILE BUFFER 1. F3A00950 3TRST SYN 1TRST*M/N TRASTO TABLE. F3A00960 3UCTG SYN 1UCTG*M/N UCHTAG TABLE. F3A00970 3FXCN SYN 1FXCN*M/N FIXCON TABLE. F3A00980 3TRLV SYN 1TRLV*M/N TRALEV TABLE. F3A00990 3TFGO SYN 1TFGO*M/N TIFGO TABLE. F3A01000 3TRAD SYN 1TRAD*M/N TRAD TABLE. F3A01010 3DM07 SYN 1DM07 DUMMY BUFFER FOR FORTAG TABLE. F3A01020 3FRTG SYN 1FRTG*M/N FORTAG TABLE. F3A01030 3DM08 SYN 1DM08 DUMMY BUFFER FOR CHTAG TABLE. F3A01040 3CHTG SYN 1CHTG*M/N CHTAG TABLE. F3A01050 SPACE 3 F3A01060 REM NUMBER OF WORDS IN FRONT OF TABLES F3A01070 REM WHEN ONE WORD, IT IS WORD COUNT F3A01080 REM WHEN TWO WORDS, IT IS LABEL AND WORD COUNT F3A01090 REM F3A01100 4DCAR SYN 1 DOCARE TABLE. F3A01110 4TSCM SYN 1 TSXCOM TABLE. F3A01120 4SXTX SYN 1 SXTX TABLE. F3A01130 4TRST SYN 1 TRASTO TABLE. F3A01140 4UCTG SYN 1 UCHTAG TABLE. F3A01150 4FXCN SYN 1 FIXCON TABLE. F3A01160 4TRLV SYN 0 TRALEV TABLE. F3A01170 4TFGO SYN 2 TIFGO TABLE. F3A01180 4TRAD SYN 2 TRAD TABLE. F3A01190 4FRTG SYN 2 FORTAG TABLE. F3A01200 4CHTG SYN 0 CHTAG TABLE. F3A01210 EJECT F3A01220 REM TABLE AND BUFFER LENGTH F3A01230 REM F3A01240 5IO01 SYN 3IO01*2TBF1 UPPER I/O PACKAGE. F3A01250 5DCAR SYN 3DCAR*2TBF1 DOCARE TABLE. F3A01260 5DM01 SYN 3DM01*2TBF1 DUMMY BUFFER FOR CITCNT. F3A01270 5CTCT SYN 3CTCT*2TBF1 CITCNT COUNT. F3A01280 5TSCM SYN 3TSCM*2TBF2 TSXCOM TABLE. F3A01290 5DM02 SYN 3DM02*2TBF1 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A01300 5CTB2 SYN 3CTB2*2TBF4 CIT BUFFER 2. F3A01310 5CTB1 SYN 3CTB1*2TBF4 CIT BUFFER 1. F3A01320 5DM03 SYN 3DM03*2TBF1 DUMMY BUFFER FOR DOC BUFFER. F3A01330 5DCB2 SYN 3DCB2*2TBF4 DOC BUFFER 2. F3A01340 5DCB1 SYN 3DCB1*2TBF4 DOC BUFFER 1. F3A01350 5SXTX SYN 3SXTX*2TBF2 SXTX TABLE. F3A01360 5DM04 SYN 3DM04*2TBF1 DUMMY BUFFER FOR DO, AIL AND FIRST FILE. F3A01370 5DBF2 SYN 3DBF2*2TBF4 COMPDO BUFFER 2. F3A01380 5DBF1 SYN 3DBF1*2TBF4 COMPDO BUFFER 1. F3A01390 5DM05 SYN 3DM05*2TBF1 DUMMY BUFFER FOR AIL AND FIRST FILE. F3A01400 5ALB2 SYN 3ALB2*2TBF4 COMPAIL BUFFER 2. F3A01410 5ALB1 SYN 3ALB1*2TBF4 COMPAIL BUFFER 1. F3A01420 5DM06 SYN 3DM06*2TBF1 DUMMY BUFFER FOR FIRST FILE. F3A01430 5FRB2 SYN 3FRB2*2TBF4 FIRST FILE BUFFER 2. F3A01440 5FRB1 SYN 3FRB1*2TBF4 FIRST FILE BUFFER 1. F3A01450 5TRST SYN 3TRST*2TBF3 TRASTO TABLE. F3A01460 5UCTG SYN 3UCTG*2TBF2 UCHTAG TABLE. F3A01470 5FXCN SYN 3FXCN*2TBF1 FIXCON TABLE. F3A01480 5TRLV SYN 3TRLV*2TBF1 TRALEV TABLE. F3A01490 5TFGO SYN 3TFGO*2TBF2 TIFGO TABLE. F3A01500 5TRAD SYN 3TRAD*2TBF1 TRAD TABLE. F3A01510 5DM07 SYN 3DM07*2TBF1 DUMMY BUFFER FOR FORTAG TABLE. F3A01520 5FRTG SYN 3FRTG*2TBF1 FORTAG TABLE. F3A01530 5DM08 SYN 3DM08*2TBF1 DUMMY BUFFER FOR CHTAG TABLE. F3A01540 5CHTG SYN 3CHTG*2TBF2 CHTAG TABLE. F3A01550 5TPE6 SYN 3TRST*2TBF3 TRASTO TYPE 6 SORT TABLE. F3A01560 5TPE5 SYN 3TRST*2TBF3 TRASTO TYPE 5 SORT TABLE. F3A01570 5TPE4 SYN 3TRST*2TBF3 TRASTO TYPE 4 SORT TABLE. F3A01580 5TPE3 SYN 3TRST*2TBF3 TRASTO TYPE 3 SORT TABLE. F3A01590 5TPE2 SYN 3TRST*2TBF3 TRASTO TYPE 2 SORT TABLE. F3A01600 5TPE1 SYN 5TRST TRASTO TYPE 1 SORT TABLE. F3A01610 EJECT F3A01620 REM TABLE OF INDICATOR BITS F3A01630 REM F3A01640 NOCHG BOOL 1 NO OR END CHANGE TAG. F3A01650 INTRL BOOL 2 TIFGO ENTRY IN TRALEV. F3A01660 FRSTX BOOL 4 SET FOR TIFGO SUBROUTINE. F3A01670 SCONX BOOL 10 SET FOR TIFGO SUBROUTINE. F3A01680 THRDX BOOL 20 SET FOR TIFGO SUBROUTINE. F3A01690 FORTX BOOL 40 SET FOR TIFGO SUBROUTINE. F3A01700 FFTHX BOOL 100 SET FOR TIFGO SUBROUTINE. F3A01710 FAIL BOOL 200 SET FOR FIRST READ OF AIL. F3A01720 NOAIL BOOL 400 NO OR END OF COMPAIL. F3A01730 NODO BOOL 1000 NO OR END OF COMPDO. F3A01740 IFSTT BOOL 2000 TIFGO ENTRY IS IF STATEMENT. F3A01750 FXPT BOOL 4000 FIX POINT. F3A01760 IFIN SYN INTRL+IFSTT RESET. F3A01770 RSIND SYN FRSTX+SCONX+THRDX+FORTX+FFTHX RESET. F3A01780 NOTF BOOL 10000 NO OR END OF TIFGO FILE. F3A01790 NOFF BOOL 20000 NO OR END OF FIRST FILE. F3A01800 SPACE 4 F3A01810 REM TABLE OF SYMBOLS SET SYN ZERO F3A01820 REM F3A01830 TRAST SYN 0 TRASTO. F3A01840 TYPE1 SYN 0 TYPE 1. F3A01850 TYPE2 SYN 0 TYPE 2. F3A01860 TYPE3 SYN 0 TYPE 3. F3A01870 TYPE4 SYN 0 TYPE 4. F3A01880 TYPE5 SYN 0 TYPE 5. F3A01890 TYPE6 SYN 0 TYPE 6. F3A01900 FORTG SYN 0 FORTAG. F3A01910 UCHTG SYN 0 UNEDITED CHANGE TAG. F3A01920 CHTG SYN 0 CHANGE TAG. F3A01930 TIFGO SYN 0 TIFGO. F3A01940 TRLEV SYN 0 TRALEV. F3A01950 ASCO SYN 0 ASCO. F3A01960 AIL SYN 0 AIL. F3A01970 DO SYN 0 DO. F3A01980 SXTX SYN 0 SXTX. F3A01990 CIB SYN 0 CIB. F3A02000 TRAD SYN 0 TRAD. F3A02010 TFGBF SYN 0 TIFGO BUFFER. F3A02020 FFLBF SYN 0 FIRST FILE BUFFER. F3A02030 TSXCM SYN 0 TSXCOM. F3A02040 SPACE 4 F3A02050 REM FOR MASTER RECORD AND PATCH SPACE CARDS. F3A02060 REM F3A02070 REC22 BOOL 26 RECORD 22. F3A02080 PATCH SYN 250 PATCH SPACE FOR SECTION THREE. F3A02090 OPSUB SYN 250 PATCH SPACE FOR OPEN SUBROUTINES. F3A02100 EJECT F3A02110 REM DEFINITIONS FOR TABLE AND BUFFER ORIGINS F3A02120 REM F3A02130 ORGA SYN TOPMEM-5IO01-5DCAR-4DCAR F3A02140 ORGB SYN ORGA-5DM01-5CTCT PHASE 6 F3A02150 ORGC SYN ORGA-5TSCM-4TSCM F3A02160 ORGD SYN ORGC-5DM02-5CTB2-5CTB1-5DM03-5DCB2-5DCB1 PHASE5. F3A02170 ORGE SYN ORGC-5SXTX-4SXTX F3A02180 ORGF SYN ORGE-5DM04-5DBF2-5DBF1-5DM05-5ALB2-5ALB1 F3A02190 ORGG SYN ORGF-5DM06-5FRB2-5FRB1 PHASE 4. F3A02200 ORGH SYN ORGE-5TRST-4TRST-5UCTG-4UCTG-5FXCN-4FXCN F3A02210 ORGI SYN ORGH-5TRLV-4TRLV-5TFGO-4TFGO-5TRAD-4TRAD F3A02220 ORGJ SYN ORGI-5DM07-5FRTG-4FRTG-5DM08-5CHTG-4CHTG PHASE 2 AND 3. F3A02230 ORGK SYN ORGI-5TPE6-5TPE5-5TPE4-5TPE3-5TPE2 PHASE 1. F3A02240 SPACE 2 F3A02250 REM PHASE 1 SORT AND PACK TRASTO F3A02260 REM PHASE 2 EDIT CHANGE TAG F3A02270 REM PHASE 3 CREATE TIFGO FILE F3A02280 REM PHASE 4 CREATE FIRST FILE F3A02290 REM PHASE 5 MERGE TIFGO AND FIRST FILES TO CREATE CITS F3A02300 REM PHASE 6 LEAVE CIT COUNT F3A02310 SPACE 2 F3A02320 REM LOCATIONS OF TABLES, BUFFERS, WORD COUNT AND LABELS F3A02330 REM F3A02340 ORG ORGK F3A02350 7TPE2 BSS 5TPE2 TYPE 2 SORT TABLE. F3A02360 7TPE3 BSS 5TPE3 TYPE 3 SORT TABLE. F3A02370 7TPE4 BSS 5TPE4 TYPE 4 SORT TABLE. F3A02380 7TPE5 BSS 5TPE5 TYPE 5 SORT TABLE. F3A02390 7TPE6 BSS 5TPE6 TYPE 6 SORT TABLE. F3A02400 6TRAD BSS 4TRAD TRAD LABEL. F3A02410 7TRAD BSS 5TRAD TRAD TABLE. F3A02420 6TFGO BSS 4TFGO TIFGO LABEL. F3A02430 7TFGO BSS 5TFGO TIFGO TABLE. F3A02440 6TRLV BSS 4TRLV TRALEV. F3A02450 7TRLV BSS 5TRLV TRALEV TABLE. F3A02460 6FXCN BSS 4FXCN FIXCON WORD COUNT. F3A02470 7FXCN BSS 5FXCN FIXCON TABLE. F3A02480 6UCTG BSS 4UCTG UCHTAG WORD COUNT. F3A02490 7UCTG BSS 5UCTG UCHTAG TABLE. F3A02500 6TRST BSS 4TRST TRASTO WORD COUNT. F3A02510 7TRST BSS 5TRST TRASTO TABLE. F3A02520 6SXTX BSS 4SXTX SXTX WORD COUNT. F3A02530 7SXTX BSS 5SXTX SXTX TABLE. F3A02540 6TSCM BSS 4TSCM TSXCOM WORD COUNT. F3A02550 7TSCM BSS 5TSCM TSXCOM TABLE. F3A02560 SPACE 2 F3A02570 ORG ORGJ F3A02580 6CHTG BSS 4CHTG CHTAG. F3A02590 7CHTG BSS 5CHTG CHTAG TABLE. F3A02600 7DM08 BSS 5DM08 DUMMY BUFFER. F3A02610 6FRTG BSS 4FRTG FORTAG LABEL. F3A02620 7FRTG BSS 5FRTG FORTAG TABLE. F3A02630 7DM07 BSS 5DM07 DUMMY BUFFER. F3A02640 EJECT F3A02650 ORG ORGG F3A02660 7FRB1 BSS 5FRB1 FIRST FILE BUFFER 1. F3A02670 7FRB2 BSS 5FRB2 FIRST FILE BUFFER 2. F3A02680 7DM06 BSS 5DM06 DUMMY BUFFER. F3A02690 7ALB1 BSS 5ALB1 COMPAIL BUFFER 1. F3A02700 7ALB2 BSS 5ALB2 COMPAIL BUFFER 2. F3A02710 7DM05 BSS 5DM05 DUMMY BUFFER. F3A02720 7DBF1 BSS 5DBF1 COMPDO BUFFER 1. F3A02730 7DBF2 BSS 5DBF2 COMPDO BUFFER 2. F3A02740 7DM04 BSS 5DM04 DUMMY BUFFER. F3A02750 SPACE 2 F3A02760 ORG ORGD F3A02770 7DCB1 BSS 5DCB1 DO FILE C BUFFER 1. F3A02780 7DCB2 BSS 5DCB2 DO FILE C BUFFER 2. F3A02790 7DM03 BSS 5DM03 DUMMY BUFFER. F3A02800 7CTB1 BSS 5CTB1 CIT BUFFER 1. F3A02810 7CTB2 BSS 5CTB2 CIT BUFFER 2. F3A02820 7DM02 BSS 5DM02 DUMMY BUFFER. F3A02830 SPACE 2 F3A02840 ORG ORGB F3A02850 7CTCT BSS 5CTCT CITCNT TABLE (ONE WORD). F3A02860 7DM01 BSS 5DM01 DUMMY BUFFER. F3A02870 6DCAR BSS 4DCAR DOCARE WORD COUNT. F3A02880 7DCAR BSS 5DCAR DOCARE TABLE. F3A02890 7IO01 BSS 5IO01 I/O PACKAGE FOR UPPER MEMORY. F3A02900 EJECT F3A02910 REM F3A02920 SPACE 10 F3A02930 REM NEW RECORD FOR SECTION THREE F3A02940 SPACE 10 F3A02950 ORG SYSCUR $F3A02960 REM F3A02970 BCI 1,9F2200 $F3A02980 ORG (LODR) $F3A02990 TXI HELLO,,REC22*10 F3A03010 EJECT F3A03030 REM SECTION THREE F3A03040 SPACE 3 F3A03050 REM COMPUTING LOCATION FOR TABLES AND BUFFERS F3A03060 REM F3A03070 ORG BOTTOM F3A03080 CL01 PZE TOPMEM,,TOPMEM LOCATION OF TOP. F3A03090 CL01A PZE -5IO01,,-5IO01 SIZE OF UPPER IO PACKAGE F3A03100 PZE -5DCAR-4DCAR,,-5DCAR-4DCAR SIZE OF DOCARE. F3A03110 PZE -5TSCM,,-5TSCM TSXCOM SIZE. F3A03120 PZE -4TSCM,,-4TSCM TSXCOM LABEL SIZE. F3A03130 PZE -5SXTX,,-5SXTX SXTX SIZE F3A03140 PZE -4SXTX,,-4SXTX SXTX LABEL SIZE F3A03150 PZE -5TRST,,-5TRST TRASTO SIZE. F3A03160 PZE -4TRST,,-4TRST TRASTO LABEL SIZE. F3A03170 PZE -5UCTG,,-5UCTG UCHTAG SIZE. F3A03180 PZE -4UCTG,,-4UCTG UCHTAG LABEL SIZE. F3A03190 PZE -5FXCN,,-5FXCN FIXCON SIZE. F3A03200 PZE -4FXCN,,-4FXCN FIXCON LABEL SIZE. F3A03210 CL02 PZE -5TRLV,,-5TRLV TRALEV SIZE. F3A03220 CL03 PZE -4TRLV,,-4TRLV TRALEV LABEL SIZE. F3A03230 CL04 PZE -5TFGO,,-5TFGO TIFGO SIZE. F3A03240 CL05 PZE -4TFGO,,-4TFGO TIFGO LABEL SIZE. F3A03250 CL06 PZE -5TRAD,,-5TRAD TRAD SIZE F3A03260 CL07 PZE -4TRAD,,-4TRAD TRAD LABEL SIZE F3A03270 CL08 PZE -5TPE6,,-5DM07 TYPE 6 SIZE,,DUMMY BUFFER 7 SIZE. F3A03280 CL09 PZE -5TPE5,,-5FRTG TYPE 5 SIZE,,FORTAG SIZE. F3A03290 CL10 PZE -5TPE4,,-4FRTG TYPE 4 SIZE,,FORTAG LABEL SIZE. F3A03300 CL11 PZE -5TPE3,,-5DM08 TYPE 3 SIZE,,DUMMY BUFFER 8 SIZE. F3A03310 CL12 PZE -5TPE2,,-5CHTG TYPE 2 SIZE,,CHTAG SIZE. F3A03320 CL13 PZE ,,-4CHTG ,,CHTAG LABEL SIZE F3A03330 SPACE 2 F3A03340 CL14 PZE -5SXTX,,-5DM02 SXTX SIZE,,DUMMY BUFFER 2 SIZE F3A03350 CL15 PZE -4SXTX,,-5CTB2 SXTX LABEL SIZE,,CIT BUFFER 2 SIZE. F3A03360 CL16 PZE -5DM04,,-5CTB1 DY BUFFER 4 SIZE,,CIT BUFFER 2 SIZE. F3A03370 CL17 PZE -5DBF2,,-5DM03 DO BUFFER 2 SIZE,,DY BUFFER 3 SIZE. F3A03380 CL18 PZE -5DBF1,,-5DCB2 DO BUFFER 1 SIZE,,DOC BUFFER 2 SIZE. F3A03390 CL19 PZE -5DM05,,-5DCB1 DY BUFFER 5 SIZE,,DOC BUFFER 1 SIZE. F3A03400 CL20 PZE -5ALB2 AIL BUFFER 2 SIZE. F3A03410 CL21 PZE -5ALB1 AIL BUFFER 1 SIZE. F3A03420 CL22 PZE -5DM06 DUMMY BUFFER 6 SIZE F3A03430 CL23 PZE -5FRB2 FIRST FILE 2 SIZE. F3A03440 CL24 PZE -5FRB1 FIRST FILE BUFFER 1 SIZE. F3A03450 SPACE 2 F3A03460 CL25 PZE -5DM01 DUMMY BUFFER 1 SIZE F3A03470 CL26 PZE -5CTCT CITCNT SIZE. F3A03480 CL27 SYN * F3A03490 EJECT F3A03500 REM LOCATION OF TABLES AND BUFFERS F3A03510 REM F3A03520 9IO01 PZE 7IO01,,7IO01 UPPER I/O PACKAGE. F3A03530 8DCAR PZE 6DCAR,,6DCAR DOCAR WORD COUNT. F3A03540 9TSCM PZE 7TSCM,,7TSCM TSXCOM TABLE. F3A03550 8TSCM PZE 6TSCM,,6TSCM TSXCOM WORD COUNT. F3A03560 9SXTX PZE 7SXTX,,7SXTX SXTX TABLE. F3A03570 8SXTX PZE 6SXTX,,6SXTX SXTX WORD COUNT. F3A03580 9TRST PZE 7TRST,,7TRST TRASTO TABLE. F3A03590 8TRST PZE 6TRST,,6TRST TRASTO WORD COUNT. F3A03600 9UCTG PZE 7UCTG,,7UCTG UCHTAG TABLE. F3A03610 8UCTG PZE 6UCTG,,6UCTG UCHTAG WORD COUNT. F3A03620 9FXCN PZE 7FXCN,,7FXCN FIXCON TABLE. F3A03630 8FXCN PZE 6FXCN,,6FXCN FIXCON WORD COUNT. F3A03640 9TRLV PZE 7TRLV,,7TRLV TRALEV TABLE. F3A03650 8TRLV PZE 6TRLV,,6TRLV TRALEV (NO WORD COUNT). F3A03660 9TFGO PZE 7TFGO,,7TFGO TIFGO TABLE. F3A03670 8TFGO PZE 6TFGO,,6TFGO TIFGO LABEL. F3A03680 9TRAD PZE 7TRAD,,7TRAD TRAD TABLE. F3A03690 8TRAD PZE 6TRAD,,6TRAD TRAD LABEL. F3A03700 9TPE6 PZE 7TPE6,,7DM07 TYPE 6,,DUMMY BUFFER 7. F3A03710 9TPE5 PZE 7TPE5,,7FRTG TYPE 5,,FORTAG TABLE. F3A03720 9TPE4 PZE 7TPE4,,6FRTG TYPE 4,,FORTAG LABEL. F3A03730 9TPE3 PZE 7TPE3,,7DM08 TYPE 3,,DUMMY BUFFER 8. F3A03740 9TPE2 PZE 7TPE2,,7CHTG TYPE 2,,CHTAG TABLE. F3A03750 8CHTG PZE ,,6CHTG ,,CHTAG (NO WORD COUNT). F3A03760 SPACE 1 F3A03770 9DM02 PZE 7SXTX,,7DM02 SXTX TABLE,,DUMMY BUFFER 2. F3A03780 9CTB2 PZE 6SXTX,,7CTB2 SXTX LABEL,,CIT BUFFER 2. F3A03790 9DM04 PZE 7DM04,,7CTB1 DUMMY BUFFER 4,,CIT BUFFER 1. F3A03800 9DBF2 PZE 7DBF2,,7DM03 DO BUFFER 2,,DUMMY BUFFER 3. F3A03810 9DBF1 PZE 7DBF1,,7DCB2 DO BUFFER 1,,DOC BUFFER 2. F3A03820 9DM05 PZE 7DM05,,7DCB1 DUMMY BUFFER 5,,DOC BUFFER 1. F3A03830 9ALB2 PZE 7ALB2 AIL BUFFER 2. F3A03840 9ALB1 PZE 7ALB1 AIL BUFFER 1. F3A03850 9DM06 PZE 7DM06 DUMMY BUFFER 6. F3A03860 9FRB2 PZE 7FRB2 FIRST FILE BUFFER 2. F3A03870 9FRB1 PZE 7FRB1 FIRST FILE BUFFER 1. F3A03880 SPACE 1 F3A03890 9DM01 PZE 7DM01 DUMMY BUFFER 1. F3A03900 9CTCT PZE 7CTCT CITCNT. F3A03910 8CTCT SYN * F3A03920 SPACE 1 F3A03930 9FRTG SYN 9TPE5 FORTAG TABLE IN DEC. F3A03940 8FRTG SYN 9TPE4 FORTAG LABEL IN DEC. F3A03950 9DM08 SYN 9TPE3 DUMMY BUFFER 8 IN DEC. F3A03960 9CHTG SYN 9TPE2 CHTAG TABLE IN DEC. F3A03970 9CTB1 SYN 9DM04 CIT BUFFER 1 IN DEC. F3A03980 9DCB2 SYN 9DBF1 DOC BUFFER 2 IN DEC. F3A03990 9DCB1 SYN 9DM05 DOC BUFFER 1 IN DEC. F3A04000 8ASCN SYN 8UCTG ASCON WORD COUNT IN ADD. F3A04010 9ASCN SYN 9UCTG ASCON TABLE IN ADD. F3A04020 EJECT F3A04030 REM TABLE FOR TRANSFERS TO THE DIAGNOSTIC F3A04040 REM F3A04050 ERR1 TXI (DIAG),,-1 PROGRAMMER ERROR. SECTION THREE DOES F3A04060 REM NOT HAVE ROOM FOR ITS CODE AND TABLES F3A04070 REM F3A04080 ERR2 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04090 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04100 PZE ALAB1,,TBTAP TIFGO TABLE LABEL. F3A04110 REM F3A04120 ERR3 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04130 PZE COUNT,,(TPER) TIFGO TABLE DOES NOT AGREE WITH THE F3A04140 PZE ALAB1,,TBTAP WORD COUNT IN THE LABEL. F3A04150 REM F3A04160 ERR4 TXI (DIAG),,0 PROGRAMMER ERROR. SOURCE PROGRAM F3A04170 REM HAS CAUSE TRALEU TABLE.TO OVERFLOW. F3A04180 REM POSSIBLE MACHINE ERROR.LOGICAL TAPE 4 F3A04190 REM F3A04200 ERR5 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04210 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04220 PZE ALAB2,,TBTAP TRAD TABLE LABEL. F3A04230 REM F3A04240 ERR6 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04250 PZE COUNT,,(TPER) TRAD TABLE DOES NOT AGREE WITH THE F3A04260 PZE ALAB2,,TBTAP WORD COUNT IN THE LABEL. F3A04270 REM F3A04280 ERR7 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04290 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04300 PZE ALAB3,,TBTAP FORTAG TABLE LABEL. F3A04310 REM F3A04320 ERR8 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04330 PZE COUNT,,(TPER) FORTAG TABLE DOES NOT AGREE WITH THE F3A04340 PZE ALAB3,,TBTAP WORD COUNT IN THE LABEL. F3A04350 REM F3A04360 ERR9 TXI (DIAG),,-327 PROGRAMMER. THE CHANGE TAG TABLE F3A04370 REM HAS OVERFLOWED. F3A04380 REM F3A04390 ERR10 TXI (DIAG),,-4 PROGRAMMER ERROR. THE TIFGO FILE OF F3A04400 REM CITS HAS OVERFLOWED. F3A04410 REM F3A04420 ERR11 TSX (TAPE),4 MACHINE ERROR. A RECORD OF COMPDO F3A04430 PZE COUNT,,(TPER) CITS ON LOGICAL TAPE4 IS NOT A F3A04440 PZE ALAB4,,CDOTP MULTIPLE OF FOUR. THIS IS A POSSIBLE F3A04450 REM TAPE ERROR F3A04460 REM F3A04470 ERR12 TSX (TAPE),4 MACHINE ERROR. A RECORD OF COMPAIL F3A04480 PZE COUNT,,(TPER) CITS ON LOGICAL TAPE 2 IS NOT A F3A04490 PZE ALAB5,,TBTAP MULTIPLE OF FOUR. THIS IS A POSSIBLE F3A04500 REM TAPE ERROR. F3A04510 REM F3A04520 ERR13 TXI (DIAG),,0 MACHINE ERROR. A RECORD OF FIRST FILE F3A04530 REM CITS TO BE WRITTEN AS AN OVERFLOW F3A04540 REM IS NOT A MULTIPLE OF FOUR. THIS IS NOT F3A04550 REM THE LOGIC OF THE PROGRAM. F3A04560 SPACE 4 F3A04570 ERR14 TXI (DIAG),,0 MACHINE ERROR. A RECORD OF MERGED CITS F3A04580 REM TO BE WRITTEN IS NOT A MULTIPLE OF F3A04590 REM FOUR. THIS IS NOT THE LOGIC OF THE F3A04600 REM PROGRAM F3A04610 REM F3A04620 ERR15 TXI (DIAG),,-5 PROGRAMMER ERROR. THE ASSIGN CONSTANT F3A04630 REM TABLE HAS OVER FLOWED F3A04640 REM F3A04650 ERR16 TXI (DIAG),,-593 PROGRAMMER ERROR. A FORTRAN FUNCTION F3A04660 REM STATEMENT APPEARS IN THE MIDDLE OF F3A04670 REM HIS SOURCE PROGRAM. F3A04680 REM F3A04690 ERR17 TXI (DIAG),,-12007 PROGRAMMER ERROR. THE NAME OF AN OPEN F3A04700 REM SUBROUTINE USED IN THE SOURCE PROGRAM F3A04710 REM DOES NOT APPEAR IN SECTION THREE S F3A04720 REM DICTIONARY. F3A04730 REM F3A04740 ERR18 TXI (DIAG),,-1245 MACHINE ERROR OR PROGRAMMER ERROR. THERE F3A04750 REM IS A FENCE OF ALL ONE IN THE FIRST F3A04760 REM WORD OF A CIT WHERE THERE SHOULD BE F3A04770 REM NO FENCE F3A04780 REM F3A04790 ERR19 TXI (DIAG),,-1239 MACHINEERROR OR PROGRAMMERERROR. THERE F3A04800 REM IS NO FENCE OF ALL ONE IN THE FIRST F3A04810 REM WORD OF A CIT WHERE THERE SHOULD BE F3A04820 REM A FENCE F3A04830 REM F3A04840 ERR20 TSX (TAPE),4 MACHINE ERROR. A RECORD OF FIRST FILE F3A04850 PZE COUNT,,(TPER) OVERFLOW HAS BEEN READ AND IT IS NOT F3A04860 PZE ALAB6,,VFLTP A MULTIPLE OF FOUR. A POSSIBLE ERROR F3A04870 REM ON LOGICAL TAPE 3. F3A04880 REM F3A04890 ERR21 TSX (TAPE),4 MACHINE ERROR. THE NUMBER OF WORDS AND F3A04900 PZE COUNT,,(TPER) RECORDS WRITTEN FOR FIRST FILE F3A04910 PZE ALAB6,,VFLTP OVERFLOW DO NOT AGREE WITH THE F3A04920 REM NUMBER OF WORDS AND RECORD READ F3A04930 REM FOR FIRST FILE OVERFLOW F3A04940 REM F3A04950 ERR22 TSX (TAPE),4 MACHINE ERROR. THE NUMBER OF WORDS AND F3A04960 PZE COUNT,,(TPER) WRITTEN FOR FORTRAN FUNCTIONS DO F3A04970 PZE ALAB7,,CSBTP NOT AGREE WITH THE NUMBER OF WORDS F3A04980 REM READ FOR FORTRAN FUNCTIONS. F3A04990 REM F3A05000 ERR23 TSX (TAPE),4 MACHINE ERROR. A RECORD OF DO FILE C F3A05010 PZE COUNT,,(TPER) CITS ARE NOT A MULTIPLE OF FOUR. F3A05020 PZE ALAB8,,CSBTP F3A05030 REM F3A05040 ERR24 TXI (DIAG),,-6 PROGRAMMER ERROR. COMPILED F3A05050 REM PROGRAM TO LARGE. REDUCE SIZE OF PROGRAM. F3A05060 REM F3A05070 ERR25 TXI (DIAG),,-7 PROGRAM ERROR. REDUCE THE F3A05080 REM NUMBER OF ARITHMETIC F3A05090 REM STATEMENT FUNCTIONS. F3A05100 EJECT F3A05110 L(0) PZE 0 OCTAL ZERO. F3A05120 L(2) PZE 2 OCTAL TWO. F3A05130 L(3) PZE 3 OCTAL THREE. F3A05140 L(4) PZE 4 OCTAL FOUR. F3A05150 L(8) PZE 8 OCTAL TEN. F3A05160 L(16) PZE 16 OCTAL TWENTY. F3A05170 (370) OCT 370 ADDEND OF 248 FOR ASSIGN. F3A05180 TGMSK OCT 2000 I TAU MASK FOR 4TH WORD OF CIT. F3A05190 (4A4D PZE 4,,4 OCTAL 4,, OCTAL 4. F3A05200 (7A1D PZE 7,,1 OCTAL 7,, OCTAL 1. F3A05210 L(1D) PZE ,,1 DEC OCTAL ONE. F3A05220 L(2D) PZE ,,2 DEC OCTAL TWO. F3A05230 L(3D) PZE ,,3 DEC OCTAL THREE. F3A05240 L(4D) PZE ,,4 DEC OCTAL FOUR. F3A05250 L(5D) PZE ,,5 DEC OCTAL FIVE. F3A05260 (17D) PZE ,,17 DEC OCTAL TWENTY ONE. F3A05270 (18D) PZE ,,18 DEC OCTAL TWENTY TWO. F3A05280 ALONE SVN -1,7,-1 ALLONES OR 36 ONES. F3A05290 DCMSK PZE ,,-1 DECREMENT FIELS MASK. F3A05300 ADMSK PZE -1 ADDRESS FIELD MASK. F3A05310 CHTFN PZE 0 IFN FOR THE CURRENT CHTAG BLOCK. F3A05320 TGBOX PZE 0 TAG FOR AIL DURING CHTAG TABLE SEARCH. F3A05330 CMBOX PZE 0 IFN FOR FORTAG ENTRY DURING CHTAG EDIT. F3A05340 MDOFN PZE 0 IFN OF CURRENT BLOCK OF DO INSTRUCTIONS. F3A05350 MALFN PZE 0 IFN FOR CURRENT BLOCK OF AIL INSTRUCTIONS.F3A05360 CCONT PZE 0 COUNT FOR EXP ROUTINE. F3A05370 3WD PZE 0 TEMPORARY STORAGE FOR 3RD WORD OF CITS. F3A05380 4WD PZE 0 TEMPORARY STORAGE FOR 4TH WORD OF CITS. F3A05390 M1CW OCT ,,,,0 FIVE WORDS FOR INSTRUCTION STORAGE. $F3A05400 ADDCO PZE 0 COUNTER FOR TIFGO FILE. F3A05410 MASK MTW 0 MASK FOR TRASTO BCD. F3A05420 TIFFN PZE 0 IFN OF CURRENT TIFGO ENTRY. F3A05430 LEVNO PZE 0 LEVEL NUMBER FOR CURRENT TIFGO ENTRY. F3A05440 CLOC PZE 0 INCREMENT OF 1ST INST IN CURRENT BLOCK. F3A05450 SXLOC PZE 0 LOCATION WORD FOR CURRENT DO INSTRUCTION. F3A05460 2BIT PON 0 MASK FOR FINAL MERGE. F3A05470 PMASK SVN 0 MASK FOR TSXCOM TYPE. F3A05480 (LOC) OCT 3777000370 FOR LOAD BUTTON SEQUENCE. F3A05490 TFGFN PZE 0 IFN FOR CURRENT TIFGO INSTRUCTION. F3A05500 FFLFN PZE 0 IFN FOR CURRENT FIRST FILE INSTRUCTION. F3A05510 RAVEL PZE 0 TRALEV SWITCH CELL. F3A05520 FOFWC PZE 0 WORD COUNT OF FORTRAN FUNCTIONS. F3A05530 ERAS PZE 0 ERASEABLE CELLS. F3A05540 BETA1 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05550 BETA2 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05560 BETA3 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05570 (AST) OCT 170000000000 STAR SYMBOL. F3A05580 L(1)) BCI 1,100000 1) SYMBOL. F3A05590 L(5)) BCI 1,500000 5) SYMBOL. F3A05600 L(6)) BCI 1,600000 6. SYMBOL. F3A05610 L(A)) OCT 120000000000 A) SYMBOL. F3A05620 L(C)) OCT 140000000000 C) SYMBOL. F3A05630 LSTR0 BCI 1,*00000 FIXED POINT EXPONENT - X**I OR J**I. F3A05640 L0STR BCI 1,0*0000 FLOATING POINT EXPONENT - X**Y. F3A05650 LPLUS BCI 1,+00000 ARGURMENT IN AC. F3A05660 FPTCN BCI 1,$$ FPT SYMBOL AT BEGINNING OF MAIN PROGRAM. F3A05670 (CLA) BCI 1,CLA000 CLA. F3A05680 (CLS) BCI 1,CLS000 CLS. F3A05690 (STO) BCI 1,STO000 STO. F3A05700 (TRA) BCI 1,TRA000 TRA. F3A05710 (TPL) BCI 1,TPL000 TPL. F3A05720 (TZE) BCI 1,TZE000 TZE. F3A05730 (TXI) BCI 1,TXI000 TXI. F3A05740 (TIX) BCI 1,TIX000 TIX. F3A05750 (TSX) BCI 1,TSX000 TSX. F3A05760 (LXD) BCI 1,LXD000 LXD. F3A05770 (SXD) BCI 1,SXD000 SXD. F3A05780 (LXP) BCI 1,LXP000 SPECIAL LXD. F3A05790 (PXD) BCI 1,PXD000 PXD. F3A05800 (RCD) BCI 1,RCD000 FORTRAN MNEMONIC FOR RCDA. F3A05810 (HPR) BCI 1,HPR000 HPR. F3A05820 (RLA) BCI 1,RLA000 FORTRAN MNEMONIC FOR RCHA. F3A05830 (LCA) BCI 1,LCA000 FORTRAN MNEMONIC FOR LCHA. F3A05840 (TAF) BCI 1,TAF000 FORTRAN MNEMONIC FOR TEFA. F3A05850 (MON) BCI 1,MON003 IOCT COMMAND FOR RLA IN LOAD CARDS SEQ. F3A05860 (LDQ) BCI 1,LDQ000 LDQ. F3A05870 (MPY) BCI 1,MPY000 MPY. F3A05880 (LRS) BCI 1,LRS000 LRS. F3A05890 (ALS) BCI 1,ALS000 ALS. F3A05900 (LLS) BCI 1,LLS000 LLS. F3A05910 (STQ) BCI 1,STQ000 STQ. F3A05920 (FMP) BCI 1,FMP000 FMP. F3A05930 (SSP) BCI 1,SSP000 SSP. F3A05940 (UFA) BCI 1,UFA000 UFA. F3A05950 (ANA) BCI 1,ANA000 ANA. F3A05960 (FAD) BCI 1,FAD000 FAD. F3A05970 (CLM) BCI 1,CLM000 CLM. F3A05980 (DVP) BCI 1,DVP000 DVP. F3A05990 (FDP) BCI 1,FDP000 FDP. F3A06000 (TLQ) BCI 1,TLQ000 TLQ. F3A06010 (FSB) BCI 1,FSB000 FSB. F3A06020 (ORA) BCI 1,ORA000 ORA. F3A06030 (SUB) BCI 1,SUB000 SUB. F3A06040 (XCA) BCI 1,XCA000 XCA. F3A06050 (IOT) BCI 1,IOT000 IOT. F3A06060 WARCN PZE **,,** WORD COUNT ,, RECORD COUNT CELL. F3A06070 MEMRY PZE BTTAB,,TOPMEM START OR TABLES ,, TOP OR MEMORY. F3A06080 XIOUP OCT 4377 SIZE OF UPPER I/O PACKAGE. F3A06090 XDUM7 PZE 1DM07 CHANGE TO ZERO FOR SWITCH. F3A06100 XTOP PZE ,,-1 LOCATION OF TOP. F3A06110 CINF PZE **,,** 2S COM INTIAL BUFADD,,2S COM LAST BUFADD. F3A06120 WARCT PZE **,,** WORD COUNT ,, RECORD COUNT. F3A06130 SCIBI PZE **,,** SAVE CELL FOR CIBL1. F3A06140 SWTCT TSX WTCT,4 CELL FOR TSX TO WRITE CITS. F3A06150 STFIF PZE **,,** SAVE CELL FOR TIFGO INFORMATION. F3A06160 SFFIF PZE **,,** SAVE CELL FOR FIRST FILE INFORMATION. F3A06170 SOVCT PZE **,,** SAVE CELL FOR OVERFLOW INFORMATION. F3A06180 PTMSK PZE -1,,-1 ADDRESS AND DECREMENT MASK. F3A06190 LABEL BCI 1,LABEL FOR DIAG IN I/O PACKAGE. F3A06200 COUNT BCI 1,COUNT FOR DIAG IN I/O PACKAGE. F3A06210 FTRA TRA BOUT4 FOR ADD MOD WHEN FORTRAN FUNCTIONS. F3A06220 FTRB TRA BOUT4+1 WHEN MOVED AND OP SUB ARE ADDED. F3A06230 TAG4 OCT 400000 MASK FOR TOO MANY CITS. F3A06240 BSS 10 F3A06250 EJECT F3A06260 REM ROUTINE FOR READING OR WRITING THRU I/O PACKAGE F3A06270 REM F3A06280 RDTBA AXT SKLST-SKLTX,1 ENTRY FOR SINGLE OPERATION. F3A06290 SXD RDTBC,4 SWITCH SET. F3A06300 RDTBB SXA RDTBD,4 ENTRY FOR DOUBLE BUFFERING. F3A06310 TSX (TAPE),4 TO TAPE OPERATIONS F3A06320 PZE LIST,1,-1 WHICH ARE INDIRECTLY ADDRESSED F3A06330 PZE RISE,1,-1 F3A06340 RDTBC TXH RDTBD,1,** BY PASS SWITCH FOR DOUBLE BUFFERING. F3A06350 TXI *+1,1,-1 REDUCE CELL ON SINGLE OPERATION F3A06360 SXA RDTBA,1 STORE BACK F3A06370 SXD RDTBC,0 RESET SWITCH. F3A06380 RDTBD AXT **,4 RESORT IR4 F3A06390 TRA 1,4 RETURN F3A06400 SPACE 5 F3A06410 REM DOUBLE BUFFER COMDO READ ROUTINE F3A06420 REM F3A06430 RDD01 SXA RDD15,4 SAVE IR4. F3A06440 SXA RDD14,1 SAVE IR1. F3A06450 RDD02 AXT SKLST-CODO1,1 GET INDEX FOR NEXT BUFFER. F3A06460 TSX RDTBB,4 READ A RECORD. F3A06470 TXH RDD03,1,SKLST-CODO2 TEST BUFFER SWITCH. F3A06480 AXT SKLST-CODO1,1 RESET INDEX FOR BUFFER 1. F3A06490 SXA RDD02,1 SAVE INDEX FOR NEXT READ. F3A06500 TRA RDD04 TRANSFER. F3A06510 RDD03 AXT SKLST-CODO2,1 RESET INDEX FOR BUFFER 2. F3A06520 SXA RDD02,1 SAVE INDEX FOR NEXT READ. F3A06530 RDD04 TXL *+1,0,** SWITCH TO READ ANOTHER RECORD FOR THEF3A06540 AXT RDD05,1 FIRST THRU THIS ROUTINE. F3A06550 SXA *-2,1 THE DECREMENT OF RDD04 IS USED FOR F3A06560 TRA RDD02 IR2 POINTER BUFFER BEING PROCESSED. F3A06570 RDD05 CLA RISE,1 GET LOGICAL TAPE NUMBER FROM DEC F3A06580 PDX ,2 AND PLACE IN IR2. COMPUTE THE ADDRESSF3A06590 TXI *+1,2,(SCHU) FOR THE STORE CHANNEL AND F3A06600 SXA RDD06,2 SAVE THE ADDRESS IN RDD06 F3A06610 RDD06 NZT ** TEST THE STORE CHANNEL CELL FOR ZERO.F3A06620 TRA FAD14 YES TRANSFER OUT F3A06630 CLA* RDD06 NO GET STORE CHANNEL IN AC F3A06640 PAC ,2 LOAD IR2 WITH LAST ADDRESS PLUS ONE. F3A06650 SXD RDD07,2 SAVE IR2 IN RDD07 FOR COMPUTING F3A06660 SXD TESTD,2 SAVE IR2 IN TESTD FOR TEST. F3A06670 CLA SKLST,1 GET 1ST ADDRESS OF BUFFER IN AC F3A06680 PAX ,1 LOAD IR1 WITH 1ST ADDRESS OF BUFFER. F3A06690 RDD07 TXI *+1,1,** COMPUTE 2S COMP OF LENGTH OF BUFFER. F3A06700 PAC ,2 LOAD IR2 WITH 2S COMP OF 1ST ADD OF BF3A06710 PXA ,1 CLEAR AC AND PUT 2S COMP OF LENGTH F3A06720 ANA L(3) IN THE ADDRESS AND GET BITS 35 AND 36F3A06730 TZE *+2 TRANSFER OUT TO ERROR CITS ARE NOT 4 F3A06740 TRA ERR11 GO TO IO PACKAGE. F3A06750 CLA* 8SXTX GET THE LENGTH OF SXTX TABLE. F3A06760 SXD RDD04,2 SAVE IR2 WITH 2S COMP OF 1ST BUF LOC F3A06770 TZE RDD13 TRANSFER FOR EMPTY SXTX TABLE F3A06780 ADD 9SXTX F3A06790 PAC ,4 F3A06800 SXD RDD11,4 F3A06810 RDD08 CLA DO+1,2 GET 2ND WORD OF CIT WITH OP CODE. F3A06820 SUB (SXD) IS IT SXD. F3A06830 TZE RDD09 YES TRANSFER. F3A06840 TXI *+1,2,-2TBF4 NO DECREASE IR 2 BY 4. F3A06850 TSX TESTD,4 TEST FOR END OF BUFFER F3A06860 TRA RDD13 YES END OF BUFFER RETURN. F3A06870 TRA RDD08 NO GO TO NEXT CIT. F3A06880 RDD09 CLA DO+2,2 GET 3RD WORD OF CIT. F3A06890 STO SXLOC SAVE IN SXLOC. F3A06900 LAC 9SXTX,4 GET 2S COMP OF 1ST ADD OF SXTX IN IR4F3A06910 RDD10 CLA SXTX,4 GET 1ST WORD OF SXTX ENTRY F3A06920 SUB SXLOC COMPARE TO SXLOC OR 3RD WORD OF CIT. F3A06930 TZE RDD12 EQUAL TRANSFER. F3A06940 TXI RDD11,4,-2TBF2 NOT IQUAL DECREASE IR 4 BY 2. F3A06950 RDD11 TXH RDD10,4,** TEST FOR END OF SXTX TABLE F3A06960 TXI RDD08,2,-2TBF4 YES GO BACK AND GET NEXT CIT. F3A06970 RDD12 TXI *+1,4,-1 DECREASE IR4 BY 1. F3A06980 CLA SXTX,4 GET 2ND WORD OF SXTX ENTRY F3A06990 STO DO+2,2 PUT IT IN 3RD WORD OF CIT. F3A07000 STZ DO,2 PUT ZEROS IN 1ST WORD OF CIT F3A07010 TXI RDD08,2,-2TBF4 DECREASE IR2 BY 4 AND RETURN FOR CIT.F3A07020 RDD13 LXD RDD04,2 LOAD IR2 WITH 2S COMP OF 1ST BUF ADD.F3A07030 RDD14 AXT **,1 RESTORE IR1 F3A07040 RDD15 AXT **,4 RESTORE IR4 F3A07050 TRA 1,4 RETURN F3A07060 SPACE 2 F3A07070 REM TEST FOR END OF COMPDO BUFFER F3A07080 REM F3A07090 TESTD TXH *+2,2,** TEST FOR END OF COMPDO BUFFER F3A07100 TRA 1,4 RETURN OF ONE IS END. F3A07110 TRA 2,4 RETURN OF TWO IS CONTINUE. F3A07120 SPACE 5 F3A07130 REM DOUBLE BUFFER COMPAIL READ ROUTINE F3A07140 REM F3A07150 RDA01 SXA RDA10,4 SAVE IR4 F3A07160 SXA RDA09,2 SAVE IR2. F3A07170 RDA02 AXT SKLST-CAIL1,1 GET INDEX FOR NEXT BUFFER. F3A07180 TSX RDTBB,4 READ A RECORD. F3A07190 TXH RDA03,1,SKLST-CAIL2 TEST BUFFER SWITCH F3A07200 AXT SKLST-CAIL1,1 RESET INDEX FOR BUFFER 1. F3A07210 SXA RDA02,1 SAVE INDEX FOR NEXT READ. F3A07220 TRA RDA04 TRANSFER F3A07230 RDA03 AXT SKLST-CAIL2,1 RESET INDEX FOR BUFFER 2. F3A07240 SXA RDA02,1 SAVE INDEX FOR NEXT READ. F3A07250 RDA04 TXL *+1,0,** SWITCH TO READ ANOTHER RECORD FOR THEF3A07260 AXT RDA05,1 FIRST TIME THRU THIS ROUTINE. F3A07270 SXA *-2,1 THE DECREMENT OF RDA04 IS USED FOR F3A07280 SIR FAIL SET IND FOR FIRST READ OF AIL F3A07290 TRA RDA02 IR1 POINTER TO BUFFER BEING PROCESSEDF3A07300 RDA05 CLA RISE,1 GET LOGICAL TAPE NUMBER FROM DEC F3A07310 PDX ,2 AND PLACE IN IR2. COMPUTE THE ADDRESSF3A07320 TXI *+1,2,(SCHU) FOR THE STORE CHANNEL AND F3A07330 SXA RDA06,2 SAVE THE ADDRESS IN RDA06. F3A07340 RDA06 NZT ** TEST THE STORE CHANNEL CELL FOR ZERO F3A07350 TRA FAD15 YES TRANSFER OUT F3A07360 CLA* RDA06 NO GET STORE CHANNEL IN AC F3A07370 PAC ,2 LOAD IR2 WITH LAST ADDRESS PLUS ONE F3A07380 SXD RDA07,2 SAVE IR2 IN RDA07 FOR COMPUTING. F3A07390 SXD TESTA,2 SAVE IR2 IN TESTA FOR TEST. F3A07400 CLA SKLST,1 GET 1ST ADDRESS OF BUFFER IN AC F3A07410 PAX ,2 LOAD IR2 WITH 1ST ADDRESS OF BUFFER. F3A07420 RDA07 TXI *+1,2,** COMPUTE 2S COMP OF LENGTH OF BUFFER. F3A07430 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD OF BF3A07440 PXA ,2 CLEAR AC AND PUT 2S COMP OF LENGTH F3A07450 ANA L(3) IN THE ADDRESS AND GET BITS 35 AND 36F3A07460 TZE *+2 TRANSFER OUT TO ERROR CITS ARE NOT 4 F3A07470 TRA ERR12 GO TO IO PACKAGE. F3A07480 SXD RDA04,1 SAVE IR1 WITH 2S COMP OF BUFFER LOC. F3A07490 RDA08 LXD RDA04,1 LOAD IR1 F3A07500 RDA09 AXT **,2 RESTORE IR2 F3A07510 RDA10 AXT **,4 RESTORE IR4 F3A07520 TRA 1,4 RETURN F3A07530 SPACE 2 F3A07540 REM TEST FOR END OF COMPAIL BUFFER F3A07550 REM F3A07560 TESTA TXH *+2,1,** TEST FOR END OF COMPAIL BUFFER F3A07570 TRA 1,4 RETURN OF ONE IS END. F3A07580 TRA 2,4 RETURN OF TWO IS CONTINUE. F3A07590 EJECT F3A07600 REM F3A07610 REM STANDARD CIT COMPILING ROUTINE. F3A07620 REM F3A07630 REM COMPILES CITS IN AN OUTPUT BUFFER INITIALIZED AT THE F3A07640 REM BEGINNING OF A RECORD OR BLOCK OF CODING. RETURNS TO THEF3A07650 REM THIRD LOCATION FOLLOWING THE TSX. F3A07660 REM THE CALLING SEQUENCE IS AS FOLLOWS - F3A07670 REM F3A07680 REM $ TSX CIT00,4 F3A07690 REM PZE 1ST WD - ALPHA,,2ND WD - INSTRUCTION F3A07700 REM PZE 3RD WD - SYMBOL,,4TH WD - ADDEND, I-TAU F3A07710 REM $$ RETURN F3A07720 REM F3A07730 CIT00 SXA CIR1,1 **SAVE IR1, IR2, AND IR4. F3A07740 SXA CIR2,2 F3A07750 SXA CIR4,4 F3A07760 TSX CIBLD,4 $GET CIB INCREMENT. F3A07770 PDX ,2 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A07780 CIR4 AXT **,4 RELOAD IR 4. F3A07790 AXT 2,1 LOAD LOOP COUNT. F3A07800 CIT01 CLA 1,4 ..GET 1ST THEN IND WORD OF CALLING SEQUENCE. F3A07810 ARS 18 INITIALIZE CLA WITH ADDRESS OF 2ND OR 4TH F3A07820 STA *+1 WORD ADDRESSES. F3A07830 CLA ** GET 2ND THEN 4TH WORD OF CIT ENTRY. F3A07840 STO CIB+1,2 STORE IN BUFFER. F3A07850 CLA* 1,4 GET 1ST THEN 3RD WORD OF CIT ENTRY. F3A07860 STO CIB,2 STORE IN BUFFER. F3A07870 TXI *+1,4,-1 INCREMENT CALL ADDRESS. F3A07880 TXI *+1,2,-2 INCREMENT CIT BUFFER ADDRESS. F3A07890 TIX CIT01,1,1 .GO THROUGH LOOP TWICE. F3A07900 CIR1 AXT **,1 RELOAD IR 1 AND IR 2. F3A07910 CIR2 AXT **,2 F3A07920 TRA 1,4 *RETURN TO CALLER. F3A07930 REM F3A07940 REM SUBROUTINES CITIR1 AND CITIR2. F3A07950 REM F3A07960 REM SUBROUTINE CITIR1 F3A07970 REM F3A07980 REM SPECIAL SUBROUTINE TO MOVE CITS FROM ONE BUFFER TO THE F3A07990 REM OUTPUT BUFFER WHEN IR1 IS USED AS THE INCREMENT FOR THE F3A08000 REM THE INPUT BUFFER. RETURNS TO THE 1ST LOCATION AFTER THE F3A08010 REM TSX. INPUT AND OUTPUT BUFFER ADDRESSES ARE INITIALIZED F3A08020 REM AT THE BEGINNING OF A RECORD OR BLOCK OF CODE. F3A08030 REM F3A08040 REM $ TSX CITIR1,4 F3A08050 REM $$ RETURN F3A08060 REM F3A08070 CITR1 SXA KIR2,2 **SAVE IR 2 AND IR 4. F3A08080 SXA KIR4,4 F3A08090 TSX CIBLD,4 $GET CIB INCREMENT. F3A08100 PDX ,2 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A08110 AXT 4,4 LOAD LOOP COUNT. F3A08120 CITRA CLA **,1 ..GET 1ST WORD OF CIT, THEN 2ND,3RD, AND 4TH.F3A08130 STO CIB,2 STORE IN OUTPUT BUFFER. F3A08140 TXI *+1,1,-1 INCREMENT INPUT BUFFER REFERENCE. F3A08150 TXI *+1,2,-1 INCREMENT OUTPUT BUFFER REFERENCE. F3A08160 TIX CITRA,4,1 .GO BACK AND MOVE 2ND, 3RD, AND 4TH WORDS. F3A08170 KIR2 AXT **,2 RELOAD IR 2 AND IR 4. F3A08180 KIR4 AXT **,4 F3A08190 TRA 1,4 *RETURN TO CALLER. F3A08200 REM F3A08210 REM SUBROUTINE CITIR2 F3A08220 REM F3A08230 REM SUBROUTINE CITIR2 IS THE SAME AS SUBROUTINE CITIR1, F3A08240 REM EXCEPT THAT IT USES IR2 AS THE REFERENCE TO THE INPUT F3A08250 REM BUFFER. F3A08260 REM F3A08270 CITR2 SXA VIR1,1 **SAVE IR 1 AND IR 4. F3A08280 SXA VIR4,4 F3A08290 TSX CIBLD,4 $GET CIB INCREMENT. F3A08300 PDX ,1 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A08310 AXT 4,4 LOAD LOOP COUNT. F3A08320 CITRB CLA **,2 ..GET 1ST WORD OF CIT, THEN 2ND,3RD AND 4TH. F3A08330 STO CIB,1 STORE IN OUT PUT BUFFER. F3A08340 TXI *+1,1,-1 INCREMENT OUTPUT BUFFER REFERENCE. F3A08350 TXI *+1,2,-1 INCREMENT INPUT BUFFER REFERENCE. F3A08360 TIX CITRB,4,1 .GO BACK AND MOVE 2ND, 3RD, AND 4TH WORDS. F3A08370 VIR1 AXT **,1 RELOAD IR 1 AND IR 4. F3A08380 VIR4 AXT **,4 F3A08390 TRA 1,4 *RETURN TO CALLER. F3A08400 REM F3A08410 REM CIBLD SUBROUTINE. F3A08420 REM F3A08430 REM TESTS FOR A FULL CIB BUFFER AND CALLS THE I/O ROUTINE F3A08440 REM WHEN THE BUFFER IS FULL. LEAVES THE CURRENT F3A08450 REM CIB INCREMENT IN THE DECREMENT FIELD OF THE AC. F3A08460 REM F3A08470 REM ROUTINE TO WRITE FOR DOUBLE BUFFER WRITE ROUTINES F3A08480 REM F3A08490 CIBLD SXA CIBL4,4 SAVE IR4 F3A08500 LXD CINF,4 GET 2S COMP OF LAST ADDRESS F3A08510 ZET CIBL1 SWITCH TO FORCE WRITE BY 0 IN CIBL1. F3A08520 CIBL1 TXH CIBL3,4,** TEST FOR FULL BUFFER. F3A08530 CIBL2 TSX WTOV,4 YES GO TO CORRECT ROUTINE. F3A08540 LXD CINF,4 RELOAD IR4 WITH 2S COMP 1ST ADDRESS. F3A08550 CIBL3 PXD ,4 LEAVE 2S COMP IN AC FOR COMPILE. F3A08560 TXI *+1,4,-4 BUMP IR4 BY 4. F3A08570 SXD CINF,4 SAVE NEW 2S COMP IN CINF. F3A08580 CIBL4 AXT **,4 RESTORE IR4. F3A08590 TRA 1,4 RETURN F3A08600 EJECT F3A08610 REM ROUTINE TIFGO FILE OVER FLOW AND DOUBLE BUFFER OVER FLOW F3A08620 REM F3A08630 WTOV ZET WTV01 SWITCH TO TEST TIFGO FILE OVERFLOW F3A08640 WTV01 TSX ERR10,4 TRANSFER OUT DIAG. F3A08650 SXA WTV10,4 SAVE IR4 F3A08660 SXA WTV09,1 SAVE IR1 F3A08670 WTV02 TRA *+1 SWITCH FOR FIRST TIME THRU ON F3A08680 AXT WTV03,1 FIRST FILE OVERFLOW. F3A08690 SXA WTV02,1 CHANGE ADDRESS OF TRANSFER. F3A08700 LXA CINF,1 GET 1ST ADDRESS OF FIRST FILE AND F3A08710 SXA SFFIF,1 SAVE IT IN SFFIF CELL. F3A08720 AXT SKLST-FIRF1,1 LOAD IR1 WITH INDEX TO BUFFER 1 OF F3A08730 CLA SKLST,1 FIRST FILE OVERFLOW AND GET THE 1ST F3A08740 PAC ,1 ADDRESS OF THIS BUFFER AND SAVE IT F3A08750 SXD SFFIF,1 IN THE DEC OF SFFIF AND IN ADDRESS F3A08760 SXA CINF,1 OF CINF. F3A08770 WTV03 LDC CINF,4 GET LAST ADD PLUS OF BUFFER AND F3A08780 SXD WTV05,4 PUT IT IN DEC OF WTV05 F3A08790 WTV04 AXT SKLST-FIRF1,1 LOAD IR1 WITH INDEX TO BUFFER F3A08800 CLA SKLST,1 GET 2S COMP OF 1ST ADDRESS F3A08810 PAC ,4 OF BUFFER IN IR4 AND F3A08820 WTV05 TXI *+1,4,** COMPUTE LENTH OF BUFFER IN IR4. F3A08830 PXD ,4 CLEAR AC AND LENGTH IN DEC OF AC. F3A08840 STD SKLST,1 PUT WORD COUNT OF BUFFER IN COMMAND. F3A08850 ANA L(3D) GET BITS 17 AND 18 AND TEST AC FOR F3A08860 TZE *+2 ZERO. IF NON ZERO GO TO DIAG F3A08870 TSX ERR13,4 F3A08880 SXD WTV06,4 PUT BUFFER WORD COUNT IN DEC. F3A08890 LXA WARCT,4 UPDATE WORD COUNT OF OVERFLOW F3A08900 WTV06 TXI *+1,4,** IN WARCT CELL AND PUT F3A08910 SXA WARCT,4 BACK IN ADDRESS OF CELL WARCT F3A08920 TSX RDTBB,4 WRITE BUFFER F3A08930 TXH WTV07,1,SKLST-FIRF2 SWITCH TO RESET INDEX FOR NEXT WRITE F3A08940 AXT SKLST-FIRF1,1 RESET INDEX FOR BUFFER 1 F3A08950 SXA WTV04,1 SAVE INDEX. F3A08960 TRA WTV08 TRANSFER F3A08970 WTV07 AXT SKLST-FIRF2,1 RESET INDEX FOR BUFFER 2. F3A08980 SXA WTV04,1 SAVE INDEX F3A08990 WTV08 CLA SKLST,1 WITH RESET INDEX RESET CINF CELL. F3A09000 PAC ,1 PUT 2S COMP OF 1ST ADDRESS OF F3A09010 SXA CINF,1 BUFFER IN ADDRESS AND DECREMENT. F3A09020 SXD CINF,1 DECREMENT WILL DECREAS AS BUFFER F3A09030 WTVP8 TXI *+1,1,-5FRB2 IS FILLED. COMPUTE THE LAST ADDRESS. F3A09040 SXD CIBL1,1 PLUS ONE FOR TEST IN LIBLD ROUTINE. F3A09050 WTV09 AXT **,1 RESTORE IR1. F3A09060 WTV10 AXT **,4 RESTORE IR4 F3A09070 TRA 1,4 RETURN. F3A09080 SPACE 5 F3A09090 REM ROUTINE TO DOUBLE BUFFER CITS F3A09100 REM F3A09110 WTCT SXA WTC07,4 SAVE IR4. F3A09120 SXA WTC06,1 SAVE IR1. F3A09130 LDC CINF,4 GET LAST ADDRESS OF BUFFER. F3A09140 SXD WTC02,4 PUT LAST ADD IN DEC. F3A09150 WTC01 AXT SKLST-CIT31,1 GET INDEX TO BUFFER F3A09160 CLA SKLST,1 GET 1ST ADD OF CIT BUFFER. F3A09170 PAC ,4 LOAD IR4 WITH 2S COMP OF BUFFER ADD. F3A09180 WTC02 TXI *+1,4,** COMPUTE WORD COUNT F3A09190 PXD ,4 PLACE WORD COUNT IN DEC OF AC F3A09200 STD SKLST,1 PUT WORD COUNT IN COMMAND F3A09210 ANA L(3D) GET BITS 16 AND 17. F3A09220 TZE *+2 IS WORD COUNT MULTIPLE OF FOUR. F3A09230 TSX ERR14,4 NO GO TO DIAG F3A09240 PXA ,4 PUT WORD COUNT IN ADD F3A09250 ADD WARCN ADD PREVIOUS WORD COUNT F3A09260 STO WARCN STORE WORD AND RECORD COUNT F3A09270 ANA TAG4 TEST BIT 18 OF WORD COUNT F3A09280 TZE *+2 IF ZERO TRANSFER F3A09290 TSX ERR24,4 IF NOW ZERO GO TO DIAG F3A09300 TSX RDTBB,4 WRITE RECORD OF CITS. F3A09310 TXH WTC04,1,SKLST-CIT32 IS THIS BUFFER 1 OR 2 F3A09320 AXT SKLST-CIT31,1 WAS BUFFER 2 GET INDEX TO BUF 1 F3A09330 SXA WTC01,1 PUT INDEX IN WTC01 F3A09340 TRA WTC05 TRANSFER. F3A09350 WTC04 AXT SKLST-CIT32,1 WAS BUFFER 1 GET INDEX TO BUF 2. F3A09360 SXA WTC01,1 PUT INDEX IN WTC01 F3A09370 WTC05 CLA SKLST,1 GET 1ST ADD OF NEXT BUFFER F3A09380 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD F3A09390 SXA CINF,1 RESET ADDRESS AND F3A09400 SXD CINF,1 DECREMENT OF CINF. F3A09410 WTCP5 TXI *+1,1,-5CTB2 COMPUTE LAST ADDRESS OF BUFFER. F3A09420 SXD CIBL1,1 PUT IT IN TEST F3A09430 WTC06 AXT **,1 RESTORE IR1 F3A09440 WTC07 AXT **,4 RESTORE IR4 F3A09450 TRA 1,4 TRANSFER. F3A09460 EJECT F3A09470 REM ROUTINE TO READ DO FILE C F3A09480 REM F3A09490 RDC01 SXA RDC08,4 SAVE IR4 F3A09500 RDC02 AXT SKLST-A)FU1,1 GET INDEX TO BUFFER. F3A09510 TSX RDTBB,4 READ A RECORD F3A09520 TXH RDC03,1,SKLST-A)FU2 WHICH BUFFER READ F3A09530 AXT SKLST-A)FU1,1 2ND BUFFER READ GET INDEX TO 1ST F3A09540 SXA RDC02,1 SAVE INDEX FOR NEXT READ F3A09550 TRA RDC04 TRANSFER F3A09560 RDC03 AXT SKLST-A)FU2,1 1ST BUFFER READ GET INDEX TO 2ND F3A09570 SXA RDC02,1 SAVE IT FOR NEXT READ. F3A09580 RDC04 TXL *+1,0,** SWITCH FOR FIRST FIME THRU F3A09590 AXT RDC05,1 GET ADD FOR FOLLOWING TIMES THRU F3A09600 SXA RDC04,1 RESET SWITCH F3A09610 TRA RDC02 TRANSFER TO READ ANOTHER RECORD. F3A09620 RDC05 CLA RISE,1 GET TAPE NUMBER F3A09630 PDX ,2 PUT TAPE NUMBER IN IR2 F3A09640 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADDRESS F3A09650 SXA RDC06,2 SAVE IT F3A09660 RDC06 NZT ** WAS THERE A RECORD F3A09670 TRA BOUT2 NO TRANSFER OUT F3A09680 CLA* RDC06 GET THE LAST ADD F3A09690 PAC ,2 PUT THE 2S COMP OF LAST ADD IN IR2 F3A09700 SXD RDC07,2 SAVE IT FOR COMPUTATION F3A09710 SXD TESTC,2 SAVE IT IN TEST F3A09720 CLA SKLST,1 GET 1ST ADD OF BUFFER F3A09730 PAX ,2 PUT IT IN IR2 F3A09740 RDC07 TXI *+1,2,** COMPUTE THE WORD COUNT F3A09750 PAC ,1 GET 2S COMP OF 1ST ADD IN IR1 F3A09760 PXA ,2 PUT WORD COUNT IN AC. F3A09770 ANA L(3) IS WORD COUNT MULTIPLE OF 4 F3A09780 TZE *+2 YES TRANSFER F3A09790 TRA ERR23 NO GO TO IO PACKAGE. F3A09800 SXD RDC04,1 SAVE ENTRY POINT F3A09810 LXD RDC04,1 LOAD ENTRY POINT F3A09820 RDC08 AXT **,4 RESTORE IR4 F3A09830 TRA 1,4 TRANSFER F3A09840 EJECT F3A09850 REM IO PACKAGE LIST TABLE F3A09860 REM F3A09870 PZE SKLST,1,(SKBP) REWIND TAPE 4 F3A09880 PZE SKLST,1,(RBNP) READ TRALEV TAPE 4 F3A09890 PZE SKLST,1,(SKBP) SKIP 0 TAPE 2 F3A09900 PZE SKLST,1,(RBNP) READ TIFGO TAPE 2 F3A09910 PZE SKLST,1,(SKBP) SKIP 0 TAPE 4 F3A09920 PZE SKLST,1,(RBEP) READ TRALEV TAPE 4 F3A09930 PZE SKLST,1,(SKBP) SKIP 0 TAPE 2 F3A09940 PZE SKLST,1,(RBNP) READ TRAD TAPE 2 F3A09950 PZE SKLST,1,(SKBP) SKIP 0 TAPE 4 F3A09960 PZE SKLST,1,(RBEC) READ EOF TRALEV AND CHECK TAPE 4 F3A09970 PZE SKLST,1,(SKBP) SKIP 3 RECORDS TAPE 2 F3A09980 PZE SKLST,1,(RBNP) READ FORTAG TAPE 2 F3A09990 PZE SKLST,1,(SKBP) SKIP 3 FILES TAPE 2 F3A10000 PZE SKLST,1,(WBNP) WRITE ASCON3 TAPE 2 F3A10010 PZE SKLST,1,(WEFP) WRITE EOF TAPE 2 F3A10020 PZE SKLST,1,(WBNP) WRITE FIXCON TAPE 2 F3A10030 PZE SKLST,1,(WEFP) WRITE EOF TAPE 2 F3A10040 PZE SKLST,1,(SKBP) SKIP BACK 9 FILES TAPE 2 F3A10050 PZE SKLST,1,(SKBP) SKIP 1 FILE TAPE 2 F3A10060 PZE SKLST,1,(WBNP) WRITE FORFUN TAPE 3 F3A10070 PZE SKLST,1,(WEFP) WRITE EOF TAPE 3 F3A10080 PZE SKLST,1,(SKBP) REWIND TAPE 4A F3A10090 PZE SKLST,1,(WEFP) WRITE EOF TAPE 3A F3A10100 PZE SKLST,1,(SKBP) SKIP BACK 2 FILES TAPE 3A F3A10110 PZE SKLST,1,(SKBP) SKIP 1 FILE TAPE 3 F3A10120 PZE SKLST,1,(SKBP) SKIP 2 FILES AND 5 RECORDS F3A10130 PZE SKLST,1,(SKBP) REWIND TAPE 3 F3A10140 PZE SKLST,1,(WEFP) WRITE EOF TAPE 4A F3A10150 PZE SKLST,1,(RBNP) READ FORFUN TAPE 3 F3A10160 PZE SKLST,1,(SKBP) SKIP 1 FILE AND CHECK TAPE 3 F3A10170 PZE SKLST,1,(WEFP) WRITE EOF TAPE 4A F3A10180 PZE SKLST,1,(SKBP) REWIND AND CHECKED TAPE 4A F3A10190 PZE SKLST,1,(RBEP) READ COMPDO BUFFER TAPE 4 F3A10200 PZE SKLST,1,(RBEP) READ COMPDO BUFFER TAPE 4 F3A10210 PZE SKLST,1,(RBEP) READ COMPAIL BUFFER TAPE 2 F3A10220 PZE SKLST,1,(RBEP) READ COMPAIL BUFFER TAPE 2 F3A10230 SRD1 PZE SKLST,1,(WBNP) WRITE AND READ FIRST FILE OVERFLOW F3A10240 SRD2 PZE SKLST,1,(WBNP) WRITE AND READ FIRST FILE OVERFLOW. F3A10250 PZE SKLST,1,(WBNP) WRITE CITS03 BUFFER TAPE 4A F3A10260 PZE SKLST,1,(WBNP) WRITE CITS03 BUFFER TAPE 4A F3A10270 PZE SKLST,1,(RBEP) READ A)FUNC BUFFER TAPE 3 F3A10280 PZE SKLST,1,(RBEP) READ A)FUNC BUFFER TAPE 3 F3A10290 LIST SYN * F3A10300 EJECT F3A10310 REM IO PACKAGE SKLST TABLE F3A10320 REM F3A10330 SKLTX PZE 0,,0 REWIND TAPE 4 F3A10340 STRLA IORT 6TRLV,,5TRLV/2+4TRLV READ 1ST RECORD TRALEV TAPE 4. F3A10350 PZE 0,,0 SKIP TAPE 2 F3A10360 STFGO IORT 6TFGO,,5TFGO+4TFGO READ TIFGO TAPE 2. F3A10370 PZE 0,,0 SKIP TAPE 4 F3A10380 STRLB IORT 6TRLV+5TRLV/2+4TRLV,,5TRLV/2 READ 2ND TRALEV TAPE 4. F3A10390 PZE 0,,0 SKIP TAPE 2 F3A10400 STRAD IORT 6TRAD,,5TRAD+4TRAD READ TRAD TAPE 2 F3A10410 PZE 0,,0 SKIP TAPE 4 F3A10420 STRLC IORT 6FXCN,,1 READ EOF TAPE 4. F3A10430 PZE 3,,0 SKIP TAPE 2 F3A10440 SFRTG IORT 6FRTG,,5FRTG+4FRTG READ FORTAG TAPE 2. F3A10450 PZE 0,,2 SKIP TAPE 2 F3A10460 SASCN IORT 6UCTG,,** WRITE ASCON3 TAPE 2. F3A10470 PZE WRITE EOF TAPE 2 F3A10480 SFXCN IORT 6FXCN,,** WRITE FIXCON TAPE 2. F3A10490 PZE WRITE EOF TAPE 2 F3A10500 MZE 0,,8 SKIP BACK TO COMPAIL TAPE 2 F3A10510 PZE 0,,1 SKIP TO COMPAIL TAPE 2 F3A10520 SFRFW IOCT **,,** WRITE FORFUN TAPE 2 $F3A10530 PZE WRITE EOF TAPE 2 F3A10540 PZE 0,,-1 REWIND TAPE 4A F3A10550 PZE WRITE EOF TAPE 3A F3A10560 MZE 0,,2 SKIP BACK TO FIRFIL TAPE 3A F3A10570 PZE 0,,1 SKIP TO FIRFIL TAPE 3A F3A10580 PZE 5,,2 SKIP TO TIFGO AND CHECK TAPE 2 F3A10590 PZE 0,,-1 REWIND TAPE 3 F3A10600 PZE WRITE EOF TAPE 4A F3A10610 SFRFR IORT **,,** READ FORFUN TAPE 3 F3A10620 PZE 0,,1 SKIP TAPE 3 F3A10630 PZE WRITE EOF TAPE 4A F3A10640 PZE 0,,-1 REWIND AND CHECKED TAPE 4A F3A10650 CODO1 IORT 7DBF1,,5DBF1 READ COMPDO BUFFER 1 TAPE. F3A10660 CODO2 IORT 7DBF2,,5DBF2 READ COMPDO BUFFER 2 TAPE 4. F3A10670 CAIL1 IORT 7ALB1,,5ALB1 READ COMPAIL BUFFER 1 TAPE 2. F3A10680 CAIL2 IORT 7ALB2,,5ALB2 READ COMPAIL BUFFER 2 TAPE 2. F3A10690 FIRF1 IORT 7FRB1,,** WRITE AND READ FIRST 1 TAPE 3A. F3A10700 FIRF2 IORT 7FRB2,,** WRITE AND READ FIRST 2 TAPE 3A. F3A10710 CIT31 IORT 7CTB1,,** WRITE CIT03 AND A)FUN BUFF 1 TAPE 4A.F3A10720 CIT32 IORT 7CTB2,,** WRITE CIT03 AND A)FUN BUFF 2 TAPE 4A.F3A10730 A)FU1 IORT 7DCB1,,5DCB1 READ A)FUNC BUFFER 1 TAPE 3. F3A10740 A)FU2 IORT 7DCB2,,5DCB2 READ A)FUNC BUFFER 2 TAPE 3. F3A10750 SKLST SYN * F3A10760 EJECT F3A10770 REM IO PACKAGE RISE TABLE F3A10780 REM F3A10790 PZE TLABL,1,CDOTP F3A10800 PZE TLABL,1,CDOTP F3A10810 PZE TLABL,1,TBTAP F3A10820 PZE TLABL,1,TBTAP F3A10830 PZE TLABL,1,CDOTP F3A10840 PZE TLABL,1,CDOTP F3A10850 PZE TLABL,1,TBTAP F3A10860 PZE TLABL,1,TBTAP F3A10870 PZE TLABL,1,CDOTP F3A10880 PZE TLABL,1,CDOTP F3A10890 PZE TLABL,1,TBTAP F3A10900 PZE TLABL,1,TBTAP F3A10910 PZE TLABL,1,TBTAP F3A10920 PZE TLABL,1,TBTAP F3A10930 PZE TLABL,1,TBTAP F3A10940 PZE TLABL,1,TBTAP F3A10950 PZE TLABL,1,TBTAP F3A10960 PZE TLABL,1,TBTAP F3A10970 PZE TLABL,1,TBTAP F3A10980 PZE TLABL,1,CSBTP F3A10990 PZE TLABL,1,CSBTP F3A11000 PZE TLABL,1,CITTP F3A11010 PZE TLABL,1,VFLTP F3A11020 PZE TLABL,1,VFLTP F3A11030 PZE TLABL,1,VFLTP F3A11040 PZE TLABL,1,TBTAP F3A11050 PZE TLABL,1,CSBTP F3A11060 PZE TLABL,1,CITTP F3A11070 PZE TLABL,1,CSBTP F3A11080 PZE TLABL,1,CSBTP F3A11090 PZE TLABL,1,CITTP F3A11100 PZE TLABL,1,CITTP F3A11110 PZE TLABL,1,CDOTP F3A11120 PZE TLABL,1,CDOTP F3A11130 PZE TLABL,1,TBTAP F3A11140 PZE TLABL,1,TBTAP F3A11150 PZE TLABL,1,VFLTP F3A11160 PZE TLABL,1,VFLTP F3A11170 PZE TLABL,1,CITTP F3A11180 PZE TLABL,1,CITTP F3A11190 PZE TLABL,1,CSBTP F3A11200 PZE TLABL,1,CSBTP F3A11210 RISE SYN * F3A11220 EJECT F3A11230 REM IO PACKAGE TLABL TABLE F3A11240 REM F3A11250 BCI 1,TRALEV F3A11260 BCI 1,TRALEV F3A11270 ALAB1 BCI 1,TIFGO F3A11280 BCI 1,TIFGO F3A11290 BCI 1,TRALEV F3A11300 BCI 1,TRALEV F3A11310 ALAB2 BCI 1,TRAD F3A11320 BCI 1,TRAD F3A11330 BCI 1,TRALEV F3A11340 BCI 1,TRALEV F3A11350 ALAB3 BCI 1,FORTAG F3A11360 BCI 1,FORTAG F3A11370 BCI 1,ASCON3 F3A11380 BCI 1,ASCON3 F3A11390 BCI 1,ASCON3 F3A11400 BCI 1,FIXCN3 F3A11410 BCI 1,FIXCN3 F3A11420 PZE F3A11430 BCI 1,COMAIL F3A11440 BCI 1,FORFUN F3A11450 BCI 1,FORFUN F3A11460 PZE F3A11470 BCI 1,FIRFIL F3A11480 PZE F3A11490 BCI 1,FIRFIL F3A11500 BCI 1,TIFGO F3A11510 BCI 1,A)FUNC F3A11520 BCI 1,CITS03 F3A11530 ALAB7 BCI 1,FORFUN F3A11540 PZE F3A11550 ALA11 BCI 1,A)FUN F3A11560 BCI 1,CITS03 F3A11570 ALAB4 BCI 1,COMPDO F3A11580 BCI 1,COMPDO F3A11590 ALAB5 BCI 1,COMAIL F3A11600 BCI 1,COMAIL F3A11610 ALAB6 BCI 1,FIRFIL F3A11620 BCI 1,FIRFIL F3A11630 ALAB9 BCI 1,CITS03 F3A11640 ALA10 BCI 1,CITS03 F3A11650 ALAB8 BCI 1,A)FUNC F3A11660 BCI 1,A)FUNC F3A11670 TLABL SYN * F3A11680 EJECT F3A11690 REM ROUTINE TO INITIALIZE STORAGE F3A11700 REM F3A11710 HELLO CLA MEMRY GET TOP FROM ASSEMBLY AND F3A11720 ANA DCMSK COMPARE IT TO XTOP FROM PARAMETER. F3A11730 CAS XTOP IF NOT EQUAL GO TO INITIALIZATION TIRA F3A11740 TRA TIRA F3A11750 TRA *+2 GO TO NEXT TEST F3A11760 TRA TIRA F3A11770 LAC CL01A,1 GET SIZE OF UPPER IO PACKAGE IN IR1 F3A11780 PXA ,1 AND PUT IT ADDRESS OF AC. F3A11790 CAS XIOUP COMPAPE IT TO XIOUP FROM PARAMETER F3A11800 TRA TIRA IF NOT EQUAL GO TO INITIALIZATION TIRA F3A11810 TRA *+2 GO TO NEXT TEST F3A11820 TRA TIRA F3A11830 LDC CL08,1 GET SIZE OF DUMMY BUFFER 7 IN IR1 F3A11840 PXA ,1 AND PUT IT IN ADDRESS OF AC. F3A11850 CAS XDUM7 COMPARE IT TO XDUM7 FROM PARAMETER F3A11860 TRA TIRA IF EQUAL GO TO START BY PASSING INITIAL. F3A11870 TRA START IF NOT EQUAL DO INTIALIZATION. F3A11880 TIRA AXT CL14-CL01,1 LOAD IR1 WITH LENGTH OF TABLE F3A11890 CLA CL14,1 COMPUTE TABLE LOCATION AND F3A11900 TXI *+1,1,-1 STORE THEM FOR PHASE 1 AND 2 F3A11910 AXT 9DM02-9IO01,2 F3A11920 ADD CL14,1 F3A11930 ANA PTMSK MASK FOR ADD AND DEC. F3A11940 STO 9DM02,2 F3A11950 TXI *+1,2,-1 F3A11960 TIX *-4,1,1 F3A11970 PDX ,1 AC HAS LOCATION OF LOWEST TABLES FOR F3A11980 PAX ,2 PHASES 1 AND 2. F3A11990 SXD *+1,2 PHASE 1 IN ADD AND PHASE 2 IN DEC. F3A12000 TXH OTH,1,** TRANSFER IF PHASE 2 LOCATION IS HIGHER F3A12010 PXA ,1 PHASE 2 IS LOWER GET ADDRESS FOR F3A12020 XEC STR1 BOTTOM TABLE AND SUBTRACT IT FROM F3A12030 SXA 3WD,1 F3A12040 SUB 3WD F3A12050 CAS L(0) COMPARE THE RESULT TO ZERO F3A12060 TRA *+1 AC GREATER THAN ZERO F3A12070 TRA TIRB GO AND INITIALIZE REST OF THE TABLE F3A12080 LDC CL08,1 AC LESS THAN ZERO. GET THE SIZE OF F3A12090 SXA 3WD,1 F3A12100 ADD 3WD F3A12110 TMI RZT TRANSFER ON MINUS F3A12120 BRT PAC ,1 RESET DUMMY BUFFER 7 SIZE WHEN F3A12130 SXD CL08,1 PLUS AND GO BACK AND INITIALIZE F3A12140 TRA TIRA AGAIN F3A12150 RZT TZE BRT IF ZERO RESET TO ZERO F3A12160 TSX ERR1,4 IF NEGATIVE GO TO DIAG F3A12170 OTH AXT CL13-CL08,1 LOAD IR1 WITH INDEX TO GET TYPE 2 THRU F3A12180 CLA CL13,1 TYPE 6 SIZE CELLS. ADD THREE TO THE ADD F3A12190 ADD L(3) TO REDUCE THE SIZE OF THE TABLES F3A12200 STO CL13,1 USED IN THE SORT OF TRASTO F3A12210 TIX *-3,1,1 AND RETURN F3A12220 TRA TIRA TO INITIALIZE AGAIN. F3A12230 TIRB CLA 8TSCM COMPUTE TABLE LOCATIONS AND STORE F3A12240 AXT CL25-CL14,1 THEM FOR PHASES 3 AND 4 F3A12250 AXT 9DM01-9DM02,2 F3A12260 ADD CL25,1 F3A12270 ANA PTMSK MASK FOR ADD AND DEC. F3A12280 STO 9DM01,2 F3A12290 TXI *+1,2,-1 F3A12300 TIX *-4,1,1 F3A12310 CLA 8DCAR COMPUTE TABLE LOCATIONS AND STORE F3A12320 AXT CL27-CL25,1 THEM FOR PHASES 5 AND 6 F3A12330 AXT 8CTCT-9DM01,2 F3A12340 ADD CL27,1 F3A12350 ANA PTMSK MASK FOR ADD AND DEC. F3A12360 STO 8CTCT,2 F3A12370 TXI *+1,2,-1 F3A12380 TIX *-4,1,1 F3A12390 LDC CL02,1 GET 5TRALV IN IR1 F3A12400 PXA ,1 CLEAR AC AND PUT 5TRALV IN ADD. F3A12410 ARS 1 GET 5TRALV/2 F3A12420 PAX ,1 PUT 5TRALV/2 IN IR1 F3A12430 SXD STRLB,1 SKLST TABLE F3A12440 LDC CL03,2 GET 4TRALV IN IR2 F3A12450 SXD *+1,2 F3A12460 TXI *+1,1,** F3A12470 SXD STRLA,1 PUT 5TRALV/2+4TRALV IN SKLST TABLE F3A12480 LXD 8TRLV,2 GET 6TRALEV IN IR 2. F3A12490 SXA STRLA,2 PUT 6TRALV IN SKLST TABLE F3A12500 SXD *+1,2 F3A12510 TXI *+1,1,** F3A12520 SXA STRLB,1 PUT 6TRALV+5TRALV/2+4TRALV IN SKLST TABLE F3A12530 SXA PEC03,1 SAVE 1ST ADD OF SECOND TRALEV READ. F3A12540 LDC CL04,1 GET 4TIFGO F3A12550 LDC CL05,2 GET 5TIFGO F3A12560 SXD *+1,2 F3A12570 TXI *+1,1,** F3A12580 SXD STFGO,1 PUT 5TIFGO+4TIFGO IN SKLST TABLE F3A12590 LXD 8TFGO,1 GET 6TIFGO. F3A12600 SXA STFGO,1 PUT 6TIFGO IN SKLST TABLE F3A12610 LDC CL06,1 GET 5TRAD F3A12620 LDC CL07,2 GET 4TRAD F3A12630 SXD *+1,2 F3A12640 TXI *+1,1,** F3A12650 SXD STRAD,1 PUT 5TRAD+4TRAD IN SKLST TABLE F3A12660 LXD 8TRAD,1 GET 6TRAD F3A12670 SXA STRAD,1 PUT 6TRAD IN SKLST TABLE F3A12680 LDC CL09,1 GET 5FORTG F3A12690 LDC CL10,2 GET 4FORTG F3A12700 SXD *+1,2 F3A12710 TXI *+1,1,** F3A12720 SXD SFRTG,1 PUT 5FORTG+4FORTG IN SKLST TABLE F3A12730 LXD 8FRTG,1 GET 6FRTG. F3A12740 SXA SFRTG,1 PUT 6FORTG IN SKLST TABLE F3A12750 LXD 8FXCN,1 GET 6FIXCON. F3A12760 SXA SFXCN,1 PUT 6FIXCN IN SKLST TABLE F3A12770 SXA STRLC,1 PUT 6FIXCN IN SKLST TABLE F3A12780 LXD 8ASCN,1 GET 6ASCON. F3A12790 SXA SASCN,1 PUT 6ASCON IN SKLST TABLE F3A12800 LAC CL18,1 INITIALIZE COMPDO BUFFERS F3A12810 SXD CODO1,1 IN SKLST TABLE. F3A12820 SXD CODO2,1 F3A12830 LXA 9DBF1,1 F3A12840 LXA 9DBF2,2 F3A12850 SXA CODO1,1 F3A12860 SXA CODO2,2 F3A12870 LAC CL21,1 INITIALIZE COMPAIL BUFFERS F3A12880 SXD CAIL1,1 IN SKLST TABLE F3A12890 SXD CAIL2,1 F3A12900 LXA 9ALB1,1 F3A12910 LXA 9ALB2,2 F3A12920 SXA CAIL1,1 F3A12930 SXA CAIL2,2 F3A12940 LXD 9CTB1,1 INITIALIZE CIT BUFFERS. F3A12950 LXD 9CTB2,2 IN SKLST TABLE. F3A12960 SXA CIT31,1 F3A12970 SXA CIT32,2 F3A12980 LXD CL16,2 F3A12990 SXD WTCP5,2 F3A13000 SXD BOUTP,2 F3A13010 LDC CL19,1 INITIALIZE DO FILE C BUFFERS F3A13020 SXD A)FU1,1 IN SKLST TABLE F3A13030 SXD A)FU2,1 F3A13040 LXD 9DCB1,1 F3A13050 LXD 9DCB2,2 F3A13060 SXA A)FU1,1 F3A13070 SXA A)FU2,2 F3A13080 LAC 9TPE6,1 INITIALIZE FOR TYPE 6 TRASTO SORT. F3A13090 SXD 6BOX,1 AND MERGE F3A13100 TXI *+1,1,-1 F3A13110 SXD K4,1 F3A13120 SXD K2,1 F3A13130 LAC 9TPE5,1 INITIALIZE FOR TYPE 5 TRASTO SORT. F3A13140 SXD 5BOX,1 AND MERGE F3A13150 TXI *+1,1,-1 F3A13160 SXD J6,1 F3A13170 SXD J3,1 F3A13180 LAC 9TPE4,1 INITIALIZE FOR TYPE 4 TRASTO SORT. F3A13190 SXD 4BOX,1 AND MERGE F3A13200 TXI *+1,1,-1 F3A13210 SXD I3,1 F3A13220 SXD I2,1 F3A13230 LAC 9TPE3,1 INITIALIZE FOR TYPE 3 TRASTO SORT. F3A13240 SXD 3BOX,1 AND MERGE F3A13250 TXI *+1,1,-1 F3A13260 SXD H6,1 F3A13270 SXD H4,1 F3A13280 LAC 9TPE2,1 INITIALIZE FOR TYPE 2 TRASTO SORT. F3A13290 SXD 2BOX,1 AND MERGE F3A13300 TXI *+1,1,-1 F3A13310 SXD G3,1 F3A13320 SXD G4,1 F3A13330 LAC 9TRST,1 INITIALIZE 1 BOX FOR TYPE 1 TRASTO SORT. F3A13340 SXD 1BOX,1 AND MERGE. F3A13350 LXA CL23,1 INITIALIZE OVERFLOW BUFFER SIZE. F3A13360 SXD WTVP8,1 F3A13370 LAC CL24,1 F3A13380 SXD PC13B,1 F3A13390 EJECT F3A13400 REM START OF SECTION THREE F3A13410 SPACE 3 F3A13420 START LDI L(0) RESET INDICATORS TO ZERO F3A13430 STR1 AXT BTTAB,1 GET BOTTOM ADDRESS OF TABLE IN IR 1. F3A13440 LXA 8FXCN,2 GET TOP ADDRESS OF STORAGE TO BE ZEROED. F3A13450 SXA *+3,2 F3A13460 SXD *+1,1 F3A13470 TIX *+1,2,** F3A13480 STZ **,2 ZERO STORAGE F3A13490 TIX *-1,2,1 F3A13500 AXT 4,2 F3A13510 TSX RDTBA,4 READ 1ST FOUR IO COMMANDS F3A13520 TIX *-1,2,1 F3A13530 LAC 9TRST,1 GET TRASTO ENTRY POINT. F3A13540 SXA M2103,1 INITIALIZE TRASTO ENTRY POINT. F3A13550 SXD M2701,1 INITIALIZE TRASTO TEST. F3A13560 NZT* 8TRST IS TRASTO EMPTY. F3A13570 TRA PACK YES F3A13580 CLA 9TRST NO GET TRASTO ADDRESS. F3A13590 ADD* 8TRST ADD TRASTO WORD COUNT. F3A13600 PAC ,2 GET 2S COMP OF LAST ADDRESS IN IR2 F3A13610 SXD M2701,2 INITIALIZE TEST. F3A13620 SXD A1,2 INITIALIZE TEST FOR TRASTO SORT F3A13630 SXD B3,2 F3A13640 SXD C5,2 F3A13650 SXD D3,2 F3A13660 SXD E4,2 F3A13670 SXD F6,2 F3A13680 TXI A4,1,-2 BUMP IR1 TO GET 3ND WORD IN TRASTO ENTRY F3A13690 SPACE 5 F3A13700 REM TRASTO SORT F3A13710 REM F3A13720 A4 CLA TRAST,1 GET 3RD WORD. F3A13730 TMI D1 MINUS IS TYPE 4,5 AND 6 F3A13740 SPACE 1 F3A13750 REM ENTRY IS TYPE 1,2 OR 3. F3A13760 REM F3A13770 TXI *+1,1,2 RESTORE TO 1ST WORD F3A13780 CLA TRAST,1 GET 1ST WORD. F3A13790 TPL B2 PLUS IS TYPE 1 OR 2 F3A13800 SPACE 1 F3A13810 REM ENTRY IS TYPE 3 F3A13820 REM F3A13830 LXA L(3),4 PLACE COUNT OF 3 IN IR 4 F3A13840 LXD 3BOX,2 LOAD IR2 WITH CURRENT 2S COMP OF TYPE 3LOCF3A13850 A3 CAL TRAST,1 GET CURRENT TRASTO. F3A13860 SLW TYPE3,2 STORE IN TYPE 3 F3A13870 TXI *+1,2,-1 INCREASE IR 2 BY 1 F3A13880 SXD 3BOX,2 SAVE IR 2 F3A13890 TXI *+1,1,-1 INCREASE IR 1 BY 1 TO GET NEXT TRASTO F3A13900 A1 TXL PACK,1,** *EXIT FOR END OF TRASTO F3A13910 TIX A3,4,1 LOOP BACK FOR THREE WORD OF ENTRY F3A13920 TXI A4,1,-2 BACK TO PICK UP NEXT TRASTO ENTRY F3A13930 SPACE 1 F3A13940 REM ENTRY IS TYPE 1 OR 2 F3A13950 REM F3A13960 B2 TXI *+1,1,-1 F3A13970 CAL TRAST,1 OBTAIN 2ND WORD. F3A13980 ANA MASK EXAMINE PREFIX, TYPE 2 IF MINUS F3A13990 TZE C1 F3A14000 SPACE 1 F3A14010 REM ENTRY IS TYPE 2 F3A14020 REM F3A14030 TXI *+1,1,1 RESTORE IR 1 TO GET 1ST WORD F3A14040 LXA L(3),4 F3A14050 LXD 2BOX,2 F3A14060 B5 CAL TRAST,1 F3A14070 SLW TYPE2,2 F3A14080 TXI *+1,2,-1 F3A14090 SXD 2BOX,2 F3A14100 TXI *+1,1,-1 F3A14110 B3 TXL PACK,1,** F3A14120 TIX B5,4,1 F3A14130 TXI A4,1,-2 F3A14140 SPACE 1 F3A14150 REM ENTRY IS TYPE 1 F3A14160 REM F3A14170 C1 TXI *+1,1,1 RESTORE IR 1 TO GET 1ST WORD F3A14180 LXA L(3),4 F3A14190 LXD 1BOX,2 F3A14200 C2 CAL TRAST,1 F3A14210 SLW TYPE1,2 F3A14220 TXI *+1,2,-1 F3A14230 SXD 1BOX,2 F3A14240 TXI *+1,1,-1 F3A14250 C5 TXL PACK,1,** F3A14260 TIX C2,4,1 F3A14270 TXI A4,1,-2 F3A14280 SPACE 1 F3A14290 REM ENTRY IS TYPE 4,5 OR 6 F3A14300 REM F3A14310 D1 TXI *+1,1,2 RESTORE IR 1 TO GET 1ST WORD F3A14320 CLA TRAST,1 OBTAIN 1ST WORD. F3A14330 TPL E2 ENTRY IS TYPE 4 OR 6 F3A14340 SPACE 1 F3A14350 REM ENTRY IS TYPE 5 F3A14360 REM F3A14370 LXA L(3),4 F3A14380 LXD 5BOX,2 F3A14390 D2 CAL TRAST,1 F3A14400 SLW TYPE5,2 F3A14410 TXI *+1,2,-1 F3A14420 SXD 5BOX,2 F3A14430 TXI *+1,1,-1 F3A14440 D3 TXL PACK,1,** F3A14450 TIX D2,4,1 F3A14460 TXI A4,1,-2 F3A14470 SPACE 1 F3A14480 REM ENTRY IS TYPE 4 OR 6 F3A14490 REM F3A14500 E2 TXI *+1,1,-1 F3A14510 CAL TRAST,1 OBTAIN 2ND WORD. F3A14520 ANA MASK TEST IF MINUS F3A14530 TZE F4 ENTRY IS TYPE 4 F3A14540 SPACE 1 F3A14550 REM ENTY IS TYPE 6 F3A14560 REM F3A14570 TXI *+1,1,1 RESTORE COUNT TO GET 1ST WORD F3A14580 LXA L(3),4 F3A14590 LXD 6BOX,2 F3A14600 E3 CAL TRAST,1 F3A14610 SLW TYPE6,2 F3A14620 TXI *+1,2,-1 F3A14630 SXD 6BOX,2 F3A14640 TXI *+1,1,-1 F3A14650 E4 TXL PACK,1,** F3A14660 TIX E3,4,1 F3A14670 TXI A4,1,-2 F3A14680 SPACE 1 F3A14690 REM ENTRY IS TYPE 4 F3A14700 REM F3A14710 F4 TXI *+1,1,1 RESTORE COUNT TO GET 1ST WORD F3A14720 LXA L(3),4 F3A14730 LXD 4BOX,2 F3A14740 F5 CAL TRAST,1 F3A14750 SLW TYPE4,2 F3A14760 TXI *+1,2,-1 F3A14770 SXD 4BOX,2 F3A14780 TXI *+1,1,-1 F3A14790 F6 TXL PACK,1,** F3A14800 TIX F5,4,1 F3A14810 TXI A4,1,-2 F3A14820 SPACE 1 F3A14830 REM CONTROL TABLE FOR TRASTO SORT F3A14840 REM F3A14850 1BOX PZE ,,-7TRST VARIES TO 2S COMP OF LAST TYPE 1 TRASTO. F3A14860 2BOX PZE ,,-7TPE2 VARIES TO 2S COMP OF LAST TYPE 2 TRASTO. F3A14870 3BOX PZE ,,-7TPE3 VARIES TO 2S COMP OF LAST TYPE 3 TRASTO. F3A14880 4BOX PZE ,,-7TPE4 VARIES TO 2S COMP OF LAST TYPE 4 TRASTO. F3A14890 5BOX PZE ,,-7TPE5 VARIES TO 2S COMP OF LAST TYPE 5 TRASTO. F3A14900 6BOX PZE ,,-7TPE6 VARIES TO 2S COMP OF LAST TYPE 6 TRASTO. F3A14910 SPACE 3 F3A14920 REM READ AND CHECK TABLES F3A14930 REM F3A14940 PACK TSX RDTBA,4 SKIP 0,,0 TAPE 4 F3A14950 CLA* 9TRLV CHECK 1ST WORD OF TRALEV FOR ZERO. F3A14960 TZE PACK3 YES ZERO TRANSFER F3A14970 TSX SCHU1,4 NO GET STORE CHANNEL IN ADD OF AC F3A14980 SUB 9TRLV SUBTRACT 1ST ADD OF TRALEV. F3A14990 PAX ,2 LOAD IR2 WITH WORD COUNT F3A15000 CLA STRLB GET 5TRALV/2 IN DEC OF AS F3A15010 PDX ,1 LOAD IR1 WITH 5TRALV/2 F3A15020 SXD *+1,2 COMPARE WORDS READ INTO MEMORY WITH MAX F3A15030 TXH PACK2,1,** WORDS FOR ONE RECORD. IF EQUAL DROP THRU. F3A15040 TSX RDTBA,4 READ NEXT RECORD OF TRALEV F3A15050 PACK1 TSX RDTBA,4 SKIP 0,,0 TAPE 2 F3A15060 CLA* 8TFGO CHECK LABEL FOR TIFGO. F3A15070 SUB L(2) TIFGO LABEL SHOULD BE 2 F3A15080 TZE *+2 TRANSFER FOR CORRECT LABEL F3A15090 TRA ERR2 GO TO IO PACAGE FOR INCORRECT LABEL F3A15100 TSX SCHU1,4 GET STORE CHANNEL IN ADD OF AC F3A15110 PAC ,2 PUT 2S COMP OF LAST ADDRESS IN IR2 F3A15120 SXD M2101,2 INITIALIZE TIFGO TEST. F3A15130 LAC 9TFGO,2 GET 2S COMP OF 1ST TIFGO ADD IN IR 2. F3A15140 SXA M2100,2 INITIALIZE TIFGO CELL. F3A15150 SUB 9TFGO SUBTRACT 1ST ADD TO GET WORD COUNT. F3A15160 PAX ,2 PUT WORD COUNT F3A15170 PXD ,2 IN DEC OF AC F3A15180 LXA 8TFGO,2 GET ADDRESS OF F3A15190 TXI *+1,2,1 CELL WITH WORD COUNT IN TABLE LABEL F3A15200 SXA *+1,2 AND F3A15210 SUB ** SUBTRACT IT F3A15220 TZE PACK4 TRANSFER IF EQUAL. F3A15230 TRA ERR3 NOT EQUAL GO TO IO PACKAGE. F3A15240 PACK2 SXA RAVEL,2 SAVE TRALEV WORD COUNT IN ADD OF RAVEL F3A15250 PACK3 XEC RDTBA BUMP COUNTER IN RDTBA ROUTINE F3A15260 TXI *+1,1,-1 TO BY PASS SECOND READ OF TRALEV F3A15270 SXA RDTBA,1 RESTORE INTO COUNTER F3A15280 TRA PACK1 TRANSFER BACK F3A15290 PACK4 TSX RDTBA,4 READ TRAD F3A15300 NZT* 8TRST IS TRASTO EMPTY. F3A15310 TRA PEC02 YES F3A15320 SPACE 3 F3A15330 REM TYPE 2 TRASTO PACK F3A15340 REM F3A15350 LXD 1BOX,1 LOAD IR1 WITH 2S COMP OF LAST TYPE 1 F3A15360 SXD M2801,1 INITIALIZE TIFGO FILE TEST. F3A15370 LXD 2BOX,4 LOAD IR4 WITH 2S COMP OF LAST TYPE 2 F3A15380 G3 TXH H5,4,-7TPE2-1 IF HIGHER NO TYPE 2 TRASTO FOR PACK. F3A15390 LAC 9TPE2,2 LOAD IR2 WITH 2S COMP OF 1ST ADD OF TYPE 2F3A15400 G5 CAL TYPE2,2 GET TYPE 2 AND F3A15410 SLW TYPE1,1 STORE ABOVE TYPE 1 IN TRASTO TABLE F3A15420 TXI *+1,1,-1 BUMP IR1 F3A15430 TXI *+1,2,-1 BUMP IR2 F3A15440 TXI *+1,4,1 BUMP IR4 F3A15450 G4 TXL G5,4,-7TPE2-1 TEST IF ALL TYPE 2 HAVE BEEN MOVED. F3A15460 SPACE 1 F3A15470 REM TYPE 3 TRASTO PACK F3A15480 REM F3A15490 H5 SXD M2802,1 INITIALIZE FOR TIFGO FILE. F3A15500 LXD 3BOX,2 F3A15510 H6 TXH I5,2,-7TPE3-1 F3A15520 LAC 9TPE3,4 F3A15530 H3 CAL TYPE3,4 F3A15540 SLW TYPE1,1 F3A15550 TXI *+1,1,-1 F3A15560 TXI *+1,4,-1 F3A15570 TXI *+1,2,1 F3A15580 H4 TXL H3,2,-7TPE3-1 F3A15590 SPACE 1 F3A15600 REM TYPE 4 TRASTO PACK F3A15610 REM F3A15620 I5 SXD M2803,1 INITIALIZE FOR TIFGO FILE. F3A15630 SXD CMP03,1 INITIALIZE FOR TIFGO FILE. F3A15640 LXD 4BOX,4 F3A15650 I3 TXH J5,4,-7TPE4-1 F3A15660 LAC 9TPE4,2 F3A15670 I1 CAL TYPE4,2 F3A15680 SLW TYPE1,1 F3A15690 TXI *+1,1,-1 F3A15700 TXI *+1,2,-1 F3A15710 TXI *+1,4,1 F3A15720 I2 TXL I1,4,-7TPE4-1 F3A15730 SPACE 1 F3A15740 REM TYPE 5 TRASTO PACK F3A15750 REM F3A15760 J5 SXD M2804,1 INITIALIZE FOR TIFGO FILE. F3A15770 SXD CMP04,1 INITIALIZE FOR TIFGO FILE. F3A15780 SXD CMP08,1 INITIALIZE FOR TIFGO FILE. F3A15790 LXD 5BOX,2 F3A15800 J6 TXH K5,2,-7TPE5-1 F3A15810 LAC 9TPE5,4 F3A15820 J2 CAL TYPE5,4 F3A15830 SLW TYPE1,1 F3A15840 TXI *+1,1,-1 F3A15850 TXI *+1,4,-1 F3A15860 TXI *+1,2,1 F3A15870 J3 TXL J2,2,-7TPE5-1 F3A15880 SPACE 1 F3A15890 REM TYPE 6 TRASTO PACK F3A15900 REM F3A15910 K5 SXD M2805,1 INITIALIZE FOR TIFGO FILE. F3A15920 LXD 6BOX,4 F3A15930 K4 TXH PEC01,4,-7TPE6-1 F3A15940 LAC 9TPE6,2 F3A15950 K1 CAL TYPE6,2 F3A15960 SLW TYPE1,1 F3A15970 TXI *+1,1,-1 F3A15980 TXI *+1,2,-1 F3A15990 TXI *+1,4,1 F3A16000 K2 TXL K1,4,-7TPE6-1 F3A16010 PEC01 SXD M2806,1 INITIALIZE FOR TIFGO FILE. F3A16020 SPACE 3 F3A16030 REM READ AND CHECK THE REMAINING TABLES F3A16040 REM F3A16050 PEC02 TSX RDTBA,4 SKIP 0,,0 TAPE 4 F3A16060 NZT* 9TRLV WAS TRALEV EMPTY. F3A16070 TRA PEC04 YES TRANSFER F3A16080 ZET RAVEL WAS TRALEV ONE RECORD F3A16090 TRA PEC04 YES TRANSFER F3A16100 PEC03 NZT 6TRLV+5TRLV/2+4TRLV DID 2ND READ TRLV TRANSMIT. F3A16110 TRA PEC06 NO TRANSFER F3A16120 TSX SCHU1,4 YES GET STORE CHANNEL IN AC F3A16130 SUB 9TRLV COMPUTE TRALEV WORD COUNT BY SUBTRACTING. F3A16140 PAX ,2 1ST LOCATION AND LOADING IR1 WITH ADD F3A16150 SXA RAVEL,2 AND SAVING IN ADDRESS OF RAVEL F3A16160 PEC04 TSX RDTBA,4 TRY TO READ ANOTHER RECORD OF TRALEV F3A16170 PEC05 TSX SCHU1,4 GET STORE CHANNEL IN AC F3A16180 TZE *+2 AC SHOULD BE ZERO BECAUSE OF EOF F3A16190 TSX ERR4,4 AC NOT ZERO GO TO DIAG. F3A16200 TSX RDTBA,4 SKIP 3,,0 TAPE 2 F3A16210 CLA* 8TRAD GET TRAD LABEL F3A16220 SUB L(3) IS LABEL 3 F3A16230 TZE *+2 YES TRANSFER F3A16240 TRA ERR5 NO GO TO IO PACKAGE F3A16250 TSX SCHU1,4 YES GET STORE CHANNEL IN AC F3A16260 LAC 8TFGO,2 LOAD IR2 WITH 2S COMP LAST POSSIBLE TRAD. F3A16270 SXD TWO02,2 INITIALIZE FOR TIFGO FILE F3A16280 TXI *+1,2,1 BUMP IR2 F3A16290 SXD TWO03,2 INITIALIZE FOR TIFGO FILE F3A16300 SUB 9TRAD SUBTRACT 1ST ADD F3A16310 PAX ,2 LOAD IR2 WITH TRAD WORD COUNT F3A16320 LXA 8TRAD,1 GET LABEL ADDRESS F3A16330 TXI *+1,1,1 BUMP TO GET WORD COUNT OF LABEL F3A16340 SXA *+2,1 SAVE ADD OF LABEL WORD COUNT F3A16350 PXD ,2 CLEAR AC AND PUT COMPUTED TRAD WORD COUNT F3A16360 SUB ** IN DEC AND SUBTRACT LABEL WORD COUNT F3A16370 TZE *+2 WORD COUNTS AGREE TRANSFER F3A16380 TRA ERR6 NO AGREEMENT GO TO IO PACKAGE. F3A16390 TSX RDTBA,4 READ FORTAG F3A16400 TSX RDTBA,4 SKIP TO ASCON F3A16410 LXD 8FRTG,2 GET ADD OF FORTAG LABEL. F3A16420 SXA *+3,2 SAVE ADD. F3A16430 TXI *+1,2,1 GET ADD OF FORTAG WORD COUNT. F3A16440 SXA PECA5,2 SAVE ADD OF FORTAG WORD COUNT. F3A16450 CLA ** GET FORTAG LABEL IN AC. F3A16460 SUB L(4) IS LABEL 4 F3A16470 TZE *+2 YES TRANSFER F3A16480 TRA ERR7 NO GO TO IO PACKAGE. F3A16490 TSX SCHU1,4 GET STORE CHANNEL IN AC F3A16500 PAC ,2 LOAD IR2 WITH 2S COMP OF LAST ADD FORTG F3A16510 SXD PEC12,2 INITIALIZE EDIT CHANGE TAG TEST F3A16520 PAX ,1 GET LAST ADD OF FORTAG F3A16530 LDC 9FRTG,2 GET FIRST ADD OF FORTAG. F3A16540 SXD *+1,2 SAVE IT. F3A16550 TXI *+1,1,** SUB FIRST ADD FROM LAST ADD. F3A16560 PXD ,1 PUT FORTAG WORD COUNT IN DEC F3A16570 PECA5 SUB ** DOES IT AGREE WITH WC IN LABEL F3A16580 TZE PEC07 YES TRANSFER F3A16590 TRA ERR8 NO GO TO IO PACKAGE. F3A16600 PEC06 XEC RDTBA RESET COUNTER F3A16610 TXI *+1,1,-1 FOR RDTBA ROUTINE F3A16620 SXA RDTBA,1 AND SAVE BACK IN COUNT F3A16630 TRA PEC05 TRANSFER F3A16640 SPACE 5 F3A16650 REM ROUTINE TO GET STORE CHANNEL CELL IN AC F3A16660 REM F3A16670 SCHU1 SXA SCHU2,4 SAVE IR4 F3A16680 XEC RDTBA GET COUNTER F3A16690 TXI *+1,1,1 BUMP COUNTER IRI. F3A16700 CLA RISE,1 GET RISE WITH LOGICAL TAPE NUMBER IN DEC F3A16710 PDX ,2 PUT TAPE NUMBER IN IR2 F3A16720 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADDRESS F3A16730 SXA *+1,2 PUT STORE CHANNEL ADDRESS IN CLA F3A16740 CLA ** GET STORE CHANNEL IN AC. F3A16750 SCHU2 AXT **,4 RESTORE IR4 F3A16760 TRA 1,4 F3A16770 SPACE 1 F3A16780 REM SEARCH UNEDITED CHANGE TAG FOR FORTAG IFN F3A16790 REM F3A16800 PEC14 CLA FORTG,1 GET CURRENT FORTAG. F3A16810 ANA DCMSK GET FORTAG IFN. F3A16820 STD CMBOX SAVE IN COMBOX. F3A16830 CLA UCHTG,4 GET THE LOWER UCHTG IFN F3A16840 ANA DCMSK AND COMPARE WITH FORTAG IFN. F3A16850 CAS CMBOX F3A16860 TXI PEC11,4,-2 UCHTG IFN GREATER GO BACK F3A16870 TXI PEC11,4,-2 UCHTG IFN EQUAL GO BACK. F3A16880 CLA UCHTG,4 UCHTG IFN LOWER CONTINUE F3A16890 ANA ADMSK GET THE UPPER UNEDITED CHANGE TAG IFN. F3A16900 ALS 18 IN THE DEC F3A16910 CAS CMBOX COMPARE AGAIN. F3A16920 TRA PEC15 UCHTG IFN GREATER CONTINUE F3A16930 TRA PEC15 UCHTG IFN EQUAL CONTINUE F3A16940 TXI PEC11,4,-2 UCHTG IFN LOWER GO BACK F3A16950 PEC15 CLA CMBOX GET IFN FROM FORTAG AND F3A16960 STO CHTG,2 PUT IN 1ST WORD OF EDITED CHANGE TAG ENTRYF3A16970 CLA UCHTG+1,4 GET 2ND WORD OF UNEDITED CHANGE TAG F3A16980 STO CHTG+1,2 AND PUT IN 2ND WORD OF EDITE CHTG ENTRY F3A16990 TXI *+1,2,-2 BUMP IR2 FOR NEXT CHTG ENTRY F3A17000 PEC16 TXH PC11A,2,** TEST FOR OVERFLOW AND GO BACK F3A17010 TSX ERR9,4 GO TO DIAG ON OVERFLOW F3A17020 SPACE 1 F3A17030 REM ROUTINE TO SET CELLS FOR CHANGE TAG TABLE SEARCH F3A17040 REM F3A17050 CHTGA SXA CHTGE,4 SAVE IR4. F3A17060 XEC M1251 GET CURRENT CHTG ENTRY IN IR4 F3A17070 CLA CHTG,4 GET 1ST WORD OF CHTG F3A17080 STO CHTFN SAVE CHANGE TAG IFN. F3A17090 CHTGB TXI *+1,4,-2 BUMP IR4 TO NEXT ENTRY F3A17100 CHTGC TXL CHTGD,4,** TEST FOR END OF CHANGE TAG F3A17110 CLA CHTG,4 GET NEXT CHTG IFN F3A17120 SUB CHTFN SUBTRACT IT FORM PREVIOUS IFN. F3A17130 TZE CHTGB IF THEY ARE EQUAL GO BACK F3A17140 CHTGD SXA M1254,4 IF NOT EQUAL SET CELL IN TABLE SEARCH F3A17150 CHTGE AXT **,4 RESTORE IR4 F3A17160 TRA 1,4 TRANSFER F3A17170 SPACE 1 F3A17180 REM CHANGE TAG TABLE SEARCH F3A17190 REM F3A17200 M1250 SXA M1253,4 SAVE IR 4. F3A17210 SXA M1252,2 SAVE IR2 F3A17220 CLA AIL+3,1 GET TAG FROM 4TH WORD OF CIT F3A17230 PAX ,2 F3A17240 SXD TGBOX,2 F3A17250 M1251 AXT **,4 LOAD IR4 WITH ENTRY POINT TO CHTG F3A17260 CLA CHTG,4 GET 1ST WORD OF CHTG WITH IFN F3A17270 CAS MALFN COMPARE TO CIT IFN. F3A17280 TRA M1252 CHTG IFN GREATER TRANSFER OUT F3A17290 TRA M1254 CHTG IFN EQUAL CONTINUE F3A17300 TRA M1258 CHTG IFN LESS F3A17310 M1252 AXT **,2 RESTORE IR2 F3A17320 M1253 AXT **,4 RESTORE IR4. F3A17330 TRA 1,4 TRANSFER. F3A17340 M1254 AXT **,2 LOAD IR2 WITH END POINT OF BLOCK OF IFN F3A17350 SXD M1256,2 STORE IR2 FOR TEST F3A17360 M1255 TXI *+1,4,-1 BUMP IR4 F3A17370 CLA CHTG,4 AND GET SECOND CHTG ENTRY F3A17380 PAX ,2 SAVE NEW TAG IN IR2 F3A17390 ANA DCMSK GET OLD TAG IN DEC. F3A17400 SUB TGBOX COMPARE TO TAG OF CIT. F3A17410 TZE M1257 EQUAL TRANSFER AND CONTINUE F3A17420 TXI M1256,4,-1 NOT EQUAL GO TO 1ST WORD OF NEXT CHTG F3A17430 M1256 TXH M1255,4,** TEST IF STILL IN CHTG BLOCK OF IFN F3A17440 TRA M1252 NO GO OUT F3A17450 M1257 PXA ,2 MATCH PUT NEW TAG IN AC ADD F3A17460 STA AIL+3,1 PUT NEW TAG IN ADD OF 4TH WORD OF CIT F3A17470 TRA M1252 GO OUT F3A17480 M1258 XEC M1254 GET OLD UPPER BLOCK LIMIT F3A17490 SXA M1251,2 AND MAKE IT NEW LOWER ENTRY POINT F3A17500 M1259 TXH M1260,2,** TEST FOR END CHANGE TAG F3A17510 SIR NOCHG YES SET INDICATOR FOR END F3A17520 TRA M1252 THEN GO OUT F3A17530 M1260 TSX CHTGA,4 NO COMPUT NEW UPPER BLOCK LIMIT F3A17540 TRA M1251 GO BACK TO CHANGE TAG SEARCH. F3A17550 REM F3A17560 SPACE 5 F3A17570 REM INITIALIZE EDIT CHANGE TAG F3A17580 REM F3A17590 PEC07 NZT* 8UCTG IS UNEDITED CHAGE TAG EMPTY. F3A17600 TRA PEC13 YES TRANSFER F3A17610 CLA* 8UCTG NO INITIALIZE. F3A17620 ADD 9UCTG COMPUTE THE 2S COMP. F3A17630 PAC ,2 OF LAST ADDRESS AND F3A17640 SXD PEC11,2 SAVE IN TEST F3A17650 LDC 9DM08,2 GET 2S COMP OF LAST PERMISSIBLE CHANGE F3A17660 SXD PEC16,2 TAG ADDRESS AND SAVE IN OVERFLOW TEST F3A17670 LDC 9FRTG,1 LOAD IR1 WITH 2S COMP FOR FORTAG. F3A17680 LDC 9CHTG,2 LOAD IR2 WITH 2S COMP FOR CHANGE TAG F3A17690 SXA M1251,2 INITIALIZE CELL IN CHANGE TAG SEARCH F3A17700 PEC08 CLA FORTG,1 GET 1ST FORTAG. F3A17710 CAS FORTG+1,1 COMPARE TO 2ND FORTAG AND F3A17720 TRA PEC09 SKIP OVER SUCCESSIVE DUPLICATES F3A17730 TXI PEC08,1,-1 TRANSFER BACK F3A17740 PEC09 PAX ,4 GET TAG AND PUT IN F3A17750 SXD ERAS,4 DECREMENT OF ERAS F3A17760 LAC 9UCTG,4 LOAD IR4 WITH 2S COMP 1ST UNEDITED CHTAG. F3A17770 PEC10 CLA UCHTG+1,4 GET 2ND WORD OF UNEDITED CHANGE TAG. F3A17780 ANA DCMSK AND COMPARE TAG1 IN DEC WITH TAG F3A17790 CAS ERAS FROM FORTAG F3A17800 TXI PEC11,4,-2 GO TO TEST FOR END OF UCHTAG WHEN NOT EQU F3A17810 TRA PEC14 EQUAL TRANSFER F3A17820 TXI PEC11,4,-2 GO TO TEST F3A17830 PEC11 TXH PEC10,4,** TEST FOR END OF UCHTAG F3A17840 PC11A TXI *+1,1,-1 BUMP IR 1 TO NEXT FORTAG. F3A17850 PEC12 TXH PEC08,1,** TEST FOR END OF FORTAG F3A17860 SPACE 5 F3A17870 REM END OF CHANGE TAG EDIT F3A17880 REM F3A17890 SXD CHTGC,2 SET CELL IN CHTGA ROUTINE FOR TEST F3A17900 SXD M1259,2 SET CELL IN CHTG SEARCH ROUTINE FOR TEST F3A17910 TSX CHTGA,4 SET CELLS FOR CHANGE TAG TABLE SEARCH F3A17920 TRA *+2 TRANSFER. F3A17930 PEC13 SIR NOCHG SET INDICATOR FOR NO CHANGE TAG TABLE F3A17940 RNT NOCHG IS THERE CHTG TABLE. F3A17950 TRA *+2 YES TRANSFER IR 2 HAS LAST ADD CHTG. F3A17960 LDC 9CHTG,2 NO LOAD IR 2 WITH ADD FOR NO CHTG. F3A17970 LXA 8TRAD,1 GET 1ST ADD OF TRAD TABLE. F3A17980 SXD *+1,2 COMPUTE LENGTH FROM TOP CHTAG. F3A17990 TXI *+1,1,** OR NO CHTAG TO TRAD. F3A18000 PXA ,1 PLACE LENGTH IN AC ADD. F3A18010 ANA L(3) GET BITS 34 AND 35 IF ANY. F3A18020 PAC ,1 PLACE COMP OF BITS IN IR 1. F3A18030 SXD *+1,1 COMPUTATION TO MAKE TIFGO FILE. F3A18040 TXI *+1,2,** BUFFER MULTIPLE OF FOUR. F3A18050 SXD CINF,2 SET ADD AND DEC IN CINF FOR F3A18060 SXA CINF,2 COMPILING F3A18070 LXA 9FRB1,1 GET ADD OF 1ST OVERFLOW BUFFER. F3A18080 SXD *+1,1 COMPUTE LENGTH FROM TOP CHTAG. F3A18090 TXI *+1,2,** OR NO CHTAG TO 1ST OVERFLOW BUFFER. F3A18100 PXA ,2 PLACE LENGTH IN AC ADD. F3A18110 ANA L(3) GET BITS 34 AND 35 IF ANY. F3A18120 PAC ,2 PLACE COMP OF BITS IN IR 2. F3A18130 SXD *+1,2 COMPUTATION TO MAKE F3A18140 TXI *+1,1,** FIRST FILE OVERFLOW. F3A18150 SXA FIRF1,1 BUFFER A MULTIPLE OF FOUR. F3A18160 PC13B TXI *+1,1,5FRB1 BUMP BY LENGTH OF 1ST BUFFER. F3A18170 SXA FIRF2,1 SET 2ND BUFFER. F3A18180 NOP NOT USED $F3A18190 PC13A STZ* 8ASCN SET ASCON WORD COUNT TO ZERO. F3A18200 LAC 8TRAD,2 LOAD IR2 WITH 2S COMP TRAD LABEL F3A18210 SXD CIBL1,2 AND SAVE TO TEST TIFGO FILE OVERFLOW F3A18220 LAC 8TRST,2 SET CELL IN TIFGO FILE FOR F3A18230 SXD SIX03,2 ASSIGN OVERFLOW F3A18240 LAC 9ASCN,2 SET CELL IN TIFGO FILE FOR F3A18250 SXA SIX02,2 ASSIGN ENTRY F3A18260 CLA RAVEL COMPUTE TRAVEV F3A18270 ADD 9TRLV LENGTH FOR TIFGO FILE TEST. F3A18280 PAC ,2 INITIALIZE. F3A18290 SXD M2102,2 TESTS IN F3A18300 SXD M2107,2 TIFGO FILE CREATION. F3A18310 LAC 9TRLV,2 LOAD IR2 WITH TRALEV ENTRY. F3A18320 EJECT F3A18330 REM CREATE THE TIFGO FILE F3A18340 REM F3A18350 RTURN RIR IFIN $RESET INDICATORS. F3A18360 M2100 AXT **,1 +LOAD IR1 WITH CURRENT TIFGO ENTRY POINT. F3A18370 M2101 TXL M2190,1,** +*TEST FOR END OF TIFGO TABLE. F3A18380 CLA TIFGO+1,1 GET 2ND WORD OF TIFGO ENTRY. F3A18390 PAX ,4 GET ADDRESS AND F3A18400 SXD BETA2,4 STORE IT IN BETA2. F3A18410 STD BETA1 STORE DECREMENT IN BETA1. F3A18420 CLA TIFGO,1 GET 1ST WORD OF TIFGO ENTRY. F3A18430 PAX ,4 GET ADDRESS AND F3A18440 SXD BETA3,4 STORE IT IN BETA3. F3A18450 STD TIFFN STORE IFN IN DECREMENT IN TIFFN. F3A18460 TXI *+1,1,-2 UPDATE IR1 FOR NEXT TIFGO ENTRY. F3A18470 SXA M2100,1 SAVE IR 1. F3A18480 TPL M2102 *TRANSFER FOR ALL TIFGO EXCEPT IF. F3A18490 SIR IFSTT SET INICATOR WITH IF BIT. F3A18500 M2102 TXL M2105,2,** +$TEST FOR END OF TRALEV TABLE. IR 2 HAS F3A18510 ANA DCMSK TRALEV ENTRY POINT) GET TIFGO IFN. F3A18520 ADD TRLEV,2 ADD TRALEV IFN WHICH IS MINUS. F3A18530 TNZ M2105 *TRANSFER IF NOT ZERO. TIFGO IFN NOT IN F3A18540 TXI *+1,2,-1 TRALEV. ZERO TIFGO IFN IN TRALEV. UPDATE F3A18550 M2103 AXT **,1 +IR2. LOAD IR1 WITH TRASTO ENTRY POINT. F3A18560 TSX M2700,4 *TRASTO FORMULA NUMBER SEARCH. F3A18570 TRA M2106 *$RETURN FOR TIFGO IFN NOT IN TRASTO. F3A18580 SIR INTRL $RETURN FOR TIFGO IFN IN TRASTO. SET F3A18590 SXA M2104,1 INDICATOR BIT. SAVE TRASTO ENTRY POINT IN F3A18600 M2104 AXT **,1 +IR 1 FOR RESET. F3A18610 STZ ADDCO SET ADDCO COUNTER TO ZERO. F3A18620 M2105 RFT IFSTT $TEST INDICATOR TO ZERO. F3A18630 TRA IF01 *TRANSFER FOR IF. F3A18640 CLA BETA3 BETA3 CONTAINS A NUMBER TO SHOW THE TYPE F3A18650 CAS L(5D) OF TIFGO ENTRY FOR OTHER THAN IF. F3A18660 TRA SIX01 *SIX IS AN ASSIGN. F3A18670 TRA FIVE1 *FIVE IS AC OR QUOTIENT OVERFLOW. F3A18680 CAS L(3D) F3A18690 TRA FOUR1 *FOUR IS DIVIDE CHECK. F3A18700 TRA THRE1 *THREE IS SENSE LIGHT OR SWITCH. F3A18710 CAS L(1D) F3A18720 TRA TWO01 *TWO IS COMPUTED GO TO. F3A18730 TRA ONE01 *ONE IS ASSIGN GO TO. F3A18740 TRA ZERO1 *ZERO IS AN UNCONDITIONAL GO TO. F3A18750 M2106 CLA TRLEV,2 $GET TRALEV WORD. F3A18760 M2107 TXL M2108,2,** +*TEST FOR END OF TRALEV TABLE. F3A18770 TMI M2108 *TEST FOR START BLOCK OF TRALEV BY MINUS. F3A18780 TXI M2106,2,-1 *BUMP IR2 FOR NEXT TRALEV WORD. F3A18790 M2108 RFT INTRL $TEST UPDATE OF TRALEV TO SEE WHERE YOU F3A18800 TRA RTURN *CAME FROM. FROM COMPILING IN TRALEV. F3A18810 TRA M2105 *FROM TIFGO IFN NOT IN TRASTO. F3A18820 EJECT F3A18830 REM TIFGO ENTRY IS AN UNCONDITIONAL GO TO NOT IN TRALEV F3A18840 REM F3A18850 ZERO1 RFT INTRL $ENTER. F3A18860 TRA ZERO2 *TRANSFER. F3A18870 TSX CIT00,4 *COMPILE. F3A18880 PZE TIFFN,,(TRA) IFN,,TRA. F3A18890 PZE BETA2,,L(0) BETA,,0. F3A18900 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A18910 SPACE 1 F3A18920 REM TIFGO ENTRY IS AN UNCONDITIONAL GO TO IN TRALEV F3A18930 REM F3A18940 ZERO2 CLA TIFFN $GET IFN AND F3A18950 STO M1CW $PUT IN DEC OF 1ST WORD OF CIT. F3A18960 TSX CLOC1,4 *SET CLOC COUNTER. F3A18970 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A18980 TSX M2225,4 *SAVE CITS IN M2800. F3A18990 CLA ADDCO WERE SAVE CITS COMPILED. F3A19000 TZE ZERO3 *NO TRANSFER TO COMPILE ROUTINE WITH IFN. F3A19010 CLA (AST) YES PLACE AST IN FIRST WORD. F3A19020 STO M1CW OF CIT. F3A19030 ZERO3 TSX CIT00,4 $*COMPILE. F3A19040 PZE M1CW,,(TRA) IFN OR AST,,TRA. F3A19050 PZE BETA2,,L(0) BETA,,0 F3A19060 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19070 SPACE 3 F3A19080 REM TIFGO ENTRY IS AN ASSIGN GO TO NOT IN TRALEV F3A19090 REM F3A19100 ONE01 RNT INTRL $ENTER. F3A19110 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19120 SPACE 1 F3A19130 REM TIFGO ENTRY IS AN ASSIGN GO TO IN TRALEV F3A19140 REM F3A19150 CLS TIFFN GET IFN AND PUT A MINUS FOR FINAL MERGE. F3A19160 STO M1CW STORE IN 1ST WORD OF CIT. F3A19170 TSX CLOC1,4 *SET CLOC COUNTER. F3A19180 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A19190 TSX M2225,4 *SAVE CITS IN M2800. F3A19200 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19210 EJECT F3A19220 REM TIFGO ENTRY IS A COMPUTED GO TO NOT IN TRALEV F3A19230 REM F3A19240 TWO01 RFT INTRL $ENTER. F3A19250 TRA TWO06 *TRANSFER. F3A19260 TSX CTRDN,4 *COMPUTE N+1 AND STORE IN 4TH WORD OF CIT. F3A19270 TSX TOTM1,4 *COMPILE IFN,,0,,IFN,,N+1. F3A19280 LXD BETA1,1 LOAD IR1 WITH CTRAD1. F3A19290 TWO02 TXI *+1,1,** +BUMP IR1 BY 2S COMP OF LAST LOCATION OF F3A19300 SXD TWO05,1 TRAD TABLE PLUS ONE AND SAVE FOR TEST. F3A19310 LXD BETA2,1 LOAD IR1 WITH CTRADU. F3A19320 TWO03 TXI *+1,1,** +BUMP IR1 BY 2S COMP OF LAST LOCATION OF F3A19330 TWO04 CLA TRAD,1 $TRAD. GET LAST BETA FIRST FROM TRAD. F3A19340 PAX ,4 BETA IS IN ADDRESS. F3A19350 PXD ,4 PLACE BETA IN DECREMENT. F3A19360 STO M1CW+2 PLACE 3RD WORD OF CIT. F3A19370 TSX OTM01,4 *COMPILE 0,,TRA,,BETA,,0. F3A19380 TXI TWO05,1,1 BUMP IR1 TO GET NEXT TO LAST BETA ETC. F3A19390 TWO05 TXL TWO04,1,** +*TEST TO DROP THRU WHEN FIRST BETA COMPILEDF3A19400 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19410 SPACE 1 F3A19420 REM TIFGO ENTRY IS A COMPUTED GO TO IN TRALEV F3A19430 REM F3A19440 TWO06 TSX CTRDN,4 $ENTER AND COMPUTE N+1 THEN PUT IN 4TH CIT.F3A19450 SUB L(2D) COMPUTE N-1 F3A19460 PDC ,4 PUT 2S COMP OF N-1 IN IR4. F3A19470 SXD TWO08,4 PUT IN DECREMENT FOR BUMP. F3A19480 TSX TOTM1,4 *COMPILE IFN,,0,,IFN,,N+1 F3A19490 TWO07 SXD TWO11,2 $IR2 HAS LOCATION OF FIRST TRALEV BETA AND F3A19500 SXD TWO13,2 IS PUT IN TWO11 AN TWO13 FOR TEST. F3A19510 TWO08 TXI TWO1A,2,** BUMP IR2 FOR LOC OF LAST TRLEV (32)F3A19520 PZE AND INITIALIZE SUPPLEMENTARY TRLEV (32)F3A19530 TWO09 AXT **,2 +SAVE IR2 FOR RESET FOR 2ND PASS THRU TRASTF3A19540 TWO10 SIR FRSTX $SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A19550 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0,,IFN+ADD,,IFN. F3A19560 XEC M2104 ALPHA IN TRASTO. BETA IF ALPHA NOT IN F3A19570 TRA TWO1E TRASTO,CHECK FOR NEW ADDEND (32)F3A19580 TWO11 TXL TWO1B,2,** UNLESS DROP THRU,CHECK FOR DUP TRLEV (32)F3A19590 CLA ADDCO ADDCO ZERO ALPHA NEVER IN TRASTO. ADDCO F3A19600 TZE TWO14 *NON ZERO ALPHA IN TRASTO IFN+ADD COMPILED.F3A19610 XEC TWO09 RESET IR2 FOR 2ND PASS FOR ALL IFN+ADD F3A19620 TSX CLOC1,4 *SET CLOC COUNTER. F3A19630 STO M1CW STORE CLOC IN 1ST WORD OF CIT. F3A19640 TWO12 TSX M2265,4 $COMPILE SAVE AND RESET AND TRANSFER CITS. F3A19650 TXI TWO13,2,1 BUMP IR2 FOR NEXT TO LAST BETA. F3A19660 TWO13 TXL TWO1F,2,** UNLESS DROP THRU,CHECK FOR DUP TRLEV (32)F3A19670 TWO14 XEC TWO09 RESET IR 2. F3A19680 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19690 EJECT F3A19700 REM TIFGO ENTRY IS SENSE LIGHT OR SWITCH NOT IN TRALEV F3A19710 REM F3A19720 THRE1 RFT INTRL $ENTER. F3A19730 TRA THRE2 *TRANSFER. F3A19740 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19750 CLA BETA2 GET BETA2 AND F3A19760 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19770 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A19780 CLA BETA1 GET BETA1 AND F3A19790 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19800 TSX OTM01,4 *COMPILE 0,,TRA,,BETA1,,0. F3A19810 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19820 SPACE 1 F3A19830 REM TIFGO ENTRY IS SENSE LIGHT OR SWITCH IN TRALEV F3A19840 REM F3A19850 THRE2 LXD DCMSK,4 $ENTER AND SET F3A19860 SXD TWO08,4 DECREMENT OF TWO08 FOR IR2 BUMP. F3A19870 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19880 TRA TWO07 *TRANSFER. F3A19890 SPACE 3 F3A19900 REM TIFGO ENTRY IS DIVIDE CHECK NOT IN TRALEV F3A19910 REM F3A19920 FOUR1 RFT INTRL $ENTER. F3A19930 TRA FOUR2 *TRANSFER. F3A19940 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19950 CLA BETA1 GET BETA1 AND F3A19960 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19970 TSX OTM01,4 *COMPILE 0,,TRA,,BETA1,,0. F3A19980 CLA BETA2 GET BETA2 AND F3A19990 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20000 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A20010 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20020 SPACE 1 F3A20030 REM TIFGO ENTRY IS DIVIDE CHECK IN TRALEV F3A20040 REM F3A20050 FOUR2 TSX T0001,4 $*ENTER AND COMPILE IFN,,0,,0,,. F3A20060 TXI *+1,2,-2 BUMP IR2 WITH TRALEV F3A20070 SXD FOUR5,2 FOR LATER USE. F3A20080 SXD FOUR8,2 INTEST IN FOUR5 AND FOUR8. F3A20090 TXI *+1,2,2 RESET IR2. F3A20100 FOUR3 SIR FRSTX $SET INDICATOR FOR SUBROUTINE TO COMPLE. F3A20110 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0. F3A20120 FOUR4 XEC M2104 $RESET IR1 FOR PASS THRU TRASTO. F3A20130 TXI *+1,2,-1 BUMP IR2 FOR NEXT TRALEV. F3A20140 FOUR5 TXH FOUR3,2,** +*TEST DROP THRU WHEN LAST BETA COMPILED. F3A20150 CLA ADDCO ADOCO ZERO ALPHA NEVER FOUND IN TRASTO. F3A20160 TZE RTURN *ADDCO ZERO ALPHA FOUND IN TRASTO. F3A20170 TXI *+1,2,2 RESET IR2 2ND PASS. F3A20180 TSX CLOC1,4 *SET CLOC COUNTER. F3A20190 FOUR6 STO M1CW $STORE CLOC IN 1ST WORD OF CIT. F3A20200 FOUR7 TSX M2265,4 *COMPILE SAVE AND RESET AND TRANSFER CITS. F3A20210 TXI FOUR8,2,-1 BUMP IR2 FOR NEXT BETA. F3A20220 FOUR8 TXH FOUR7,2,** +*TEST DROP THRU WHEN LAST BETA COMPILED. F3A20230 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20240 SPACE 1 F3A20250 REM TIFGO ENTRY IS AC OR QUOTIENT OVERFLOW NOT IN TRALEV F3A20260 REM F3A20270 FIVE1 RFT INTRL $ENTER. F3A20280 TRA FIVE2 *TRANSFER. F3A20290 CLA BETA1 GET BETA1 AND F3A20300 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20310 TSX T0M01,4 *COMPILE IFN,,0,,BETA1,,0. F3A20320 CLA BETA2 GET BETA2 AND F3A20330 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20340 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A20350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20360 SPACE 1 F3A20370 REM TIFGO ENTRY IS AC OR QUOTIENT OVERFLOW IN TRALEV F3A20380 REM F3A20390 FIVE2 TXI *+1,2,-2 $BUMP IR 2 TRALEV AND F3A20400 SXD FOUR5,2 SAVE IN F3A20410 SXD FOUR8,2 TEST FOUR5 AND FOUR8. F3A20420 TXI *+1,2,2 RESET IR2 F3A20430 SIR SCONX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A20440 TSX M2225,4 *IFN,,0,,IFN+ADD OR BETA1,,0. F3A20450 TRA FOUR4 *TRANSFER. F3A20460 SPACE 3 F3A20470 REM TIFGO ENTRY IS AN ASSIGN NOT IN TRALEV F3A20480 REM F3A20490 SIX01 CLA* 8ASCN $ENTER AND GET CURRENT ASSIGN NUMBER. F3A20500 STO M1CW+3 PLACE ASSIGN NUMBER IN 4TH WORD OF CIT. F3A20510 ADD L(1D) ADD ONE TO ASSIGN NUMBER F3A20520 STO* 8ASCN AND SAVE. F3A20530 TSX CIT00,4 *COMPILE F3A20540 PZE TIFFN,,L(0) IFN,,0 F3A20550 PZE L(5)),,M1CW+3 5),,ASSIGN NUMBER F3A20560 SIX02 AXT **,1 +ADDRESS SET FOR ASSIGN CONSTANT TABLE. F3A20570 CLA BETA2 EET BETA AND F3A20580 STO ASCO,1 STORE IN ASSIGN CONSTANT TABLE. F3A20590 TXI *+1,1,-1 BUMP IR1 FOR NEXT TABLE ENTRY. F3A20600 SIX03 TXH *+2,1,** +*TEST FOR TABLE OVERFLOW. F3A20610 TSX ERR15,4 *GO TO DIAG ON TABLE OVERFLOW. F3A20620 SXA SIX02,1 SAVE IR1 F3A20630 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20640 EJECT F3A20650 REM TIFGO ENTRY IS AN IF NOT IN TRALEV. F3A20660 IF01 RFT INTRL $ENTER. F3A20670 TRA IF02 *TRANSFER. F3A20680 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A20690 CLA BETA1 GET BETA1 AND F3A20700 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20710 CLA TIFFN GET IFN AND F3A20720 ORA L(8) OR IN ADD OF ONE AND F3A20730 STO M1CW PUT IN 1ST WORD OF CIT. F3A20740 TSX MZM01,4 *COMPILE IFN+ADD,,TZE,,BETA1,,0. F3A20750 CLA BETA2 GET BETA2 AND F3A20760 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20770 TSX OPM01,4 *COMPILE 0,,TPL,,BETA2,,0. F3A20780 CLA BETA3 GET BETA3 AND F3A20790 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20800 TSX OTM01,4 *COMPIL 0,,TRA,,BETA3,,0. F3A20810 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20820 REM TIFGO ENTRY IS AN IF IN TRALEV F3A20830 IF02 CLA TRLEV,2 $ENTER AND F3A20840 STO ERAS REORDER THE TRANSFERS OR BETAS IN F3A20850 CLA TRLEV+1,2 TRALEV SO THAT THEY F3A20860 STO TRLEV,2 ARE TZE TPL AND TRA. F3A20870 CLA TRLEV+2,2 F3A20880 STO TRLEV+1,2 F3A20890 CLA ERAS F3A20900 STO TRLEV+2,2 F3A20910 TXI *+1,2,-3 BUMP IR2 BY THREE AND F3A20920 SXD FOUR8,2 PUT IN TEST FOUR8. F3A20930 TXI *+1,2,3 RESET IR2. F3A20940 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A20950 SIR THRDX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A20960 TSX M2225,4 *IFN+ADD,,TZE,,IFN+ADD+1 OR BETA,,0. F3A20970 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A20980 TXI *+1,2,-1 BUMP IR2 F3A20990 SIR FORTX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A21000 TSX M2225,4 *0,,TPL,,IFN+ADD OR BETA,,0. F3A21010 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A21020 TXI *+1,2,-1 BUMP IR2 F3A21030 TSX ADDC1,4 *BUMP ADDCO COUNTER. F3A21040 SIR FRSTX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A21050 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0. F3A21060 TXI *+1,2,-1 BUMP IR2 F3A21070 CLA ADDCO GET ADDCO AND F3A21080 SUB L(8) RESET. F3A21090 TZE RTURN *BACK FOR NEXT TIFGO ENTRY. F3A21100 TXI *+1,2,3 RESET IR2. F3A21110 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A21120 CLA L(16) SET CLOC COUNTER F3A21130 STO CLOC TO TWO F3A21140 TRA FOUR6 *TRANSFER. F3A21150 EJECT F3A21160 REM MASTER COMPILING ROUTINE F3A21170 REM F3A21180 M2225 SXA M2226,4 $ENTER AND SAVE IR 4. F3A21190 TSX M2750,4 *TRASTO LEVEL NUMBER SEARCH. F3A21200 TSX CMPIL,4 *SUBROUTINE TO COMPILING ROUTINES. F3A21210 TSX M2700,4 *TRASTO FORMULA NUMBER SEARCH. F3A21220 TSX CMOUT,4 *COMPILING ROUTINE FOR TRASTO NOT FOUND. F3A21230 TSX ADDBC,4 *ROUTINE FOR ANOTHER PASS THRU TRASTO. F3A21240 RIR RSIND RESET INDICATORS. F3A21250 M2226 AXT **,4 +RESTORE IR 4. F3A21260 TRA 1,4 *TRANSFER. F3A21270 SPACE 6 F3A21280 REM TRASTO LEVEL NUMBER SEARCH SUBROUTINE F3A21290 REM F3A21300 M2750 SXA M2755,4 $SAVE IR 4. F3A21310 CLA TRLEV,2 GET TRALEV WORD. IR2 CONTAINS TRALEV ENTRYF3A21320 STA LEVNO POINT. SAVE TRALEV LEVEL NUMBER. F3A21330 CLA TRAST+2,1 IR1 CONTAIN TRASTO ENTRY POINT. F3A21340 TMI M2752 *3RD TRASTO WORD MINUS SHOWS TYPES 4,5OR6. F3A21350 CAL TRAST+1,1 2ND TRASTO WORD. GET BITS P AND 1. F3A21360 ANA MASK THIS SHOWS 2ND WORD IS BCD OR TYPE 2. F3A21370 TZE M2752 *TRANSFER FOR TYPES 1 AND 3. F3A21380 CLA TRAST+2,1 GET 3RD TRASTO WORD FOR TYPE 2. F3A21390 PDX ,4 GET DECREMENT WHICH CONTAINS LEVEL NO AND F3A21400 PXA ,4 PLACE IT IN THE ADDRESS. F3A21410 CAS LEVNO COMPARE TRALEV TO TRASTO LEVEL NUMBER F3A21420 TRA M2754 *TRALEV NO LARGER. TRASTO FOUND. F3A21430 TRA M2751 *TRALEV NO EQUAL OR LESS THAN. F3A21440 M2751 TXI *+1,1,-3 $TRASTO NOT FOUND BUMP IR 1 BY 3. F3A21450 XEC M2755 RESET IR 4. F3A21460 TRA 2,4 *RETURN FOR TRASTO NOT FOUND F3A21470 M2752 CLA TRAST+1,1 GET 2ND TRASTO WORD FOR TYPES 1,3,4,5,6. F3A21480 ANA ADMSK GET UPPER LEVEL NO FROM TRASTO OR L2. F3A21490 CAS LEVNO COMPARE L2 TO TRALEV LEVEL NUMBER. F3A21500 TRA M2753 *L2 LARGER THAN GO TO TEST L1. F3A21510 TRA M2751 *L2 EQUAL TRASTO NOT FOUND. F3A21520 TRA M2751 *L2 LESS THAN TRASTO NOT FOUND. F3A21530 M2753 CLA TRAST+1,1 $TEST LOWER TRASTO LEVEL NO L1. F3A21540 PDX ,4 GET L1 FROM DECREMENT AND F3A21550 PXA ,4 PUT L1 IN ADDRESS. F3A21560 CAS LEVNO COMPARE L1 TO TRALEV LEVEL NUMBER. F3A21570 TRA M2751 *L1 LARGER THAN TRASTO NOT FOUND. F3A21580 TRA M2754 *L1 EQUAL OR LESS THAN TRASTO FOUND. F3A21590 M2754 TSX ADDC1,4 $UPDATE ADDCO COUNTER. F3A21600 M2755 AXT **,4 RESTORE IR 4. F3A21610 TRA 1,4 *RETURN FOR TRASTO FOUND F3A21620 SPACE 6 F3A21630 REM SUBROUTINE TO COMPILING ROUTINES F3A21640 REM F3A21650 CMPIL SXA CMP05,4 $ENTER AND SAVE IR 4. F3A21660 RFT FFTHX BRANCH FOR INDICATOR FIFTHX. F3A21670 TSX M2800,4 *INDEXING INSTRUCTION COMPILER. F3A21680 RFT FFTHX $BRANCH. F3A21690 TRA CMP10 *TRANSFER FOR INDICATOR FIFTHX. F3A21700 RFT FORTX BRANCH. F3A21710 TRA CMP02 *TRANSFER FOR INDICATOR FOURTX. F3A21720 RFT THRDX BRANCH. F3A21730 TRA CMP01 *TRANSFER FOR INDICATOR THIRDX. F3A21740 CLA TIFFN INICADTOR FIRSTX OR SECONX PUT F3A21750 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21760 STO M1CW+2 IN 3RD WORD OF CIT. F3A21770 RFT SCONX BRANCH FOR INDICATOR SECONX. F3A21780 TSX T0M01,4 *COMPILE IFN,,0,,IFN+ ADD,,0. F3A21790 RFT FRSTX $BRANCH FOR INDICATOR FIRSTX. F3A21800 TSX OTM01,4 *COMPILE 0,,TRA,,IFN+ADD,,0. F3A21810 TRA CMP03 *TRANSFER FOR FIRSTX AND SECONX. F3A21820 CMP01 CLA TIFFN $ENTER FOR THIRDX AND PUT F3A21830 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21840 STO M1CW IN 1ST WORD OF CIT. F3A21850 ADD L(8) ADD ONE TO ADD AND PUT F3A21860 STO M1CW+2 IFN PLUS ADD PLUS ONE IN 3RD WORD OF CIT. F3A21870 TSX MZM01,4 *COMPILE IFN+ADD,,TZE,,IFN+ADD+1,,0. F3A21880 TRA CMP03 *TRANSFER FOR THIRDX. F3A21890 CMP02 CLA TIFFN $ENTER FOR FOURTX AND PUT F3A21900 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21910 ADD L(8) PLUS ONE IN F3A21920 STO M1CW+2 THE 3RD WORD OF CIT. F3A21930 TSX OPM01,4 *COMPILE 0,,TPL,,IFN+ADD+1,,0. F3A21940 CMP03 TXH CMP06,1,** +$*TRASTO ENTRY BEFORE TYPE 4. F3A21950 CMP04 TXH CMP07,1,** +$*TRASTO ENTRY TYPE 4 TRANSFER OR DROP THRU.F3A21960 CMP05 AXT **,4 $RESTORE IR 4. F3A21970 TRA 4,4 *AND OUT FOR FIRSTX SECONX THIRDX FOURTX F3A21980 CMP06 LXD CMP03,1 $LOAD IR 1 FOR TRASTO ENTRY TO TYPE 4. F3A21990 CMP07 TSX M2700,4 $*TRASTO FORMULA NUMBER SEARCH. F3A22000 TRA CMP05 *OUT ALPHA NEVER FOUND IN TRASTO. F3A22010 TSX M2750,4 $*TRASTO LEVEL NUMBER SEARCH. F3A22020 TRA CMP08 *TRANSFER FOR TRASTO FOUND. F3A22030 TRA CMP04 *TRANSFER FOR TRASTO NOT FOUND. F3A22040 CMP08 TXH CMP09,1,** +$*IS TRASTO TYPE 4. F3A22050 CLA ADDCO YES REDUCE F3A22060 SUB L(8) ADDCO COUNTER F3A22070 STO ADDCO BY ONE. F3A22080 TRA CMP05 *TRANSFER. F3A22090 CMP09 TXI CMP04,1,-3 $*NO REDUCE IR 1 AND TRANSFER. F3A22100 CMP10 XEC CMP05 $ENTER AND RESTORE IR4 FOR FIFTHX. F3A22110 TRA 1,4 *TRANSFER. F3A22120 SPACE 6 F3A22130 REM TRASTO FORMULA NUMBER SEARCH SUBROUTINE F3A22140 REM F3A22150 M2700 SXA M2703,4 $SAVE IR 4. F3A22160 M2701 TXH *+3,1,** +$*TEST FOR END OF TRASTO TABLE. F3A22170 XEC M2703 LOAD IR 4 FOR RETURN. F3A22180 TRA 1,4 *RETURN FOR TIFGO IFN NOT FOUND IN TRASTO. F3A22190 CLA TRAST,1 GET 1ST WORD OF TRASTO ENTRY. F3A22200 PAX ,4 GET BETA IN ADDRESS AND F3A22210 PXD ,4 PUT IT IN DECREMENT OF AC. F3A22220 CAS TIFFN COMPAPE BETA TO TIFGO IFN. F3A22230 TRA M2702 *BETA LARGER THAN TIFGO IFN. F3A22240 TRA M2703 *BETA EQUAL TIFGO IFN. F3A22250 TXI M2701,1,-3 *BETA LESS THAN TIFGO IFN GO TO NEXT TRASTOF3A22260 M2702 CLA TRAST,1 $GET ALPHA FROM TRASTO ENTRY. F3A22270 ANA DCMSK ALPHA IS IN DECREMENT. F3A22280 CAS TIFFN COMPARE ALPHA TO TIFGO IFN. F3A22290 TXI M2701,1,-3 *ALPHA LARGER THAN TIFGO IFN NEXT TRASTO. F3A22300 TXI M2701,1,-3 *ALPHA EQUAL TIFGO IFN NEXT TRASTO. F3A22310 M2703 AXT **,4 +$ALPHA LESS THAN TIFGO IFN. TIFGO IN TRASTOF3A22320 TRA 2,4 *RETURN F3A22330 SPACE 1 F3A22340 REM COMPILING ROUTINE FOR TRASTO NOT FOUND F3A22350 REM F3A22360 CMOUT SXA CMOU1,4 $ENTER AND SAVE IR 4. F3A22370 RFT FFTHX BRANCH. F3A22380 TRA 2,4 *TRANSFER ON FIFTHX. F3A22390 CLA TRLEV,2 GET BETA. F3A22400 ANA DCMSK FROM DECREMENT OF TRALEV AND F3A22410 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A22420 RFT FORTX BRANCH FOR INDICATOR FOURTX. F3A22430 TSX OPM01,4 *COMPILE 0,,TPL,,BETA,,0. F3A22440 RFT SCONX BRANCH FOR INDICATOR SECONX. F3A22450 TSX T0M01,4 *COMPILE IFN,,0,,BETA,,0. F3A22460 RFT FRSTX BRANCH FOR INDICATOR FIRSTX. F3A22470 TSX OTM01,4 *COMPILE 0,,TRA,,BETA,,0. F3A22480 RNT THRDX BRANCH. F3A22490 TRA CMOU1 *TRANSFER FOR FIRSTX SECONX AND FOURTX. F3A22500 CLA TIFFN GET IFN AND F3A22510 ORA L(8) ADD ONE IN ADD AND F3A22520 STO M1CW PUT IN 1ST WORD OF CIT. F3A22530 TSX MZM01,4 *COMPILE IFN+1,,TZE,,BETA,,0. F3A22540 CMOU1 AXT **,4 +$RESTORE IR 4. F3A22550 TRA 2,4 *TRANSFER. F3A22560 SPACE 1 F3A22570 REM ROUTINE FOR ANOTHER PASS THRU TRASTO F3A22580 REM F3A22590 ADDBC RNT FFTHX $ENTER AND BRANCH ON FIFTHX. F3A22600 TRA -4,4 *BACK FOR FIRSTX SECONX THIRDX FOURTX F3A22610 CLA ADDCO ADDCO COUNTER NON ZERO F3A22620 TZE -4,4 *STORE ZERO IN 1ST WORD OF CIT. F3A22630 STZ M1CW THIS REMOVES IFN AND GIVES BLOCK OF CODE F3A22640 TRA -4,4 *TRANSFER BACK. F3A22650 EJECT F3A22660 REM INDEXING INSTRUCTION COMPILER SUBROUTINE F3A22670 REM F3A22680 M2800 SXA M2848,4 $SAVE IR 4. F3A22690 SXA M2849,2 SAVE IR 2. F3A22700 M2801 TXH M2825,1,** +*TYPE 1 TRASTO. F3A22710 M2802 TXH M2850,1,** +*TYPE 2 TRASTO. F3A22720 M2803 TXH M2875,1,** +*TYPE 3 TRASTO. F3A22730 M2804 TXH M2900,1,** +*TYPE 4 TRASTO. F3A22740 M2805 TXH M2925,1,** +*TYPE 5 TRASTO. F3A22750 M2806 TXH M2950,1,** +*TYPE 6 TRASTO. F3A22760 SPACE 3 F3A22770 REM TYPE 1 TRASTO INSERTS F3A22780 REM F3A22790 M2825 CLA TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A22800 PAX ,2 PLACE T2 IN IR2 F3A22810 PDX ,4 PLACE T1 IN IR4 F3A22820 PXA ,2 CLEAR AC AND PUT T2 IN ADDRESS. F3A22830 ORA L(C)) OR IN C) F3A22840 SLW M1CW+2 PUT IN 3RD WORD OF CIT. F3A22850 PXA ,4 CLEAR AC AND PUT T1 IN ADDRES. F3A22860 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A22870 TSX CIT00,4 COMPILE. F3A22880 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A22890 PZE M1CW+2,,M1CW+3 F3A22900 SXA M1CW+3,2 CHANGE T1 TO T2 IN 4TH WORD OF CIT. F3A22910 TSX CIT00,4 COMPILE. F3A22920 PZE L(0),,(LXP) F3A22930 PZE M1CW+2,,M1CW+3 C)+T2,,T2. F3A22940 M2848 AXT **,4 +LOAD IR 4. F3A22950 TXI *+1,1,-3 BUMP IR1 TO NEXT TRAST ENTRY. F3A22960 M2849 AXT **,2 +LOAD IR 2 WITH THE CURRENT TRALEV ENTRY. F3A22970 TRA 1,4 *RETURN F3A22980 SPACE 1 F3A22990 REM TYPE 2 TRASTO INSERTS F3A23000 REM F3A23010 M2850 CAL TRAST+1,1 $GET 2ND WORD OF TRASTO ENTRY WITH BCD. F3A23020 SLW M1CW+2 SYMBOL AND PUT IT IN 3RD WORD OF CIT. F3A23030 CLA TRAST+2,1 GET 3RD WORD OF TRASTO ENTRY. F3A23040 ANA ADMSK GET T1 IN ADDRESS. F3A23050 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23060 TSX CIT00,4 COMPILE. F3A23070 PZE M1CW,,(PXD) IFN (IF ANY),,PXD. F3A23080 PZE L(0),,M1CW+3 0,,T1. F3A23090 TSX CIT00,4 COMPILE. F3A23100 PZE L(0),,(STO) 0,,STO. F3A23110 PZE M1CW+2,,L(0) SYMBOL,,0. F3A23120 TRA M2848 *BACK TO RETURN. F3A23130 EJECT F3A23140 REM TYPE 3 TRASTO INSERTS F3A23150 REM F3A23160 M2875 CLA TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23170 PAC ,4 PUT 2S COMP OF N IN IR4. F3A23180 PDX ,2 PUT T IN IR2. F3A23190 PXA ,4 CLEAR AC AND PUT 1-N IN ADDRESS. F3A23200 ORA (TXI) OR IN TXI. F3A23210 SLW M1CW+1 PUT IN 2ND WORD OF CIT. F3A23220 PXA ,2 CLEAR AC AND T IN ADDRESS. F3A23230 ADD L(1D) ADD ONE DECREMENT. F3A23240 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A23250 TSX CIT00,4 COMPILE F3A23260 PZE M1CW,,M1CW+1 IFN (IF ANY),,TXI+(1-N) F3A23270 PZE (AST),,M1CW+3 AST,,1+T. F3A23280 TRA M2848 *BACK TO RETURN. F3A23290 SPACE 2 F3A23300 REM TYPE 4 TRASTO INSERTS F3A23310 REM F3A23320 M2900 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23330 PAX ,2 PUT T2 IN IR2. F3A23340 PDX ,4 PUT T1 IN IR4. F3A23350 PXA ,4 CLEAR AC AND PUT T1 IN ADDRESS. F3A23360 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23370 TSX CLOC2,4 GET CLOC COUNTER AND BUMP IT. F3A23380 ORA TIFFN OR IN THE IFN IN THE DECREMENT. F3A23390 STO M1CW+2 PUT IT IN 3RD WORD OF CIT. F3A23400 TSX CIT00,4 COMPILE. F3A23410 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A23420 PZE M1CW+2,,M1CW+3 IFN+CLOC(COUNTER),,T1. F3A23430 PXA ,2 CLEAR AC AND PUT T2 IN ADDRESS. F3A23440 ADD L(1D) ADD ONE TO DECREMENT. F3A23450 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A23460 TSX CIT00,4 COMPILE. F3A23470 PZE M1CW+2,,(TIX) IFN+CLOC(COUNTER),,TIX. F3A23480 PZE (AST),,M1CW+3 AST,,1+T2. F3A23490 TRA M2848 *BACK TO RETURN. F3A23500 SPACE 1 F3A23510 REM TYPE 5 TRASTO INSERTS F3A23520 REM F3A23530 M2925 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23540 PAX ,2 PUT N IN IR2. F3A23550 PDX ,4 PUT T IN IR4. F3A23560 PXA ,4 CLEAR AC AND PUT T IN ADDRESS. F3A23570 ADD L(1D) ADD ONE TO DECREMENT. F3A23580 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23590 PXA ,2 CLEAR AC AND PUT N IN ADDRESS. F3A23600 ORA (TXI) OR IN TXI. F3A23610 SLW M1CW+1 PUT IT IN 2ND WORD OF CIT. F3A23620 TSX CIT00,4 COMPILE. F3A23630 PZE M1CW,,M1CW+1 IFN (IF ANY),,TXI+N. F3A23640 PZE (AST),,M1CW+3 AST,,1+T. F3A23650 TRA M2848 *BACK TO RETURN. F3A23660 SPACE 3 F3A23670 REM TYPE 6 TRASTO INSERTS F3A23680 REM F3A23690 M2950 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23700 STO M1CW+3 PUT T IN 4TH WORD OF CIT. F3A23710 ORA L(A)) OR IN A). F3A23720 SLW M1CW+2 PUT IT IN 3RD WORD OF CIT. F3A23730 CLS TRAST+2,1 GET 3RD WORD OF TRASTO ENTRY. F3A23740 ORA L(C)) OR IN C). F3A23750 SLW M1CW+1 PUT IT IN 3RD WORD OF CIT. F3A23760 TSX CIT00,4 COMPILE. F3A23770 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A23780 PZE L(6)),,(4A4D 6),,4A4D. F3A23790 TSX CIT00,4 COMPILE. F3A23800 PZE L(0),,(TSX) 0,,TSX. F3A23810 PZE M1CW+2,,L(4) A)+T,,4 F3A23820 TSX CIT00,4 COMPILE. F3A23830 PZE L(0),,(LXP) 0,,LXP. F3A23840 PZE M1CW+1,,M1CW+3 C)+T,T. F3A23850 TSX CIT00,4 COMPILE. F3A23860 PZE L(0),,(LXD) 0,,LXD. F3A23870 PZE L(6)),,(4A4D 6),,4A4D. F3A23880 TRA M2848 *BACK TO RETURN. F3A23890 SPACE 4 F3A23900 REM COMPILE SAVE RESET AND TRANSFER FOR ALPHA IN TRASTO F3A23910 REM F3A23920 M2265 SXA M2267,4 $ENTER AND SAVE IR 4. F3A23930 CLA TIFFN GET IFN AND OR F3A23940 ORS M1CW IN 1ST WORD OF CIT. F3A23950 STZ ADDCO RESET ADDCO TO ZERO. F3A23960 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A23970 TSX M2225,4 *SAVE CITS IN M2800. F3A23980 CLA ADDCO ADDCO ZERO BETA ALREADY COMPILE AND F3A23990 TZE M2266 *TRANSFER. F3A24000 CLA TRLEV,2 GET BETA FROM TRALEV. F3A24010 ANA DCMSK AND PUT F3A24020 STO M1CW+2 IN 3RD WORD OF CIT. F3A24030 TSX CIT00,4 *COMPILE. F3A24040 PZE (AST),,(TRA) AST,,TRA. F3A24050 PZE M1CW+2,,L(0) BETA,,0 F3A24060 TSX CLOC2,4 *BUMP CLOC COUNTER AND F3A24070 STO M1CW PUT IN ADD OF 1ST WORD OF CIT. F3A24080 M2266 XEC M2104 $RESET TRASTO ENTRY POINT IN IR 1. F3A24090 M2267 AXT **,4 +RESTORE IR 4. F3A24100 TRA 1,4 *TRANSFER. F3A24110 SPACE 6 F3A24120 REM COMPILE IFN,,0,,0,,0 F3A24130 REM F3A24140 T0001 SXA T0002,4 $ENTER AND SAVE IR 4. F3A24150 TSX CIT00,4 *COMPILE F3A24160 PZE TIFFN,,L(0) IFN,,0. F3A24170 PZE L(0),,L(0) 0,,0. F3A24180 T0002 AXT **,4 +RESTORE IR 4. F3A24190 TRA 1,4 *TRANSFER. F3A24200 SPACE 3 F3A24210 REM COMPILE IFN,,0,,M2CW+2,,0 F3A24220 REM F3A24230 T0M01 SXA T0M02,4 $ENTER AND SAVE IR 4. F3A24240 TSX CIT00,4 *COMPILE. F3A24250 PZE TIFFN,,L(0) IFN,,0. F3A24260 PZE M1CW+2,,L(0) M2CW+2,,0. F3A24270 T0M02 AXT **,4 +RESTORE IR 4. F3A24280 TRA 1,4 *TRANSFER. F3A24290 SPACE 3 F3A24300 REM COMPILE M2CW,,TZE,,M2CW+2,,0 F3A24310 REM F3A24320 MZM01 SXA MZM02,4 $ENTER AND SAVE IR 4. F3A24330 TSX CIT00,4 *COMPILE F3A24340 PZE M1CW,,(TZE) M1CW,,TZE. F3A24350 PZE M1CW+2,,L(0) M1CW+2,,0. F3A24360 MZM02 AXT **,4 +RESTORE IR 4. F3A24370 TRA 1,4 *TRANSFER. F3A24380 SPACE 3 F3A24390 REM COMPILE IFN,,0,,IFN,,M2CW+3 F3A24400 REM F3A24410 TOTM1 SXA TOTM2,4 $ENTER AND SAVE IR 4. F3A24420 TSX CIT00,4 *COMPILE. F3A24430 PZE TIFFN,,L(0) IFN,,0. F3A24440 PZE TIFFN,,M1CW+3 IFN,,M2CW+3. F3A24450 TOTM2 AXT **,4 +RESTORE IR 4. F3A24460 TRA 1,4 *TRANSFER F3A24470 SPACE 3 F3A24480 REM COMPILE 0,,TRA,,M2CW+2,,0 F3A24490 REM F3A24500 OTM01 SXA OTM02,4 $ENTER AND SAVE IR 4. F3A24510 TSX CIT00,4 *COMPILE. F3A24520 PZE L(0),,(TRA) 0,,TRA. F3A24530 PZE M1CW+2,,L(0) M2CW+2,,0 F3A24540 OTM02 AXT **,4 +RESTORE IR 4. F3A24550 TRA 1,4 *TRANSFER. F3A24560 SPACE 3 F3A24570 REM COMPILE 0,,TPL,,M2CW+2,,0 F3A24580 REM F3A24590 OPM01 SXA OPM02,4 $ENTER AND SVAE IR 4. F3A24600 TSX CIT00,4 *COMPILE. F3A24610 PZE L(0),,(TPL) 0,,TPL. F3A24620 PZE M1CW+2,,L(0) M2CW+2,,0. F3A24630 OPM02 AXT **,4 +RESORE IR 4. F3A24640 TRA 1,4 *TRANSFER. F3A24650 SPACE 3 F3A24660 REM ROUTINE TO BUMP ADDCO COUNTER F3A24670 REM F3A24680 ADDC1 CLA ADDCO $GET ADDCO. F3A24690 ADD L(8) BUMP. F3A24700 STO ADDCO SAVE ADDCO. F3A24710 TRA 1,4 *TRANSFER. F3A24720 SPACE 3 F3A24730 REM ROUTINE TO RESET CLOC COUNTER F3A24740 REM F3A24750 CLOC1 CLA L(8) $RESET. F3A24760 STO CLOC CLOC. F3A24770 TRA 1,4 *TRANSFER. F3A24780 SPACE 3 F3A24790 REM ROUTINE TO BUMP CLOC COUNTER F3A24800 REM F3A24810 CLOC2 CLA CLOC $GET CLOC. F3A24820 ADD L(8) BUMP. F3A24830 STO CLOC SAVE CLOC. F3A24840 TRA 1,4 *TRANSFER. F3A24850 SPACE 3 F3A24860 REM ROUTINE TO COMPUTE N+1 F3A24870 REM F3A24880 CTRDN CLA BETA1 $GET CTRAD1. F3A24890 ADD L(1D) ADD ONE. F3A24900 SUB BETA2 SUBTRACT CTRADU TO GET N+1 F3A24910 STO M1CW+3 SAVE N+1 IN 4TH WORD OF CIT. F3A24920 TRA 1,4 *TRANSFER F3A24930 EJECT F3A24940 REM END OF TIFGO FILE AND INITIALIZE FIRST FILE F3A24950 REM F3A24960 M2190 CLA* 8ASCN GET ASCON WORD COUNT. F3A24970 ADD L(1D) ADD ONE TO WORD COUNT AND SET WRITE F3A24980 STD SASCN COMMAND F3A24990 CLA* 8FXCN GET FIXCON WORD COUNT. F3A25000 PAX ,1 GET FIXCON WORD COUNT FROM ADDRESS. F3A25010 TXI *+1,1,1 ADD ONE FOR WORD COUNT AND F3A25020 SXD SFXCN,1 SET COMMAND F3A25030 AXT 6,2 WRITE ASCON F3A25040 TSX RDTBA,4 AND FIXCON AND F3A25050 TIX *-1,2,1 SPACE TAPE F3A25060 TOPAT TRA PAT1 $F3A25070 STZ WTV01 SET SWITCH IN OVERFLOW ROUTINE F3A25080 CLA CINF SAVE INFORMATION ON TIFGO FILE F3A25090 STO STFIF IN STFIF F3A25100 LXD CINF,2 SET ADDRESS OF CINF EQUAL TO THE DEC F3A25110 SXA CINF,2 FOR FIRST FILE F3A25120 LAC FIRF2,2 GET 2S COMP OF SECOND BUFFER FOR OVERFLOW F3A25130 SXD CIBL1,2 AND PUT IN COMPILING TEST F3A25140 SPACE 3 F3A25150 REM MERGE OF COMPAIL AND COMPDO F3A25160 REM F3A25170 FAD01 CLA AIL,1 GET 1ST AIL AND CHECK FOR FLOATING POINT F3A25180 CAS FPTCN TRAP BY COMPARING TO $$. F3A25190 TRA *+2 TRANSFER $F3A25200 TRA *+2 TO FLOATING POINT TRAP. F3A25210 TSX PAT1B,4 GO SET INDEX TO WRITE CLA2 STO6)+5 ONLY $F3A25220 AXT 5,2 COMPILE $F3A25230 TSX CITR1,4 1ST FIVE AIL FOR CLA2 AND STO6)+5 AND $F3A25240 TIX *-1,2,1 FLOATING POINT TRAP F3A25250 FAD02 LXD RDD04,2 LOAD IR2 WITH COMPDO. F3A25260 TSX TONE,4 ARE NEXT FOUR WORDS ALL ONES F3A25270 TNZ FAD06 NO TRANSFER F3A25280 LDC CINF,4 YES FORTRAN FUNCTION F3A25290 PXA ,4 GET LOC IN AIL BUFFER AND PUT IN AC F3A25300 TSX SRIR1,4 SAVE IR1 AND GET COUNTER IN IR1 F3A25310 STA SKLST,1 PUT ADDRESS IN COMMAND F3A25320 XEC SRIR2 RELOAD IR1 WITH AIL ADDRESS F3A25330 LXD CINF,4 GET 2S COMP OF ADD IN IR4 F3A25340 SXA FAD03,4 AND SAVE IN FAD03 F3A25350 FAD03 AXT **,4 FOR FUTURER RESTORATION F3A25360 FAD04 TXI *+1,1,-4 BUMP AIL LOCATION F3A25370 TSX TEST1,4 TEST FOR END OF BUFFER F3A25380 FAD05 TSX CITR1,4 COMPILE. F3A25390 TSX TEST1,4 TEST AGAIN F3A25400 CLA AIL,1 GET 1ST WORD OF NEXT CIT F3A25410 TZE FAD05 IF IFN ZERO GO BACK AND COMPILE AGAIN F3A25420 SUB ALONE IS 1ST WORD ALL ONE . F3A25430 TNZ FAD06 TRANSFER OUT. F3A25440 TSX TONE,4 IS ENTIRE CIT ALL ONF F3A25450 TZE FAD04 TRANSFER BACK FOR FORTRAN FUNCTION F3A25460 TRA FAD05 TRANSFER BACK FOR OPEN SUBROUTINE F3A25470 FAD06 XEC FAD03 WAS FAD03 EXECUTED F3A25480 TXL FAD07,4,0 NO TRANSFER F3A25490 SXD *+2,4 YES COMPUTE WORD COUNT FOR FORTRAN F3A25500 LDC CINF,4 FUNCTION COMMAND. F3A25510 TXI *+1,4,** WORD COUNT IN IR4 F3A25520 SXD FOFWC,4 SAVE WORD COUNT F3A25530 PXD ,4 PUT WORD COUNT IN AC DEC F3A25540 TSX SRIR1,4 SAVE IR1 AND GET COUNTER IN IR1 F3A25550 STD SKLST,1 SET COUNT IN FORTRAN FUNCTION COMMAND F3A25560 TSX RDTBA,4 WRITE FORTRAN FUNCTIONS F3A25570 TSX RDTBA,4 WRITE EOF F3A25580 XEC SRIR2 RELOAD IR1 WITH AIL ADD F3A25590 XEC FAD03 GET ADDRESS TO RESTORE F3A25600 SXD CINF,4 DEC OF CINF. F3A25610 NZT SFFIF DID OVERFLOW OCCUR. F3A25620 TRA FAD08 NO TRANSFER. F3A25630 TSX ERR25,4 YES GO TO DIAG. F3A25640 FAD07 TSX SRIR1,4 SAVE IR1 AND GET COUNTER F3A25650 TXI *+1,1,-2 BUMP COUNTER BY 2 FOR NO FORTRAN FUNCTIONSF3A25660 SXA RDTBA,1 SAVE COUNTER F3A25670 XEC SRIR2 RESTORE IR1 F3A25680 FAD08 RFT NODO ANY COMPDO F3A25690 TRA FAD10 NO TRANSFER. F3A25700 FAD09 RFT NOAIL ANY COMPAIL F3A25710 TRA FAD13 NO TRANSFER. F3A25720 CLA DO,2 GET 1ST WORD OF DO CIT F3A25730 STD MDOFN SAVE THE IFN. F3A25740 CLA AIL,1 GET 1ST WORD OF AIL CIT F3A25750 ANA DCMSK GET JUST IFN IN DEC OF AC. F3A25760 CAS MDOFN COMPARE IFNS. F3A25770 TRA FAD13 AIL IFN LARGER COMPILE DO IFN F3A25780 TRA *+1 EQUAL COMPILE AIL F3A25790 FAD10 CLA AIL,1 AIL LESS GET 1ST WORD OF AIL CIT. F3A25800 CAS ALONE COMPARE TO ALL ONE FORTRAN FUNCTION. F3A25810 TRA *+3 NOT ALL ONE TRANSFER AND CONTINUE F3A25820 TSX ERR16,4 FORTRAN FUNCTION IN MIDDLE OF F3A25830 TSX ERR16,4 PROGRAM GO TO DIAG F3A25840 STD MALFN SAVE AIL IFN. F3A25850 FAD11 TMI OPS01 TRANSFER TO OPEN SUBROUTINE ON MINUS. F3A25860 CLA AIL+3,1 GET 4TH WORD OF AIL CIT F3A25870 ANA TGMSK 4TH WORD CIT BITS 24-26. IF 1 DO NOT F3A25880 TZE *+3 CHANGE. IF 2 OR 3 CHANGE TAG SEARCH F3A25890 RNT NOCHG CHANGE TAG EMPTY. F3A25900 TSX M1250,4 CHANGE TAG TABLE SEARCH F3A25910 TSX CITR1,4 COMPILE AIL. F3A25920 FAD12 TSX TEST1,4 TEST AIL BUFFER F3A25930 CLA AIL,1 GET NEXT AIL CIT F3A25940 ANA DCMSK COMPARE THIS AIL IFN TO THE PREVIOUS F3A25950 CAS MALFN AIL. IF LARGER GO BACK TO DO COMPARE. F3A25960 TRA FAD08 TRANSFER BACK F3A25970 TRA *+1 IF EQUAL OR F3A25980 CLA AIL,1 LARGER GET 1ST WORD AIL CIT F3A25990 TRA FAD11 AND TRANSFER TO OPEN SUBROUTINE TEST F3A26000 FAD13 TSX CITR2,4 COMPILE COMPDO CIT. F3A26010 TSX TEST2,4 TEST COMPDO BUFFER F3A26020 CLA DO,2 GET 1ST WORD OF NEXT DO CIT F3A26030 ANA DCMSK GET DO IFN. F3A26040 CAS MDOFN COMPARE TO PREVIOUS DO CIT. F3A26050 TRA FAD09 LARGER GO BACK AND COMPARE TO AIL IFN F3A26060 TRA FAD13 EQUAL COMPILE DO F3A26070 TRA FAD13 LESS COMPILE DO F3A26080 SPACE 3 F3A26090 REM END OF FIRST FILE MERGE F3A26100 REM F3A26110 FAD14 SIR NODO SET INDICATOR FOR NO COMPDO F3A26120 XEC RDD14 F3A26130 RNT FAIL TEST INDICATOR TO SEE IF AIL YET READ F3A26140 TRA PAT1A NO COMPDO, AIL NOT YET READ $F3A26150 RFT NOAIL NO AIL F3A26160 TRA M3000 TRANSFER OUT F3A26170 TRA FAD10 MORE AIL TRANSFER BACK F3A26180 FAD15 SIR NOAIL SET INDICATOR FOR NO COMPAIL F3A26190 XEC RDA09 F3A26200 RFT NODO TEST IF MORE COMPDO F3A26210 TRA M3000 NO COMPDO OUT F3A26220 TRA FAD13 MORE COMPDO TRANSFER BACK. F3A26230 SPACE 3 F3A26240 REM ROUTINE TO CIT FOR FOUR WORDS OF ONES F3A26250 REM F3A26260 TONE CAL AIL,1 AC ZERO IF ALL ONE F3A26270 ANA AIL+1,1 AC NON ZERO IF NOT ALL ONE F3A26280 ANA AIL+2,1 F3A26290 ANA AIL+3,1 F3A26300 ERA ALONE F3A26310 TRA 1,4 F3A26320 SPACE 1 F3A26330 REM ROUTINE TO SAVE IR1 AND GET SKLST COUNTER IN IR1 F3A26340 REM F3A26350 SRIR1 SXA SRIR2,1 SAVE IR1 F3A26360 SRIR2 AXT **,1 F3A26370 XEC RDTBA LOAD IR1 WITH SKLST COUNTER F3A26380 TRA 1,4 F3A26390 SPACE 1 F3A26400 REM ROUTINE TO TEST COMPAIL BUFFER AND READ COMPAIL F3A26410 REM F3A26420 TEST1 SXA TEST3,4 F3A26430 TSX TESTA,4 TEST FOR END OF BUFFER F3A26440 TSX RDA01,4 RETURN ONE READ ANOTHER BUFFER F3A26450 TEST3 AXT **,4 RETURN BUFFER NOT EMPTY F3A26460 TRA 1,4 F3A26470 SPACE 1 F3A26480 REM ROUTINE TO TEST COMPDO BUFFER AND READ COMPDO F3A26490 REM F3A26500 TEST2 SXA TEST4,4 F3A26510 TSX TESTD,4 TEST FOR END DO BUFFER F3A26520 TSX RDD01,4 RETURN ONE READ ANOTHER BUFFER F3A26530 TEST4 AXT **,4 RETURN TWO BUFFER NOT EMPTY F3A26540 TRA 1,4 F3A26550 SPACE 5 F3A26560 REM BRANCHING ROUTINE FOR OPEN SUBROUTINES F3A26570 REM F3A26580 OPS01 CHS CHANGE MINUS TO PLUS. F3A26590 STO M1CW PLACE IFN IN M1CW F3A26600 CLA AIL+1,1 GET 2ND WORD OF AIL CIT F3A26610 SUB LSTR0 SUBTRACT ASTERICK OR *00000. F3A26620 TZE EXP01 TRANSFER TO FIXED EXPONENTIAL F3A26630 ADD L0STR CHECK FOR **0000. F3A26640 TZE EXP02 TRANSFER TO FLOATING EXPONENTIAL F3A26650 SPACE 3 F3A26660 REM OTHER OPEN SUBROUTINES F3A26670 REM F3A26680 OPS02 AXT 20,4 CHANGE THIS CELL WHEN MORE ROUTINES ADDED F3A26690 CLA AIL+2,1 GET 3RD WORD OF AIL CIT. F3A26700 OPS03 CAS M1D+20,4 CHANGE CELL WHEN ROUTINES ADDED F3A26710 TRA OPS04 COMPARE NAME IN 3RD WORD WITH DICTIONARY F3A26720 TRA OPS05 MATCH TRANSFER F3A26730 OPS04 TIX OPS03,4,1 NO MATCH RETURN AND TRY AGAIN. F3A26740 TSX ERR17,4 NOT FOUND GO TO DIAG F3A26750 OPS05 SXA OPS06,4 SAVE IR4 F3A26760 TXI *+1,1,-4 BUMP IR1 TO NEXT AIL F3A26770 TSX TEST1,4 TEST AIL BUFFER F3A26780 OPS06 AXT **,4 RESTORE IR4 F3A26790 OPS07 TRA *+21,4 CHANGE CELL WHEN ROUTINES ADDED. F3A26800 EJECT F3A26810 REM TRANSFER LIST FOR OPEN SUBROUTINES F3A26820 REM F3A26830 TRA ABS TRANSFER TO XABS F3A26840 TRA ABS TRANSFER TO ABS F3A26850 TRA FIX TRANSFER TO XINT F3A26860 TRA INT TRANSFER TO INT F3A26870 TRA FIX TRANSFER TO XFIX F3A26880 TRA FLOAT TRANSFER TO FLOAT F3A26890 TRA XMOD TRANSFER TO XMOD F3A26900 TRA MOD TRANSFER TO MOD F3A26910 TRA SIGN TRANSFER TO XSIGN F3A26920 TRA SIGN TRANSFER TO SIGN F3A26930 TRA XMAX0 TRANSFER TO XMAX0 F3A26940 TRA MAX0 TRANSFER TO MAX0 F3A26950 TRA XMAX1 TRANSFER TO XMAX1 F3A26960 TRA XMAX0 TRANSFER TO MAX1 F3A26970 TRA XMIN0 TRANSFER TO XMIN0 F3A26980 TRA MIN0 TRANSFER TO MIN0 F3A26990 TRA XMIN1 TRANSFER TO XMIN1 F3A27000 TRA XMIN0 TRANSFER TO MIN1 F3A27010 TRA XDIM TRANSFER TO XDIM F3A27020 TRA DIM TRANSFER TO DIM F3A27030 TRANS BSS 10 SPACE FOR TEN MORE ROUTINES. F3A27040 SPACE 3 F3A27050 REM DICTIONARY FOR OPEN SUBROUTINES F3A27060 REM F3A27070 M1D BCI 1,XABS F3A27080 BCI 1,ABS F3A27090 BCI 1,XINT F3A27100 BCI 1,INT F3A27110 BCI 1,XFIX F3A27120 BCI 1,FLOAT F3A27130 BCI 1,XMOD F3A27140 BCI 1,MOD F3A27150 BCI 1,XSIGN F3A27160 BCI 1,SIGN F3A27170 BCI 1,XMAX0 F3A27180 BCI 1,MAX0 F3A27190 BCI 1,XMAX1 F3A27200 BCI 1,MAX1 F3A27210 BCI 1,XMIN0 F3A27220 BCI 1,MIN0 F3A27230 BCI 1,XMIN1 F3A27240 BCI 1,MIN1 F3A27250 BCI 1,XDIM F3A27260 BCI 1,DIM F3A27270 DICT. BSS 10 SPACE FOR 10 MORE BUILT-IN FUNC. NAMES. F3A27280 EJECT F3A27290 REM EXPONENTIAL OPEN SUBROUTINES F3A27300 REM F3A27310 EXP01 SIR FXPT FIXED POINT ENTRY. F3A27320 EXP02 TSX ARGTG,4 FLOATIN POINT ENTRY AND TAGED ARGUEMENT. F3A27330 TXI *+1,1,-4 BUMP IR1 TO NEXT AIL CIT F3A27340 TSX TEST1,4 TEST AIL BUFFER F3A27350 CLA M1CW+2 GET 3RD WORD OF 1ST AIL CIT F3A27360 SUB LPLUS IS IT A +00000. F3A27370 TZE EXP08 YES TRANSFER ARGUEMENT IS IN AC F3A27380 CLA M1CW+2 GET 3RD WORD OF 1ST AIL CIT. F3A27390 SUB LSTR0 IS IT A *00000. F3A27400 TZE EXP10 YES TRANSFER ARGUEMENT IS IN MQ. F3A27410 CLA AIL+2,1 ARGUEMENT STORED GET VALUE OF EXP IN CIT. F3A27420 SUB L(1D) IS IT ONE. F3A27430 TZE EXP07 YES TRANSFER F3A27440 EXP03 TSX LDQCW,4 COMPILE LOAD MQ FROM LOCATION F3A27450 EXP04 CLA AIL+2,1 GET VALUE OF EXP IN CIT F3A27460 SUB L(2D) IS IT TWO F3A27470 TZE EXP06 YES TRANSFER F3A27480 STD CCONT SAVE THE COUNT. F3A27490 RNT FXPT IS EXP FLOATING. F3A27500 TRA EXP12 YES TRANSFER F3A27510 EXP05 TSX CIT00,4 COMPILE FOR FIXED POINT. F3A27520 PZE L(0),,(MPY) F3A27530 PZE M1CW+2,,M1CW+3 F3A27540 TSX CIT00,4 COMPILE. F3A27550 PZE L(0),,(LRS) F3A27560 PZE L(0),,(18D) F3A27570 LXD CCONT,4 GET COUNT. F3A27580 TXI *+1,4,-1 REDUCE COUNT. F3A27590 SXD CCONT,4 SAVE COUNT. F3A27600 TXH EXP05,4,0 IS COUNT ZERO YES DROP THRU NO GO BACK F3A27610 EXP06 RNT FXPT IS EXP FLOATING F3A27620 TRA EXP13 YES TRANSFER. F3A27630 RIR FXPT NO RESET INDICATOR F3A27640 TSX CIT00,4 COMPILE LAST TWO CITS FOR FIXED POINT F3A27650 PZE L(0),,(MPY) F3A27660 PZE M1CW+2,,M1CW+3 F3A27670 TSX CIT00,4 COMPILE F3A27680 PZE L(0),,(ALS) F3A27690 PZE L(0),,(17D) F3A27700 TXI FAD12,1,-4 RETURN TO MAIN MERGE AND NEXT CIT F3A27710 EXP07 RIR FXPT RESET INDICATOR F3A27720 TSX CLATW,4 COMPILE FOR STORED ARGUEMENT WITH EXP OF F3A27730 TXI FAD12,1,-4 ONE FOR FIXED OR FLOATING POINT AND RETUR.F3A27740 EXP08 CLA AIL+2,1 ARGUEMENT FIXED OR FLOATING POINT IN AC F3A27750 SUB L(1D) IS EXP ONE F3A27760 TZE EXP09 YES TRANSFER F3A27770 CLA L(1)) NO STORE ARG IN 1). F3A27780 STO M1CW+2 F3A27790 TSX CIT00,4 COMPILE. F3A27800 PZE M1CW,,(STO) F3A27810 PZE M1CW+2,,M1CW+3 F3A27820 TRA EXP03 ARGUEMENT NOW STORED TRANSFER BACK F3A27830 EXP09 RIR FXPT RESET INDICATOR F3A27840 TXI FAD12,1,-4 RETURN F3A27850 EXP10 CLA AIL+2,1 ARGUEMENT FIXED OR FLOATING POINT IN MQ. F3A27860 SUB L(1D) IS EXP ONE F3A27870 TZE EXP11 YES TRANSFER F3A27880 CLA L(1)) NO STORE ARG IN 1). F3A27890 STO M1CW+2 F3A27900 TSX CIT00,4 COMPILE F3A27910 PZE M1CW,,(STQ) F3A27920 PZE M1CW+2,,M1CW+3 F3A27930 TRA EXP04 ARGUEMENT NOW IN 1) TRANSFER BACK F3A27940 EXP11 TSX XCACW,4 COMPILE FOR ARGUEMENT IN MQ WITH EXP OF 1 F3A27950 RIR FXPT FOR FIXED OR FLOATING POINT AND RESET IND.F3A27960 TXI FAD12,1,-4 RETURN. F3A27970 EXP12 TSX CIT00,4 COMPILE FOR FLOATING POINT F3A27980 PZE L(0),,(FMP) F3A27990 PZE M1CW+2,,M1CW+3 F3A28000 TSX XCA,4 COMPILE XCA F3A28010 LXD CCONT,4 GET COUNT. F3A28020 TXI *+1,4,-1 REDUCE COUNT F3A28030 SXD CCONT,4 SAVE COUNT. F3A28040 TXH EXP12,4,0 IS COUNT ZERO YES DROP THRU NO GO BACK F3A28050 EXP13 TSX CIT00,4 COMPILE F3A28060 PZE L(0),,(FMP) F3A28070 PZE M1CW+2,,M1CW+3 F3A28080 TXI FAD12,1,-4 RETURN. F3A28090 SPACE 1 F3A28100 REM ABS AND XABS OPEN SUBROUTINES F3A28110 REM F3A28120 ABS TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28130 TSX CIT00,4 COMPILE F3A28140 PZE L(0),,(SSP) F3A28150 PZE L(0),,L(0) F3A28160 TXI FAD12,1,-4 F3A28170 SPACE 1 F3A28180 REM INT XINT AND XFIX OPEN SUBROUTINES F3A28190 REM F3A28200 INT SIR FXPT SET INDICATOR FOR INT F3A28210 FIX TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28220 FIX02 TSX UFA,4 COMPILE UFA FROM 6) F3A28230 RFT FXPT IS ROUTINE INT F3A28240 TRA FIX03 YES TRANSFER F3A28250 TSX CIT00,4 COMPILE. F3A28260 PZE L(0),,(LRS) F3A28270 PZE L(0),,L(0) F3A28280 TSX CIT00,4 COMPILE F3A28290 PZE L(0),,(ANA) F3A28300 PZE L(6)),,L(1D) F3A28310 TSX LLS,4 COMPILE LLS F3A28320 TSX CIT00,4 COMPILE F3A28330 PZE L(0),,(ALS) F3A28340 PZE L(0),,(18D) F3A28350 TXI FAD12,1,-4 RETURN F3A28360 FIX03 RIR FXPT RESET INDICATOR. F3A28370 TSX FADCW,4 COMPILE FAD FROM 6) F3A28380 TXI FAD12,1,-4 RETURN F3A28390 SPACE 1 F3A28400 REM FLOAT OPEN SUBROUTINE F3A28410 REM F3A28420 FLOAT TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28430 TSX JONT1,4 COMPILING ROUTINE. F3A28440 TXI FAD12,1,-4 RETURN F3A28450 SPACE 1 F3A28460 REM MOD AND XMOD OPEN SUBROUTINES F3A28470 REM F3A28480 XMOD SIR FXPT SET INDICATOR F3A28490 MOD TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A28500 RFT FXPT IS THIS XMOD F3A28510 TRA MOD01 YES TRANSFER F3A28520 TSX CIT00,4 COMPILE F3A28530 PZE M1CW,,(CLS) F3A28540 PZE M1CW+2,,M1CW+3 F3A28550 CLA M1CW+2 SAVE LOCATION AND TAG F3A28560 STO 3WD F3A28570 CLA M1CW+3 F3A28580 STO 4WD F3A28590 TSX ARGTG,4 CHECK TAG OF THIRD CIT F3A28600 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28610 PZE L(0),,(FDP) F3A28620 PZE M1CW+2,,M1CW+3 F3A28630 TSX XCA,4 COMPILE XCA F3A28640 TSX UFA,4 COMPILE UFA FROM 6) F3A28650 TSX FADCW,4 COMPILE FAD FROM 6) F3A28660 TSX XCA,4 COMPILE XCA F3A28670 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28680 PZE L(0),,(FMP) F3A28690 PZE M1CW+2,,M1CW+3 F3A28700 TSX CIT00,4 COMPILE FROM 2ND CIT F3A28710 PZE L(0),,(FAD) F3A28720 PZE 3WD,,4WD F3A28730 TRA PAT1C THEN COMPLETE COMPILE $F3A28740 MOD01 RIR FXPT RESET INDICATOR F3A28750 TSX CIT00,4 COMPILE F3A28760 PZE M1CW,,(CLM) F3A28770 PZE L(0),,L(0) F3A28780 TSX CIT00,4 COMPILE FROM 2ND CIT F3A28790 PZE L(0),,(LDQ) F3A28800 PZE M1CW+2,,M1CW+3 F3A28810 TSX LLS,4 COMPILE LLS F3A28820 TSX ARGTG,4 CHECK TAG F3A28830 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28840 PZE L(0),,(DVP) F3A28850 PZE M1CW+2,,M1CW+3 F3A28860 TXI FAD12,1,-4 RETURN F3A28870 SPACE 1 F3A28880 REM SIGN AND XSIGN OPEN SUBROUTINES F3A28890 REM F3A28900 SIGN TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A28910 TSX CLATW,4 COMPILE CLA FOR 2ND CIT F3A28920 TSX ARGTG,4 CHECK TAG FOR 3RD CIT F3A28930 TSX CIT00,4 COMPILE FOR THIRD CIT F3A28940 PZE L(0),,(LDQ) F3A28950 PZE M1CW+2,,M1CW+3 F3A28960 TSX LLS,4 COMPILE LLS F3A28970 TXI FAD12,1,-4 RETURN F3A28980 SPACE 1 F3A28990 REM XMAX0 AND MAX1 OPEN SUBROUTINES F3A29000 REM F3A29010 XMAX0 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES F3A29020 TXI FAD12,1,-4 RETURN F3A29030 SPACE 1 F3A29040 REM MAX0 OPEN SUBROUTINE F3A29050 REM F3A29060 MAX0 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES F3A29070 TSX JONT1,4 COMPILING ROUTINE F3A29080 TXI FAD12,1,-4 RETURN F3A29090 SPACE 1 F3A29100 REM XMAX1 OPEN SUBROUTINE F3A29110 REM F3A29120 XMAX1 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES.F3A29130 TRA FIX02 TRANSFER F3A29140 SPACE 1 F3A29150 REM XMIN0 AND MIN1 OPEN SUBROUTINES F3A29160 REM F3A29170 XMIN0 TSX MIN,4 F3A29180 TSX XCA,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29190 TXI FAD12,1,-4 RETURN F3A29200 SPACE 1 F3A29210 REM MIN0 OPEN SUBROUTINE F3A29220 REM F3A29230 MIN0 TSX MIN,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29240 TSX XCA,4 COMPILE XCA F3A29250 TSX JONT1,4 COMPILING ROUTINE F3A29260 TXI FAD12,1,-4 RETURN F3A29270 SPACE 1 F3A29280 REM XMIN1 OPEN SUBROUTINE F3A29290 REM F3A29300 XMIN1 TSX MIN,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29310 TSX XCA,4 COMPILE XCA F3A29320 TRA FIX02 TRANSFER F3A29330 SPACE 1 F3A29340 REM DIM AND XDIM OPEN SUBROUTINES F3A29350 REM F3A29360 XDIM SIR FXPT SET INDICATOR FOR XDIM F3A29370 DIM TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A29380 TSX CLATW,4 COMPILE CLA F3A29390 TSX ARGTG,4 CHECK TAG OF THIRD CIT F3A29400 CAL (SUB) SUB FOR XDIM. F3A29410 RNT FXPT TEST F3A29420 CAL (FSB) FSB FOR DIM. F3A29430 SLW M1CW+1 STORE SUB FOR XDIM AND FSB FOR DIM F3A29440 RIR FXPT RESET INDICATOR F3A29450 TSX CIT00,4 COMPILE F3A29460 PZE L(0),,M1CW+1 F3A29470 PZE M1CW+2,,M1CW+3 F3A29480 TSX CIT00,4 COMPILE F3A29490 PZE L(0),,(TPL) F3A29500 PZE (AST),,L(2D) F3A29510 TSX CIT00,4 COMPILE F3A29520 PZE L(0),,(PXD) F3A29530 PZE L(0),,L(0) F3A29540 TXI FAD12,1,-4 RETURN F3A29550 EJECT F3A29560 REM COMPILING ROUTINE FOR ALL MIN F3A29570 REM F3A29580 MIN SXA MINBB,4 SAVE IR4 F3A29590 TSX BTEST,4 CHECK THAT NO FENCE, CHECK TAG AND BUFFER F3A29600 TSX LDQCW,4 COMPILE LDQ F3A29610 MINAA TSX ARGTG,4 CHECK TAG OF NEXT CIT F3A29620 TSX CIT00,4 COMPILE F3A29630 PZE L(0),,(CLA) F3A29640 PZE M1CW+2,,M1CW+3 F3A29650 TSX CIT00,4 COMPILE F3A29660 PZE L(0),,(TLQ) F3A29670 PZE (AST),,L(2D) F3A29680 TSX CIT00,4 COMPILE F3A29690 PZE L(0),,(LDQ) F3A29700 PZE M1CW+2,,M1CW+3 F3A29710 TSX QUEST,4 CHECK FOR FENCE, THEN BUFFER F3A29720 TRA MINAA NO FENCE OF ALL ONES GO BACK F3A29730 MINBB AXT **,4 FENCE FOUND RESTORE IR4 F3A29740 TRA 1,4 TRANSFER F3A29750 SPACE 3 F3A29760 REM COMPILING ROUTINE FOR ALL MAX F3A29770 REM F3A29780 MAX SXA MAXBB,4 SAVE IR4 F3A29790 TSX BTEST,4 CHECK THAT NO FENCE, CHECK TAG AND BUFFER.F3A29800 TSX CLATW,4 COMPILE CLA F3A29810 MAXAA TSX ARGTG,4 CHECK TAG OF NEXT CIT F3A29820 TSX CIT00,4 COMPILE F3A29830 PZE L(0),,(LDQ) F3A29840 PZE M1CW+2,,M1CW+3 F3A29850 TSX CIT00,4 COMPILE F3A29860 PZE L(0),,(TLQ) F3A29870 PZE (AST),,L(2D) F3A29880 TSX CIT00,4 COMPILE F3A29890 PZE L(0),,(CLA) F3A29900 PZE M1CW+2,,M1CW+3 F3A29910 TSX QUEST,4 CHECK FOR FENCE, THEN BUFFER F3A29920 TRA MAXAA NO FENCE OF ALL ONES GO BACK F3A29930 MAXBB AXT **,4 FENCE FOUND RESTORE IR4 F3A29940 TRA 1,4 TRANSFER. F3A29950 SPACE 12 F3A29960 REM ROUTINE TO CHECK FOR NO FENCE, CHECK TAG AND TEST BUF F3A29970 REM F3A29980 BTEST SXA *+5,4 SAVE IR4. F3A29990 TSX TARG1,4 CHECK THAT 2ND CIT DOES NOT HAVE FENCE OF1F3A30000 TSX ARGTG,4 CHECK TAG F3A30010 TXI *+1,1,-4 GO TO NEXT CIT F3A30020 TSX TEST1,4 TEST BUFFER F3A30030 AXT **,4 RESTORE IR4 F3A30040 TRA 1,4 TRANSFER F3A30050 SPACE 1 F3A30060 REM ROUTINE TO CHECK FENCE AND BUFFER F3A30070 REM F3A30080 QUEST CLA AIL,1 GET 1ST WORD OF AIL CIT. F3A30090 SUB ALONE IS THIS A FENCE OF ALLONES. F3A30100 TZE 2,4 YES TRANSFER TWO F3A30110 SXA *+3,4 SAVE IR4 F3A30120 TXI *+1,1,-4 GO TO NEXT CIT. F3A30130 TSX TEST1,4 TESST BUFFER F3A30140 AXT **,4 RESTORE IR4 F3A30150 TRA 1,4 TRANSFER F3A30160 SPACE 1 F3A30170 REM COMPILING ROUTINE FOR MAX0 AND MIN0 F3A30180 REM F3A30190 JONT1 SXA JONT2,4 SAVE IR4 F3A30200 TSX CIT00,4 COMPILE F3A30210 PZE L(0),,(LRS) F3A30220 PZE L(0),,(18D) F3A30230 TSX CIT00,4 COMPILE F3A30240 PZE L(0),,(ORA) F3A30250 PZE L(6)),,L(0) F3A30260 TSX FADCW,4 COMPILE FAD F3A30270 JONT2 AXT **,4 RESTORE IR4 F3A30280 TRA 1,4 TRANSFER F3A30290 SPACE 1 F3A30300 REM TEST FOR THREE CITS AND CHECK TAG F3A30310 REM F3A30320 ONLY2 SXA *+6,4 SAVE IR4 F3A30330 TSX TARG1,4 GO TO ERROR IF FENCE ON 2ND CIT F3A30340 TSX ARGTG,4 CHECK TAG F3A30350 TXI *+1,1,-4 GO TO NEXT CIT F3A30360 TSX TEST1,4 TEST BUFFER F3A30370 TSX LAST,4 GO TO ERROR IF NO FENCE OF ONES F3A30380 AXT **,4 RESTORE IR4 F3A30390 TRA 1,4 TRANSFER F3A30400 SPACE 14 F3A30410 REM ROUTINE TO CHECK TAG F3A30420 REM F3A30430 ARGTG CLA AIL+2,1 GET 3RD WORD OF CIT F3A30440 STO M1CW+2 PUT 3RD WORD IN M1CW+2 F3A30450 CLA AIL+3,1 GET 4TH WORD OF CIT F3A30460 STO M1CW+3 PUT 4TH WORD IN M1CW+3 AND CHECK BITS F3A30470 ANA TGMSK 24-26. DOES TAG NEED TO BE CHANGED F3A30480 TZE 1,4 NO TRANSFER BACK F3A30490 SXA *+3,4 SAVE IR4 F3A30500 RNT NOCHG IS THERE CHANGE TAG F3A30510 TSX M1250,4 YES SEARCH CHANGE TAG F3A30520 AXT **,4 RESTORE IR4 F3A30530 CLA AIL+3,1 PUT NEW TAG IN 4TH WORD M1CW+3 F3A30540 STO M1CW+3 F3A30550 TRA 1,4 TRANSFER F3A30560 SPACE 1 F3A30570 REM CHECK FOR NO FENCE OF ONES F3A30580 REM F3A30590 TARG1 CLA AIL,1 GET 1ST WORD OF CIT F3A30600 SUB ALONE IS IT ALLONES. F3A30610 TNZ 1,4 NO TRANSFER F3A30620 TSX ERR18,4 YES GO TO DIAG F3A30630 SPACE 1 F3A30640 REM CHECK FOR FENCE OF ONES F3A30650 REM F3A30660 LAST CLA AIL,1 GET 1ST WORD OF CIT F3A30670 SUB ALONE IS IT ALLONES. F3A30680 TZE 1,4 YES TRANSFER F3A30690 TSX ERR19,4 NO GO TO DIAG F3A30700 SPACE 1 F3A30710 REM ROUTINE FOR COMPILING FOR SINGLE ARG F3A30720 REM F3A30730 WHERE SXA WHER1,4 SAVE IR4. F3A30740 TSX LAST,4 CHCCK FOR FENCE OF ONES. F3A30750 CLA AIL+2,1 GET 3RD WORD OF CIT. F3A30760 SUB LPLUS IS ARG IN AC. F3A30770 TZE WHER1 YES TRANSFER. F3A30780 CLA AIL+2,1 GET 3RD WORD OF CIT. F3A30790 SUB LSTR0 IS ARG IN MQ. F3A30800 TZE WHER2 YES TRANSFER. F3A30810 TSX ARGTG,4 ARG STORED CHECK TAG. F3A30820 TSX CLATW,4 COMPILE CLA. F3A30830 WHER1 AXT **,4 RESTORE IR4. F3A30840 TRA 1,4 RETURN FOR ARG STORED, AC, MQ. F3A30850 WHER2 TSX XCACW,4 COMPILE XCA. F3A30860 TRA WHER1 RETURN. F3A30870 SPACE 11 F3A30880 REM COMPILING ROUTINES F3A30890 REM F3A30900 LDQCW SXA *+4,4 F3A30910 TSX CIT00,4 LDQ F3A30920 PZE M1CW,,(LDQ) F3A30930 PZE M1CW+2,,M1CW+3 F3A30940 AXT **,4 F3A30950 TRA 1,4 F3A30960 SPACE 1 F3A30970 XCA SXA *+4,4 XCA NO IFN F3A30980 TSX CIT00,4 F3A30990 PZE L(0),,(XCA) F3A31000 PZE L(0),,L(0) F3A31010 AXT **,4 F3A31020 TRA 1,4 F3A31030 SPACE 1 F3A31040 XCACW SXA *+4,4 F3A31050 TSX CIT00,4 XCA IFN F3A31060 PZE M1CW,,(XCA) F3A31070 PZE L(0),,L(0) F3A31080 AXT **,4 F3A31090 TRA 1,4 F3A31100 SPACE 1 F3A31110 CLATW SXA *+4,4 F3A31120 TSX CIT00,4 CLA F3A31130 PZE M1CW,,(CLA) F3A31140 PZE M1CW+2,,M1CW+3 F3A31150 AXT **,4 F3A31160 TRA 1,4 F3A31170 SPACE 1 F3A31180 UFA SXA *+4,4 F3A31190 TSX CIT00,4 UFA F3A31200 PZE L(0),,(UFA) F3A31210 PZE L(6)),,L(0) F3A31220 AXT **,4 F3A31230 TRA 1,4 F3A31240 SPACE 1 F3A31250 FADCW SXA *+4,4 F3A31260 TSX CIT00,4 FAD F3A31270 PZE L(0),,(FAD) F3A31280 PZE L(6)),,L(0) F3A31290 AXT **,4 F3A31300 TRA 1,4 F3A31310 SPACE 1 F3A31320 LLS SXA *+4,4 F3A31330 TSX CIT00,4 LLS F3A31340 PZE L(0),,(LLS) F3A31350 PZE L(0),,L(0) F3A31360 AXT **,4 F3A31370 TRA 1,4 F3A31380 EJECT F3A31390 REM ROUTINE TO POSITION TAPES AND SAVE INFORMATION F3A31400 REM F3A31410 M3000 NZT SFFIF DID FIRST FILE OVERFLOW F3A31420 TRA M3001 NO TRANSFER. F3A31430 CLA CIBL1 GET TEST INSTRUCTION. F3A31440 STO SCIBI SAVE TEST INSTRUCTION. F3A31450 STZ CIBL1 STORE ZERO IN SWITCH F3A31460 TSX CIBLD,4 FORCE WRITE OF LAST OVERFLOW BUFFER. F3A31470 CLA SCIBI GET TEST INSTRUCTION F3A31480 STO CIBL1 RESTORE TEST INSTRUCTION F3A31490 CLA WARCT GET WORD AND RECORD COUNT OF OVERFLOW F3A31500 STO SOVCT SAVE OVERFLOW INFORMATION F3A31510 STZ WARCT SET WARCT TO ZERO. F3A31520 STZ CPFF5 SET SWITCH IN FIRST FILE ROUTINE. F3A31530 LAC CL24,1 GET OVERFLOW BUFFER LENGTH. F3A31540 SXD FIRF1,1 SET READ COMMANDS F3A31550 SXD FIRF2,1 FOR OVERFLOW. F3A31560 AXT (RBEP),1 SET COMMANDS F3A31570 SXD SRD1,1 TO READ FOR F3A31580 SXD SRD2,1 OVERFLOW F3A31590 AXT 5,2 SET IR2. F3A31600 TSX RDTBA,4 DO NEXT FIVE TAP OPERATIONS F3A31610 TIX *-1,2,1 TO POSITIONING LOGICAL TAPE 2 F3A31620 TRA M3002 TRANSFER. F3A31630 M3001 CLA CINF GET FIRST FILE INFORMATION F3A31640 STO SFFIF AND SAVE IT IN SFFIF F3A31650 TSX RDTBA,4 REWIND TAPE 4 F3A31660 XEC RDTBA GET INDEX TO SKLST. F3A31670 TXI *+1,1,-3 SKIP NEXT THREE TAPE OPERATIONS F3A31680 SXA RDTBA,1 RESET INDEX TO SKLST. F3A31690 TSX RDTBA,4 POSITION TAPE 2 F3A31700 TSX RDTBA,4 REWIND TAPE 3 F3A31710 M3002 LXD STFIF,1 GET 2S COMP OF LAST ADD OF TIFGO FILE F3A31720 SXD CPTF2,1 SET TEST IN TIFGO FILE COMPILE F3A31730 SXD *+2,1 SET DEC FOR TEST F3A31740 LXA STFIF,1 GET 2S COMP OF FIRST ADD OF TIFGO FILE F3A31750 TXL M3003,1,** TRANSFER IF TIFGO FILE EMPTY F3A31760 TRA M3004 TIFGO FILE NO EMPTY TRANSFER F3A31770 M3003 SIR NOTF SET INDICATOR FOR EMPTY FIRST FILE. F3A31780 M3004 LXD SFFIF,1 GET 2S COMP OF LAST ADD OF FIRST FILE. F3A31790 SXD CPFF2,1 SET TEST IN FIRST FILE COMPILE. F3A31800 SXD *+2,1 SET DEC FOR TEST. F3A31810 LXA SFFIF,1 GET 2S COMP OF FIRST ADD OF FIRST FILE. F3A31820 TXL M3005,1,** TRANSFER IF FIRST FILE EMPTY. F3A31830 TRA M3006 FIRST FILE NO EMPTY TRANSFER. F3A31840 M3005 SIR NOFF SET INDICATOR FOR EMPTY FIRST FILE. F3A31850 M3006 LDC 9TSCM,2 GET 2S COMP OF LOCATION OF TSXCOM. F3A31860 SXA TSXC2,2 SET ENTRY POINT FOR TSXCOM F3A31870 SXD TSXC3,2 SET TEST FOR TSXCOM. F3A31880 NZT* 8TSCM IS TSXCOM EMPTY. F3A31890 TRA AC1 YES TRANSFER F3A31900 CLA 9TSCM NO GET LOCATION OF TSXCOM. F3A31910 ADD* 8TSCM ADD TSXCOM LENGTH. F3A31920 PDC ,2 LOAD IR2 WITH 2S COMP OF LAST ADD F3A31930 SXD TSXC3,2 RESET TEST FOR NON EMPTY TSXCOM. F3A31940 AC1 CLA SWTCT GET NEW TRANSFER FOR COMPILING F3A31950 STO CIBL2 AND SET INSTRUCTION F3A31960 LDC 9CTB2,2 GET 2S COMP OF LAST ADD OF BUFFER 1. F3A31970 SXD CIBL1,2 SET TEST IN COMPILING F3A31980 LDC 9CTB1,2 GET 2S COMP OF FIRST ADD. F3A31990 SXA CINF,2 AND SET ADD AND F3A32000 SXD CINF,2 DEC OF CINF. F3A32010 SPACE 5 F3A32020 REM MERGE OF FIRST FILE AND TIFGO FILE F3A32030 REM F3A32040 RFT NOFF IS FIRST FILE EMPTY F3A32050 TRA AC9 YES TRANSFER. F3A32060 CLA FFLBF,1 GET 1ST WORD OF FIRST FILE BUFFER. F3A32070 CAS FPTCN IS THERE FLOATING POINT TRAP. F3A32080 TRA *+2 NO TRANSFER $F3A32090 TRA *+2 YES TRANSFER. F3A32100 TSX PAT1B,4 GO SET INDEX TO WRITE CLA2 STO6)+5 ONLY $F3A32110 AXT 5,2 COMPILE FIRST FIVE $F3A32120 TSX CPFF1,4 CITS OF THE F3A32130 TIX *-1,2,1 FIRST FILE. F3A32140 NZT* 8TSCM IS TSXCOM TABLE EMPTY. F3A32150 TRA AC9 YES TRANSFER F3A32160 AC2 LDC 9TSCM,2 NO LOAD IR 2 WITH ENTRY POINT TO TSXCOM. F3A32170 CLA TSXCM,2 GET 1ST WORD OF TSXCOM. F3A32180 ANA DCMSK GET IFN. F3A32190 CAS FFLBF,1 COMPARE IFN OF TSXCOM TO IFN OF FIRST FILEF3A32200 TRA AC9 IFN IS GREATER TRANSFER F3A32210 TRA AC9 IFN IS EQUAL.TRANSFER F3A32220 STD FFLFN IFN IS LESS SAVE IFN IN FFLCFN. F3A32230 TSX TSXC1,4 TSXCOM TABLE SEARCH F3A32240 AC9 RFT NOTF IS TIFGO FILE EMPTY. F3A32250 TRA AG1 YES TRANSFER. F3A32260 LXA STFIF,2 NO LOAD IR2 WITH TIFGO ENTRY POINT F3A32270 AC6 CLA FFLBF,1 GET 1ST WORD OF FIRST FILE CIT. F3A32280 STD FFLFN SAVE IFN. F3A32290 CLA TFGBF,2 GET 1ST WORD OF TIFGO FILE CIT. F3A32300 ANA DCMSK GET IFN. F3A32310 STD TFGFN SAVE TIFGO FILE IFN. F3A32320 CAS FFLFN COMPARE TIFGO IFN TO FIRST FILE IFN. F3A32330 TRA AF1 TIFGO IFN GREATER TRANSFE TO FIRST COMPILEF3A32340 TRA AJ1 TIFGO IFN EQUAL TRANSFER F3A32350 SPACE 1 F3A32360 REM COMPILE TIFGO FILE F3A32370 REM F3A32380 AC5 TSX CPTF1,4 TIFGO IFN LESS COMPILE TIFGO. F3A32390 AC4 RFT NOTF IS TIFGO EMPTY. F3A32400 TRA AG1 YES TRANSFER TO FINISH FIRST FILE F3A32410 CLA TFGBF,2 NO GET NEXT TIFGO. F3A32420 ANA 2BIT IS THERE A BIT IN 2 F3A32430 TNZ AC5 YES TRANSFER BACK AND COMPILE TIFGO F3A32440 CLA TFGBF,2 REGET NEXT TIFGO. F3A32450 ANA DCMSK GET IFN. F3A32460 CAS TFGFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A32470 TRA AC6 NEXT IFN GREATER TRANSFER TO FIRST COMPAREF3A32480 TRA AC5 NEXT IFN EQUAL GO BACK COMPILE TIFGO F3A32490 TRA AC5 NEXT IFN LESS GO BACK COMPILE TIFGO F3A32500 SPACE 1 F3A32510 REM TIFGO FILE EMPTY FINISH COMPILING FIRST FILE F3A32520 REM F3A32530 AG1 RFT NOFF IS FIRST FILE EMPTY F3A32540 TRA AOUT YES TRANSFER OUT. F3A32550 AG2 CLA FFLBF,1 GET FIRST FILE IFN. F3A32560 STD FFLFN SAVE IFN. F3A32570 AG5 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32580 RNT NOFF IS FIRST FILE EMPTY F3A32590 TRA AG8 NO TRANSFER F3A32600 TSX TSXC1,4 YES SEARCH TSXCOM F3A32610 TRA AOUT TRANSFER OUT F3A32620 AG8 CLA FFLBF,1 IS THIS SAME BLOCK FIRST FILE CITS. F3A32630 TZE AG5 YES TRANSFER BACK F3A32640 TSX TSXC1,4 NO SEARCH TSXCOM F3A32650 AG9 CLA FFLBF,1 GET NEXT CIT. F3A32660 ANA DCMSK GET IFN. F3A32670 CAS FFLFN COMPARE NEXXT IFN TO PREVIOUS IFN. F3A32680 TRA AG2 GREATER GO BACK F3A32690 TRA *+1 EQUAL OR LESS F3A32700 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32710 RNT NOFF IS FIRST FILE EMPTY F3A32720 TRA AG9 NO GO BACK F3A32730 TRA AOUT YES TRANSFER OUT F3A32740 SPACE 1 F3A32750 REM COMPILE FIRST FILE F3A32760 REM F3A32770 AF1 TSX CPFF1,4 COMPILE FIRST FILE F3A32780 RFT NOFF IS FIRST FILE EMPTY. F3A32790 TRA AH1 YES TRANSFER TO FINISH TIFGO F3A32800 CLA FFLBF,1 IS NEXT IFN ZERO. F3A32810 TZE AF1 YES TRANSFER BACK FOR SAME BLOCK F3A32820 TSX TSXC1,4 NO SEARCH TSXCOM F3A32830 AF2 CLA FFLBF,1 GET NEXT CIT. F3A32840 ANA DCMSK GET IFN. F3A32850 CAS FFLFN COMPARE NEXT IFN WITH PREVIOUS IFN. F3A32860 TRA AC6 GREATER TRANSFER TO TIFGO COMPARE F3A32870 TRA *+1 EQUAL OR LESS F3A32880 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32890 RNT NOFF IS FIRST FILE EMPTY F3A32900 TRA AF2 NO GO BACK F3A32910 TRA AH2 YES TRANSFER TO FINISH TIFGO F3A32920 SPACE 1 F3A32930 REM FIRST FILE EMPTY FINISH COMPILING TIFGO FILE F3A32940 REM F3A32950 AH1 TSX TSXC1,4 SEARCH TSXCOM F3A32960 AH2 RFT NOTF IS TIFGO FILE EMPTY F3A32970 TRA AOUT YES TRANSFER OUT. F3A32980 TSX CPTF1,4 NO COMPILE TIFGO F3A32990 TRA AH2 TRANSFER BACK F3A33000 SPACE 1 F3A33010 REM TIFGO FILE IFN EQUALS FIRST FILE IFN F3A33020 REM F3A33030 AJ1 CLA TFGBF,2 IS 1ST WORD OF TIFGO CIT MINUS OR ASSIGN. F3A33040 TPL AL1 NO TRANSFER F3A33050 SPACE 1 F3A33060 REM COMPILE FOR ASSIGN GO TO F3A33070 REM F3A33080 SSP CHANGE SIGN TO PLUS F3A33090 STO TFGBF,2 PUT BACK IN TIFGO BUFFER. F3A33100 ADD (370) SET ADDEND. F3A33110 STO FFLBF,1 PUT IN FIRST FILE BUFFER. F3A33120 AJ4 TSX CPTF1,4 COMPILE TIFGO CIT F3A33130 RFT NOTF IS TIFGO FILE EMPTY F3A33140 TRA AG2 YS TRANSFER TO FINISH FIRST FILE F3A33150 CLA TFGBF,2 NO GET NEXT TIFGO CIT. F3A33160 ANA DCMSK GET TIFGO IFN. F3A33170 CAS TFGFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A33180 TRA AF1 GREATER TRANSFER TO FIRST FILE COMPILE F3A33190 TRA AJ4 EQUAL OR LESS F3A33200 TRA AJ4 GO BACK. F3A33210 SPACE 1 F3A33220 REM OR TIFGO FILE TO FIRST FILE F3A33230 REM F3A33240 AL1 AXT 4,4 OR THE TIFGO FILE F3A33250 CAL TFGBF,2 TO THE FIRST FILE. F3A33260 ORS FFLBF,1 FOR THIS CIT. F3A33270 TXI *+1,1,-1 F3A33280 TXI *+1,2,-1 F3A33290 TIX *-4,4,1 F3A33300 TXI *+1,1,4 F3A33310 AL5 TSX CPFF1,4 COMPILE FIRST FILE F3A33320 RFT NOFF IS FIRST FILE EMPTY F3A33330 TRA AL6 YES TRANSFER F3A33340 CLA FFLBF,1 NO GET NEXT CIT FOR FIRST FILE. F3A33350 ANA DCMSK GET IFN. F3A33360 CAS FFLFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A33370 TRA AL7 GREATER TRANSFER F3A33380 TRA AL5 EQUAL OR LESS F3A33390 TRA AL5 GO BACK F3A33400 AL6 TSX CPTF5,4 CHECK END OF TIFGO FILE. F3A33410 TRA AH2 TRANSFER TO FINISH TIFGO F3A33420 AL7 TSX CPTF5,4 CHECK END OF TIFGO FILE. F3A33430 TRA AC4 TRANSFER TO TIFGO COMPILE F3A33440 AOUT LXD CINF,1 GET ENTRY POINT F3A33450 CLA CIB-3,1 GET LAST OP CODE F3A33460 SUB (TRA) IS IT A TRANSFER OF. F3A33470 TZE BOUT YES TRANSFER F3A33480 SPACE 1 F3A33490 REM ADD LOAD BUTTON SEQUENCE F3A33500 REM F3A33510 TSX CIT00,4 NO COMPILE LOAD BUTTON SEQUENCE F3A33520 PZE L(0),,(RCD) RCDA F3A33530 PZE L(0),,L(0) F3A33540 TSX CIT00,4 COMPILE RCHA *+4 F3A33550 PZE L(0),,(RLA) F3A33560 PZE (AST),,L(4D) F3A33570 TSX CIT00,4 COMPILE LCHA F3A33580 PZE L(0),,(LCA) F3A33590 PZE L(0),,L(0) F3A33600 TSX CIT00,4 COMPILE TEFA *+3 F3A33610 PZE L(0),,(TAF) F3A33620 PZE (AST),,L(3D) F3A33630 TSX CIT00,4 COMPILE TRA 1 F3A33640 PZE L(0),,(TRA) F3A33650 PZE L(0),,L(1D) F3A33660 TSX CIT00,4 COMPILE IOCD 0,,3 F3A33670 PZE L(0),,(MON) F3A33680 PZE L(0),,L(0) F3A33690 TSX CIT00,4 COMPILE IOT F3A33700 PZE L(0),,(IOT) F3A33710 PZE L(0),,L(0) F3A33720 TSX CIT00,4 COMPILE LOC HPR 1,7 F3A33730 PZE (LOC),,(HPR) F3A33740 PZE L(0),,(7A1D F3A33750 TSX CIT00,4 COMPILE TRA LOC F3A33760 PZE L(0),,(TRA) F3A33770 PZE (LOC),,L(0) F3A33780 SPACE 5 F3A33790 REM TERMINAL ROUTINE FOR SECTION THREE F3A33800 REM F3A33810 BOUT CLA CIBL1 GET TEST INSTRUCTION F3A33820 STO SCIBI SAVE INSTRUCTION. F3A33830 STZ CIBL1 STORE ZERO IN TEST CELL F3A33840 TSX CIBLD,4 FORCE WRITE OF LAST BUFFER OF CITS. F3A33850 CLA SCIBI REGET TEST INSTRUCTION F3A33860 STO CIBL1 RESTORE TEST INSTRUCTION TO CELL F3A33870 CLA WARCN GET WORD AND RECORD COUNT OF CITS F3A33880 STO* 9CTCT PUT IT IN CELL FOR SECTION FOUR. F3A33890 STZ WARCN SET WARCN CELL TO ZERO F3A33900 NZT SOVCT DID OVERFLOW OCCUR. F3A33910 TRA BOUT1 NO TRANSFER. F3A33920 TSX RDTBA,4 YES REWIND TAPE THREE. F3A33930 CLA SOVCT GET WORD AND RECORD COUNT FOR OVERFLOW. F3A33940 SUB WARCT DOES IT AGREE WITH THE READ. F3A33950 TZE BOUT1 YES TRANSFER. F3A33960 TRA ERR21 NO GO TO IO PACKAGE. F3A33970 BOUT1 TSX RDTBA,4 WRITE EOF FOR CITS F3A33980 CLA ALA11 RESET LABEL FOR SECOND F3A33990 STO ALAB9 FILE OF CITS FROM CITS03. F3A34000 STO ALA10 TO A) FUNC F3A34010 XEC WTC01 GET INDEX TO CIT WRITE F3A34020 CLA SKLST,1 GET COMMAND. F3A34030 PAC ,2 GET 2S COMP OF BUFFER ADD. F3A34040 SXA CINF,2 AND SET CONTROL F3A34050 SXD CINF,2 CELLS ADD AND DEC. F3A34060 BOUTP TXI *+1,2,-5CTB2 BUMP IR 2 TO GET 2S COMP OF F3A34070 SXD CIBL1,2 LAST ADD AND SET TEST CELL. F3A34080 TSX RDC01,4 FIRST READ OF DO FILE C F3A34090 CLA ,1 GET 1ST WORD OF DO FILE. IS IT EMPTY. F3A34100 TZE BOUTA YES TRANSFER F3A34110 TSX CITR1,4 COMPILE DO FILE C. F3A34120 TSX TEST5,4 TEST FOR END OF DO FILE C F3A34130 TRA *-2 NO END GO BACK. F3A34140 BOUT2 LXA SFRFW,4 ARE THERE FORTRAN FUNCTIONS. $F3A34150 TXL BOUTB,4,0 NO, TRANSFER. $F3A34160 CLA FTRA MODIFY INST FOR PROPER RETURN F3A34170 STO FAD12 FROM MERGE F3A34180 CLA FTRB MODIFY INST TESTA ROUTINE F3A34190 STO TESTA+1 FOR END RETURN F3A34200 CLA SFRFW GET FORTRAN FUNCTION COMMAND F3A34210 XEC RDTBA GET INDEX TO SKLST. $F3A34211 STD SKLST,1 PUT COMMAND IN SKLST. $F3A34220 STA SKLST,1 $F3A34230 CLA RISE,1 GET TAPE NUMBER F3A34240 PDX ,2 PUT TAPE NUMBER IN IR2 F3A34250 TSX RDTBA,4 READ FORTRAN FUNCTIONS F3A34260 TSX RDTBA,4 SKIP OVER EOF AND TAPE IS CHECKED F3A34270 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADD F3A34280 SXA BOUT3,2 SAVE ADDRESS. F3A34290 BOUT3 CLA ** GET STORE CHANNEL F3A34300 PAC ,1 GET 2S COMP OF LAST ADD F3A34310 SXD TESTA,1 IN THE TWO TEST F3A34320 SXD BOUT4,1 FOR END. F3A34330 PAX ,2 GET LAST ADD F3A34340 SXD *+2,2 SAVE IT FOR COMPUTATION F3A34350 LAC SFRFW,2 GET 2S COMP OF 1ST ADD. F3A34360 TXI *+1,2,** COMPUTE WORD COUNT F3A34370 PXD ,2 PUT WORD COUNT IN AC F3A34380 SUB FOFWC DOES WORD COUNT WITH PREVIOUS COUNT. F3A34390 TZE *+2 YES TRANSFER. F3A34400 TRA ERR22 NO GO TO IO PACKAGE. F3A34410 LAC SFRFW,1 LOAD IR1 WITH ENTRY POINT F3A34420 CLA ,1 GET FIRST WORD OF CIT F3A34430 TMI OPS01 TRANSFER TO OPEN SUBROUTINE ON MINUS F3A34440 TSX CITR1,4 COMPILE FORTRAN FUNCTIONS. F3A34450 BOUT4 TXH *-3,1,** TEST FOR END. F3A34460 STZ CIBL1 STORE ZERO IN CIBL1 F3A34470 TSX CIBLD,4 FORCE WRITE OF LAST BUFFER. F3A34480 CLA 9CTCT GET ADD CIT COUNT. F3A34490 PAX ,1 PUT IT IN IR1 F3A34500 TXI *+1,1,-1 REDUCE IT BY 1 F3A34510 SXA *+2,1 SAVE IT FOR STORE $F3A34520 CLA WARCN GET WORD AND RECORD COUNT OF 2ND FILE F3A34530 STO ** STORE COUNT F3A34540 TRA BOUT6 TRANSFER. F3A34550 BOUTA TSX RDC01,4 RELEASE EMPTY 00 FILE BY F3A34560 TRA BOUT2 EXTRA CALL AND RETURN F3A34570 BOUTB STZ CIBL1 SET SWITCH AND FORCE WRITE F3A34580 TSX CIBLD,4 OF LAST BUFFER SECOND FILE OF CITS F3A34590 BOUT5 XEC RDTBA GET INDEX TO SKLST F3A34600 TXI *+1,1,-2 REDUCE IT BY 2 F3A34610 SXA RDTBA,1 RESTORE INDEX F3A34620 BOUT6 TSX RDTBA,4 WRITE EOF F3A34630 TSX RDTBA,4 REWIND TAPE 4 F3A34640 TSX (LOAD),4 GO TO SECTION FOUR F3A34650 PZE F3A34660 EJECT F3A34670 REM TSXCOM TABLE SEARCH F3A34680 REM F3A34690 TSXC1 SXA TSXC7,4 SAVE IR4. F3A34700 SXA TSXC6,1 SAVE IR1 F3A34710 STZ ERAS SET ERAS TO ZERO FOR DUPLICATE. F3A34720 TSXC2 AXT **,1 LOAD IR1 WITH TSXCOM ENTRY POINT. F3A34730 TSXC3 TXL TSXC5,1,** TEST FOR END OF TSXCOM F3A34740 CLA TSXCM,1 GET THE FIRST WORD OF TSXCOM. F3A34750 ANA DCMSK GET THE IFN. F3A34760 TRA PAT1D TO COMPARE FIRST FILE IFN $F3A34770 TSXR TRA TSXC5 TSXCOM IFN IS GREATER $F3A34780 CAL TSXCM+1,1 GET 2ND WORD OF TSXCOM. F3A34790 ANA PMASK IS TSXCOM TYPE 1 F3A34800 TZE TSXC4 NO IT IS TYPE 2 TRANSFER. F3A34810 CLA TSXCM,1 TYPE 1 GET 1ST WORD OF TSXCOM. F3A34820 ANA ADMSK GET TAG. F3A34830 STO M1CW+3 PUT TAG IN 4TH WORD OF CIT F3A34840 CLA TSXCM+1,1 GET 2ND WORD OF TSXCOM SYMBOL. F3A34850 STO M1CW+2 PUT IN 3RD WORD OF CIT F3A34860 TSX CIT00,4 COMPILE F3A34870 PZE L(0),,(LXD) 0,,LXD. F3A34880 PZE M1CW+2,,M1CW+3 SYB,,TAG F3A34890 TXI TSXC3,1,-2 RETURN TO NEXT TSXCOM ENTRY F3A34900 TSXC4 CLA TSXCM+1,1 TYPE 2 GET 2ND WORD OF TSXCOM. F3A34910 CAS ERAS COMPARE FOR DUPLICATE F3A34920 TRA *+2 NO DUPLICATE TRANSFER F3A34930 TXI TSXC3,1,-2 DUPLICATE RETURN TO NEXT ENTRY F3A34940 STO ERAS NO DUPLICATE PUT 2ND WD TSXCOM IN ERAF3A34950 TSX CIT00,4 COMPILE F3A34960 PZE L(0),,(SXD) 0,,SXD. F3A34970 PZE L(6)),,(4A4D F3A34980 CLA TSXCM+1,1 GET 2ND WORD OF TSXCOM. F3A34990 ANA ADMSK GET TAG NAME. F3A35000 STO M1CW+3 PUT TAG NAME IN 4TH WORD OF CIT. F3A35010 ORA L(A)) OR A) IN. F3A35020 STO M1CW+2 PUT A) PLUS TAG NAME IN 3RD WD OF CITF3A35030 TSX CIT00,4 COMPILE. F3A35040 PZE L(0),,(TSX) 0,,TSX. F3A35050 PZE M1CW+2,,L(4) A)+TAG,,4 F3A35060 TSX CIT00,4 COMPILE. F3A35070 PZE L(0),,(LXP) 0,,LXD. F3A35080 PZE M1CW+2,,M1CW+3 A)+TAG,,TAG F3A35090 TSX CIT00,4 COMPILE F3A35100 PZE L(0),,(LXD) 0,,LXD. F3A35110 PZE L(6)),,(4A4D 6),,4+4. F3A35120 TXI TSXC3,1,-2 RETURN TO NEXT ENTRY F3A35130 TSXC5 SXA TSXC2,1 SAVE TSXCOM ENTRY. F3A35140 TSXC6 AXT **,1 RESTORE IR1 F3A35150 TSXC7 AXT **,4 RESTORE IR4 F3A35160 TRA 1,4 TRANSFER F3A35170 SPACE 6 F3A35180 REM ROUTINE TO COMPILE, TEST AND READ FOR FIRST FILE F3A35190 REM F3A35200 CPFF1 SXA CPFF3,4 SAVE IR4 F3A35210 TSX CITR1,4 COMPILE FIRST FILE. F3A35220 CPFF2 TXL CPFF4,1,** TEST FIRST FILE FOR END AND TRANSFER.F3A35230 CPFF3 AXT **,4 RESTORE IR4 F3A35240 TRA 1,4 TRANSFER. F3A35250 CPFF4 ZET CPFF5 SWITCH FOR OVERFLOW OF FIRST FILE. F3A35260 CPFF5 TRA CPF15 CELL SET TO ZERO FOR OVERFLOW F3A35270 SXA CPF14,2 SAVE IR2 F3A35280 CPFF6 AXT SKLST-FIRF1,1 GET INDEX TO BUFFER F3A35290 TSX RDTBB,4 READ A RECORD F3A35300 TXH CPFF7,1,SKLST-FIRF2 IS THES BUFFER 1 OR 2 F3A35310 AXT SKLST-FIRF1,1 BUFFER 2 GET INDEX FOR BUFFER 1 F3A35320 SXA CPFF6,1 RESET INDEX TO BUFFER F3A35330 TRA CPFF8 TRANSFER F3A35340 CPFF7 AXT SKLST-FIRF2,1 BUFFER 1 GET INDEX FOR BUFFER 2 F3A35350 SXA CPFF6,1 RESET INDEX TO BUFFER F3A35360 CPFF8 TXL *+1,0,** SWITCH FOR 1ST TIME THRU. F3A35370 AXT CPFF9,1 GET ADD FOR 2ND TIME THRU. F3A35380 SXA CPFF8,1 RESET SWITCH F3A35390 TRA CPFF6 TRANSFER TO READ SECOND RECORD. F3A35400 CPFF9 CLA RISE,1 GET LOGICAL TAPE NUMBER F3A35410 PDX ,2 PUT TAPE NUMBER IN IR2 F3A35420 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADD F3A35430 SXA CPF10,2 PUT ADD IN NEXT CELL F3A35440 CPF10 NZT ** IS STORE CHANNEL CELL ZERO. F3A35450 TRA CPF16 YES TRANSFER. F3A35460 CLA* CPF10 NO GET LAST ADDRESS OF BUFFER. F3A35470 PAC ,2 GET 2S COMP OF LAST ADD. F3A35480 SXD CPFF2,2 PUT IN TEST INSTRUCTION F3A35490 PAX ,2 LOAD IR2 WITH LAST ADD F3A35500 SXD CPF11,2 SAVE IR2 IN DEC OF CPF11. F3A35510 CLA SKLST,1 GET 1ST ADD OF BUFFER F3A35520 PAC ,2 PUT 2S COMP OF 1ST ADD OF BUFFER IN 2F3A35530 CPF11 TXI *+1,2,** COMPUTE WORD COUNT F3A35540 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD F3A35550 PXA ,2 CLEAR AC AND PUT WORD COUNT IN ADD F3A35560 ANA L(3) GET BITS 35 AND 36 F3A35570 TZE CPF12 IS WORD COUNT MULTIPLE OF 4 F3A35580 TRA ERR20 NO GO TO IO PACKAGE. F3A35590 CPF12 SXD CPF13,2 YES PUT WORD COUNT IN DEC F3A35600 LXA WARCT,2 GET PREVIOUS WORD COUNT F3A35610 CPF13 TXI *+1,2,** COMPUTE NEW WORD COUNT. F3A35620 SXA WARCT,2 SAVE NEW WORD COUNT F3A35630 SXD CPFF8,1 SAVE ENTRY POINT TO FIRST FILE F3A35640 LXD CPFF8,1 GET ENTRY POINT TO FIRST FILE F3A35650 CPF14 AXT **,2 RESTORE IR2 F3A35660 TRA CPFF3 TRANSFER F3A35670 CPF15 SIR NOFF SET INDICATOR FOR NO FIRST FILE F3A35680 TRA CPFF3 TRANSFER. F3A35690 CPF16 SIR NOFF F3A35700 TRA CPF14 F3A35710 SPACE 6 F3A35720 REM ROUTINE TO COMPILE AND TEST TIFGO FILE F3A35730 REM F3A35740 CPTF1 SXA CPTF3,4 SAVE IR4 F3A35750 TSX CITR2,4 COMPILE TIFGO FILE. F3A35760 CPTF2 TXL CPTF4,2,** TEST TIFGO FILE FOR END AND TRANSFER.F3A35770 CPTF3 AXT **,4 RESTORE IR4 F3A35780 TRA 1,4 TRANSFER. F3A35790 CPTF4 SIR NOTF SET INDICATOR FOR NO TIFGO FILE F3A35800 TRA CPTF3 TRANSFER. F3A35810 CPTF5 SXA CPTF3,4 SAVE IR4. F3A35820 TRA CPTF2 F3A35830 SPACE 3 F3A35840 REM ROUTINE TO TEST FOR END OF DO FILE C RECORD F3A35850 REM F3A35860 TESTC TXH *+2,1,** TRANSFER IF NOT END F3A35870 TRA 1,4 END TRANSFER F3A35880 TRA 2,4 NOT END TRANSFER. F3A35890 SPACE 3 F3A35900 REM ROUTINE FOR DO FILE C TEST F3A35910 REM F3A35920 TEST5 SXA TEST7,4 SAVE IR4 F3A35930 TSX TESTC,4 TEST RECORD F3A35940 TSX RDC01,4 READ ANOTHER RECORD. F3A35950 TEST7 AXT **,4 RESTORE IR4 F3A35960 TRA 1,4 TRANSFER F3A35970 PAT1 TSX RDD01,4 READ COMPDO FIRST TIME $F3A35980 PAT1A TSX RDA01,4 READ COMPAIL FIRST TIME $F3A35981 TRA TOPAT+1 $F3A35982 PAT1B AXT 2,2 $F3A35983 TRA 2,4 $F3A35984 PAT1C TSX CIT00,4 $F3A35985 PZE L(0),,(TNZ) $F3A35986 PZE (AST),,L(2D) $F3A35987 TSX CIT00,4 $F3A35988 PZE L(0),,(SSP) $F3A35989 PZE L(0),,L(0) $F3A3598A TXI FAD12,1,-4 $F3A3598B (TNZ) BCI 1,TNZ000 $F3A3598C PAT1D CAS FFLFN COMPARE FIRST FILE IFN $F3A3598D TRA TSXR TSXCOM IFN IS GREATER $F3A3598E TRA TSXR+1 EQUAL. TRANSFER BACK TO COMPILE $F3A3598F TXI TSXC3,1,-2 GET NEXT TSXCOM ENTRY $F3A3598G TWO1A SXA TWO09,2 LOC OF LAST TRALEV BETA (32)F3A3598H CAL TWO1E SET SUPPLEMENTARY TRALEV (32)F3A35990 SLW GOOUT END INDICATOR (32)F3A36000 AXT 64,4 SET SUPPLEMENTARY TRLEV (32)F3A36010 SXA TRLVP,4 POINTER (32)F3A36020 TRA TWO10 PROCESS TRALEV ENTRY (32)F3A36030 TWO1B AXT 64,4 CHECK FOR DUP TRALEV (32)F3A36040 TWO16 CLA GOOUT+64,4 ENTRY (32)F3A36050 TMI TWO10 TRA IF END OF SUPPLEMENTARY TABLE (32)F3A36060 LAS TRLEV,2 FOUND (32)F3A36070 TRA *+2 NO (32)F3A36080 TRA TWO1D YES (32)F3A36090 TIX TWO16,4,2 NO,CONTINUE UNTIL ALL SUPP (32)F3A36100 TRA TWO10 ENTRIES EXAMINED,THEN PROCESS AS NEW (32)F3A36110 TWO1D CLA TIFFN DUPLICATE TRLEV BETA (32)F3A36120 STO PRAM (32)F3A36130 ORA GOOUT+65,4 COMPILE 0,,TRA,,IFN+ADD,,0 (32)F3A36140 SLW M1CW+2 WHERE HODEND IS THAT OF (32)F3A36150 TSX OTM01,4 FIRST SUCH BETA ENCOUNTERED (32)F3A36160 CAL TWO1E MARK TRALEV BETA AS (32)F3A36170 STP TRLEV,2 DUPLICATE (32)F3A36180 TXI TWO11,2,1 GO GET NEXT TRLEV BETA (32)F3A36190 TWO1E CAL M1CW+2 WAS NEW ADDEND USED (32)F3A36200 ANA ADMSK (32)F3A36210 TZE TWO1G NO (32)F3A36220 LXA TRLVP,4 YES ENTER TRLEV IN SUPP TABLE (32)F3A36230 TNX TWO1H,4,2 UNLESS ERROR-32ND ENTRY (32)F3A36240 SXA TRLVP,4 (32)F3A36250 SLW GOOUT+63,4 STORE ADDEND (32)F3A36260 CLA TRLEV,2 (32)F3A36270 STO GOOUT+62,4 AND BETA (32)F3A36280 CAL TWO1E (32)F3A36290 STP GOOUT+64,4 INDICATE NEW END OF SUPP TABLE (32)F3A36300 TWO1G TXI TWO11,2,1 GET NEXT TRLEV BETA (32)F3A36310 TWO1F CLA TRLEV,2 DO NOT COMPILE TRASTO UNLESS (32)F3A36320 TPL TWO12 TRLEV ENTRY IS NOT DUPLICATE (32)F3A36330 SSP TRLEV ENTRY IS DUPLICATE (32)F3A36340 STO TRLEV,2 (32)F3A36350 TRA TWO12+1 GET NEXT TRLEV ENTRY (32)F3A36360 TWO1H TSX *+1,4 ERROR-TOO MANY ADDENDS (32) (32)F3A36370 TXI (DIAG),,-500 FOR 1 IFN- (32)F3A36380 PRAM PZE CONTAINS IFN FOR DIAGNOSTIC (32)F3A36390 TRLVP PZE ** POINTER TO SUPPLEMENTRY TRLEV (32)F3A36400 GOOUT BSS 63 SUPPLEMENTARY TRLEV BUFFER (32)F3A36410 BSS PATCH-123 (32)F3A36420 HNDCD BSS OPSUB SPACE FOR HAND-CODING OF BUILTIN FUNCT(32)F3A37000 BTTAB SYN * (32)F3A38990 END -1 (32)F3A39000