Forgot your password?
Document Actions
32K 709/7090 FORTRAN - SECTION THREE
Click here to get the file
File contents
$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