Personal tools
You are here: Home Projects FORTRAN and FORTRAN II Source Code ibsys FORTRAN 32K 709/7090 FORTRAN - SECTION THREE
Document Actions

32K 709/7090 FORTRAN - SECTION THREE

by Paul McJones last modified 2005-06-01 20:11

Click here to get the file

Size 289.8 kB - File type text/plain

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
« July 2014 »
Su Mo Tu We Th Fr Sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
 

Powered by Plone CMS, the Open Source Content Management System

This site conforms to the following standards: