$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