Personal tools
You are here: Home Projects FORTRAN and FORTRAN II Source Code 704 FORTRAN II Revised version of transcription of SAP assembly source code, for online viewing
Document Actions

Revised version of transcription of SAP assembly source code, for online viewing

by Paul McJones last modified 2017-12-19 14:36

Click here to get the file

Size 4.2 MB - File type text/html

File contents

<html>
<head>
<title>
Assembly language (SAP) source code of 4K and 8K drum versions of the final IBM 704 FORTRAN II compiler
</title>
</head>
<body>
<pre>
       REM 704 FORTRAN SELF LOADING RECORD 1 TO CS.
       FUL
       LXA 0,1
       CPY 2,1
       TXI 1,1,1
       CPY 25,1
       HTR 3
       TZE 0
       COM
       ACL 2
       COM
       TRA 23
       RTT
       IOD
       HTR 0
       TXI 13,1,-1
       CAD 0,1
       CAL 15
       STA 22
       ARS 18
       STA 13
       CAL 15
       CPY 15
       CPY 2
       RTB 1
       LXD 23,1
       CPY 3
       LTM
       BST 145
       END
       REM FORTRAN II CARD-TO-TAPE
       ORG 72
 BEGIN RCD 1
       LXD ADD01,1
       LXD ADD02,2
 ADD23 CPY L9ROW            COPY 92
       TXL ADD03,
       TRA 2,4              EOF TR
 ADD03 STQ DATA1            STORE 9L
       SXD ADD01,1
       SXD ADD02,2
       LXD ADD04,1
       CPY R9ROW            COPY 9R
       STQ DATA2            STORE 9R
       TSX SUB1,2           EXIT ENTRY1 SUB1
 ADD01 TXL ADD05            RETURN1
       ALS 1                RETURN2
 ADD02 TXL ADD06            EXIT TO ENTRY2 SUB1
ADD05  CPY DATA3
       STQ DATA1
       CPY DATA4            COPY RIGHT
       STQ DATA2
       TSX SUB1,2
 ADD04 TXL ADD07,0,8        RETURN1
       ALS 3                RETURN2
       TXL ADD08
 ADD07 CAL L9ROW
       SLW DATA1
       CAL R9ROW
       SLW DATA2
 ADD14 TXL ADD09,1,1
 ADD15 CPY L9ROW
       TXL ADD10
 ADD12 HTR BEGIN            EOF
       TXL ADD11            EOR
 ADD10 CAL L9ROW
       ANA DATA1
       TNZ ADD12
       CAL L9ROW
       ORS DATA1
       CPY R9ROW
       CAL R9ROW
       ANA DATA2
       TNZ ADD12
       CAL R9ROW
       ORS DATA2
       TNX ADD13,1,1
       TSX SUB1,2
       TXL ADD14             RETURN1
       TXL ADD08             RETURN2
 ADD09 CAL DATA3
       ORA DATA1
       SLW DATA3
       CPY DATA5
       ANA DATA5
       SLW DATA1
       CAL DATA4
       ORA DATA2
       SLW DATA4
       CPY DATA6
       ANA DATA6
       SLW DATA2
 ADD13 TSX SUB1,2
       TXL ADD15             RETURN1
       ALS 4                 RETURN2
       TXL ADD08
 ADD11 CAL DATA1
       SLW L9ROW
       CAL DATA3
       COM
       ANA DATA5
       ANS DATA1
       CAL DATA2
       SLW R9ROW
       CAL DATA4
       COM
       ANA DATA6
       ANS DATA2
       TSX SUB1,2
       TXL ADD16              RETURN1
       SLW DATA0              RETURN2
       ALS 2
       ACL DATA0
       ALS 1
       TXL ADD08
 ADD16 CAL DATA3
       SWT 6
       TRA ADD34
ADD32  TXL ADD31
ADD33  WTD 5
       TRA ADD29
ADD34  WTD 2
ADD29  ORA DATA5
       ORA L9ROW
       COM
       SLW DATA1
       CAL DATA4
       ORA DATA6
       ORA R9ROW
       COM
       SLW DATA2
       TSX SUB1,2
       TXL ADD17                 RETURN1
       SLW DATA0                 RETURN2
       ALS 1
       ACL DATA0
       ALS 4
       TXL ADD08
 ADD17 LXD ADD01,1
       LXD ADD02,2
       TRA 3,4
 SUB1  SXD ADD18,1
       SLN 1
       CAL 1,4
       ADD CONS1
       LDQ DATA1
 ADD22 STA ADD06
       STA ADD08
       TXH ADD19,1,1
       STQ DATA0                INDEX=1
       CAL DATA0
       TZE ADD20
 ADD19 LXA CONS1,1
 ADD21 PXD 12                   CLEAN ACC
       LGL 1                    1ST IN ACC
       ALS 5                    100000
       LGL 1                    1000001
       ALS 5                    100000100000
       LGL 1                    1000001000001
       ALS 5
       LGL 1
       ALS 5
       LGL 1
       ALS 5
       LGL 1
       TRA 2,2                  1000001000001000001000001000001
 ADD08 ACL 0,1                  ADDRESS COMPUTED AT ADD22 IN ADDRESS
 ADD06 SLW 0,1                  ENTRY2 ADDRESS PREV. COMPUTED AT ADD22
       TIX ADD21,1,1
       LXD ADD18,1
 ADD20 SLT 1
       TRA 1,2                  OFF
       LDQ DATA2                SENSE LIGHT ON
       CAL 1,4
       ADM ADD21
 ADD18 TXL ADD22,0,**           IR1 STORED IN DECREMENT
 CONS1 HTR 6
 DATA0 HTR
 DATA1 HTR                      9L ROW
 DATA2 HTR                      9R ROW
 DATA3 HTR
 DATA4 HTR
 DATA5 HTR
 DATA6 HTR
 L9ROW HTR
 R9ROW HTR
START  REW 2
       SLN 0
 ADD27 RCD 1
       TSX ADD23,4
       HTR RECOR
       TXL ADD24                 RETURN3
       SLN 2                     RETURN4
       LXD ADD25,4
 ADD26 CPY BLOCK,4
       TIX ADD26,4,1
 ADD25 TXL ADD27,0,12
 ADD24 SLT 2
       TRA ADD28                 OFF
       SWT 6
       TRA ADD30
       WEF 5
       REW 5
 ADD28 RTB 1
       CPY RECOR
       TRA ADD28
       TRA 4                     EOF
       REW 1
       RTB 1
       RTB 1
       TSX 4,4
 RECOR HTR
BLOCK  BES 11
ADD31  REW 5
       CLS ADD32
       STO ADD32
       CAL DATA3
       TRA ADD33
ADD30  WEF 2
       REW 2
       TRA ADD28
       END
       REM AST
       REM ************* FORTRAN II SECTION SIX ************************F6R00010
       REM FORTRAN 2   RECORD 0003  -  CIT TO SAP CONVERSION.           F6R00011
       REM                                                              F6R00012
       REM CIT TO SAP CONVERSION                                        F6R00020
 ZERO  EQU 113                                                          F6R00030
 ONE   EQU 114                                                          F6R00040
 SW1   EQU 127                                                          F6R00050
 SW2   EQU 128                                                          F6R00060
 SW3   EQU 129
 SW4   EQU 130
       ORG 136                                                          F6R00030
 START CLA ONE                                                          F6R00040
       CAS SW2                                                          F6R00050
       TRA ADD01         SW2 EQUAL ZERO, ASSUME SWITCH TWO UP,          F6R00060
       TRA LIB1          SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN,         F6R00070
       SWT 2             EQUAL TWO. TEST SWITCH TWO                     F6R00080
       TRA ADD01                                                        F6R00090
 LIB1  REW 4             SW TWO DOWN.                                   F6R00100
       WEF 2                                                            F6R00110
       LXD ADD02,2       SET READ ERROR COUNTER.                        F6R00120
 ADD02 TXI ADD03,0,5                                                    F6R00130
 ADD05 BST 4                                                            F6R00140
 ADD03 RTB 4             READ TAPE 4                                    F6R00150
       LXA DATA1,1                                                      F6R00160
 ADD04 CPY RECO3,1       CPY INTO REC-1, REC-2,---                      F6R00170
       TXI ADD04,1,1                                                    F6R00180
       TRA ADD01         END OF FILE ON TAPE 4.                         F6R00190
       ARS 255                                                          F6R00200
       ARS 0255                                                         F6R00210
       RTT                                                              F6R00220
       TIX ADD05,2,1     IF ERROR.                                      F6R00230
       SXD ADD06,1       SAVE COUNT OF NO. OF WORDS READ IN.            F6R00240
       LXA ADD07,1       SET XR1=0                                      F6R00250
 IN207 SXD ADD08,1       SAVE XR1.                                      F6R00260
       CAL RECOR,1       STORE SL IN DATA2                              F6R00270
       SLW DATA2         STORE OP IN DATA3                              F6R00280
       CAL RECO3,1                                                      F6R00290
       SLW DATA3                                                        F6R00300
       CAL RECO2,1       STORE SA IN DATA4                              F6R00310
       SLW DATA4                                                        F6R00320
       CAL REC01,1       STORE RA IN DATA5                              F6R00330
       SLW DATA5                                                        F6R00340
       LDQ DATA6                                                        F6R00350
       STQ E1005         STORE BLANKS IN E1006,1007,1010,1005           F6R00360
       STQ E1006                                                        F6R00370
       STQ E1007                                                        F6R00380
       STQ E1010                                                        F6R00390
       CAL DATA2         TEST SYMBOLIC LOCATION.                        F6R00400
       TZE ADD09         IF ZERO, GO TO ADD09.                          F6R00410
       LRS 30            NOT ZERO. SEE IF SL(1) EQUAL ZERO.             F6R00420
       TZE ADD10         SL(1) EQUAL ZERO, GO TO ADD10.                 F6R00430
       SUB DATA7         SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15.         F6R00440
       TNZ ADD11         SL(1) NOT EQUAL 15, GO TO ADD11                F6R00450
       CAL DATA6         SL(1) EQUAL 15. PUT BLANKS IN AC AND           F6R00460
       TRA ADD12         GO TO ADD12                                    F6R00470
 ADD11 ADD DATA7         RESOTRE SL(1) IN AC.                           F6R00480
       SUB LIB3                                                         F6R00490
       TZE LIB2          IF SL(1)=$, GO TO LIB2                         F6R00500
       ADD LIB3                                                         F6R00510
       SUB LIB5                                                         F6R00520
       TZE LIB6          IF SL(1)=(, GO TO LIB6                         F6R00530
       ADD LIB5                                                         F6R00540
       SUB DATA7                                                        F6R00550
       TPL ME1           GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560
       ADD DATA7                                                        F6R00570
       RQL 1             SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580
       TSX SUB1,1        AND GO TO SUB1 (TIV TYPE ENTRY).               F6R00590
       TRA ADD12                                                        F6R00600
 ME1   CAL DATA2                                                        F6R00610
       TRA ADD12                                                        F6R00620
 ADD10 LGL 13           IFN. ASSEMBLE SYMBOL AND GO TO SUB2.            F6R00630
       TSX SUB2,1                                                       F6R00640
 ADD09 LGL 36           SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC.     F6R00650
 ADD12 SLW E1003        STORE ACC. IN E1003.                            F6R00660
 IN245 LDQ DATA3        SELECT OP IN MQ.                                F6R00670
       CLS DATA8                                                        F6R00680
       LGL 18                                                           F6R00690
       STQ E0777        STORE DECREMENT IN E0777.                       F6R00700
       LDQ DATA6        LOAD MQ WITH BLANKS                             F6R00710
       LGL 6                                                            F6R00720
       ALS 6                                                            F6R00730
       STO E1004        STORE IN E1004.                                 F6R00740
       CAS DATA9        IS OP EQUAL OCT.                                F6R00750
       TRA ADD13        OP LESS THEN OCT                                F6R00760
       TRA ADD14        OP EQUAL OCT. GO TO ADD14.                      F6R00770
       CAS DAT10        OP GREATER THEN OCT. SEE IF OP=BCD.             F6R00780
       TRA ADD13                                                        F6R00790
       TRA ADD15        OP EQUAL BCD. GO TO ADD15.                      F6R00800
 ADD13 LDQ DATA4        OP NOT BCD OR OCT.                              F6R00810
       PXD              SELECT SA IN MQ.                                F6R00820
       LGL 6                                                            F6R00830
       TNZ IN301        SA(1) NOT EQUAL ZERO. GO TO IN301.              F6R00840
       LGL 12           SA(1) EQUAL ZERO. TEST FOR INTERNAL             F6R00850
       TNZ IN310        FORMULA NUMBER TYPE. IF YES, GO TO IN310.       F6R00860
       LDQ DATA6        SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH      F6R00870
       CLA DATA5        TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS.      F6R00880
       TNZ IN446        NOT EQUAL ZERO. GO TO IN446                     F6R00890
       CLA E0777        RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT.     F6R00900
       TNZ IN320        NOT ZERO, GO TO IN320                           F6R00910
       CAL DT713        ZERO, OR A BLANK TO RT-HAND END OF E1004.       F6R00920
       ORS E1004                                                        F6R00930
       TRA IN367                                                        F6R00940
 IN301 CAS DATA8        TEST IF SA(1)=16.                               F6R00950
       TRA IN313        GREATER THEN 16(TRUE SYMBOL). GO TO IN313.      F6R00960
       TSX 4,4          EQUAL IS ERROR.                                 F6R00970
       TSX SUB1,1       LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1.      F6R00980
       LRS 30           RETURN FROM SUB1.                               F6R00990
       RQL 1                                                            F6R01000
       TRA IN313                                                        F6R01010
 IN310 TSX SUB2,1       INTERNAL FORMULA NO. TYPE.                      F6R01020
       PXD                                                              F6R01030
       LGL 6                                                            F6R01040
 IN313 ORS E1004                                                        F6R01050
       STQ E1000                                                        F6R01060
       CAL DT713                                                        F6R01070
       ORS E1000                                                        F6R01080
       LDQ E1000                                                        F6R01090
 IN320 CAL IN313                                                        F6R01100
       TSX IN403,1                                                      F6R01110
       CLA DATA5       SELECT RELATIVE ADDRESS.                         F6R01120
       ARS 18                                                           F6R01130
       TZE IN335       RA EQUAL ZERO, GO TO IN335                       F6R01140
       LDQ DATA6       RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND       F6R01150
       TSX IN422,1     GO TO IN422                                      F6R01160
       CLA DATA5       SET ACC. EQUAL RA.                               F6R01170
       TPL IN333       IF RA POSITIVE, GO TO IN333.                     F6R01180
       CAL DT714       IF RA NEGATIVE, SELECT OCTAL 40 (MINUS)          F6R01190
       TRA IN334       AND GO TO IN334.                                 F6R01200
 IN333 CAL DATA8       SELECT OCTAL 20 (PLUS)                           F6R01210
 IN334 TSX IN416,1                                                      F6R01220
 IN335 CLA DATA5       SET ACC. EQUAL RA. ANA OCTAL 77777               F6R01230
       ANA DATA1                                                        F6R01240
       TNZ IN344       IF NOT ZERO, GO TO IN344.                        F6R01250
       CLA E0777       ZERO. TEST IF E0777 EQUAL ZERO.                  F6R01260
       TZE IN363       IF ZERO, GO TO IN363.                            F6R01270
       LDQ DT711       NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST     F6R01280
       TRA IN352       AND GO TO IN 352                                 F6R01290
 IN344 LDQ DT710                                                        F6R01300
       CAS DT722                                                        F6R01310
       TRA IN351                                                        F6R01320
       TRA IN351                                                        F6R01330
       LDQ DATA6                                                        F6R01340
 IN351 TSX IN422,1                                                      F6R01350
 IN352 CLA DT712                                                        F6R01360
       TSX IN416,1                                                      F6R01370
       CLA E0777                                                        F6R01380
       TZE IN363                                                        F6R01390
       ARS 18                                                           F6R01400
       LDQ DATA6                                                        F6R01410
       TSX IN422,1                                                      F6R01420
       CLA DT712                                                        F6R01430
       TSX IN416,1                                                      F6R01440
 IN363 PXD 6                                                            F6R01450
       LDQ DATA6                                                        F6R01460
       LGL 36,2                                                         F6R01470
 IN366 ORS *                                                            F6R01480
 IN367 WTD 2                                                            F6R01490
       LXA IN363,1                                                      F6R01500
 IN371 CPY E1011,1                                                      F6R01510
       TIX IN371,1,1                                                    F6R01520
       IOD                                                              F6R01530
       LXD ADD08,1                                                      F6R01540
       TXI ADD06,1,4                                                    F6R01550
 ADD06 TXL IN207,1,*                                                    F6R01560
       LXD ADD02,2                                                      F6R01570
 ADD08 TXI ADD03,0,*                                                    F6R01580
 IN401 TXL IN412,2,30  IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT     F6R01590
       CAL IN417       SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES  F6R01600
 IN403 ADD DT723       COMPUTE ADDRESS FOR STORING WORD.                F6R01610
       STA IN417                                                        F6R01620
       STA IN366                                                        F6R01630
       STA IN410                                                        F6R01640
       PXD             CLEAR ACC.                                       F6R01650
 IN410 SLW *           STORE ZERO IN WORD.                              F6R01660
       PDX 0,2         SET XR2 EQUAL TO ZERO                            F6R01670
 IN412 LGL 6           SELECT CHARACTER                                 F6R01680
       CAS DT713       IS CHARACTER BLANK.                              F6R01690
       TRA IN416       NO.                                              F6R01700
       TRA 1,1         YES, RETURN TO PROGRAM                           F6R01710
 IN416 ALS 30,2        NO, SHIFT CHARACTER                              F6R01720
 IN417 ORS *                                                            F6R01730
       PXD                                                              F6R01740
       TXI IN401,2,6   ADJUST XR2 SHIFT AND GO TO IN401.                F6R01750
 IN422 STQ E1002                                                        F6R01760
       SXD DT772,1                                                      F6R01770
 IN424 LRS 35                                                           F6R01780
       PDX 0,1                                                          F6R01790
       SLW E1001                                                        F6R01800
 IN427 DVP DT721                                                        F6R01810
       ALS 0,1                                                          F6R01820
       ORS E1001                                                        F6R01830
       STQ E1000                                                        F6R01840
       CLA E1000                                                        F6R01850
       TZE IN437                                                        F6R01860
       CLM 0                                                            F6R01870
       TXI IN427,1,-6                                                   F6R01880
 IN437 CAL E1001                                                        F6R01890
       LDQ E1002                                                        F6R01900
       LGL 1                                                            F6R01910
 IN442 LDQ E1002                                                        F6R01920
       LRS 6,1                                                          F6R01930
       LXD DT772,1                                                      F6R01940
       TRA 1,1                                                          F6R01950
 IN446 ARS 18                                                           F6R01960
       TZE IN320                                                        F6R01970
       TSX IN422,1                                                      F6R01980
       CLA DATA5                                                        F6R01990
       TPL IN455                                                        F6R02000
       CAL DT714                                                        F6R02010
       TRA IN457                                                        F6R02020
 IN455 PXD                                                              F6R02030
       LGL 6                                                            F6R02040
 IN457 ORS E1004                                                        F6R02050
       CAL IN313                                                        F6R02060
       TSX IN403,1                                                      F6R02070
       TRA IN335                                                        F6R02080
 ADD15 LDQ DATA4                                                        F6R02090
       CAL DATA8                                                        F6R02100
       TQP IN470                                                        F6R02110
       ADD DATA8                                                        F6R02120
       LRS 0                                                            F6R02130
 IN470 ORS E1004                                                        F6R02140
       ALS 3                                                            F6R02150
       LGL 3                                                            F6R02160
       ALS 3                                                            F6R02170
       LGL 3                                                            F6R02180
       ALS 3                                                            F6R02190
       LGL 3                                                            F6R02200
       ALS 3                                                            F6R02210
       LGL 3                                                            F6R02220
       ALS 3                                                            F6R02230
       LGL 3                                                            F6R02240
       ALS 3                                                            F6R02250
       LGL 3                                                            F6R02260
       SLW E1005                                                        F6R02270
       ALS 3                                                            F6R02280
       LGL 3                                                            F6R02290
       ALS 3                                                            F6R02300
       LGL 3                                                            F6R02310
       ALS 3                                                            F6R02320
       LGL 3                                                            F6R02330
       ALS 3                                                            F6R02340
       LGL 3                                                            F6R02350
       ALS 3                                                            F6R02360
       LGL 3                                                            F6R02370
       ALS 3                                                            F6R02380
       LGL 3                                                            F6R02390
       SLW E1006                                                        F6R02400
       TRA IN367                                                        F6R02410
 ADD14 CLA DATA4                                                        F6R02420
       SUB DT717                                                        F6R02430
       TNZ IN532                                                        F6R02440
       CAL DAT10                                                        F6R02450
       SLW E1004                                                        F6R02460
       TRA ADD15                                                        F6R02470
 IN532 CAL DT723                                                        F6R02480
       ORS E1004                                                        F6R02490
       CAL DATA4                                                        F6R02500
       SLW E1005                                                        F6R02510
       CAL DATA6                                                        F6R02520
       SLW E1006                                                        F6R02530
       TRA IN367                                                        F6R02540
 SUB1  SXD DT703,1     SAVE XR1 FOR RETURN                              F6R02550
       PAX 0,4         STORE CHARACTER IN XR4                           F6R02560
       SUB DATA7       IS CHARACTER *.                                  F6R02570
       TNZ IN550       NO, GO TO IN 550.                                F6R02580
       CAL DT716       YES, SELECT *.                                   F6R02590
       LDQ DATA6       LOAD MQ WITH BLANKS.                             F6R02600
       TRA IN313       GO TO IN 313.                                    F6R02610
 LIB2  TRA RPCH1                                                        F6R02620
       TRA ADD12                                                        F6R02630
 LIB3  BCD 100000$                                                      F6R02640
 LIB4  BCD 1$                                                           F6R02650
 LIB5  BCD 100000(                                                      F6R02660
 LIB6  CAL DATA2                                                        F6R02670
       TRA ADD12                                                        F6R02680
 IN550 CAL DT770,4     SELECT APPROPRIATE NUMERIC OR ALPHABETIC         F6R02690
       ALS 6           CHARACTER.                                       F6R02700
       ORA DT771       FOLLOWED BY LEFT PARENTHESIS                     F6R02710
       ALS 24          AND SHIFT INTO PROPER POSITION.                  F6R02720
       SLW E1000                                                        F6R02730
       LXA IN565,3                                                      F6R02740
       RQL 12                                                           F6R02750
       PXD 0                                                            F6R02760
       LGL 3           TAG BITS INTO ACC. ADDRESS                       F6R02770
       TNZ IN565       TAG BITS EQUAL ZERO. NO, GO TO IN565             F6R02780
 IN562 TNX IN575,1,1   YES. IF FINISHED WITH WORD, GO TO IN 575         F6R02790
       LGL 5           NOT FINISHED WITH WORD. TEST ADDRESS BITS        F6R02800
       TZE IN562       ADDRESS BITS ZERO.                               F6R02810
 IN565 PAX 4,4         ADDRESS BITS NOT ZERO.                           F6R02820
       CAL DT770,4     SELECT CHARACTER.                                F6R02830
       TNX IN576,1,1                                                    F6R02840
       ALS 22,2        SHIFT INTO PROPER POSITION .                     F6R02850
       ORS E1000                                                        F6R02860
       PXD                                                              F6R02870
       LGL 5                                                            F6R02880
       TXI IN565,2,6   ADJUST SHIFT.                                    F6R02890
 IN575 CAL DT713                                                        F6R02900
 IN576 LDQ DATA6                                                        F6R02910
       LGL 22,2                                                         F6R02920
       ORA E1000                                                        F6R02930
       LXD DT703,1                                                      F6R02940
       TRA 1,1                                                          F6R02950
 SUB2  STO E1000                                                        F6R02960
       LGL 8                                                            F6R02970
       PXD 0                                                            F6R02980
       LRS 29                                                           F6R02990
       DVP DT721                                                        F6R03000
       TNZ IN612                                                        F6R03010
       CAL DT713       IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK        F6R03020
 IN612 SLW E1002                                                        F6R03030
       LGL 36                                                           F6R03040
       SXD DT772,1                                                      F6R03050
       PAX 0,1                                                          F6R03060
       CAL IN756,1     SELECT ALPHABETIC CHARACTER.                     F6R03070
       ALS 6                                                            F6R03080
       ORA E1002                                                        F6R03090
       LDQ DATA6                                                        F6R03100
       LGL 24                                                           F6R03110
       SLW E1002                                                        F6R03120
       CLA E1000                                                        F6R03130
       TRA IN424                                                        F6R03140
 ADD07 HTR 0                                                            F6R03150
 ADD01 WEF 2                                                            F6R03160
       REW 4                                                            F6R03170
       REW 2                                                            F6R03180
       RTB 1                                                            F6R03190
       TRA 4                                                            F6R03200
 DT703 HTR 0                                                            F6R03210
 DAT10 OCT 604623636000                                                 F6R03220
 DATA9 OCT 602223246000                                                 F6R03230
 DATA6 OCT 606060606060                                                 F6R03240
 DT707 OCT 336060606060                                                 F6R03250
 DT710 OCT 636060606060                                                 F6R03260
 DT711 OCT 006060606060                                                 F6R03270
 DT712 OCT 73                                                           F6R03280
 DT713 OCT 60                                                           F6R03290
 DT714 OCT 40                                                           F6R03300
 DATA8 OCT 20                                                           F6R03310
 DT716 OCT 54                                                           F6R03320
 DT717 OCT 777777777777                                                 F6R03330
 DATA7 OCT 17                                                           F6R03340
 DT721 OCT 12                                                           F6R03350
 DT722 OCT 5                                                            F6R03360
 DT723 OCT 1                                                            F6R03370
 DATA1 OCT 77777                                                        F6R03380
 DT725 OCT 71                                                           F6R03390
       OCT 70                                                           F6R03400
       OCT 67                                                           F6R03410
       OCT 66                                                           F6R03420
       OCT 65                                                           F6R03430
       OCT 64                                                           F6R03440
       OCT 63                                                           F6R03450
       OCT 62                                                           F6R03460
 DT735 OCT 51                                                           F6R03470
       OCT 50                                                           F6R03480
       OCT 47                                                           F6R03490
       OCT 46                                                           F6R03500
       OCT 45                                                           F6R03510
       OCT 44                                                           F6R03520
       OCT 43                                                           F6R03530
       OCT 42                                                           F6R03540
       OCT 41                                                           F6R03550
       OCT 31                                                           F6R03560
       OCT 30                                                           F6R03570
       OCT 27                                                           F6R03580
       OCT 26                                                           F6R03590
       OCT 25                                                           F6R03600
       OCT 24                                                           F6R03610
       OCT 23                                                           F6R03620
       OCT 22                                                           F6R03630
 IN756 OCT 21                                                           F6R03640
       OCT 11                                                           F6R03650
       OCT 10                                                           F6R03660
       OCT 7                                                            F6R03670
       OCT 6                                                            F6R03680
       OCT 5                                                            F6R03690
       OCT 4                                                            F6R03700
       OCT 3                                                            F6R03710
       OCT 2                                                            F6R03720
       OCT 1                                                            F6R03730
 DT770 OCT 0                                                            F6R03740
 DT771 OCT 34                                                           F6R03750
 DT772 HTR 0                                                            F6R03760
 DATA2 HTR 0                                                            F6R03770
 DATA3 HTR 0                                                            F6R03780
 DATA4 HTR 0                                                            F6R03790
 DATA5 HTR 0                                                            F6R03800
 E0777 HTR 0                                                            F6R03810
 E1000 HTR 0                                                            F6R03820
 E1001 HTR 0                                                            F6R03830
 E1002 HTR 0                                                            F6R03840
 E1003 HTR 0                                                            F6R03850
 E1004 HTR 0                                                            F6R03860
 E1005 HTR 0                                                            F6R03870
 E1006 HTR 0                                                            F6R03880
 E1007 HTR 0                                                            F6R03890
 E1010 HTR 0                                                            F6R03900
 E1011 HTR 0                                                            F6R03910
       HTR 0                                                            F6R03920
       HTR 0                                                            F6R03930
       HTR 0                                                            F6R03940
 E1015 HTR 0                                                            F6R03950
 REC   BES 100                                                          F6R03960
 RPCH1 LLS 6                                                            F6R03961
       SUB LIB3                                                         F6R03962
       TZE LIB2A                                                        F6R03963
       CAL LIB4         SINGLE DOLLAR SIGN                              F6R03964
       TRA ADD12                                                        F6R03965
 LIB2A CAL DOL2         DOUBLE DOLLAR SIGN.                             F6R03966
       TRA ADD12                                                        F6R03967
 DOL2  BCD 1$$                                                          F6R03968
 REC01 SYN REC-4                                                        F6R03979
 RECO2 SYN REC-3                                                        F6R03980
 RECO3 SYN REC-2                                                        F6R03990
 RECOR SYN REC-1                                                        F6R04000
       WST 10,1
       END                                                              F6R04001
       REM                                                              F6R04011
       REM ************* FORTRAN II SECTION SIX ************************F6S00010
       REM FORTRAN 2   RECORD 005  -  ON-LINE PRINT.                    F6S00011
       REM                                                              F6S00012
       REM MODIFICATIONS TO TPH1 TO PRINT WITH                          F6S00020
       REM SENSE SWITCH CHANGES                                         F6S00030
       ORG 136                                                          F6S00040
       REW 2                                                            F6S00050
       LXD FILES,1                                                      F6S00060
       CLA ONE                                                          F6S00070
       CAS SW2          TEST SENSE SWITCH TWO.                          F6S00080
       TRA LIB1         UP                                              F6S00090
       TRA ASKER        DOWN                                            F6S00100
       SWT 2                                                            F6S00110
 LIB1  TNX CARDS,1,1    UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120
 ASKER CLA ONE          SWITCH 2 DOWN (OR UP BUT FILES TO DO)           F6S00130
       CAS SW3          TEST SENSE SWITCH THREE.                        F6S00140
       TRA FILES        UP, GO TO RETURN TO LOADER                      F6S00150
       TRA LIB2         DOWN                                            F6S00160
       SWT 3                                                            F6S00170
 FILES TXI CARDS,,3     UP, GO RETURN TO LOADER                         F6S00180
 LIB2  SXD COUNT,1      SWITCH THREE DOWN.                              F6S00190
       WPR              TO PRINT FILE OF TAPE TWO.                      F6S00200
       SPR 1                                                            F6S00210
 COUNT TXI PRINT                                                        F6S00220
 PARTS LXD COUNT,1                                                      F6S00230
       TIX ASKER,1,1                                                    F6S00240
 CARDS RTB 1            RETURN TO LOADER                                F6S00250
       TRA 4                                                            F6S00260
 ME8   HTR 5                                                            F6S00270
 PRINT RTT                                                              F6S00280
       NOP                                                              F6S00290
 ME9   LXD ME8,4                                                        F6S00300
 I113  LXD I117,2       SET RECORD LENGTH EQUAL 20                      F6S00310
       SLN 1            TURN ON SENSE LIGHT 1                           F6S00320
       RTD 2            SELECT TAPE TWO IN BCD MODE                     F6S00330
 I116  CPY D65,2        AND COPY RECORD.                                F6S00340
 I117  TXL I132,,20                                                     F6S00350
       TRA PARTS        END OF FILE.                                    F6S00360
 I121  TXI I122,2,1                                                     F6S00370
 I122  PXD 0,2                                                          F6S00380
       RTT              TEST TAPE CHECK.                                F6S00390
       TXL I134,0,0     ERROR.                                          F6S00400
 I125  ADD I131         PRINT THIS RECORD.                              F6S00410
       STD I130                                                         F6S00420
       TSX I143,4                                                       F6S00430
 I130  HTR D41+1                                                        F6S00440
 I131  TXL ME9,0,D65                                                    F6S00450
 I132  TIX I116,2,1     NEXT WORD BUT NO                                F6S00460
       TXL I122,0,0     MORE THEN 20.                                   F6S00470
 I134  TIX I136,4,1     TEST FOR ANOTHER TRY.                           F6S00480
       TSX 4,4                                                          F6S00490
 I136  BST 2            TRY AGAIN.                                      F6S00500
       TXL I113,0,0                                                     F6S00510
 I143  CLA 1,4          SUBSTITUTE CODING.                              F6S00520
       STD I302                                                         F6S00530
       ARS 18                                                           F6S00540
       ADD I302                                                         F6S00550
       STA I161                                                         F6S00560
       STA I211                                                         F6S00570
       SUB 1,4                                                          F6S00580
       SXD I302,4                                                       F6S00590
       PAX 0,4                                                          F6S00600
       SXD I155,4                                                       F6S00610
 I155  TXH 0,0,*                                                        F6S00620
       WPR             SELECT PRINTER                                   F6S00630
       CLA I301        FIND LAST NON-BLANK GROUP.                       F6S00640
       LXD I224,4                                                       F6S00650
 I161  CAS *,4                                                          F6S00660
       TXI I165,4,-1                                                    F6S00670
 I163  TXI I161,4,1                                                     F6S00680
       TXI I165,4,-1                                                    F6S00690
 I165  SXD I230,4      STORE END TEST.                                  F6S00700
       SXD I242,4                                                       F6S00710
       SXD I172,4                                                       F6S00720
       SXD I271,4                                                       F6S00730
       LXD I155,4                                                       F6S00740
 I172  TNX I176,4                                                       F6S00750
       TXL I175,4,12                                                    F6S00760
       SPR 8           FIRST CYCLE.                                     F6S00770
 I175  LXD I155,4      INITIALIZE GROUP COUNT.                          F6S00780
 I176  LXA I203,2      INITIALIZE LEFT SETUP.                           F6S00790
       LXD I245,1                                                       F6S00800
       CLA ONE                                                          F6S00810
       CAS SW4                                                          F6S00820
       TRA I201                                                         F6S00830
       TRA LIB5                                                         F6S00840
       SWT 4                                                            F6S00850
 I201  TXL I203,0,*                                                     F6S00860
 LIB5  NOP                                                              F6S00870
 I203  PXD                                                              F6S00880
 I204  SLW D41,1      CLEAR CARD IMAGE.                                 F6S00890
       SLW D21,1                                                        F6S00900
       TIX I204,1,1                                                     F6S00910
 I207  CAL I303       INITIALIZE COLUMN INDICATOR.                      F6S00920
 I210  SLW 0                                                            F6S00930
 I211  LDQ *,4        OBTAIN GROUP.                                     F6S00940
       SXD I201,4     STORE GROUP COUNT.                                F6S00950
       LXA I215,4     SET CHARACTER COUNT.                              F6S00960
 I214  PXD                                                              F6S00970
 I215  LGL 6                                                            F6S00980
       PAX 0,1                                                          F6S00990
       CAL 0          POSITION COLUMN INDICATOR.                        F6S01000
       ARS 6,4                                                          F6S01010
       TIX I245,1,16  TEST FOR DIGIT.                                   F6S01020
       TXH I250,1,15  TEST FOR Y-Z ONE                                  F6S01030
       ORS D36,3      STORE DIGIT.                                      F6S01040
 I224  TIX I214,4,1   COUNT CHARACTERS.                                 F6S01050
 I225  ARS 1          SHIFT AND TEST COLUMN.                            F6S01060
       LXD I201,4     RESTORE GROUP COUNT.                              F6S01070
       TXI I230,4,-1  COUNT GROUPS.                                     F6S01080
 I230  TXL I232,4     TEST FOR LAST NON-BLANK GROUP.                    F6S01090
       TNZ I210       TEST FOR END OF ROW.                              F6S01100
 I232  CAL D23,2      FORM TRUE 8,4                                     F6S01110
       ORS D26,2      AND 3 ROWS AND                                    F6S01120
       ORS D33,2      MOVE 8,4 AND 8,3                                  F6S01130
       SLW D24,2      ROWS.                                             F6S01140
       CAL D22,2                                                        F6S01150
       ORS D26,2                                                        F6S01160
       ORS D32,2                                                        F6S01170
       SLW D23,2                                                        F6S01180
 I242  TXL I265,4     TEST FOR END.                                     F6S01190
       TXH I265,2,15  TEST FOR RIGHT HALF.                              F6S01200
       TXI I207,2,16  INITIALIZE RIGHT HALF.                            F6S01210
 I245  TIX I253,1,16  TEST FOR 16/CH/32                                 F6S01220
       TXH I256,1,15  TEST FOR X-ZONE                                   F6S01230
       ORS D36,3      STORE DIGIT.                                      F6S01240
 I250  ORS D40,2      STORE Y-ZONE.                                     F6S01250
       TIX I214,4,1   COUNT CHARACTERS.                                 F6S01260
 I252  TXL I225       OBTAIN NEXT GROUP.                                F6S01270
 I253  TIX I261,1,16  TEST FOR 32/CH/48.                                F6S01280
       TXH I224,1,15  TEST FOR BLANK.                                   F6S01290
       ORS D36,3      STORE DIGIT.                                      F6S01300
 I256  ORS D37,2      STORE X-ZONE.                                     F6S01310
       TIX I214,4,1   COUNT CHARACTERS.                                 F6S01320
 I260  TXL I225       OBTAIN NEXT GROUP.                                F6S01330
 I261  ORS D36,2      STORE 0-ZONE.                                     F6S01340
       ORS D36,3      STORE DIGIT.                                      F6S01350
       TIX I214,4,1   COUNT CHARACTERS.                                 F6S01360
       TXL I225                                                         F6S01370
 I265  LXD I300,1     COPY LOOP.                                        F6S01380
 I266  CPY D41,1      CARD IMAGE COPIES.                                F6S01390
       CPY D21,1                                                        F6S01400
       TIX I266,1,1   COUNT COPIES.                                     F6S01410
 I271  TXH I276,4     TEST FOR SECOND CYCLE.                            F6S01420
       LXD I252,1     NO, RELOAD INDEX REGISTERS                        F6S01430
       LXD I260,2     AND RETURN.                                       F6S01440
       LXD I302,4                                                       F6S01450
       TRA 2,4                                                          F6S01460
 I276  WPR            SELECT PRINTER AGAIN.                             F6S01470
       SPR 9          SECOND CYCLE.                                     F6S01480
 I300  TXL I176,0,12  CONVERT REST OF LINE                              F6S01490
 I301  BCD 1                                                            F6S01500
 I302  HTR 1                                                            F6S01510
 I303  MZE                                                              F6S01520
       BES 40                                                           F6S01530
 D21   HTR 0                                                            F6S01540
 D22   HTR 0                                                            F6S01550
 D23   HTR 0                                                            F6S01560
 D24   HTR 0                                                            F6S01570
 D25   HTR 0                                                            F6S01580
 D26   HTR 0                                                            F6S01590
 D27   HTR 0                                                            F6S01600
 D30   HTR 0                                                            F6S01610
 D31   HTR 0                                                            F6S01620
 D32   HTR 0                                                            F6S01630
 D33   HTR 0                                                            F6S01640
 D34   HTR 0                                                            F6S01650
 D35   HTR 0                                                            F6S01660
 D36   HTR 0                                                            F6S01670
 D37   HTR 0                                                            F6S01680
 D40   HTR 0                                                            F6S01690
 D41   HTR 0                                                            F6S01700
 D65   BES 20                                                           F6S01710
       AST 10,1
       END                                                              F6S01720
       REM ************* FORTRAN II SECTION SIX ************************F6T00010
       REM FORTRAN 2   RECORD 007  -  TAPE 3,7 TO 2,6.                  F6T00011
       REM                                                              F6T00012
 ZERO  EQU 113                                                          
 ONE   EQU 114                                                          
 SW1   EQU 127                                                          
 SW2   EQU 128                                                          
 SW3   EQU 129
 SW4   EQU 130
       REM DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO                         F6T00020
       REM TAPE7 IF BATCH COMPILING                                     F6T00030
       ORG 136                                                          F6T00030
       REW 2              REWIND TAPES TWO AND THREE.                   F6T00040
       REW 3                                                            F6T00050
       LXD ZERO,1                                                       F6T00060
       SWT 6              TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070
       TRA FINI           UP. DO NOT DUMP TAPES BUT GO TO FINI.         F6T00080
 A11   RTT                                                              F6T00090
       NOP                                                              F6T00100
 A6    LXD SEVEN,4        SET READ ERROR COUNTER.                       F6T00110
 A2    LXD ZERO,2                                                       F6T00120
       RTD 2              READ A RECORD OF TAPE TWO.                    F6T00130
 A1    CPY REC-1,2                                                      F6T00140
       TXI A1,2,1                                                       F6T00150
       TRA EOF            EOF                                           F6T00160
       ARS 255                                                          F6T00170
       ARS 255                                                          F6T00180
       RTT                                                              F6T00190
       TRA ERROR          ERROR                                         F6T00200
       TXI NEXT2,2,-1                                                   F6T00210
 NEXT2 SXD A4,2           SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220
       LXD ZERO,2                  ONTO TAPE6                           F6T00230
       WTD 6              WRITE RECORD JUST READ ONTO TAPE SIZE         F6T00240
 A3    CPY REC-1,2                                                      F6T00250
       TXI A4,2,1                                                       F6T00260
 A4    TXL A3,2,*                                                       F6T00270
       IOD                                                              F6T00280
       TRA A11           GO READ NEXT RECORD FROM TAPE TWO.             F6T00290
 SEVEN     0,0,5                                                        F6T00300
 ERROR BST 2             READ ERROR PROCEDURE.                          F6T00310
       TIX A2,4,1                                                       F6T00320
       TSX 4,4                                                          F6T00330
 ER    HTR ER                                                           F6T00340
 EOF   WEF 6             AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350
       TXI A5,1,1                                                       F6T00360
       REM               ON TAPE SIX.                                   F6T00370
 A5    TXH TEST2,1,1     TWO FILES DONE. YES, GO TEST SWITCH TWO.       F6T00380
       RTD 2             NO                                             F6T00390
       TRA A6                                                           F6T00400
 TAPE7 CLA ONE           TEST SENSE SWITCH ONE.                         F6T00410
       CAS SW1                                                          F6T00420
       TRA EOF3+1                                                       F6T00430
       TRA A7                                                           F6T00440
       SWT 1                                                            F6T00450
       TRA EOF3+1                                                       F6T00460
 A7    LXD SEVEN,4       DOWN. SET READ ERROR COUNTER.                  F6T00470
 A12   LXD ZERO,2                 ONTO TAPE7                            F6T00480
       RTB 3             READ A RECORD FROM TAPE THREE                  F6T00490
 A8    CPY REC-1,2                                                      F6T00500
       TXI A8,2,1                                                       F6T00510
       TRA EOF3          EOF OF FILE.                                   F6T00520
       ARS 255                                                          F6T00530
       ARS 255                                                          F6T00540
       RTT                                                              F6T00550
       TRA ERR3          ERROR.                                         F6T00560
       TXI NEXT1,2,-1                                                   F6T00570
 NEXT1 SXD A10,2         SAVE WORD COUNT OF RECORD.                     F6T00580
       LXD ZERO,2                                                       F6T00590
       WTB 7             WRITE THE RECORD ONTO TAPE SEVEN.              F6T00600
 A9    CPY REC-1,2                                                      F6T00610
       TXI A10,2,1                                                      F6T00620
 A10   TXL A9,2,*        TEST END OF RECORD.                            F6T00630
       IOD                                                              F6T00640
       RTT                                                              F6T00650
       NOP                                                              F6T00660
       TRA A7            GO READ NEXT RECORD.                           F6T00670
 ERR3  BST 3                                                            F6T00680
       TIX A12,4,1       READ ERROR PROCEDURE.                          F6T00690
       TSX 4,4                                                          F6T00700
 ERR4  HTR ERR4                                                         F6T00710
 EOF3  WEF 7             AT EOF ON 3, WRITE EOF ON 7.                   F6T00720
       RTB 1                                                            F6T00730
       RTB 1                                                            F6T00740
       RTB 1                                                            F6T00750
 FINI  REW 2             REWINDS TAPES 2,3, AND 4 AND                   F6T00760
       REW 3             RETURNS TO LOADER,                             F6T00770
       REW 4                                                            F6T00780
       RTB 1                                                            F6T00790
       TRA 4                                                            F6T00800
 TEST2 CLA ONE           AFTER 2ND FILE FROM 2 TO 6,                    F6T00810
       CAS SW2           TEST SENSE SWITCH 2.                           F6T00820
       TRA TAPE7                                                        F6T00830
       TRA WT3                                                          F6T00840
       SWT 2                                                            F6T00850
       TRA TAPE7         UP. GO TEST SWITCH 1.                          F6T00860
 WT3   LXD A5,1          DOWN. RESET INDEX REGISTER 1 TO 1.             F6T00870
       CLA WT3-1         CHANGE A5 TRANSFER ADDRESS TO TAPE7.           F6T00880
       STA A5                                                           F6T00890
       TRA A6                                                           F6T00900
       BSS 40                                                           F6T00910
 REC   BES 500                                                          F6T00920
       END                                                              F6T00930
       REM SUCCESSFUL COMPILATION RECORD                                F1SC0010
       REM CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A    F1SC0020
       REM SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH           F1SC0030
       REM COMPILATION.  TAPE 1 IS REWOUND AND A LOAD BUTTON            F1SC0040
       REM SEQUENCE IS EXECUTED AT THE CARD READER.                     F1SC0050
       REM AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN       F1SC0060
       REM OPERATING NEEDS.                                             F1SC0070
       REM                                                              F1SC0080
       REM MASTER RECORD CARD = F0090000.                               F1SC0090
       ORG 24                                                           F1SC0100
START  LTM                                                              F1SC0110
       REW 1                                                            F1SC0120
       RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SC0130
       CPY 0                                                            F1SC0140
       TRA SECCPY                                                       F1SC0150
       HTR 32767           CARD READER EMPTY, HALT.                     F1SC0160
SECCPY CPY 1                                                            F1SC0170
       TRA 0                                                            F1SC0180
       END 24                                                           F1SC0190
       REM SOURCE PROGRAM ERROR RECORD.  THIS RECORD TESTS SL3 AND SL6  F1SPE010
       REM TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE  F1SPE020
       REM EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED.  SL3-ON  F1SPE030
       REM IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD    F1SPE040
       REM IS FOUND.  SS6-ON IF IN BATCH COMPILE MODE.                  F1SPE050
       REM                                                              F1SPE060
       REM MASTER RECORD CARD = F0100000.                               F1SPE070
       ORG 24                                                           F1SPE080
       LTM                                                              F1SPE090
       SLT 1               SL1-ON IF PROGRAM TO BE RE-TRIED.            F1SPE100
       TRA SS6TST                                                       F1SPE110
       TRA SKIPCM          SKIP TO COMMON RECORD                        F1SPE120
SS6TST SWT 6               SS6-ON IF IN BATCH MODE.                     F1SPE130
       TRA READCD          SINGLE COMPILATION. READ CARD READER SEQ.    F1SPE140
       SLT 3               ON IF END CARD ERROR FOUND BY BATCH MONITOR  F1SPE150
       TRA SKIPBM          SKIP TO BATCH MONITOR RECORD                 F1SPE160
       REW 6                                                            F1SPE170
READCD REW 4                                                            F1SPE180
       REW 3                                                            F1SPE190
       REW 2                                                            F1SPE200
       REW 1                                                            F1SPE210
       RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SPE220
       CPY 0                                                            F1SPE230
       TRA SECCPY                                                       F1SPE240
       HTR 32767           CARD READ EMPTY.                             F1SPE250
SECCPY CPY 1                                                            F1SPE260
       TRA 0                                                            F1SPE270
SKIPCM RTB 1               SKIP OVER FILE 1 MARK TO BATCH MONITOR.      F1SPE280
       RTB 1               SKIP OVER BATCH MONITOR RECORD               F1SPE290
SKIPBM RTB 1               AND/OR SKIP MACHINE ERROR RECORD             F1SPE300
       TRA 4               TO 1-CS TO READ NEXT RECORD                  F1SPE310
       END 24                                                           F1SPE320
       REM  MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010
       REM MASTER RECORD CARD F0120000                                  F1BM0020
       ORG 24                                                           F1BM0030
START  SWT 6                         TEST SW6, UP = SINGLE PROBLEM,     F1BM0040
       TRA ADD93+1         SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050
       SLN 0                         TURN OFF LIGHTS                    F1BM0060
ADD01  LXA L(5),4          COUNTER FOR 5 TRIES TO READ TAPE 5.          F1BM0070
       CAL BLANKS                                                       F1BM0080
       SLW BUFFER-1                                                     F1BM0090
       SLW BUFFER-2                                                     F1BM0100
       RTT                           TURN OFF INDICATOR                 F1BM0110
       NOP                                                              F1BM0120
ADD015 RTD 5                                                            F1BM0130
       LXA L(14),3                   ASSUME 14 WORDS PER RECORD         F1BM0140
ADD02  CPY BUFFER,1                                                     F1BM0150
       TRA ADD03                                                        F1BM0160
       TRA ADD90                     EOF                                F1BM0170
       TRA ADD04                     EOR                                F1BM0180
ADD03  TIX ADD02,1,1                                                    F1BM0190
ADD04  ARS 255                                                          F1BM0200
       ARS 255                                                          F1BM0210
       RTT                           TEST TAPE INDICATOR                F1BM0220
       TRA ADD80                     ON, PREPARE TO READ AGAIN          F1BM0230
       WTD 2                         OFF, WRITE THIS RECORD ON TAPE 2   F1BM0240
ADD05  CPY BUFFER,2                                                     F1BM0250
       TIX ADD05,2,1                                                    F1BM0260
       IOD                                                              F1BM0270
       RTT                                                              F1BM0280
       NOP                                                              F1BM0290
ADD70  TXH ADD71,0         ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300
       TSX PRINT,C         FIRST STATEMENT OF CURRENT SOURCE PROGRAM    F1BM0310
       PZE RESTR,0,BUFFER                                               F1BM0320
       WPR                                                              F1BM0330
       WPR                                                              F1BM0330
       WPR                                                              F1BM0330
       WPR                                                              F1BM0330
       WPR                                                              F1BM0330
       CLS ADD70           CHANGE TXH TO TXL                            F1BM0350
       STO ADD70                                                        F1BM0360
ADD71  SLN 1               SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370
       PXD 0,0                       EXITS                              F1BM0380
       LDQ BUFFER-14                 TEST FOR COMMENT CARD              F1BM0390
       LGL 6                                                            F1BM0400
       SUB L(C)                                                         F1BM0410
       TZE ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0420
       LGL 24                        DISCARD FORMULA NUMBER             F1BM0430
       PXD 0,0                                                          F1BM0440
       LGL 6                                                            F1BM0450
       TZE ADD06                     TEST FOR CONTINUATION CARD         F1BM0460
       SUB BLANK                                                        F1BM0470
       TNZ ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0480
ADD06  LXA L(12),1                   THIS RECORD IS OF FIRST CARD OF    F1BM0490
       LXA L(7),2                    FORTRAN STATEMENT. PREPARE TO TEST F1BM0500
       CLA BUFFER                    FOR END(..,..,..,..,..) CARD       F1BM0510
       STO BUFFER-2                  POSITION ENDMARK                   F1BM0520
       LDQ BUFFER-13                                                    F1BM0530
       TSX SUB1,4                                                       F1BM0540
       SUB L(E)                      TEST FIRST CHAR FOR E              F1BM0550
       TNZ ADD01                                                        F1BM0560
       TSX SUB1,4                                                       F1BM0570
       SUB L(N)                      TEST SECOND CHAR FOR N             F1BM0580
       TNZ ADD01                                                        F1BM0590
       TSX SUB1,4                                                       F1BM0600
       SUB L(D)                      TEST THIRD CHAR FOR D              F1BM0610
       TNZ ADD01                                                        F1BM0620
       TSX SUB1,4                                                       F1BM0630
       SUB L(()                      TEST FOURTH CHAR FOR (             F1BM0640
       TNZ ADD01                                                        F1BM0650
       TSX SUB1,4                                                       F1BM0660
       TSX SUB1,4                                                       F1BM0670
       SUB COMMA                     TEST SIXTH CHAR FOR ,              F1BM0680
       TNZ ADD01                                                        F1BM0690
       TSX SUB1,4                                                       F1BM0700
       TSX SUB1,4                                                       F1BM0710
       SUB COMMA                     TEST EIGHTH CHAR FOR ,             F1BM0720
       TNZ ADD01                                                        F1BM0730
       TSX SUB1,4                                                       F1BM0740
       TSX SUB1,4                                                       F1BM0750
       SUB COMMA                     TEST TENTH CHAR FOR ,              F1BM0760
       TNZ ADD01                                                        F1BM0770
ADD93  WEF 2                         THIS IS END CARD, TERMINATE FILE   F1BM0780
       RTB 1               SKIP OVER MACHINE ERROR RECORD.              F1BM0790
       TRA 4                         GO TO 1-CS FOR SECTION ONE         F1BM0800
ADD80  BST 5                         TAPE ERROR                         F1BM0810
       TIX ADD015,4,1                                                   F1BM0820
       TSX PRINT,4                                                      F1BM0830
           TP5ERR,0,TP5END                                              F1BM0840
SPROER SLN 3               SL3-ON IF TAPE CANNOT BE READ OR END CARD    F1BM0850
BSTRTN BST 1               TROUBLE.                                     F1BM0860
       BST 1               BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870
       BST 1               RECORD.                                      F1BM0880
       TRA 4               CALL IN 1 - CS.                              F1BM0890
ADD90  SLT 1                         IS THERE A PROBLEM TO BE COMPILED  F1BM0900
       TRA ADD91                     FINISHED, REWIND ALL TYPES         F1BM0910
       TSX PRINT,4                                                      F1BM0920
           ENDCD,0,CDTEND                                               F1BM0930
       REW 5                                                            F1BM0940
       TRA SPROER                                                       F1BM0950
ADD91  BST 1                                                            F1BM0970
       REW 6                                                            F1BM0974
       REW 5                                                            F1BM0976
       TSX PRINT,C                                                      F1BM0980
           REMA,0,ENDA                                                  F1BM0990
       TSX PRINT,C                                                      F1BM1000
       HTR RESTR,0,RESTR+1                                              F1BM1010
       TQO *+1                                                          F1BM1020
       TRA BSTRTN                                                       F1BM1030
SUB1   PXD 0,0                       SUBROUTINE TO BRING NEXT NON BLANK F1BM1040
       TIX ADD50,2,1                 CHAR OF BUFFER REGION TO AC.       F1BM1050
       LXA L(6),2                                                       F1BM1060
       LDQ BUFFER,1                                                     F1BM1070
       TXI ADD50,1,-1                                                   F1BM1080
ADD50  LGL 6                                                            F1BM1090
       CAS BLANK                                                        F1BM1100
       TRA ADD51                                                        F1BM1110
       TRA SUB1                                                         F1BM1120
ADD51  CAS ENDMK                                                        F1BM1130
       TRA 1,4                                                          F1BM1140
       TRA ADD01                                                        F1BM1150
       TRA 1,4                                                          F1BM1160
RESTR  BCD 11                                                           F1BM1165
BUFFER BES 14                                                           F1BM1170
       OCT 777777777777                                                 F1BM1180
ENDMK  OCT 77                                                           F1BM1190
L(3)       3                                                            F1BM1200
L(5)       5                                                            F1BM1210
L(6)       6                                                            F1BM1220
L(7)       7                                                            F1BM1230
L(12)      12                                                           F1BM1240
L(14)      14                                                           F1BM1250
L(C)   BCD 100000C                                                      F1BM1260
BLANKS BCD 1                                                            F1BM1270
BLANK  BCD 100000                                                       F1BM1280
L(E)   BCD 100000E                                                      F1BM1290
L(N)   BCD 100000N                                                      F1BM1300
L(D)   BCD 100000D                                                      F1BM1310
L(()   BCD 100000(                                                      F1BM1320
COMMA  BCD 100000,                                                      F1BM1330
TP5ERR BCD 90     TAPE 5 CONTAINING SOURCE SUBPROGRAM READ 5 TIMES      F1BM1340
       BCD 9 UNSUCCESSFULLY. TAPE 5 NOW POSITIONED AT RECORD WHICH      F1BM1350
       BCD 3 CANNOT BE  READ.                                           F1BM1360
TP5END BSS 0                                                            F1BM1370
ENDCD  BCD 90     END CARD MISSING OR MISPUNCHED FOR LAST SUBPROGR      F1BM1380
       BCD 3AM BEING COMPILED.                                          F1BM1390
CDTEND BSS 0                                                            F1BM1400
REMA   BCD 71                                                           F1BM1410
       BCD 6 THE LAST PROBLEM HAS BEEN PROCESSED.                       F1BM1420
ENDA   BSS 0                                                            F1BM1430
       REM                                                              F1BM1450
       REM PRINT CONTROL SUBROUTINE.                                    F1BM1460
 A     EQU 1                                                            F1BM1470
 B     EQU 2                                                            F1BM1480
 C     EQU 4                                                            F1BM1490
PRINT  BSS 0                                                            F1BM1500
 RAN   CLA 1,4                                                          F1BM1510
       STA RNA                                                          F1BM1520
       ARS 18                                                           F1BM1530
       STO RNB                                                          F1BM1540
       SXD RNC,4                                                        F1BM1550
 RN40  CLA RNA                                                          F1BM1560
       ADD RND                                                          F1BM1570
       CAS RNB                                                          F1BM1580
       NOP                                                              F1BM1590
       TRA RN50                                                         F1BM1600
       ALS 18                                                           F1BM1610
       ADD RNA                                                          F1BM1620
       STO RAN10                                                        F1BM1630
       TSX WOT,C                                                        F1BM1640
 RAN10 HTR                                                              F1BM1650
       CLA RAN10                                                        F1BM1660
       ARS 18                                                           F1BM1670
       SUB RNE                                                          F1BM1680
       STA RN20                                                         F1BM1690
       SUB RNE                                                          F1BM1700
       STA RN30                                                         F1BM1710
       STA RNA                                                          F1BM1720
       CLA BLNKS                                                        F1BM1730
 RN20  STO                                                              F1BM1740
 RN30  STO                                                              F1BM1750
       TRA RN40                                                         F1BM1760
 RN50  CLA RNB                                                          F1BM1770
       ALS 18                                                           F1BM1780
       ADD RNA                                                          F1BM1790
       STO RN60                                                         F1BM1800
       TSX WOT,C                                                        F1BM1810
 RN60  HTR                                                              F1BM1820
       LXD RNC,C                                                        F1BM1830
       TRA 2,C                                                          F1BM1840
 RNA   HTR                                                              F1BM1850
 RNB   HTR                                                              F1BM1860
 RNC   HTR                                                              F1BM1870
 RND   HTR 20                                                           F1BM1880
 RNE   HTR 1                                                            F1BM1890
       REM                                                              F1BM1900
       REM PRINT SUBROUTINE.                                            F1BM1910
 WOT   SXD X1,1                                                         F1BM1920
       SXD X2,2                                                         F1BM1930
       CLA 1,4          PRINT ROUTINE                                   F1BM1940
       STA T5           X                                               F1BM1950
       STD X4           X                                               F1BM1960
       ARS 18           X                                               F1BM1970
       ADD X4           X                                               F1BM1980
       STA PR2          X                                               F1BM1990
       STA CI9          X                                               F1BM2000
       SUB 1,4          B-A+1 IN AC                                     F1BM2010
       TZE 2,4                                                          F1BM2020
       TMI 2,4                                                          F1BM2030
       SXD X4,4                                                         F1BM2040
 L11   PAX 11,4                                                         F1BM2050
       SXD PR6,4                                                        F1BM2060
       CAL WP           INITIALIZE SWITCH                               F1BM2070
       STO WP           X                                               F1BM2080
 PR6   TXH T4                                                           F1BM2090
 T4    WPR                                                              F1BM2100
 Z2    TXL S3                                                           F1BM2110
 OZ2   TXL                                                              F1BM2120
 SP4   SPR 4                                                            F1BM2130
       TXL RPR+2                                                        F1BM2140
 S3    CLS WP           SET SWITCH FOR MASKING                          F1BM2150
       STO WP           CHARACTER FROM TYPE WHEEL 1                     F1BM2160
 T5    CAL *            OBTAIN FIRST CHARACTER                          F1BM2170
       ARS 30           X                                               F1BM2180
       TZE SP4          DOUBLE SPACE IF ZERO                            F1BM2190
       CAS YZONE        TEST FOR SPACE SUPPRESS                         F1BM2200
       TXL BK           NO                                              F1BM2210
       TXL RPR+1        SUPPRESS SPACE                                  F1BM2220
 BK    CAS BNK          TEST FOR BLANK                                  F1BM2230
       TXL DIGF         NO                                              F1BM2240
       TXL RPR+2        BLANK                                           F1BM2250
 DIGF  SPR 10           SET CHANNEL SKIP                                F1BM2260
       ANA MK           MASK OUT ZONE                                   F1BM2270
 MK    PAX 15,1         OBTAIN SPR COMBINATION                          F1BM2280
       TXI N2,1,1       X                                               F1BM2290
 N2    TNX N3,1,8       X                                               F1BM2300
       SPR 8            X                                               F1BM2310
 N3    TNX N4,1,4       X                                               F1BM2320
       SPR 4            X                                               F1BM2330
 N4    TNX N5,1,2       X                                               F1BM2340
       SPR 2            X                                               F1BM2350
 N5    TNX RPR,1,1      X                                               F1BM2360
       SPR 1            X                                               F1BM2370
 RPR   WPR                                                              F1BM2380
       SPR 5            SUPPRESS SPACE                                  F1BM2390
       CLA BLNKS        FIND LAST NON-BLANK GROUP                       F1BM2400
       LXD CI4,4        X                                               F1BM2410
 PR2   CAS 0,4          X                                               F1BM2420
       TXI PR1,4,-1     X                                               F1BM2430
       TXI PR2,4,1      X                                               F1BM2440
       TXI PR1,4,-1     X                                               F1BM2450
 PR1   SXD CI6,4        STORE END TEST                                  F1BM2460
       SXD CI8,4        X                                               F1BM2470
       SXD PR8,4        X                                               F1BM2480
       SXD WP4,4        X                                               F1BM2490
       LXD PR6,4        X                                               F1BM2500
 PR8   TNX PR5,4                                                        F1BM2510
       TXL PR3,4,12                                                     F1BM2520
       SPR 8            FIRST CYCLE                                     F1BM2530
 PR3   LXD PR6,4        INITIALIZE GROUP COUNT                          F1BM2540
 PR5   LXA PR7,2        INITIALIZE LEFT SETUP                           F1BM2550
       LXD YZ1,1        CLEAR CARD IMAGE                                F1BM2560
 PR7   PXD              X                                               F1BM2570
 PR4   SLW LT,1         X                                               F1BM2580
       SLW RT,1         X                                               F1BM2590
       TIX PR4,1,1      X                                               F1BM2600
 CIR   CAL COL1         INITIALIZE COLUMN INDICATOR                     F1BM2610
 CI2   SLW COL          X                                               F1BM2620
 CI9   LDQ 0,4          OBTAIN GROUP                                    F1BM2630
       SXD OZ2,4        STORE GROUP COUNT                               F1BM2640
       LXA Q6,4         SET CHARACTER COUNT                             F1BM2650
 CI1   PXD                                                              F1BM2660
 Q6    LGL 6                                                            F1BM2670
       PAX 0,1                                                          F1BM2680
       CAL COL          POSITION COLUMN INDICATOR                       F1BM2690
       ARS 6,4          X                                               F1BM2700
       TIX YZ1,1,16     TEST FOR DIGIT                                  F1BM2710
       TXH YZ2,1,15     TEST FOR Y-ZONE                                 F1BM2720
 CI5   ORS D,3          STORE DIGIT                                     F1BM2730
 CI4   TIX CI1,4,1      COUNT CHARACTERS                                F1BM2740
 CI3   ARS 1            SHIFT AND TEST COLUMN                           F1BM2750
       LXD OZ2,4        RESTORE GROUP COUNT                             F1BM2760
       TXI CI6,4,-1     COUNT GROUPS                                    F1BM2770
 CI6   TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                   F1BM2780
       TNZ CI2          TEST FOR END OF ROW                             F1BM2790
 CI7   CAL 8.3,2        FORM TRUE 8.4                                   F1BM2800
       ORS D-8,2        AND 3 ROWS AND                                  F1BM2810
       ORS D-3,2        MOVE 8.4 AND 8.3                                F1BM2820
       SLW 8.2,2        ROWS                                            F1BM2830
       CAL 8.4,2        FORM TRUE 8.4                                   F1BM2840
       ORS D-8,2        X                                               F1BM2850
       ORS D-4,2        X                                               F1BM2860
       SLW 8.3,2        X                                               F1BM2870
 CI8   TXL WP,4         TEST FOR END                                    F1BM2880
       TXH WP,2,15      TEST FOR RIGHT HALF                             F1BM2890
       TXI CIR,2,16     INITIALIZE RIGHT HALF                           F1BM2900
 YZ1   TIX XZ1,1,16     TEST FOR 16/CH/32                               F1BM2910
       TXH XZ2,1,15     TEST FOR X-ZONE                                 F1BM2920
       ORS D,3          STORE DIGIT                                     F1BM2930
 YZ2   ORS Y,2          STORE Y-ZONE                                    F1BM2940
       TIX CI1,4,1      COUNT CHARACTERS                                F1BM2950
 X1    TXL CI3          OBTAIN NEXT GROUP                               F1BM2960
 XZ1   TIX OZ1,1,16     TEST FOR 32/CH/48                               F1BM2970
       TXH CI4,1,15     TEST FOR BLANK                                  F1BM2980
       ORS D,3          STORE DIGIT                                     F1BM2990
 XZ2   ORS X,2          STORE X-ZONE                                    F1BM3000
       TIX CI1,4,1      COUNT CHARACTERS                                F1BM3010
 X2    TXL CI3          OBTAIN NEXT GROUP                               F1BM3020
 OZ1   ORS Z,2          STORE 0-ZONE                                    F1BM3030
       ORS D,3          STORE DIGIT                                     F1BM3040
       TIX CI1,4,1      COUNT CHARACTERS                                F1BM3050
       TXL CI3                                                          F1BM3060
 WP    TXH WP9          INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL     F1BM3070
       TXL WP7          NO PROGRAM                                      F1BM3080
 WP9   LXD WP2,1        MASK OUT FIRST COL. OF CARD IMAGE               F1BM3090
       CAL MK2          X                                               F1BM3100
 ANS   ANS LT,1         X                                               F1BM3110
       TIX ANS,1,1      X                                               F1BM3120
 WP7   LXD Z2,1         COPY LOOP                                       F1BM3130
 CRAN  CPY LT-12,1                                                      F1BM3140
       CPY RT-12,1      X                                               F1BM3150
       TXI T2,1,-1                                                      F1BM3160
 T2    TXH CRAN,1,-12                                                   F1BM3170
       CAL WP           RESET SWITCH FOR SECOND CYCLE                   F1BM3180
       STO WP           X                                               F1BM3190
 WP4   TXH WP5,4                                                        F1BM3200
       LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN           F1BM3210
       LXD X2,2         X                                               F1BM3220
 WT2   LXD X4,4         X                                               F1BM3230
 L2    TRA 2,4          X                                               F1BM3240
 RPR2  WPR                                                              F1BM3250
       TXL PR2-2                                                        F1BM3260
 WP5   WPR                                                              F1BM3270
       SPR 9            SECOND CYCLE                                    F1BM3280
 WP2   TXL PR5,0,12     CONVERT REST OF LINE                            F1BM3290
 BLNKS BCD 1                                                            F1BM3300
 X4    HTR                                                              F1BM3310
 YZONE OCT 20                                                           F1BM3320
 BNK   OCT 60                                                           F1BM3330
 MK2   OCT 377777777777                                                 F1BM3340
 COL1  MZE                                                              F1BM3350
 COL   BSS 1                                                            F1BM3360
 RT    BES 16                                                           F1BM3370
 8.5   BSS 1                                                            F1BM3380
 8.4   BSS 1                                                            F1BM3390
 8.3   BSS 1                                                            F1BM3400
 8.2   BSS 1                                                            F1BM3410
 D     BES 9                                                            F1BM3420
 Z     BSS 1                                                            F1BM3430
 X     BSS 1                                                            F1BM3440
 Y     BSS 1                                                            F1BM3450
 LT    SYN Y+1                                                          F1BM3460
 8.4L  SYN LT-14                                                        F1BM3470
 8.4R  SYN RT-14                                                        F1BM3480
       BSS 27                                                           F1BM3490
       END 24                                                           F1BM3500
       REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR   F1ME0010
       REM INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED,  F1ME0020
       REM OPERATOR SHOULD PRESS START.  IF NEXT SOURCE PROGRAM IS TO BEF1ME0030
       REM COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS  F1ME0040
       REM START.                                                       F1ME0050
       REM                                                              F1ME0060
       REM MASTER RECORD CARD = F0130000.                               F1ME0070
       ORG 24                                                           F1ME0080
       HTR NEXTIN                                                       F1ME0090
NEXTIN SLT 1                                                            F1ME0100
       TRA 4               GO TO 1 - CS TO REPEAT PROBLEM.              F1ME0110
       BST 1               BACKSPACE OVER MACHINE ERROR RECORD.         F1ME0120
       BST 1               BACKSPACE OVER BATCH MONITOR                 F1ME0130
       TRA 4               TO 1-CS TO READ NEXT RECORD.                 F1ME0160
       END 24                                                           F1ME0170
       REM PST                                                                                          
       REM APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.                
       REM 704 FORTRAN II / SECTONR ONE.                   29 OCT 58            
       REM                                                                      
       REM SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000 
       REM FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR     4F10001 
       REM NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A      4F10002 
       REM PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION   4F10003 
       REM IN TABLES.                                                   4F10004 
       REM           THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE=         4F10005 
       REM COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006 
       REM THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL    4F10007 
       REM STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B,   4F10008 
       REM C, AND D TREAT ARITHMETIC FORMULAS.                          4F10009 
       REM                                                              4F10010 
       REM SECTION 1 / COMMON =                                         4F10011 
       REM 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000.          4F10012 
       ORG 0                                                            4F100121
       PZE ORGCOM,,1TOCS                                                4F100122
       PZE ORGA-1                                                       4F100123
       REM                                                              4F10013 
       REM PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10014 
       REM                           EIFNO AND SENSE SWITCH SIMULATORS. 4F10015 
       REM                           TAPE TABLE BUFFERS.                4F10016 
       REM                           TAPE TABLE PARAMETERS - INTET.     4F10017 
       REM                           DRUM TABLE PARAMETERS.             4F10018 
       REM                           FORSUB COUNT AND BUFFER.           4F10019 
       REM                           CIB BUFFER AND PARAMETERS.         4F10020 
       REM                           REMAINING WORKING STORAGE.         4F10021 
       REM PART 2 / CONSTANTS USED BY SECTION ONE.                      4F10022 
       REM PART 3 / SUBROUTINES USED BY SECTION ONE=                    4F10023 
       REM NAME                      FUNCTION                           4F10024 
       REM C0150,2                   SCAN, AND CONVERT NUMERICS.        4F10025 
       REM C0160,2                   SCAN CHARACTERS.                   4F10026 
       REM C0180,2                   CONVERT NUMERICS.                  4F10027 
       REM C0190X,4                  INITIALIZE C0190 TO 1ST WORD OF F. 4F10028 
       REM C0390,4                   INSERT CHARACTER.                  4F10029 
       REM C0190,4                   OBTAIN NEXT NON-BLANK CHAR IN AC.  4F10030 
       REM CIT00,4                   COMPILED INSTRUCTION TABLE ENTRIES.4F10031 
       REM DIM.SR,4                  DIMENSION TABLE SEARCH.            4F10032 
       REM DRTABS(,4)                DRUM TABLE ENTRIES.                4F10033 
       REM GETIFN,4                  GET INTERNAL FORMULA NUMBER.       4F10034 
       REM JIF(GIF),4                JUMPS (GETS) IFN IN SL AND TL.     4F10035 
       REM MTR000                    MONITOR STATES FROM DRUM.          4F10036 
       REM RA000,4                   COMPUTER RELATIVE ADDRESS.         4F10037 
       REM RDRX,4                    READ DRUM INTO BUFR.               4F10038 
       REM SR6DC1,1                  CONVERT 6 BCD DIGITS TO 1 BINARY.  4F10039 
       REM SS000,4                   SCAN AND PROCESS SUBSCRIPTS.       4F10040 
       REM SUBX00,4                  ADD BLANKS TO SUBROUTINE NAMES.    4F10041 
       REM TESTFX,1                  TEST FOR FIXED OR FLOATING POINT.  4F10042 
       REM TEST..,4                  TEST CHARACTER IN AC.              4F10043 
       REM TET00,1                   TAPE TABLE ENTRIES.                4F10044 
       REM                                                              4F10045 
       REM DIAG                      DIAGNOSTIC CALLERS.                4F10046 
       REM                                                              4F10047 
       REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=          4F10048 
       REM                                                              4F10049 
       REM ** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION        4F10050 
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F10051 
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F10052 
       REM THIS LOGICAL BLOCK OR SUBROUTINE.                            4F10053 
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F10054 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F10055 
       REM                                                              4F10056 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057 
       REM                                                              4F10058 
       REM COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10059 
ORGCOM ORG 24                                                           4F10060 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061 
       REM                                                              4F10062 
       REM EIFNO AND SENSE SWITCH SIMULATORS.                           4F10063 
EIFNO  PZE **,,**                    EXTERNAL,,INTERAL FORMULA NUMBER.  4F10064 
ENDI1  PZE 2                         SIMULATOR FOR SENSE SWITCH 1.      4F10065 
ENDI2  PZE 2                         SIMULATOR FOR SENSE SWITCH 2.      4F10066 
ENDI3  PZE 2                         SIMULATOR FOR SENSE SWITCH 3.      4F10067 
ENDI4  PZE 2                         SIMULATOR FOR SENSE SWITCH 4.      4F10068 
ENDI5  PZE 2                         SIMULATOR FOR SENSE SWITCH 5.      4F10069 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070 
       REM                                                              4F10071 
       REM BUFFERS USED BY TET00 FOR THE TAPE TABLES.                   4F10072 
TEIFNO BSS 10                        EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073 
TDO    BSS 10                        DO STATEMENTS.                     4F10074 
TIFGO  BSS 10                        IF AND GO TO STATEMENTS.           4F10075 
TRAD   BSS 10                        IF AND GO TO TRANSFER ADDRESSES.   4F10076 
FORTAG BSS 10                        INDEXES TO TAU AND SIGMA TABLES.   4F10077 
FORVAR BSS 10                        RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078 
FORVAL BSS 10                        LEFT  - NON-SUB. FX. PT. VARIABLES.4F10079 
FRET   BSS 10                        FREQUENCY STATEMENTS.              4F10080 
EQUIT  BSS 10                        EQUIVALENCE STATEMENTS.            4F10081 
CLOSUB BSS 10                        NAMES OF SUBROUTINES.              4F10082 
FORMAT BSS 10                        FORMAT STATEMENTS.                 4F10083 
SUBDEF BSS 10                        SUBROUTINE DEFINITION STATEMENTS.  4F10084 
COMMON BSS 10                        UPPER MEMORY STORAGE STATEMENTS.   4F10085 
HOLARG BSS 10                        HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086 
NONEXC BSS 10                        NON-EXECUTED STATEMENTS.           4F10087 
TSTOPS BSS 10                        STOP STATEMENTS.                   4F10088 
CALLFN BSS 10                        1ST / LAST IFN FOR CALL STATEMENTS.4F10089 
FMTEFN BSS 10                        TABLE OF FORMAT EXTERNAL FORMNOS.  4F10090 
       REM  END OF THE TAPE TABLE BUFFERS.                              4F10091 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092 
       REM                                                              4F10093 
       REM INTET/ TABLE PARAMETERS USED BY TET00, WHERE                 4F10094 
       REM                           O = ORIGIN OF TABLE BUFFER,        4F10095 
       REM                           B = BUFFER CAPACITY,               4F10096 
       REM                           A = ADDRESS OF TABLE ENTRY,        4F10097 
       REM                           E = ENTRY LENGTH IN WORDS,         4F10098 
       REM                           C = COUNT OF BLOCKS PUT ON TAPE,   4F10099 
       REM                           P = PORTION OF BUFFER THAT IS FULL,4F10100 
       REM                                                              4F10101 
INTET  PZE TEIFNO,,10                00) 0,,B.                          4F10102 
       PZE EIFNO,,1                      A,,E.                          4F10103 
       PZE **,,**                        C,,P.                          4F10104 
       REM                                                              4F10105 
       PZE TDO,,10                   01) 0,,B.                          4F10106 
       PZE 1C,,5                         A,,E.                          4F10107 
       PZE **,,**                        C,,P.                          4F10108 
       REM                                                              4F10109 
       PZE TIFGO,,10                 02) 0,,B.                          4F10110 
       PZE 1C,,2                         A,,E.                          4F10111 
       PZE **,,**                        C,,P.                          4F10112 
       REM                                                              4F10113 
       PZE TRAD,,10                  03) 0,,B.                          4F10114 
       PZE 1G,,1                         A,,E.                          4F10115 
       PZE **,,**                        C,,P.                          4F10116 
       REM                                                              4F10117 
       PZE FORTAG,,10                04) 0,,B.                          4F10118 
       PZE G,,1                          A,,E.                          4F10119 
       PZE **,,**                        C,,P.                          4F10120 
       REM                                                              4F10121 
       PZE FORVAR,,10                05) 0,,B.                          4F10122 
       PZE G,,2                          A,,E.                          4F10123 
       PZE **,,**                        C,,P.                          4F10124 
       REM                                                              4F10125 
       PZE FORVAL,,10                06) 0,,B.                          4F10126 
       PZE G,,2                          A,,E.                          4F10127 
       PZE **,,**                        C,,P.                          4F10128 
       REM                                                              4F10129 
       PZE FRET,,10                  07) 0,,B.                          4F10130 
       PZE 1G,,1                         A,,E.                          4F10131 
       PZE **,,**                        C,,P.                          4F10132 
       REM                                                              4F10133 
       PZE EQUIT,,10                 08) 0,,B.                          4F10134 
       PZE 1C,,2                         A,,E.                          4F10135 
       PZE **,,**                        C,,P.                          4F10136 
       REM                                                              4F10137 
       PZE CLOSUB,,10                09) 0,,B.                          4F10138 
       PZE G,,1                          A,,E.                          4F10139 
       PZE **,,**                        C,,P.                          4F10140 
       REM                                                              4F10141 
       PZE FORMAT,,10                10) 0,,B.                          4F10142 
       PZE G,,2                          A,,E.                          4F10143 
       PZE **,,**                        C,,P.                          4F10144 
       REM                                                              4F10145 
       PZE SUBDEF,,10                11) 0,,B.                          4F10146 
       PZE 1G,,1                         A,,E.                          4F10147 
SBDFCN PZE **,,**                        C,,P.                          4F10148 
       REM                                                              4F10149 
       PZE COMMON,,10                12) 0,,B.                          4F10150 
       PZE 1G,,1                         A,,E.                          4F10151 
       PZE **,,**                        C,,P.                          4F10152 
       REM                                                              4F10153 
       PZE HOLARG,,10                13) 0,,B.                          4F10154 
       PZE 1G,,1                         A,,E.                          4F10155 
       PZE **,,**                        C,,P.                          4F10156 
       REM                                                              4F10157 
       PZE NONEXC,,10                14) 0,,B.                          4F10158 
       PZE EIFNO,,1                      A,,E.                          4F10159 
       PZE **,,**                        C,,P.                          4F10160 
       REM                                                              4F10161 
       PZE TSTOPS,,10                15) 0,,B.                          4F10162 
       PZE EIFNO,,1                      A,,E.                          4F10163 
       PZE **,,**                        C,,P.                          4F10164 
       REM                                                              4F10165 
       PZE CALLFN,,10                16) 0,,B.                          4F10166 
       PZE CALLNM,,1                     A,,E.                          4F10167 
       PZE **,,**                        C,,P.                          4F10168 
       REM                                                              4F10169 
       PZE FMTEFN,,10                17) 0,,B.                          4F10170 
       PZE SET,,1                        A,,E.                          4F10171 
       PZE **,,**                        C,,P.                          4F10172 
       REM                                                              4F10173 
       BSS 3                         EXPANSION SPACE INTET.             4F10174 
       REM  END OF TAPE TABLE PARAMETERS.                               4F10175 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176 
       REM                                                              4F10177 
       REM ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE               4F10178 
       REM                           ARG1 = 1ST LOCATION OF ARGUMENT,   4F10179 
       REM                           L    = LENGTH OF ARGUMENT IN WORDS,4F10180 
       REM                           TDA  = LOC. OF NEXT DRUM ENTRY,    4F10181 
       REM                           N    = NO. OF ENTRIES ON DRUM,     4F10182 
       REM                           ***  = TXL FOR ENTRY SUM TABLES,   4F10183 
       REM                           ***  = TXH FOR BLOCK SUM TAB(FLCN),4F10184 
       REM                           FDA  = LOC. OF 1ST DRUM ENTRY,     4F10185 
       REM                           K    = BUFFER CAPACITY IN ENTRIES, 4F10186 
       REM                           DBL  = K*(L+1) FOR ENTRY SUM TABLE,4F10187 
       REM                           DBL  = K*L+1   FOR BLOCK SUM TABLE,4F10188 
       REM                           J    = DRUM CAPACITY IN ENTRIES,   4F10189 
       REM                           I    = 5 - DRUM NUMBER.            4F10190 
       REM                                                              4F10191 
       PZE G+1,,1                    FIXCON) ARG1+L,,L                  4F10192 
       PZE FIXCON,,**                        TDA,,N                     4F10193 
TXLOP  TXL FIXCON,,50*1                  *** FDA,,K*L                   4F10194 
       PZE 50*2,,100                         DBL,,J                     4F10195 
FXCNIX TXI ALT,,5-2                      TXI ALT,,I                     4F10196 
       REM                                                              4F10197 
       PZE G+1,,1                    FLOCON) ARG1+L,,L                  4F10198 
       PZE FLOCON,,**                        TDA,,N                     4F10199 
TXHOP  TXH FLOCON,,50*1                  *** FDA,,K*L                   4F10200 
       PZE 50*1+1,,450                       DBL,,J                     4F10201 
FLCNIX TXI ALT,,5-2                      TXI ALT,,I                     4F10202 
       REM                                                              4F10203 
       PZE E+3+2,,2                  TAU1  ) ARG1+L,,L                  4F10204 
       PZE TAU1,,**                          TDA,,N                     4F10205 
       TXL TAU1,,25*2                    *** FDA,,K*L                   4F10206 
       PZE 25*3,,100                         DBL,,J                     4F10207 
TAU1IX TXI ALT,,5-4                      TXI ALT,,I                     4F10208 
       REM                                                              4F10209 
       PZE E+3+4,,4                  TAU2  ) ARG1+L,,L                  4F10210 
       PZE TAU2,,**                          TDA,,N                     4F10211 
       TXL TAU2,,12*4                    *** FDA,,K*L                   4F10212 
       PZE 12*5,,90                          DBL,,J                     4F10213 
TAU2IX TXI ALT,,5-4                      TXI ALT,,I                     4F10214 
       REM                                                              4F10215 
       PZE E+3+6,,6                  TAU3  ) ARG1+L,,L                  4F10216 
       PZE TAU3,,**                          TDA,,N                     4F10217 
       TXL TAU3,,8*6                     *** FDA,,K*L                   4F10218 
       PZE 8*7,,75                           DBL,,J                     4F10219 
TAU3IX TXI ALT,,5-4                      TXI ALT,,I                     4F10220 
       REM                                                              4F10221 
       PZE E+11+1,,1                 SIGMA1) ARG1+L,,L                  4F10222 
       PZE SIGMA1+2,,1                       TDA,,N                     4F10223 
       TXL SIGMA1,,30,*                  *** FDA,,K*L                   4F10224 
       PZE 30*2,,30                          DBL,,J                     4F10225 
SIG1IX TXI ALT,,5-2                      TXI ALT,,I                     4F10226 
       REM                                                              4F10227 
       PZE 1C+2,,2                   DIM1  ) ARG1+L,,L                  4F10228 
       PZE DIM1,,**                          TDA,,N                     4F10229 
ORGDM1 TXL DIM1,,0                       *** FDA,,K*L                   4F10230 
       PZE 0,,100                            DBL,,J                     4F10231 
DIM1IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10232 
       REM                                                              4F10233 
       PZE 1C+2,,2                   DIM2  ) ARG1+L,,L                  4F10234 
       PZE DIM2,,**                          TDA,,N                     4F10235 
ORGDM2 TXL DIM2,,0                       *** FDA,,K*L                   4F10236 
       PZE 0,,100                            DBL,,J                     4F10237 
DIM2IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10238 
       REM                                                              4F10239 
       PZE 1C+3,,3                   DIM3  ) ARG1+L,,L                  4F10240 
       PZE DIM3,,**                          TDA,,N                     4F10241 
ORGDM3 TXL DIM3,,0                       *** FDA,,K*L                   4F10242 
       PZE 0,,90                             DBL,,J                     4F10243 
DIM3IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10244 
       REM  END OF DRUM TABLE PARAMETERS.                               4F10245 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246 
       REM                                                              4F10247 
       REM COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES.    4F10248 
BK     BSS 1                        FORSUB COUNTER.                     4F10249 
FORSUB BSS 100                      NAMES AND DEGREES OF FUNCTIONS.     4F10250 
       REM  END OF FUNCTION COUNT AND BUFFER.                           4F10251 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252 
       REM                                                              4F10253 
       REM PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE.        4F10254 
BS     PZE ,,100                     CIB CAPACITY (4 * 25).             4F10255 
EC     PZE ,,**                      ENTRY COUNT = NO. WORDS IN CIB.    4F10256 
BBOX   PZE ,,**                      2S COMPLEMENT OF THE ENTRY COUNT.  4F10257 
CIB    BSS 100                       COMPILED INSTRUCTION BUFFER.       4F10258 
       REM  END OF CIT PARAMETERS AND BUFFER.                           4F10259 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260 
       REM                                                              4F10261 
       REM ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262 
       ORG 576                                                          4F102625
ERASE  BSS 5                         COMMON WORKING STORAGE.            4F10263 
1C     BSS 5                         COMMON WORKING STORAGE.            4F10264 
1G     BSS 1                         COMMON WORKING STORAGE.            4F10265 
2G     BSS 1                         COMMON WORKING STORAGE FOR STATE A.4F10266 
3G     BSS 1                                                            4F10267 
1H     BSS 1                                                            4F10268 
2H     BSS 1                                                            4F10269 
3LBAR  BSS 1                         STORAGE USED BY ARITHMETIC.        4F10270 
ARERAS BSS 1                         STORAGE USED BY ARITHMETIC.        4F10271 
ARGCNT MZE 4,,1                      ARGUMENT COUNTER USED BY C30,C32.  4F10272 
ARGCTR BSS 1                         STORAGE USED BY ARITHMETIC.        4F10273 
CALLNM PZE **,,**                                                       4F10274 
CHSAVE BSS 1                         WORKING STORAGE USED BY ROYCNV.    4F10275 
DIMSAV BSS 1                         WORKING STORAGE USED BY SS000.     4F10276 
E      BSS 14                        WORKING STORAGE USED BY SS000.     4F10277 
EPSM3  BSS 3                                                            4F10278 
 EPS   BSS 1                         EPSILON - VARIABLE USED BY RA000.  4F10279 
E1C    BSS 1                         COMMON WORKING STORAGE.            4F10280 
 EFN   BSS 1                         EXTERNAL FORMULA NUMBER (F-1).     4F10281 
F      BSS 111                       ASSEMBLED STATEMENT REGION.        4F10282 
FIRSTC BSS 1                         USED BY SS000,TESTFX,C3000.        4F10283 
FSNAME BSS 1                         NAME OF FUNCTION.                  4F10284 
FT     BSS 12                        SOURCE PROGRAM INPUT BUFFER.       4F10285 
G      BSS 2                                                            4F10286 
 GTAG  BSS 1                         VARIABLE USED BY IOT, RA.          4F10287 
HOLCNT BCD 1H(0000                   WORKING STORAGE USED BY C3300.     4F10288 
I      BSS 1                                                            4F10289 
LEFT   BSS 3                         STORAGE USED BY ARITHMETIC.        4F10290 
LENGTH PZE **,,**                                                       4F10291 
NBAR   BSS 1                         STORAGE USED BY ARITHMETIC.        4F10292 
 N2    BSS 1                                                            4F10293 
OPNWRD BSS 1                         ERASEABLE USED BY STATE D.         4F10294 
PHI(I) PZE **,,**                                                       4F10295 
 RAT   PZE 8,,**                     VARIABLE USED BY IOT.              4F10296 
RESIDU BSS 1                         REMAINDER OF F-REGION WORD.(C0190) 4F10297 
 SET   PON  **                                                          4F10298 
 SL    BSS 1                                                            4F10299 
SYMBOL BSS 1                         WORKING STORAGE USED BY SS000.     4F10300 
 TL    PZE 31*8,,**                                                     4F10301 
TLINE  PZE **                        VARIABLE USED BY IOT.              4F10302 
       REM  END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS.     4F10303 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304 
       REM                                                              4F10305 
       REM COMMON/2-CONSTANTS USED BY SECTION ONE=                      4F10306 
       REM                                                              4F10307 
TEN    OCT 12                         (1010) - CTEST-11                 4F10308 
ENDMK  OCT 77                         111111 - CTEST-10                 4F10309 
OPEN   OCT 74                         (      - CTEST-9                  4F10310 
COMMA  OCT 73                         ,      - CTEST-8                  4F10311 
CLOS   OCT 34                         )      - CTEST-7                  4F10312 
EQUAL  OCT 13                         =      - CTEST-6                  4F10313 
11Z    OCT 40                         -      - CTEST-5                  4F10314 
SLASH  OCT 61                         /      - CTEST-4                  4F10315 
POINT  OCT 33                         .      - CTEST-3                  4F10316 
12Z    OCT 20                         +      - CTEST-2                  4F10317 
STAR   OCT 54                         *      - CTEST-1                  4F10318 
CTEST  BSS 0                          ADDRESS USED FOR INDEXING ABOVE.  4F10319 
       REM                                                              4F10320 
L(0)   BCD 1000000                    0                                 4F10321 
L(1)   BCD 1000001                    1                                 4F10322 
L(2)   BCD 1000002                    2                                 4F10323 
L(3)   BCD 1000003                    3                                 4F10324 
L(4)   BCD 1000004                    4                                 4F10325 
L(5)   BCD 1000005                    5                                 4F10326 
L(6)   BCD 1000006                    6                                 4F10327 
L(7)   BCD 1000007                    7                                 4F10328 
L(8)   BCD 1000008                    8                                 4F10329 
L(9)   BCD 1000009                    9                                 4F10330 
MINUS  OCT 14                         -                                 4F10331 
L(C)   BCD 100000C                    C                                 4F10332 
L(F)   BCD 100000F                    F                                 4F10333 
L(H)   BCD 100000H                    H                                 4F10334 
CHAR2  OCT 32                         CONSTANT USED BY CD000.           4F10335 
L(O)   BCD 100000O                    O (ALPHABETIC)                    4F10336 
CHAR3  OCT 52                         CONSTANT USED BY CD000.           4F10337 
SPECOP OCT 53                         00000$                            4F10338 
BLANK  OCT 60                         0000000000060                     4F10339 
L(S)   BCD 100000S                    S                                 4F10340 
L(T)   BCD 100000T                    T                                 4F10341 
L(X)   BCD 100000X                    X                                 4F10342 
L(Z)   BCD 100000Z                    Z                                 4F10343 
PM     OCT 72                         RECORD MARK (ILLEGAL) -CD000      4F10344 
BIT29  OCT 100                                                          4F10345 
 A81   DEC 81                         CONSTANT USED BY IOT.             4F10346 
L(96)  OCT 140                        USED BY C0500.                    4F10347 
L(112) OCT 160                        USED BY C0400.                    4F10348 
MASK3  OCT 777                                          -ARITHMETIC.    4F10349 
1E9    OCT 1000                       ADDRESS=8                         4F10350 
L(A()  BCD 10000A(                    INTERNAL FLO-PT VARIABLE PREFIX.  4F10351 
L(H()  BCD 10000H(                                                      4F10352 
L(I()  BCD 10000I(                    INTERNAL FXD-PT VARIABLE PREFIX.  4F10353 
SAPSYM OCT 6212                                                         4F10354 
IFSYM  OCT 6712                                                         4F10355 
CALLER OCT 7112                                                         4F10356 
MASK2  OCT 77777                      2**15-1           -ARITHMETIC.    4F10357 
2E17   OCT 400000                     TAG=4                             4F10358 
2E18   OCT 1000000                    DECREMENT=1                       4F10359 
DECR1  PZE 1,,1                       CONSTANT USED BY DRTABS.          4F10360 
ABTAG2 OCT 1000002                    CONSTANT USED BY C3200.           4F10361 
 D2    PZE ,,2                        CONSTANT USED BY IOT.             4F10362 
ABTAG3 OCT 2000004                    CONSTANT USED BY C3200.           4F10363 
D3CN   PZE ,,3                        CONSTANT USED BY IOT.             4F10364 
BETAD2 OCT 3077775                    3*2**18+(-3)      -ARITHMETIC.    4F10365 
 D6    PZE ,,6                        CONSTATN USED BY IOT.             4F10366 
FSIND  PZE ,,16                                                         4F10367 
DEC17  PZE ,,17                                                         4F10368 
DEC18  PZE ,,18                                                         4F10369 
PZ     OCT 32000000                   PLUS ZERO -CD000.                 4F10370 
MASK5  OCT 37777600                                     -ARITHMETIC.    4F10371 
FNIND  PZE ,,32                                                         4F10372 
DEC35  PZE ,,35                                                         4F10373 
MZ     OCT 52000000                   MINUS ZERO -CD000.                4F10374 
NGTBIT OCT 000200000000                                                 4F10375 
 BTA   PZE ,,144                      CONSTANT USED BY IOT.             4F10376 
BDA    PZE 0,0,192                    CONSTANT USED BY IOT.             4F10377 
5BLANS BCD 10                         006060606060                      4F10378 
E(     BCD 1100000                                      -ARITHMETIC.    4F10379 
I(     BCD 1200000                                      -ARITHMETIC.    4F10380 
A(     BCD 1300000                                      -ARITHMETIC.    4F10381 
P(     BCD 1400000                                      -ARITHMETIC.    4F10382 
O(     BCD 1600000                                      -ARITHMETIC.    4F10383 
X(     BCD 1700000                                      -ARITHMETIC.    4F10384 
BETAD1 OCT 77775077775                (-3(*2**18+(-3)   -ARITHMETIC.    4F10385 
1BAR   OCT 77777000000                (2**15-1)*2**18DECREMENT MASK.    4F10386 
 15P   DEC 15B5                       CONSTANT USED BY IOT.             4F10387 
PROCTR OCT 176060606060                                                 4F10388 
ADPLUS OCT 200000000000               ADDITION SIGN -ARITHMETIC.        4F10389 
FLOVAR BCD 1A(0000                    A( INTERNAL FLOATING PT.          4F10390 
FXFX   BCD 1EXP(1                                                       4F10391 
FLFX   BCD 1EXP(2                                                       4F10392 
FLFL   BCD 1EXP(3                                                       4F10393 
FIXVAR BCD 1I(0000                    I( INTERNAL FIXED PT. VARIABLE.   4F10394 
MINUS0 MZE 0                                                            4F10395 
DECMI2 MZE ,,2                                                          4F10396 
ADSPOP OCT 530000000000               $00000                            4F10397 
DOLSGN OCT 536000000000               CONSTANT USED BY C32000           4F10398 
ADSTAR OCT -140000000000              MULTIPLUCATION SIGN -ARITHMETIC.  4F10399 
STRSTR OCT -145400000000              EXPONENTIATION SIGN -ARITHMETIC.  4F10400 
BLANKS BCD 1                          606060606060                      4F10401 
MASK1  OCT -377777700000              -(2**20-U.***15     -ARITHMETIC.  4F10402 
MASK4  OCT -377777777737                                  -ARITHMETIC   4F10403 
ALL1   OCT -377777777777              END OF STATMENT WORD.             4F10404 
       REM                                                              4F10405 
L(ADD) BCD 1ADD000                    SYMBOLIC OPERATION CODE.          4F10406 
L(ALS) BCD 1ALS000                    SYMBOLIC OPERATION CODE.          4F10407 
L(ANA) BCD 1ANA000                    SYMBOLIC OPERATION CODE.          4F10408 
L(ARS) BCD 1ARS000                    SYMBOLIC OPERATION CODE.          4F10409 
L(BSS) BCD 1BSS000                    SYMBOLIC OPERATION CODE.          4F10410 
L(CAL) BCD 1CAL000                                                      4F10411 
L(CHS) BCD 1CHS000                    SYMBOLIC OPERATION CODE.          4F10412 
L(CLA) BCD 1CLA000                    SYMBOLIC OPERATION CODE.          4F10413 
L(CLM) BCD 1CLM000                    SYMBOLIC OPERATION CODE.          4F10414 
L(CLS) BCD 1CLS000                    SYMBOLIC OPERATION CODE.          4F10415 
L(CPY) BCD 1CPY000                                                      4F10416 
L(DCT) BCD 1DCT000                    SYMBOLIC OPERATION CODE.          4F10417 
L(DED) BCD 1DED000                                                      4F10418 
L(DVP) BCD 1DVP000                    SYMBOLIC OPERATION CODE.          4F10419 
L(FAD) BCD 1FAD000                    SYMBOLIC OPERATION CODE.          4F10420 
L(FDP) BCD 1FDP000                    SYMBOLIC OPERATION CODE.          4F10421 
L(FMP) BCD 1FMP000                    SYMBOLIC OPERATION CODE.          4F10422 
L(FSB) BCD 1FSB000                    SYMBOLIC OPERATION CODE.          4F10423 
L(HPR) BCD 1HPR000                    SYMBOLIC OPERATION CODE.          4F10424 
L(LDA) BCD 1LDA000                                                      4F10425 
L(LDQ) BCD 1LDQ000                    SYMBOLIC OPERATION CODE.          4F10426 
L(LLS) BCD 1LLS000                    SYMBOLIC OPERATION CODE.          4F10427 
L(LRS) BCD 1LRS000                    SYMBOLIC OPERATION CODE.          4F10428 
L(LXD) BCD 1LXD000                    SYMBOLIC OPERATION CODE.          4F10429 
L(MPY) BCD 1MPY000                    SYMBOLIC OPERATION CODE.          4F10430 
L(MSE) BCD 1MSE000                    SYMBOLIC OPERATION CODE.          4F10431 
L(ORA) BCD 1ORA000                    SYMBOLIC OPERATION CODE.          4F10432 
L(PSE) BCD 1PSE000                    SYMBOLIC OPERATION CODE.          4F10433 
L(PXD) BCD 1PXD000                    SYMBOLIC OPERATION CODE.          4F10434 
L(QPR) BCD 1QPR000                    COnstant used by c3200.           4F10435 
L(QXD) BCD 1QXD000                    COnstant used by c3200.           4F10436 
L(STA) BCD 1STA000                    SYMBOLIC OPERATION CODE.          4F10437 
L(STO) BCD 1STO000                    SYMBOLIC OPERATION CODE.          4F10438 
L(STQ) BCD 1STQ000                    SYMBOLIC OPERATION CODE.          4F10439 
L(SUB) BCD 1SUB000                    SYMBOLIC OPERATION CODE.          4F10440 
L(SXD) BCD 1SXD000                    SYMBOLIC OPERATION CODE.          4F10441 
L(TIX) BCD 1TIX001                                                      4F10442 
L(TOV) BCD 1TOV000                    SYMBOLIC OPERATION CODE.          4F10443 
L(TQO) BCD 1TQO000                    SYMBOLIC OPERATION CODE.          4F10444 
L(TRA) BCD 1TRA000                    SYMBOLIC OPERATION CODE.          4F10445 
L(TSX) BCD 1TSX000                    SYMBOLIC OPERATION CODE.          4F10446 
L(UFA) BCD 1UFA000                    SYMBOLIC OPERATION CODE.          4F10447 
       REM  END OF COMMON CONSTANTS USED BY SECTION ONE.                4F10448 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449 
       REM                                                              4F10450 
       REM COMMON/3-SUBROUTINES USED BY SECTION ONE=                    4F10451 
       REM                                                              4F10452 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453 
       REM                                                              4F10454 
       REM C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.         4F10455 
       REM C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456 
       REM = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-     4F10457 
       REM NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 
       REM UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.            4F10459 
C0150  SXD C015X,2                    SAVE THE C(XR2).                  4F10460 
       TSX C0190,4                  * TEST 1ST NON-BLANK CHARACTER      4F10461 
       CAS L(9)                       FOR NUMERIC OR NON-NUMERIC.       4F10462 
C015X  TXI C0151,0,**                 IF NON-NUMERIC, TRANSFER.         4F10463 
       NOP                            IF NUMERIC, THEN                  4F10464 
       TSX C0180,2                  * GO CONVERT TO BINARY.             4F10465 
       STO 2G                         SAVE NEXT NON-NUERIC CHARACTER.   4F10466 
       CLA L(0)                       PREPARE TO SET I TO +0.           4F10467 
 FWA   TXI C0152,0,**                 GO SET I FOR NUMERIC.             4F10468 
C0151  TSX C0160,2                  * ASSEMBLE NON-NUMERICS IN 1G.      4F10469 
       STO 2G                         SAVE PUNCTUATION MARK, AND        4F10470 
       CLS L(0)                       PREPARE TO SET I TO -0.           4F10471 
C0152  STO I                          SET I = +0, OR -0.                4F10472 
       CLA 2G                         PICKUP NEXT CHARACTER,            4F10473 
       LXD C015X,2                    RESTORE THE C(XR2), AND           4F10474 
       TRA 1,2                      * RETURN TO CALLER.                 4F10475 
       REM  END OF PROGRAM C0150.                                       4F10476 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477 
       REM                                                              4F10478 
       REM C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,  4F10479 
       REM C1500,C3000,C3100,C0150.                                     4F10480 
       REM C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND  4F10481 
       REM SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482 
       REM IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A     4F10483 
       REM BLANK, IF LESS THEN 6 CHARACTERS.                            4F10484 
C0160  SXD C016X,2                  SAVE THE C(XR2), AND                4F10485 
       LXA L(0),2                   SET XR2 TO CONTROL SHIFTING.        4F10486 
       STZ 1G                       CLEAR WORKING STORAGE.              4F10487 
C0161  LXA CTESTX,4                 TEST                                4F10488 
C0162  CAS CTEST,4                  CHARACTER                           4F10489 
C016X  TXI C0163,0,**               IN THE AC                           4F10490 
       TXI C0165,0                  AGAINST                             4F10491 
C0163  TIX C0162,4,1                ALL PUNCTUATIONS.                   4F10492 
       TXL C0164,2,30               IF SYMBOL EXCEEDS 6 CHARACTERS,     4F10493 
       TSX DIAG,4                 * GO TO THE DIAGNOSTIC.               4F10494 
C0164  ALS 30,2                     BUILD LEFT-ADJUSTED                 4F10495 
       ORS 1G                       SYMBOL IN WORKING STORAGE.          4F10496 
       TSX C0190,4                * GET NEXT NB CHARACTER IN THE AC.    4F10497 
       TXI C0161,2,6                UPDATE SHIFT COUNT, AND CONTINUE.   4F10498 
C0165  TXH C0167,2,0                IF PUNCTUATION IS 1ST CHARACTER.    4F10499 
C0166  TSX DIAG,4                 * OR ILLEGAL, GO TO THE DIAGNOSTIC.   4F10500 
C0167  TXL C0166,4,5                IF LEGAL PUNCTUATION, THEN          4F10501 
       STO 1H                       SAVE, AND                           4F10502 
       CLA BLANK                    ADD A BLANK                         4F10503 
       ALS 30,2                     TO SYMBOLS THAT ARE LESS            4F10504 
       ORS 1G                       THEN 6 CHARACTERS IN LENGTH.        4F10505 
       CLA 1H                       PICKUP PUNCTUATION MARK,            4F10506 
       LXD C016X,2                  RESTORE THE C(XR2), AND             4F10507 
       TRA 1,2                    * RETURN TO CALLER.                   4F10508 
       REM  END OF PROGRAM C0160.                                       4F10509 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510 
       REM                                                              4F10511 
       REM C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,  4F10512 
       REM C1000,C1100,C1200,C1400,C1500,C0150.                         4F10513 
       REM C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO     4F10514 
       REM BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN   4F10515 
       REM THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.      4F10516 
C0180X TSX C0190,4                * OBTAIN 1ST NUMERIC IN THE AC.       4F105165
C0180  STO 1G                       PLACE 1ST NUMERIC IN 1G.            4F10517 
       TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER,   4F10518 
       CAS L(9)                     AND IF NON-NUMERIC, THEN            4F10519 
       TRA 1,2                    * RETURN TO CALLER.                   4F10520 
       NOP                          IF NUMERIC, THEN                    4F10521 
       STO 2G                       SAVE DIGIT IN 2G.                   4F10522 
       CLA 1G                       MULTIPLY                            4F10523 
       ALS 2                        C(1G)                               4F10524 
       ADD 1G                       BY                                  4F10525 
       ALS 1                        10,                                 4F10526 
       ADD 2G                       AND ADD CURRENT DIGIT.              4F10527 
 DCF   TXI C0180,0,-F               REPEAT PROCESS FOR NEXT CHARACTER.  4F10528 
       REM  END OF PROGRAM C0180.                                       4F10529 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530 
       REM                                                              4F10531 
       REM C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.             4F10532 
       REM C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533 
C0190X CLA DCF                      SET FORMULA WORD                    4F10534 
       STD FWA                      ADDRESS = -(F-REGION ADDRESS),      4F10535 
       SXD CHCTR,0                  SET CHARACTER COUNT = 0,            4F10536 
       TRA 1,4                    * RETURN TO MAIN ROUTINE.             4F10537 
       REM  END OF PROGRAM C0190X.                                      4F10538 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539 
       REM                                                              4F10540 
       REM C0390,4/ CALLERS=C0300,C3300.                                4F10541 
       REM C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION  4F10542 
       REM TO THE LEFT OF THAT DEFINED BY FWA AND XR1                   4F10543 
C0390  CLA ENDMK                     PREPARE TO CHANGE                  4F10544 
       LXD FWA,2                     THE PROPER CHARACTER               4F10545 
       LXD CHCTR,1                   IN THE F-REGION.                   4F10546 
       TNX C0393,1,1                 ADJUST MASK                        4F10547 
C0392  LGL 6                         TO POSITION                        4F10548 
       TIX C0392,1,1                 CHARACTER                          4F10549 
C0393  COM                           INVERT MASK, AND                   4F10550 
       ANS -1,2                      ERASE PROPER CHARACTER.            4F10551 
       LGL 36                        ADJUST CHARACTER, AND              4F10552 
       ORS -1,2                      INSERT IN ERASED POSITION.         4F10553 
       REM C0390 CONTINUES BY USING C0190.                              4F10554 
       REM                                                              4F10555 
       REM C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400,  4F10556 
       REM C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557 
       REM C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR.          4F10558 
       REM C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 
C0190  SXD C0194,1                   SAVE THE C(XR1), AND               4F10560 
       LXD CHCTR,1                   SET XR1 = CHARACTER COUNT.         4F10561 
       LDQ RESIDU                    PICK UP ANY REMAINING CHARACTERS.  4F10562 
C0191  TIX C0193,1,1                 IF NONE,                           4F10563 
       LXD FWA,1                     PICK UP NEXT FORMULA               4F10564 
       LDQ 0,1                       WORD FROM F-REGION,                4F10565 
       TXI C0192,1,-1                AND INCREASE                       4F10566 
C0192  SXD FWA,1                     FORMULA WORD ADDRESS BY 1.         4F10567 
       LXA L(6),1                    RESET XR1 FOR 6 NEW CHARACTERS.    4F10568 
C0193  PXD ,0                        EXAMINE                            4F10569 
       LGL 6                         NEXT CHARACTER                     4F10570 
       CAS BLANK                     AND COMPARE WITH A BLANK.          4F10571 
C0194  TXI C0195,0,**                IF BLANK,                          4F10572 
CHCTR  TXI C0191,0,**                GO EXAMINE NEXT CHARACTER.         4F10573 
C0195  SXD CHCTR,1                   IF NOT BLANK, RESET CHAR COUNT,    4F10574 
       STQ RESIDU                    SAVE ANY REMAINING CHARACTERS,     4F10575 
       LXD C0194,1                   RESTORE THE C(XR1), AND            4F10576 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10577 
       REM  END OF PROGRAM C0190.                                       4F10578 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579 
       REM                                                              4F10580 
       REM CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,  4F10581 
       REM C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),     4F10582 
       REM ETMSW(LTMSW),LIB,VRA(VRD).                                   4F10583 
       REM CIT00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN   4F10584 
       REM THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.    4F10585 
CIT00  SXD CITXR2,2                  SAVE THE C(XR2).                   4F10586 
       SXD CITXR1,1                  SAVE THE C(XR1).                   4F10587 
       STQ CITMQR                    SAVE THE C(MQR).                   4F10588 
       LXD BBOX,2                    SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589 
       CLA BS                        COMPARE BLOCK SIZE                 4F10590 
       SUB EC                        WITH ENTRY COUNT.                  4F10591 
       TNZ CIT04                     IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592 
       WRS CITTAP                    PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 
       PAX ,1                        SET XR1 = 0, AND                   4F10594 
CIT01  CPY CIB,1                     COPY SUCCESSIVE                    4F10595 
       TXI CIT02,1,-1                WORDS OF BLOCK                     4F10596 
CIT02  TXI CIT03,2,1                 AND CONTINUE                       4F10597 
CIT03  TXH CIT01,2,1                 UNTIL XR2 = 0.                     4F10598 
       IOD                           WHEN DONE,                         4F10599 
CIT04  LXA L(4),1                    SET XR1 = ENTRY SIZE.              4F10600 
CIT05  TXI CIT05+1,4,-1              SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601 
       CLA 0,4                       AND PICK UP ADDRESS OF NEXT ENTRY  4F10602 
       STA CIT06                     TO SET NEXT ADDRESS.               4F10603 
CIT06  CLA **                        MOVE ENTRY                         4F10604 
       STO CIB,2                     INTO CIB BUFFER,                   4F10605 
       TXI CIT07,2,-1                AND COUNT 1 FOR EACH WORD ENTERED. 4F10606 
CIT07  TIX CIT05,1,1                 WHEN DOEN,                         4F10607 
       SXD BBOX,2                    SAVE THE C(XR2), AND               4F10608 
DMSR99 PXD DMSR05+1,2                COMPUTE THE                        4F10609 
       COM                           REAL NUMBER                        4F10610 
       ADD 2E18                      OF WORDS ENTERED                   4F10611 
DMSR98 PDX DMSR05,2                  IN CIB BUFFER, AND                 4F10612 
       SXD EC,2                      SAVE IN EC.                        4F10613 
       LDQ CITMQR                    RESTORE THE C(MQR),                4F10614 
       LXD CITXR1,1                  RESTORE THE C(XR1),                4F10615 
       LXD CITXR2,2                  RESTORE THE C(XR2), AND            4F10616 
       TRA 1,4                     * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617 
       REM  END OF PROGRAM CIT00.                                       4F10618 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619 
       REM                                                              4F10620 
       REM DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.               4F10621 
       REM DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,  4F10622 
       REM DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.                4F10623 
       REM DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.                   4F10624 
DIM1SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10625 
       LXD DIM1IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM14F10626 
       CLA ORGDM1                    AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627 
DMSR00 TXI DMSR01,0,**               GO SET DRUM ADDRESS.               4F10628 
       REM DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE.                  4F10629 
DIM2SR SXD DMSR00,4                  SAVE THE C(XR) FRO RETURN.         4F10630 
       LXD DIM2IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM24F10631 
       CLA ORGDM2                    AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 
DMSR01 STA DRMADR                    SET DRUM ADDRESS.                  4F10633 
       CLA DMSR99                    SET LOOP ADDRESS TO                4F10634 
       STA DMSR15                    DMSR05+1 FOR DIM1 AND DIM2.        4F10635 
       CAL DMCN12                    (STZ D3)                           4F10636 
DMSR11 TXI DMSR02,0,**               GO SET OP FRO DIM1 AND DIM2.       4F10637 
       REM DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE.                   4F10638 
DIM3SR SXD DMSR00,4                  SAVE THE C(XR4) FRO RETURN,        4F10639 
       LXD DIM3IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM34F10640 
       CLA ORGDM3                    AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641 
       STA DRMADR                    SET DRUM ADDRESS.                  4F10642 
       CLA DMSR98                    SET LOOP ADDRESS TO                4F10643 
       STA DMSR15                    DMSR05 FOR DIM3.                   4F10644 
       CAL DMCN3                     (CPY D3)                           4F10645 
DMSR02 SLW DMSR05                    SET OP CODES ACCORDING             4F10646 
       SLW DMSR07                    TO DIMENSION.                      4F10647 
       TXL DMSR08,4,0                IF TABLE IS EMPTY, GO OUT.         4F10648 
       SXD DMSR11,4                  SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649 
DMSR14 LXA L(5),4                    SET ERROR COUNTER FOR 5 ATTEMPTS.  4F10650 
DMSR13 SXD DMSR12,4                  SAVE ERROR COUNTER, AND            4F10651 
       LXD DMSR11,4                  RESET ENTRY COUNT.                 4F10652 
       RDR 3                         SELECT DRUM.                       4F10653 
       CLA E+2                       GET NAME OF VARIABLE.              4F10654 
       LDA DRMADR                    LOAD CURRENT DRUM ADDRESS, AND     4F10655 
DMSR04 CPY DRSYM                     COPY DRUM SYMBOL.                  4F10656 
       TLQ DMSR06                    COMPARE WITH NAME OF VARIABLE, AND 4F10657 
       CPY D12                       IF NOT LESS, COPY N1 AND N2.       4F10658 
DMSR05 PZE D3                        (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659 
       CPY DRCKSM                    COPY CHECKSUM.                     4F10660 
       CAS DRSYM                     COMPARE DRUM SYMBOL WITH ANEM OF V.4F10661 
       TSX DIAG,4                  * GO TO DIGNOSTIC - MACHINE ERROR.   4F10662 
DMSR12 TXI DMSR09,0,**               IF NOT EQUAL, THEN                 4F10663 
       CPY DRSYM                     CONTINUE                           4F10664 
       TLQ DMSR06                    PROCESS                            4F10665 
       CPY D12                       UNTIL                              4F10666 
DMSR15 TIX **,4,1                    TABLE                              4F10667 
       TXI DMSR08,0                  IS EXHAUSTED.                      4F10668 
DMSR06 CPY D12                       PASS OVER ENTRY                    4F10669 
DMSR07 PZE D3                        (DIM1 AND DIM2 = STZ, DIM3 = CPY)  4F10670 
       CPY DRCKSM                    AND CHECKSUM, AND                  4F10671 
       TIX DMSR04,4,1                REPEAT LOOP.                       4F10672 
DMSR08 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10673 
       TRA 1,4                     * TAKE NOT FOUND EXIT.               4F10674 
DMSR09 CAL DRSYM                     COMPUTE A                          4F10675 
       ACL D12                       NEW                                4F10676 
       ACL D3                        LOGICAL CHECKSUM                   4F10677 
       COM                           FOR ENTRY. AND                     4F10678 
       ACL DRCKSM                    COMPARE WITH                       4F10679 
       COM                           DRUM CHECKSUM.                     4F10680 
       TZE DMSR10                    IF NOT EQUAL, THEN                 4F10681 
       LXD DMSR12,4                  REPEAT ATTEMPT,                    4F10682 
       TIX DMSR13,4,1                UNLESS PROCESS                     4F10683 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F10684 
DMSR10 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10685 
       TRA 2,4                     * TAKE FOUND EXIT TO MAIN ROTUINE.   4F10686 
       REM                                                              4F10687 
DMCN12 STZ D3                        CONSTANT USED BY DIM.SR.           4F10688 
DMCN3  CPY D3                        CONSTANT USED BY DIM.SR.           4F10689 
ENT    BCD 1NTR000                   VARIABLE USED BY IO AND FL.        4F10690 
NZE    BCD 1PZE000                   VARIABLE USED BY FL.               4F10691 
       REM END OF PROGRAM DIM.SR.                                       4F10692 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693 
       REM                                                              4F10694 
       REM DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695 
       REM VRA(VRD).                                                    4F10696 
       REM DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF  4F10697 
       REM THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698 
       REM TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION.    4F10699 
       REM DIMALT= ENTRY POINT FOR DIMENSION TABLES.                    4F10700 
DIMALT CAL TXLOP                     PICK UP SWITCH CONTROL,            4F10701 
       TXI DRTABS,0                  AND GO SET SWITCH FOR DIM TABLES.  4F10702 
       REM ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.                  4F10703 
ALT    CLA TXHOP                     PICK UP SWITCH CONTROL,            4F10704 
DRTABS STP DIMSW                     SET SWITCH.                        4F10705 
       CLA 0,4                       GET CALLER (TSX ....IX,4) IN AC.   4F10706 
       SXD XR1,1                     SAVE THE C(XR1),                   4F10707 
       SXD XR2,2                     SAVE THE C(XR2),                   4F10708 
       SXD XR4,4                     SAVE THE C(XR4), AND               4F10709 
       STQ MQ                        SAVE THE C(MQR).                   4F10710 
       ADD L(1)                      PREPARE TO MOVE PARAMETERRS        4F10711 
       STA MOVE                      INTO WORKING STORAGE.              4F10712 
       SUB L(4)                      PREPARE TO UPDATE                  4F10713 
       STA UPDATE                    PERMANENT PARAMETER.               4F10714 
       LXA L(5),1                    MOVE 5 WORDS                       4F10715 
MOVE   CAL **,1                      (....IX+1)                         4F10716 
       SLW TEMP,1                    OF PARAMETERS                      4F10717 
       TIX MOVE,1,1                  INTO WORKING STORAGE.              4F10718 
       CLS NAR                       INITIALIZE                         4F10719 
       STA TRY                       ALL                                4F10720 
       ADD L(1)                      GENERAL                            4F10721 
       STA ESUM1                     INSTRUCTIONS=                      4F10722 
       STA ESUM2                     X                                  4F10723 
       ARS 17                        X                                  4F10724 
       ADM BIAS                      X                                  4F10725 
       STA JUMP1                     X                                  4F10726 
       STA JUMP2                     X                                  4F10727 
       CAL FDA                       X                                  4F10728 
       STD COMPR                     X                                  4F10729 
       STP JUMP1                     X                                  4F10730 
       STP SW                        X                                  4F10731 
       STP RX4                       X                                  4F10732 
       CLA LBUF                      X                                  4F10733 
       STA BUFL                      X                                  4F10734 
       CLA TDA                       X                                  4F10735 
       LXD TDA,2                     X                                  4F10736 
       SXD BUFF+1,2                  X                                  4F10737 
DIMSW  TXL BUFF,0                    IF DIM TABLE, SKIP SEARCH.         4F10738 
       TXL XERR01+1,2,0              SKIP IF TABLE IS EMPTY.            4F10739 
       LXD NAR,1                                                        4F10740 
       SXD NC,2                                                         4F10741 
       SXD ADD01,2                                                      4F10742 
ADD02  TNX COMPR,1,1                 COMPUTES (N*L).                    4F10743 
ADD01  TXI ADD02,2,**                (N)                                4F10744 
BUFFM1 LXD FDA,2                                                        4F10745 
BUFF   LXD DBL,1                     L(J)                               4F10746 
       TIX BUFF+3,1,**               (N) TEST FOR TABLE OVERFLOW.       4F10747 
XERR01 TXI WHICH,0                   GO FIND OUT WHICH TABLE OVERFLOWED.4F10748 
       LXD DI,1                                                         4F10749 
       WDR 5,1                                                          4F10750 
SW     TXL EBLK,0                    ENTER SUM=TXL, BLOCK SUM=TXH.      4F10751 
       TXL ADD04,2,0                 SKIP IF TABLE IS EMPTY.            4F10752 
       TXI ADD03,2,1                                                    4F10753 
ADD03  TNX ADD05,2,50                SKIP IF BLOCK IS NOT YET FULL.     4F10754 
ADD04  STZ DUMP                      START NEW BLOCK CHECKSUM.          4F10755 
       CLA TDA                       CHANGE CHECKSUM ADDRESS.           4F10756 
       STA FDA                                                          4F10757 
       ADD L(1)                      SET ENTRY ADDR = CHECKSUM ADD +1.  4F10758 
       STA TDA                                                          4F10759 
ADD05  CAL DUMP                                                         4F10760 
       ACL G                         ADD NEW FLOCON TO                  4F10761 
       SLW DUMP                      CHECKSUM FOR THIS BLOCK.           4F10762 
       LDA FDA                                                          4F10763 
       CPY DUMP                      WRITE BLOCK CHECKSUM ON DRUM.      4F10764 
       WDR 5,1                                                          4F10765 
       LDA TDA                                                          4F10766 
       CPY G                         WRITE NEW FLOCON ON DRUM.          4F10767 
XR2    TXI NOWIN,0,**                GO UPDATE FLOCON PARAMETER.        4F10768 
EBLK   PXD ,0                        FOR ALL TABLES EXCEPT FLOCON=      4F10769 
       LXD NAR,2                     (L)                                4F10770 
       LDA TDA                       NEXT DRUM ENTRY ADDRESS.           4F10771 
       TNX ESUM2,2,1                 IF L = 1,                          4F10772 
ESUM1  CAD **,2                      (ARG1+L-1) WRITE NEW               4F10773 
       TIX ESUM1,2,1                 ENTRY ON DRUM.                     4F10774 
ESUM2  CAD **                        (ARG1+L-1)                         4F10775 
       SLW DUMP                      COMPUTE AND                        4F10776 
       CPY DUMP                      WRITE CHECKSUM FOR NEW ENTRY.      4F10777 
NOWIN  CAL NAR                       UPDATE PERMANENT                   4F10778 
       ARS 18                        PARAMETERS FOR ENTRY               4F10779 
       ADD DECR1                     JUST ADD TO TABLE.                 4F10780 
RX4    TXL RX4+2,0,**                IF TABLE WAS FLOCON,               4F10781 
       SUB L(1)                      READJUST.                          4F10782 
       ADM TDA                       N=N+1,TDA=TDA+(L+1) OR (L).        4F10783 
UPDATE STO **                        (....IX-3)                         4F10784 
       LXD TDA,2                     L(N)                               4F10785 
XR4    TXI OUT,0,**                  GET TAG AND EXIT.                  4F10786 
NXBLK  LXD NC,4                                                         4F10787 
       LXD FDA,2                     L(K*L),K=K.                        4F10788 
NEW    LXD NAR,1                     L(L)                               4F10789 
TRY    CLA **,1                      (ARG1+L)                           4F10790 
BUFL   CAS **,2                      (BUFR OR CTABL)                    4F10791 
NC     TXI NC+2,0,**                 NOT FOUND.                         4F10792 
       TXI YEA,2,-1                  K*L = K*L-1.                       4F10793 
       TNX BUFFM1,4,1                N = N-1 OR ITEM NOT IN TABLE.      4F10794 
       SXD NC+4,1                                                       4F10795 
       TIX NEW,2,**                  K = K-1.                           4F10796 
       SXD NC,4                      SAVE CURRENT VALUE OF N,           4F10797 
       CAL DBL                       AND GET NEW BLOCK.                 4F10798 
       ADM FDA                                                          4F10799 
       STA FDA                                                          4F10800 
       LXD NTL,2                                                        4F10801 
COMPR  TIX COMPR+2,2,**              (K*L)                              4F10802 
       SXD FDA,2                     K*L = (N*L)MOD K*L IF N*L IS       4F10803 
       SXD NTL,2                     LESS THAN K*L, OTHERWISE K*L = K*L,4F10804 
       TSX RDRX,4                  * GO READ NEXT BLOCK INTO BUFFER.    4F10805 
NTL    TXI NXBLK,0,**                (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806 
YEA    TIX TRY,1,1                   K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807 
       LXD TDA,2                     (N)                                4F10808 
       SXD YEA+3,4                                                      4F10809 
       TIX OUT,2,**                  COMPUTE TAG.                       4F10810 
       LXA L(0),2                                                       4F10811 
OUT    PXD ,2                        EXIT WITH TAG IN THE AC.           4F10812 
       ARS 18                        (TAG = NUMBER OF ENTRIES           4F10813 
       LXD XR2,2                     WHICH PRECEED THE ENTRY            4F10814 
       LXD XR4,4                     WHICH EQUALS THE ARGUMENT.         4F10815 
       LXD XR1,1                     RESTORE THE C(XR1,XR2,XR4),        4F10816 
       LDQ MQ                        RESTORE THE C(MQR), AND            4F10817 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10818 
WHICH  LXD XR4,4                     GET ALPHA BAR, AND                 4F10819 
       CLA 0,4                       AND PICK UP ALPHA (TSX ...NIX,4).  4F10820 
       ANA MASK2                     BLANK ALL BUT ...NIX.              4F10821 
       SUB CONX                      (...NIX) - (ADDR OF FIXCNIX-5).    4F10822 
       LXA L(9),4                    SET XR4 FOR 9 TABLES.              4F10823 
COMPUT SUB L(5)                      COMPUTE WHICH                      4F10824 
       TZE WHICHX                    TABLE OVERFLOWED.                  4F10825 
       TIX COMPUT,4,1                IF TABLE IS NOT FOUND.             4F10826 
       TSX DIAG,4                  * GOT TO DIAGNOSTIC.                 4F10827 
WHICHX PXD ,4                        OTHERWISE,                         4F10828 
       COM                           CONVERT 2S COMPLEMENT              4F10829 
       ADD 2E18                      OF NUMBER,                         4F10830 
       PDX ,4                        PLACE IN XR4, AND                  4F10831 
       TXI DIAG,0                  * GO TO DIAGNOSTIC.                  4F10832 
       REM                                                              4F10833 
CONX   PZE FXCNIX-5                  CONSTANT USED BY DRTABS.           4F10834 
BUFR   BES 50                        DRUM TABLE BUFFER.                 4F10835 
MQ     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10836 
NAR    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10837 
TDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10838 
FDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10839 
DBL    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10840 
DI     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10841 
TEMP   BSS 0                         INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842 
DUMP   BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10843 
       REM END OF PROGRAM DRTABS.                                       4F10844 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845 
       REM                                                              4F10846 
       REM GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200.       4F10847 
       REM GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.   4F10848 
GETIFN LXD EIFNO,1                   PLACE THE INTERNAL FORMULA         4F10849 
       PXD ,1                        NUMBER IN XR1, IN THE DECREMENT    4F10850 
       STO 1C                        OF THE AC, AND IN 1C. THEN         4F10851 
       TRA 1,4                     * RETURN TO CALLER.                  4F10852 
       REM  END OF PROGRAM GETIFN.                                      4F10853 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854 
       REM                                                              4F10855 
       REM JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),   4F10856 
       REM VRA(VRD),C3200.                                              4F10857 
       REM JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858 
JIF    CAL EIFNO                     INCREASE THE                       4F10859 
       ADD D1                        INTERNAL FORMULA NUMBER            4F10860 
       STD EIFNO                     BY 1.                              4F10861 
       REM GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).                 4F10862 
GIF    CAL EIFNO                     PICKUP IFN,                        4F10863 
       ANA 1BAR                      CLEAR SL, AND                      4F10864 
L(SL)  SLW SL                        PLACE IFN IN THE DECREMENTS        4F10865 
L(TL)  STD TL                        OF SL AND TL.                      4F10866 
       TRA 1,4                     * EXIT TO CALLER.                    4F10867 
       REM  END OF PROGRAM JIF(GIF).                                    4F10868 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869 
       REM                                                              4F10870 
       REM MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM.        4F10871 
       REM STATEA= ENTRY POINT FOR STATE A.                             4F10872 
STATEA LXA L(4),4                    SET C(XR4) = 4, THEN               4F10873 
       TXI MTR1,0                    GO GET PARAMETERS.                 4F10874 
       REM STATEB= ENTRY POINT FOR STATE B.                             4F10875 
STATEB LXA L(2),4                    SET C(XR4) = 2, THEN               4F10876 
       TXI MTR1,0                    GO GET PARAMETERS.                 4F10877 
       REM STATEC= ENTRY POINT FOR STATE C.                             4F10878 
STATEC LXA L(1),4                    SET C(XR4) = 1, THEN               4F10879 
MTRCSL TXI MTR1,0,**                 GO GET PARAMETERS.                 4F10880 
       REM STATED= ENTRY POINT FOR STATE D.                             4F10881 
STATED LXA L(3),4                    SET C(XR4) = 3, THEN               4F10882 
MTR1   CLA ZETA+4,4                  OBTAIN THE NUMBER OF WORDS IN THE  4F10883 
       STD MTRCSL                    CURRENT STATE, AND SAVE.           4F10884 
       ARS 18                        ADD THE NUMBER OF WORDS IN THE     4F10885 
       ADD MTR3                      CURRENT STATE TO THE MEMORY ORIGIN 4F10886 
       STA MTR2                      TO SET ADDRESS OF COPY LOOP.       4F10887 
       LXA DRMERC,1                  SET FOR FIVE ATTEMPTS.             4F10888 
MTR15  RDR 5,4                       READ SELECT CURRENT LOGICAL DRUM.  4F10889 
       LXD MTRCSL,2                  LENGTH OF CURRENT STATE TO XR2.    4F10890 
       LDA ZETA+4,4                  THEN COPY                          4F10891 
       PXD ,0                        CURRENT STATE                      4F10892 
       CAD DRCKSM                    FROM DRUM                          4F10893 
       COM                           INTO MEMORY                        4F10894 
MTR2   CAD **,2                      WHILE COMPUTING                    4F10895 
       TIX MTR2,2,1                  LOGICAL CHECKSUM.                  4F10896 
       COM                           IF THIS EQUALS DRUM CHECKSUM,      4F10897 
MTR3   TZE MEMORG                  * THEN ENTER CURRENT STATE.          4F10898 
       TIX MTR15,1,1                 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899 
MTRERR TXI DIAG,4,-MTRERR          * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900 
       REM                                                              4F10901 
ZETA   PZE DEL(A),,ENDADR-ORGA                                          4F10902 
       PZE DEL(D),,ENDDDR-ORGD                                          4F10903 
       PZE DEL(B),,ENDBDR-ORGB                                          4F10904 
       PZE DEL(C),,ENDCDR-ORGC                                          4F10905 
       REM  END OF PROGRAM MTR000.                                      4F10906 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907 
       REM                                                              4F10908 
       REM RA000,4/ CALLERS=LPR,ARITH.                                  4F10909 
       REM RA000 COMPUTES RELATIVE ADDRESS.                             4F10910 
RA000  SXD RAXR4,4                   SAVE THE C(XR4) FOR RETURN.        4F10911 
       STZ EPS                       CLEAR EPSILON (WORKING STORAGE).   4F10912 
       CLA DIMSAV                    EXAMINE THE                        4F10913 
 ED2   PAX E+4,4                     DIMENSION COUNT, AND               4F10914 
       TXL ED1,4,2                   IF 3 DIMENSION,                    4F10915 
       ADD L(1)                      INCREASE IT 1.                     4F10916 
ED1    ADM ED2                       THEN SET                           4F10917 
       STA ED3                       ED3 ADDRESS TO                     4F10918 
 ED3   CLA **,4                      EXAMINE SUCCESSIVE                 4F10919 
       LDQ D1                        SUBSCRIPT                          4F10920 
       TZE ED4                       VARIABLES, AND                     4F10921 
       STQ EPS                       ACCORDINGLY SET                    4F10922 
       LDQ L(0)                      EPSILON AND                        4F10923 
 ED4   STQ EPS,4                     EPSILON SUB I                      4F10924 
       TIX ED3,4,1                   TO 1 OR TO 0. WHEN DONE,           4F10925 
       CLA D1                        IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926 
       LXA DIMSAV,4                  AND GO SUBTRACT ADDEND 1.          4F10927 
       TXL 1D1,4,1                   IF 2 OR 3 DIMENSION, THEN          4F10928 
       LDQ E+11                      PICKUP ADDENDS 1 AND 2,            4F10929 
       STZ E+11                      CLEAR E+11, AND                    4F10930 
       SLQ E+11                      RESTORE ADDEND 1 TO E+11.          4F10931 
       LGL 18                        ADJUST AND PLACE                   4F10932 
       STQ N2                        ADDEND 2 IN N2.                    4F10933 
       LDQ E+6                       AND, IF 2 DIMENSION                4F10934 
       CLA EPS-1                     PICKUP EPSILON SUB 1,              4F10935 
       TXL 2D1,4,2                   AND GO SUBTRACT ADDEND 2.          4F10936 
       SUB E+12                      IF 3 DIMENSION, SET GTAG           4F10937 
       STO GTAG                      TO EPSILON SUB 1 - ADDEND 3.       4F10938 
       LDQ E+8                       PICKUP DIMESNIONS 1 AND 2.         4F10939 
       STZ E+8                       CLEAR E+8, AND                     4F10940 
       SLQ E+8                       RESTORE DIMENSION 1 TO E+8.        4F10941 
       LGL 18                        ADJUST, AND MULTIPLY               4F10942 
       MPY GTAG                      DIMENSION 2 TIMES GTAG.            4F10943 
       ALS 17                        THEN ADD                           4F10944 
       ADD EPS-2                     EPSILON SUB 2                      4F10945 
       LDQ E+8                       TO THE PRODUCT, AND                4F10946 
2D1    SUB N2                        SUBTRACT ADDEND 2.                 4F10947 
       STO GTAG                      MULTIPLY                           4F10948 
       MPY GTAG                      THE RESULT                         4F10949 
       ALS 17                        TIMES                              4F10950 
       ADD EPS,4                     DIMENSION 1, AND ADD IN EPSILON    4F10951 
       ADD EPS                       SUB I AND EPSILON.                 4F10952 
 1D1   SUB E+11                      SUBTRACT ADDEND 1,                 4F10953 
       STO GTAG                      AND PLACE THE RESULT               4F10954 
       CAL E                         IN THE DECREMENT OF GTAG,          4F10955 
       ARS 24                        WITH 1-TAUTAG                      4F10956 
       STA GTAG                      IN THE ADDRESS.                    4F10957 
       LXD RAXR4,4                   RESTORE THE C(XR4), AND            4F10958 
       TRA 1,4                     * EXIT TO CALLER.                    4F10959 
       REM  END OF PROGRAM RAD00.                                       4F10960 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961 
       REM                                                              4F10962 
       REM RDRX,4 CALLS=DIAG. CALLER=DRTABS.                            4F10963 
       REM RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR.        4F10964 
RDRX   LXA DRMERC,1                  SET FOR 5 ATTEMPTS TO READ DRUM.   4F10965 
REP    LXD DI,2                      SET XR2 * (5-DRUM NUMBER).         4F10966 
       TXH BIAS-2,2,0                IF NOT GREATER THEN ZERO.          4F10967 
       TSX DIAG,4                  * GO TO DIAGNOSTIC.                  4F10968 
       RDR 5,2                       SELECT CURRENT DRUM.               4F10969 
       LXD FDA,2                     SET XR2 = NO. OF WORDS TO COPY.    4F10970 
BIAS   PXD ETSUM,0                   CLEAR THE AC.                      4F10971 
       LDA FDA                       DRUM ORIGIN OF CURRENT BLOCK.      4F10972 
JUMP1  TXL **                        (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK.   4F10973 
       CAD DUMP                      READ                               4F10974 
       COM                           FLOCON BLOCK                       4F10975 
LBUF   CAD BUFR,2                    AND COMPUTE                        4F10976 
       TIX LBUF,2,1                  LOGICAL CHECKSUM.                  4F10977 
XR1    TXI PROVE,0,**                GO TEST CHECKSUM.                  4F10978 
       CPY BUFR,2                    COPY LOOP                          4F10979 
       TNX ERR,2,1                   FOR ALL                            4F10980 
       CPY BUFR,2                    COPY LOOP                          4F10981 
       TNX ERR,2,1                   TABLES                             4F10982 
       CPY BUFR,2                    EXCEPT                             4F10983 
       TNX ERR,2,1                   FLOCON*                            4F10984 
       CPY BUFR,2                    X                                  4F10985 
       TNX ERR,2,1                   X                                  4F10986 
       CPY BUFR,2                    X                                  4F10987 
       TNX ERR,2,1                   X                                  4F10988 
       CPY BUFR,2                    X                                  4F10989 
       TNX ERR,2,1                   X                                  4F10990 
       CPY BUFR,2                    X                                  4F10991 
       NOP                           X                                  4F10992 
ETSUM  CAD DUMP                      SUM CHECKSUMS.                     4F10993 
JUMP2  TIX **,2,1                    (ETSUM-2*L) TEST END OF BLOCK.     4F10994 
RDRXCR LXD FDA,2                     COMPUTE                            4F10995 
       COM                           NEW                                4F10996 
       ACL BUFR,2                    LOGICAL                            4F10997 
       TIX RDRXCR+2,2,1              CHECKSUM, AND                      4F10998 
PROVE  COM                           IF CHECKSUMS COMPARE               4F10999 
       TZE 1,4                     * RETURN TO MAIN ROUTINE.            4F11000 
ERR    TIX REP,1,1                   OTHERWISE, REPEAT UP TO 5 TIMES.   4F11001 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F11002 
       REM  END OF PROGRAM RDRX.                                        4F11003 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004 
       REM                                                              4F11005 
       REM SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.                   4F11006 
       REM SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.    4F11007 
SR6DC1 SXD SR6XR2,2                  SAVE THE C(XR2), AND               4F11008 
       LXA L(6),2                    SET TO COUNT 6 CHARACTERS.         4F11009 
       STZ SR6WRK                    INITIALIZE OUTPUT CELL TO 0.       4F11010 
SR6DC2 PXD ,0                        OBTAIN NEXT CHARACTER              4F11011 
       LGL 6                         IN AC AND                          4F11012 
       CAS ABLANK                    TEST FOR BLANK.                    4F11013 
SR6XR2 TXI SR6DC3,0,**               IF NOT BLANK,                      4F11014 
ENDWRD TXI SR6DC4,0,-1               (DECR= END OF PROBLEM INDICATOR)   4F11015 
SR6DC3 CAS L(9)                      TEST FOR NUMERIC.                  4F11016 
       TSX DIAG,4                  * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017 
NOP    NOP                           IF NUMERIC,                        4F11018 
       STO SR6WRK+1                  SAVE DIGIT, AND                    4F11019 
       CLA SR6WRK                    MULTIPLY PREVIOUS PARTIAL          4F11020 
       ALS 2                         RESULT BY 10,                      4F11021 
       ADD SR6WRK                    AND ADD IN                         4F11022 
       ALS 1                         CURRENT DIGIT, SAVING              4F11023 
       ADD SR6WRK+1                  NEW PARTIAL RESULT.                4F11024 
       STO SR6WRK                    THEN ADJUST COUNT, AND             4F11025 
SR6DC4 TIX SR6DC2,2,1                WHEN 6 CHARS HAVE BEEN TREATED,    4F11026 
       CLA SR6WRK                    LEAVE OUTPUT IN AC,                4F11027 
       LXD SR6XR2,2                  RESTORE THE C(XR2), AND            4F11028 
TRA    TRA 1,1                     * EXIT TO MAIN ROUTINE.              4F11029 
       REM  END OF PROGRAM SR6DC1.                                      4F11030 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031 
       REM                                                              4F11032 
       REM SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033 
       REM CALLERS=ARITH,LPR,C0200.                                     4F11034 
       REM SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES.  4F11035 
SS000  SXD SXR2,2                    SAVE C(XR2),                       4F11036 
       SXD SXR1,1                    SAVE C(XR1),                       4F11037 
       SXD SXR4,4                    SAVE C(XR4), AND                   4F11038 
       STZ DIMCTR                    SET DIMCTR = 0.                    4F11039 
       LXA L(6),4                    INITIALIZE                         4F11040 
       SXD SBS2,4                    FOR EACH SUBSCRIPT MEMBER.         4F11041 
       CAL TXHOP                     PICK UP TXH OP, AND                4F11042 
       STP SBC6                      SET OP                             4F11043 
       STP SBC8                      SWITCHES.                          4F11044 
       CAL TXLOP                     PICK UP TXL OP, AND                4F11045 
       STP SBC4                      SET OP SWITCH.                     4F11046 
SS001  LXA L(6),3                    SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047 
       STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11048 
       TSX C0190,4                 * GET FIRST NON BLANK CHAR IN THE AC.4F11049 
       CAS L(9)                      COMPARE IT WITH 9.                 4F11050 
       TXI SS0045,0                  RETURN TO EXPLICIT CODING.         4F11051 
       NOP                           IF NUMERIC,                        4F11052 
       STO FIRSTC                    SAVE RIGHT-ADJUSTED DIGIT, AND     4F11053 
SS0012 ALS 36,2                      LEFT-ADJUST DIGIT TO               4F11054 
       ORS SYMBOL                    BUILD SYMBOL.                      4F11055 
       TXI SS0013,2,6                UPDATE SHIFT DECREMENT, AND        4F11056 
SS0013 TXI SS0014,1,-1               UPDATE COUNT OF CHARS COLLECTED.   4F11057 
SS0014 TSX C0190,4                 * GET NEXT NB CHARACTER IN THE AC.   4F11058 
       LXA CTESTX,4                  SET XR4 = NO. OF PUNCTUATION MARKS.4F11059 
SS0015 CAS CTEST,4                   TEST THIS CHARACTER AGAINTT        4F11060 
       TXI SS0016,0                  ALL PUNCTUATION.                   4F11061 
       TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11062 
SS0016 TIX SS0015,4,1                IF NOT FOUND TO BE PUNCTUATION,    4F11063 
       CAS L(9)                      TEST FOR NUMERIC                   4F11064 
       TXI SS0017,0                  AND IF                             4F11065 
CTESTX NOP CTEST-ENDMK               FOUND TO BE NUMERIC                4F11066 
       TXH SS0012,1,0                CONTINUE BUILDING SYMBOL. BUT IF   4F11067 
       TXI STOP49,0                  SEVENTH CHAR, GO TO DIAGNOSTIC.    4F11068 
SS0017 TSX TESTFX+1,1              * GO TEST FOR FIXED POINT VARIABLE.  4F11069 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070 
       LGL 30                        RESTORE FIXED POINT VARIABLE       4F11071 
       SLW RESIDU                    TO RESUDU, AND                     4F11072 
       LXD CHCTR,4                   RESET CHARACTER COUNTER            4F11073 
       TXI SS0018,4,1                TO BEGIN PROCESSING                4F11074 
SS0018 SXD CHCTR,4                   SUBSCRIPT MULTIPLIER.              4F11075 
 SBX   CLS SBC6                      TEST FOR                           4F11076 
       TMI SBX1                      PREVIOUS MULTIPLIER.               4F11077 
       TSX DIAG,4                  * DOUBLE MULTIPLIER FOR SUBSCRIPT.   4F11078 
 SBX1  STO SBC6                      RESET MULTIPLIER SWITCH.           4F11079 
       CLA FIRSTC                    TEST                               4F11080 
       SUB L(10)                     MULTIPLIER                         4F11081 
       TMI SBX2                      FOR CONSTANT.                      4F11082 
       TSX DIAG,4                  * SUBS-MULTIPLER NOT A CONSTANT.     4F11083 
 SBX2  CAL SYMBOL                    ADJUST MULTIPLIER                  4F11084 
       ARS 42,2                      TO LOW ORDER POSITION.             4F11085 
       LXD SBS2,4                    GET STORING TAG,                   4F11086 
       SLW E+9,4                     AND STORE MULTIPLIER.              4F11087 
       STZ E+15,4                    SET ADDEND = 0.                    4F11088 
SS003  LXA L(6),3                    SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089 
       STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11090 
SS004  TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F11091 
SS0045 LXA CTESTX,4                  COMPARE CHARACTER                  4F11092 
SS005  CAS CTEST,4                   TO ALL                             4F11093 
       TXI SS006,0                   PUNCTUATION.                       4F11094 
       TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11095 
SS006  TIX SS005,4,1                 IF NOT FOUND TO BE PUNCTUATION,    4F11096 
       TXL SS008,1,5                 IF 1ST CHARACTER OF VARIABLE OR    4F11097 
       STO FIRSTC                    ADDEND, SAVE FOR LATER TEST.       4F11098 
SS008  ALS 36,2                      POSITION EACH CHARACTER. BUT       4F11099 
SS009  TXL STOP49,1,0              * ON 7TH CHARACTER, GO TO STOP.      4F11100 
       ORS SYMBOL                    BUILD SYMBOL.                      4F11101 
       TXI SS007,2,6                 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 
SS007  TXI SS004,1,-1                UPDAT FOR ANOTHER CHAR COLLECTED.  4F11103 
STOP49 TSX DIAG,4                  * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104 
       REM SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN=                4F11105 
       TXI ISC,0                     ENK (ILLEGAL IN LIST SUBSCRIPT).   4F11106 
 ISC   TSX DIAG,4                  * (   (ILLEGAL IN LIST SUBSCRIPT).   4F11107 
       TXI SBC,0                     ,                                  4F11108 
       TXI SBR,0                     )                                  4F11109 
       TXI ISC,0                     =   (ILLEGAL IN LIST SUBSCRIPT).   4F11110 
SBS2   TXI SBM,0,**                  - ,,SUBSCRIPT ELEMENT COUNTER,     4F11111 
       TXI ISC,0                     /   (ILLEGAL IN LIST SUBSCRIPT).   4F11112 
SXR1   TXI ISC,0,**                  .   (ILLEGAL IN LIST SUBSCRIPT).   4F11113 
SXR2   TXI SBP,0,**                  +                                  4F11114 
SXR4   TXI SBX,0,**                  *                                  4F11115 
SUBTR  BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   4F11116 
 SBM   SSM                           MINUS ADDEND.                      4F11117 
 SBP   CLM                           PLUS ADDEND.                       4F11118 
       LXD SBS2,4                    GET STORING TAG, AND               4F11119 
       STO E+15,4                    STORE SIGN OF ADDEND.              4F11120 
       CLS SBC8                      TEST SWITCH                        4F11121 
       TMI SBP1                      FOR PREVIOUS ADDEND.               4F11122 
       TSX DIAG,4                  * DOUBLE ADDEND FOR SUBSCRIPT,       4F11123 
 SBP1  STO SBC8                      RESET ADDEND SWITCH.               4F11124 
       TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11125 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126 
       LXD SBS2,4                    GET STORING TAG, AND               4F11127 
       CLS SBC6                      TEST SWITCH                        4F11128 
       TPL SBP2                      FOR PREVIOUS MULTIPLIER.           4F11129 
       CLA L(1)                      IF NONE,                           4F11130 
       STO E+9,4                     SET MULTIPLIER                     4F11131 
       TXI SBP4,0                    TO 1, AND CONTINUE.                4F11132 
 SBC1  CLS SBC6                      RESET MULTIPLIER                   4F11133 
SBP2   STO SBC6                      OP SWITCH.                         4F11134 
SBP4   CAL SYMBOL                    IF VARIABLE SUBSCRIPT.             4F11135 
       TXH SBP41,2,36                ADD A BLANK                        4F11136 
       CAL BLANK                     IF LESS                            4F11137 
       ALS 36,2                      THAN 6                             4F11138 
       ORA SYMBOL                    CHARACTERS, AND                    4F11139 
 SBP41 SLW E+10,4                    PLACE IN E-REGION.                 4F11140 
       TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11141 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142 
       CLA SBC8                      IF THERE IS AN ADDEND,             4F11143 
       TMI SS003                     GO COLLECT, OTHERWISE              4F11144 
       TXI SBC7,0                    GO UPDATE STORING TAG.             4F11145 
SBR    CLS SBC4                      SET SWITCH                         4F11146 
       STO SBC4                      FOR CLOSING PARENTHESIS.           4F11147 
SBC    CAL DIMCTR                    UPDATE                             4F11148 
       ADD L(1)                      DIMENSION COUNTER                  4F11149 
       STA DIMCTR                    BY 1.                              4F11150 
       LXD SBS2,4                    GET STORING TAG.                   4F11151 
SBC6   TXH SBC1,0                    SWITCH-IF NO MULTIPLIER, AND       4F11152 
SBC8   TXH SBC2,0                    SWITCH-IF NO ADDEND, THEN          4F11153 
       CLA L(1)                      SET                                4F11154 
       STO E+9,4                     MULTIPLIER = 1.                    4F11155 
       STZ E+15,4                    SET ADDEND = 0.                    4F11156 
       CLA FIRSTC                    TEST FOR                           4F11157 
       SUB L(10)                     CONSTANT OR VARIABLE.              4F11158 
       TPL SBP4                      IF CONSTANT, THEN                  4F11159 
       STZ E+10,4                    SET VARIABLE = 0.                  4F11160 
SBC9   CAL SYMBOL                    ADJUST                             4F11161 
       ARS 42,2                      CONSTANT                           4F11162 
       ORS E+15,4                    TO LOW ORDER POSITION.             4F11163 
SBC7   TNX SBC3,4,2                  UPDATE STORING TAG                 4F11164 
       SXD SBS2,4                    BY -2, AND SAVE.                   4F11165 
SBC4   TXL SS001,0                   SWITCH-REPEAT FOR NEXT SUB-COMB.   4F11166 
       TXI SA000,0                   GO MAKE TABLE ENTRIES AND GET TAG. 4F11167 
 SBC2  CLS SBC8                      RESET ADDEND                       4F11168 
       STO SBC8                      OP SWITCH.                         4F11169 
       CLS L(10)                     TEST                               4F11170 
       ADD FIRSTC                    ADDEND                             4F11171 
       TMI SBC9                      FOR CONSTANT.                      4F11172 
       TSX DIAG,4                  * SUBSCRIPT ADDEND NOT A CONSTANT.   4F11173 
SBC3   CLS SBC4                      AFTER SCANNING 3 SUBSCRIPTS.       4F11174 
       TMI SA000                     GO MAKE TABLE ENTRIES AND GET TAG. 4F11175 
       TSX DIAG,4                  * GO TO DIAG - NO ) AFTER 3RD SUBS.  4F11176 
       REM CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE).           4F11177 
CSA000 SXD SXR4,4                    SAVE C(XR4) FOR RETURN TO C0200.   4F11178 
SA000  CLA DIMCTR                    SAVE                               4F11179 
       STO DIMSAV                    THE CONTENTS OF DIMCTR             4F11180 
       ALS 33                        POSITION AND                       4F11181 
       STO E                         STORE I TAG.                       4F11182 
       CLA E+11                      MOVE SUBSCRIPT ADDENDS             4F11183 
       STO E+12                      INTO POSITION                      4F11184 
       CLA E+9                       FOR FOLLOWING                      4F11185 
       STO E+11                      PROGRAM.                           4F11186 
       CLA L(2)                      EXAMINE DIMCTR                     4F11187 
       CAS DIMCTR                    TO DETERMINE                       4F11188 
       TXI 1D0000,0                  WHETHER DIMESNION OF               4F11189 
       TXI 2D0000,0                  VARIABLE IS 1, 2, OR 3.            4F11190 
3D0000 LXA L(6),4                    PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191 
3D0001 LDQ E+9,4                     CONVERT THEM FROM BCD TO BINARY    4F11192 
       TSX SR6DC1,1                * IN E+3,5,7, AND                    4F11193 
       STO E+9,4                     STORE BACK IN E+3,5,7,             4F11194 
       TIX 3D0001,4,2                WHEN DONE, PREPARE                 4F11195 
       LXA L(3),4                    TO PICK UP 3 ADDENDS.              4F11196 
3D0002 CLA E+14,4                    CONVERT ADDENS (BCD TO BINARY)=    4F11197 
       SLW G                         STRIP OFF                          4F11198 
       LDQ G                         SIGN.                              4F11199 
       TSX SR6DC1,1                * CONVERT ADDENDS IN E+11,12,13,     4F11200 
       LDQ E+14,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11201 
       TQP 3D0040                    IF PLUS--SKIP NEXT,                4F11202 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11203 
3D0040 STO E+14,4                    AND STORE BACK INTO E+11,12,13,    4F11204 
       TIX 3D0002,4,1                WHEN DONE,                         4F11205 
       TSX DIM3SR,4                * GO SEARCH DIM3 TABLE,              4F11206 
       TSX DIAG,4                  * --ERROR...NOT ON DRUM,             4F11207 
3D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11208 
       ALS 18                        PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209 
       ADD E+5                       AND STORE THEM                     4F11210 
       STO E+3                       IN E+3.                            4F11211 
       CLA E+4                       MOVE SUBSCRIPT 1                   4F11212 
       STO E+5                       TO E+5.                            4F11213 
       CLA E+7                       AND MOVE                           4F11214 
       ALS 18                        COEFFICIENT 3                      4F11215 
       STO E+4                       INTO E+4.                          4F11216 
       CLA E+8                       MOVE SUBSCRIPT 3 INTO E+7,         4F11217 
       STO E+7                       NEXT SUBSCRIPT 2 IN E+6.           4F11218 
       CLA D12                       MOVE DIMESIONS 1 AND 2             4F11219 
       STO E+8                       INTO E+8.                          4F11220 
       CAL E+11                      PACK TOGETHER                      4F11221 
       ALS 18                        ADDENDS 1 AND 2                    4F11222 
       ORA E+12                      AND                                4F11223 
       SLW E+11                      STORE THEM IN E+11.                4F11224 
       CAL E+13                      MOVE                               4F11225 
       ALS 18                        ADDEND 3                           4F11226 
       SLW E+12                      INTO E+12.                         4F11227 
       TSX TAU3IX,4                * GO SEARCH TAU3 TABLE.              4F11228 
       ALS 24                        POSITION TAU3 TAG, AND             4F11229 
       ORS E                         PLACE TAU3 TAG IN TAG WORD.        4F11230 
       CAL E+7                       COMBINE                            4F11231 
       ORA E+6                       SUBSCRIPTS 3,2, AND 1,             4F11232 
3D0340 ORA E+5                       AND IF THEY ARE ALL ZERO,          4F11233 
3D0350 TZE NOTAG                     --DON,T ENTER FORTAG.              4F11234 
FTG000 CAL EIFNO                     ENTER FORTAG=                      4F11235 
       ANA MASK1                     BRING UP ALPHA (INTFORMNO)         4F11236 
       SLW G                         AND STORE IN G.                    4F11237 
       CAL E                         BRING UP TAUTAG FOR I,             4F11238 
       ARS 24                        ADJUST, AND                        4F11239 
       ORS G                         PLACE IN G WITH ALPHA.  THEN       4F11240 
       TSX TET00,1                 * ENTER INTO FORTAG TABLE            4F11241 
       PZE 4                         (TET TABLE 4).                     4F11242 
       TXI SAEXIT,0                  GO TO EXIT.                        4F11243 
2D0000 LXA L(4),4                    THEN PICKUP AND                    4F11244 
2D0001 LDQ E+7,4                     CONVERT COEFFICIENTS               4F11245 
       TSX SR6DC1,1                * (BCD TO BINARY),                   4F11246 
       STO E+7,4                     AND STORE BACK IN E+3 AND E+5,     4F11247 
       TIX 2D0001,4,2                WHEN DONE,                         4F11248 
       LXA L(2),4                    PREPARE TO                         4F11249 
2D0002 CLA E+13,4                    PICKUP THE TWO ADDENDS.            4F11250 
       SLW G                         STRIP OFF                          4F11251 
       LDQ G                         THEIR SIGNS,                       4F11252 
       TSX SR6DC1,1                * CONVERT THEM FROM BCD TO BINARY,   4F11253 
       LDQ E+13,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11254 
       TQP 2D0040                    IF PLUS--SKIP NEXT,                4F11255 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11256 
2D0040 STO E+13,4                    AND STORE BACK IN E+11 AND E+12.   4F11257 
       TIX 2D0002,4,1                WHEN DONE,                         4F11258 
       TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F11259 
       TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11260 
2D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11261 
       ALS 18                        PACK TOGETHER                      4F11262 
       ADD E+5                       COEFFICENTS 1 AND 2,               4F11263 
       STO E+3                       AND STORE THEM IN E+3,             4F11264 
       CLA E+6                       MOVE SUBSCRIPT 2 INTO E+5          4F11265 
       STO E+5                       (NEXT TO SUBSCRIPT 1 IN E+4),      4F11266 
       CLA D12                       OBTAIN                             4F11267 
       ANA MASK1                     DIMENSION 1, AND MOVE IT           4F11268 
       STO E+6                       INTO E+6.                          4F11269 
       CAL E+11                      PACK TOGETHER                      4F11270 
       ALS 18                        ADDENDS 1 AND 2,                   4F11271 
       ORA E+12                      AND STORE THEM                     4F11272 
       SLW E+11                      IN E+11.                           4F11273 
       TSX TAU2IX,4                * GO SEATCH TAU2 TABLE.              4F11274 
       ALS 24                        POSITION TAU2 TAG, AND             4F11275 
       ORS E                         PLACE TAU2 TAG IN TAG WORD.        4F11276 
       CAL E+4                       COMBINE SUBSCRIPTS 1 AND 2, AND    4F11277 
       TXI 3D0340,0                  GO TO FORTAG SECTION.              4F11278 
1D0000 LDQ E+3                       PICKUP AND CONVERT COEFFICIENTS    4F11279 
       TSX SR6DC1,1                * (BCD TO BINARY), AND               4F11280 
       ALS 18                        THEN ADJUST THEM,                  4F11281 
       STO E+3                       AND STORE THEM BACK IN E+3.        4F11282 
       CLA E+11                      PICKUP ADDEND,                     4F11283 
       SLW G                         STRIP OFF SIGN,                    4F11284 
       LDQ G                         CONVERT ADDEND                     4F11285 
       TSX SR6DC1,1                * (BCD TO BINARY), AND THEN          4F11286 
       LDQ E+11                      PUT SIGN IN S-BIT OF MQ,           4F11287 
       TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11288 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11289 
1D0001 ALS 18                        THEN ADJUST AND STORE              4F11290 
       SLW E+11                      BACK INTO E+11.                    4F11291 
       TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11292 
       ALS 24                        POSITION TAU1 TAG, AND             4F11293 
       ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11294 
       CAL E+4                       TAKE SUBSCRIPT, AND                4F11295 
       TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11296 
NOTAG  CAL FNIND                     POSITION SIGMA1 TAG, AND           4F11297 
       ORS E                         PLACE SIGMA1 TAG IN TAGE WORD.     4F11298 
SAEXIT LXD SXR1,1                    RESTORE THE C(XR1)                 4F11299 
       LXD SXR2,2                    RESTORE THE C(XR2)                 4F11200 
       LXD SXR4,4                    RESTORE THE C(XR4)                 4F11301 
       TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11302 
       REM  END OF PROGRAM SS000.                                       4F11303 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304 
       REM                                                              4F11305 
       REM SUBX00,4/ CALLERS=C3000,C3300.                               4F11306 
       REM SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES.              4F11307 
SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11308 
       LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11309 
SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11310 
       LGL 6                         SEARCH FOR A BLANK                 4F11311 
       SUB BLANK                     CHARACTER IN THIS NAME.            4F11312 
       TZE SUBX03                    IF NOT BLANK, THEN                 4F11313 
       TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11314 
SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315 
       TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11316 
SUBX03 LDQ BLANKS                    IF LESS THEN 6 CHARACTERRS IN NAME,4F11317 
       LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11318 
       ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11319 
       TRA 1,4                     * RETURN TO CALLER.                  4F11320 
       REM  END OF PROGRAM SUBX00.                                      4F11321 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322 
       REM                                                              4F11323 
       REM TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11324 
       REM TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES.           4F11325 
TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11326 
       CAS L(H)                      WITH H.                            4F11327 
       CAS L(O)                      IF GREATER THEN H, COMPARE WITH O. 4F11328 
       TRA 1,1                     * IF NOT GREATER THEN H, LESS THEN O,4F11329 
       TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11330 
       TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11331 
       REM  END OF PROGRAM TESTFX.                                      4F11332 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333 
       REM                                                              4F11334 
       REM TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335 
       REM C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11336 
       REM TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11337 
       REM TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11338 
TESTA0 CAS COMMA                                                        4F11339 
       TRA TESTA1                                                       4F11340 
       TRA 1,4                     * RETURN TO CALLER.                  4F11341 
TESTA1 SUB ENDMK                                                        4F11342 
       TZE 1,4                     * RETURN TO CALLER.                  4F11343 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11344 
       REM TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11345 
TESTB0 CAS COMMA                                                        4F11346 
       TRA TESTB1                                                       4F11347 
       TRA 1,4                     * RETURN TO CALLER.                  4F11348 
TESTB1 SUB CLOS                                                         4F11349 
       TZE 1,4                     * RETURN TO CALLER.                  4F11350 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11351 
       REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11352 
TESTC0 CAS OPEN                                                         4F11353 
       TRA TESTC1                                                       4F11354 
       TRA 1,4                     * RETURN TO CALLER.                  4F11355 
TESTC1 SUB ENDMK                                                        4F11356 
       TZE 1,4                     * RETURN TO CALLER.                  4F11357 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11358 
       REM TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11359 
TESTD0 CAS ENDMK                                                        4F11360 
ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11361 
       TRA 1,4                     * RETURN TO CALLER.                  4F11362 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11363 
       REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11364 
TESTE0 CAS OPEN                                                         4F11365 
       TRA TESTE1                                                       4F11366 
       TRA 1,4                     * RETURN TO CALLER.                  4F11367 
TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11368 
       REM TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11369 
TESTF0 CAS CLOS                                                         4F11370 
       TRA TESTF1                                                       4F11371 
       TRA 1,4                     * RETURN TO CALLER.                  4F11372 
TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11373 
       REM TEST CHARACTER IN THE AC FOR COMMA.                          4F11374 
TESTG0 CAS COMMA                                                        4F11375 
       TRA TESTG1                                                       4F11376 
       TRA 1,4                     * RETURN TO CALLER.                  4F11377 
TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11378 
       REM TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11379 
TESTH0 CAS L(9)                                                         4F11380 
       TRA 1,4                     * RETURN TO CALLER.                  4F11381 
       NOP                                                              4F11382 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11383 
       REM TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11384 
TESTI0 CAS L(9)                                                         4F11385 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11386 
       TRA 1,4                     * RETURN TO CALLER.                  4F11387 
       TRA 1,4                     * RETURN TO CALLER.                  4F11388 
       REM  END OF PROGRAM TEST...                                      4F11389 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390 
       REM                                                              4F11391 
       REM TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11392 
       REM C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11393 
       REM TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11394 
       REM FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11395 
TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11396 
       SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11397 
       STQ TETMQR                    SAVE THE C(MQR).                   4F11398 
       CLA 1,1                       COMPUTE TABLE NUMBER               4F11399 
       ALS 1                         TIMES 3                            4F11400 
       ADD 1,1                       AND                                4F11401 
       COM                           PLACE THE 2S COMPLEMENT            4F11402 
       ADD L(1)                      OF THIS                            4F11403 
       PAX ,2                        IN XR2                             4F11404 
       CLA INTET,2                   OBTAIN THE CURRENT                 4F11405 
       ARS 18                        B (BUFFER CAPACITY),               4F11406 
       STO TETWRK                    AND SAVE IT. THEN                  4F11407 
       CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11408 
       ARS 18                        AND                                4F11409 
       SUB TETWRK                    COMPARE TO B.                      4F11410 
       TNZ TET03                     IF BUFFER IS FULL,                 4F11411 
       STD INTET+2,2                 SET P = 0, AND                     4F11412 
TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11413 
       LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11414 
       CLA TETWRK                    ADD BLOCK SIZE TO                  4F11415 
       ADD INTET,2                   ORGIN OF CURRENT BLOCK (O).        4F11416 
       STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11417 
       CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11418 
TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11419 
       TIX TET02,4,1                 TABLE TAPE, AND                    4F11420 
       IOD                           WHEN DONE,                         4F11421 
       CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11422 
       ADD L(1)                      BY 1 FOR                           4F11423 
       STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11424 
TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11425 
       ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11426 
       ADD INTET,2                   BUFFER) TO SET                     4F11427 
       STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11428 
       CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11429 
       STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11430 
       PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431 
       ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11432 
       STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11433 
       LXD L(0),2                    SET XR2 = 0. THEN                  4F11434 
TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11435 
TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11436 
       TXI TET06,2,-1                WHEN                               4F11437 
TET06  TIX TET04,4,1                 DONE,                              4F11438 
       LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11439 
       LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11440 
       LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11441 
       TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11442 
       REM  END OF PROGRAM TET00.                                       4F11443 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444 
       REM                                                              4F11445 
       REM DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11446 
       REM C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11447 
       REM SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,  4F11448 
       REM CMA,EMK,BEG(TYP),VRA(VRD).                                   4F11449 
       REM (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE   4F11450 
       REM BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO      4F11451 
       REM THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)   4F11452 
DIAG   TXI 4,0                     * GO GET THE DIAGNOSTIC.             4F11453 
       REM  END OF PROGRAM DIAG.                                        4F11454 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11455 
       REM                                                              4F11456 
       REM ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.                4F11457
FLTR00 SXD FLTR05,4          SAVE CALLING TAG.                          4F114571
       CLA EIFNO             GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572
       STA ENT               PLACE LAST EFN IN DEC OF NTR INSTRUCTION.  4F114573
       ARS 18                                                           4F114574
       STA NZE               PLACE LAST IFN IN DEC OF PZE               4F114575
       LXD ARGCTR,4                                                     4F114576
       TXL FLTR01,4,0        IS THIS AN FN FUNCTION, NO SKIP.           4F114577
       STZ 1C+2                                                         4F114578
       CLS 2E18              SET ADDRESS TO -1                          4F114579
       TRA FLTR03                                                       4F11457A
FLTR01 CLA SBDFCN            IS THIS A MAIN PROGRAM OR SUBPROGRAM.      4F11457B
       TNZ FLTR02            SKIP ON SUBPROGRAM                         4F11457C
       STZ 1C+2              SET ADDRESS TO 0                           4F11457D
       STZ 1C+3                                                         4F11457E
       TRA FLTR04                                                       4F11457F
FLTR02 CLA DOLSGN            SET ADDRESS TO $+2                         4F11457G
       STO 1C+2                                                         4F11457H
       CLA D2                                                           4F11457I
FLTR03 STO 1C+3              SET RELATIVE ADDRESS WORD OF CIT.          4F11457J
FLTR04 TSX CIT00,4                                                      4F11457K
       PZE L(0)              COMPILE      NTR  *+2,0,EFN                4F11457L
       PZE ENT                                                          4F11457M
       PZE 15P                                                          4F11457N
       PZE D2                                                           4F11457O
       TSX CIT00,4                                                      4F11457P
       PZE L(0)              COMPILE    PZE  ALPHA,0,IFN                4F11457Q
       PZE NZE               WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R
       PZE 1C+2              SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S
       PZE 1C+3              MAIN OR SUBPROGRAM.                        4F11457T
       LXD FLTR05,4                                                     4F11457U
FLTR05 TXI CIT00,0,**        GO COMPILE    LXD M(,4  OR  7(TYPE=,4      4F11457V
       REM                                                              4F11457W
       REM                                                              4F11458 
       REM  END OF THE COMMON PART OF SECTION ONE.                      4F11459 
       REM                                                              4F11460 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461 
       REM                                                              4F11462 
       REM SECTION 1 / INITIALIZATION =                                 4F11463 
       REM 704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000.  4F11464 
       ORG 0                                                            4F114641
       PZE FORSUB,,1TOCS                                                4F114642
       PZE DMWR98                                                       4F114643
       ORG FORSUB                                                       4F11465 
       REM INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER    4F11466 
       REM BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE  4F11467 
       REM PROGRAM.                                                     4F11468 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469 
       REM                                                              4F11470 
       REM PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =       4F11471 
CLDR00 LXA CLDR07,1                  CLEAR DRUMS 1,2,3,4 TO +0.         4F11472 
CLDR01 WRS 197,1                     X                                  4F11473 
       LXD CLDR07,2                  X                                  4F11474 
CLDR03 CPY CLDR08                    X                                  4F11475 
       TIX CLDR03,2,1                X                                  4F11476 
       TIX CLDR01,1,1                X                                  4F11477 
       REW 146                       REWIND WORKING TAPES 2,3,4.        4F11478 
       REW 147                       X                                  4F11479 
       REW 148                       X                                  4F11480 
       REM  END OF INITIALIZATION / PART 1.                             4F11481 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11482 
       REM                                                              4F11483 
       REM PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2=               4F11484 
DMWR01 LXA L(3),4                    PREPARE TO WRITE STATE D ON DRUM 2.4F11485 
       TRA DMWR11                    X                                  4F11486 
DMWR03 LXA L(1),4                    PREPARE TO WRITE STATE C ON DRUM 4.4F11487 
       TRA DMWR11                    X                                  4F11488 
DMWR06 LXA L(2),4                    PREPARE TO WRITE STATE B ON DRUM 3.4F11489 
       TRA DMWR11                    X                                  4F11490 
DMWR09 LXA L(4),4                    PREPARE TO WRITE STATE A ON DRUM 1.4F11491 
       CLA DMWR98                    THIS IS FINAL STATE TO BE WRITTEN, 4F11492 
       STA DMWR40                    CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493 
DMWR11 CLA ZETA+4,4                  GET LENGTH OF CURRENT STATE.       4F11494 
       PDX ,2                        LENGTH OF CURRENT STATE.           4F11495 
       SXD CHECK,2                   SAVE LENGTH.                       4F11496 
       ARS 18                        LENGTH + ORIGIN TO PREPARE FOR CK  4F11497 
       ADD MTR3                      SUM AND COPY LOOPS.                4F11498 
       STA DMWR20                    X                                  4F11499 
       STA DMWR26                    X                                  4F11500 
       PXD ,0                        CLEAR AC AND COMPUTE CK SUM.       4F11501 
DMWR20 ACL **,2                      X                                  4F11502 
       TIX DMWR20,2,1                X                                  4F11503 
       SLW DRCKSM                    X                                  4F11504 
       LXA DRMERC,1                  SET FOR FIVE ATTEMPTS.             4F11505 
DMWR23 WDR 5,4                       PREPARE TO WRITE DRUM.             4F11506 
       LXD CHECK,2                   X                                  4F11507 
       LDA ZETA+4,4                  X                                  4F11508 
       CPY DRCKSM                    WRITE CK SUM ON DRUM.              4F11509 
DMWR26 CPY **,2                      WRITE STATE ON DRUM.               4F11510 
       TIX DMWR26,2,1                X                                  4F11511 
       RDR 5,4                       PREPARE TO READ STATE BACK.        4F11512 
       LXD CHECK,2                   X                                  4F11513 
       LDA ZETA+4,4                  X                                  4F11514 
       PXD ,0                        CLEAR AC AND READ BACK CK SUM AND  4F11515 
       CAD GARBGE                    STATE.                             4F11516 
       COM                           X                                  4F11517 
DMWR32 CAD GARBGE                    RECOMPUTE CK SUM.                  4F11518 
       TIX DMWR32,2,1                X                                  4F11519 
       COM                           X                                  4F11520 
DMWR40 TZE 1TOCS                   * CK SUM AGREE, GO GET NEXT STATE.   4F11521 
       TIX DMWR23,1,1                CK SUM FAILED, TRY UP TO 5 TIMES.  4F11522 
       CLA DMWR89                    SET MONITOR TO RETURN TO THIS      4F11523 
       STO STATEA                    PROGRAM INSTEAD OF TO STATE A.     4F11524 
       TXL DMWR80,4,3                TEST FOR STATE A IN PROGRESS.      4F11525 
       TSX DIAG,4                  * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526 
DMWR80 TXL DMWR82,4,2                TEST FOR STATE D IN PROGRESS.      4F11527 
       RTB 1                         SPACE OVER STATE C RECORD.         4F11528 
       RTB 1                         SPACE OVER STATE B RECORD.         4F11529 
       RTB 1                         SPACE OVER STATE A RECORD.         4F11530 
       TSX DIAG,4                  * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531 
DMWR82 TXL DMWR84,4,1                TEST FOR SET B IN PROGRESS.        4F11532 
       RTB 1                         SPACE OVER STATE A RECORD.         4F11533 
       TSX DIAG,4                  * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534 
DMWR84 RTB 1                         SPACE OVER STATE B RECORD.         4F11535 
       RTB 1                         SPACE OVER STATE A RECORD.         4F11536 
       TSX DIAG,4                  * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537 
DMWR88 LXA L(0),4                    SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538 
       TRA DIAG                    * PRINT END LINE AND STOP            4F11539 
DMWR99 TSX CA100,4                 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540 
       TRA CA010                   * GO BEGIN STATE A OF SECTION ONE.   4F11541 
       REM  END OF INITIALIZATION / PART 2.                             4F11542 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543 
       REM                                                              4F11544 
       REM PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=      4F11545 
GARBGE BSS 1                         ERASEABLE STORAGE.                 4F11546 
CHECK  PZE ,,**                      SAVING CELL FOR LENGTH OF STATE.   4F11547 
CLDR07 PZE 4,,2048                   CONSTANT FOR CLEARING DRUMS.       4F11548 
CLDR08 PZE 0                         CONSTANT FOR CLEARING DRUMS.       4F11549 
DMWR89 TRA DMWR88                    CONSTANT FOR ERROR ROUTINE.        4F11550 
DMWR98 PZE DMWR99                    CONSTANT FOR ADDRESS MODIFICATION. 4F11551 
       REM  END OF INITIALIZATION / PART 3.                             4F11552 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553 
       REM                                                              4F11554 
       REM                                                              4F11555 
       REM SECTION 1 / STATEA =                                         4F11556 
       REM 704 FORTRAN MASTER RECORD CARD / STATE A = F0190000.         4F11557 
       ORG 0                                                            4F115571
       PZE ORGA,,DMWR09                                                 4F115572
       PZE ENDA-1                                                       4F115573
       REM                                                              4F11558 
       REM NAME                      FUNCTION                           4F11559 
       REM PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11560 
       REM CA000                     ASSEMBLE STATEMENT.                4F11561 
       REM CD000                     SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562 
       REM CB000                     CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563 
       REM CC000                     CLASSIFY=WHICH NON-ARITHMETIC.     4F11564 
       REM PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.       4F11565 
       REM C0100                     DO.                                4F11566 
       REM C0200                     GO TO.                             4F11567 
       REM C0300                     IF.                                4F11568 
       REM C0400                     IF (SENSE SWITCH.                  4F11569 
       REM C0500                     IF (SENSE LIGHT.                   4F11570 
       REM C0600                     IF DIVIDE CHECK.                   4F11571 
       REM C0700                     IF AC OVERFLOW.                    4F11572 
       REM C0800                     IF MQ OVERFLOW.                    4F11573 
       REM C0900                     PAUSE.                             4F11574 
       REM C1000                     ASSIGN.                            4F11575 
       REM C1100                     SENSE LIGHT.                       4F11576 
       REM C1200                     DIMENSION.                         4F11577 
       REM C1300                     STOP.                              4F11578 
       REM C1400                     FREQUENCY.                         4F11579 
       REM C1500                     EQUIVALENCE.                       4F11580 
       REM C1600                     CONTINUE.                          4F11581 
       REM C3000(C3500)              SUBROUTINE / FUNCTION.             4F11582 
       REM C3100                     COMMON.                            4F11583 
       REM C3200                     RETURN.                            4F11584 
       REM C3300                     CALL.                              4F11585 
       REM C3400                     END.                               4F11586 
       REM PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=                    4F11587 
       REM RDC                       READ CARD                          4F11588 
       REM RIT                       READ INPUT TAPE.                   4F11589 
       REM RDP                       PRINT.                             4F11590 
       REM WOT                       WRITE OUTPUT TAPE.                 4F11591 
       REM PDC                       PUNCH.                             4F11592 
       REM WBT                       WRITE TAPE.                        4F11593 
       REM RBT                       READ TAPE.                         4F11594 
       REM WRD                       WRITE DRUM.                        4F11595 
       REM RDD                       READ DRUM.                         4F11596 
       REM EFT                       END FILE.                          4F11597 
       REM RWN                       REWIND.                            4F11598 
       REM BSP                       BACKSPACE.                         4F11599 
       REM FOR                       FORMAT.                            4F11600 
       REM RSC                       RESET AND SCAN.                    4F11601 
       REM LISTR                     CONTROL FOR LIST SCAN.             4F11602 
       REM LPR                       LEFT PARENTHESES IN LIST SCAN.     4F11603 
       REM EOS                       EQUAL SIGN IN LIST SCAN.           4F11604 
       REM SPCTR                     CONTROL FOR SPECIFICATION SCAN.    4F11605 
       REM SPC                       SUBSCRIPT SPECIFICATIONS.          4F11606 
       REM RPR                       RIGHT PARENTHESIS IN LIST SCAN.    4F11607 
       REM CMA                       COMMA IN LIST SCAN.                4F11608 
       REM EMK                       ENDMARK IN LIST SCAN.              4F11609 
       REM PART 4 / SUBROUTINES USED BY STATE A=                        4F11610 
       REM BEG(TYP),4                BEGIN SCAN AND TYPE TEST.          4F11611 
       REM BEGTR                     CONTROL FOR BEGINNING SCAN.        4F11612 
       REM BRW,4                     BINARY READ OR WRITE COMPILER.     4F11613 
       REM BSS,2                     COMPILES= IFN BSS 0.               4F11614 
       REM CA100,4                   READ SOURCE PROGRAM TAPE.          4F11615 
       REM CC500,4                   SCAN DICTIONARY.                   4F11616 
       REM ETM(LTM)SW,4              IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617 
       REM IFFIX,1                   SETS UP FORVAR OR FORVAL ENTRY.    4F11618 
       REM IN(OUT)PUT,2              COMPILES CAL *, AND XIT (LEV).     4F11619 
       REM LIB,1                     MAKES CLOSUB ENTRY, COMPILES CIT.  4F11620 
       REM VRA(VRD),4                MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621 
       REM PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.            4F11622 
       REM DIC                       DICTIONARY.                        4F11623 
       REM T                         TRANSFER TABLE.                    4F11624 
       REM                                                              4F11625 
       REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=          4F11626 
       REM                                                              4F11627 
       REM ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION           4F11628 
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F11629 
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F11630 
       REM THIS LOGICAL BLOCK OR SUBROUTINE.                            4F11631 
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F11632 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F11633 
       REM                                                              4F11634 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635 
       REM                                                              4F11636 
       REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11637 
ORGA   ORG 1824                                                         4F11638 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639 
       REM                                                              4F11640 
       REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.                        4F11641 
       REM CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642 
CA010  LXD ENDWRD,4                  IF THE FINAL STATEMENT HAS BEEN    4F11643 
       TXL DIAG,4,0                * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644 
       LXD EIFNO,1                   KEEP INTERAL FORMULA NUMBER        4F11645 
       TXI CA013,1,1                 (DECR PART OF EIFNO)               4F11646 
CA013  SXD EIFNO,1                   UP TO DATE BY ADDING 1.            4F11647 
       CAL FT                         OBTAIN HOLLERITH CODED 5-DIGIT    4F11648 
       ARS 6                         EXTERNAL FORMULA NO IN ACC.        4F11649 
       SLW F-1                       AND RETAIN IN F-01.                4F11650 
       LXD DCF,1                     INITIALIZE INDEX A TO COMPL OF F.  4F11651 
CA018  LXA L(11),2                   SET UP LOOP FOR 11 CYCLES.         4F11652 
CA019  LDQ FT+12,2                   MOVE WORD FROM REGION FT           4F11653 
       STQ 0,1                       TO REGION F.                       4F11654 
       TIX CA020,1,1                 KEEP F-REGION ADDRESS UP-TO-DATE.  4F11655 
CA020  TIX CA019,2,1                 TEST END OF LOOP.                  4F11656 
       TSX CA100,4                 * GO READ NEXT NON-BLANK CARD.       4F11657 
       CAL FT                        TEST RIGHTMOST CHARACTER OF        4F11658 
       ANA L(63)                     FIRST WORD FOR CONTINUATION MARK,  4F11659 
       TZE CA021                     IF ZERO OR BLANK,                  4F11660 
       SUB ABLANK                    DISCONTINUE READING,               4F11661 
       TNZ CA018                     OTHERWISE CONTINUE.                4F11662 
CA021  CLA BLANKS                    BEGIN SCANNING REGION F BACKWARDS  4F11663 
CA022  CAS -1,1                      TO FIND FIRST NON BLANK WORD.      4F11664 
       TRA CA023                     NOT BLANK.                         4F11665 
       TXI CA022,1,1                 BLANK, SO CONTINUE SCAN.           4F11666 
CA023  LDQ 36ONES                    PLACE BINARY ONES IN FIRST WORD    4F11667 
       STQ 0,1                       FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668 
       CAL F-1                       PICK UP EXTERNAL FORMULA NUMBER AND4F11669 
       CAS 5BLANS                    COMPARE WITH /0     /.             4F11670 
       TRA CA015                     NOT COMPARE.                       4F11671 
       TRA CD000                   * TAKE EXTFORMNO, IF ANY AND         4F11672 
CA015  LRS 35                        GO TO CONVERSION SUBROUTINE AND    4F11673 
       TSX SR6DC1,1                * RETURN HERE WITH RESULT IN ACC.    4F11674 
       STA EIFNO                     STORE RESULT IN ADDRESS OF EIFNO.  4F11675 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER EIFNO   4F11676 
       PZE 0                         INTO TABLE TEIFNO (TABLE O).       4F11677 
       REM END OF PROGRAM CA000.                                        4F11678 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679 
       REM                                                              4F11680 
       REM CD000/ CALLS=C0190X,C0190,DIAG.                              4F11681 
       REM CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.            4F11682 
CD000  TSX C0190X,4                * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683 
CD001  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684 
       CAS COMMA                     SCAN                               4F11685 
       TXI CD002,0                   FOR                                4F11686 
       TXI CD003,0                   HOLLERITH                          4F11687 
CD002  SUB OPEN                      SPECIFICATION                      4F11688 
       TNZ CD001                     WHICH                              4F11689 
CD003  TSX CD900,1                 * CAN BE=                            4F11690 
       SUB L(10)                     , N H                              4F11691 
       TPL CD001                     OR = ( N H.                        4F11692 
CD004  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693 
       CAS L(9)                      CONTINUE SCAN.                     4F11694 
       TXI CD005,0                   N                                  4F11695 
       TXI CD004,0                   IS                                 4F11696 
       TXI CD004,0                   A                                  4F11697 
CD005  CAS L(H)                      FIXED                              4F11698 
       TXI CD001+1,0                 POINT                              4F11699 
       TXI CD700,0                   INTEGER.                           4F11700 
       TXI CD001+1,0                 X                                  4F11701 
CD700  TSX C0190,4                 * GO GET NEXT NONBLANK CHARACTER,    4F11702 
       CAS ENDMK                     AND IF ENDMARK,                    4F11703 
       TXI CD701,0                   THEN SKIP                          4F11704 
       TXI CC000,0                 * TO NON-ARITHMETIC CLASSIFICATION.  4F11705 
CD701  TSX CD600,1                 * SINCE HOLLERITH HAS BEEN FOUND,    4F11706 
       TXI CD700,0                   THEN $ IS LEGAL IN FORMAT TEST.    4F11707 
CD900  TSX C0190,4                 * OBTAIN NEXT NONBLANK CHARACTER,    4F11708 
       CAS ENDMK                     AND IF NOT                         4F11709 
       TXI CD800,0                   ENDMARK, THEN SKIP                 4F11710 
       TXI CB000,0                 * EXIT TO ARITH/NON-ARITH SCAN.      4F11711 
CD800  CAS SPECOP                    CHECK FOR $                        4F11712 
       TXI CD601,0                   WHICH, UNLESS HOLERITH, IS AN      4F11713 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11714 
CD600  CAS PM                        CHECK FOR RECORD MARK              4F11715 
       TRA 1,1                       WHICH IS AN                        4F11716 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11717 
CD601  CAS CHAR3                     CHECK FOR MINUS ZERO               4F11718 
       TRA 1,1                       WHICH IS AN                        4F11719 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11720 
       CAS CHAR2                     CHECK FOR PLUS ZERO                4F11721 
       TRA 1,1                       WHICH IS AN                        4F11722 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11723 
       CAS MINUS                     CHECK FOR MINUS SIGN               4F11724 
       TRA 1,1                       WHICH IS AN                        4F11725 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11726 
       SUB TEN                       CHECK FOR TEN                      4F11727 
       TNZ 1,1                       WHICH IS AN                        4F11728 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11729 
       REM  END OF PROGRAM CD000.                                       4F11730 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731 
       REM                                                              4F11732 
       REM CB000/ CALLS=C0190X,C0190,DIAG.                              4F11733 
       REM CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.  4F11734 
CB000  LXA L(1),1                    SET XR TO COUNT PARENTHESES.       4F11735 
       TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736 
CB001  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F11737 
       CAS AEQUAL                    IF AN EQUAL SIGN,                  4F11738 
       TXI CB005,0                   THEN                               4F11739 
       TXI CB200,0                   GO TEST PAREN-COUNT.               4F11740 
CB005  CAS ALPAR                     IF A LEFT PARENTHESIS,             4F11741 
       TXI CB006,0                   THEN                               4F11742 
       TXI CB001,1,1                 UPDATE PAREN-COUNT BY 1.           4F11743 
CB006  CAS ARPAR                     IF A RIGHT PARENTHESIS,            4F11744 
       TXI CB007,0                   THEN                               4F11745 
       TXI CB500,0                   GO TEST PAREN-COUNT.               4F11746 
CB007  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11747 
       TNZ CB001                     GO EXAMINE NEXT CHARACTER.         4F11748 
       TXI CC000,0                 * OTHERWISE, GO TO DIC LOOK-UP.      4F11749 
CB200  TIX CC000,1,1               * IF EQUAL WAS NOT WITHIN PARENS,    4F11750 
CB201  TSX C0190,4                 * THEN EXAMINE NEXT CHARACTER.       4F11751 
       CAS ALPAR                     IF LEFT PARENTHESIS,               4F11752 
       TXI CB205,0                   THEN                               4F11753 
       TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11754 
CB205  CAS ACOMMA                    IF A COMMA,                        4F11755 
       TXI CB206,0                   THEN                               4F11756 
       TXI CC000,0                 * GO TO NON-ARITHMETIC DIC LOOK-UP.  4F11757 
CB206  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11758 
       TNZ CB201                     GO EXAMINE NEXT CHARACTER.         4F11759 
       TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11760 
CB500  TIX CB001,1,1                 IF PAREN-COUNT DOES NOT BALANCE,   4F11761 
       TSX DIAG,4                  * ERROR-GO TO DIAGNOSTIC ROUTINE.    4F11762 
       REM  END OF PROGRAM CB000.                                       4F11763 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764 
       REM                                                              4F11765 
       REM CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.                  4F11766 
       REM CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC.       4F11767 
CC000  STZ 2G                        SET DICTIONARY WORD TAG, AND       4F11768 
       LXA L(0),3                    CHARACTER COUNT AND ENTRY COUNT.   4F11769 
CC001  TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770 
       TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771 
       CAS ENDMK                     TEST FOR CONSECUTIVE ENDMARKS.     4F11772 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11773 
       TSX DIAG,4                  * ERROR = NOT FOUND IN DICTIONARY.   4F11774 
       TXI CC004,4                   GO BEGIN COMARISION.               4F11775 
CC002  TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776 
       CAS ENDMK                     TEST FOR END OF DIC ENTRY.         4F11777 
       TXI ERR77P,0                * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11778 
       TXI CC007,0                   IF END OF ENTRY, LOOK NO FURTHER.  4F11779 
CC004  STO 1C                        OTHERWISE, SAVE CHARACTER          4F11780 
       STQ 1C+1                      AND REMAINDER OF DICTIOANRY WORD.  4F11781 
       TSX C0190,4                 * GO GET NEXT FORMULA CHARACTER,     4F11782 
       LDQ 1C+1                      AND RESTORE DICTIONARY WORD.       4F11783 
       SUB 1C                        IF CHARCATERS ARE EQUAL,           4F11784 
       TZE CC002                     THEN GO COMPARE NEXT CHARACTER.    4F11785 
CC005  TSX CC500,4                 * OTHERWISE, EXAMINE NEXT DIC CHAR.  4F11786 
       SUB ENDMK                     CONTINUE UNTIL AN ENDMARK IS       4F11787 
       TNZ CC005                     FOUND, THEN                        4F11788 
       TXI CC001,1,-1                COUNT ENTRY, AND BEGIN AGAIN.      4F11789 
CC007  CLA T,1                       IF THE CURRENT STATEMENT IS        4F11790 
       TPL T,1                       OF THE NON-EXCUTABLE TYPE,         4F11791 
       SXD 1C+2,1                    THEN                               4F11792 
       TSX TET00,1                 * GO ENTER EIFNO IN THE              4F11793 
       PZE 14                        NONEXC TABLE.                      4F11794 
       LXD 1C+2,1                    AND THEN                           4F11795 
CC008  TRA T,1                     * TAKE INDICATED TRANSFER.           4F11796 
       REM  END OF PROGRAM CC000.                                       4F11797 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798 
       REM                                                              4F11799 
       REM STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=       4F11800 
       REM                                                              4F11801 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802 
       REM                                                              4F11803 
       REM C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.    4F11804 
       REM C0100 PROCESSES DO STATEMENTS.                               4F11805 
C0100  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806 
       TSX C0190,4                 * OBTAIN 1ST NON-BLANK CHARACTER     4F11807 
       TSX TESTI0,4                * WHICH SHOULD BE NUMERIC.           4F11808 
       TSX C0180,2                 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809 
       STO 2G                        SAVE THE 1ST CHAR OF SUBSCRIPT.    4F11810 
       CLA 1G                        TAKE CONVERTED RESULT FOR BETA     4F11811 
       STA 1C                        AND STORE IN ADDR OF 1C.           4F11812 
       CLA 2G                        1C IS NOW COMPETE EXCEPT FOR TAG.  4F11813 
       TSX C0160,2                 * OBTAIN IN 1G THE SUBSCRIPT.        4F11814 
       CLA 1G                        STORE SUBSCRIPT                    4F11815 
       STO 1C+1                      IN 1C+1.                           4F11816 
       TSX C0150,2                 * OBTIAN IN 1G THE PROPER N1.        4F11817 
       CLA 1G                        STORE N1                           4F11818 
       STO 1C+2                      IN 1C+2.                           4F11819 
       CAL I                         OBTAIN I IN LOGICAL ACC AND        4F11820 
       ARS 18                        STORE IN POS 18 OF 1C              4F11821 
       ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822 
       TSX C0150,2                 * OBTAIN IN 1G THE PROPER N2.        4F11823 
       TSX TESTA0,4                * TEST THE AC FOR COMMA OR ENDMARK.  4F11824 
       TNZ C0113                     IF ENDMARK, THEN                   4F11825 
       RQL 31                        CREATE ONE IN MQ FOR N3            4F11826 
       STQ RESIDU                    AND PLACE IN RESIDU.               4F11827 
C0113  CLA 1G                        STORE N2                           4F11828 
       STO 1C+3                      IN 1C+3.                           4F11829 
       CAL I                         OBTAIN I IN LOG ACC AND            4F11830 
       ARS 19                        STORE IN POS 19 OF 1C              4F11831 
       ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832 
       TSX C0150,2                 * OBTAIN IN 1G THE PROPER N3.        4F11833 
       TSX TESTD0,4                * THE AC SHOULD CONTIAN AN ENDMARK.  4F11834 
       CLA 1G                        STORE N3                           4F11835 
       STO 1C+4                      IN 1C+4.                           4F11836 
       CAL I                         OBTAIN I IN LOG ACC AND            4F11837 
       ARS 20                        STORE IN POS 20 OF 1C              4F11838 
       ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839 
       TSX TET00,1                 * GO TO TET PROGRAM TO ENTER         4F11840 
       PZE 1                         1C,1C+1,..1C+4 IN TDO TABLE 1.     4F11841 
       TXI CA010,0                 * EXTI TO PROCESS NEXT STATEMENT.    4F11842 
       REM  END OF PROGRAM C0100.                                       4F11843 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844 
       REM                                                              4F11845 
       REM C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,     4F11846 
       REM CIT00,SS000(CSA000).                                         4F11847 
       REM C0200 PROCESSES GO TO STATEMENTS.                            4F11848 
C0200  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F11849 
       STO 1C+2                      AND IN 1C+2.                       4F11850 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER    4F11851 
       CAS L(9)                      AND COMPARE IT WITH 9.             4F11852 
       TXI C0205,0                   IF NON-NUMERIC, GO COMPARE WITH (. 4F11853 
       NOP                           IF NUMERIC, THEN                   4F11854 
       TSX C0180,2                 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855 
       TSX TESTD0,4                * THE AC SHOULD CONTAIN AN ENDMARK.  4F11856 
       CLA 1G                        STORE BETA IN 1C+1 TO CONSTRUCT    4F11857 
       STO 1C+1                      THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858 
       TXI C0202,0                   GO  TO ENTER 1C,1C+1 INTO TIFGO.   4F11859 
C0205  CAS ALPAR                     TEST CHARACTER FOR ALPHABETIC.     4F11860 
       TXI C0210,0                   IF NOT ALPHABETIC, THEN            4F11861 
       TXI C0212,0                   THIS IS TYPE= GO TO ( ), I.        4F11862 
C0210  TSX C0160,2                 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863 
       TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864 
       CLA 1G                        SAVE THE SYMBOL N IN 1C+3          4F11865 
       STO 1C+3                      FOR COMPILED INSTRUCTION.          4F11866 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER,   4F11867 
       TSX TESTE0,4                * WHICH SHOULD BE A LPARAN.          4F11868 
       CLA L(1)                      PREPARE TO SET ADDRESS PART OF 1C  4F11869 
       TRA C0213                     TO 1 TO INDICATE CLASS OF TRANSFER.4F11870 
C0212  CLA L(2)                      PREPARE TO SET ADDR OF 1C TO 2.    4F11871 
C0213  STA 1C                        STORE 1 OR 2 IN ADDR OF 1C.        4F11872 
       LXD CTRAD,2                   OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873 
       PXD ,2                        PLACE IN THE DECREMENT OF THE AC   4F11874 
       STO 1C+1                      AND STORE IN 1C+1.                 4F11875 
C0215  TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR.        4F11876 
       TSX C0180,2                 * OBTAIN IN 1G THE BIN EQU OF BETA.  4F11877 
       STO 2G                        SAVE CHAR IN ACC.                  4F11878 
       TSX TET00,1                 * GO TO ENTER 1G                     4F11879 
       PZE 3                         INTO TRAD TABLE (TABLE 3).         4F11880 
       LXD CTRAD,2                   REDUCE COUNTER                     4F11881 
       TIX C0216,2,1                 CTRAD                              4F11882 
C0216  SXD CTRAD,2                   BY 1.                              4F11883 
       CLA 2G                        RESTORE CHAR TO ACC.               4F11884 
       TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F11885 
       TNZ C0215                     IF RIGHT PARENTHESIS, THEN         4F11886 
       CLA CTRAD                     OBTAIN IN ADDR OF ACC 250-NO. OF   4F11887 
       ARS 18                        ENTRIES IN TRAD TABLE,AND STORE    4F11888 
       STA 1C+1                      IN ADDR OF 1C+1.                   4F11889 
       CLA 1C                        OBTAIN 1C IN ACC                   4F11890 
       LBT                           AND TEST LOW ORDER BIT.            4F11891 
       TRA C0220                     THIS IS A TYPE GO TO (),I FORMULA. 4F11892 
       TSX C0190,4                 * OBTAIN NEXT NB CHAR AND            4F11893 
       TSX TESTD0,4                * TEST FOR ENDMK.                    4F11894 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11895 
       PZE 1C+2                      WORD 1--DECR= INTFORMNN (LOCATION) 4F11896 
       PZE L(TRA)                    WORD 2--TRA00P (OP AND DECR)       4F11897 
       PZE 1C+3                      WORD 3--VARIABLE N (ADDRESS)       4F11898 
       PZE L(0)                      WORD 4--00000 (REL ADDR AND TAG).  4F11899 
       TRA C0202                     GO TO ENTER 1C,1C+1 INTO TIFGO.    4F11900 
C0220  TSX C0190,4                 * EXAMINE NEXT NB CHARACTER,         4F11901 
       TSX TESTG0,4                * WHICH SHOULD BE A COMMA.           4F11902 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR, AND    4F11903 
       TSX C0160,2                 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904 
       TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905 
       CLA L(1)                      PREPARE PROPER FORM OF SUBSCRIPT   4F11906 
       STO E+3                       COMBINATION AS                     4F11907 
       STO DIMCTR                    INPUT TO SUBSCRIPT ANALYSIS=       4F11908 
       CLA 1G                        E+3 = 1ST COEFFICIENT.             4F11909 
       STO E+4                       E+4 = 1ST SUBSCRIPT VARIABLE,      4F11910 
       STZ E+9                       E+9 = ADDEND OF SUBSCRIPT,         4F11911 
       TSX CSA000,4                * DIMCTR = DIMENSION OF VARIABLE.    4F11912 
       CLA E                         OUTPUT FROM CSA IS FOUND IN        4F11913 
       ARS 24                        E = I--TAUTAG (GENERAL TAG) 1-11.  4F11914 
       STO 2G                        ADJUST AND SAVE FOR COMP. INSTR.   4F11915 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11916 
       PZE 1C+2                      WORD 1--DECR-INTFORMNO(LOCATION)   4F11917 
       PZE L(TRA)                    WORD 2--TRA000(OP AND DECR)        4F11918 
       PZE L(0)                      WORD 3--000000(ADDRESS)            4F11919 
       PZE 2G                        WORD 4--ADDR = TAUTAG FOR I        4F11920 
       REM C0200= ENTRY POINT USED BY C0400,C1000.                      4F11921 
C0202  TSX TET00,1                 * GO TO TET TO ENTER 1C AND 1C+1     4F11922 
       PZE 2                         INTO TIFGO TABLE (TABLE 2).        4F11923 
 CTRAD TXI CA010,0,250             * EXIT TO PROCESS NEXT STATEMENT.    4F11924 
       REM  END OF PROGRAM C0200.                                       4F11925 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926 
       REM                                                              4F11927 
       REM C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,    4F11928 
       REM STATEB.                                                      4F11929 
       REM C0300 PROCESSES IF STATEMENTS.                               4F11930 
C0300  LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11931 
       PXD ,4                        NUMBER IN THE DECREMENT OF 1C      4F11932 
       SSM                           WITH SIGN SET TO MINUS             4F11933 
       STO 1C                        FOR FUTURE TIFGO ENTRY.            4F11934 
       TSX C0190X,4                * SET CHCTR AND FWA TO BEGIN SCAN.   4F11935 
       TSX C0190,4                 * OBTAIN IN AC THE 1ST NB CHAR (I).  4F11936 
       LDQ L(X)                      REPLACW THE CHARACTER I            4F11937 
       TSX C0390,4                 * WITH THE CHARACTER X.              4F11938 
       LDQ L(10)                     REPALCE THE CHARACTER F            4F11939 
       TSX C0390,4                 * WITH THE CHARACTER 001010.         4F11940 
       TSX TESTE0,4                * IF NOT LPAREN -- THEN ERROR.       4F11941 
       LDQ AEQUAL                    REPLACE THE CHARACTER LPARAN       4F11942 
       TSX C0390,4                 * WITH THE CHARACTER EQUAL.          4F11943 
       LXA L(1),2                    SET XR2 FOR COUNTING PARENTHESES.  4F11944 
       TRA *+2                                                          4F11945 
C0302  TSX C0190,4                 * MAKE SURE THAT NEXT NB CHARACTER   4F11946 
       CAS ENDMK                     IS NOT AN ENDMARK.                 4F11947 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11948 
       TSX DIAG,4                  * PROGRAM ERROR, GO TO DIAGNOSTIC.   4F11949 
       CAS ALPAR                     IF IT IS A LPAREN,                 4F11950 
       TXI C0303,0                   THEN ADD 1 TO PAREN COUNT, AND     4F11951 
       TXI C0302,2,1                 GO EXAMINE NEXT CHARACTER.         4F11952 
C0303  SUB ARPAR                     IF IT IS A RPAREN,                 4F11953 
       TNZ C0302                     THE TEST PAREN COUNT, AND IF IT    4F11954 
       TIX C0302,2,1                 CAN NOT BE REDUCED,MATE IS FOUND.  4F11955 
       LDQ ENDMK                     SO REPLACE THE CHARACTER RPAREN    4F11956 
       TSX C0390,4                 * WITH THE CHARACTER ENDMK.          4F11957 
       TSX C0180,2                 * BINARY EQUIVALENT OF BETA 1.       4F11958 
       TSX TESTG0,4                * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959 
       CLA 1G                        MOVE BETA1                         4F11960 
       STA 1C                        TO ADDRESS OF 1C.                  4F11961 
       TSX C0190,4                 * AND PROCEED TO FORM                4F11962 
       TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 2.   4F11963 
       TSX TESTG0,4                * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964 
       CLA 1G                        MOVE BETA2                         4F11965 
       ALS 18                        TO DECR PART                       4F11966 
       STO 1C+1                      OF 1C+1.                           4F11967 
       TSX C0190,4                 * AND PROCEED TO FORM                4F11968 
       TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 3.   4F11969 
       TSX TESTD0,4                * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970 
       CLA 1G                        MOVE BETA3                         4F11971 
       STA 1C+1                      TO ADDRESS OF 1C+1.                4F11972 
       TXI ARITH,0                 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973 
       REM  END OF PROGRAM C0300.                                       4F11974 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975 
       REM                                                              4F11976 
       REM C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.                 4F11977 
       REM C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.                 4F11978 
C0400  CLA L(112)                    FOR SENSE SWITCH                   4F11979 
       STO 1H                        SET 1H TO 112, AND PREPARE TO      4F11980 
       CLA L(PSE)                    SET 2H TO PSE.                     4F11981 
       REM C0401= ENTRY POINT USED BY C0500.                            4F11982 
C0401  STO 2H                        SET 2H FOR SENSE SWITCH OR LIGHT.  4F11983 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11984 
       TSX C0180,2                 * EQUIVALENT OF SW OR SL NUMBER.     4F11985 
       TSX TESTF0,4                * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986 
       CLA L(3)                      STORE 3                            4F11987 
       STO 1C                        IN ADDRESS OF 1C.                  4F11988 
       CLA 1G                        ADD THE PROPER INCREMENT TO THE    4F11989 
       ADD 1H                        NUMBER OF SENSE SWITCH OR LIGHT,   4F11990 
       ALS 18                        AND ADJUST TO THE DECREMENT.       4F11991 
       REM C0402= ENTRY POINT USED BY C0600.                            4F11992 
C0402  STO 1C+3                      SET 1C+3 FOR CIT ENTRY.            4F11993 
       LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11994 
       PXD ,4                        NUMBER IN THE DECREMENT OF         4F11995 
       STD 1C                         1C FOR FUTURE TIFGO ENTRY, AND    4F11996 
       STO 1C+2                      1C+2 FOR FUTURE CIT ENTRY.         4F11997 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11998 
       TSX C0180,2                 * EQUIVALENT OF BETA 1,              4F11999 
       TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000 
       CLA 1G                        BRING UP,                          4F12001 
       ALS 18                        ADJUST AND                         4F12002 
       STO 1C+1                      STORE BETA1 IN DECR OF 1C+1.       4F12003 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F12004 
       TSX C0180,2                 * EQUIVALENT OF BETA 2,              4F12005 
       TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006 
       CLA 1G                        BRING UP AND                       4F12007 
       STA 1C+1                      STORE BETA2 IN ADDR OF 1C+1.       4F12008 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12009 
       PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12010 
       PZE 2H                        WORD2--PSE,MSE,DCT,TOV,OR TQO.     4F12011 
       PZE L(0)                      WORD3--000000 (ADDRESS)            4F12012 
       PZE 1C+3                      WORD4--DECR=SS OR SL NO., OR 0000004F12013 
       TXI C0202,0                 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014 
       REM  END OF PROGRAM C0400.                                       4F12015 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016 
       REM                                                              4F12017 
       REM C0500/ USES=C0400.                                           4F12018 
       REM C0500 PROCESSES IF (SENSE LIGHT STATMENTS.                   4F12019 
C0500  CLA L(96)                     STORE 96 IN                        4F12020 
       STO 1H                        1H AND                             4F12021 
       CLA L(MSE)                    OBTAIN (MSE000) IN ACC.            4F12022 
       TRA C0401                   * AND CONTINUE BY USING PROGRAM C04. 4F12023 
       REM  END OF PROGRAM C0500.                                       4F12024 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025 
       REM                                                              4F12026 
       REM C0600/ USES=C0400.                                           4F12027 
       REM C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.                  4F12028 
C0600  CLA L(DCT)                    STORE (DCT000)                     4F12029 
       STO 2H                        IN 2H                              4F12030 
       CLA L(4)                      AND PICK UP 4 TO SET 1C.           4F12031 
       REM C0601= ENTRY POINT USED BY C0700.                            4F12032 
C0601  STO 1C                        SET 1C FOR FUTURE TIFGO ENTRY.     4F12033 
       PXD ,0                        CLEAR THE AC,                      4F12034 
       TRA C0402                   * AND CONTINUE BY USING PROGRAM C04. 4F12035 
       REM  END OF PROGRAM C0600.                                       4F12036 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037 
       REM                                                              4F12038 
       REM C0700/ USES C0600.                                           4F12039 
       REM C0700 PROCESSES IF AC OVERFLOW STATEMENTS.                   4F12040 
C0700  CLA L(TOV)                    PICKUP TOV000 TO SET 2H.           4F12041 
       REM C0701= ENTRY POINT USED BY C0800.                            4F12042 
C0701  STO 2H                        SET 2H FOR FUTURE CIT ENTRY.       4F12043 
       CLA L(5)                      PICKUP 5 TO SET 1C, AND            4F12044 
       TRA C0601                   * CONTINUE BY USING PROGRAM C06.     4F12045 
       REM  END OF PROGRAM C0700.                                       4F12046 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047 
       REM                                                              4F12048 
       REM C0800/ USES=C0700.                                           4F12049 
       REM C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.                   4F12050 
C0800  CLA L(TQO)                    PICKUP TQO000 TO SET 2H,           4F12051 
       TRA C0701                   * AND CONTINUE BY USING PROGRAM C07. 4F12052 
       REM  END OF PROGRAM C0800.                                       4F12053 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054 
       REM                                                              4F12055 
       REM C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.                 4F12056 
       REM C0900 PROCESSES PAUSE STATEMENTS.                            4F12057 
C0900  LXD C090X,2                   SET XR2 FOR EXIT TO CA000.         4F12058 
       REM C0901= ENTRY POINT USED BY C1300.                            4F12059 
C0901  STZ 1G                        CLEAR 1G.                          4F12060 
C0902  TSX C0190,4                 * TEST NEXT NON-BLANK CHARACTER      4F12061 
       CAS ENDMK                     FOR END OF STATEMENT MARK.         4F12062 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F12063 
C090X  TXI C0903,0,-CA010+1          IF NOT END OF STATEMENT, THEN      4F12064 
       ADD 1G                        ADD 1G TO DIGIT,                   4F12065 
       ALS 3                         MULTIPLY BY 8.                     4F12066 
       STO 1G                        AND STORE BACK IN 1G.              4F12067 
       TXI C0902,0                   CONTINUE UNTIL END OF STATEMENT.   4F12068 
C0903  CLA 1G                        THEN PLACE OCTAL ALPHA             4F12069 
       ALS 15                        IN THE DECREMENT                   4F12070 
       STO 1C                        OF 1C FOR FUTURE CIT ENTRY.        4F12071 
       LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F12072 
       PXD ,4                        NUMBER IN THE DECREMENT            4F12073 
       STO 1C+1                      OF 1C+1,WITH ZEROS ELSEWHERE.      4F12074 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12075 
       PZE 1C+1                      WORD1--DECR = INTFORMNO (LOCATION) 4F12076 
       PZE L(HPR)                    WORD2--HPR000 (OP AND DECR)        4F12077 
       PZE L(0)                      WORD3--000000 (ADDRESS)            4F12078 
       PZE 1C                        WORD4--DECR = ALPHA, REST ZEROS.   4F12079 
       TRA 1,2                     * EXIT TO CA000, OR TO C1300.        4F12080 
       REM  END OF PROGRAM C0900.                                       4F12081 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082 
       REM                                                              4F12083 
       REM C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084 
       REM CIT00.                                                       4F12085 
       REM C1000 PROCESSES ASSIGN STATEMENTS.                           4F12086 
C1000  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F12087 
       STO 1C+2                       AND 1C+2,WITH ZEROS ELSEWHERE.    4F12088 
       CLA L(6)                      STORE 6 IN                         4F12089 
       STA 1C                        ADDRESS OF 1C.                     4F12090 
       TSX C0180X,2                * GO FORM BINARY EQUIV OF ALPHA.     4F12091 
       SUB L(T)                      IF NEXT CHARACTER IS NOT T, THEN   4F12093 
       TZE *+2                       THIS IS AN                         4F12094 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12095 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER   4F12096 
       SUB L(O)                      AND IF IT IS NOT 0, THEN           4F12097 
       TNZ *-3                       ERROR, GO TO DIAGNOSTIC.           4F12098 
       CLA 1G                        PUT BIN EQUIV OF ALPHA             4F12099 
       STO 1C+1                      IN ADDRESS OF 1C+1.                4F12100 
       TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12101 
       TSX C0160,2                 * THE SYMBOL N.                      4F12102 
       TSX TESTD0,4                * THE NEXT NB CHAR SHOULD BE ENDMK.  4F12103 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12104 
       PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12105 
       PZE L(CLA)                    WORD2--CLA000 (OP AND DECR)        4F12106 
       PZE L(0)                      WORD3--000000 (ADDRESS)            4F12107 
       PZE L(0)                      WORD4--000000 (RELADDR AND TAG).   4F12108 
       TSX CIT00,4                 * STORE SECOND COMPILED INSTRUCTION= 4F12109 
       PZE L(0)                      WORD1--000000  (ALL ZEROS)         4F12110 
       PZE L(STO)                    WORD2--STO000 (OP AND DECR)        4F12111 
       PZE 1G                        WORD3--SYMBOL N (ADDRESS)          4F12112 
       PZE L(0)                      WORD4--000000 (REL ADDR AND TAG).  4F12113 
       TRA C0202                   * CONTINUE BY USING PROGRAM C02.     4F12114 
       REM  END OF PROGRAM C1000.                                       4F12115 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116 
       REM                                                              4F12117 
       REM C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.                4F12118 
       REM C1100 PROCESSES SENSE LIGHT STATMENTS.                       4F12119 
C1100  TSX C0180X,2                * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120 
       TSX TESTD0,4                * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122 
       CLA 1G                        STORE SENSE LIGHT NUMBER           4F12123 
       ADD L(96)                     PLUS 96                            4F12124 
       ALS 18                        IN DECR                            4F12125 
       STO 1G                        OF 1G.                             4F12126 
       TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY.   4F12128 
       PZE 1C                        WORD1--DECR = INTFORMNO (LOCATION) 4F12129 
       PZE L(PSE)                    WORD2--PSE000 (OP AND DECREMENT)   4F12130 
       PZE L(0)                      WORD3--000000 (ADDRESS PART)       4F12131 
       PZE 1G                        WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12133 
       REM  END OF PROGRAM C1100.                                       4F12134 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135 
       REM                                                              4F12136 
       REM C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.    4F12137 
       REM C1200 PROCESSES DIMENSION STATEMENTS.                        4F12138 
C1200  TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12139 
       TSX C0160,2                 * THE VARIABLE SYMBOL.               4F12140 
       TSX TESTE0,4                * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141 
       CLA 1G                        PUT VARIABLE SYMBOL                4F12142 
       STO 1C                        IN 1C.                             4F12143 
       STO E+2                       ALSO IN E+2. THEN                  4F12144 
       TSX DIM1SR,4                * GO SEARCH DIM1 TABLE.              4F12145 
       TRA C1280                     THEN IF NOT                        4F12146 
       TRA C1299                     FOUND,                             4F12147 
C1280  TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F12148 
       TRA C1281                     THEN IF NOT                        4F12149 
       TRA C1299                     FOUND,                             4F12150 
C1281  TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F12151 
       TRA C1282                     DO NOT CONTUINUE IF                4F12152 
C1299  TSX DIAG,4                  * VARIABLE PREVIOUSLY APPEARED.      4F12153 
C1282  TSX C0180X,2                * GO FORM BINARY EQUIV OF D1.        4F12154 
       SUB CLOS                      IF NOT 1 DIMENSION,                4F12155 
       TZE C1210                     THEN                               4F12156 
       CLA 1G                        PUT D1                             4F12157 
       ALS 18                        IN DECR                            4F12158 
       STO 1C+1                      OF 1C+1.                           4F12159 
       TSX C0180X,2                * GO FORM BINARY EQUIV OF D2.        4F12160 
       SUB CLOS                      IF NOT 2 DIMENSION,                4F12163 
       TZE C1220                     THEN                               4F12164 
       CLA 1G                        PUT D2                             4F12165 
       STA 1C+1                      IN ADDRESS OF 1C+1.                4F12166 
       TSX C0180X,2                * GO FORM BINARY EQUIV OF D3.        4F12168 
       SUB CLOS                      IF MORE THAN 3 DIMENSIONS,         4F12169 
       TZE *+2                       THIS IS AN                         4F12170 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12171 
       CLA 1G                        IF 3 DIMENSION, PUT D3             4F12172 
       STO 1C+2                      IN 1C+2, AND                       4F12173 
       TSX DIM3IX,4                * GO MAKE DIM3 ENTRY.                4F12174 
       TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12175 
C1210  CLA 1G                        IF 1 DIMENSION, PUT D1             4F12176 
       STO 1C+1                      IN 1C+1, AND                       4F12177 
       TSX DIM1IX,4                * GO MAKE DIM1 ENTRY. THEN           4F12178 
       TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12179 
C1220  CLA 1G                        IF 2 DIMENSIONS, PUT D2 IN         4F12180 
       STA 1C+1                      ADDRESS PART OF 1C+1. AND          4F12181 
       TSX DIM2IX,4                * GO MAKE DIM2 ENTRY. THEN           4F12182 
C1201  TSX C0190,4                 * OBTAIN NB CHAR FOLLOWING RPAREN.   4F12183 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12184 
       TNZ C1200                     IF CHARACTER IS ENDMAKR, THEN      4F12185 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATMENT.     4F12186 
       REM  END OF PROGRAM C1200.                                       4F12187 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188 
       REM                                                              4F12189 
       REM C1300/ CALLS=C0901,TET00,CIT00.                              4F12190 
       REM C1300 PROCESSES STOP STATEMENTS.                             4F12191 
C1300  TSX TET00,1                 * GO MAKE EIFNO ENTRY                4F12192 
       PZE 15                        IN TSTOP TABLE.                    4F12193 
       TSX C0901,2                 * USE C0900 TO BEGIN PROCESSING.     4F12194 
       TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F12195 
       PZE L(0)                      WORD1--ALL ZEROS                   4F12196 
       PZE L(TRA)                    WORD2--TRA000 (OP+DECR)            4F12197 
       PZE 1C+1                      WORD3--DECR = INTFORMNO (SYMBOL)   4F12198 
       PZE L(0)                      WORD4--ZEROS (REL ADDR AND TAG)    4F12199 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12200 
       REM  END OF PROGRAM C1300.                                       4F12201 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202 
       REM                                                              4F12203 
       REM C1400/ CALLS=C0190,C0180,TEST..,TET00.                       4F12204 
       REM C1400 PROCESS FREQUENCY STATEMENTS.                          4F12205 
C1400  TSX C0180X,2                * GO FORM BINARY EQUIV OF EFN.       4F12206 
       TSX TESTE0,4                * CHARACTER SHOULD BE A LPAREN.      4F12208 
       CLS 1G                        CHANGE SIGN OF SYMBOL              4F12209 
       STO 1G                        TO MINUS.                          4F12210 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER         4F12211 
       PZE 7                                                            4F12212 
C1401  TSX C0180X,2                * GO FORM BINARY EQUIV OF M(1).      4F12213 
       STO 1C                        SAVE CHAR IN ACC.                  4F12215 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER M(1)    4F12216 
       PZE 7                         INTO TABLE FRET (TABLE7), AND      4F12217 
       CLA 1C                        RESTORE CHAR IN ACC, AND           4F12218 
       TSX TESTB0,4                * TEST FOR , OR ).                   4F12219 
       TNZ C1401                     IF RIGHT PARENTHESIS, THEN         4F12220 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NBCHAR, AND     4F12221 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12222 
       TNZ C1400                     IF ENDMAKE, THIS STATEMENT IS DONE.4F12223 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12224 
       REM  END OF PROGRAM C1400.                                       4F12225 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226 
       REM                                                              4F12227 
       REM C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00.                 4F12228 
       REM C1500 PROCESSES EQUIVALENCE STATEMENTS.                      4F12229 
C1500  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12230 
       TSX TESTE0,4                * CHARACTER SHOULD BE A LPARAN.      4F12231 
C1501  CLA L(1)                      INITIALIZE 1C                      4F12232 
       STO 1C+1                      TO 1.                              4F12233 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC AND      4F12234 
       TSX C0160,2                 * OBTAIN IN 1G THE SYMBOL V.         4F12235 
       LDQ 1G                        MOVE V                             4F12236 
       STQ 1C                        INTO 1C.                           4F12237 
       CAS ALPAR                     EXAMINE CHARACTER LEFT IN THE AC,  4F12238 
       TXI C1503,0                   AND IF                             4F12239 
       TXI C1502,0                   CHARACTER IS A LEFT PARENTHESIS,   4F12240 
       TIX C1503,0                   THEN                               4F12241 
C1502  TSX C0180X,2                * GO FORM BINARY EQUIV OF N.         4F12242 
       TSX TESTF0,4                * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244 
       CLA 1G                        PUT BIN EQUIV OF N                 4F12245 
       STO 1C+1                      IN 1C+1.                           4F12246 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN AC, AND      4F12247 
C1503  TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F12248 
       TZE C1504                     IF COMMA, THEN                     4F12249 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12250 
       PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12251 
       TXI C1501,0                   RETURN TO CONTINUE PROCESSING X.   4F12252 
C1504  CLS 1C+1                      MAKE SIGN OF N MINUS SINCE         4F12253 
       STO 1C+1                      THIS IS LAST ITEM.                 4F12254 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12255 
       PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12256 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC, AND     4F12257 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12258 
       TNZ C1500                     IF ENDMARK, THEN                   4F12259 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12260 
       REM  END OF PROGRAM C1500.                                       4F12261 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262 
       REM                                                              4F12263 
       REM C1600/ CALLS=C0190,TEST..,GIF,BSS.                           4F12264 
       REM C1600 PROCESSES CONTINUE STATEMENTS.                         4F12265 
C1600  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12266 
       TSX TESTD0,4                * CHARACTER SHOULD BE AN ENDMARK.    4F12267 
       TSX GIF,4                   * GET INTERNAL FORMULA NUMBER, AND   4F12268 
       TSX BSS,2                   * GO COMPILE= IFN BSS 0.             4F12269 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12270 
       REM  END OF PROGRAM C1500.                                       4F12271 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272 
       REM                                                              4F12273 
       REM C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.    4F12274 
       REM C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.          4F12275 
C3500  CAL TXHOP                                                        4F12276 
       STP C3003                                                        4F12277 
C3000  LXD EIFNO,4                   EXAMINE INTERNAL FORMULA NO., AND  4F12278 
       TXL *+2,4,1                   IF NOT THE 1ST STATEMENT, THEN     4F12279 
       TSX DIAG,4                  * ERROR - GO TO DIAGNOSTIC.          4F12280 
       CLA ARGCNT                    SET ARGCNT TO INDICATE TO LATER    4F12281 
       SSP                           RETURN THAT THERE WAS A PRECEEDING 4F12282 
       STO ARGCNT                    SUBROUTINE OR FUNCTION STATEMENT.  4F12283 
       TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12284 
       TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285 
       TSX C0160,2                 * ASSEMBLE NAME IN 1G.               4F12286 
       TSX TESTC0,4                * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 
C3003  TXL *+3,0                                                        4F12288 
       CLA 1G                                                           4F12289 
       STO FSNAME                                                       4F12290 
       TSX SUBX00,4                * FILL OUT NAME WITH BLANKS.         4F12291 
       TSX TET00,1                 * GO ENTER NAME                      4F12292 
       PZE 11                        IN SUBDEF TABLE.                   4F12293 
       LXD EIFNO,4                   PLACE                              4F12294 
       PXD ,4                        INTERNAL FORMULA NUMBER            4F12295 
       STO G                         IN G.                              4F12296 
       TXI C3002,0                   GO TEST FOR END OF STATEMENT.      4F12297 
C3001  ADD ENDMK                     IF NOT ENDMARK, RESTOERE CHARACTER 4F12298 
       TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC        4F12299 
       STO FIRSTC                    1ST CHARACTER OF ARGUMENT.         4F12300 
       TSX C0160,2                 * ASSEMBLE ARGUMENT IN 1G.           4F12301 
       TSX TESTB0,4                * NEXT CHAR SHD BE COMMA OR RPARAN.  4F12302 
       CLA 1G                         MOVE ARGUMENT                     4F12303 
       STO G+1                       INTO G+1.                          4F12304 
       TSX TESTFX,1                * GO TEST FOR FIXED OR FLOATING PT.  4F12305 
       TXI C3004,0                   IF FLOATING PT., SKIP FORVAL ENTRY.4F12306 
       TSX TET00,1                 * IF FIXED POINT, GO MAKE ENTRY      4F12307 
       PZE 6                         IN FORVAL TABLE.                   4F12308 
C3004  TSX TET00,1                 * IN BOTH CASES, MAKE ENTRIES IN     4F12309 
       PZE 11                        SUBDEF TABLE.                      4F12310 
       CLA ARGCNT                    UPDATE                             4F12311 
       ADD D1                        ARGUMENT COUNT                     4F12312 
       STO ARGCNT                    BY 1. AND                          4F12313 
C3002  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F12314 
       SUB ENDMK                     IF NOT ENDMARK, THEN               4F12315 
       TNZ C3001                     GO PROCESS NEXT ARGUMENT.          4F12316 
       TXI CA010,0                 * OTHERWISE, EXIT TO CA000.          4F12317 
       REM  END OF PROGRAM C3000.                                       4F12318 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319 
       REM                                                              4F12320 
       REM C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.                  4F12321 
       REM C3100 PROCESSES COMMON STATEMENTS.                           4F12322 
C3100  TSX C0190,4                 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 
       TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC.       4F12324 
       TSX C0160,2                 * ASSEMBLE SYMBOL IN 1G, AND TEST    4F12325 
       TSX TESTA0,4                * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326 
       PAX ,4                        SAVE RESULT OF TEST IN XR4, AND    4F12327 
       TSX TET00,1                 * GO ENTER THIS SYMBOL               4F12328 
       PZE 12                        IN COMMON TABLE.                   4F12329 
       CLA SBDFCN                    ANY ENTRIES IN SUBDEF              4F123291
       TZE C3101                     INDICATE THIS IS NOT A             4F123292
       CLA 2E18                      MAIN PROGRAM. SINCE THIS           4F123293
       STO G                         IS A COMMON                        4F123294
       CAL 1G                        STATEMENT WHICH                    4F123296
       SLW G+1                       APPEARS IN A SUBPROGRAM            4F123297
       ARS 30                        ENTER ANY                          4F123298
       TSX TESTFX+1,1              * FIXED POINT                        4F123299
       TRA C3101                     VARIABLES                          4F12330 
       TSX TET00,1                 * IN                                 4F123301
       PZE 6                         FORVAL TABLE.                      4F123302
C3101  TXH C3100,4,0                 IF CHARACTER WAS COMMA, REPEAT.    4F123303
       TXI CA010,0                 * IF ENDMK, EXIT TO CA000.           4F12331 
       REM  END OF PROGRAM C3100.                                       4F12332 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333 
       REM                                                              4F12334 
       REM C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).        4F12335 
       REM C3200 PROCESSES RETURN STATEMENTS.                           4F12336 
C3200  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12337 
       TSX TESTD0,4                * WHICH SHOULD BE AN ENDMARK.        4F12338 
       TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339 
       TSX JIF,4                   * SET SL TO ALPHA+1.                 4F12340 
       CLA ARGCNT                    TEST ARGCNT FOR PRECEEDING         4F12341 
       TPL *+2                       SUBROUTINE - IF NONE, THEN         4F12342 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12343 
       CLA FSNAME                                                       4F12344 
       TZE *+7                                                          4F12345 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12346 
       PZE 1C                        WORD1--0(IFN)000                   4F12347 
       PZE L(CLA)                    WORD2--CLA000                      4F12348 
       PZE FSNAME                    WORD3--NAME OF FUNCTION            4F12349 
       PZE L(0)                      WORD4--000000                      4F12350 
       STZ 1C                        CLEAR 1C.                          4F12351 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12352 
       PZE 1C                        WORD1--0(IFN)000                   4F12353 
       PZE L(LXD)                    WORD2--LXD000                      4F12354 
       PZE DOLSGN                    WORD3--$                           4F12355 
       PZE L(1)                      WORD4--000001                      4F12356 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12357 
       PZE L(0)                      WORD1--000000                      4F12358 
       PZE L(LXD)                    WORD2--LXD000                      4F12359 
       PZE DOLSGN                    WORD3--$                           4F12360 
       PZE ABTAG2                    WORD4--001002                      4F12361 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12362 
       PZE L(0)                      WORD1--000000                      4F12363 
       PZE L(QXD)                    WORD2--QXD000                      4F12364 
       PZE DOLSGN                    WORD3--$                           4F12365 
       PZE ABTAG3                    WORD4--002000                      4F12366 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12367 
       PZE SL                        WORD1--0(IFN+1)000                 4F12368 
       PZE L(QPR)                    WORD2--QPR000                      4F12369 
       PZE L(0)                      WORD3--000000                      4F12370 
       PZE ARGCNT                    WORD4--0(N+1)004                   4F12371 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12372 
       PZE L(0)                      WORD1--000000                      4F12373 
       PZE L(TRA)                    WORD2--TRA000                      4F12374 
       PZE SL                        WORD3--0(IFN+1)000                 4F12375 
       PZE L(0)                      WORD4--000000                      4F12376 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12377 
       REM  END OF PROGRAM C3200.                                       4F12378 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379 
       REM                                                              4F12380 
       REM C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.         4F12381 
       REM C3300 PROCESSES CALL STATEMENTS.                             4F12382 
C3300  TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12383 
       TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384 
       TSX C0160,2                 * COLLECT THE REST OF THE NAME, WHICH4F12385 
       TSX TESTC0,4                * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 
       TZE C3301                     IF LPAREN, THEN CHANGE CALL TO A   4F12387 
       TSX C0190X,4                * PSEUDO-ARITHMETIC FORMULA (Z10=).  4F12388 
       TSX C0190,4                 * PICKUP THE CHARACTER C,            4F12389 
       LDQ L(Z)                      AND                                4F12390 
       TSX C0390,4                 * REPLACE C WITH Z.                  4F12391 
       LDQ L(10)                     AND                                4F12392 
       TSX C0390,4                 * REPLACE A WITH TEN.                4F12393 
       LDQ EQUAL                     AND                                4F12394 
       TSX C0390,4                 * REPLACE FIRST L WITH =.            4F12395 
       LDQ BLANK                     AND                                4F12396 
       TSX C0390,4                 * REPLACE SECOND L WITH BLANK.       4F12397 
       CLA EIFNO                     PUT 1ST IFN OF THIS CAL IN CALLNM  4F12398 
       ARS 18                        FOR LATER TABLE ENTRY FO           4F12399 
       STA CALLNM                    FIRST / LAST NUMBERS OF CALLS.     4F12400 
       TXI ARITH,0                 * THEN EXIT TO ARITH TO PROCESS.     4F12401 
C3301  TSX SUBX00,4                * IF THERE ARE NO ARGUMENTS, THEN    4F12402 
       CLA 1G                        AFTER COMPLETING NAME WITH BLANKS, 4F12403 
       STO G                         MOVE IT INTO G, AND                4F12404 
       TSX TET00,1                 * GO ENTER NAME                      4F12405 
       PZE 9                         INTO CLOSUB TABLE.                 4F12406 
       TSX GETIFN,4                * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12408 
       PZE 1C                        WORD1--0(IFN)000                   4F12409 
       PZE L(SXD)                    WORD2--SXD000                      4F12410 
       PZE X(                        WORD3--700000                      4F12411 
       PZE L(4)                      WORD4--000004                      4F12412 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12413 
       PZE L(0)                      WORD1--000000                      4F12414 
       PZE L(TSX)                    WORD2--TSX000                      4F12415 
       PZE 1G                        WORD3--(NAME)                      4F12416 
       PZE L(4)                      WORD4--000004                      4F12417 
       TSX FLTR00,4                * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418 
       PZE L(0)                      WORD1--000000                      4F12419 
       PZE L(LXD)                    WORD2--LXD000                      4F12420 
       PZE X(                        WORD3--700000                      4F12421 
       PZE L(4)                      WORD4--000004                      4F12422 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12423 
       REM  END OF PROGRAM C3300.                                       4F12424 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425 
       REM                                                              4F12426 
       REM C3400/ CALLS=C0190,DIAG,TEST...                              4F12427 
       REM C3400 PROCESSES END STATEMENTS.                              4F12428 
C3400  LXA L(5),2                    PREPARE TO SET 5 SS SIMULATORS.    4F12429 
C3405  TSX C0190,4                 * PICKUP CONSTANT,                   4F12430 
       CAS L(2)                      WHICH SHOULD BE 0,1, OR 2.         4F12431 
       TSX DIAG,4                  * OTHERWISE, GO TO THE DIAGNOSTIC.   4F12432 
       TXI C3410,0                   SIMULATOR IS PRESET TO 2.          4F12433 
       STO ENDI1+5,2                 IF 0 OR 1, SET PROPER SIMULATOR.   4F12434 
C3410  TSX C0190,4                 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435 
       TIX C3405,2,1                 REPEAT PROCESS FOR 5 CONSTANTS.    4F12436 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12437 
       TSX TESTD0,4                * WHICH SHOULD BE AN ENDMK.          4F12438 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12439 
       REM  END OF PROGRAM C3400.                                       4F12440 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441 
       REM                                                              4F12442 
       REM STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=                    4F12443 
       REM                                                              4F12444 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445 
       REM                                                              4F12446 
       REM RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.                 4F12447 
       REM RDC PROCESSES READ STATEMENTS.                               4F12448 
RDC    CLA A81                       SET THE ADDRESS FIELD OF           4F12449 
       STA ENT                       ENT (NTR000) TO 81.                4F12450 
       TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12451 
       CLA CSH                       PICKUP (CSH) TO                    4F12452 
       REM TSC= ENTRY POINT USED BY RIT.                                4F12453 
TSC    STO TSA                       SET TSA.                           4F12454 
       CAL RTN                       MOVE (RTN)                         4F12455 
       SLW END                       INTO END.                          4F12456 
       CLA DBC                       PICKUP (DBC) TO                    4F12457 
       REM TTC= ENTRY POINT USED BY RDP.                                4F12458 
TTC    STO TTA                       SET TTA.                           4F12459 
       TSX BEG,4                   * CONVERT CONSTANT FORMULA NUMBER.   4F12460 
       TSX DIAG,4                  * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461 
       TNZ 4,4                       GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462 
       TSX DIAG,4                  * NO FORMAT NUMBER GIVEN.            4F12463 
       STA SET                       MOVE BINARY FORMAT NUMBER INTO SET.4F12464 
       CAL NTR                       MOVE NTR000                        4F12465 
       SLW OP                        INTO OP.                           4F12466 
       CAL TXLOP                     SET OP-SWITCHES.                   4F12467 
       STP ETMSW                     ETMSW AND LTMSW,                   4F12468 
       STP LTMSW                     TO NO TRANSFER CASE.               4F12469 
       TSX ETMSW,4                 * GO COMPILE ETM.                    4F12470 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12471 
       PZE L(0)                      WORD1--000000                      4F12472 
       PZE CAL                       WORD2--CAL000                      4F12473 
       PZE TTA                       WORD3--(DBC) OR (BDC)              4F12474 
       PZE L(0)                      WORD4--000000                      4F12475 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12476 
       PZE L(0)                      WORD1--000000                      4F12477 
       PZE SLW                       WORD2--SLW000                      4F12478 
       PZE L(0)                      WORD3--000000                      4F12479 
       PZE D1                        WORD4--001000                      4F12480 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12481 
       PZE L(0)                      WORD1--000000                      4F12482 
       PZE CAL                       WORD2--CAL000                      4F12483 
       PZE TSA                       WORD3--(CSH) OR (TSH)              4F12484 
       PZE L(0)                      WORD4--000000                      4F12485 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12486 
       PZE TL                        WORD1--0(IFN)0(248)                4F12487 
       PZE ENT                       WORD2--NTR0(81, OR UNIT, OR 00)    4F12488 
       PZE SET                       WORD3--800(FORMAT NUMBER)          4F12489 
       PZE L(0)                      WORD4--000000                      4F12490 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12491 
       REM BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.       4F12492 
BXT    TXI RSC,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493 
       REM  END OF PROGRAM RDC.                                         4F12494 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495 
       REM                                                              4F12496 
       REM RIT/  CALLS=INPUT,BEG,VRD. USES=RDC.                         4F12497 
       REM RIT PROCESSES READ INPUT TAPE STATEMENTS.                    4F12498 
RIT    TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12499 
       TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500 
       TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12501 
       STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12502 
       CLA TSH                       PICKUP (TSH) TO SET TSA, AND       4F12503 
       TXI TSC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12504 
       REM END OF PROGRAM RIT.                                          4F12505 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506 
       REM                                                              4F12507 
       REM RDP/ CALLS=OUTPUT. USES=RDC.                                 4F12508 
       REM RDP PROCESSES PRINT STATEMENTS.                              4F12509 
RDP    PXD ,0                        RESET ENT                          4F12510 
       STA ENT                       TO NTR000.                         4F12511 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12512 
       CLA SPH                       PICKUP (SPH), AND                  4F12513 
       REM TSD = ENTRY POINT USED BY WOT, PDC.                          4F12514 
TSD    STO TSA                       SET TSA.                           4F12515 
       CAL FIL                       MOVE (FIL)                         4F12516 
       SLW END                       INTO END.                          4F12517 
       CLA BDC                       PICKUP (BDC) TO SET TTA, AND       4F12518 
       TXI TTC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12519 
       REM END OF PROGRAM RDP,                                          4F12520 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521 
       REM                                                              4F12522 
       REM WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.                         4F12523 
       REM PROCESSES WRITE OUTPUT TAPE STATEMENTS.                      4F12524 
WOT    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12525 
       TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 
       TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12527 
       STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12528 
       CLA STH                       PICKUP (STH) TO SET TSA, AND       4F12529 
       TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12530 
       REM  END OF PROGRAM WOT.                                         4F12531 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532 
       REM                                                              4F12533 
       REM PDC/ CALLS=OUTPUT. USES=RDP.                                 4F12534 
       REM PROCESSES PUNCH STATEMENTS.                                  4F12535 
PDC    PXD ,0                        RESET ENT                          4F12536 
       STA ENT                       TO NTR000.                         4F12537 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12538 
       CLA SCH                       PICKUP (SCH) TO SET TSA. AND       4F12539 
       TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12540 
       REM END OF PROGRAM PDC.                                          4F12541 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542 
       REM                                                              4F12543 
       REM WBT/ CALLS=OUTPUT,BRW,CIT,                                   4F12544 
       REM WBT PROCESSES WRITE TAPE STATEMENTS,                         4F12545 
WBT    CAL WTB                       MOVE WTB000                        4F12546 
       SLW OP                        INTO OP.                           4F12547 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT  (LEV),  4F12548 
       CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12549 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12550 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12551 
       PZE L(0)                      WORD1-000000                       4F12552 
       PZE CPY                       WORD2-CPY000                       4F12553 
       PZE ZER                       WORD3-600000                       4F12554 
       PZE D2                        WORD4-002000                       4F12555 
       TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556 
       REM  END OF PROGRAM WBT,                                         4F12557 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558 
       REM                                                              4F12559 
       REM RBT/ CALLS=INPUT,BRW,CIT,                                    4F12560 
       REM RBT PROCESSES READ TAPE STATEMENTS.                          4F12561 
RBT    CAL RTB                       MOVE RTB000                        4F12562 
       SLW OP                        INT OP.                            4F12563 
       TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV),   4F12564 
       CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12565 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12566 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12567 
       PZE L(0)                      WORD1-000000                       4F12568 
       PZE CPY                       WORD2-CPY000                       4F12569 
       PZE DMP                       WORD3-100000                       4F12570 
       PZE L(0)                      WORD4-000000                       4F12571 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12572 
       PZE L(0)                      WORD1-000000                       4F12573 
       PZE XIT                       WORD2-XIT000                       4F12574 
       PZE 15P                       WORD3-*00000                       4F12575 
       PZE D3CN                      WORD4-003000                       4F12576 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12577 
       PZE L(0)                      WORD1-000000                       4F12578 
       PZE HPR                       WORD2-HPR000                       4F12579 
       PZE L(0)                      WORD3-000000                       4F12580 
       PZE L(0)                      WORD4-000000                       4F12581 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12582 
       PZE L(0)                      WORD1-000000                       4F12583 
       PZE XIT                       WORD2-XIT000                       4F12584 
       PZE TL                        WORD3-0(IFN)0(248)                 4F12585 
       PZE L(0)                      WORD4-000000                       4F12586 
       TXI BXT,0                   * EXIT  TO SCAN LIST,  IF THERE IS 0N4F12587 
       REM END OF PROGRAM RBT.                                          4F12588 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589 
       REM                                                              4F12590 
       REM WRD/ CALLS=OUTPUT,BRW,CIT,                                   4F12591 
       REM WRD PROCESSES WRITE DRUM STATEMENTS.                         4F12592 
WRD    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV),   4F12593 
       CAL WDR                       PICKUP  WDR000, AND                4F12594 
       REM XDR= ENTRY POINT USED BY RDD.                                4F12595 
 XDR   SLW OP                        SET OP.                            4F12596 
       CAL BDA                       PICKUP BINARY DRUM ADDRESS, AND    4F12597 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12598 
       CAL PXD                       MOVE PXD000                        4F12599 
       SLW OP                        INTO OP.                           4F12600 
       PXD ,0                        CLEAR THE AC AND                   4F12601 
       TSX BRW,4                   * COMPILE INSTRS TO SET DRUM LOC.    4F12602 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12603 
       PZE L(0)                      WORD1--000000                      4F12604 
       PZE LDA                       WORD2--LDA000                      4F12605 
       PZE TL                        WORD3--0(IFN)0(248)                4F12606 
       PZE L(0)                      WORD4--000000                      4F12607 
       TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608 
       REM  END OF PROGRAM WRD.                                         4F12609 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610 
       REM                                                              4F12611 
       REM RDD/  CALLS=INPUT. USES=WRD,                                 4F12612 
       REM RDD PROCESSES    READ DRUM  STATEMENTS.                      4F12613 
RDD    TSX INPUT,2                * GO COMPILE CAL *, AND XIT (LEV),    4F12614 
       CAL RDR                      PICKUP RDR000 TO SET OP, AND        4F12615 
       TXI XDR,0                  * CONTINUE BY USING PROGRAM WRD.      4F12616 
       REM  END OF PROGRAM RDD.                                         4F12617 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618 
       REM                                                              4F12619 
       REM EFT/ CALLS=GIF,BEG,VRAX,CIT,                                 4F12620 
       REM EFT PROCESSES WRITE END OF FILE STATEMENTS.                  4F12621 
EFT    CAL WEF                      PICKUP  WEF000,  AND                4F12622 
       REM TPO=  ENTRY POINT USED BY RWN, BSP,                          4F12623 
TPO    SLW OP                       SET OP.                             4F12624 
       CAL BTA                      MOVE BINARY TAPE ADDRESS            4F12625 
       SLW CON                      INTO CON.                           4F12626 
       TSX GIF,4                  * GET IFN INTO SL AND TL,             4F12627 
       CLA L(SL)                    RESET TPOA ADDRESS                  4F12628 
       STA TPOA                     TO SL.                              4F12629 
       TSX BEG,4                  * SCAN AND TEST TYPE OF UNIT SYMBOL.  4F12630 
       TSX VRA,4                  * IF VARIABLE, ENTER FORVAR AND CITS. 4F12631 
       ALS 18                       IF CONSTANT, ADJUST AND             4F12632 
       STO RA                       PLACE IN THE DECREMENT OF RA.       4F12633 
       TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12634 
TPOA   PZE SL                       WORD1--0(IFN)000 OR 0(IFN)0(248)    4F12635 
       PZE OP                       WORD2--(WEF,REW,OR BSP)000          4F12636 
       PZE L(0)                     WORD3--000000                       4F12637 
       PZE RA                       WORD4--0(CON)000 OR 000000          4F12638 
       TXI FINI,0                 * GO RESET BXT, AND TEST FOR EFN.     4F12639 
       REM  END OF PROGRAM EFT.                                         4F12640 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641 
       REM                                                              4F12642 
       REM RWN/ USES=EFT,                                               4F12643 
       REM RWN PROCESSES   REWIND  TAPE STATEMENTS.                     4F12644 
RWN    CAL REW                      PICKUP REW000 TO SET OP, AND        4F12645 
       TXI TPO,0                  * CONTINUE BY USING PROGRAM EFT.      4F12646 
       REM  END OF PROGRAM RWN.                                         4F12647 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648 
       REM                                                              4F12649 
       REM BSP/ USES=EFT,                                               4F12650 
       REM BSP PROCESSES BACKSPACE TAPE STATEMENTS.                     4F12651 
BSP    CAL BST                      PICKUP BST000 TO SET OP, AND        4F12652 
       TXI TPO,0                  * CONTINUE BY USING PROGRAM EFT,      4F12653 
       REM  END OF PROGRAM BSP.                                         4F12654 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655 
       REM FOR/ CALLS=TET00,                                            4F12657 
       REM FOR PROCESSES FORMAT STATEMENTS.                             4F12658 
FOR    CAL EIFNO                    MOVE EXTERNAL FORMULA NUMBER        4F12659 
       STA SET                      INTO THE ADDRESS OF SET,            4F12660 
       CAL SET                      AND MOVE SET (8000(EFN))            4F12661 
       SLW G                        INTO G.                             4F12662 
       LXD CHCTR,1                  SET XR1 = CHARACTER COUNT.          4F12663 
       LXD FWA,2                    SET XR2 = -(CURRENT F-WORD ADDR),   4F12664 
       TXL NFFW,1,1                 UNLESS POSITIONED AT THE            4F12665 
       TXI *+1,1,-1                 BEGINNING OF A FORMAT WORD,         4F12666 
       LDQ RESIDU                   THEN PICKUP AND                     4F12667 
       CAL BLANKS                   PRECEED  WITH BLANKS ANY            4F12668 
NFC    LGL 6                        CHARACTERS                          4F12669 
       TIX NFC,1,1                  REMAINING IN THE MO, AND            4F12670 
NFW    SLW G+1                      MOVE FORMAT WORDS INTO G+1.         4F12671 
       TSX TET00,1                * GO ENTER THEN IN                    4F12672 
       PZE 10                       THE FORMAT TABLE.                   4F12673 
       CAL G+1                      WHEN THE                            4F12674 
       ANA ENDMK                    END OF STATEMENT MARK               4F12675 
       SUB ENDMK                    HAS BEEN ENTERED.                   4F12676 
       TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F12677 
       STZ G                        PRECEED ALL BUT 1ST ENTRY WITH 0.   4F12678 
NFFW   CAL 0,2                      PICKUP NEXT FORMAT WORD,            4F12679 
       TXI NFW,2,-1                 UPDATE SCAN INDEX, AND CONTINUE.    4F12680 
       REM  END OF PROGRAM FOR.                                         4F12681 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682 
       REM                                                              4F12683 
       REM RSC/ CALLS=C0190,DIAG,                                       4F12684 
       REM RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS    4F12685 
       REM FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN  4F12686 
       REM COMMON.  THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF     4F12687 
       REM CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.  4F12688 
       REM RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.  4F12689 
RSC    CAL FLINE                    RESET TEMPORARY                     4F12690 
       STA TLINE                    TABLE LINE COUNTER.                 4F12691 
       STZ DOLEV                    CLEAR DO LEVEL COUNTER.             4F12692 
       STZ GTAG                     CLEAR GENERALIZED TAG.              4F12693 
       REM LSC = ENTRY POINT FROM SPC.                                  4F12694 
LSC    CAL LISTR                    SET CONTROL TRANSFER                4F12695 
       REM CXS = ENTRY POINT FROM EOS, BEG.                             4F12696 
CXS    STA CEXIT                    FOR LIST SCAN.                      4F12697 
       REM NXS = ENTRY POINT FROM LPR, SPC, CMA.                        4F12698 
NXS    LXA L(6),2                   RESET SYMBOL CHARACTER COUNT        4F12699 
       SXD CSJ,2                    AND SHIFT COUNT.                    4F12700 
       STZ SYM                      CLEAR SYMBOL WORKING STORAGE.       4F12701 
       REM NXC = ENTRY POINT FROM CMA.                                  4F12702 
NXC    TSX C0190,4                * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703 
CLOAD  LXA CTESTX,4                 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704 
CCOMP  CAS CTEST,4                  COMPARE CHARACTER WITH CONSTANTS.   4F12705 
       TXL BUILD,0                  IF EQUALITY IS FOUND ON SOME        4F12706 
CEXIT  TRA **,4                   * CONTROL CHAR, EXIT  TO  TRA LIST.   4F12707 
       TIX CCOMP,4,1                CONTINUE THROUGH PUNCTUATION.       4F12708 
 BUILD LXD CSJ,4                    BUILD A                             4F12709 
       STO CHR,4                    SYMBOL                              4F12710 
       TNX LCT,4,1                  COMPOSED OF                         4F12711 
       ALS 36,2                     SIX OR LESS CHARACTERS.             4F12712 
 CSZ   SXD CSJ,4                    SAVE SYMBOL CHARACTER COUNT,        4F12713 
       ORS SYM                      ALSO, SAVE EACH                     4F12714 
       TXI NXC,2,6                  CHARACTER SEPARATELY.               4F12715 
LCT    TXL LCS,2,36                 GO TO DIAGNOSTIC IF                 4F12716 
       TSX DIAG,4                 * MORE THAN 6 CHARACTERS IN SYMBOL,   4F12717 
LCS    TXI CSZ,4,-1                 ADJUST COUNT, AND CONTINUE SCAN.    4F12718 
       REM END OF PROGRAM RSC.                                          4F12719 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720 
       REM                                                              4F12721 
       REM LISTR/ CONTROL TRANSFERS FOR LIST SCAN=                      4F12722 
       TXI EMK,0                   * ENDMARK                            4F12723 
       TXI LPR,0                   * (                                  4F12724 
       TXI CMA,0                   * ,                                  4F12725 
       TXI RPR,0                   * )                                  4F12726 
       TXI EQS,0                   * *                                  4F12727 
       TXI ILC,0                     - (ILLEGAL CHARACTER IN I/O LIST). 4F12728 
ILC    TSX DIAG,4                  * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729 
       TXI ILC,0                     . (ILLEGAL CHARACTER IN I/O LIST). 4F12730 
       TXI ILC,0                     + (ILLEGAL CHARACTER IN I/O LIST). 4F12731 
       TXI ILC,0                     * (ILLEGAL CHARACTER IN I/O LIST). 4F12732 
 LISTR PZE LISTR                     INDEXING ADDRESS  FOR ABOVE LIST.  4F12733 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12734 
       REM                                                              4F12735 
       REM LPR/  CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736 
       REM BSS.  USES=CMA,RSC,                                          4F12737 
       REM LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.     4F12738 
LPR    CAL SYM                      TEST FOR SUBSCRIPT OR DO NEST.      4F12739 
       TZE LPRD                     IF SUBSCRIPT, THEN                  4F12740 
       TSX TYP,4                  * IF VARIABLE SYMBOL CONTAINS LESS    4F12741 
       TRA 3,4                      THAN 6 CHARACTERS, ADD A BLANK,     4F12742 
       TXI ERRC,0                 * ON CONSTANT RETURN, GO TO DIAG,     4F12743 
       CAL SYM                      MOVE SYMBOL                         4F12744 
       SLW E+2                      INTO E+2, AND                       4F12745 
       SLW SA                       COMPILE SYMBOLIC ADDRESS,           4F12746 
       TSX SS000,4                * GO SCAN AND PROCESS SUBSCRIPT.      4F12747 
       TSX RA000,4                * THEN GO COMPUTE RELATIVE ADDRESS.   4F12748 
       TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER    4F12749 
       CAS CLOS                                                         4F12750 
       TRA *+5                                                          4F12751 
       TRA *+2                                                          4F12752 
       TRA *+3                                                          4F12753 
       STZ DOLEV                                                        4F12754 
       TSX C0190,4                                                      4F12755 
       TSX TESTA0,4               * FOR EITHER COMMA OR ENDMARK.        4F12756 
       TXI CMA7,0                 * AND CONTINUE BY USING PROGRAM CMA.  4F12757 
LPRD   CAL DOLEV                    IF  THE BEGINNING OF A DO NEST,     4F12758 
       TZE LPR3                     AND DOLEV IS NOT ZERO, THEN         4F12759 
       LXA DOLEV,4                  TEST FOR NULL FORMULA.              4F12760 
       TXL LPRE,4,0                 IF NULL, GO ESTABLISH POSITION.     4F12761 
       TSX LTMSW,4                * OTHERWISE, COMPILE LTM, AND         4F12762 
       TXI LPR4,0                   AND GO JUMP IFN.                    4F12763 
 LPRE  CAL SL                       IF C(SL) DO NOT = 0,                4F12764 
       TZE *+2                      THEN                                4F12765 
       TSX BSS,2                  * GO COMPILE= IFN BSS 0,              4F12766 
LPR4   TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12767 
LPR3   LXD DOLEV,4                  INCREASE THE C(DOLEV D)             4F12768 
       TXI LPR1,4,1                 BY 1, AND                           4F12769 
LPR1   PXD ,4                       SET THE C(DOLEV A)                  4F12770 
       SLW DOLEV                    TO ZERO,                            4F12771 
       CAL TLINE                    NOTE AT                             4F12772 
       STA LPR2                     THIS LEVEL                          4F12773 
       STO DOLEV,4                  THE LOCATION IN TLDO                4F12774 
       ADD L(5)                     OF THIS DO FORMULA                  4F12775 
       STA TLINE                    AND INCREASE LINE IN TLINE.         4F12776 
       CLS TL                       MOVE -(0(IFN)0(248)) INTO THE       4F12777 
LPR2   STO **                       LOCATION WORD OF CURRENT TEMP DO.   4F12778 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12779 
       LXD DOLEV,4                  IF 3 OR FEWER LEVELS IN LIST DO,    4F12780 
       TXL NXS,4,3                * RETURN TO LIST SCAN.                4F12781 
       TSX DIAG,4                 * OTHERWISE, GO TO DIAGNOSTIC         4F12782 
       REM END OF PROGRAM LPR.                                          4F12783 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12784 
       REM                                                              4F12785 
       REM EQS/ CALLS=DIAG, USES=RSC                                    4F12786 
       REM EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN,        4F12787 
EQS    LXD DOLEV,4                  TEST THE LEGALITY OF EQUAL SIGN,    4F12788 
       TXH EQS2,4,0                 AND GO TO DIAG ON THE ATTEMPT TO    4F12789 
       TSX DIAG,4                 * SPECIFY SUBSCRIPT RANGE WITHOUT (.  4F12790 
EQS2   CAL DOLEV,4                  INITIALIZE SPECIFICATION            4F12791 
       STA SPC2                     OF GENERATED DO FORMULA             4F12792 
       STA SPC5                     AT CURRENT LEVEL.                   4F12793 
       ADD L(1)                     PREPARE TO ENTER FORMULA NUMBERS    4F12794 
       STA EQS1                     IN LOCATION  WORD*SUBSCRIPT IN      4F12795 
       ADD L(4)                     SYMBOL WORD, AND SUBSCRIPT SPECS    4F12796 
       STA SPC3                     IN TEMPDO ENTRY.                    4F12797 
       LXA L(3),4                   PREPARE TO COUNT THE                4F12798 
       SXD NSJ,4                    NUMBER OF SPECIFICATIONS.           4F12799 
       CAL SYM                      OBTAIN SUBSCRIPT                    4F12800 
       TXH EQS1,2,36                FOR THIS DO, AND                    4F12801 
       CAL BLANK                    STORE IN PROPER                     4F12802 
       ALS 36,2                     LINE OF TEMPORARY                   4F12803 
       ORA SYM                      LIST DO TABLE.                      4F12804 
EQS1   SLW **                       (SUBSCRIPT SYMBOL WORD)             4F12805 
       CAL SPCTR                    SET CONTROL LOOP FOR                4F12806 
NSJ    TXI CXS,0,**               * EXIT TO SPECIFICATION               4F12807 
       REM END OF PROGRAM EQS.                                          4F12608 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809 
       REM                                                              4F12810 
       REM SPCTR/ CONTROL  TRANSFERS FOR SPECIFICATION SCAN=            4F12811 
       TSX DIAG,4                * E (ILLEGAL IN CONTROL FOR LIST DO).  4F12812 
ICC    TSX DIAG,4                * ( (ILLEGAL IN CONTROL FOR LIST DO).  4F12813 
       TXI SPC,0                 * ,                                    4F12814 
       TXI SPCX,0                * )                                    4F12815 
       TXI ICC,0                  = (ILLEGAL IN CONTROL FOR LIST DO).   4F12816 
       TXI ICC,0                  - (ILLEGAL IN CONTROL FOR LIST DO).   4F12817 
       TXI ICC,0                  / (ILLEGAL IN CONTROL FOR LIST DO).   4F12818 
       TXI ICC,0                  . (ILLEGAL IN CONTROL FOR LIST DO).   4F12819 
       TXI ICC,0                  + (ILLEGAL IN CONTROL FOR LIST DO).   4F12820 
       TXI ICC,0                  * (ILLEGAL IN CONTROL FOR LIST DO).   4F12821 
SPCTR  PZE SPCTR                    INDEXING ADDRESS FOR ABOVE LIST.    4F12822 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823 
       REM                                                              4F12824 
       REM SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C                     4F12825 
       REM SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826 
SPCX   CAL SPC1                     PREPARE FOR END OF SPECIFICATION.   4F12827 
       STO SPC1                     SET SPC1 OP-SWITCH TO NOP CASE.     4F12828 
       REM SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN.   4F12829 
 SPC   TSX TYP,4                  * GO TEST TYPE OF SUBSCRIPT SPEC.     4F12830 
       TXI SPCS,0                   IF FIXED POINT CONSTANT,            4F12831 
       LXD NSJ,4                    SET C(XR4) = SPECIFICATION COUNT,   4F12832 
       TXI SPC3,0                   AND GO ENTER CONSTANT IN TABLE.     4F12833 
SPCS   LXD NSJ,4                    OTHERWISE, SET SPEC COUNT AND       4F12834 
       CAL TAG4                     IF VARIABLE, NOTE BY                4F12835 
       ARS 3,4                      PLACING BIT IN TAG FIELD            4F12636 
SPC2   ORS **                       OF TABLE ENTRY.                     4F12837 
       CAL SYM                      PICKUP VARIABLE SYMBOL AND          4F12838 
SPC3   SLW **,4                     ENTER N SUB J IN TABLE.             4F12839 
       TNX SPC4,4,1                 REDUCE J.                           4F12840 
       SXD NSJ,4                    SAVE SPEC COUNT, AND                4F12841 
SPC1   TXL NXS,0                  * EXIT TO SCAN, IF SWITCH IS TXL.     4F12842 
       CAL L(1)                     SET N SUB 3 = 1 IF NOT              4F12843 
       TXI SPC3,0                   OTHERWISE SPECIFIED.                4F12844 
SPC4   CLS SPC1                     RESTORE SPC1 EXIT.                  4F12845 
       STO SPC1                     (3 SPECS HAVE BEEN TREATED)         4F12846 
       CAL EIFNO                    ALSO RESTORE INTERNAL FORMULA NO.   4F12847 
       ARS 18                       (PUT BETA IN TEMPDO TABLE)          4F12848 
       REM SPC5 = ENTRY POINT USED BY RPR.                              4F12849 
SPC5   STA **                       SET BETA EQUAL TO IFNO.             4F12850 
       LXA DOLEV,4                  EXAMINE DOLEV ADDRESS FOR ZERO TO   4F12851 
       TXL SPCR,4,0                 TEST NEED FOR LTM, JLF AFTER ).     4F12352 
       TSX LTMSW,4                * GO COMPILE LTM.                     4F12853 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12654 
SPCR   LXD DOLEV,4                  DECREASE DOLEV D                    4F12855 
       TXI SPC6,4,-1                BY 1, AND INDICATE A TREATED LEVEL. 4F12656 
SPC6   PXD ,4                       IF NOT ZERO,                        4F12857 
       SLW DOLEV                    THEN ALL LEVELS ARE NOT TREATED.    4F12858 
       TXH LSC,4,0                * RETURN TO SCAN NEXT LEVEL.          4F12659 
       CLA TLINE                    IF LEVEL IS ZERO                    4F12860 
       STA SPC7                     ENTER GENERATED                     4F12861 
FLINE  PAX TLDOS,2                  DO FORMULAS IN TDO BY               4F12862 
       TXI *+1,2,-TLDOS             SUBROUTINE TET.                     4F12663 
SPC9   LXA L(5),4                   (MOVE EACH                          4F12864 
SPC7   CLA **,2                     TEMPDO TABLE ENTRY                  4F12865 
       STO 1C+5,4                   INTO 1C...1C+4,                     4F12866 
       TNX SPC8,2,1                 AND THEN                            4F12867 
       TIX SPC7,4,1                 WHEN DONE,                          4F12868 
SPC8   LXA 1C,4                     TEST TO SKIP                        4F12869 
       TXL SPCT,4,0                 NULL DO,                            4F12870 
       TSX TET00,1                * GO MAKE AN ENTRY                    4F12871 
       PZE 1                        IN TDO TABLE.)AND WHEN THE WHOLE    4F12872 
SPCT   TXH SPC9,2,1                 DO NEST HAS BEEN ENTERED,           4F12873 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12874 
RESET  TXI RSC,0                  * THEN EXIT TO CONTINUE LIST SCAN.    4F12875 
       REM END OF PROGRAM SPC,                                          4F12876 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12877 
       REM                                                              4F12878 
       REM RPR/ CALLS=DIAG,USES=CMA,SPC                                 4F12879 
       REM RPR = ENTRY  POINT WHEN RPAREN IS MET IN LIST SCAN.          4F12880 
RPR    LXD DOLEV,4                  TEST LEGALITY OF ),                 4F12881 
       TXH RPS,4,0                  IF THERE ARE TOO MANY I IN LIST,    4F12882 
       TSX DIAG,4                 * GO TO THE DIAGNOSTIC                4F12883 
RPS    CAL DOLEV,4                  NULLIFY DO AT CURRENT LEVEL.        4F12884 
       STA SPC5                     SET SPC5 ADDRESS,                   4F12885 
       CLA RPA                      SET CMA3 SWITCH TO RETURN TO        4F12886 
       STA CMA3                     RPT, AND IF ANY CHARACTERS          4F12887 
       TXH CMA1,2,6               * WERE COLLECTED, EXIT TO CMA.        4F12888 
       REM RPT = REENTRY POINT USED BY CMA.                             4F12889 
RPT    CLA SPC1                     RESET CMA3 SWITCH                   4F12890 
       STA CMA3                     TO NXS,                             4F12891 
RPA    PXD RPT,0                    CLEAR THE AC AND                    4F12892 
       TXI SPC5,0                 * CONTINUE BY USING PROGRAM SPC.      4F12893 
       REM END OF PROGRAM RPR.                                          4F12894 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12895 
       REM                                                              4F12896 
       REM CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897 
       REM LTMSW. USES=RSC                                              4F12898 
       REM CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.            4F12899 
CMA    TXL NXC,2,6                * IF NOTHING COLLECTED, RETURN -SCAN. 4F12900 
       REM CMA1  = ENTRY POINT USED BY EMK.                             4F12901 
CMA1   TSX TYP,4                  * TYPE TEST FOR NON-SUBSCR. VAR.      4F12902 
       TRA 3,4                      ILLEGAL USE OF CONSTANT IN LIST,    4F12903 
ERRC   TSX DIAG,4                 * GO TO THE DIAGNOSTIC                4F12904 
       CAL SYM                      MOVE VARIABLE SYMBOL                4F12905 
CMA4   SLW SA                       INTO SA. AND                        4F12906 
       REM CMA7  = ENTRY POINT USED BY LPR.                             4F12907 
CMA7   LXA DOLEV,4                  IF DOLEV ADDRESS = 0, AND  IF       4F12908 
       TXH CMA6,4,0                 ETMSW IS SET TO TXH (NOP CASE),     4F12909 
       TSX ETMSW,4                * GO COMPILE ETM, AND CLEAR SL.       4F12910 
CMA6   CAL DOLEV                    IN ANY CASE,                        4F12911 
       ADD L(1)                     UPDATE DOLEV ADDRESS                4F12912 
       STO DOLEV                    BY  1, AND THEN                     4F12913 
       CLA GTAG                     SET GENERALIZED TAG*                4F12914 
       STO RA                       (RELATIVE ADDRESS)                  4F12915 
       TZE DIMSR                    IF THIS VARIABLE HAS A SUBSCRIPT,   4F12916 
       CLA EPS                      AND IF SUBSCRIPT                    4F12917 
       TNZ CMA5                     IS A CONSTANT,                      4F12918 
       STA RA                       THEN CLEAR THE ADDRESS OF RA.       4F12919 
       TXI CMA5,0                   THEN GO MAKE CIT ENTRY.             4F12920 
DIMSR  CAL SA                       IF THIS VARIABLE                    4F12921 
       SLW E+2                      DOES NOT HAVE A SUBSCRIPT, THEN     4F12922 
RD1    TSX DIM1SR,4               * GO SEARCH DIM1 TABLE,               4F12923 
       TXI RD2,0                    IF FOUND, THEN                      4F12924 
CS1    CLA D12                      PICKUP DIMENSION 1                  4F12925 
       TXI DVS,0                    AND GO TEST SIZE. OTHERWISE,        4F12926 
RD2    TSX DIM2SR,4               * GO SEARCH DIM2 TABLE.               4F12927 
       TXI RD3,0                    AND IF FOUND,                       4F12928 
CS2    LDQ D12                      PICKUP                              4F12929 
       STZ N2                       DIMENSION 1 AND                     4F12930 
       SLQ N2                       DIMENSION 2                         4F12931 
       LGL 18                       AND MULTIPLY                        4F12932 
       MPY N2                       THEM TOGETHER.                      4F12933 
       ARS 1                        THEN                                4F12934 
       TXI DVS,0                    GO TEST THE PRODUCT. OTHERWISE,     4F12935 
RD3    TSX DIM3SR,4               * GO SEARCH DIM3 TABLE.               4F12936 
       TXI NODIM,0                  AND IF FOUND,                       4F12937 
CS3    LDQ D12                      PICKUP                              4F12938 
       STZ N2                       DIMENSION 1,                        4F12939 
       SLQ N2                       DIMENSION 2,                        4F12940 
       LGL 18                       AND DIMENSION 3.                    4F12941 
       MPY N2                       MULTIPLY                            4F12942 
       LRS 18                       THEM TOGETHER,                      4F12943 
       MPY D3                       AND IF                              4F12944 
       LLS 17                       THEIR                               4F12945 
DVS    SUB L(1)                     PRODUCT IS                          4F12946 
       TZE NODIM                    GREATER THAN 1, THEN                4F12947 
       ALS 18                       PLACE DIMENSION-1 IN THE            4F12948 
       STO G                        DECREMENT OF G, AND                 4F12949 
       TSX FXCNIX,4               * GO ENTER IN FIXCON, AND GET TAG.    4F12950 
       ALS 18                       ADJUST, AND STORE TAG IN THE        4F12951 
       STD RAT                      DECREMENT OF RAT. THEN              4F12952 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12953 
       TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12954 
       PZE SL                       WORD1--0(IFN)000                    4F12955 
       PZE LXD                      WORD2--LXD000                       4F12956 
       PZE 2P                       WORD3--200000                       4F12957 
       PZE RAT                      WORD4--0(FIXCON TAG)008             4F12958 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12959 
       TSX ETMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12960 
       TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12961 
       PZE SL                       WORD1--0(IFN)000 OR 000000          4F12962 
       PZE OP                       WORD2--(OPERATION CODE)             4F12963 
       PZE SA                       WORD3--(SYMBOLIC ADDRESS)           4F12964 
       PZE ST                       WORD4--000008                       4F12965 
       STZ SL                       CLEAR SL, AND                       4F12966 
       TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12967 
       TSX GIF,4                  * GET IFN IN SL AND TL.               4F12968 
       TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12969 
       PZE L(0)                     WORD1--000000                       4F12970 
       PZE TIX                      WORD2--TIX001                       4F12971 
       PZE SL                       WORD3--0(IFN)000                    4F12972 
       PZE ST                       WORD4--000008                       4F12973 
       STZ SL                       CLEAR SL, AND                       4F12974 
       TSX ETMSW,4                * IF ETMSW = NOP, COMPILE ETM, SL=0.  4F12975 
       TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12976 
       PZE L(0)                     WORD1--000000                       4F12977 
       PZE DED                      WORD2--DED000                       4F12978 
       PZE L(0)                     WORD3--000000                       4F12979 
       PZE ST                       WORD4--000008                       4F12980 
       TXI CMA5,0                   IF THE PRODUCT OF DIMENSIONS IS     4F12981 
 NODIM TSX IFFIX,1                * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982 
       TXI CMA5,0                   AND IF FIXED POINT,                 4F12983 
       TSX TET00,1                * GO ENTER VARIABLE IN                4F12984 
 INOUT PZE **                       EITHER FORVAL OR FORVAR TABLE.      4F12985 
CMA5   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12986 
       PZE SL                       WORD1--0(IFN)000 OR 000000          4F12987 
       PZE OP                       WORD2--NTR000 OR CPY000             4F12988 
       PZE SA                       WORD3--(SYMBOL)                     4F12989 
       PZE RA                       WORD4--(RELATIVE ADDRESS)           4F12990 
       STZ SL                       CLEAR SL, AND                       4F12991 
       STZ GTAG                     CLEAR GTAG. THEN TAKE EXIT          4F12992 
CMA3   TXI NXS,0                  * SWITCH TO RPT OR NXS,               4F12993 
       REM END OF PROGRAM CMA.                                          4F12994 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12995 
       REM                                                              4F12996 
       REM EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA,           4F12997 
       REM EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.       4F12998 
EMK    TXH CMA1,2,6               * IF NO CHARACTERS REMAIN, THEN       4F12999 
       LXD DOLEV,4                  CHECK THE NUMBER OF PARENTHESES.    4F13000 
       TXL FIN,4,0                  IF THERE ARE TOO MANY LPARENS,      4F13001 
       TSX DIAG,4                 * GO TO THE DIAGNOSTIC OTHERWISE,     4F13002 
FIN    TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F13003 
       TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F13004 
       REM LAST = ENTRY POINT SET BY BXT SWITCH.                        4F13005 
LAST   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F13006 
       PZE SL                       WORD1--0(IFN)000                    4F13007 
       PZE CAL                      WORD2--CAL000                       4F13008 
       PZE 15P                      WORD3--*00000                       4F13009 
       PZE L(0)                     WORD4--000000                       4F13010 
       TSX LIB,4                  * MAKE CLOSUB ENTRY, AND COMPILE=     4F13011 
       PZE L(0)                     WORD1--000000                       4F13012 
       PZE XIT                      WORD2--XIT000                       4F13013 
       PZE END                      WORD3--(RTN) OR (FIL)               4F13014 
       PZE L(0)                     WORD4--000000                       4F13015 
       REM FINI = ENTRY POINT USED BY EFT.                              4F13016 
FINI   CLA RESET                    RESET BXT SWITCH                    4F13017 
       STA BXT                      TO RSC.                             4F13018 
       CLA F-1                      TEST FOR AN EXTERNAL                4F13019 
       SUB 5BLANS                   STATEMENT NUMBER, AND IF NONE,      4F13020 
       TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F13021 
       CAL MINUS0                   OTHERWISE, SET THE SIGN             4F13022 
       ORS EIFNO                    OF EIFNO TO MINUS, AND              4F13023 
       TSX TET00,1                * GO ENTER -(EIFNO)                   4F13024 
       PZE 0                        IN THE TEIFNO TABLE.                4F13025 
       CAL EIFNO                    THEN RESTORE                        4F13026 
       STO EIFNO                    EIFNO, AND                          4F13027 
       TXI CA010,0                * EXIT TO PROCESS NEXT STATEMENT.     4F13028 
       REM END OF PROGRAM EMK.                                          4F13029 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030 
       REM                                                              4F13031 
       REM STATEA/ 4-SUBROUTINES USED BY STATE A=                       4F13032 
       REM                                                                      
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                              4F13033 
       REM BEG(TYP),4/  CALLS=DIAG. USES RSC.                           4F13034 
       REM BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT,                   4F13035 
BEG    SXD BEX,4                      SAVE C(XR4) FOR RETURN,           4F13036 
       CAL BEGTR                      SET CONTROL TRANSFER              4F13037 
BEX    TXI CXS,0,**                 * AND GO EXECUTE BEGINNING SCAN.    4F13038 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039 
       REM                                                              4F13040 
       REM BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN=                 4F13041 
       TXI NLS,0                   * ENDMARK (NO LIST SCAN)             4F13042 
IBC    TSX DIAG,4                  * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043 
       TXI CMB,0                   * ,                                  4F13044 
       TXI IBC,0                     ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045 
       TXI IBC,0                     = (ILLEGAL CHARACTER IN I/O SETUP).4F13046 
       TXI IBC,0                     - (ILLEGAL CHARACTER IN I/O SETUP).4F13047 
       TXI IBC,0                     / (ILLEGAL CHARACTER IN I/O SETUP).4F13048 
       TXI IBC,0                     . (ILLEGAL CHARACTER IN I/O SETUP).4F13049 
       TXI IBC,0                     + (ILLEGAL CHARACTER IN I/O SETUP).4F13050 
       TXI IBC,0                     * (ILLEGAL CHARACTER IN I/O SETUP).4F13051 
 BEGTR PZE BEGTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F13052 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053 
       REM                                                              4F13054 
       REM NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.  4F13055 
 NLS   CLA NLA                       IF ENDMARK IS MET,                 4F13056 
       STA BXT                       SET BXT SWITCH TO LAST.            4F13057 
       REM CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.     4F13058 
 CMB   LXD BEX,4                     RESTORE THE C(XR4), AND            4F13059 
       REM TYP = ENTRY POINT USED BY LPR,SPC,CMA,                       4F13060 
TYP    CLA CHR-6                     TEST FIRST CHARACTER               4F13061 
       SUB PLUS                      FOR VARIABLE                       4F13062 
       TMI ABS                       OR CONSTANT.                       4F13063 
       TXH SMB,2,36                  IF VARIABLE.                       4F13064 
       CAL BLANK                     ADD A BLANK                        4F13065 
       ALS 36,2                      IF SYMBOL CONTAINS                 4F13066 
       ORS SYM                       LESS THAN 6 CHARACTERS, AND        4F13067 
SMB    TRA 1,4                     * TAKE VARIABLE EXIT TO CALLER.      4F13068 
ABS    LXA L(5),2                    IF CONSTANT*                       4F13069 
       CLA CHR-1,2                   THEN                               4F13070 
       STO BIN                       CONVERT                            4F13071 
CSJ    TXL INT,2,**                  BCD                                4F13072 
       ALS 2                         DIGITS                             4F13073 
       ADD BIN                       TO THEIR                           4F13074 
       ALS 1                         BINARY                             4F13075 
       ADD CHR,2                     EQUIVALENT,                        4F13076 
       TXI CSJ-1,2,-1                AND WHEN DONE,                     4F13077 
 INT   TRA 2,4                     * TAKE CONSTANT EXIT TO CALLER.      4F13078 
       REM END OF PROGRAM  BEG(TYP),                                    4F13079 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080 
       REM                                                              4F13081 
       REM BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD,           4F13082 
BRW    SXD XRW,4                     SAVE THE C(XR4), AND               4F13083 
       SLW CON                       SET CON = 0 OR ,,144 OR ,,192,     4F13084 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F13085 
       TSX BEG,4                   * GO SCAN AND TEST TYPE OF SYMBOL.   4F13086 
       TSX VRA,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F13087 
       ALS 18                        IF CONSTANT, ADJUST CONVERTED      4F13088 
       STO RA                         NUMBER, AND SET RA.               4F13089 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13090 
       PZE TL                        WORD1--0(IFN)0(248)                4F13091 
       PZE OP                        WORD2--(WTB,RBT,WRD,RDD)000        4F13092 
       PZE L(0)                      WORD3--000000                      4F13093 
       PZE RA                        WORD4--000000 OR  0(UNIT)000       4F13094 
       CAL CPY                       MOVE CPY000                        4F13095 
       SLW OP                        INTO OP.                           4F13096 
       CAL TXLOP                     SET OP-SWITCHES,                   4F13097 
       STP ETMSW                     ETMSW AND LTMSW,                   4F13098 
       STP LTMSW                     TO THE TRA CASE.                   4F13099 
       CAL RTN                       MOVE (RTN)                         4F13100 
       SLW END                       INTO END.                          4F13101 
       STZ SL                        CLEAR SL,                          4F13102 
       LXD XRW,4                     RESTORE THE C(XR4), AND            4F13103 
       TRA 1,4                     * EXIT TO CALLER.                    4F13104 
       REM END OF PROGRAM BRW.                                          4F13105 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13106 
       REM                                                              4F13107 
       REM BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600,                       4F13108 
       REM BSS COMPILES=    IFN BSS 0.                                  4F13109 
BSS    TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F13110 
       PZE SL                        WORD1--0(IFN)000                   4F13111 
       PZE L(BSS)                    WORD2--BSS000                      4F13112 
       PZE L(0)                      WORD3--000000                      4F13113 
       PZE L(0)                      WORD4--000000                      4F13114 
       TRA 1,2                     * EXIT TO CALLER+1.                  4F13115 
       REM END OF PROGRAM BSS,                                          4F13116 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13117 
       REM                                                              4F13118 
       REM CA100,4 / CALLS=DIAG, CALLER=CA000,                          4F13119 
       REM CA100 READS NEXT SOURCE  PROGRAM CARD (1 TAPE RECORD),       4F13120 
CA100  LXA TERC,2                    PREPARE TO COUNT                   4F13121 
       SXD 1G,2                      TAPE READING ERRORS.               4F13122 
       RTT                           TURN OFF TAPE CHECK INDICATOR.     4F13123 
       NOP                           PROCEED TO NEXT INSTRUCTION.       4F13124 
CA101  RDS 130                       SELECT SOURCE TAPE FOR READING,    4F13125 
       LXA L(12),2                   INITIALIZE INDEX B FOR 12 CYCLES OF4F13126 
       REM                           COPY LOOP.                         4F13127 
CA102  CPY FT+12,2                   COPY INTO FT REGION                4F13128 
       TRA CA103                     NEXT SOURCE PROGRAM CARD.          4F13129 
       TRA CA120                     END OF FILE, GO FINISH LAST STATEM.4F13130 
CA130  LXD 1G,2                      TEST TAPE ERROR COUNTER            4F13131 
       TIX CA131,2,1                 BY TRYING TO REDUCE BY 1.          4F13132 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING TAPE 2.  4F13133 
CA131  SXD 1G,2                      SAVE REDUCED VALUE IN COUNTER,     4F13134 
       BST 130                       BACKSPACE FORMULA TAPE,            4F13135 
       TRA CA101                     AND GO BACK TO READ AGAIN.         4F13136 
CA103  TIX CA102,2,1                 TEST EXIT FROM LOOP.               4F13137 
       IOD                           DELAY UNTIL TAPE DISCONNECTS.      4F13138 
       RTT                           CHECK READING OF TAPE.             4F13139 
       TXI CA130,0                   IF INCORRECT, GO CHECK ERROR COUNT,4F13140 
       LXA L(12),2                   PREPARE TO SCAN 12 WORDS OF CARD.  4F13141 
CA112  CLA BLANKS                    TEST                               4F13142 
       SUB FT+12,2                   FOR                                4F13143 
       TNZ CA113                     BLANK                              4F13144 
       TIX CA112,2,1                 CARD.                              4F13145 
       TRA CA100                     IF BLANK, GO TO READ NEXT CARD.    4F13146 
CA113  CAL FT                        IF NOT BLANK,                      4F13147 
       ARS 30                        EXAMINE FIRST                      4F13148 
       SUB L(C)                      CHARACTER TO                       4F13149 
       TZE CA100                     TEST FOR COMMENT CARD.             4F13150 
       TRA 1,4                     * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151 
CA120  STZ FT                        INDICATE THAT FINAL                4F13152 
       SXD ENDWRD,0                  STATEMENT HAS BEEN READ IN.        4F13153 
       TRA 1,4                     * EXIT TO MAIN ROUTINE TO FINISH.    4F13154 
       REM END OF PROGRAM CA100.                                        4F13155 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13156 
       REM                                                              4F13157 
       REM CC500,4/ CALLER=CC000,                                       4F13156 
       REM CC500 BRINGS NEXT CHARACTER  OF DICTIONARY INTO AC(30-35),   4F13159 
CC500  PXD ,0                        CLEAR THE AC                       4F13160 
       TIX CC502,2,1                 IF NO DICTIONARY CHARACTERS        4F13161 
       LXD 2G,2                      REMAIN IN THE MO, THEN             4F13162 
       LDQ DIC,2                     REFILL WITH NEXT DICTIONARY WORD,  4F13163 
       TXI CC501,2,-1                RESET THE                          4F13164 
CC501  SXD 2G,2                      DICTIONARY WORD TAG, AND           4F13165 
       LXA L(6),2                    SET THE CHARACTER COUNT = 6.       4F13166 
CC502  LGL 6                         SHIFT CHAR INTO AC(30-35),         4F13167 
       TRA 1,4                     * AND RETURN TO CALLER.              4F13168 
       REM END OF PROGRAM CC500.                                        4F13169 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13170 
       REM                                                              4F13171 
       REM ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK,      4F13172 
       REM ETMSW = ENTRY POINT USED BY  RDC,CMA.                        4F13173 
ETMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13174 
       CAL ETM                       PICKUP ETM00, AND                  4F13175 
XR4X   TXI SETOP,0,**                GO SET OP.                         4F13176 
       REM LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK,                 4F13177 
LTMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13178 
       CAL LTM                       PICKUP LTM000, AND                 4F13179 
SETOP  SLW TOP                       SET TOP.                           4F13160 
       SXD XR4X,4                    SAVE THE C(XR4), AND               4F13161 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13182 
       PZE SL                        WORD1--0(IFN)000                   4F13183 
       PZE TOP                       WORD2--ETM000 OR LTM000            4F13184 
       PZE L(0)                      WORD3--000000                      4F13165 
       PZE L(0)                      WORD4--000000                      4F13186 
       STZ SL                        CLEAR SL,                          4F13187 
       LXD XR4X,4                    RESTORE THE C(XR4), AND            4F13188 
NOTTM  TRA 1,4                     * EXIT TO CALLER.                    4F13189 
       REM END OF PROGRAM ETMSW(LTMSW).                                 4F13190 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13191 
       REM                                                              4F13192 
       REM IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD),                  4F13193 
IFFIX  CAL EIFNO                     SET                                4F13194 
       STZ G                         G TO                               4F13195 
       STD G                         (0(IFN)000),                       4F13196 
       CAL SYM                       MOVE SYMBOL                        4F13197 
       SLW G+1                       INTO G+1.                          4F13198 
       CAL CHR-6                     PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199 
       TXI TESTFX+1,0              * GO TEST FOR FIXED OR FLOATING PT.  4F13200 
       REM END OF PROGRAM IFFIX.                                        4F13201 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13202 
       REM                                                              4F13203 
       REM INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB,                          4F13204 
       REM CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.                4F13205 
       REM INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD,                 4F13206 
INPUT  CLA L(6)                      PICKUP 6 TO                        4F13207 
       TXI OUTPUT+1                  GO SET INOUT FOR FORVAL ENTRY.     4F13208 
       REM OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD.            4F13209 
OUTPUT CLA L(5)                      PICKUP 5 TO                        4F13210 
       STO INOUT                     SET INOUT FOR FORVAR ENTRY.        4F13211 
       TSX GIF,4                   * SET SL = IFN,000.                  4F13212 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13213 
       PZE SL                        WORD1--0(IFN)000                   4F13214 
       PZE CAL                       WORD2--CAL000                      4F13215 
       PZE 15P                       WORD3--*00000                      4F13216 
       PZE L(0)                      WORD4--000000                      4F13217 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F13218 
       PZE L(0)                      WORD1--000000                      4F13219 
       PZE XIT                       WORD2--XIT000                      4F13220 
       PZE LEV                       WORD3--(LEV)                       4F13221 
       PZE L(0)                      WORD4--000000                      4F13222 
       STZ SL                        CLEAR SL, AND                      4F13223 
       TRA 1,2                     * EXIT TO CALLER.                    4F13224 
       REM END OF PROGRAM INPUT(OUTPUT),                                4F13225 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13226 
       REM                                                              4F13227 
       REM LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT),       4F13228 
LIB    CAL 3,4                       MOVE NAME OF SUBROUTINE,           4F13229 
       STA LIC                       ADDRESS OF WHICH                   4F13230 
LIC    CAL **                        IS IN WORD3 OF CALLING SEQ,        4F13231 
       SLW G                         INTO G, AND                        4F13232 
       TSX TET00,1                 * GO ENTER IN THE                    4F13233 
       PZE 9                         CLOSUB TABLE.                      4F13234 
       TXI CIT,0                   * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235 
       REM END OF PROGRAM LIB.                                          4F13236 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237 
       REM                                                              4F13238 
       REM VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF,           4F13239 
       REM CALLERS =RIT,WOT,EFT,                                        4F13240 
       REM VRA = ENTRY POINT USED BY EFT.                               4F13241 
VRA    CLA L(TL)                     RESET TPOA ADDRESS                 4F13242 
       STA TPOA                      TO TL.                             4F13243 
       CAL TXLOP                     PREPARE TO SET OP-SWITCH TO TRA.   4F13244 
       TXI VRD1,4,-1                 SET RETURN TO TSX+2, AND GO SET OP.4F13245 
       REM VRD = ENTRY POINT USED BY RIT,WOT,                           4F13246 
VRD    CLA TXLOP                     PREPARE TO SET OP-SWITCH TO NOP.   4F13247 
VRD1   STP VRX                       SET VRX OP-SWITCH.                 4F13248 
       SXD VRX,4                     SAVE THE C(XR4) FOR RETURN.        4F13249 
       TSX IFFIX,1                 * SET UP IFN AND SYMBOL FOR FORVAR.  4F13250 
       TSX DIAG,4                  * ILLEGAL USE OF FLOATING VARIABLE.  4F13251 
       TSX TET00,1                 * IF SYMBOL IS FXD-PT, GO MAKE       4F13252 
       PZE 5                         ENTRY IN FORVAR TABLE.             4F13253 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13254 
       PZE SL                        WORD1-0(IFN)000                    4F13255 
       PZE CAL                       WORD2-CAL000                       4F13256 
       PZE SYM                       WORD3-(FXD-PT SYMBOL)              4F13257 
       PZE L(0)                      WORD4-000000                       4F13258 
VRX    TXH VDA,0,**                  SWITCH ITXL=TRA, TXH=NOP),         4F13259 
       CAL STD                       PICKUP STD000, AND                 4F13260 
XRW    TXI RVX,0,**                  GO SET TOP.                        4F13261 
VDA    CLA CON                       IF CON                             4F13262 
       TZE SDA                       IS NOT ZERO,                       4F13263 
       STO G                         THEN                               4F13264 
       TSX FXCNIX,4                * ENTER CON IN FIXCON,AND GET TAG,   4F13265 
       ALS 18                        ADJUST TAG, AND                    4F13266 
       STO RA                        SET RA.                            4F13267 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY.   4F13268 
       PZE L(0)                      WORD1-000000                       4F13269 
       PZE ADD                       WORD2-ADD000                       4F13270 
       PZE 2P                        WORD3-200000                       4F13271 
       PZE RA                        WORD4-(FIXCON TAG)                 4F13272 
SDA    TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13273 
       PZE L(0)                      WORD1-000000                       4F13274 
       PZE ARS                       WORD2-ARSOOO                       4F13275 
       PZE L(0)                      WORD3-000000                       4F13276 
       PZE D18                       WORD4-0(18)000                     4F13277 
       CAL STA                       PICKUP  STAOOO, AND                4F13278 
RVX    SLW TOP                       SET TOP TO STA OR STD.             4F13279 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL,    4F13280 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13281 
       PZE L(0)                      WORD1- 00600                       4F13282 
       PZE TOP                       WORD2-STA000 OR STD000             4F13283 
       PZE TL                        WORD3-0(IFN)000                    4F13264 
       PZE L(0)                      WORD4-000000                       4F13285 
NLA    PXD LAST,0                    CLEAR THE AC                       4F13286 
       LXD VRX,4                     RESTORE THE C(XR4), AND            4F13287 
       TRA 1,4                     * EXIT TO CALLER.                    4F13288 
       REM  END OF PROGRAM VRA(VRD),                                    4F13289 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290 
       REM                                                              4F13291 
       REM STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=            4F13292 
       REM                                                              4F13293 
  BCD  BCD 1BCD000                   CONSTANT USED BY IOT.              4F13294 
  BST  BCD 1BST000                   CONSTANT USED BY IOT.              4F13295 
  ETM  BCD 1ETM000                   CONSTANT USED BY IOT,              4F13296 
  LTM  BCD 1LTM000                   CONSTANT USED BY IOT.              4F13297 
  NTR  BCD 1NTR000                   CONSTANT USED BY IOT.              4F13298 
  RDR  BCD 1RDR000                   CONSTANT USED BY IOT.              4F13299 
  REW  BCD 1REW000                   CONSTANT USED BY IOT.              4F13300 
  RTB  BCD 1RTB000                   CONSTANT USED BY IOT.              4F13301 
  SLW  BCD 1SLW000                   CONSTANT USED BY IOT.              4F13302 
  STD  BCD 1STD000                   CONSTANT USED BY IOT.              4F13303 
  WDR  BCD 1WDR000                   CONSTANT USED BY IOT.              4F13304 
  WEF  BCD 1WEF000                   CONSTANT USED BY IOT.              4F13305 
  WTB  BCD 1WTB000                   CONSTANT USED BY IOT.              4F13306 
  XIT  BCD 1XIT000                   CONSTANT USED BY IOT.              4F13307 
  BDC  BCD 1(BDC)                    CONSTANT USED BY IOT.              4F13308 
  CSH  BCD 1(CSH)                    CONSTANT USED BY IOT.              4F13309 
  DBC  BCD 1(DBC)                    CONSTANT USED BY IOT.              4F13310 
  FIL  BCD 1(FIL)                    CONSTANT USED BY IOT.              4F13311 
  LEV  BCD 1(LEV)                    CONSTANT USED BY IOT.              4F13312 
  RTN  BCD 1(RTN)                    CONSTANT USED BY IOT.              4F13313 
  SCH  BCD 1(SCH)                    CONSTANT USED BY IOT.              4F13314 
  SPH  BCD 1(SPH)                    CONSTANT USED BY IOT.              4F13315 
  STH  BCD 1(STH)                    CONSTANT USED BY IOT.              4F13316 
  TSH  BCD 1(TSH)                    CONSTANT USED BY IOT.              4F13317 
       REM                                                              4F13318 
 CON   BSS 1                         VARIABLE USED BY IOT.              4F13319 
 END   PZE **                        VARIABLE USED BY IOT.              4F13320 
 TOP   BSS 1                         VARIABLE USED BY IOT.              4F13322 
 TSA   PZE **                        VARIABLE USED BY IOT.              4F13323 
 TTA   PZE **                        VARIABLE USED BY IOT.              4F13324 
       REM                                                              4F13325 
       REM DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326 
  DIC  OCT 244677274663              DO-GOT                             4F13327 
       OCT -67731267462              O-IF(S                             4F13328 
       OCT 254562256266              ENSESW                             4F13329 
       OCT 316323307731              ITCH-I                             4F13330 
       OCT 267462254562              F(SENS                             4F13331 
       OCT 254331273063              ELIGHT                             4F13332 
       OCT -373126243165             -IFDIV                             4F13333 
       OCT 312425233025              IDECHE                             4F13334 
       OCT 234277312621              CK-IFA                             4F13335 
       OCT 232364446443              CCUMUL                             4F13336 
       OCT 216346514665              ATOROV                             4F13337 
       OCT 255126434666              ERFLOW                             4F13338 
       OCT -373126506446             -IFQUO                             4F13339 
       OCT -233125456346             TIENTO                             4F13340 
       OCT -252551264346             VERFLO                             4F13341 
       OCT -267731267721             W-IF-A                             4F13342 
       OCT -226231274577             SSIGN-                             4F13343 
       OCT -226346477747             STOP-P                             4F13344 
       OCT 216462257762              AUSE-S                             4F13345 
       OCT 254562254331              ENSELI                             4F13346 
       OCT 273063772431              GHT-DI                             4F13347 
       OCT -42545623146              MENSIO                             4F13348 
       OCT -57725506431              N-EQUI                             4F13349 
       OCT -252143254523             VALENC                             4F13350 
       OCT 257726512550              E-FREQ                             4F13351 
       OCT -242545237077             UENCY-                             4F13352 
       OCT 234645633145              CONTIN                             4F13353 
       OCT -242577512521             UE-REA                             4F13354 
       OCT 246321472577              DTAPE-                             4F13355 
       OCT -112521243145             READIN                             4F13356 
       OCT -76463632147              PUTTAP                             4F13357 
       OCT 257751252124              E-READ                             4F13358 
       OCT 245164447751              DRUM-R                             4F13359 
       OCT 252124776651              EAD-WR                             4F13360 
       OCT 316325632147              ITETAP                             4F13361 
       OCT 257766513163              E-WRIT                             4F13362 
       OCT 254664634764              EOUTPU                             4F13363 
       OCT -236321472577             TTAPE-                             4F13364 
       OCT -265131632524             WRITED                             4F13365 
       OCT -116444774751             RUM-PR                             4F13366 
       OCT 314563774764              INT-PU                             4F13367 
       OCT -52330775125              NCH-RE                             4F13368 
       OCT -263145247722             WIND-B                             4F13369 
       OCT 212342624721              ACKSPA                             4F13370 
       OCT 232577254524              CE-END                             4F13371 
       OCT 263143257726              FILE-F                             4F13372 
       OCT -65144216377              ORMAT-                             4F13373 
       OCT -226422514664             SUBROU                             4F13374 
       OCT -233145257723             TINE-C                             4F13375 
       OCT -064444464577             OMMON-                             4F13376 
       OCT -112563645145             RETURN                             4F13377 
       OCT -372321434377             -CALL-                             4F13378 
       OCT 254524747726              END(-F                             4F13379 
       OCT -244523633146             UNCTIO                             4F13360 
       OCT -057777777777             N-----                             4F13361 
       BSS 10                                                           4F133815
       REM END OF DICTIONARY.                                           4F13382 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383 
       REM                                                              4F13384 
       REM T/ TRANSFER TABLE IUSED BY CC000),                           4F13385 
T      TXI C0100,0                   DO,                                4F13386 
       TXI C0200,0                   GO TO.                             4F13387 
       TXI C0400,0                   IF ISENSE SWITCH.                  4F13388 
       TXI C0500,0                   IF (SENSE LIGHT.                   4F13389 
       TXI C0600,0                   IF DIVIDE CHECK.                   4F13390 
       TXI C0700,0                   IF AC OVERFLOW,                    4F13391 
       TXI C0800,0                   IF MO OVERFLOW.                    4F13392 
       TXI C0300,0                   IF.                                4F13393 
       TXI C1000,0                   A5SIGN.                            4F13394 
       TXI C1300,0                   STOP.                              4F13395 
       TXI C0900,0                   PAUSE.                             4F13396 
       TXI C1100,0                   SENSE LIGHT,                       4F13397 
       TXL C1200,0                   DIMENSION*                         4F13398 
       TXL C1500,0                   EOUIVALENCE.                       4F13399 
       TXL C1400,0                   FREOUENCY,                         4F13400 
       TXI C1600,0                   CONTINUE.                          4F13401 
       TXI RBT,0                     READ TAPE.                         4F13402 
       TXI RIT,0                     READ INPUT TAPE.                   4F13403 
       TXI RDD,0                     READ DRUM.                         4F13404 
       TXI RDC,0                     READ CARD.                         4F13405 
       TXI WBT,0                     WRITE TAPE.                        4F13406 
       TXI WOT,0                     WRITE OUTPUT TAPE.                 4F13407 
       TXI WRD,0                     WRITE DRUM,                        4F13408 
       TXI RDP,0                     PRINT.                             4F13409 
       TXI PDC,0                     PUNCH.                             4F13410 
       TXI RWN,0                     REWIND.                            4F13411 
       TXI BSP,0                     BACKSPACE.                         4F13412 
       TXI EFT,0                     END FILE.                          4F13413 
       TXL FOR,0                     FORMAT.                            4F13414 
       TXL C3000,0                   SUBROUTINE.                        4F13415 
       TXL C3100,0                   COMMON.                            4F13416 
       TXI C3200,0                   RETURN.                            4F13417 
       TXI C3300,0                   CALL.                              4F13418 
       TXL C3400,0                   END.                               4F13419 
       TXL C3500,0                   FUNCTION.                          4F13420 
       BSS 10                                                           4F134205
       REM END OF TRANSFER TABLE.                                       4F13421 
ENDADR BSS 0                                                            4F134215
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422 
       REM                                                              4F13423 
ENDA   ORG 3783                                                         4F13424 
 BIN   BSS 1                          VARIABLE  USED BY  IOT.           4F13425 
 CHR   BES 6                          VARIABLE  USED BY  IOT.           4F13426 
       BSS 50                         PARAMETERS FOR TLDOS TABLE -IOT.  4F13427 
 DOLEV BSS 1                          PARAMETERS FOR TLDOS TABLE -IOT.  4F13428 
 OP    BSS 1                          VARIABLE USED BY IOT.             4F13429 
 RA    BSS 1                          VARIABLE USED BY IOT.             4F13430 
 SA    BSS 1                          VARIABLE USED BY IOT.             4F13431 
 SYM   BSS 1                          VARIABLE USED BY IOT.             4F13432 
TLDOS  BSS 250                        DO TABLE USED BY IOT.             4F13433 
       REM END OF WORKING STORAGE USED BY STATEA.                       4F13434 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13435 
       REM                                                              4F13436 
       REM END OF THE NON-ARITHMETIC PART OF SECTION ONE.               4F13437 
       REM                                                              4F13438 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13439 
       REM                                                              4F13440 
       REM ARITHMETIC / STATE B=                                        4F13441 
       REM 704 FORTRAN MASTER RECORD CARD / STATE B = F0180000.         4F13442 
       ORG 0                                                            4F134421
       PZE ORGB,,DMWR06                                                 4F134422
       PZE ENDB-1                                                       4F134423
       REM                                                              4F13443 
ORGB   ORG 1824                                                         4F13444 
       REM                                                              4F13445 
       REM THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704     4F13446 
       REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL   4F13447 
       REM ANALYSIS HAS BEEN FOLDED OVER.                               4F13440 
       REM                                                              4F13449 
       REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS.    4F13450 
       REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451 
       REM IN THE F REGION OF COMMON AND  IS IN BCD.                    4F13452 
       REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD  4F13453 
       REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454 
       REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME.                  4F13455 
       REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 
       REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457 
       REM AND THE OPERATOR WHICH PRECEDES IT.                          4F13458 
       SLF                                                              4F13459 
       CLA SIG1ST                                                       4F13460 
       STO SIG1IX-3                                                     4F13461 
       STZ ARGCTR            CLEAR                                      4F13462 
       STZ CHSAVE            X                                          4F13463 
       STZ 3LBAR             X                                          4F13464 
       STZ NBAR              X                                          4F13465 
       STZ CBAR              X                                          4F13466 
       STZ ABAR              X                                          4F13467 
       STZ FSTYPE            X                                          4F13468 
       LXD 1BAR,4            SET NBAR=-1                                4F13469 
       SXD NBAR,4            X                                          4F13470 
       CAL E(                SET ARERAS - E(                            4F13471 
       SLW ARERAS            X                                          4F13472 
       TSX C0190X,4          SET FWA --F AND CHCTR  - 0                 4F13473 
       CAL TXHOP             SET SWITCHES FOR LEFT SCAN.                4F13474 
       STP MS093             X                                          4F13475 
       STP MS310             X                                          4F13476 
       STP MS321             X                                          4F13477 
MS010  CAL ADPLUS            SET OP TO ADDITION                         4F13478 
MS030  SLW E+1               X                                          4F13479 
       STZ FNBITS            CLEAR FUNCTION NAME INDICATOR              4F13480 
       STZ FNCTR             CLEAR FUNCTION ARG COUNTER.                4F13481 
       STZ G                 CLEAR RECEIVING CELL.                      4F13482 
       CLS L(0)              SET E = -0                                 4F13483 
       STO E                 X                                          4F13484 
       LXA L(6),2            SET IR2 FOR SIX CHARS.                     4F13485 
MS040  CAL CHSAVE            CHAR IN CHSAVE, IF ANY, TO AC.             4F13486 
       TNZ MS041             X                                          4F13467 
       TSX C0190,4           CHSAVE EMPTY, GET NEXT CHAR.               4F13488 
MS041  CAS L(9)              IS CHAR. NUMERIC                           4F13489 
       TRA MS050             N/, TAKE TRA                               4F13490 
MS4007 TXH CM4100,0                                                     4F13491 
       TSX ROYCNV,4          X                                          4F13492 
       TRA HOLL              RETURN 1, THIS WAS HOLLERITH.              4F13493 
       TRA LATXH             THIS WAS FIXED OR FLOATING CONSTANT.       4F13494 
MS050  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13495 
MS051  CAS CTEST,4                                                      4F13496 
       TRA MS052             X                                          4F13497 
       TRA MS090             CHAR IS SOME PUNCTUATION.                  4F13498 
MS052  TIX MS051,4,1         X                                          4F13499 
MS060  ALS 36,2              POSITION CHAR FOR BUILDING SYMBOL.         4F13500 
       ORS G                 ADD CHAR TO THOSE IN G.                    4F13501 
       TXI MS061,2,6         UPDATE POSITIONING TAG.                    4F13502 
MS061  TSX C0190,4           GET NEXT CHAR.                             4F13503 
MS070  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13504 
MS071  CAS CTEST,4           X                                          4F13505 
       TRA MS072             X                                          4F13506 
       TRA MS091             CHAR IS SOME PUNCTUATION.                  4F13507 
MS072  TIX MS071,4,1         X                                          4F13508 
       TXL MS060,2,18        IF THIS IS CHAR I, 2 /R 3 GO BUILD G.      4F13509 
       CAS L(F)              IS THIS AN F ENDING FUNCTION NAME.         4F13510 
       TRA MS073             X                                          4F13511 
       TRA MS080             MAYBE, GO LOOK AT NEXT CHAR.               4F13512 
MS073  TXL MS060,2,36        TEST FOR UNDER 7 CHARS.                    4F13513 
MS074  TSX DIAG,4            BUILD G, 7TH CHAR IS ERROR.                4F13514 
MS080  TSX C0190,4           GET NEXT CHAR.                             4F13515 
       CAS OPEN              TEST FOR (.                                4F13516 
       TRA MS081             X                                          4F13517 
       TRA MS092             YES, THIS IS A FUNCTION NAME.              4F13518 
MS081  STO FIRSTC            NO, SAVE CURRENT CHAR.                     4F13519 
       CAL L(F)              ADD F TO CONTENTS OF G,                    4F13520 
       ALS 36,2              X                                          4F13521 
       ORS G                 X                                          4F13522 
       TXH MS074,2,36        TEST FOR 7TH CHAR, YES IS ERROR,           4F13523 
       CLA FIRSTC            RESTORE CURRENT CHAR.                      4F13524 
       TXI MS070,2,6         UPDATE POSITIONING TAG,                    4F13525 
MS090  STZ CHSAVE            CLEAR                                      4F13526 
       TRA TRBLKA,4                                                     4F13527 
MS091  SLW CHSAVE            OP IS IN NEXT ELEMENT, SAVE,               4F13528 
       CAL BLANK             ADD BLANK TO CHARS IN G.                   4F13529 
       ALS 36,2              X                                          4F13530 
       ORS G                 X                                          4F13531 
       LDQ G                 MOVE G TO E+2 AND TO G+1,                  4F13532 
       STQ E+2               X                                          4F13533 
       STQ G+1               X                                          4F13534 
       TRA TRBLKB,4          NOW BRANCH TO INDIVIDUAL ROUTINE           4F13535 
MS092  PXD ,0                CLEAR                                      4F13536 
       LDQ BLANKS            ADD BLANKS TO SUBROUTINE NAME IN G.        4F13537 
       LGL 42,2              X                                          4F13538 
       ORA G                 X                                          4F13539 
       SLW G                 X                                          4F13540 
       SLW E+2               MOVE FUNCTION NAME TO E+2.                 4F13541 
MS093  *** MS335,0           TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.     4F13542 
       LXD BK,4              THIS IS ARITH FUNCTION STATEMENT.          4F13543 
       SLW FORSUB,4          ENTER FUNCTION NAME IN FORSUB TABLE.       4F13544 
       CAL EIFNO             ENTER INTERNAL FORMULA NO IN FORSUB.       4F13545 
       ANA MASK1             X                                          4F13546 
       STO FORSUB+1,4        X                                          4F13547 
       TXI FS010,4,-2        UPDATE COUNT OF ENTRIES IN FORSUB.         4F13548 
FS010  SXD BK,4              X                                          4F13549 
FS020  TSX C0190,4           GET FIRST CHAR OF ARGUMENT.                4F13550 
       CAS EQUAL             TEST FOR EQUAL,                            4F13551 
       TRA FS030             X                                          4F13552 
       TRA MS322             GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553 
FS030  CAS L(9)              TEST FOR ILLEGAL ARGUMENT,                 4F13554 
       TRA FS040             LEGAL, CONTINUE                            4F13555 
MS9002 TXH CM4200,0                                                     4F13556 
       TSX DIAG,4            BEGINS NUMERIC, ERROR,                     4F13557 
FS040  TSX C0160,2           COLLECT ARGUMENT NAME IN 1G,               4F13558 
       TSX TESTB0,4          TEST CHAR FOLLOWING ARG FOR , OR)          4F13559 
       LXD ARGCTR,2          GET COUNT OF ARGUMENTS                     4F13560 
       LDQ 1G                ENTER ARGUMENT NAME IN ARGREG TABLE.       4F13561 
       STQ ARGREG,2          X                                          4F13562 
       TXI FS050,2,-1        UPDATE COUNT OF ARGUMENTS.                 4F13563 
FS050  SXD ARGCTR,2                                                     4F13464 
       TXH FS020,2,-50       TEST FOR ARGREG TABLE OVERFLOW,            4F13565 
       TSX DIAG,4            YES, ERROR.                                4F13566 
MS200  TSX DECPNT,4          CONVERT BCD NUMBER TO BINARY               4F13567 
       TSX DIAG,4            HOLLERITH RETURN, ERROR.                   4F13568 
       TRA LATXH             FLOATING POINT CONSTANT RETURN.            4F13569 
MS210  SLN 1                 TURN , LITE 0N.                            4F13570 
       LXD 3LBAR,1           PERFORM LEVEL ANALYSIS FOR ,               4F13571 
       LXD ABAR,4                                                       4F13572 
       CLS ALPHA-4,4                                                    4F13573 
       STO LAMBDA,1                                                     4F13574 
       CAL ADSPOP                                                       4F13575 
       SLW LAMBDA+1,1                                                   4F13576 
       CLA NBAR                                                         4F13577 
       ARS 18                                                           4F13578 
       STO LAMBDA+2,1                                                   4F13579 
       TXI MS211,1,-3                                                   4F13580 
MS211  SXD 3LBAR,1                                                      4F13581 
       LXD NBAR,1                                                       4F13582 
       SXD CBAR,1                                                       4F13583 
       TXI MS212,1,-1                                                   4F13584 
MS212  SXD NBAR,1                                                       4F13585 
       TXI MS213,4,3                                                    4F13586 
MS213  SXD ABAR,4                                                       4F13587 
       TRA MS010                                                        4F13588 
MS220  LXD ABAR,4           PERFORM LEVEL ANALYSIS FOR )                4F13589 
       CLA ALPHA-4,4                                                    4F13590 
       PAX ,1                                                           4F13591 
       SXD CBAR,1                                                       4F13592 
       TXI MS221,4,4                                                    4F13593 
MS221  SXD ABAR,4                                                       4F13594 
       TRA MS020                                                        4F13595 
MS230  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOE ENDMK,          4F13596 
       TXI MS231,4,3                                                    4F13597 
MS231  TXL MS232,4,0         FINISHED, HAS LEVEL BEEN REDUCED TO ZERO,  4F13598 
       TSX DIAG,4            NO, ERROR.                                 4F13599 
MS232  LXD ARGCTR,4          WAS THIS AN ARITH FUNCTION STATEMENT       4F13600 
       TXL STATEC,4,0                                                   4F13601 
       CAL FSTYPE            YES, UPDATE FUNCTION TYPE AND              4F13602 
       ADD L(1)              COMPLETE FORSUB ENTRY BY ASSIGNING         4F13603 
       LXD BK,1              TYPE NUMBER.                               4F13604 
       STA FORSUB-1,1        X                                          4F13605 
       ORS ARERAS            ALSO SAVE FOR LATER REFERENCE.             4F13606 
       TRA STATEC                                                       4F13607 
       TRA MS230             ENDMK                                      4F13608 
       TRA MS260             (                                          4F13609 
       TRA MS210             ,                                          4F13610 
       TRA MS220             )                                          4F13611 
MSERR= TSX DIAG,4            =                                          4F13612 
       TRA MS250             -                                          4F13613 
       TRA MS250             /                                          4F13614 
       TRA MS200             ,                                          4F13615 
       TRA MS250             +                                          4F13616 
MS240  ALS 30                *    SAVE  *                               4F13617 
TRBLKA BSS 0                                                            4F13618 
       SLW E+1               X                                          4F13619 
       TSX C0190,4           GET  NEXT  CHAR.                           4F13620 
       CAS STAR              IS IT *                                    4F13621 
       TRA MS041             X                                          4F13622 
       TRA MS241             YES, THIS WAS **                           4F13623 
       TRA MS041             NO,  GO COMPARE TO OTHER PUNCTUATION.      4F13624 
MS241  CAL STRSTR            REPLACE * WITH **                          4F13625 
       TRA MS251             X                                          4F13626 
MS250  ALS 30                POSITION  CHAR WHICH IS + OR - OR /        4F13627 
MS251  SLW E+1               PUT CURRENT OP IN E+1.                     4F13628 
       TRA MS040             NOW GO COLLECT SYMBOL,                     4F13629 
MS260  ALS 30                ( TO SYMBOL WORD                           4F13630 
       SLW E+2               X                                          4F13631 
       TRA LATXL             GO PERFORM LEVEL ANALYSIS FOR (            4F13632 
       TRA MS300             ENDMK                                      4F13633 
       TRA MS320             (                                          4F13634 
       TRA MS300             ,                                          4F13635 
       TRA MS300             )                                          4F13636 
       TRA MS310             =                                          4F13637 
       TRA MS300             -                                          4F13638 
       TRA MS300             /                                          4F13639 
       TSX DIAG,4            .                                          4F13640 
       TRA MS300             +                                          4F13641 
MS300  PXD ,0                *   CLEAR                                  4F13642 
TRBLKB BSS 0                 BASE ADDRESS FOR TAGGED TRANSFER.          4F13643 
       LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13644 
       TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT.          4F13645 
       TRA LATXL             FLOATING, GO PERFORM LEVEL ANALYSIS.       4F13646 
       CAL EIFNO             FIXED, PREPARE FORVAR ENTRY.               4F13647 
       ANA MASK1             X                                          4F13648 
       SLW G                 X                                          4F13649 
       TSX TET00,1           MAKE FORVAR ENTRY.                         4F13650 
           5                 X                                          4F13651 
       PXD ,0                                                           4F13652 
       LDQ LEFT+2                                                       4F13653 
       LGL 12                                                           4F13654 
       SUB CALLER                                                       4F13655 
       TNZ LATXL                                                        4F13656 
       TSX TET00,1                                                      4F13657 
           6                                                            4F13658 
       TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13659 
MS320  STZ CHSAVE            CLEAR CELL FOR 0P.                         4F13660 
MS321  *** MS330,0           TXH ON LEFT,  TXL  ON  RIGHT  OF = SIGN.   4F13661 
       TSX SS000X,4          GO PROCESS SUBSCRIPT COMBINATION           4F13662 
       TSX C0190,4           GET NEXT  CHAR.                            4F13663 
       SUB EQUAL             TEST  FOR  EQUAL  SIGN.                    4F13664 
       TNZ MSERR=            NO,  ERROR.                                4F13665 
MS322  LXA L(3),4            MOVE CONTENTS OF E WORDS TO LEFT WORDS.    4F13666 
MS323  LDQ E+3,4             X                                          4F13667 
       STQ LEFT+3,4          X                                          4F13668 
       TIX MS323,4,1         X                                          4F13669 
MS311  CAL TXLOP             SET SWITCHES FOR RIGHT SIDE SCAN.          4F13670 
       STP MS093             X                                          4F13671 
       STP MS310             X                                          4F13672 
       STP MS321             X                                          4F13673 
       SLN 1                 TURN =  OR  )  LITE 0N.                    4F13674 
       TRA MS010             GO SCAN NEXT ELEMENT.                      4F13675 
MS310  *** MSERR=,0          TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676 
       STZ CHSAVE            CLEAR                                      4F13677 
       PXD ,0                CLEAR AC                                   4F136775
       LGL 6                 GET  FIRST  CHAR OF SYMBOL.                4F13678 
       TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING  POINT          4F13679 
       TRA MS322             FLOATING,                                  4F13680 
       CAL EIFNO             FIXED,  PREPARE FORVAL  ENTRY.             4F13681 
       ANA MASK1             X                                          4F13682 
       SLW G                 X                                          4F13683 
       TSX TET00,1           MAKE  FORVAL  ENTRY.                       4F13684 
           6                 X                                          4F13685 
       TRA MS322                                                        4F13686 
MS330  TSX DIM1SR,4          SEARCH FOR THIS NAME IN THE DIM1, DIM2,    4F13687 
       TRA MS331             AND DIM3 TABLES.  IF IT IS FOUND IN ONE OF 4F13688 
       TRA MS333             THESE TABLES IT IS A SUBSCRIPTED VARIABLE  4F13689 
MS331  TSX DIM2SR,4          OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690 
       TRA MS332             FOUND IN ANY DIMENSION TABLE THEN IT IS    4F13691 
       TRA MS333             ASSUMED TO BE THE NAME OF A FORTRAN II     4F13692 
MS332  TSX DIM3SR,4          SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693 
       TRA MS334             X                                          4F13694 
MS333  TSX SS000X,4          GO PROCESS SUBSCRIPT COMBINATIONS          4F13695 
       TRA LATXH             GO PERFORM LEVEL ANALYSIS.                 4F13696 
MS334  CAL FNIND             NOT FOUND, TREAT AS FUNCTION NAME.         4F13697 
       SLW FNBITS            X                                          4F13698 
       PXD ,0                X                                          4F13699 
       LDQ BLANKS            COMPLETE NAME WITH BLANKS.                 4F13700 
       LGL 42,2              X                                          4F13701 
       ORS G                 X                                          4F13702 
       ORS E+2               X                                          4F13703 
       TSX TET00,1           ENTER NAME  IN CLOSUB TABLE.               4F13704 
           9                 X                                          4F13705 
MS335  SLN 2                 TURN  FUNCTION LITE 0N.                    4F13706 
       TRA LATXL             GO PERFORM  LEVEL  ANALYSIS.               4F13707 
HOLL   STZ CHSAVE                    CLEAR CHSAVE                       4F13708 
       CAL HOLCNT                    GET CURRENT H(+I WORD              4F13709 
       SLW E+2                                                          4F13710 
       LXA N,2                    GET NUMBER OF CHARACTERS IN THIS ARG  4F13711 
       LXD CHCTR,4                GET CURRENT RESIDUE CHAR COUNT        4F13712 
       LDQ RESIDU                 GET CURRENT RESIDU WORD               4F13713 
C3351  LXA L(6),1                 SET TO COLLECT SIX CHARS              4F13714 
       PXD 0,0                    CLEAR  AC                             4F13715 
C3352  TNX C3354,4,1              TEST FOR NO MORE CHARS  IN RESIDU     4F13716 
C33525 LGL 6                      GET NEXT CHAR                         4F13717 
       SLW 1G                     STORE WORD                            4F13718 
       ANA ENDMK                  BLANK ALL EXCEPT CURRENT CHAR         4F13719 
       SUB ENDMK                  TEST FOR INTERNAL ENDMK               4F13720 
       TNZ C3353                                                        4F13721 
       TSX DIAG,4                    YES, ERROR, GO TO DIAGNOSTIC.      4F13722 
C3353  CAL 1G                     RETREIVE WORD                         4F13723 
       TNX C3358,2,1              TEST FOR ALL CHARS COLLECTED          4F13724 
       TNX C3356,1,1              TEST FOR SIX CHARS COLLECTED          4F13725 
       TRA C3352                  NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726 
C3354  LXD FWA,4                  LOAD MQ WITH NEXT F REGION WORD       4F13727 
       LDQ 0,4                                                          4F13728 
       TXI C3355,4,-1             UPDATE FWA                            4F13729 
C3355  SXD FWA,4                                                        4F13730 
       LXA L(6),4                 RESET MQ CHAR COUNT TO SIX            4F13731 
       TRA C33525                 CONTINUE COLLECTING                   4F13732 
C3356  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13733 
C3357  TXI C3351,0,**             RETURN TO CONTINUE COLLECTING         4F13734 
C3358  STQ RESIDU                 UPDATE RESIDU                         4F13735 
       SXD CHCTR,4                UPDATE CHCTR                          4F13736 
       TNX C3360,1,1              TEST FOR SIX CHARS IN AC DEC IR1      4F13737 
       LDQ BLANKS                 NOT SIX CHARS, PREPARE TO ADD BLANKS  4F13738 
C3359  LGL 6                      ADD BLANKS                            4F13739 
       TIX C3359,1,1                                                    4F13740 
C3360  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13741 
       CAL ALL1                   GET WORD OF ONES                      4F13742 
       TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13743 
       REM     LEVEL ANALYSIS                                           4F13744 
LATXL  CAL TXLOP                                                        4F13745 
       TRA LATXL+3                                                      4F13746 
LATXH  CAL TXHOP                                                        4F13747 
       STP CM4105                                                       4F13748 
LA0000 LXA L(0),A                                                       4F13749 
       CLA E+2                                                          4F13750 
       SLT 2                 IS THIS A FUNCTION NAME                    4F13751 
       TRA LA0000+36         NO                                         4F13752 
       SLN 2                 YES - TURN F LITE BACK ON                  4F13753 
       LXD BK,C              IS FORSUB EMPTY                            4F13754 
       TXL LA0000+13,C,0     YES. GO SET  FS BITS TO 0                  4F13755 
       SXD LA0000+12,C                                                  4F13756 
       CAS FORSUB,A          SEARCH  FN NAME IN FORSUB                  4F13757 
       TXI LA0000+12,A,-2                                               4F13758 
       TRA LA0000+15                                                    4F13759 
       TXI LA0000+12,A,-2                                               4F13760 
       TXH LA0000+8,A,0                                                 4F13761 
       STZ FSBITS            SET FSBITS TO 0                            4F13762 
       TRA LA0000+25                                                    4F13763 
       CAL FORSUB+1,A        FN NAME IN FORSUB                          4F13764 
       ANA MASK2             EXTRACT TYPE NUMBER                        4F13765 
       LXD ARGCTR,C          IS THIS A FUNCTION  STATEMENT              4F13766 
       TXL LA0000+22,C,0     NO                                         4F13767 
       CAS FSTYPE            YES - UPDATE FS TYPE                       4F13768 
       STA FSTYPE                                                       4F13769 
       TXH 0,0                                                          4F13770 
       ALS 7                                                            4F13771 
       ORA FSIND                                                        4F13772 
       SLW FSBITS                                                       4F13773 
       LXD 3LBAR,A           LOAD LA COUNTERS                           4F13774 
       LXD NBAR,B                                                       4F13775 
       LXD ABAR,C                                                       4F13776 
       TXL LA0003,A,0                                                   4F13777 
       TXH LA0001,A,-1200                                               4F13778 
       TSX DIAG,4                    ERROR..LAMBDA TABLE EXCEEDED.      4F13779 
LA0001 TXH LA0002,B,-301                                                4F13780 
       TSX DIAG,4                    ERROR.,BETA TABLE EXCEEDED         4F13781 
LA0002 TXL LA0003,C,0                                                   4F13782 
       TXH LA0003,C,-139                                                4F13783 
       TSX DIAG,4                    ERROR..ALPHA TABLE EXCEEDED        4F13784 
       LXD ARGCTR,C          VARIABLE OR (                              4F13785 
       TXL LA0000+13,C,0     NOT AN FS - GO SET FS BITS TO 0            4F13786 
       SXD LA0000+43,C       FUNCTION STATEMENT                         4F13787 
       CAS ARGREG,A          SEARCH FREE VARIABLE TABLE                 4F13788 
       TXI LA0000+43,A,-1                                               4F13789 
       TRA MS1018                                                       4F13790 
       TXI LA0000+43,A,-1                                               4F13791 
       TXH LA0000+39,A,0                                                4F13792 
       TRA LA0000+13         NOT PRESENT -  GO SET FSBITS TO 0          4F13793 
MS1018 PXD 0,A               PRESENT - STORE TYPE IN  FSBITS            4F13794 
       ARS 11                                                           4F13795 
       TRA LA0000+23                                                    4F13796 
LA0003 CLA MS9002                                                       4F13797 
       STA LA4320                                                       4F13798 
       PXD 0,0                                                          4F13799 
       LDQ E+2                                                          4F13800 
       STQ LAMBDA+11,A                                                  4F13601 
       STQ LAMBDA+8,A                                                   4F13802 
       STQ LAMBDA+5,A                                                   4F13803 
       LGL 6                                                            4F13804 
       STO FIRSTC                                                       4F13805 
       SUB OPEN                                                         4F13606 
       TZE LA003                                                        4F13807 
       CLA MS4007                                                       4F13808 
       SLT 2                                                            4F13809 
       TRA LA002                                                        4F13810 
       SLN 2                                                            4F13811 
       CLA FINI03                                                       4F13812 
LA002  STA LA4320                                                       4F13813 
LA003  CLA E                                                            4F13814 
       STO LAMBDA+9,A                                                   4F13815 
       STO LAMBDA+6,A                                                   4F13816 
       STO LAMBDA+3,A                                                   4F13817 
       CAL ADSPOP                                                       4F13818 
       SLW LAMBDA+13,A                                                  4F13819 
       SLW LAMBDA+10,A                                                  4F13820 
       SLW LAMBDA+7,A                                                   4F13821 
       PXD ,0                                                           4F13822 
       LDQ E+1                                                          4F13823 
       STQ LAMBDA+1,A                                                   4F13824 
       LGL 6                                                            4F13825 
       CAS STAR                                                         4F13826 
       TRA LA0015            / SIGN                                     4F13827 
       TRA LA0010            , OR ,, SIGN                               4F13828 
       SLT 2                 + OR - SIGN                                4F13829 
       TRA LA0044                                                       4F13830 
       TXI MS1033,B,-3       -N TO -(N+3)                               4F13831 
MS1033 PXD ,B                                                           4F13832 
       ARS 18                                                           4F13833 
       STO LAMBDA+14,A       STO  (N+3) IN LAMBDA+3 (L+4)+2             4F13834 
       TXI FINI03,B,1        -(N+3) TO - (N+2)                          4F13835 
FINI03 PXD CM4300,B                                                     4F13836 
       ARS 18                                                           4F13837 
       SSM                                                              4F13838 
       STO LAMBDA+12,A       STO -(N+2) IN LAMBDA+3 (L+4)               4F13839 
LA0041 SLT 1                                                            4F13840 
       TXI L43130,B,1        UNARY... -(N+2)  TO -(N+1)                 4F13841 
       TXI L13130,B,1        BINARY... -(N+2)  TO - (N+1)               4F13842 
LA0044 CLA FIRSTC                                                       4F13843 
       CAS OPEN              EXAMINE SYMBOL                             4F13844 
       TRA LA0050                                                       4F13845 
       TXI LA0058,B,-3       -N TO -(N+3)                               4F13846 
LA0050 SLT 1                                                            4F13847 
       TXI LA4000,B,-1       UNARY... -NTO -(N+1)                       4F13848 
       TXI LA1000,B,-1       BINARY... -N TO  -(N+1)                    4F13849 
LA0058 PXD ,B                                                           4F13850 
       ARS 18                                                           4F13851 
       STO LAMBDA+11,A       STO S(N+3) IN LAMBDA  +3(L+3)+2            4F13852 
       ADD L(1)              FORM -(N+2)  IN ADD (ACC)                  4F13853 
       TXI LA0041,2,1                                                   4F13854 
LA0010 TQP LA0015            GO TO * ROUTINE                            4F13855 
       SLT 2                 **                                         4F13856 
       TRA LA0072                                                       4F13857 
       TXI L23000,B,-1       -N TO -(N+1)                               4F13858 
LA0072 CLA FIRSTC                                                       4F13859 
       SUB OPEN                                                         4F13860 
       TNZ LA2000                                                       4F13861 
       TXI L22000,B,-1       -N TO -(N+1)                               4F13862 
LA0015 SLT 2                 *  OR  /                                   4F13863 
       TRA LA0021                                                       4F13864 
       TXI L33000,B,-2       -N TO -(N+2)                               4F13865 
LA0021 CLA FIRSTC                                                       4F13866 
       CAS OPEN                                                         4F13867 
       TXI LA3000,B,-1                                                  4F13868 
       TXI L32000,B,-2       -N TO -N(+2)                               4F13869 
       TXI LA3000,B,-1                                                  4F13870 
L13130 SLW ALPHA+3,C         STO -(N+2) IN  ALPHA+A+3                   4F13871 
       CLS L(0)                                                         4F13872 
       STO LAMBDA+9,A        STO -0  IN  LAMBDA +3(L+3)                 4F13873 
       SLN 1                                                            4F13874 
LA1000 CLS CBAR                                                         4F13875 
       ARS 18                                                           4F13876 
       SLW ALPHA,C           STO -C  IN ALPHA+A                         4F13877 
       TXI LA1040,C,-3       -A  TO - (A+3)                             4F13878 
LA1040 SXD ABAR,C                                                       4F13879 
       TRA LA4010                                                       4F13880 
L22000 PXD ,B                                                           4F13881 
       ARS 18                                                           4F13882 
       STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13883 
       ADD L(1)                                                         4F13884 
       TXI L23130,B,1        -(N+1)  TO  -N                             4F13885 
L23000 PXD ,B                                                           4F13886 
       ARS 18                                                           4F13887 
       STO LAMBDA+8,A        STO S(N+1)  IN LAMBDA+3(L+2)+2             4F13888 
       ADD L(1)                                                         4F13889 
       SSM                                                              4F13890 
       TXI L23090,B,1        -(N+1)  TO -N                              4F13891 
L23090 STO LAMBDA+6,A        STO -N  IN LAMBDA+3(L+2)                   4F13892 
L23130 SLW ALPHA,C           STO -N  IN ALPHA +A                        4F13893 
       CLS L(0)                                                         4F13894 
       STO LAMBDA+3,A        STO -0  IN LAMBDA+3(L+11                   4F13895 
       SLN 1                                                            4F13896 
LA2000 CLS ALPHA-1,C                                                    4F13897 
       STO LAMBDA,A          STO C(ALPHA+A-1) IN LAMBDA+3L              4F13898 
       CLA NBAR                                                         4F13899 
       TXI LA4180,A,6                                                   4F13900 
L43130 SLW ALPHA,C           STO -(N+2) IN ALPHA+A                      4F13901 
       CLS L(0)                                                         4F13902 
       STO LAMBDA+9,A        STO -0 IN LAMBDA+3(L+3)                    4F13903 
       SLN 1                                                            4F13904 
LA4000 CLS ALPHA-3,C                                                    4F13905 
LA4010 STO LAMBDA,A          STO C(ALPHA+A-3) IN LAMBDA+3L              4F13906 
       CLS NBAR                                                         4F13907 
       ARS 18                                                           4F13908 
       SLW ALPHA-2,C         STO-N IN ALPHA+A-2                         4F13909 
       SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13910 
       STO LAMBDA+3,A        STO -N IN LAMBOA+3(L+1)                    4F13911 
       PXD ,B                                                           4F13912 
       ARS 18                                                           4F13913 
       STO LAMBDA+5,A        STO S(N+1)  IN  LAMBDA+3(L+1)+2            4F13914 
       STO ALPHA-1,C         STO-(N+1)  IN ALPHA+A-1                    4F13915 
       SSM                                                              4F13916 
       STO LAMBDA+6,A        STO -(N+1)  IN  LAMBDA+3(L+2)              4F13917 
       TXI LA4150,B,-1       -(N+1)  TO -(N+2)                          4F13918 
LA4150 CAL ADSTAR                                                       4F13919 
       SLW LAMBDA+4,A        STO *  IN LAMBDA+3(L+1)+1                  4F13920 
LA4170 PXD ,B                                                           4F13921 
LA4180 ARS 18                '                                          4F13922 
       STO LAMBDA+8,A        STOS(N+2) IN LAMBDA+3(L+2)+2               4F13923 
       ORS LAMBDA+9,A        STO -(N+2)  IN LAMBDA+3(L+3)               4F13924 
       CAL STRSTR                                                       4F13925 
       SLW LAMBDA+7,A        STO SPOP  IN LAMBDA+3(L+2)+1               4F13926 
       CAL ADSPOP                                                       4F13927 
       ORA FSBITS                                                       4F13928 
       ORA FNBITS                                                       4F13929 
       SLW LAMBDA+10,A       STO SPOP  IN LAMBDA+3(L+3)+1               4F13930 
LA4320 TXI **,A,-9                                                      4F13931 
L32000 PXD ,B                                                           4F13932 
       ARS 18                                                           4F13933 
       STO LAMBDA+8,A        STO 5(N+2) IN LAMBDA+3(L+2)+2              4F13934 
       ADD L(1)                                                         4F13935 
       TXI L33130,B,1        -(N+2)  TO -(N+1)                          4F13936 
L33000 PXD ,B                                                           4F13937 
       ARS 18                                                           4F13938 
       STO LAMBDA+11,A       STO S(N+2) IN LAMBDA+3(L+3)+2              4F13939 
       ADD L(1)                                                         4F13940 
       SSM                                                              4F13941 
       TXI L33090,B,1        -(N+2)  TO -(N+1)                          4F13942 
L33090 STO LAMBDA+9,A        STO -(N+1) IN LAMBDA+3(L+3)                4F13943 
L33130 SLW ALPHA,C           STO -(N+1) IN ALPHA+A                      4F13944 
       CLS L(0)                                                         4F13945 
       STO LAMBDA+6,A                                                   4F13946 
       SLN 1                                                            4F13947 
LA3000 CLS ALPHA-2,C                                                    4F13948 
       STO LAMBDA,A          STO C(ALPHA+A-2) IN LAMBDA+3L              4F13949 
       CLS NBAR                                                         4F13950 
       ARS 18                                                           4F13951 
       SLW ALPHA-1,C         STO -N IN ALPHA+A-1                        4F13952 
       SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13953 
       STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13954 
       TXI LA4170,A,3                                                   4F13955 
CM4100 TXI CM4101,A,-3       LA COUNTER MODIFICATION ROUTINES           4F13956 
CM4101 SXD 3LBAR,A                                                      4F13957 
CM4102 SXD CBAR,B                                                       4F13958 
       TXI CM4104,B,-1                                                  4F13959 
CM4104 SXD NBAR,B                                                       4F13960 
CM4105 *** MS010,0                                                      4F13961 
MS020  CAL ADSTAR                                                       4F13962 
       TRA MS030                                                        4F13963 
CM4200 TXI CM4201,A,-3                                                  4F13964 
CM4201 SXD 3LBAR,A                                                      4F13965 
       TXI CM4303,C,-1                                                  4F13966 
CM4300 TXI CM4301,A,-6                                                  4F13967 
CM4301 SXD 3LBAR,A                                                      4F13968 
       TXI CM4303,C,-1                                                  4F13969 
CM4303 SXD ABAR,C                                                       4F13970 
       TXI CM4102,B,-1                                                  4F13971 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972 
       REM                                                              4F13973 
       REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE            4F13974 
C3390  SXD C3357,1                SAVE CALLING IR                       4F13975 
       SLW 1G                     MOVE WORD TO BE ENTERED TO 1G         4F13976 
       TSX TET00,1                GO TO ENTER WORD IN HOLARG TABLE      4F13977 
           13                                                           4F13978 
       CLA HOLCNT                                                       4F13979 
       ADD L(1)                   UPDATE HOLCNT                         4F13980 
       STO HOLCNT                                                       4F13981 
       LXD C3357,1                RELOAD CALLING IR                     4F13982 
       TRA 1,1                    RETURN TO CALLER+1                    4F13983 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984 
       REM                                                              4F13985 
       REM PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN   4F13986 
       REM SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987 
SS000X SXD SSIR4,4           SAVE CALLING TAG.                          4F13988 
       TSX SS000,4           GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989 
       TSX RA000,4           GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990 
       CAL GTAG                                                         4F13991 
       ANA MASK1                                                        4F13992 
       SLW E+11                                                         4F13993 
       TSX SIG1IX,4          GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.  4F13994 
       ALS 15                POSITION SIGMA TAG.                        4F13995 
       ORS E                 ADD SIGMA TAG TO I-TAU TAGS IN E.          4F13996 
       LXD SSIR4,4           RELOAD CALLING TAG.                        4F13997 
       TRA 1,4               RETURN TO CALLER +1.                       4F13998 
       REM                                                              4F13999 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000 
       REM                                                              4F14001 
       REM ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.                    4F14002 
       REM ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION  4F14003 
       REM ARITHMETIC.                                                  4F14004 
       REM ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS,     4F14005 
ROYCNV STO N                        SAVE DECIMAL DIGIT IN N.            4F14006 
       SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14007 
       STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14008 
       CLA CM1                      PICK UP SWITCH CONTROL.             4F14009 
EXIT   TXI IN2,0,**                 AND GO SET SWITCH.                  4F14010 
       REM DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS.             4F14011 
DECPNT STZ N                        CLEAR N (NO INTEGER).               4F14012 
       SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14013 
       STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14014 
NC7    CAL CM1                      PICK UP SWITCH CONTROL.             4F14015 
IN2    STP CM2                      SET SWITCHES CM2, AND               4F14016 
       STP CM3                      CM3.                                4F14017 
       TOV NC5                      TURN OFF OV TRIGGER.                4F14018 
NC5    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14019 
       SLW CHSAVE                   SAVE IT FOR STATE B, AND THEN       4F14020 
       CAS L(H)                     COMPARE IT WITH H.                  4F14021 
       TXI NC1,0                    IF H, GO TO HEXIT,                  4F14022 
SSIR4  TXI HEXIT,0                  IF NOT H, CONTINUE                  4F14023 
NC1    CAS TEN                      AND COMPARE WITH TEN.               4F14024 
CM1    TXL NC2,0                    CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025 
       PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14026 
       STO H                        CHARACTER IS NUMERIC SO HOLD IT.    4F14027 
       CLA N                        MULTIPLY THE PREVIOUS               4F14028 
       ALS 2                        PARTIAL RESULT (OR ZERO)            4F14029 
       ADD N                        BY 10,                              4F14030 
       ALS 1                        AND ADD IN                          4F14031 
       ADD H                        THE CURRENT DIGIT.                  4F14032 
CM2    TXH NC3,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14033 
       TOV NC4                      TEST OVERFLOW, AND                  4F14034 
       STO N                        IF NONE, SAVE NEW PARTIAL RESULT.   4F14035 
       TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14036 
NC2    CAS POINT                    COMPARE NON-NUMERIC WITH A POINT.   4F14037 
       TXI CM3,0                    IF GREATER THAN 27, GO OUT.         4F14038 
       TXI NC7,0                    IF POINT, GO BACK AND SET SWITCH.   4F14039 
       CAS L(E)                     IF LESS THAN 27, COMPARE WITH E.    4F14040 
       TXI CM3,0                    IF GREATER THAN 21, GO OUT.         4F14041 
       TXI EC1,0                    IF E, GO TO EXPONENT ROUTINE.       4F14042 
CM3    TXH FN4,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14043 
       CLA N                        PICK UP CONVERTED CONSTANT, AND     4F14044 
MS9506 ALS 18                       STORE IN THE                        4F14045 
       STO G                        DECREMENT OF G, AND                 4F14046 
       TSX FXCNIX,4               * GO MAKE FIXCON ENTRY.               4F14047 
       ORA FIXVAR                   CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048 
       TXI EXITR,0                  GO TAKE EXITR.                      4F14049 
NC3    TOV NC8                      IF THERE WAS NO OVERFLOW,           4F14050 
       STO N                        SAVE PARTIAL RESULT, AND            4F14051 
       CLS L(1)                     SUBTRACT 1 FROM DOE                 4F14052 
NC9    ADD DOE                      TO ADJUST EXPONENT                  4F14053 
       STO DOE                      IN FINAL RESULT.                    4F14054 
NC8    TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14055 
NC4    CLA L(1)                     ADD 1 TO DOE ,                      4F14056 
       TXI NC9,0                    IF THERE WAS INTEGER OVERFLOW.      4F14057 
EC1    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14058 
       SLW CHSAVE                   SAVE IT FOR STATE B, AND            4F14059 
       STZ EKE                      CLEAR EKE (EXPLICIT EXPONENT).      4F14060 
       CAS 11Z                      COMPARE CHARACTER WITH A DASH.      4F14061 
       TXI FN5,0                    IF GREATER THAN 32, GO OUT.         4F14062 
       TXI EC3,0                    IF A DASH, SET EKE MINUS.           4F14063 
       CAS 12Z                      IF LESS THAN 32, COMPARE WITH PLUS. 4F14064 
       TXI FN5,0                    IF GREATER THAN 16, GO OUT.         4F14065 
       TXI EC6,0                    IF PLUS, GO EXAMINE NEXT CHAR.      4F14066 
       CAS MINUS                    IF LESS THAN 16,COMPARE WITH MINUS. 4F14067 
       TXI FN5,0                    IF GREATER THAN 12, GO OUT.         4F14068 
EC3    CLS EKE                      IF MINUS, SET EKE TO -0.            4F14069 
       CAS TEN                      COMPARE WITH TEN.                   4F14070 
       TXI FN5,0                    IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071 
EC4    PXD ,0                       CLEAR ACC,                          4F14072 
EC5    STO EKE                      SAVE PARTIAL RESULT(OR 0)IN EKE.    4F14073 
EC6    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14074 
       SLW CHSAVE                   SAVE IT FOR STATE B,                4F14075 
       CAS TEN                      AND COMPARE WITH TEN.               4F14076 
       TXI FN5,0                    CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077 
       PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14078 
       STO H                        CHARACTER IS NUMERIC, SO HOLD IT.   4F14079 
       CLA EKE                      MULTIPLY THE PREVIOUS               4F14080 
       ALS 2                        PARTIAL RESULT (OR ZERO)            4F14081 
       ADD EKE                      BY 10,                              4F14082 
       ALS 1                        AND ADD IN                          4F14083 
       ACL H                        THE CURRENT DIGIT.                  4F14084 
       TXI EC5,0                    CONTINUE UNTIL NON-NUMERIC IS MET.  4F14085 
FN5    CLA EKE                      COMBINE EXPLICIT EXPONENT           4F14086 
       ADD DOE                      WITH IMPLICIT EXPONENT,             4F14087 
       STO DOE                      AND SAVE IN DOE.                    4F14088 
FN4    CLA N                        IF N CONTAINS ZERO, TAKE            4F14089 
       TZE MS9500                   FLO PT CONSTANT RETURN.             4F14090 
       STA K1                       PUT INTEGER INTO FLO PT WORD,       4F14091 
       ARS 15                       ADJUST, AND                         4F14092 
       TZE FN1                      IF MORE THAN 15 BITS IN LENGTH      4F14093 
       ORA K2                       AFFIX CORRECT EXPONENT.             4F14094 
FN1    FAD K1                       THEN FLOATING ADD THE RESULT        4F14095 
       RQL 8                        OF INTEGER CONVERSION, AND          4F14096 
       RND                          ROUND --TO OBTAIN                   4F14097 
       ORA K3                       NORMALIZED RESULT.                  4F14098 
       LXA DOE,1                    EXAMINE THE C(DOE), AND             4F14099 
       TXL MS9500,1,0               IF ZERO, TAKE FLO PT RETURN.        4F14100 
       TXL FN2,1,50                 IF GREATER THAN 50, THEN            4F14101 
       TXI CER,0                    ERROR. -GO TO DIAGNOSTIC            4F14102 
FN2    LDQ DOE                      DETERMINE WHETHER INTEGER WAS       4F14103 
       TQP FN3                      TO THE RIGHT OR TO THE LEFT OF DP,  4F14104 
       FDP TAB,1                    IF TO THE RIGHT, DIVIDE BY A        4F14105 
       STQ N                        SUITABLE CONSTANT                   4F14106 
       CLA N                        TO ADJUST RESULT                    4F14107 
       ACL K4                       AND TEST FOR OUT OF RANGE.          4F14108 
       PBT                          IF P=I, SKIP TO ARITH RETURN.       4F14109 
       TXI CER,0                    ERROR. --GO TO DIAGNOSTIC           4F14110 
MS9500 STO G                        STORE IN G, AND                     4F14111 
       TSX FLCNIX,4               * GO MAKE FLOCON ENTRY.               4F14112 
       ORA FLOVAR                   CREATE INTERNAL FLO-PT VARIABLE,    4F14113 
EXITR  SLW E+2                      SAVE VARIABLE IN E+2,               4F14114 
       LXD EXIT,4                   RESTORE THE C(XR4), AND             4F14115 
       TRA 2,4                    * RETURN TO MAIN ROUTINE.             4F14116 
FN3    STO N                        IF INTEGER WAS SITUATED             4F14117 
       LDQ N                        TO THE LEFT OF THE DECIMAL POINT,   4F14118 
       FMP TAB,1                    MULTIPLY BY A SUITABLE              4F14119 
       ACL K5                       CONSTANT TO ADJUST AND TEST RANGE.  4F14120 
       PBT                          IF P=I, SKIP TO ERROR,              4F14121 
       TXI MS9500,0                 RETURN TO ARITHMETIC ROUTINE,       4F14122 
 CER   TSX DIAG,4                 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123 
HEXIT  LXD EXIT,4                   RESTORE THE C(XR4), AND             4F14124 
       TRA 1,4                    * RETURN TO MAIN ROUTINE.             4F14125 
       REM                                                              4F14126 
K1     OCT 233000000000             CONSTANT USED BY ROYCNV.            4F14127 
K2     OCT 252000000000             CONSTANT USED BY ROYCNV.            4F14128 
K3     OCT 400000000                CONSTANT USED BY ROYCNV.            4F14129 
K4     OCT 335000000000             CONSTANT USED BY ROYCNV.            4F14130 
K5     OCT 43000000000              CONSTANT USED BY ROYCNV.            4F14131 
L(E)   BCD 100000E                  CONSTANT USED BY ROYCNV.            4F14132 
       REM                                                              4F14133 
       OCT 375536246150             48-TABLE USED BY ROYCNV.            4F14134 
       OCT 372430204754             47-TABLE USED BY ROYCNV.            4F14135 
       OCT 366700324573             46-TABLE USED BY ROYCNV.            4F14136 
       OCT 363546566774             45-TABLE USED BY ROYCNV.            4F14137 
       OCT 360436770626             44-TABLE USED BY ROYCNV.            4F14138 
       OCT 354713132675             43-TABLE USED BY ROYCNV.            4F14139 
       OCT 351557257061             42-TABLE USED BY ROYCNV.            4F14140 
       OCT 346445677215             41-TABLE USED BY ROYCNV.            4F14141 
       OCT 342726145174             40-TABLE USED BY ROYCNV.            4F14142 
       OCT 337570120775             39-TABLE USED BY ROYCNV.            4F14143 
       OCT 334454732312             38-TABLE USED BY ROYCNV.            4F14144 
       OCT 330741367020             37-TABLE USED BY ROYCNV,            4F14145 
       OCT 325601137163             36-TABLE USED BY ROYCNV.            4F14146 
       OCT 322464114134             35-TABLE USED BY ROYCNV.            4F14147 
       OCT 316755023372             34-TABLE USED BY ROYCNV.            4F14148 
       OCT 313612334310             33-TABLE USED BY ROYCNV.            4F14149 
       OCT 310473426555             32-TABLE USED BY ROYCNV.            4F14150 
       OCT 304770675742             31-TABLE USED BY ROYCNV.            4F14151 
       OCT 301623713116             30-TABLE USED BY ROYCNV.            4F14152 
       OCT 276503074076             29-TABLE USED BY ROYCNV.            4F14153 
       OCT 273402374713             28-TABLE USED BY ROYCNV.            4F14154 
       OCT 267635456171             27-TABLE USED BY ROYCNV.            4F14155 
       OCT 264512676456             26-TABLE USED BY ROYCNV.            4F14156 
       OCT 261410545213             25-TABLE USED BY ROYCNV.            4F14157 
       OCT 255647410337             24-TABLE USED BY ROYCNV.            4F14158 
       OCT 252522640262             23-TABLE USED BY ROYCNV.            4F14159 
       OCT 247417031702             22-TABLE USED BY ROYCNV.            4F14160 
       OCT 243661534466             21-TABLE USED BY ROYCNV.            4F14161 
       OCT 240532743536             20-TABLE USED BY ROYCNV.            4F14162 
       OCT 235425434430             19-TABLE USED BY ROYCNV.            4F14163 
       OCT 231674055530             18-TABLE USED BY ROYCNV.            4F14164 
       OCT 226543212741             17-TABLE USED BY ROYCNV.            4F14165 
       OCT 223434157116             16-TABLE USED BY ROYCNV.            4F14166 
       OCT 217706576512             15-TABLE USED BY ROYCNV.            4F14167 
       OCT 214553630410             14-TABLE USED BY ROYCNV.            4F14168 
       OCT 211443023471             13-TABLE USED BY ROYCNV.            4F14169 
       OCT 205721522451             12-TABLE USED BY ROYCNV.            4F14170 
       OCT 202564416672             11-TABLE USED BY ROYCNV.            4F14171 
       OCT 177452013710             10-TABLE USED BY ROYCNV.            4F14172 
       OCT 173734654500             09-TABLE USED BY ROYCNV.            4F14173 
       OCT 170575360400             08-TABLE USED BY ROYCNV.            4F14174 
       OCT 165461132000             07-TABLE USED BY ROYCNV.            4F14175 
       OCT 161750220000             06-TABLE USED BY ROYCNV.            4F14176 
       OCT 156606500000             05-TABLE USED BY ROYCNV.            4F14177 
       OCT 153470400000             04-TABLE USED BY ROYCNV.            4F14178 
       OCT 147764000000             03-TABLE USED BY ROYCNV.            4F14179 
       OCT 144620000000             02-TABLE USED BY ROYCNV.            4F14180 
       OCT 141500000000             01-TABLE USED BY ROYCNV.            4F14181 
 TAB   OCT 136400000000             00-TABLE USED BY ROYCNV.            4F14182 
       REM END OF PROGRAM ROYCNV.                                       4F14183 
       REM ******************************                              *4F14184 
       REM                                                              4F14185 
SIG1ST PZE SIGMA1+2,,1                                                  4F14186 
ENDBDR BSS 0                                                            4F141865
       REM                                                              4F14187 
ENDB   ORG 2701                                                         4F14188 
ARGREG BSS 50                                                           4F14189 
CBAR   BSS 1                                                            4F14190 
ABAR   BSS 1                                                            4F14191 
FSTYPE BSS 1                                                            4F14192 
FSBITS BSS 1                                                            4F14193 
FNBITS BSS 1                                                            4F14194 
FNCTR  BSS 1                                                            4F14195 
ALPHA  BSS 139                                                          4F14196 
LAMBDA BSS 1200                                                         4F14197 
       REM END OF ARITHMETIC / STATE B.                                 4F14198 
       REM ******************************                              *4F14199 
       REM                                                              4F14200 
       REM ARITHMETIC / STATE C=                                        4F14201 
       REM 704 FORTRAN MASTER RECORD CARD / STATE C = F0170000.         4F14202 
       ORG 0                                                            4F142021
       PZE ORGC,,DMWR03                                                 4F142022
       PZE ENDC-1                                                       4F142023
       REM                                                              4F14203 
       REM STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE,              4F14204 
       REM                                                              4F14205 
ORGC   ORG 1824                                                         4F14206 
R00000 LDQ L(0)             CLEAR MQ                                    4F14207 
       LXD NBAR,A           LDXA WITH -N                                4F14208 
       SXD R00700,A                                                     4F14209 
       SXD R05200,A                                                     4F14210 
       SXD AS0800,A                                                     4F14211 
       SXD AS2900,A                                                     4F14212 
       LXA L(0),7           CLEAR XA,XB,XC,                             4F14213 
R00500 STQ BETA,B                                                       4F14214 
       TXI R00700,B,-1                                                  4F14215 
R00700 TXH R00500,B,0                                                   4F14216 
       CLA 3LBAR                                                        4F14217 
       STD R01700                                                       4F14218 
       STD R06200                                                       4F14219 
R01000 CLA LAMBDA,A          ADD INTO GAMMA COUNTERS                    4F14220 
       PAX 0,B                                                          4F14221 
       CLA BETA,B                                                       4F14222 
       ADD BETAD1            (-3)*2**18+(-3)                            4F14223 
       STD BETA,B                                                       4F14224 
       STA BETA,B                                                       4F14225 
       TXI R01700,A,-3                                                  4F14226 
R01700 TXH R01000,A,0        -3L IN XA AT END                           4F14227 
R01800 TXH R04200,A,-6       EXIT FROM SINGLE ELEMENT REDUCTION         4F14228 
       CLA LAMBDA-3,A                                                   4F14229 
       PAX 0,B                                                          4F14230 
       CLA BETA,B                                                       4F14231 
       SUB BETAD1                                                       4F14232 
       TZE R02600                                                       4F14233 
       TXI R01800,A,3                                                   4F14234 
R02600 LDQ LAMBDA-2,A        SINGLE ELEMENT                             4F14235 
       LGL 6                 EXAMINE OPERATION                          4F14236 
       SUB 11Z                                                          4F14237 
       TNZ R03200                                                       4F14238 
       TXI R01800,A,3                                                   4F14239 
R03200 CAL MASK1             SINGLE ELEMENT, NON-UNARY OP               4F14240 
       ANS LAMBDA-3,A        EXTRACT TAGS AND STORE BACK                4F14241 
       CLA LAMBDA-6,A                                                   4F14242 
       ORA LAMBDA-3,A                                                   4F14243 
       SLW LAMBDA-6,A                                                   4F14244 
       CAL LAMBDA-2,A        EXTRACT FS BITS AND STORE BACK             4F14245 
       ANA MASK5                                                        4F14246 
       ORS LAMBDA-5,A                                                   4F14247 
       CAL LAMBDA-1,A        STORE BACK SYMBOL                          4F14248 
       SLW LAMBDA-4,A                                                   4F14249 
       STZ BETA,3            REDUCE GAMMA COUNT TO 0                    4F14250 
       STZ LAMBDA-3,A        CLEAR TAG WORD                             4F14251 
       TXI R01800,A,3        RESUME SCAN-BACK                           4F14252 
R04200 STZ G                                                            4F14253 
       LXA L(0),7            CLEAR XA,XB,XC                             4F14254 
R04500 CLA BETA,B            SET ORIGINS OF SCRIPL TABLE                4F14255 
       TZE R05100                                                       4F14256 
       LDQ G                                                            4F14257 
       SLQ BETA,B                                                       4F14258 
       ADD G                                                            4F14259 
       STD G                                                            4F14260 
R05100 TXI R05200,B,-1                                                  4F14261 
R05200 TXH R04500,B,0        DEC(K)=DEC(ACC)=-3P AT END                 4F14262 
R05300 CAL LAMBDA,A          STRING BEADS... COMPRESS LAMBDA TABLE      4F14263 
       TZE R06100                                                       4F14264 
       SLW LAMBDA,C                                                     4F14265 
       CLA LAMBDA+1,A                                                   4F14266 
       STO LAMBDA+1,C                                                   4F14267 
       CLA LAMBDA+2,A                                                   4F14268 
       STO LAMBDA+2,C                                                   4F14269 
       TXI R06100,C,-3                                                  4F14270 
R06100 TXI R06200,A,-3                                                  4F14271 
R06200 TXH R05300,A,0                                                   4F14272 
       SXD R07800,C          -3P IN XC AT END                           4F14273 
       SXD CS0760,C                                                     4F14274 
       LXA L(0),A                                                       4F14275 
R06400 CLA LAMBDA,A          STORE ORDERED, REDUCED LAMBDA TABLE        4F14276 
       PAX 0,B               IN SCRIPL TABLE                            4F14277 
       CLA BETA,B                                                       4F14278 
       PDX 0,C                                                          4F14279 
       CLA LAMBDA,A                                                     4F14260 
       STO SCRIPL,C                                                     4F14281 
       CLA LAMBDA+1,A                                                   4F14282 
       STO SCRIPL+1,C                                                   4F14283 
       CLA LAMBDA+2,A                                                   4F14284 
       STO SCRIPL+2,C                                                   4F14265 
       TXI R07500,C,-3                                                  4F14286 
R07500 PXD 0,C                                                          4F14287 
       STD BETA,B                                                       4F14288 
       TXI R07800,A,-3                                                  4F14289 
R07800 TXH R06400,A,0        -3P IN XA AT END                           4F14290 
CS0000 LDQ L(0)              ELIMINATE COMMON SEGMENTS                  4F14291 
CS0010 CAL SCRIPL-3,A                                                   4F14292 
       TZE CS0080            ERASED SEGMENT - CONTINUE BACK-SCAN        4F14293 
CS0030 PAX 0,B                                                          4F14294 
       TXL CS0660,B,0        EXIT FROM CS ROUTINE                       4F14295 
       STA CS0030                                                       4F14296 
       CLA BETA,B                                                       4F14297 
CS0060 PAX 0,C                                                          4F14298 
       TXL CS0090,C,-6       AT LEAST TWO ELEMENTS                      4F14299 
CS0080 TXI CS0010,A,3        ONE ELEMENT OR ERASED SEGMENT              4F14300 
CS0090 SXD CS0470,A          SAVE XA                                    4F14301 
       SXD LENGTH,C          SAVE XC, CONTAINING LENGTH OF SEGMENT      4F14302 
CS0100 TXL CS0130,C,0        SEARCH UP FOR MATCHING SEGMENT             4F14303 
       TXI CS0120,A,3                                                   4F14304 
CS0120 TXI CS0100,C,3                                                   4F14305 
CS0130 CAL SCRIPL-3,A                                                   4F14306 
       TNZ CS0151                                                       4F14307 
       TXI CS0130,A,3        ERASED SEGMENT                             4F14308 
CS0151 PAX 0,B                                                          4F14309 
       TXL CS0610,B,0        GO ON TO NEXT SEGMENT                      4F14310 
       STA CS0060                                                       4F14311 
       CLA BETA,B                                                       4F14312 
       PAX 0,C                                                          4F14313 
       PXD 0,C                                                          4F14314 
       SUB LENGTH                                                       4F14315 
       TNZ CS0100            NOT SAME LENGTH SEGMENT-CONTINUE SEARCH    4F14316 
       LXD CS0470,B          SAME LENGTH SEGMENT                        4F14317 
       SXD CS0600,A                                                     4F14318 
CS0250 TXL CS0430,C,0        MATCHING SEGMENTS                          4F14319 
       CLA SCRIPL-1,B                                                   4F14320 
       SUB SCRIPL-1,A                                                   4F14321 
       TNZ CS0100                                                       4F14322 
       CAL SCRIPL-3,B        SYMBOLS MATCH                              4F14323 
       ANA MASK1                                                        4F14324 
       SLW G                                                            4F14325 
       CAL SCRIPL-3,A                                                   4F14326 
       ANA MASK1                                                        4F14327 
       COM                                                              4F14328 
       ACL G                                                            4F14329 
       COM                                                              4F14330 
       TNZ CS0100                                                       4F14331 
       CLA SCRIPL-2,B        TAGS MATCH                                 4F14332 
       ARS 6                                                            4F14333 
       ALS 6                                                            4F14334 
       SUB SCRIPL-2,A                                                   4F14335 
       TNZ CS0100                                                       4F14336 
       TXI CS0360,A,3        OPS MATCH                                  4F14337 
CS0360 TXI CS0370,B,3                                                   4F14338 
CS0370 TXI CS0250,C,3                                                   4F14339 
CS0430 CAL SCRIPL,A          MATCHING SEGMENTS                          4F14340 
       ANA MASK2             SEARCH FOR REFERENCES                      4F14341 
CS0450 CAS SCRIPL-1,A                                                   4F14342 
       TXI CS0450,A,3                                                   4F14343 
CS0470 TXI CS0490,0,0                                                   4F14344 
       TXI CS0450,A,3                                                   4F14345 
CS0490 CLA CS0030            CHANGE REFERENCE                           4F14346 
       STA SCRIPL-1,A                                                   4F14347 
       LXD LENGTH,C                                                     4F14348 
       LXD CS0600,A                                                     4F14349 
CS0530 TXL CS0570,C,0        ERASE DUPLICATE SEGMENT                    4F14350 
       STQ SCRIPL-3,A                                                   4F14351 
       TXI CS0560,A,3                                                   4F14352 
CS0560 TXI CS0530,C,3                                                   4F14353 
CS0570 LXA CS0060,C                                                     4F14354 
       STQ BETA,C                                                       4F14355 
       CAL 11Z               STORE CS BIT                               4F14356 
       ORS SCRIPL+1,B                                                   4F14357 
CS0600 TXI CS0130,0,0                                                   4F14358 
CS0610 LXD CS0470,A                                                     4F14359 
       LXD LENGTH,C                                                     4F14360 
CS0630 TXL CS0010,C,0                                                   4F14361 
       TXI CS0650,A,3                                                   4F14362 
CS0650 TXI CS0630,C,3                                                   4F14363 
CS0660 LXA L(0),5            STRING BEADS... COMPRESS SCRIPL TABLE      4F14364 
CS0670 CAL SCRIPL,A                                                     4F14365 
       TZE CS0750                                                       4F14366 
       SLW SCRIPL,C                                                     4F14367 
       CLA SCRIPL+1,A                                                   4F14368 
       STO SCRIPL+1,C                                                   4F14369 
       CLA SCRIPL+2,A                                                   4F14370 
       STO SCRIPL+2,C                                                   4F14371 
       TXI CS0750,C,-3                                                  4F14372 
CS0750 TXI CS0760,A,-3                                                  4F14373 
CS0760 TXH CS0670,A,0                                                   4F14374 
       SXD PM0080,C          -3Q IN XC AT END                           4F14375 
       SXD AS1800,C                                                     4F14376 
       SXD AS3600,C                                                     4F14377 
PM0000 SLF                   TURN OFF ALL SENSE LITES                   4F14378 
       LXA L(0),A            PERMUTE * AND /                            4F14379 
PM0010 CLA SCRIPL,A                                                     4F14380 
       PAX 0,B                                                          4F14381 
       CLA BETA,B                                                       4F14382 
       PAX 0,C               LDXC WITH SEGMENT LENGTH                   4F14383 
       SXD PM0070,C                                                     4F14384 
       TXL PM0100,C,-9                                                  4F14385 
PM0070 TXI PM0080,A,0        LENGTH LESS THAN 3 OR OD NOT = TO *        4F14386 
PM0080 TXL AS0000,A,0        EXIT FROM PERMUTATION ROUTINE              4F14387 
       TRA PM0010                                                       4F14388 
PM0100 LDQ SCRIPL+1,A        SEGMENT LENGTH AT LEAST = TO 3             4F14389 
       PXD 0,0                                                          4F14390 
       LGL 6                                                            4F14391 
       SUB STAR                                                         4F14392 
       TNZ PM0070                                                       4F14393 
       TQP PM0170                                                       4F14394 
       TRA PM0070                                                       4F14395 
PM0170 SXD PM0260,C                                                     4F14396 
       SXD PM0400,C                                                     4F14397 
       SXD PM0680,C                                                     4F14398 
       LXA L(0),C            LDXC WITH 0                                4F14399 
       TXI PM0240,A,-3                                                  4F14400 
PM0240 SLN 3                 TURN * LITE ON                             4F14401 
PM0250 TXI PM0260,C,-3                                                  4F14402 
PM0260 TXL PM0790,C,0        EXIT                                       4F14403 
       SXD PM0340,C                                                     4F14404 
       LXD PM0290,B                                                     4F14405 
PM0290 TXI PM0300,3,0        XA TO XA AND XB                            4F14406 
PM0300 PXD 0,0                                                          4F14407 
       LDQ SCRIPL+1,A                                                   4F14408 
       LGL 6                                                            4F14409 
       CAS SLASH                                                        4F14410 
FEXUB  HTR 0,0,7                                                        4F14411 
PM0340 TXL PM0640,0,0        / SIGN                                     4F14412 
       SLT 3                 * SIGN... IS * LITE ON                     4F14413 
       TXI PM0240,A,-3       NO                                         4F14414 
       TXI PM0390,B,-3       YES - SEARCH FOR / SIGN                    4F14415 
PM0390 TXI PM0400,C,-3                                                  4F14416 
PM0400 TXL PM0770,C,0        EXIT                                       4F14417 
       PXD 0,0                                                          4F14418 
       LDQ SCRIPL+1,B                                                   4F14419 
       LGL 6                                                            4F14420 
       SUB SLASH                                                        4F14421 
       TZE PM0480                                                       4F14422 
       TXI PM0390,B,-3                                                  4F14423 
PM0480 CLA SCRIPL,A          PERMUTE TAG WORDS                          4F14424 
       LDQ SCRIPL,B                                                     4F14425 
       STQ SCRIPL,A                                                     4F14426 
       STO SCRIPL,B                                                     4F14427 
       CLA SCRIPL+1,A        PERMUTE OP WORDS                           4F14428 
       LDQ SCRIPL+1,B                                                   4F14429 
       STQ SCRIPL+1,A                                                   4F14430 
       STO SCRIPL+1,B                                                   4F14431 
       CLA SCRIPL+2,A        PERMUTE SYMBOL WORDS                       4F14432 
       LDQ SCRIPL+2,B                                                   4F14433 
       STQ SCRIPL+2,A                                                   4F14434 
       STO SCRIPL+2,B                                                   4F14435 
       LXD PM0340,C                                                     4F14436 
       TXI PM0250,A,-3       RESUME SEGMENT SCAN                        4F14437 
PM0640 SLT 3                 / SIGN... IS * LITE ON                     4F14438 
PM0650 TXI PM0670,B,-3       NO                                         4F14439 
       TXI PM0250,A,-3                                                  4F14440 
PM0670 TXI PM0680,C,-3                                                  4F14441 
PM0680 TXL PM0770,C,0                                                   4F14442 
       PXD 0,0                                                          4F14443 
       LDQ SCRIPL+1,B                                                   4F14444 
       LGL 6                                                            4F14445 
       SUB SLASH                                                        4F14446 
       TZE PM0650                                                       4F14447 
       SLN 3                 TURN *  LITE  ON                           4F14448 
       TRA PM0480                                                       4F14449 
PM0770 LXD PM0780,A                                                     4F14450 
PM0780 TXI PM0790,3,0        XB TO XA,XB                                4F14451 
PM0790 PXD 0,0                                                          4F14452 
       LDQ SCRIPL-2,A                                                   4F14453 
       LGL 6                                                            4F14454 
       SUB SLASH                                                        4F14455 
       TZE PM0080            ... / - EXIT FROM SEGMENT SCAN             4F14456 
       PXD 0,0                                                          4F14457 
       LDQ SCRIPL-5,A                                                   4F14458 
       LGL 6                                                            4F14459 
       SUB SLASH                                                        4F14460 
       TZE PM0080            ... / * - EXIT FROM SEGMENT SCAN           4F14461 
       CLA SCRIPL-3,A        ... **                                     4F14462 
       STO E                                                            4F14463 
       CLA SCRIPL-2,A                                                   4F14464 
       STO E+1                                                          4F14465 
       CLA SCRIPL-1,A                                                   4F14466 
       STO E+2                                                          4F14467 
       TXI PM0980,A,3                                                   4F14468 
PM0980 TXI PM0990,C,3                                                   4F14469 
PM0990 TXL PM1070,C,0        FINIS                                      4F14470 
       CLA SCRIPL-3,A                                                   4F14471 
       STO SCRIPL,A                                                     4F14472 
       CLA SCRIPL-2,A                                                   4F14473 
       STO SCRIPL+1,A                                                   4F14474 
       CLA SCRIPL-1,A                                                   4F14475 
       STO SCRIPL+2,A                                                   4F14476 
       TXI PM0980,A,3                                                   4F14477 
PM1070 CLA E                                                            4F14478 
       STO SCRIPL,A                                                     4F14479 
       CLA E+1                                                          4F14480 
       STO SCRIPL+1,A                                                   4F14481 
       CLA E+2                                                          4F14482 
       STO SCRIPL+2,A                                                   4F14483 
       CAL SCRIPL+4,A        PRESERVE CS BIT                            4F14484 
       ANA 11Z                                                          4F14485 
       ORS SCRIPL+1,A                                                   4F14486 
       TRA PM0070                                                       4F14487 
AS0000 LXA L(0),7            RENUMBER SEGMENT OF SCRIPL                 4F14488 
AS0100 CLA BETA,B                                                       4F14489 
       TZE AS0700                                                       4F14490 
       PXD 0,C                                                          4F14491 
       ARS 18                                                           4F14492 
       STA BETA,B                                                       4F14493 
       TXI AS0700,C,-1                                                  4F14494 
AS0700 TXI AS0800,B,-1                                                  4F14495 
AS0800 TXH AS0100,B,0                                                   4F14496 
AS0900 CLA SCRIPL,A                                                     4F14497 
       PAX 0,B                                                          4F14498 
       CLA BETA,B                                                       4F14499 
       STA SCRIPL,A                                                     4F14500 
       LDQ SCRIPL+2,A                                                   4F14501 
       LGL 1                                                            4F14502 
       LBT                                                              4F14503 
       TQP AS2000                                                       4F14504 
       TXI AS1800,A,-3                                                  4F14505 
AS1800 TXH AS0900,A,0                                                   4F14506 
       TRA AS2500                                                       4F14507 
AS2000 LGL 35                                                           4F14508 
       PAX 0,B                                                          4F14509 
       CLA BETA,B                                                       4F14510 
       STA SCRIPL+2,A                                                   4F14511 
       TXI AS1800,A,-3                                                  4F14512 
AS2500 LXA L(0),3            LDXA,XB WITH 0                             4F14513 
       LDQ L(0)              CLEAR MQ                                   4F14514 
AS2700 STO BETA,B            RECLEAR BETA TABLE                         4F14515 
       TXI AS2900,B,-1                                                  4F14516 
AS2900 TXH AS2700,B,0                                                   4F14517 
AS3000 CLA SCRIPL,A          ADD INTO GAMMA COUNTERS                    4F14518 
       PAX 0,B                                                          4F14519 
       CLA BETA,B                                                       4F14520 
       ADD BETAD2            3*2**18+(-3)                               4F14521 
       STD BETA,B                                                       4F14522 
       STA BETA,B                                                       4F14523 
       TXI AS3600,A,-3                                                  4F14524 
AS3600 TXH AS3000,A,0        -30 IN XA AT END                           4F14525 
       SXD 3QBAR,A           -30 TO 3QBAR = 3LBAR                       4F14526 
CCS000 CAL SCRIPL-3,A        ELIMINATE COMMON SUBEXPRESSIONS            4F14527 
       PAX 0,B               LOAD XB WITH S(1)                          4F14528 
       TXL CCS240,B,0        EXIT AT S(O)                               4F14529 
       CAL BETA,B            OBTAIN LENGTH OF S(I)                      4F14530 
       STD CCS060            AND BACK UP TO                             4F14531 
CCS060 TXI CCS070,A,0        BEGINNING OF CURRENT SEGMENT               4F14532 
CCS070 CAL SCRIPL+1,A        OBTAIN OP1 (S(I))                          4F14533 
       ANA 11Z               EXTRACT CS-BIT                             4F14534 
       TZE CCS000            CONTINUE TO S(I-1)                         4F14535 
       PXD 0,B                                                          4F14536 
       ARS 18                                                           4F14537 
       LXA L(0),C            TO S(I)                                    4F14538 
       LXD CCS140,B          AND KEEP COUNT OF SAME                     4F14539 
CCS140 TXI CCS150,3,0        XA TO XA,XB                                4F14540 
CCS150 TXL CCS200,B,0        SEARCH-UP FINISHED, EXAMINE COUNT          4F14541 
       CAS SCRIPL-1,B                                                   4F14542 
       TXI CCS150,B,3        CONTINUE SEARCH                            4F14543 
       TXI CCS190,C,1        RAISE REF COUNTER AND                      4F14544 
CCS190 TXI CCS150,B,3        CONTINUE SEARCH                            4F14545 
CCS200 TXH CCS000,C,1        MULTIPLE REFERENCE                         4F14546 
       CAL MASK4             SINGLE REFERENCE - SO SET                  4F14547 
       ANS SCRIPL+1,A        OP1(S(I))3O TO O, AND                      4F14548 
       TRA CCS000            CONTINUE FOR S(I-1)                        4F14549 
CCS240 LXD AS3600,A          -3Q TO XA                                  4F14550 
PL0000 TXL LK0000,A,0        GO TO LINKAGE                              4F14551 
       CLA SCRIPL-3,A                                                   4F14552 
       PAX 0,B                                                          4F14553 
       CAL BETA,B                                                       4F14554 
       PAX 0,C                                                          4F14555 
       STD PL0060                                                       4F14556 
PL0060 TXI PL0070,A,0        SET XA TO BEGINNING OF S(I)                4F14557 
PL0070 PXD 0,0                                                          4F14558 
       LDQ SCRIPL+1,A        OBTAIN                                     4F14559 
       LGL 6                 AND                                        4F14560 
       CAS SPECOP            EXAMINE OP1 (S(I))                         4F14561 
       TRA PL0680                                                       4F14562 
       TRA PL0460                                                       4F14563 
PL0130 PXD 0,0               0P1 (S(I)) IS +, - OR *                    4F14564 
       LDQ SCRIPL+2,A        OBTAIN                                     4F14565 
       LGL 1                 AND                                        4F14566 
       LBT                   EXAMINE SYM1 (S(I))                        4F14567 
       TQP PL0300                                                       4F14568 
       LGL 5                 EX (IN)TERNAL VARIABLE                     4F14569 
PL0135 CAS L(H)              IS SYM1 (S(I)) FIX OR FLO PT               4F14570 
       CAS L(O)                                                         4F14571 
       TRA PL0240            FLO PT... SET 0P1 (S(I)) 32 = 1            4F14572 
       TRA PL0240            FLO PT... DITTO                            4F14573 
       TRA PL0000            FIX PT... OP1 (S(I)) 32 = 0                4F14574 
PL0240 CAL L(8)              SET OP1 (S(I)) 32 = 1                      4F14575 
PL0250 ORS SCRIPL+1,A                                                   4F14576 
PL0260 TXI PL0000,0,0        CONTINUE SCAN                              4F14577 
PL0300 LXD PL0310,B          SYM1 (S(I)) = SOME S(J)                    4F14578 
PL0310 TXI PL0320,3,0        XA TO XA,XB                                4F14579 
PL0320 SXD PL0330,C                                                     4F14580 
PL0330 TXI PL0340,B,0                                                   4F14581 
PL0340 CAL SCRIPL,B                                                     4F14582 
       PAX 0,C                                                          4F14583 
       ANA MASK2                                                        4F14584 
       SUB SCRIPL+2,A                                                   4F14585 
       TZE PL0420                                                       4F14586 
       CLA BETA,C                                                       4F14587 
       PAX 0,C                                                          4F14588 
       TRA PL0320                                                       4F14589 
PL0420 CAL SCRIPL+1,B        SYM1(S(I)) = S(J)                          4F14590 
       ANA L(8)              EXTRACT OP1 (S(J)) 32 AND GO               4F14591 
       TRA PL0250            SET OP1 (S(I)) 32 = OP1 (S(J)) 32          4F14592 
PL0460 LGL 7                 OP1 (S(I)) IS SPOP                         4F14593 
       TQP PL0465                                                       4F14594 
PL0461 LDQ SCRIPL+2,A        FS NAME -                                  4F14595 
       PXD 0,0               EXAMINE SUM1 (S(I)) S,1-5                  4F14596 
       LGL 6                                                            4F14597 
       SUB L(X)                                                         4F14598 
       TNZ PL0240            FLO PT... GO SET OP1 (S(I)) 32 = 1         4F14599 
       TRA PL0000            FIX PT ... OP1 (S(I)) 32 = 0               4F14600 
PL0465 LBT                                                              4F14601 
       TRA PL0470                                                       4F14602 
       LDQ SCRIPL+2,A                                                   4F14603 
       PXD ,0                                                           4F14604 
       LGL 6                                                            4F14605 
       TRA PL0135                                                       4F14606 
PL0470 CLA SCRIPL+2,A        NOT AN FS NAME                             4F14607 
       LXA L(0),B                                                       4F14608 
PL0480 CAS OPSUB,B                                                      4F14609 
       TXI PL0520,B,-1                                                  4F14610 
       TRA PL0650                                                       4F14611 
       TXI PL0520,B,-1                                                  4F14612 
PL0520 TXH PL0480,B,-20                                                 4F14613 
       STO G                                                            4F14614 
       SXD PL0260,A                                                     4F14615 
       TSX TET00,A                                                      4F14616 
       HTR 9                                                            4F14617 
       LXD PL0260,A                                                     4F14618 
       TRA PL0461                                                       4F14619 
PL0650 CAL L(4)              SET OP1 (S(I)) 33 =I                       4F14620 
       ORS SCRIPL+1,A                                                   4F14621 
       TRA PL0461                                                       4F14622 
PL0680 TQP PL0130                                                       4F14623 
       PXD 0,0               OP1 (S(I) IS **                            4F14624 
       LDQ SCRIPL+2,A        OBTAIN AND                                 4F14625 
       LGL 1                 EXAMINE                                    4F14626 
       LBT                   SYM1 (S(I))                                4F14627 
       TQP PL1000                                                       4F14628 
       LGL 5                 EX (IN)TERNAL VARIABLE                     4F14629 
       CAS L(H)              IS OT FIX OR FLO PT                        4F14630 
       CAS L(O)                                                         4F14631 
       TRA PL0800                                                       4F14632 
       TRA PL0800                                                       4F14633 
       TRA PL0830            FIX PT                                     4F14634 
PL0800 CAL L(8)              FLO PT... SET OP1 (S(I)) 32 = 1            4F14635 
PL0820 ORS SCRIPL+1,A                                                   4F14636 
PL0830 PXD 0,0                                                          4F14637 
       LDQ SCRIPL+5,A        OBTAIN                                     4F14638 
       LGL 1                 AND                                        4F14639 
       LBT                   EXAMINE                                    4F14640 
       TQP PL1200            SYM2 (S(I))                                4F14641 
       LGL 5                                                            4F14642 
       CAS L(H)                                                         4F14643 
       CAS L(O)                                                         4F14644 
       TRA PL0940            SYM2 (S(I)) IS FLO PT, SO GO               4F14645 
       TRA PL0940            SET OP2 (S(I)) 32 = 1                      4F14646 
PL0850 PXD 0,0               SYM2(S(I)) IS FIX PT                       4F14647 
       LGL 6                                                            4F14648 
       SUB OPEN                                                         4F14649 
       TNZ PL0000            SYM2 (S(I)) IS EXTERNAL                    4F14650 
       LGL 25                SYM2 (S(I)) IS INTERNAL (AND FIX PT)       4F14651 
       ADD PL0880                                                       4F14652 
       STA PL0850                                                       4F14653 
       RDR FXCODR                                                       4F14654 
       LDA PL0850                                                       4F14655 
       CPY G                                                            4F14656 
       CPY G+1                                                          4F14657 
       CLA G                                                            4F14658 
       CAS G+1                                                          4F14659 
       TRA *+2                               GO TO  THE DIAGNOSTIC      4F14660 
       TRA PL1570                                                       4F14661 
       TSX DIAG,4                          * GO TO  THE DIAGNOSTIC      4F14662 
PL1570 TZE PL0000            EXP IS 0, SO OP1 (S(I)) 33 = 0             4F14663 
       CAS FEXUB                                                        4F14664 
PL0880 TXH FIXCON,0,0        EXP NOT LESS THAN 7, SO                    4F14665 
       TRA PL0000            OP1 (S(I)) 33 = 0                          4F14666 
       STO SCRIPL+5,A        EXP LESS THAN 7, SO STORE EXP              4F14667 
       CAL L(4)              AS SYM2 (S(I)) AND SET                     4F14668 
       ORS SCRIPL+1,A        OP1 (S(I)) 33 = 1                          4F14669 
       TRA PL0000                                                       4F14670 
PL0940 CAL L(8)              SYM2 (S(I)) IS FLO PT                      4F14671 
       ORS SCRIPL+4,A        SET OP2 (S(I)) 32 = 1                      4F14672 
       TRA PL0000                                                       4F14673 
PL1000 LXD PL1010,B          SYM1 (S(I)) IS SOME S(J)                   4F14674 
PL1010 TXI PL1020,3,0        XA TO XA,XB                                4F14675 
PL1020 SXD PL1030,C                                                     4F14676 
PL1030 TXI PL1040,B,0                                                   4F14677 
PL1040 CAL SCRIPL,B                                                     4F14678 
       PAX 0,C                                                          4F14679 
       ANA MASK2                                                        4F14680 
       SUB SCRIPL+2,A                                                   4F14681 
       TZE PL1130                                                       4F14682 
       CLA BETA,C                                                       4F14683 
       PAX 0,C                                                          4F14684 
       TRA PL1020                                                       4F14685 
PL1130 CAL SCRIPL+1,B                                                   4F14686 
       ANA L(8)                                                         4F14687 
       TRA PL0820                                                       4F14688 
PL1200 LXD PL1210,B          SYM2 (S(I)) = SOME S(K)                    4F14689 
PL1210 TXI PL1220,3,0        XA TO XA,XB                                4F14690 
PL1220 LXD PL1330,C          LKXC WITH -6                               4F14691 
PL1230 SXD PL1240,C                                                     4F14692 
PL1240 TXI PL1250,B,0                                                   4F14693 
PL1250 CAL SCRIPL,B                                                     4F14694 
       PAX 0,C                                                          4F14695 
       ANA MASK2                                                        4F14696 
       SUB SCRIPL+5,A                                                   4F14697 
       TZE PL1340            SYM2(S(I)) = S(K)                          4F14698 
       CLA BETA,C                                                       4F14699 
       PAX 0,C                                                          4F14700 
PL1330 TXI PL1230,0,-6                                                  4F14701 
PL1340 CAL SCRIPL+1,B        SET OP2(S(I)) 32 = 0P1 (S(K)) 32           4F14702 
       ANA L(8)                                                         4F14703 
       ORS SCRIPL+4,A                                                   4F14704 
       TRA PL0000            RESUME SCAN                                4F14705 
LK0000 LXD AS3600,A          -3Q TO XA                                  4F14706 
LK0030 CAL SCRIPL-3,A                                                   4F14707 
       PAX 0,B               S(I) TO XB                                 4F14708 
       TXL LK1610,8,0        EXIT UPON ENCOUNTERING S(0)                4F14709 
       LDQ SCRIPL-2,A        PLACE LAST OP OP S(I) IN MQ                4F14710 
       CLA BETA,B                                                       4F14711 
       STD LK0110                                                       4F14712 
LK0110 TXI LK0120,A,0        MOVE XA TO BEGINNING OF S(I)               4F14713 
LK0120 LXD LK0130,C                                                     4F14714 
LK0130 TXI LK0140,5,0        XA TO XA,XC                                4F14715 
LK0140 SXD AS3600,A                                                     4F14716 
       CLA BETA-1,B                                                     4F14717 
       PDX 0,B               LENGTH  OF S(I-1) TO XB                    4F14718 
       SXD LK0180,B                                                     4F14719 
LK0180 TXI LK0190,C,0        MOVE XC TO BEGINNING OF S(I-1)             4F14720 
LK0190 TQP LK1200            S(I) TYPE AC                               4F14721 
       RQL 1                                                            4F14722 
       TQP LK1200            S(I) TYPE AC                               4F14723 
       CAL 12Z               S(I) RESULTS IN MQ (TYPE MQ)               4F14724 
       ORS SCRIPL+1,A        SET OP1 (S(I)) 31 = 1                      4F14725 
       PXD 0,0                                                          4F14726 
       LDQ SCRIPL+1,C        PLACE OP1  (S(I-1)) IN MQ                  4F14727 
       LGL 6                                                            4F14728 
       CAS SPECOP                                                       4F14729 
       TRA LK0320                                                       4F14730 
       TRA LK0950                                                       4F14731 
       TRA LK0030            S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0   4F14732 
LK0320 TQP LK0570                                                       4F14733 
       LGL 27                S(I)TYPE MQ, OP1(S(I-1) = **               4F14734 
       CAL SCRIPL,A                                                     4F14735 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14736 
       TQP LK0480            OP1 (S(I-1)) 33 = 0                        4F14737 
       SUB SCRIPL+2,C        OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE.   4F14738 
       TNZ LK0030            SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0    4F14739 
       CAL L(3)              S(I) = SYM1 (S(I-1)), SO                   4F14740 
LK0430 ORS SCRIPL+1,C                                                   4F14741 
LK0440 CAL BIT29                                                        4F14742 
       ORS SCRIPL+1,A                                                   4F14743 
       TRA LK0030            OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES    4F14744 
LK0480 SUB SCRIPL+5,C                                                   4F14745 
       TNZ LK0030            SET OPKS(I))29=OPKS(I-1))35=0              4F14746 
       CAL L(1)              S(I) = SYM2  (S(I-1)), SO                  4F14747 
       ORS SCRIPL+4,C        SET OP2 (S(I-1)) 35  = 1                   4F14748 
       TRA LK0440                                                       4F14749 
LK0570 PXD 0,0               S(I) TYPE MO, OP1 (S(I-1)) = *             4F14750 
       LDQ SCRIPL+4,C        PLACE PO2 (S(I-1)) IN MQ                   4F14751 
       LGL 6                 IS OP2 (S(I-1)) = *                        4F14752 
       SUB STAR                                                         4F14753 
       TNZ LK0030            NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754 
       CAL L(2)              YES                                        4F14755 
       ORS SCRIPL+1,C        SET OP1(S(I-1))34=1                        4F14756 
LK0630 CAL SCRIPL,A                                                     4F14757 
       ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14758 
LK0650 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14759 
       CAS SCRIPL-1,A                                                   4F14760 
       TXI LK0700,A,3                                                   4F14761 
       TRA LK0710                                                       4F14762 
       TXI LK0700,A,3        NOT FOUND - CONTINUE SEARCH                4F14763 
LK0700 TXI LK0650,B,-3                                                  4F14764 
LK0710 LDQ SCRIPL-2,A        S(I) IS SYMJ (S(I-1))                      4F14765 
       RQL 1                 IS OPJ (S(I-1)) = *                        4F14766 
       TQP LK0750                                                       4F14767 
       TXI LK0700,A,3        NO... CONTINUE SEARCH                      4F14768 
LK0750 CLA SCRIPL,C          YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769 
       LDQ SCRIPL-3,A        EXCHANGE                                   4F14770 
       STO SCRIPL-3,A        TAG                                        4F14771 
       STQ SCRIPL,C          WORDS                                      4F14772 
       CAL SCRIPL+1,C        PLACE OP1 (S(I-1)) IN ACC                  4F14773 
       LDQ SCRIPL-2,A        PLACE OPJ (S(I-1)) IN MQ                   4F14774 
       SLW SCRIPL-2,A        EXCHANGE                                   4F14775 
       STQ SCRIPL+1,C        OP                                         4F14776 
       ANA MASK2             WORDS AND                                  4F14777 
       ORS SCRIPL+1,C        SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33     4F14778 
       CLA SCRIPL+2,C        THEN                                       4F14779 
       LDQ SCRIPL-1,A        EXCHANGE                                   4F14780 
       STO SCRIPL-1,A        SYMBOL                                     4F14781 
       STQ SCRIPL+2,C        WORDS                                      4F14762 
       LXD AS3600,A          RESTORE XA                                 4F14783 
LK0900 CAL L(1)              AND                                        4F14784 
       TRA LK0430                                                       4F14785 
LK0950 RQL 27                S(I) TYPE MQ, OP1 (S(I-1)) = SPOP          4F14786 
       CAL SCRIPL,A                                                     4F14787 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14788 
       TQP LK1050            OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE)    4F14789 
       TXH LK0030,B,6        OPEN MULTIV... SET OP1 (S(I)) 29 = 0       4F14790 
       SUB SCRIPL+5,C        OPEN UNIV... IS S(I) = SUM2 (S(I-1))       4F14791 
       TNZ LK0030            N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792 
       CAL L(3)              AND                                        4F14793 
       ORS SCRIPL+4,C        SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1    4F14794 
       TRA LK0440                                                       4F14795 
LK1050 RQL 15                                                           4F14796 
       TQP LK1100            TEST OP1(S(I-1))12                         4F14797 
       TRA LK0030            FN-NAME                                    4F14798 
LK1100 TXL LK0030,B,6        CLOSED UNIV. SBRTN                         4F14799 
       SUB SCRIPL+8,C        CLOSED MULTIV. SBRTN                       4F14800 
       TNZ LK0030            S(I) NOT = SYM3 (S (I-1))                  4F14801 
       CAL L(1)              S(I) = SYM3 (S(I-1)), SO                   4F14802 
       ORS SCRIPL+7,C        SET OP3 (S(1-1)135 = 1                     4F14803 
       TRA LK0440                                                       4F14804 
LK1200 PXD 0,0               S(I) TYPE AC                               4F14805 
       LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MO                   4F14806 
       LGL 6                                                            4F14807 
       CAS SPECOP                                                       4F14808 
       TRA LK1340                                                       4F14809 
       TRA LK1470                                                       4F14810 
       CAL SCRIPL,A          S(I) TYPE AC  OP1 (S(I-1)) = + OR -        4F14811 
       ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14812 
LK1280 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14813 
       CAS SCRIPL-1,A                                                   4F14814 
       TXI LK1330,A,3                                                   4F14815 
       TRA LK0750            S(I) = SOME SYMJ (S(I-1))... GO PERMUTE    4F14816 
       TXI LK1330,A,3        NOT FOUND... CONTINUE SEARCH               4F14817 
LK1330 TXI LK1280,B,-3                                                  4F14818 
LK1340 TQP LK1410                                                       4F14819 
       CAL SCRIPL,A          S(I) TYPE AC OP1 (S(I-1)) =  **            4F14820 
       ANA MASK2                                                        4F14821 
       SUB SCRIPL+2,C        IS S(I) = SYM1 (S(I-1))                    4F14822 
       TNZ LK0030            NO                                         4F14823 
       TRA LK0900            YES                                        4F14824 
LK1410 PXD 0,0               S(I) TYPE AC OP1 (S(I-1)) = *              4F14825 
       LDQ SCRIPL+4,C                                                   4F14826 
       LGL 6                 IS OP2 (S(I-1)) = 1                        4F14827 
       SUB SLASH                                                        4F14828 
       TZE LK0630            YES                                        4F14829 
       CAL L(2)              NO                                         4F14830 
       ORS SCRIPL+1,C        SET OP1 (S(I-1)) 34 = 1                    4F14831 
       TRA LK0000                                                       4F14832 
LK1470 RQL 27                S(I) TYPE AC OP1 (S(I-1)) = SPOP           4F14833 
       CAL SCRIPL,A                                                     4F14834 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14835 
       TQP LK1530                                                       4F14836 
       TXH LK0030,B,6        OPEN MULTIV.                               4F14837 
LK1520 TRA LK0480                                                       4F14838 
LK1530 RQL 15                                                           4F14839 
       TQP LK0480                                                       4F14840 
       TRA LK0030            FN-NAME                                    4F14841 
LK1610 LXD BETA,B            IS S(0) A SINGLE ELEMENT                   4F14842 
       PXD 0,0                                                          4F14843 
       LDQ SCRIPL-2,A                                                   4F14844 
       TXH LK1780,B,3        NO                                         4F14645 
       LGL 6                 YES                                        4F14846 
       SUB 11Z               IS OP (S(0)) = + OR -                      4F14847 
       TZE LKK000            OP (S(0)) = -                              4F14648 
       CAL SCRIPL+2          OP (S(0)) = +                              4F14849 
       ANA MASK1             DOES SYM (S(0)) = S(1)                     4F14850 
       TNZ LKK000            NO                                         4F14851 
       CAL SCRIPL+4          YES - PLACE OP1 (S(I)) IN ACC              4F14852 
       ANA 12Z                                                          4F14853 
       TZE LKK000            OP1 (S(1)) 31 = 0                          4F14854 
       ORS SCRIPL+1          SET OP (S(0)) 31 = 1                       4F14855 
       ALS 2                                                            4F14856 
       ORS SCRIPL+4          SET OP1 (S(1)) 29 = 1                      4F14857 
       ARS 6                                                            4F14658 
       TRA LK1820                                                       4F14859 
LK1780 TQP LKK000            S(0) TYPE AC                               4F14860 
       RQL 1                                                            4F14861 
       TQP LKK000            S(0) TYPE AC                               4F14862 
       CAL 12Z               S(0) TYPE MQ, SO                           4F14863 
LK1820 ORS SCRIPL+1                                                     4F14864 
LKK000 LXD 3QBAR,5           -3Q TO XA,XC                               4F14865 
       CAL SCRIPL-3,C                                                   4F14866 
       PAX 0,8                                                          4F14867 
       CLA BETA,B                                                       4F14868 
       STD LKK050                                                       4F14869 
LKK050 TXI LKK060,C,0        BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT  4F14870 
LKK060 PXD 0,0                                                          4F14871 
       LDQ SCRIPL+1,C        PLACE OP1 OF LAST SEGMENT IN MQ            4F14872 
       LGL 6                                                            4F14873 
       SUB STAR                                                         4F14874 
       TNZ PC0000                                                       4F14875 
       TQP LKK130                                                       4F14876 
       TRA PC0000                                                       4F14877 
LKK130 LDQ SCRIPL+4,C        OP1 OF LAST SEGMENT IS *                   4F14878 
       LGL 2                                                            4F14879 
       LBT                                                              4F14880 
       ORS SCRIPL+1,C        OP2 IS  *, SO SET OP1 (S(L)) 34 = 1        4F14881 
PC0000 LXD ARGCTR,C          IS THIS AN FS                              4F14882 
       TXH PC0030,C,0                                                   4F14883 
       TXI PC0040,C,1        NO                                         4F14884 
PC0030 LXA L(0),C            YES                                        4F14885 
PC0040 CAL SCRIPL-3,A                                                   4F14886 
       PAX 0,B                                                          4F14887 
       TXL PC0190,B,0        EXIT AT S(0)                               4F14888 
       CLA BETA,B                                                       4F14889 
       STD PC0100                                                       4F14890 
PC0100 TXI PC0110,A,0                                                   4F14891 
PC0110 LDQ SCRIPL+1,A        PLACE OP1 (S(1)) IN MQ                     4F14892 
       LGL 30                                                           4F14893 
       LBT                                                              4F14894 
PC0140 TXI PC0160,0,300                                                 4F14895 
       TQP PC0040            OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0     4F14896 
PC0160 PXD 0,C               OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1     4F14897 
       STD BETA,B            STORE ERAS. REL, ADD. COUNT IN BETA,       4F14898 
       TXI PC0040,C,1        AND UPDATE FOR NEXT SEGMENT                4F14899 
PC0190 LXD PC0140,B                                                     4F14900 
PC0200 CLA BETA+300,B                                                   4F14901 
       STO CPBETA+300,B                                                 4F14902 
       TIX PC0200,B,1                                                   4F14903 
       TRA STATED            GO FETCH STATE D                           4F14904 
       REM *******                     ***********************  *       4F14905 
       REM                                                              4F14906 
       REM DICTIONARY OF OPEN SUBROUTINES FOLLOWS                       4F14907 
OPSUB  OCT 672122626060      XABS                                       4F14908 
       OCT 212262606060      ABS                                        4F14909 
       OCT 673145636060      XINT                                       4F14910 
       OCT 314563606060      INT                                        4F14911 
       OCT 674446246060      XMOD                                       4F14912 
       OCT 444624606060      MOD                                        4F14913 
       OCT 674421670060      XMAXO                                      4F14914 
       OCT 442167016060      MAX1                                       4F14915 
       OCT 674421670160      XMAX1                                      4F14916 
       OCT 442167006060      MAXO                                       4F14917 
       OCT 674431450060      XMINO                                      4F14918 
       OCT 443145016060      MIN1                                       4F14919 
       OCT 674431450160      XMIN1                                      4F14920 
       OCT 443145006060      MIN0                                       4F14921 
       OCT 264346216360      FLOAT                                      4F14922 
       OCT 672631676060      XFIX                                       4F14923 
       OCT 623127456060      SIGN                                       4F14924 
       OCT 676231274560      XSIGN                                      4F14925 
       OCT 672431446060      XDIM                                       4F14926 
       OCT 243144606060      DIM                                        4F14927 
       BSS 10                                                           4F14928 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929 
ENDCDR BSS 0                                                            4F149295
       REM                                                              4F14930 
ENDC   ORG 2596                                                         4F14931 
BETA   BSS 300                                                          4F14932 
       REM END OF ARITHMETIC / STATE C*                                 4F14933 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934 
       REM                                                              4F14935 
       REM ARITHMETIC / STATE D=                                        4F14936 
       REM 704 FORTRAN MASTER RECORD CARD / STATE D = F0160000.         4F14937 
       ORG 0                                                            4F149371
       PZE ORGD,,CLDR00                                                 4F149372
       PZE ENDD-1                                                       4F149373
       REM                                                              4F14938 
ORGD   ORG 1824                                                         4F14939 
MC0000 LXD 3QBAR,A           MODE CHECKING ROUTINE                      4F14940 
       SXD MC0420,A                                                     4F14941 
       LXA L(0),A                                                       4F14942 
MC0030 SXD XASAVE,A                                                     4F14943 
       CAL SCRIPL,A                                                     4F14944 
MC0050 PAX ,2                S(1) TO XB                                 4F14945 
       CLA CPBETA,B                                                     4F14946 
MC0070 PAX TAU2,B                                                       4F14947 
       SXD MC0410,B                                                     4F14948 
       SXD MC0460,B                                                     4F14949 
       TXH MC0410,B,-6       SINGLE ELEMENT - GO ONTO S(I+1)            4F14950 
       SLF                   TURN OFF ALL SENSE LITES                   4F14951 
       PXD 0,0               CLEAR ACC                                  4F14952 
       LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14953 
       LGL 6                                                            4F14954 
       CAS SPECOP                                                       4F14955 
       TQP MC0180                                                       4F14956 
XASAVE TXI MC0410,0,0                                                   4F14957 
MC0180 LGL 26                OP1 (S(I)) = +, - OR *                     4F14958 
       TQP MC0210            FIX PT                                     4F14959 
       SLN 1                 FLO PT                                     4F14960 
MC0210 PXD 0,0                                                          4F14961 
       LDQ SCRIPL+2,A        PLACE SYMJ (S(I)) IN MQ - J = I,...        4F14962 
       LGL 1                                                            4F14963 
       LBT                                                              4F14964 
       TQP MC0440                                                       4F14965 
       LGL 5                 SYMJ (S(I)) IS A VARIABLE                  4F14966 
       CAS L(H)                                                         4F14967 
       CAS L(O)                                                         4F14968 
XBSAVE TXI MC0340,0,0        FLO PT                                     4F14969 
       TRA MC0340            FLO PT                                     4F14970 
MC0310 SLT 1                 SYMJ (S(I)) IS A FIX PT VARIABLE           4F14971 
       TXI MC0380,B,3        OK                                         4F14972 
       TSX DIAG,4            ERROR.. FLO PT LITE ON                     4F14973 
MC0340 SLT 1                 SYMJ(S(I)) IS A FLO PT VARIABLE            4F14974 
       TSX DIAG,4            ERROR.. FLO PT LITE OFF                    4F14975 
       SLN 1                 RESTORE FLO PT LITE                        4F14976 
       TXI MC0380,B,3                                                   4F14977 
MC0380 TXL MC0400,B,0        FINISHED WITH S(I)                         4F14978 
       TXI MC0210,A,-3       CONTINUE SCANNING S(I). J TO J+1           4F14979 
MC0400 LXD XASAVE,A          GO TO S(I+1)                               4F14980 
MC0410 TXI MC0420,A,0                                                   4F14981 
MC0420 TXH MC0030,A,0                                                   4F14982 
       TRA CP0000            EXIT TO COMPILER                           4F14983 
MC0440 SXD XBSAVE,B          SYMJ (S(ITT = SAME S(K)                    4F14984 
       LXD XASAVE,C                                                     4F14985 
MC0460 TXI MC0470,C,0        MOVE XC TO 1ST ELEMENT OF S(I+1)           4F14986 
MC0470 CAL SCRIPL,C                                                     4F14987 
       ANA MASK2             EXTRACT S(K) IN ACC                        4F14988 
       CAS SCRIPL+2,A        AND COMPARE WITH SYMJ (S(I))               4F14989 
       TRA MC0520                                                       4F14990 
       TRA MC0570                                                       4F14991 
MC0520 PAX SIGMA1,B          S(K) TO XB                                 4F14992 
       CLA CPBETA,B                                                     4F14993 
MC0540 PAX TAU1,B                                                       4F14994 
       SXD MC0560,B                                                     4F14995 
MC0560 TXI MC0470,C,0                                                   4F14996 
MC0570 LXD XBSAVE,B          SYMJ (S(I)) = S(K) FOR SOME K              4F14997 
       CAL SCRIPL+1,C        PLACE OP1 (S(K)) IN ACC                    4F14998 
       ARS 3                                                            4F14999 
       LBT                                                              4F15000 
       TRA MC0310            S(K) IS FIX PT                             4F15001 
       TRA MC0340            S(K) IS FLO PT                             4F15002 
       REM                                                              4F15003 
CP0000 SLF                   TURN OFF ALL SENSE LITES                   4F15004 
       STZ FNSW                                                         4F15005 
       LXD ARGCTR,C          IS THIS AN FS STATEMENT                    4F15006 
       TXL CP0090,C,0        NO                                         4F15007 
       TSX CIT00,C           YES - COMPILE FOUR 36 - BIT                4F15008 
       HTR ALL1              STRINGS IN 1 AS A PRELUDE TO               4F15009 
       HTR ALL1              FS STATEMENT COMPILATION                   4F15010 
       HTR ALL1                                                         4F15011 
       HTR ALL1                                                         4F15012 
CP0090 CAL EIFNO                                                        4F15013 
       ANA MASK1                                                        4F15014 
       SLW CW                STO INT. FORM. NO. IN DEC FIELD OF CW.     4F15015 
       LXD 3QBAR,A           -30 TO XA                                  4F15016 
CP0130 CLA SCRIPL-3,A        EXTRACT CURRENT S(I)                       4F15017 
CP0140 PAX ,2                                                           4F15018 
       CLA CPBETA,B                                                     4F15019 
       STD PHI(I)            STO ERAS. REL. ADD. IN PHI (I)             4F15020 
       ANA MASK2                                                        4F15021 
CP0180 PAX TAU3,B                                                       4F15022 
       SXD CP0400,B                                                     4F15023 
       COM                                                              4F15024 
       ADD L(1)                                                         4F15025 
       ALS 18                                                           4F15026 
       STD CP0240                                                       4F15027 
CP0240 TXI CP0250,A,0        MOVE XA TO 1ST ELEMENT OF CURRENT S(I)     4F15028 
CP0250 SXD 3QBAR,A                                                      4F15029 
       LDQ SCRIPL+1,A        EXAMINE OP1 (S(I)) 29,30,31,32             4F15030 
       LGL 30                                                           4F15031 
       LBT                                                              4F15032 
       TRA CP0310            OP1 (S(I)) 29 = 0                          4F15033 
       TQP CP0370            OP1 (S(I)) 30 = 0                          4F15034 
CP0310 SLN 1                 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035 
       RQL 1                 SET STORE LITE                             4F15036 
       TQP CP0350            OP1 (S(I)) 31 = 0, SO SET STO LITE         4F15037 
       SLN 2                 OP1 (S(I)) 31 = 1, SO SET STQ LITE         4F15038 
CP0350 RQL 1                                                            4F15039 
       TRA CP0380                                                       4F15040 
CP0370 RQL 2                                                            4F15041 
CP0380 TQP CP0420            TEST OP1 (S(I)) 32                         4F15042 
       SLT 4                 OP1 (S(I)) 32 = 1, SO SET FLPTSW           4F15043 
CP0400 TXH 0,0,0                                                        4F15044 
       TRA CP0430                                                       4F15045 
CP0420 SLN 4                 OP1 (S(I))  32 = 0, SO SET FXPTSW          4F15046 
CP0430 PXD 0,0                                                          4F15047 
       LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F15048 
       LGL 6                                                            4F15049 
       CAS SPECOP                                                       4F15050 
       TXI CP0960,0,0                                                   4F15051 
       TXI CP2040,A,-3                                                  4F15052 
       SUB 11Z                                                          4F15053 
       TZE CP0760                                                       4F15054 
       LGL 29                OP1 (S(I)) = +                             4F15055 
       TQP CP1130            OP1 (S(I)) 35 = 0                          4F15056 
CP0540 LXD CP0400,B          OP1 (S(I)) 35 = 1                          4F15057 
       TXI CP0560,B,3                                                   4F15058 
CP0560 TXL ES0000,B,0        GO TO END-OF-SEGMENT SBRTN                 4F15059 
       SXD CP0400,B                                                     4F15060 
       TXI CP0590,A,-3                                                  4F15061 
CP0590 PXD 0,0                                                          4F15062 
       LDQ SCRIPL+1,A        PLACE OPJ (S(I)) IN MQ                     4F15063 
       LGL 6                                                            4F15064 
       CAS STAR                                                         4F15065 
       TRA CP1200            OPJ (S(I)) = /                             4F15066 
       TRA CP1720            OPJ (S(I)) = *                             4F15067 
       SUB 11Z                                                          4F15068 
       TZE CP0880            OPJ (S(I)) = -                             4F15069 
       CAL L(FAD)            OPJ (S(I)) = +                             4F15070 
       SLT 4                                                            4F15071 
       TRA CP0740                                                       4F15072 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15073 
       CAL L(ADD)                                                       4F15074 
CP0740 SLW CW+1                                                         4F15075 
       TRA CP1690                                                       4F15076 
CP0760 LGL 29                0P1 (S(I)) = -                             4F15077 
       TQP CP0850                                                       4F15078 
       CAL L(CHS)            0P1 (S(I)) 35 = 1, SO                      4F15079 
       SLW CW+1              COMPILE CHS FOR 1ST ELEMENT                4F15080 
       STZ CW+2                                                         4F15081 
       STZ CW+3                                                         4F15082 
       TSX COMP,B                                                       4F15083 
       TRA CP0540                                                       4F15064 
CP0850 CAL L(CLS)            0P1 (S(I)) 35 = O, SO                      4F15085 
       SLW CW+1              COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT    4F15086 
       TRA CP1150                                                       4F15087 
CP0880 CAL L(FSB)            OPJ (S(I)) = -                             4F15088 
       SLT 4                                                            4F15089 
       TRA CP0940                                                       4F15090 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15091 
       CAL L(SUB)                                                       4F15092 
CP0940 SLW CW+1                                                         4F15093 
       TRA CP1690                                                       4F15094 
CP0960 TQP CP0980                                                       4F15095 
       TRA CP4140                                                       4F15096 
CP0980 LGL 29                0P1 (S(I)) = *                             4F15097 
       SLN 3                 TURN LITE 3 ON                             4F15098 
       LBT                   TEST 0P1 (S(I)) 34                         4F15099 
       TRA CP1050            0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON      4F15100 
       SLT 3                 0P1 (S(I)) 34 = 1, SO TURN LITE 3 OFF      4F15101 
       TXH 0,0,0                                                        4F15102 
CP1050 TQP CP1070                                                       4F15103 
       TRA CP0540            0P1 (S(I)) 35 = 1, SO GO MODIFY J          4F15104 
CP1070 CAL L(LDQ)            0P1 (S(I)) 35 = 0                          4F15105 
       SLT 3                                                            4F15106 
       TRA CP1140            ELI (S(II) TO MQ                           4F15107 
       SLN 3                 ELI (S(II) TO ACC                          4F15108 
CP1130 CAL L(CLA)                                                       4F15109 
CP1140 SLW CW+1                                                         4F15110 
CP1150 TSX AC0000,C          ADDRESS COMPILE SYM1 (S(I))                4F15111 
       TSX COMP,B                                                       4F15112 
       STZ CW                RESET CW                                   4F15113 
       TRA CP0540            GO MODIFY J                                4F15114 
CP1200 SLT 3                 OPJ (S(I)) = /                             4F15115 
       TRA CP1330                                                       4F15116 
       SLT 4                 PREDECESSOR IN ACC                         4F15117 
       TRA CP1670            FLO PT.                                    4F15118 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15119 
       TSX CIT00,C           COMPILE LRS 35                             4F15120 
       HTR L(0)                                                         4F15121 
       HTR L(LRS)                                                       4F15122 
       HTR L(0)                                                         4F15123 
       HTR DEC35                                                        4F15124 
       TRA CP1450                                                       4F15125 
CP1330 SLT 4                 PREDECESSOR IN MQ                          4F15126 
       TRA CP1570            AND SEGMENT IS                             4F15127 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15128 
CP1450 CLA L(DVP)                                                       4F15129 
       STO CW+1                                                         4F15130 
       TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15131 
       TSX COMP,B            COMPILE DVP SYMJ (S(I))                    4F15132 
       TSX CIT00,C           COMPILE CLM                                4F15133 
       HTR L(0)                                                         4F15134 
       HTR L(CLM)                                                       4F15135 
       HTR L(0)                                                         4F15136 
       HTR L(0)                                                         4F15137 
       TSX CIT00,C           COMPILE LLS 18                             4F15138 
       HTR L(0)                                                         4F15139 
       HTR L(LLS)                                                       4F15140 
       HTR L(0)                                                         4F15141 
       HTR DEC18                                                        4F15142 
       TRA CP0540            GO MODIFY J                                4F15143 
CP1570 CLA L(STQ)            PREDECESSOR IN MQ                          4F15144 
       STO CW+1              AND SEGMENT IS FLO PT                      4F15145 
       CLA X(                                                           4F15146 
       STO CW+2                                                         4F15147 
       STZ CW+3                                                         4F15148 
       TSX COMP,B            COMPILE STO 700000                         4F15149 
       CLA L(CLA)                                                       4F15150 
       STO CW+1                                                         4F15151 
       TSX COMP,B            COMPILE CLA 700000                         4F15152 
CP1670 CLA L(FDP)                                                       4F15153 
       STO CW+1              COMPILE FOP SYMJ (S(I))                    4F15154 
CP1690 TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15155 
       TSX COMP,B                                                       4F15156 
       TRA CP0540            GO MODIFY J                                4F15157 
CP1720 SLT 3                 OPJ(S(I))=*                                4F15158 
       TRA CP1840                                                       4F15159 
       CLA L(STO)            PREDECESSOR IN ACC                         4F15160 
       STO CW+1                                                         4F15161 
       CLA X(                                                           4F15162 
       STO CW+2                                                         4F15163 
       STZ CW+3                                                         4F15164 
       TSX COMP,B            COMPILE STO 700000                         4F15165 
       CLA L(LDQ)                                                       4F15166 
       STO CW+1                                                         4F15167 
       TSX COMP,B            COMPILE LDQ 700000                         4F15168 
CP1840 SLN 3                 TURN LATE 3 ON                             4F15169 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I))                 4F15170 
       SLT 4                                                            4F15171 
       TRA CP2000                                                       4F15172 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15173 
       CLA L(MPY)                                                       4F15174 
       STO CW+1                                                         4F15175 
       TSX COMP,B            COMPILE MPY SYMJ(S(I))                     4F15176 
       TSX CIT00,C           COMPILE ALS 17                             4F15177 
       HTR L(0)                                                         4F15178 
       HTR L(ALS)                                                       4F15179 
       HTR L(0)                                                         4F15180 
       HTR DEC17                                                        4F15181 
       TRA CP0540            GO MODIFY J                                4F15182 
CP2000 CLA L(FMP)            FLO PT.                                    4F15183 
       STO CW+1                                                         4F15184 
       TSX COMP,B            COMPILE FMP SYMJ(S(I))                     4F15185 
       TRA CP0540            GO MODIFY J.                               4F15186 
CP2040 LGL 7                 OPI(S(I))=SPOP                             4F15187 
       LBT                   TEST OP1(S(I))12                           4F15188 
       TQP CP2650            LIB OR OPEN FUNCTION                       4F15189 
       TQP CP5000            FN-FUNCTION                                4F15190 
       PXD 0,0               FS-FUNCTION                                4F15191 
       LLS 15                PUT TYPE NO IN ADD(ACC)                    4F15192 
       ORA P(                FORM 4...TYPE NO.                          4F15193 
       SLW ARGORG            AND STO IN ARGORG                          4F15194 
       ANA MASK2                                                        4F15195 
       ORA X(                FORM 7...TYPE NO.                          4F15196 
       SLW XRSAVE            AND STO IN XRSAVE                          4F15197 
       CLA SCRIPL+1,A                                                   4F15198 
       LBT                   EXAMINE OP2(S(I))35                        4F15199 
       TRA CP2150            1ST ARG STORED                             4F15200 
CP2100 TSX CIT00,C           1ST ARG IN ACC                             4F15201 
       HTR L(0)              COMPILE STO 4...TYPE NO. + 0               4F15202 
       HTR L(STO)                                                       4F15203 
       HTR ARGORG                                                       4F15204 
       HTR L(0)                                                         4F15205 
       TXI CP2200,A,-3       GO ON TO OP3(S(I))                         4F15206 
CP2150 CAL L(CLA)                                                       4F15207 
       SLW CW+1                                                         4F15208 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15209 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15210 
       TRA CP2100                                                       4F15211 
CP2200 STZ CW                RESET CW                                   4F15212 
       LXD CP0400,B                                                     4F15213 
       TXI CP2230,B,3                                                   4F15214 
CP2230 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15215 
       SXD CP0400,B                                                     4F15216 
       CLA SCRIPL+1,A                                                   4F15217 
       LBT                   EXAMINE OP3(S(I))35                        4F15218 
       TRA CP2300            2ND ARG STORED                             4F15219 
CP2250 TSX CIT00,C           2ND ARG IN MQ                              4F15220 
       HTR L(0)              COMPILE STO 4...TYPE NO, + 1               4F15221 
       HTR L(STQ)                                                       4F15222 
       HTR ARGORG                                                       4F15223 
       HTR 2E18                                                         4F15224 
       TXI CP2350,A,-3       GO ON TO SYM4(S(I))                        4F15225 
CP2300 CAL L(LDQ)                                                       4F15226 
       SLW CW+1                                                         4F15227 
       TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15228 
       TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15229 
       TRA CP2250                                                       4F15230 
CP2350 CLA DECMI2            INITIALIZE DEC(P(CNTR) TO 2                4F15231 
       SLW P(CNTR                                                       4F15232 
CP2370 LXD CP0400,B                                                     4F15233 
       TXI CP2390,B,3                                                   4F15234 
CP2390 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15235 
       SXD CP0400,B                                                     4F15236 
       CAL L(CLA)                                                       4F15237 
       SLW CW+1                                                         4F15236 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)), J=4,...        4F15239 
       TSX COMP,B            COMPILE CLA SYMJ(S(I)),  J=4,...           4F15240 
       TSX CIT00,C           COMPILE STO 4...TYPE NO, + J-2, J=4,...    4F15241 
       HTR L(0)                                                         4F15242 
       HTR L(STO)                                                       4F15243 
       HTR ARGORG                                                       4F15244 
       HTR P(CNTR                                                       4F15245 
       CLA P(CNTR            UPDATE  P(CNTR                             4F15246 
       ADD 2E18                                                         4F15247 
       STO P(CNTR                                                       4F15248 
       TXI CP2370,A,-3                                                  4F15249 
CP2500 LXD 3QBAR,A           FINISHED WITH S(I)                         4F15250 
       CAL L(SXD)                                                       4F15251 
       SLW CW+1                                                         4F15252 
       CAL XRSAVE                                                       4F15253 
       SLW CW+2                                                         4F15254 
       CAL L(4)                                                         4F15255 
       SLW CW+3                                                         4F15256 
       TSX COMP,B            COMPILE  SXD 7...TYPE NO.  ,  4            4F15257 
       CAL L(TSX)                                                       4F15258 
       SLW CW+1                                                         4F15259 
       CAL SCRIPL+2,A                                                   4F15260 
       SLW CW+2                                                         4F15261 
       TSX COMP,B            COMPILE  TSX SYMI(S(I)),4                  4F15262 
       CAL L(LXD)                                                       4F15263 
       SLW CW+1                                                         4F15264 
       CAL XRSAVE                                                       4F15265 
       SLW CW+2                                                         4F15266 
       TRA CP6000                                                       4F15267 
CP5830 TXI ES0000,0,0                                                   4F15268 
       REM                                                              4F15269 
CP2650 LGL 20                TEST OPI(S(I))33                           4F15270 
       TQP CP3060            0... LIB. SBRTN                            4F15271 
       CLS CW                1... OPEN SBRTN                            4F15272 
       STO CW                CW TO -CW                                  4F15273 
       CLA SCRIPL-1,A                                                   4F15274 
       STO CW+2                                                         4F15275 
       TSX COMP,B            COMPILE FUNCTION NAME                      4F15276 
       STZ CW                RESET CW                                   4F15277 
       LXD CP0400,B                                                     4F15278 
       TXL CP2930,B,-9                                                  4F15279 
       CAL ALL1              OPEN UNIVARIATE FUNCTION                   4F15280 
       SLW CW                                                           4F15281 
       CLA SCRIPL+1,A                                                   4F15282 
       LBT                   EXAMINE OP2(S(I))35                        4F15283 
       TRA CP2900            0... ARG STORED                            4F15284 
       ARS 1                 1... ARG NOT STORED                        4F15285 
       LDQ ADPLUS                                                       4F15286 
       LBT                                                              4F15287 
       TRA CP2860                                                       4F15286 
       LDQ ADSTAR                                                       4F15289 
CP2860 STQ CW+2                                                         4F15290 
       STZ CW+3                                                         4F15291 
CP2880 TSX COMP,B            COMPILE ACC OR MQ INDICATOR                4F15292 
       STZ CW                RESET CW                                   4F15293 
       TRA ES0000                                                       4F15294 
CP2900 TSX AC0000,C          ADDRESS COMPILE SYM2(S(II)                 4F15295 
       TRA CP2880            GO COMPILE SYM2(S(I))                      4F15296 
CP2930 TSX AC0000,C          OPEN MULTIVARIATE FUNCTION                 4F15297 
       LXD CP0400,B                                                     4F15298 
       TXI CP2960,B,3                                                   4F15299 
CP2960 TXH CP3000,B,-6                                                  4F15300 
       SXD CP0400,B                                                     4F15301 
       TSX COMP,B            COMPILE SYMJ(S(I))                         4F15302 
       TXI CP2930,A,-3                                                  4F15303 
CP3000 CAL ALL1                                                         4F15304 
       SLW CW                                                           4F15305 
       TSX COMP,B            COMPILE LAST ARGUMENT NAME                 4F15306 
       STZ CW                RESET  CW                                  4F15307 
       TRA ES0000            GO TO  END-OF-SEGMENT SBRTN                4F15308 
CP3060 TXL CP3350,B,-9                                                  4F15309 
       CLA SCRIPL+1,A        CLOSED UNIVARIATE FUNCTION                 4F15310 
       LBT                   EXAMINE OP2(S(I))35                        4F15311 
       TRA CP3280            0... ARG STORED                            4F15312 
CP3100 CLA L(SXD)            1... ARG IN ACC                            4F15313 
       STO CW+1                                                         4F15314 
       CLA X(                                                           4F15315 
       STO CW+2                                                         4F15316 
       CLA L(4)                                                         4F15317 
       STO CW+3                                                         4F15318 
       TSX COMP,B            COMPILE SXD7...0,4                         4F15319 
       CLA L(TSX)                                                       4F15320 
       STO CW+1                                                         4F15321 
       CLA SCRIPL-1,A                                                   4F15322 
       STO CW+2                                                         4F15323 
       TSX COMP,B            COMPILE TSX SYMI(S(I)),4                   4F15324 
       TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15325 
CP3280 CLA L(CLA)                                                       4F15331 
       STO CW+1                                                         4F15332 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15333 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15334 
       STZ CW                RESET CW                                   4F15335 
       TRA CP3100            GO COMPILE SXD,TSX,LXD SEQUENCE            4F15336 
CP3350 TXL CP3560,B,-12                                                 4F15337 
       CLA SCRIPL+1,A        CLOSED BIVARIATE FUNCTION                  4F15338 
       LBT                   EXAMINE OP2(S(I))35                        4F15339 
       TRA CP3450            0... ARG1 STORED                           4F15340 
CP3390 CLA L(LDQ)            1... ARG1 IN ACC                           4F15341 
       STO CW+1                                                         4F15342 
       TXI CP3420,A,-3                                                  4F15343 
CP3420 TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15344 
       TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15345 
       TXI CP3100,A,3        GO COMPILE SXD,TSX,LXD SEQUENCE            4F15346 
CP3450 CLA SCRIPL+4,A                                                   4F15347 
       LBT                   EXAMINE OP3(S(I))35                        4F15348 
       TRA CP3490            0... ARG2 STORED                           4F15349 
       TRA CP3280            1... ARG2 IN MO                            4F15350 
CP3490 CLA L(CLA)                                                       4F15351 
       STO CW+1                                                         4F15352 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15353 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15354 
       STZ CW                REST CW                                    4F15355 
       TRA CP3390            GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE        4F15356 
CP3560 CLA SCRIPL+1,A        CLOSED MULTIVARIATE FUNCTION               4F15357 
       LBT                   EXAMINE OP2(S(II)35                        4F15358 
       TXI CP3820,A,-6       0... ARG1 STORED                           4F15359 
       TXI CP3600,A,-6       1... ARG1 IN ACC                           4F15360 
CP3600 CLA DECMI2                                                       4F15361 
       STO P(CNTR            INITIALIZE P(CNTR TO -2                    4F15362 
CP3620 CLA L(LDQ)                                                       4F15363 
       STO CW+1                                                         4F15364 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15365 
       TSX COMP,B            COMPILE LDQ SYMJ(S(I))                     4F15366 
       CLA L(STQ)                                                       4F15367 
       STO CW+1                                                         4F15368 
       CLA P(                                                           4F15369 
       STO CW+2                                                         4F15370 
       CLA P(CNTR                                                       4F15371 
       STO CW+3                                                         4F15372 
       SUB 2E18                                                         4F15373 
       STO P(CNTR                                                       4F15374 
       TSX COMP,B            COMPILE STQ 4...0-(J-2)                    4F15375 
       LXD CP0400,B                                                     4F15376 
       TXI CP3770,B,3                                                   4F15377 
CP3770 TXL CP3800,B,-12                                                 4F15378 
       LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15379 
       TXI CP3390,A,-3                                                  4F15380 
CP3800 SXD CP0400,B                                                     4F15381 
       TXI CP3620,A,-3       GO PICK UP NEXT ARG.                       4F15382 
CP3820 CLA SCRIPL-2,A                                                   4F15383 
       LBT                   EXAMINE OP3(S(I))35                        4F15384 
       TXI CP4070,A,6        0... ARG2 STORED                           4F15385 
       CLA DECMI2            1... ARG2 IN MQ                            4F15386 
       STO P(CNTR                                                       4F15387 
CP3870 CLA L(CLA)                                                       4F15388 
       STO CW+1                                                         4F15389 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15390 
       TSX COMP,B            COMPILE CLA SYMJ(S(I))                     4F15391 
       CLA L(STO)                                                       4F15392 
       STO CW+1                                                         4F15393 
       CLA P(                                                           4F15394 
       STO CW+2                                                         4F15395 
       CLA P(CNTR                                                       4F15396 
       STO CW+3                                                         4F15397 
       SUB 2E18                                                         4F15398 
       STO P(CNTR                                                       4F15399 
       TSX COMP,B            COMPILE STO 4...0-(J-2)                    4F15400 
       LXD CP0400,B                                                     4F15401 
       TXI CP4020,B,3                                                   4F15402 
CP4020 TXL CP4050,B,-12                                                 4F15403 
       LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15404 
       TXI CP3280,A,-3                                                  4F15405 
CP4050 SXD CP0400,B                                                     4F15406 
       TXI CP3870,A,-3       GO PICK UP NEXT ARG                        4F15407 
CP4070 CLA L(CLA)                                                       4F15408 
       STO CW+1                                                         4F15409 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(II)                 4F15410 
       TSX COMP,B            COMPILE CLASYM2(S(I))                      4F15411 
       STZ CW                RESET CW                                   4F15412 
       TXI CP3600,A,-6                                                  4F15413 
CP4140 LGL 27                OP1(S(I))=**                               4F15414 
       TQP CP4410            CLOSED SBRTN SINCE OP1(S(I))33=0           4F15415 
       LBT                   OPEN SBRTN SINCE OP1(S(I))33=1             4F15416 
       TRA CP4200            BASE FIX PT SINCE OP1(S(1))32=0            4F15417 
       CLA STRSTR            BASE FLO PT SINCE OP1(S(1))32=1            4F15418 
       TRA CP4210                                                       4F15419 
CP4200 CLA ADSTAR                                                       4F15420 
CP4210 STO CW+1                                                         4F15421 
       LGL 2                 EXAMINE OP1(S(I))35                        4F15422 
       TQP CP4310            0...  BASE STORED                          4F15423 
       LDQ ADSTAR            1...  BASE NOT STORED                      4F15424 
       LBT                   EXAMINE OP1(S(I)34                         4F15425 
       LDQ ADPLUS            0...  BASE IN ACC                          4F15426 
       STQ CW+2              1...BASE IN MQ                             4F15427 
       STZ CW+3                                                         4F15428 
       TRA CP4320                                                       4F15429 
CP4310 TSX AC0000,C          ADDRESS COMPILE SYMI(S(I))                 4F15430 
CP4320 CLS CW                                                           4F15431 
       STO CW                CW TO -CW                                  4F15432 
       TSX COMP,B            COMPILE  BASE                              4F15433 
       STZ CW                RESET CW                                   4F15434 
       CLA SCRIPL+5,A                                                   4F15435 
       STO CW+2                                                         4F15436 
       TSX COMP,B            COMPILE FIX PT CONSTANT EXPONENT           4F15437 
       STZ CW+1              RESET CW+1                                 4F15438 
       TRA ES0000                                                       4F15439 
CP4410 LGL 3                 CLOSED EXP. SBRTN                          4F15440 
       LBT                   EXAMINE OP1(S(I))35                        4F15441 
       TRA CP4860            0... BASE STORED                           4F15442 
CP4440 CLA L(LDQ)            1... BASE IN ACC.                          4F15443 
       STO CW+1                                                         4F15444 
       TXI CP4470,A,-3                                                  4F15445 
CP4470 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15446 
       TSX COMP,B            COMPILE LDQ SYM2 (S(I))                    4F15447 
CP4490 CLA L(SXD)                                                       4F15448 
       STO CW+1                                                         4F15449 
       CLA X(                                                           4F15450 
       STO CW+2                                                         4F15451 
       CLA L(4)                                                         4F15452 
       STO CW+3                                                         4F15453 
       TSX COMP,B            COMPILE SXD 7...0.4                        4F15454 
       CLA L(TSX)                                                       4F15455 
       STO CW+1                                                         4F15456 
       CLA SCRIPL+1,A                                                   4F15457 
       ARS 3                                                            4F15458 
       LBT                   EXAMINE OP2(S(I))32                        4F15459 
       TXI CP4660,A,3        O...                                       4F15460 
       CLA FLFL              1... FLO**FLO                              4F15461 
       LDQ SCRIPL-2,A        EXAMINE OPI(S(I)I32 TO CHECK               4F15462 
       RQL 32                FOR MIXED EXPONENTIAL EXPRESSION           4F15463 
       TQP MC0310+2          ERROR FIX PT BASE, FLOAT EXP.              4F15464 
       TRA CP4730                                                       4F15465 
CP4660 LDQ SCRIPL+1,A                                                   4F15466 
       RQL 32                EXAMINE OP1(S(I))32                        4F15467 
       CLA FXFX                                                         4F15468 
       TQP CP4730            0...FX**FX                                 4F15469 
       CLA FLFX              1... FL**FX                                4F15470 
CP4730 STO CW+2                                                         4F15471 
       STO G                                                            4F15472 
       TSX COMP,B            COMPILE TSX FXFX/FLEX/FLFL,4               4F15473 
       TSX TET00,A                                                      4F15474 
       HTR 9                                                            4F15475 
       TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15476 
CP4860 CLA L(CLA)                                                       4F15462 
       STO CW+1                                                         4F15483 
       TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15484 
       TSX COMP,B            COMPILE CLA SYMI(S(I))                     4F15485 
       STZ CW                                                           4F15486 
       CLA SCRIPL+4,A                                                   4F15487 
       LBT                   EXAMINE OP2*S(I))35                        4F15488 
       TXI CP4440,0,0        0...EXP STORED                             4F15489 
       TXI CP4490,A,-3       1... EXP IN MQ                             4F15490 
       REM                                                              4F15491 
CP5000 CLA EIFNO             FN FUNCTION                                4F15492 
       ADD 2E18              UPDATE EIFNO                               4F15493 
       STO EIFNO             AND                                        4F15494 
       STO FNSW              SET FN SWITCH                              4F15495 
       STD 1C                KEEP 1C UPDATED FOR PENDING TIFGO ENTRY,   4F15496 
       LXA L(1),C            INITIALIZE 5TAIX TO 1                      4F15497 
CP5050 CLA SCRIPL,A          EXAMIN  TAGJ(S(I)), J=2,...                4F15498 
       TMI CP5180            NONSUBSCRIPTED                             4F15499 
       SXD CP5830,B          SUBSCRIPTED-IS THERE A GENERAL TAG         4F15500 
       SXD STACTR,C                                                     4F15501 
       TSX AC0000,C                                                     4F15502 
       CAL TAGPRT                                                       4F15503 
       TNZ CP5220            GENERAL TAG PRESENT                        4F15504 
       CAL CW+3              NO GENERAL TAG PRESENT,SO PLACE            4F15505 
       ARS 11                RELATIVE ADDRESS IN OPJ(S(I))14-28 AND     4F15506 
       ORA NGTBIT            SET OPJ(S(I))10=I FROM NGTBIT              4F15507 
       ORS SCRIPL+1,A                                                   4F15508 
CP5160 LXD STACTR,C                                                     4F15509 
       LXD CP5830,B                                                     4F15510 
CP5180 TXI CP5190,B,3                                                   4F15511 
CP5190 TXH CP5460,B,-6       FINISHED WITH PRELUDE,IF ANY               4F15512 
       TXI CP5210,C,1        NOT FINISHED-STAIX=STAIX+1                 4F15513 
CP5210 TXI CP5050,A,-3       GO ON TO NEXT ARGUMENT                     4F15514 
CP5220 CAL L(PXD)                                                       4F15515 
       SLW CW+1                                                         4F15516 
       TSX COMP,B            COMPILE PXD SYMJ(S(I)), TAGJ(S(I))         4F15517 
       STZ CW                RESET CW                                   4F15518 
       TSX CIT00,C           COMPILE ARS 18                             4F15519 
       HTR L(0)                                                         4F15520 
       HTR L(ARS)                                                       4F15521 
       HTR L(0)                                                         4F15522 
       HTR DEC18                                                        4F15523 
       TSX CIT00,C           COMPILE ADD *-2                            4F15524 
       HTR L(0)                                                         4F15525 
       HTR L(ADD)                                                       4F15526 
       HTR PROCTR                                                       4F15527 
       HTR DECMI2                                                       4F15528 
       CAL L(STA)                                                       4F15529 
       SLW CW+1                                                         4F15530 
       CAL EIFNO                                                        4F15531 
       ANA MASK1                                                        4F15532 
       SLW CW+2                                                         4F15533 
       LXD STACTR,C                                                     4F15534 
       PXD 0,C                                                          4F15535 
       SLW CW+3                                                         4F15536 
       TSX COMP,B            COMPILE STA IFN+STAIX                      4F15537 
       TXI CP5160,0,0        GO ON TO NEXT ARGUMENT,IF ANY              4F15538 
CP5460 LXD 3QBAR,A                                                      4F15539 
       CAL L(SXD)                                                       4F15540 
       SLW CW+1                                                         4F15541 
       CAL X(                                                           4F15542 
       SLW CW+2                                                         4F15543 
       CAL L(4)                                                         4F15544 
       SLW CW+3                                                         4F15545 
       TSX COMP,B            COMPILE SXD 7,4                            4F15546 
       CAL EIFNO                                                        4F15547 
       ANA MASK1                                                        4F15548 
       SLW CW                                                           4F15549 
       CAL L(TSX)                                                       4F15550 
       SLW CW+1                                                         4F15551 
       CAL SCRIPL+2,A                                                   4F15552 
       SLW CW+2                                                         4F15553 
       TSX COMP,B            COMPILE TSX SYMI(S(I)),4                   4F15554 
       STZ CW                RESET CW                                   4F15555 
       TXI CP5680,A,-3       POSITION XA TO SYM2(S(I))                  4F15556 
CP5680 CLA SCRIPL,A                                                     4F15557 
       TPL CP5700                                                       4F15558 
       TSX AC0000,C          NONSUBSCRIPTED                             4F15559 
STACTR TXI CP5720,0,0                                                   4F15560 
CP5700 LDQ SCRIPL+1,A        SUBSCRIPTED                                4F15561 
       LGL 11                                                           4F15562 
       LBT                                                              4F15563 
       LDQ L(0)              GENERAL TAG PRESENT                        4F15564 
       STQ CW+3              NO GENERAL TAG PRESENT                     4F15565 
       CAL SCRIPL+2,A                                                   4F15566 
       SLW CW+2                                                         4F15567 
CP5720 TSX COMP,B            COMPILE TSX SYMJ(S(I)) , J=2,,.,           4F15568 
       LXD CP0400,B                                                     4F15569 
       TXI CP5750,B,3                                                   4F15570 
CP5750 TXH CP5780,B,-6       FINISHED SCANNING                          4F15571 
       SXD CP0400,B                                                     4F15572 
       TXI CP5680,A,-3                                                  4F15573 
CP5780 TSX FLTR00,4          COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15574 
       HTR L(0)                                                         4F15575 
       HTR L(LXD)                                                       4F15576 
       HTR X(                                                           4F15577 
       HTR L(4)                                                         4F15578 
ES0000 LXD 3QBAR,A           -3Q TO XA                                  4F15579 
       SLT 1                                                            4F15580 
       TRA CP0130            GO TO NEXT SEGMENT                         4F15581 
       CAL SCRIPL,A                                                     4F15582 
       ANA MASK2                                                        4F15583 
       TZE ES0160                                                       4F15584 
       CLA ARERAS            S(I) NOT = S(O)                            4F15585 
       STO CW+2                                                         4F15586 
       CLA PHI(I)                                                       4F15587 
       STO CW+3                                                         4F15588 
       CLA L(STQ)                                                       4F15589 
       SLT 2                                                            4F15590 
       CLA L(STO)                                                       4F15591 
       STO CW+1                                                         4F15592 
       TSX COMP,B            COMPILE STO/STQ 1... TYPE NO + PHI(I)      4F15593 
       TRA CP0130            GO TO NEXT SEGMENT                         4F15594 
ES0160 LDQ LEFT+2            S(I)=S(O)                                  4F15595 
       LGL 12                                                           4F15596 
       CAS IFSYM             IS THIS AN IF STATEMENT                    4F15597 
       TRA ES0200                                                       4F15598 
       TRA ES1500                                                       4F15599 
ES0200 CAS CALLER            IS THIS A CALL STATEMENT                   4F15600 
       TRA ES0210                                                       4F15601 
       TRA ES1520                                                       4F15602 
ES0210 CAS SAPSYM                                                       4F15603 
       TRA ES0220                                                       4F15604 
       TRA ES1710                                                       4F15605 
ES0220 ARS 6                                                            4F15606 
       LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15607 
       TXH ES1300,C,0        YES                                        4F15608 
       CAS L(H)              NOT A FUNCTION STATEMENT                   4F15609 
       CAS L(O)                                                         4F15610 
       TRA ES0300                                                       4F15611 
       TRA ES0300                                                       4F15612 
       SLT 4                                                            4F15613 
       TRA ES0870                                                       4F15614 
ES0710 CLA L(STQ)            FX(FLO) PT ON LEFT, FX(FLO)  PT ON RIGHT   4F15615 
       SLT 2                                                            4F15616 
ES0730 CLA L(STO)                                                       4F15617 
       STO CW+1                                                         4F15618 
       CLA LEFT                                                         4F15619 
       STO TAGWRD                                                       4F15620 
       CLA LEFT+1                                                       4F15621 
       STO OPWORD                                                       4F15622 
       CLA LEFT+2                                                       4F15623 
       STO SYMWRD                                                       4F15624 
       TSX AC0060,C          ADDRESS COMPILE VARIABLE ON LEFT           4F15625 
       TSX COMP,B            COMPILE STO/STQ LEFT+2                     4F15626 
       TRA ES1590            EXIT TO FETCH STATE A                      4F15627 
ES0870 SLT 2                 FX PT ON LEFT, FLO PT ON RIGHT             4F15628 
       TRA ES0990                                                       4F15629 
       CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15630 
       STO CW+1                                                         4F15631 
       CLA X(                                                           4F15632 
       STO CW+2                                                         4F15633 
       STZ CW+3                                                         4F15634 
       TSX COMP,B            COMPILE STQ 700000                         4F15635 
       CLA L(CLA)                                                       4F15636 
       STO CW+1                                                         4F15637 
       TSX COMP,B            COMPILE CLA 700000                         4F15638 
ES0990 TSX CIT00,C           COMPILE FIXING INSTRUCTIONS, WHEN          4F15639 
       HTR L(0)              RESULT ON RIGHT IS IN ACC.                 4F15640 
       HTR L(UFA)                                                       4F15641 
       HTR O(                                                           4F15642 
       HTR L(0)                                                         4F15643 
       TSX CIT00,C                                                      4F15644 
       HTR L(0)                                                         4F15645 
       HTR L(LRS)                                                       4F15646 
       HTR L(0)                                                         4F15647 
       HTR L(0)                                                         4F15648 
       TSX CIT00,C                                                      4F15649 
       HTR L(0)                                                         4F15650 
       HTR L(ANA)                                                       4F15651 
       HTR O(                                                           4F15652 
       HTR 2E18                                                         4F15653 
       TSX CIT00,C                                                      4F15654 
       HTR L(0)                                                         4F15655 
       HTR L(LLS)                                                       4F15656 
       HTR L(0)                                                         4F15657 
       HTR L(0)                                                         4F15658 
       TSX CIT00,C                                                      4F15659 
       HTR L(0)                                                         4F15660 
       HTR L(ALS)                                                       4F15661 
       HTR L(0)                                                         4F15662 
       HTR DEC18                                                        4F15663 
       TRA ES0610                                                       4F15664 
ES0300 SLT 4                                                            4F15665 
       TRA ES0710                                                       4F15666 
ES0320 SLT 2                 FLO PT ON LEFT, FX PT ON RIGHT             4F15667 
       TRA ES0440                                                       4F15668 
       CLA L(STQ)            RESULT ON RIGHT APPEARS IN MO              4F15669 
       STO CW+1                                                         4F15670 
       CLA X(                                                           4F15671 
       STO CW+2                                                         4F15672 
       STZ CW+3                                                         4F15673 
       TSX COMP,B            COMPILE STQ 700000                         4F15674 
       CLA L(CLA)                                                       4F15675 
       STO CW+1                                                         4F15676 
       TSX COMP,B            COMPILE CLA 700000                         4F15677 
ES0440 TSX CIT00,C           COMPILE FLOATING INSTRUCTIONS, WHEN        4F15678 
       HTR L(0)              RESULT ON RIGHT IS IN ACC                  4F15679 
       HTR L(LRS)                                                       4F15680 
       HTR L(0)                                                         4F15681 
       HTR DEC18                                                        4F15682 
       TSX CIT00,C                                                      4F15683 
       HTR L(0)                                                         4F15684 
       HTR L(ORA)                                                       4F15685 
       HTR O(                                                           4F15686 
       HTR L(0)                                                         4F15687 
       TSX CIT00,C                                                      4F15688 
       HTR L(0)                                                         4F15689 
       HTR L(FAD)                                                       4F15690 
       HTR O(                                                           4F15691 
       HTR L(0)                                                         4F15692 
ES0610 LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15693 
       TXL ES0730,C,0        NO                                         4F15694 
ES0630 CLA L(TRA)            YES                                        4F15695 
       STO CW+1                                                         4F15696 
       STZ CW+2                                                         4F15697 
       CAL 2E18                                                         4F15698 
       ORA L(4)                                                         4F15699 
       SLW CW+3                                                         4F15700 
       TSX COMP,B            COMPILE TRA  1,4                           4F15701 
       TRA ES1590            EXIT  TO FETCH STATE A                     4F15702 
ES1300 SUB L(X)                                                         4F15703 
       TZE ES1360                                                       4F15704 
       SLT 4                                                            4F15705 
       TRA ES1380                                                       4F15706 
       TRA ES0320                                                       4F15707 
ES1360 SLT 4                                                            4F15708 
       TRA ES0870                                                       4F15709 
ES1380 SLT 2                                                            4F15710 
       TRA ES0630                                                       4F15711 
       CLA L(STQ)                                                       4F15712 
       STO CW+1                                                         4F15713 
       CLA X(                                                           4F15714 
       STO CW+2                                                         4F15715 
       STZ CW+3                                                         4F15716 
       TSX COMP,B            COMPILE STQ 700000                         4F15717 
       CLA L(CLA)                                                       4F15718 
       STO CW+1                                                         4F15719 
       TSX COMP,B            COMPILE CLA 700000                         4F15720 
       TRA ES0630                                                       4F15721 
ES1500 TSX TET00,1                 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722 
       PZE 2                         INTO  TIFGO  TABLE  (TABLE 2),     4F15723 
       TRA ES1530                                                       4F15724 
ES1520 LXD EIFNO,4                                                      4F15725 
       SXD CALLNM,4          PREPARE  ENTRY FOR TABLE OF CALL FIRST AND 4F15726 
       TSX TET00,1           LAST IFN NUMBERS,                          4F15727 
           16                                                           4F15728 
ES1530 SLT 2                                                            4F15729 
       TRA ES1590            EXIT TO  FETCH STATE A                     4F15730 
       TSX CIT00,C           COMPILE  LLS 37                            4F15731 
           L(0)                                                         4F15732 
           L(STQ)                                                       4F15733 
           X(                                                           4F15734 
           L(0)                                                         4F15735 
       TSX CIT00,4                                                      4F15736 
           L(0)                                                         4F15737 
           L(CLA)                                                       4F15738 
           X(                                                           4F15739 
           L(0)                                                         4F15740 
ES1590 CLA FNSW                                                         4F15741 
       TZE MTR000                                                       4F15742 
       CLA F-1                                                          4F15743 
       SUB 5BLANS                                                       4F15744 
       TZE MTR000                                                       4F15745 
       CLS EIFNO                                                        4F15746 
       STO EIFNO                                                        4F15747 
       TSX TET00,A                                                      4F15748 
       HTR 0                                                            4F15749 
       CLS EIFNO                                                        4F15750 
       STO EIFNO                                                        4F15751 
       TRA MTR000                                                       4F15752 
ES1710 LXD BBOX,B                                                       4F15753 
       CLA OPNWRD                                                       4F15754 
       STO CIB-3,B                                                      4F15755 
       TRA MTR000                                                       4F15756 
       REM                                                              4F15757 
COMP   TSX CIT00,C                                                      4F15758 
       HTR CW                                                           4F15759 
       HTR CW+1                                                         4F15760 
       HTR CW+2                                                         4F15761 
       HTR CW+3                                                         4F15762 
       TRA 1,B                                                          4F15763 
       REM                                                              4F15764 
AC0000 CLA SCRIPL,A                                                     4F15765 
       STO TAGWRD                                                       4F15766 
       CLA SCRIPL+1,A                                                   4F15767 
       STO OPWORD                                                       4F15768 
       CLA SCRIPL+2,A                                                   4F15769 
       STO SYMWRD                                                       4F15770 
AC0060 CAL TAGWRD                                                       4F15771 
       ANA MASK1             EXTRACT  TAGS IN ACC.                      4F15772 
       PBT                                                              4F15773 
       TRA AC0540                                                       4F15774 
       PXD 0,0               NON-SUBSCRIPTED SYMBOL                     4F15775 
       LDQ SYMWRD                                                       4F15776 
       LGL 1                                                            4F15777 
       LBT                                                              4F15778 
       TQP AC0460            SYMBOL IS SOME S(K)                        4F15779 
       LGL 11                NON-SUBSCRIPTED EX/INTERNAL VARIABLE       4F15760 
       SUB L(A()             IS THIS A FLO PT CONSTANT                  4F15781 
       TZE AC0410            YES                                        4F15782 
       ADD L(A()             NO                                         4F15783 
       SUB L(I()             IS THIS A FIX PT CONSTANT                  4F15784 
       TZE AC0390            YES                                        4F15785 
       ADD L(I()             NO                                         4F15786 
       SUB L(H()             IS THIS A HOLLERITH FIELD                  4F15787 
       TZE AC0350            YES                                        4F15788 
       LDQ OPWORD            NON-SUBSCRIPTED EXTERNAL VARIABLE          4F15789 
       LGL 13                IS THIS A FREE VARIABLE                    4F15790 
       TQP AC0340            NO                                         4F15791 
       LLS 15                YES                                        4F15792 
       COM                                                              4F15793 
       SUB L(1)                                                         4F15794 
       PAX 0,B                                                          4F15795 
       PXD 0,8                                                          4F15796 
       SLW CW+3              STORE ARGUMENT BUFFER RELATIVE ADDRESS     4F15797 
       LXD BK,B                                                         4F15798 
       CAL FORSUB-1,B                                                   4F15799 
       ANA MASK2             EXTRACT FUNCTION STATEMENT TYPE            4F15600 
       ORA P(                                                           4F15801 
AC0320 SLW CW+2                                                         4F15802 
       TRA 1,C               RETURN                                     4F15803 
AC0340 STZ CW+3              NON-SUBSCRIPTED, REAL VARIABLE             4F15804 
       CAL SYMWRD                                                       4F15805 
       TRA AC0320                                                       4F15806 
AC0350 CAL H(                                                           4F15807 
       TRA AC0420                                                       4F15808 
AC0390 CLA I(                FIX PT INTERNAL VARIABLE                   4F15809 
       TRA AC0420                                                       4F15810 
AC0410 CLA A(                FLO PT INTERNAL VARIABLE                   4F15811 
AC0420 STO CW+2                                                         4F15812 
       RQL 6                                                            4F15813 
       STQ CW+3                                                         4F15814 
       TRA 1,C               RETURN                                     4F15815 
AC0460 LGL 35                SYMBOL IS SOME S(K)                        4F15616 
TDRADD PAX 0,B                                                          4F15817 
       CAL CPBETA,6                                                     4F15618 
       ANA MASK1             EXTRACT PHI(K)                             4F15819 
       SLW CW+3                                                         4F15820 
       CAL ARERAS                                                       4F15621 
       TRA AC0320                                                       4F15822 
AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823 
       LDQ TAGWRD                                                       4F15824 
       PXD ,0                CLEAR AC.                                  4F15825 
       LGL 12                I-TAU  TAGS TO AC                          4F15826 
       SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827 
       TQP *+3                                                          4F15828 
       STZ CW+3                                                         4F15829 
       CAL 2E18              REPLACE NULL TAG,                          4F15830 
       SLW TAGPRT            SAVE FOR LATER USE.                        4F15831 
       LGL 1                                                            4F15832 
       PXD ,0                CLEAR AC                                   4F15833 
       LGL 8                 FORM TWICE SIGMA TAG.                      4F15834 
       ALS 1                                                            4F15835 
       ADM SIG1IX-2          FORM BASE OF TABLE + SIGMA TAG.            4F15836 
       STA SDRADD                                                       4F15837 
SDRADD PXD **,0                                                         4F15838 
       RDR 2                                                            4F15839 
       LDA SDRADD                                                       4F15840 
       CAD DUMP                                                         4F15841 
       COM                                                              4F15842 
       CAD DUMP                                                         4F15843 
       COM                                                              4F15844 
       TZE *+2               CHECK SUM TEST,                            4F15845 
       TSX DIAG,4            ERROR SIGMA1 CKSUM FAILS                   4F15846 
       CAL DUMP                                                         4F15847 
       ORS CW+3              ADD RELATIVE ADDRESS TO I-TAU TAG.         4F15848 
       CLA SYMWRD            MOVE VARIABLE NAME FOR NEXT CIT ENTRY.     4F15849 
       STO CW+2                                                         4F15850 
       TRA 1,4               RETURN  TO CALLER                          4F15851 
       REM                                                              4F158511
CP6000 TSX FLTR00,4          COMPILE FLOW TRACE INFORMATION AND THEN    4F158512
           CW                COMPILE LXD 7(TYPE =*4                     4F158513
           CW+1                                                         4F158514
           CW+2                                                         4F158515
           CW+3                                                         4F158516
       TRA ES0000                                                       4F158517
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852 
ENDDDR BSS 0                                                            4F158525
       REM                                                              4F15853 
ENDD   ORG 3184                                                         4F15854 
FNSW   BSS 1                                                            4F15855 
P(CNTR BSS 1                                                            4F15856 
ARGORG BSS 1                                                            4F15857 
XRSAVE BSS 1                                                            4F15858 
CW     BSS 4                                                            4F15859 
TAGWRD BSS 1                                                            4F15860 
OPWORD BSS 1                                                            4F15861 
SYMWRD BSS 1                                                            4F15862 
TAGPRT BSS 1                                                            4F15863 
CPBETA BSS 300                                                          4F15864 
SCRIPL BSS 600                                                          4F15865 
       REM  END OF ARITHMETIC / STATE D.                                4F15866 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867 
       REM                                                              4F15868 
       REM SYNONYMS USED BY SECTION ONE.                                4F15869 
1E     SYN ERASE                     COMMON WORKING STORAGE.            4F15870 
1TOCS  SYN 4                         ENTRY TO SYSTEM TAPE MONITOR.      4F15871 
2E     SYN ERASE+1                   COMMON WORKING STORAGE.            4F15872 
2P     SYN I(                                                           4F15873 
36ONES SYN ALL1                                                         4F15874 
3E     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15875 
3QBAR  SYN 3LBAR                                                        4F15876 
4E     SYN ERASE+3                   COMMON WORKING STORAGE.            4F15877 
A      EQU 1                                                            4F15878 
ABLANK SYN BLANK                                                        4F15879 
ACOMMA SYN COMMA                                                        4F15880 
ADD    SYN L(ADD)                                                       4F15881 
AEQUAL SYN EQUAL                                                        4F15882 
ALPAR  SYN OPEN                                                         4F15883 
ARITH  SYN STATEB                                                       4F15884 
ARPAR  SYN CLOS                                                         4F15885 
ARS    SYN L(ARS)                                                       4F15886 
B      EQU 2                                                            4F15887 
C      EQU 4                                                            4F15888 
 CAL   SYN L(CAL)                                                       4F15889 
CIT    SYN CIT00                                                        4F15890 
CITMQR SYN E1C                       ERASABLE STORAGE.                  4F15891 
CITTAP SYN 147                       COMPILED INSTRUCTION TAPE,         4F15892 
CITXR1 SYN ERASE+1                   ERASABLE STORAGE.                  4F15893 
CITXR2 SYN ERASE+2                   ERASABLE STORAGE.                  4F15894 
 CPY   SYN L(CPY)                                                       4F15895 
D1     SYN 2E18                                                         4F15896 
D12    SYN ERASE+1                   COMMON WORKING  STORAGE.           4F15897 
 D18   SYN DEC18                                                        4F15898 
D3     SYN ERASE+2                   COMMON WORKING  STORAGE.           4F15899 
 DED   SYN L(DED)                                                       4F15900 
DEL(A) SYN 0                         DRUM ORIGIN FOR STATE A,           4F15901 
DEL(B) SYN 1160                      DRUM ORIGIN FOR STATE B.           4F15902 
DEL(C) SYN 1275                      DRUM ORIGIN FOR STATE C.           4F15903 
DEL(D) SYN 722                       DRUM ORIGIN FOR STATE D.           4F15904 
DIM1   SYN 0200                      DRUM TABLE ORIGIN -DRTABS,DIM.SR,  4F15905 
DIM2   SYN 0500                      DRUM TABLE ORIGIN -DRTABS,DIM,SR.  4F15906 
DIM3   SYN 0800                      DRUM TABLE ORIGIN -DRTABS,DIM,SR.  4F15907 
DIMCTR SYN ERASE                     COMMON WORKING STORAGE.            4F15908 
DMP    SYN E(                                                           4F15909 
DOE    SYN ERASE                     COMMON WORKING STORAGE.            4F15910 
DRCKSM SYN ERASE+3                   COMMON WORKING STORAGE.            4F15911 
DRMADR SYN ERASE+4                   ERASABLE STORAGE.                  4F15912 
DRMERC SYN L(5)                      NUMBER OF DRUM READING ATTEMPTS.   4F15913 
DRSYM  SYN ERASE                     COMMON WORKING STORAGE.            4F15914 
E1TDR  SYN ERASE                     COMMON WORKING STORAGE.            4F15915 
E2C    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15916 
E2TDR  SYN ERASE+1                   COMMON WORKING STORAGE.            4F15917 
E3C    SYN ERASE+2                   COMMON WORKING STORAGE.            4F15918 
E3TDR  SYN ERASE+2                   COMMON WORKING STORAGE.            4F15919 
EKE    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15920 
ENOND  SYN ERASE+3                   COMMON WORKING STORAGE.            4F15921 
FEOD   SYN ERASE+4                   COMMON WORKING STORAGE.            4F15922 
FIXCON SYN 0002                      DRUM TABLE ORIGIN -DRTABS,         4F15923 
FLOCON SYN 202                       DRUM TABLE ORIGIN -DRTABS.         4F15924 
FXCODR SYN 2                                                            4F15925 
H      SYN ERASE+2                   COMMON WORKING STORAGE.            4F15926 
H(     SYN ADSPOP                                                       4F15927 
HPR    SYN L(HPR)                                                       4F15928 
 LDA   SYN L(LDA)                                                       4F15929 
LXD    SYN L(LXD)                                                       4F15930 
L(10)  SYN TEN                                                          4F15931 
L(11)  SYN EQUAL                                                        4F15932 
L(12)  SYN MINUS                                                        4F15933 
L(1D)  SYN 2E18                                                         4F15934 
L(63)  SYN ENDMK                                                        4F15935 
MEMORG SYN 1824                      MEMORY ORIGIN FOR ALL STATES.      4F15936 
MSK    SYN MASK2                                                        4F15937 
MTR000 SYN STATEA                                                       4F15938 
MTR300 SYN MTR3                                                         4F15942 
N      SYN ERASE+3                   COMMON  WORKING  STORAGE.          4F15943 
PLUS   SYN 12Z                                                          4F15945 
PXD    SYN L(PXD)                                                       4F15946 
RAXR4  SYN ERASE                     COMMON  WORKING  STORAGE.          4F15947 
SIGMA1 SYN 0662                      DRUM TABLE ORIGIN -DRTABS.         4F15948 
SR6WRK SYN ERASE+1                   ERASABLE STORAGE.                  4F15949 
 ST    SYN L(8)                                                         4F15950 
STA    SYN L(STA)                                                       4F15951 
STCKSM SYN ERASE+4                   COMMON WORKING STORAGE,            4F15952 
TABTAP SYN 148                       TABLE TAPE.                        4F15953 
TAG4   SYN 2E17                                                         4F15954 
TAU1   SYN 0000                      DRUM TABLE ORIGIN -DRTABS.         4F15955 
TAU2   SYN 0300                      DRUM TABLE ORIGIN -DRTABS.         4F15956 
TAU3   SYN 0750                      DRUM TABLE ORIGIN -DRTA8S.         4F15957 
TERC   SYN L(5)                      TAPE ERROR COUNTER.                4F15958 
TETMQR SYN ERASE+3                   ERASABLE STORAGE,                  4F15959 
TETWRK SYN ERASE+2                   ERASABLE STORAGE.                  4F15960 
TETXR2 SYN ERASE                     ERASABLE STORAGE.                  4F15961 
TETXR4 SYN ERASE+1                   ERASABLE STORAGE.                  4F15962 
 TIX   SYN L(TIX)                                                       4F15963 
ZER    SYN O(                                                           4F15964 
..     EQU 0                                                            4F15965 
       REM END OF SYNONYMS USED BY SECTION ONE.                         4F15966 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967 
       REM                                                              4F15968 
       REM END OF SECTION ONE.                                          4F15969 
       END                                                              4F15970 
       REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000.      4F1D0010                        
       REM ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE
       ORG 0                                                            4F1D0020
       PZE DIAG,,DIAG                                                   4F1D0030
       PZE 8191                                                         4F1D0040
       REM 704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020.         4F1D0050
       REM                                                              4F1D0060
       REM THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN    4F1D0070
       REM SECTION ONE AND ONCE AT THE END OF SECTION ONE,              4F1D0080
       REM                                                              4F1D0090
DIAG   ORG 1824+4096         MOD 4K OR 8K MACHINE SIZE                  4F1D0100
A      EQU 1                                                            4F1D0110
B      EQU 2                                                            4F1D0120
C      EQU 4                                                            4F1D0130
EXITX  EQU 32767                                                        4F1D0140
EDIT   TXH ERENT,C,0         IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150
       CLA 16                IF NON ZERO IT IS AN ERROR CALL,           4F1D0160
       ANA L(4)D             IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170
       TZE 4                 ERRORS DURING SECTION ONE ( INDICATED BY   4F1D0180
       TSX PRINT,C                                                      4F1D0190
       HTR STOP,0,XCOM                                                  4F1D0200
       TSX PRINT,C           BIT IN WORD 20 OCTAL), IF THERE WERE NO    4F1D0210
       PZE RESTR,0,RESTR+1   ERRORS GO TO SEC ONE PRIME. IF THERE WERE  4F1D0220
       LXA DCELL1,4          GET INDICATOR OF SOURCE PROGRAM ERRORS.    4F1D0230
       TXH SOURCE,4,0        TEST IF ANY OF ERROR WERE SOURCE.          4F1D0240
       LXA L(8),4            NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE  4F1D0250
       BST 1                 ERROR RECORD.                              4F1D0260
       TIX *-1,4,1                                                      4F1D0270
       TRA 4                 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280
SOURCE LXA L(12),4           SOME SOURCE PROGRAM ERRORS, RECOMPILATION  4F1D0290
       BST 1                 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE    4F1D0300
       TIX *-1,4,1           PROGRAM ERROR RECORD.                      4F1D0310
       TRA 4                 NOW GO TO 1 TO CS FOR THIS RECORD.         4F1D0320
       BSS 10                EXPANSION AREA.  FOR PESSIMISM...          4F1D0330
       REM NUMBERS           OF MACHINE ERROR CALL FROM SECTION ONE,    4F1D0340
MACERR BCD 1002034                                                      4F1D0350
       BCD 1002062                                                      4F1D0360
       BCD 1002266                                                      4F1D0370
       BCD 1002433                                                      4F1D0380
       BCD 1002434                                                      4F1D0390
       BCD 1002435                                                      4F1D0400
       BCD 1002436                                                      4F1D0410
       BCD 1002523                                                      4F1D0420
       BCD 1002565                                                      4F1D0430
       BCD 1003272                                                      4F1D0440
       BCD 1003561                                                      4F1D0450
       BCD 1005715                                                      4F1D0460
       BCD 1004347                                                      4F1D0470
       BCD 1005233                                                      4F1D0480
       BCD 1000553                                                      4F1D0490
       BCD 1000560                                                      4F1D0500
       BCD 1000563                                                      4F1D0510
       BCD 1000566                                                      4F1D0520
       BCD 1010534                                                              
       BCD 1012750                                                              
       BSS 18                MORE PESSIMISM...                                  
COUNT      20                                                           4F1D0540
       REM                                                              4F1D0550
       REM THIS IS AN ERROR CALL.                                       4F1D0560
ERENT  PXD 0,C                                                          4F1D0570
       COM                       CONSTRUCT OCTAL STOP                   4F1D0580
       ADD L(1)D                                                        4F1D0590
       PDX 0,B                                                          4F1D0600
       PXD 0,B                                                          4F1D0610
       LRS 35                                                           4F1D0620
       LXD L(6)D,B                                                      4F1D0630
ALS    ALS 3                                                            4F1D0640
       LGL 3                                                            4F1D0650
       TIX ALS,B,1                                                      4F1D0660
       STO NUMB                                                         4F1D0670
       LXA L(0),1            SET TO SEARCH TABLE OF NUMBERS OF MACHINE  4F1D0680
       LXA COUNT,2           ERRORS,                                    4F1D0690
       CAS MACERR,1          COMPARE  EACH ENTRY IN TABLE TO OCTAL      4F1D0700
       TXI *+3,1,1           NUMBER  IN AC                              4F1D0710
       TRA *+4               EXIT IF FOUND.                             4F1D0720
       TXI *+1,1,1                                                      4F1D0730
       TIX *-4,2,1           CONTINUE.                                  4F1D0740
       STA DCELL1            SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 4F1D0750
       LXA L(0),3                                                       4F1D0760
       CLA XXX                    CONSTRUCT CALLING SEQUENCE WORD FOR   4F1D0770
ONE    CAS TABLE,A                PRINTING COMMENT                      4F1D0780
       TRA TWO                                                          4F1D0790
       TRA FOUR                                                         4F1D0800
TWO    TXI THREE,A,-1                                                   4F1D0810
THREE  TXH ONE,A,0                                                      4F1D0820
       CLA NUMB                                                         4F1D0830
       STO XCOM                                                         4F1D0840
       CAL XKEY                                                         4F1D0850
       TRA EIGHT                                                        4F1D0860
FOUR   TXH FIVE,B,0                                                     4F1D0870
       SUB TABLE+1,A                                                    4F1D0880
       TZE SEVEN                                                        4F1D0890
       CLA NUMB                                                         4F1D0900
       SUB TABLE+1,A                                                    4F1D0910
       TZE NINE                                                         4F1D0920
       CLA XXX                                                          4F1D0930
       TRA TWO                                                          4F1D0940
NINE   TXI FIVE,A,-1                                                    4F1D0950
FIVE   PXD 0,A                                                          4F1D0960
       COM                                                              4F1D0970
       ADD L(1)D                                                        4F1D0980
       PDX 0,C                                                          4F1D0990
       PXD 0,C                                                          4F1D1000
       ADD TABAD                                                        4F1D1010
       TXH SIX,B,0                                                      4F1D1020
       ARS 18                                                           4F1D1030
       STO KEY                                                          4F1D1040
       CLA XXX                                                          4F1D1050
       TXI THREE,B,1                                                    4F1D1060
SIX    ORA KEY                                                          4F1D1070
       TRA EIGHT                                                        4F1D1080
SEVEN  CLA NUMB                                                         4F1D1090
       STO XCOM                                                         4F1D1100
       CLA XKEY                                                         4F1D1110
EIGHT  STO COMM                                                         4F1D1120
       CLA F-1                                                          4F1D1130
       STO F-2                                                          4F1D1140
       CLA BLANK                                                        4F1D1150
       STO F-1                                                          4F1D1160
       LXD L(X)D,A            CONSTRUCT CALLING SEQUENCE WORD           4F1D1170
       CLA ONES                                                         4F1D1180
STA05  CAS F+111,A                                                      4F1D1190
       TRA STA10                                                        4F1D1200
       TRA STA20                                                        4F1D1210
STA10  TIX STA05,A,1                                                    4F1D1220
       LXD L(0),A                                                       4F1D1230
STA20  PXD 0,A                                                          4F1D1240
       STO SES                                                          4F1D1250
       CLA L(X)D                                                        4F1D1260
       SUB SES                                                          4F1D1270
       ADD FORG                                                         4F1D1280
       STO SES                                                          4F1D1290
       CLA FORG                                                         4F1D1300
       ARS 18                                                           4F1D1310
       ORA SES                                                          4F1D1320
       STO STATE                                                        4F1D1330
       CLA 16                     WAS THERE A PREVIOUS ERROR CALL       4F1D1340
       ANA L(4)D                                                        4F1D1350
       TNZ PROG                                                         4F1D1360
       CLA L(4)D             NO, MAKE ERROR CALL INDICATION             4F1D1370
       ORS 16                                                           4F1D1380
       TSX PRINT,C                AND PRINT HEADING                     4F1D1390
       HTR START,0,STOP                                                 4F1D1400
       WPR                                                              4F1D1410
       WPR                                                              4F1D1420
       WPR                                                              4F1D1430
       WPR                                                              4F1D1440
PROG   TSX SETNBC,4                                                     4F1D1450
       TSX NNBC,4                                                       4F1D1460
       TSX NNBC,4                                                       4F1D1470
       SUB L(10)                                                        4F1D1480
       TNZ EXIT                                                         4F1D1490
       TSX SETNBC,4                                                     4F1D1500
       TSX NNBC,4                                                       4F1D1510
       SUB L(X)                                                         4F1D1520
       TNZ CALLBK                                                       4F1D1530
       CLA L(I)                                                         4F1D1540
       TSX REP,4                                                        4F1D1550
       TSX NNBC,4                                                       4F1D1560
       CLA L(F)                                                         4F1D1570
       TSX REP,4                                                        4F1D1580
       TSX NNBC,4                                                       4F1D1590
       SUB L(=)                                                         4F1D1600
       TNZ EXIT                                                         4F1D1610
       CLA L(LP)                                                        4F1D1620
       TSX REP,4                                                        4F1D1630
TXE    TXL EXIT,1,-110                                                  4F1D1640
       TSX NNBC,4                                                       4F1D1650
       SUB ENDM                                                         4F1D1660
       TNZ TXE                                                          4F1D1670
       CLA L(RP)                                                        4F1D1680
       TSX REP,4                                                        4F1D1690
       TRA EXIT                                                         4F1D1700
CALLBK CLA L(C)                   CHANGE Z BACK TO C                    4F1D1710
       TSX REP,4                                                        4F1D1720
       TSX NNBC,4                                                       4F1D1730
       CLA L(A)                   CHANGE TEN BACK TO A                  4F1D1740
       TSX REP,4                                                        4F1D1750
       TSX NNBC,4                                                       4F1D1760
       CLA L(L)                   CHANGE EQUAL BACK TO FIRST L          4F1D1770
       TSX REP,4                                                        4F1D1780
       TIX SECL,2,1                                                     4F1D1790
       TXI SECL,1,-1              ADJUST COUNTS FOR NEXT CHAR           4F1D1800
SECL   CLA L(L)                   CHANGE BLANK BACK TO SECOND L         4F1D1810
       TSX REP,4                                                        4F1D1620
       TRA EXIT                                                         4F1D1830
SETNBC LXD TXI,1                                                        4F1D1840
       LXA LGL,2                                                        4F1D1850
       LDQ F                                                            4F1D1860
       TRA 1,4                                                          4F1D1870
NNBC   PXD                                                              4F1D1880
LGL    LGL 6                                                            4F1D1890
       TIX CAS,2,1                                                      4F1D1900
       LDQ F,1                                                          4F1D1910
TXI    TXI TXI+1,1,-1                                                   4F1D1920
       LXA LGL,2                                                        4F1D1930
CAS    CAS BLANKX                                                       4F1D1940
       TRA 1,4                                                          4F1D1950
       TRA NNBC                                                         4F1D1960
       TRA 1,4                                                          4F1D1970
REP    STQ ES1                                                          4F1D1980
       SXD ES2,2                                                        4F1D1990
       SXD ES3,1                                                        4F1D2000
       LRS 35                                                           4F1D2010
       CAL ENDM                                                         4F1D2020
TXL    TXL TXL+2,2,5                                                    4F1D2030
       TXI TXL+4,1,1                                                    4F1D2040
       LGL 6                                                            4F1D2050
TIX    TIX TIX-1,2,1                                                    4F1D2060
       COM                                                              4F1D2070
       ANS F-1,1                                                        4F1D2080
       LGL 36                                                           4F1D2090
       ORS F-1,1                                                        4F1D2100
       LXD ES3,1                                                        4F1D2110
       LXD ES2,2                                                        4F1D2120
       LDQ ES1                                                          4F1D2130
       TRA 1,4                                                          4F1D2140
L(I)   BCD 100000I                                                      4F1D2150
L(F)   BCD 100000F                                                      4F1D2160
L(=)   BCD 100000=                                                      4F1D2170
L(LP)  BCD 100000(                                                      4F1D2180
L(RP)  BCD 100000)                                                      4F1D2190
BLANKX BCD 100000                                                       4F1D2200
L(X)   BCD 100000X                                                      4F1D2210
L(C)   BCD 100000C                                                      4F1D2220
L(A)   BCD 100000A                                                      4F1D2230
L(L)   BCD 100000L                                                      4F1D2240
L(8)       8                                                            4F1D2250
L(10)  OCT 12                                                           4F1D2260
L(12)      12                                                           4F1D2270
ENDM   OCT 77                                                           4F1D2280
ES1    HTR                                                              4F1D2290
ES2    HTR                                                              4F1D2300
ES3    HTR                                                              4F1D2310
SECND  TSX PRINT,C                PRINT STATEMENT                       4F1D2320
STATE  HTR                                                              4F1D2330
       TSX PRINT,C                PRINT COMMENT                         4F1D2340
COMM   HTR                                                              4F1D2350
       WPR                                                              4F1D2360
       WPR                                                              4F1D2370
BST    BST 1                      TAPE                                  4F1D2380
       TRA MON                    AND RETURN TO SEC ONE MONITOR         4F1D2390
 L(1)D OCT 1000000                                                      4F1D2400
L(4)D  OCT 4000000                                                      4F1D2410
 L(6)D OCT 6000000                                                      4F1D2420
 L(0)  HTR                                                              4F1D2430
 ONES  OCT 777777777777                                                 4F1D2440
  XXX  BCD 1XXXXXX                                                      4F1D2450
 HALT  OCT 77777                                                        4F1D2460
 L(X)D OCT 161000000                                                    4F1D2470
 TABAD HTR 0,0,TABLE                                                    4F1D2480
 FORG  HTR 0,0,F-2                                                      4F1D2490
 RESTR BCD 11                                                           4F1D2500
 BLANK BCD 1                                                            4F1D2510
 XKEY  HTR XCOM,0,XXCOM                                                 4F1D2520
 NUMB  HTR                                                              4F1D2530
 KEY   HTR                                                              4F1D2540
 SES   HTR                                                              4F1D2550
START  BCD 71                                                           4F1D2560
       BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS                          4F1D2570
 STOP  BCD 70                                                           4F1D2580
       BCD 6END OF DIAGNOSTIC PROGRAM RESULTS                           4F1D2590
XCOM   HTR                                                              4F1D2600
       BCD       THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR 4F1D2610
       BCD 2OR LIST.                                                    4F1D2620
XXCOM  BSS 0                                                            4F1D2630
PRINT  BSS 0                                                            4F1D2640
RAN    CLA 1,4                                                          4F1D2650
       STA RNA                                                          4F1D2660
       ARS 18                                                           4F1D2670
       STO RNB                                                          4F1D2680
       SXD RNC,4                                                        4F1D2690
RN40   CLA RNA                                                          4F1D2700
       ADD RND                                                          4F1D2710
       CAS RNB                                                          4F1D2720
       NOP                                                              4F1D2730
       TRA RN50                                                         4F1D2740
       ALS 18                                                           4F1D2750
       ADD RNA                                                          4F1D2760
       STO RAN10                                                        4F1D2770
       TSX WOT,C                                                        4F1D2780
RAN10  HTR                                                              4F1D2790
       CLA RAN10                                                        4F1D2800
       ARS 18                                                           4F1D2610
       SUB RNE                                                          4F1D2820
       STA RN20                                                         4F1D2830
       SUB RNE                                                          4F1D2840
       STA RN30                                                         4F1D2850
       STA RNA                                                          4F1D2860
       CLA BLNKS                                                        4F1D2870
RN20   STO                                                              4F1D2880
RN30   STO                                                              4F1D2890
       TRA RN40                                                         4F1D2900
RN50   CLA RNB                                                          4F1D2910
       ALS 18                                                           4F1D2920
       ADD RNA                                                          4F1D2930
       STO RN60                                                         4F1D2940
       TSX WOT,C                                                        4F1D2950
RN60   HTR                                                              4F1D2960
       LXD RNC,C                                                        4F1D2970
       TRA 2,C                                                          4F1D2980
RNA    HTR                                                              4F1D2990
RNB    HTR                                                              4F1D3000
RNC    HTR                                                              4F1D3010
RND    HTR 20                                                           4F1D3020
RNE    HTR 1                                                            4F1D3030
WOT    SXD X1,1                                                         4F1D3040
       SXD X2,2                                                         4F1D3050
       CLA 1,4          PRINT ROUTINE                                   4F1D3060
       STA T5           X                                               4F1D3070
       STD X4           X                                               4F1D3080
       ARS 18           X                                               4F1D3090
       ADD X4           X                                               4F1D3100
       STA PR2          X                                               4F1D3110
       STA CI9          X                                               4F1D3120
       SUB 1,4          B-A+1 IN AC                                     4F1D3130
       TZE 2,4                                                          4F1D3140
       TMI 2,4                                                          4F1D3150
       SXD X4,4                                                         4F1D3160
L11    PAX 11,4                                                         4F1D3170
       SXD PR6,4                                                        4F1D3180
       CAL WP           INITIALIZE SWITCH                               4F1D3190
       STO WP           X                                               4F1D3200
PR6    TXH T4                                                           4F1D3210
T4     WPR                                                              4F1D3220
Z2     TXL S3                                                           4F1D3230
OZ2    TXL                                                              4F1D3240
SP4    SPR 4                                                            4F1D3250
       TXL RPR+2                                                        4F1D3260
S3     CLS WP           SET  SWITCH  FOR MASKING                        4F1D3270
       STO WP           CHARACTER FROM TYPE WHEEL 1                     4F1D3280
T5     CAL *            OBTAIN FIRST CHARACTER                          4F1D3290
       ARS 30           X                                               4F1D3300
       TZE SP4          DOUBLE SPACE IF ZERO                            4F1D3310
       CAS YZONE        TEST FOR SPACE SUPPRESS                         4F1D3320
       TXL BK           NO                                              4F1D3330
       TXL RPR+1        SUPPRESS SPACE                                  4F1D3340
BK     CAS BNK          TEST FOR BLANK                                  4F1D3350
       TXL DIGF         NO                                              4F1D3360
       TXL RPR+2        BLANK                                           4F1D3370
DIGF   SPR 10           SET CHANNEL SKIP                                4F1D3380
       ANA MK           MASK OUT ZONE                                   4F1D3390
MK     PAX 15,1         OBTAIN SPR COMBINATION                          4F1D3400
       TXI N2,1,1       X                                               4F1D3410
N2     TNX N3,1,8       X                                               4F1D3420
       SPR 8            X                                               4F1D3430
N3     TNX N4,1,4       X                                               4F1D3440
       SPR 4            X                                               4F1D3450
N4     TNX N5,1,2       X                                               4F1D3460
       SPR 2            X                                               4F1D3470
N5     TNX RPR,1,1      X                                               4F1D3480
       SPR 1            X                                               4F1D3490
RPR    WPR                                                              4F1D3500
       SPR 5            SUPPRESS SPACE                                  4F1D3510
       CLA BLNKS        FIND LAST NON-BLANK GROUP                       4F1D3520
       LXD CI4,4        X                                               4F1D3530
PR2    CAS 0,4          X                                               4F1D3540
       TXI PR1,4,-1     X                                               4F1D3550
       TXI PR2,4,1      X                                               4F1D3560
       TXI PR1,4,-1     X                                               4F1D3570
PR1    SXD CI6,4        STORE END TEST                                  4F1D3560
       SXD CI8,4        X                                               4F1D3590
       SXD PR8,4        X                                               4F1D3600
       SXD WP4,4        X                                               4F1D3610
       LXD PR6,4        X                                               4F1D3620
PR8    TNX PR5,4                                                        4F1D3630
       TXL PR3,4,12                                                     4F1D3640
       SPR 8            FIRST CYCLE                                     4F1D3650
PR3    LXD PR6,4        INITIALIZE GROUP COUNT                          4F1D3660
PR5    LXA PR7,2        INITIALIZE LEFT SETUP                           4F1D3670
       LXD YZ1,1        CLEAR CARD IMAGE                                4F1D3680
PR7    PXD              X                                               4F1D3690
PR4    SLW LT,1         X                                               4F1D3700
       SLW RT,1         X                                               4F1D3710
       TIX PR4,1,1      X                                               4F1D3720
CIR    CAL COL1         INITIALIZE COLUMN INDICATOR                     4F1D3730
CI2    SLW COL          X                                               4F1D3740
CI9    LDQ 0,4          OBTAIN GROUP                                    4F1D3750
       SXD OZ2,4        STORE GROUP COUNT                               4F1D3760
       LXA Q6,4         SET CHARACTER COUNT                             4F1D3770
CI1    PXD                                                              4F1D3780
Q6     LGL 6                                                            4F1D3790
       PAX 0,1                                                          4F1D3800
       CAL COL          POSITION COLUMN INDICATOR                       4F1D3810
       ARS 6,4          X                                               4F1D3820
       TIX YZ1,1,16     TEST FOR DIGIT                                  4F1D3830
       TXH YZ2,1,15     TEST FOR Y-ZONE                                 4F1D3840
CI5    ORS D,3          STORE DIGIT                                     4F1D3850
CI4    TIX CI1,4,1      COUNT CHARACTERS                                4F1D3860
CI3    ARS 1            SHIFT AND TEST COLUMN                           4F1D3870
       LXD OZ2,4        RESTORE GROUP COUNT                             4F1D3880
       TXI CI6,4,-1     COUNT GROUPS                                    4F1D3890
CI6    TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                   4F1D3900
       TNZ CI2          TEST FOR END OF ROW                             4F1D3910
CI7    CAL 8.3,2        FORM TRUE 8,4                                   4F1D3920
       ORS D-8,2        AND 3 ROWS AND                                  4F1D3930
       ORS D-3,2        MOVE 8,4 AND 8.3                                4F1D3940
       SLW 8.2,2        ROWS                                            4F1D3950
       CAL 8.4,2        FORM TRUE 8,4                                   4F1D3960
       ORS D-8,2        X                                               4F1D3970
       ORS D-4,2        X                                               4F1D3980
       SLW 8.3,2        X                                               4F1D3990
CI8    TXL WP,4         TEST FOR END                                    4F1D4000
       TXH WP,2,15      TEST FOR RIGHT HALF                             4F1D4010
       TXI CIR,2,16     INITIALIZE RIGHT HALF                           4F1D4020
YZ1    TIX XZ1,1,16     TEST FOR 16/CH/32                               4F1D4030
       TXH XZ2,1,15     TEST FOR X-ZONE                                 4F1D4040
       ORS D,3          STORE DIGIT                                     4F1D4050
YZ2    ORS Y,2          STORE Y-ZONE                                    4F1D4060
       TIX CI1,4,1      COUNT CHARACTERS                                4F1D4070
X1     TXL CI3          OBTAIN NEXT GROUP                               4F1D4080
XZ1    TIX OZ1,1,16     TEST FOR 32/CH/48                               4F1D4090
       TXH CI4,1,15     TEST FOR BLANK                                  4F1D4100
       ORS D,3          STORE DIGIT                                     4F1D4110
XZ2    ORS X,2          STORE X-ZONE                                    4F1D4120
       TIX CI1,4,1      COUNT CHARACTERS                                4F1D4130
X2     TXL CI3          OBTAIN NEXT GROUP                               4F1D4140
OZ1    ORS Z,2          STORE 0-ZONE                                    4F1D4150
       ORS D,3          STORE DIGIT                                     4F1D4160
       TIX CI1,4,1      COUNT CHARACTERS                                4F1D4170
       TXL CI3                                                          4F1D4180
WP     TXH WP9          INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL     4F1D4190
       TXL WP7          NO PROGRAM                                      4F1D4200
WP9    LXD WP2,1        MASK OUT FIRST COL, OF CARD IMAGE               4F1D4210
       CAL MK2          X                                               4F1D4220
ANS    ANS LT,1         X                                               4F1D4230
       TIX ANS,1,1      X                                               4F1D4240
WP7    LXD Z2,1         COPY LOOP                                       4F1D4250
CRAN   CPY LT-12,1                                                      4F1D4260
       CPY RT-12,1      X                                               4F1D4270
       TXI T2,1,-1                                                      4F1D4280
T2     TXH CRAN,1,-12                                                   4F1D4290
       CAL WP           RESET SWITCH FOR SECOND CYCLE                   4F1D4300
       STO WP           X                                               4F1D4310
WP4    TXH WP5,4                                                        4F1D4320
       LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN           4F1D4330
       LXD X2,2         X                                               4F1D4340
WT2    LXD X4,4         X                                               4F1D4350
L2     TRA 2,4          X                                               4F1D4360
RPR2   WPR                                                              4F1D4370
       TXL PR2-2                                                        4F1D4380
WP5    WPR                                                              4F1D4390
       SPR 9            SECOND CYCLE                                    4F1D4400
WP2    TXL PR5,0,12     CONVERT REST OF LINE                            4F1D4410
BLNKS  BCD 1                                                            4F1D4420
X4     HTR                                                              4F1D4430
YZONE  OCT 20                                                           4F1D4440
  BNK  OCT 60                                                           4F1D4450
  MK2  OCT 377777777777                                                 4F1D4460
COL1   MZE                                                              4F1D4470
COL    BSS 1                                                            4F1D4460
RT     BES 16                                                           4F1D4490
8.5    BSS 1                                                            4F1D4500
8.4    BSS 1                                                            4F1D4510
8.3    BSS 1                                                            4F1D4520
8.2    BSS 1                                                            4F1D4530
D      BES 9                                                            4F1D4540
Z      BSS 1                                                            4F1D4550
X      BSS 1                                                            4F1D4560
Y      BSS 1                                                            4F1D4570
LT     SYN Y+1                                                          4F1D4580
8.4L   SYN LT-14                                                        4F1D4590
8.4R   SYN RT-14                                                        4F1D4600
       BSS 27                                                           4F1D4610
EXIT   SYN SECND                                                        4F1D4620
       REM ADDRESS REQUIRED FROM SECTION ONE..........                  4F1D4630
F      SYN 618                       ADDRESS OF 1ST WORD OF F REGION    4F1D4640
MON    SYN 1282                      ADDRESS OF ENTRY TO MONITOR FOR A  4F1D4650
DCELL1 SYN 1271                                                         4F1D4660
       REM                                                              4F1D4670
       REM                                                              4F1D4680
       REM TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 704 FORTRAN II. 4F1D4690
       REM                                                              4F1D4700
       REM                                                              4F1D4710
       REM COMMON                                                       4F1D4720
       REM                                                              4F1D4730
TABLE  BSS 0                                                            4F1D4740
       BCD  XXXXXX000001      DIM3 TABLE EXCEEDED, THE NUMBER OF 3-DIMEN4F1D4750
       BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760
       BCD 1S 9O.                                                       4F1D4770
       REM                                                              4F1D4780
       BCD  XXXXXX000002      DIM2 TABLE EXCEEDED, THE NUMBER OF 2-DIMEN4F1D4790
       BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800
       BCD 1S 100.                                                      4F1D4810
       REM                                                              4F1D4820
       BCD  XXXXXX000003      DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830
       BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840
       BCD 1S 100,                                                      4F1D4850
       REM                                                              4F1D4860
       BCD  XXXXXX000004      SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870
       BCD  NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880
       BCD  TS OF THIS STATEMENT. (SIGN CONSIDERED, ONE RELATIVE ADDRESS4F1D4890
       BCD 3OF 0 ASSUMMED)                                              4F1D4900
       REM                                                              4F1D4910
       BCD  XXXXXX000005      TAU3 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4920
       BCD  RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930
       BCD 2S PROGRAM.                                                  4F1D4940
       REM                                                              4F1D4950
       BCD  XXXXXX000006      TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960
       BCD  RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970
       BCD 2S PROGRAM.                                                  4F1D4980
       REM                                                              4F1D4990
       BCD  XXXXXX000O07      TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D5000
       BCD  RENT 1-DIMENSI0NAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH4F1D5010
       BCD 2IS PROGRAM.                                                 4F1D5020
       REM                                                              4F1D5030
       BCD  XXXXXX000010      FLOCON TABLE EXCEEDED. MORE THAT 450 DIFFE4F1D5040
       BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS4F1D5050
       BCD 2IDERED)                                                     4F1D5060
       REM                                                              4F1D5070
       BCD  XXXXXX000011      FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE4F1D5080
       BCD  RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090
       BCD 1ERED)                                                       4F1D5100
       REM                                                              4F1D5110
       BCD  XXXXXX001635      MORE THAN SIX  CHARACTERS IN  SOME SYMBOL.4F1D5120
       REM                                                              4F1D5130
       BCD  XXXXXX001643      ILLEGAL  PUNCTUATION  IN  THIS  STATEMENT.4F1D5140
       REM                                                              4F1D5150
       BCD  XXXXXX002034      MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160
       BCD 1Q.                                                          4F1D5170
       REM                                                              4F1D5180
       BCD  XXXXXX002062      REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190
       BCD 1.                                                           4F1D5200
       REM                                                              4F1D5210
       BCD  XXXXXX002266      MACHINE ERROR. INDEX FAILURE.             4F1D5220
       REM                                                              4F1D5230
       BCD  XXXXXX002433      REPEATED FAILURE IN READING STATE C FROM D4F1D5240
       BCD 2RUM  4.                                                     4F1D5250
       REM                                                              4F1D5260
       BCD  XXXXXX002434      REPEATED FAILURE IN READING STATE B FROM D4F1D5270
       BCD 2RUM  3.                                                     4F1D5280
       REM                                                              4F1D5290
       BCD  XXXXXX002435      REPEATED FAILURE IN READING STATE D FROM D4F1D5300
       BCD 2RUM  2.                                                     4F1D5310
       REM                                                              4F1D5320
       BCD  XXXXXX002436      REPEATED FAILURE IN READING STATE A FROM D4F1D5330
       BCD 2RUM  1.                                                     4F1D5340
       REM                                                              4F1D5350
       BCD  XXXXXX002523      MACHINE  ERROR.  INDEX FAILURE.           4F1D5360
       REM                                                              4F1D5370
       BCD  XXXXXX002565      REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380
       BCD 4FROM DRUM 2, 3 OR 4,                                        4F1D5390
       REM                                                              4F1D5400
       BCD  XXXXXX002577      NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410
       BCD 8POSSIBLE MISSING PUNCTUATION BETWEEN FIELDS.                4F1D5420
       REM                                                              4F1D5430
       BCD  XXXXXX002656      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440
       REM                                                              4F1D5450
       BCD  XXXXXX002666      A SUBSCRIPT HAS A DOUBLE MULTIPLIER.      4F1D5460
       REM                                                              4F1D5470
       BCD  XXXXXX002673      A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480
       REM                                                              4F1D5490
       BCD  XXXXXX002720      MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500
       BCD 8N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION.              4F1D5510
       REM                                                              4F1D5520
       BCD  XXXXX002722       THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F1D5530
       BCD 2SCRIPT.                                                     4F1D5540
       REM                                                              4F1D5550
       BCD  XXXXXX002741      A SUBSCRIPT HAS A  DOUBLE ADDEND.         4F1D5560
       REM                                                              4F1D5570
       BCD  XXXXXX002744      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580
       REM                                                              4F1D5590
       BCD  XXXXXX002764      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5600
       REM                                                              4F1D5610
       BCD  XXXXXX003023      A SUBSCRIPT ADDEND IS NOT A CONSTANT.     4F1D5620
       REM                                                              4F1D5630
       BCD  XXXXXX003026      THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640
       BCD 4SCRIPT COMBINATION.                                         4F1D5650
       REM                                                              4F1D5660
       BCD  XXXXXX003064      A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670
       BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY.                       4F1D5680
       REM                                                              4F1D5690
       BCD  XXXXXX003151      A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5700
       BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY.                       4F1D5710
       REM                                                              4F1D5720
       BCD  XXXXXX003254      PROGRAM EXPECTS COMMA OR END OF STATEMENT.4F1D5730
       REM                                                              4F1D5740
       BCD  XXXXXX003262      PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750
       BCD 1.                                                           4F1D5760
       REM                                                              4F1D5770
       BCD  XXXXXX003270      PROGRAM EXPECTS LEFT PARENTHESIS OR END OF4F1D5780
       BCD 2 STATEMENT.                                                 4F1D5790
       REM                                                              4F1D5800
       BCD  XXXXXX003272      MACHINE ERROR. AC GREATER THAN OCTAL 77.  4F1D5810
       REM                                                              4F1D5820
       BCD 9XXXXXX003274      PROGRAM EXPECTS END OF STATEMENTS         4F1D5830
       REM                                                              4F1D5840
       BCD 9XXXXXX003300      PROGRAM EXPECTS LEFT PARENTHESIS.         4F1D5850
       REM                                                              4F1D5860
       BCD 9XXXXXX003304      PROGRAM EXPECTS RIGHT PARENTHESIS.        4F1D5870
       REM                                                              4F1D5880
       BCD 7XXXXXX003310      PROGRAM EXPECTS COMMA.                    4F1D5690
       REM                                                              4F1D5900
       BCD  XXXXXX003314      SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910
       BCD 3THIS CONTEXT.                                               4F1D5920
       BCD  XXXXXX003316      SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940
       BCD 3 IN THIS CONTEXT.                                           4F1D5950
       REM                                                              4F1D5960
       REM STATE A                                                      4F1D5970
       REM                                                              4F1D5980
       BCD  XXXXXX003542      THE CHARACTER $ OCCURS IN THIS STATEMENT  4F1D5990
       BCD 8 SOMEWHERE OTHER THAN IN HOLLERITH TEXT.                    4F1D6000
       REM                                                              4F1D6010
       BCD  XXXXXX003545      THE ILLEGAL CHARACTER    (0-8-2 PUNCH) OCC4F1D6020
       BCD 4URS INTHIS STATEMENT.                                       4F1D6030
       REM                                                              4F1D6040
       BCD  XXXXXX003550      THE ILLEGAL CHARACTER -0 (11-8-2 PUNCH) O 4F1D6050
       BCD 4CCURS IN THIS STATEMENTS.                                   4F1D6060
       REM                                                              4F1D6070
       BCD  XXXXXX003553      THE ILLEGAL CHARACTER +0 112-6-2 PUNCH) 0 4F1D6080
       BCD 4CCURS IN THIS STATEMENT.                                    4F1D6090
       REM                                                              4F1D6100
       BCD  XXXXXX003556      THE ILLEGAL CHARACTER - (8-4 PUNCH) OCCUR 4F1D6110
       BCD 4S IN THIS STATEMENT.                                        4F1D6120
       REM                                                              4F1D6130
       BCD  XXXXXX003561      THE NON BCD CHARACTER 001010 HAS BEEN RE  4F1D6140
       BCD 8AD FROM TAPE WHILE PROCESSING THIS STATEMENT.               4F1D6150
       REM                                                              4F1D6160
       BCD 8XXXXXX003615      TOO MANY RIGHT PARENTHESIS.               4F1D6170
       REM                                                              4F1D6180
       BCD  XXXXXX003624      NON-ARITHMETIC STATEMENT OF A TYPE WHICH I4F1D6190
       BCD 4S NOT IN DICTIONARY.                                        4F1D6200
       REM                                                              4F1D6210
       BCD  XXXXXX004055      TOO FEW RIGHT PARENTHESES.                4F1D6220
       REM                                                              4F104230
       BCD 7XXXXXX004225      PROGRAM EXPECTS TO .                      4F1D6240
       REM                                                              4F106250
       BCD  XXXXXX004304      A VARIABLE IN THIS LIST APPEARED PREVIOUSL4F1D6260
       BCD 5Y IN ADIMENSION STATEMENT.                                  4F1D6270
       REM                                                              4F1D6280
       BCD  XXXXXX004323      MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290
       BCD 2RENTHESIS.                                                  4F1D6300
       REM                                                              4F1D6310
       BCD  XXXXXX004444      A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320
       BCD  LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330
       BCD  MPT TOBATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN.            4F1D6340
       REM                                                              4F1D6350
       BCD  XXXXXX004544      A RETURN STATEMENT HAS OCCURRED IN A PROGR4F1D6360
       BCD  AM NOTDEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM.    4F1D6370
       REM                                                              4F1D6380
       BCD  XXXXXX004663      SENSE SWITCH SETTING OTHER THAN 0,1 OR 2  4F1D6390
       BCD 7OR MORE THAN 5 SETTINGS OR WRONG FORMAT.                    4F1D6400
       REM                                                              4F1D6410
       BCD 8XXXXXX004705      VARIABLE FORMAT NUMBER.                   4F1D6420
       REM                                                              4F1D6430
       BCD 6XXXXXX004707      NO FORMAT NUMBER.                         4F1D6440
       REM                                                              4F1D6450
       BCD  XXXXXX005170      MORE THAN SIX CHARACTERS IN SOME SYMBOL.  4F1D6460
       REM                                                              4F1D6470
       BCD  XXXXXX005200      ILLEGAL CHARACTER IN THIS LIST.           4F1D6480
       REM                                                              4F1D6490
       BCD  XXXXXX005260      MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500
       BCD 30 PARENTHESIS).                                             4F1D6510
       REM                                                              4F1D6520
       BCD  XXXXXX005263      ATTEMPT TO SPECIFY SUBSCRIPT RANGE WITHO  4F1D6530
       BCD 4UT USEOF PARENTHESIS.                                       4F1D6540
       REM                                                              4F1D6550
       BCD  XXXXXX005305      INCOMPLETE STATEMENT OR INCOMPLETE CLOSURE4F1D6560
       BCD 3OF PARENTHESIS.                                             4F1D6570
       REM                                                              4F1D6580
       BCD  XXXXXX005306      ILLEGAL CHARACTER IN D0 SPECIFICATION IN L4F1D6590
       BCD 1IST,                                                        4F1D6600
       REM                                                              4F1D6610
       BCD 8XXXXXX005401      TOO MANY RIGHT PARENTHESIS.               4F1D6620
       REM                                                              4F1D6630
       BCD 6XXXXXX005416      CONSTANT IN LIST.                         4F1D6640
       REM                                                              4F1D6650
       BCD 8XXXXXX005552      TOO MANY LEFT PARENTHESIS.                4F1D6660
       REM                                                              4F1D6670
       BCD  XXXXXX005607      ILLEGAL CHARACTER IN THIS STATEMENT.      4F1D6680
       REM                                                              4F1D6690
       BCD  XXXXXX005715      A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700
       BCD  TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710
       BCD  . ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720
       BCD  ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730
       BCD  NT THEFOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C 4F1D6740
       BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT.          4F1D6750
       REM                                                              4F1D6760
       BCD  XXXXXX006042      ILLEGAL USE OF FLOATING POINT VARIABLE.   4F1D6770
       REM                                                              4F1D6780
       REM STATE  B                                                     4F1D6790
       REM                                                              4F1D6800
       BCD 8XXXXXX003527      TOO MANY CHARACTERS IN SYMBOL,            4F1D6810
       REM                                                              4F1D6820
       BCD 8XXXXXX003602      ILLEGAL USE OF  .  CHARACTER.             4F1D6830
       REM                                                              4F1D6840
       BCD 7XXXXXX003613      ARGREG SIZE EXCEEDED.                     4F1D6850
       REM                                                              4F1D6860
       BCD  XXXXXX003615      ILLEGAL USE OF HOLLERITH SPECIFICATION.   4F1D6870
       REM                                                              4F1D6880
       BCD 8XXXXXX003654      NON-ZERO LEVEL REDUCTION.                 4F1D6890
       REM                                                              4F1D6900
       BCD 8XXXXXX003671      ILLEGAL USE OF  =  SIGN.                  4F1D6910
       REM                                                              4F1D6920
       BCD 8XXXXXX003724      ILLEGAL USE OF  .  SIGN,                  4F1D6930
       REM                                                              4F1D6940
       BCD  XXXXXX004046      THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950
       BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H.       4F1D6960
       REM                                                              4F1D6970
       BCD 8XXXXXX004136      LAMBDA TABLE SIZE EXCEEDED,               4F1D6980
       REM                                                              4F1D6990
       BCD 6XXXXXX004140      BETA TABLE SIZE EXCEEDED.                 4F1D7000
       REM                                                              4F1D7010
       BCD 8XXXXXXG04143      ALPHA TABLE SIZE EXCEEDED,                4F1D7020
       REM                                                              4F1D7030
       BCD  XXXXXX0C4647      FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040
       BCD 2ACHINE.                                                     4F1D7050
       REM                                                              4F1D7060
       REM STATE C                                                      4F1D7070
       REM                                                              4F1D7080
       BCD  XXXXXX004347      CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090
       BCD 3STANT FROM DRUM 2.                                          4F1D7100
       REM                                                              4F1D7110
       REM STATE D                                                      4F1D7120
       REM                                                              4F1D7130
       BCD 6XXXXXX003501      MIXED  EXPRESSION.                        4F1D7140
       REM                                                              4F1D7150
       BCD 6XXXXXX003503      MIXED  EXPRESSION                         4F1D7160
       REM                                                              4F1D7170
       BCD  XXXXXXOO5233      CHECK SUM ERROR IN READING SIGMA TABLE ENT        
       BCD 3RY FROM DRUM 2.                                                     
       REM                                                                      
       REM LOCATIONS OF STAE B,C,D CALLS IN 8K SECTION ONE.                     
       REM                                                                      
       BCD 8XXXXXX006412      TOO MANY CHARACTERS IN SYMBOL.                    
       REM                                                                      
       BCD 8XXXXXXOO6465      ILLEGAL USE OF   .   CHARACTER,                   
       REM                                                                      
       BCD 7XXXXXX006476      ARGREG SIZE EXCEEDED.                             
       REM                                                                      
       BCD  XXXXXX006500      ILLEGAL USE OF HOLLERITH SPECIFICATION.           
       REM                                                                      
       BCD 8XXXXXX006537      NON-ZERO LEVEL REDUCTION.                         
       REM                                                                      
       BCD 8XXXXXX006554      ILLEGAL USE OF  =  SIGN.                          
       REM                                                                      
       BCD 8XXXXXX006554      ILLEGAL USE OF  .  SIGN,                          
       REM                                                                      
       BCD  XXXXXX006731      THE NUMERIC CONTROL OF A HOLLERITH TEXT  IS       
       REM                                                                      
       BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H.               
       REM                                                                      
       BCD 8XXXXXX007021      LAMBDA TABLE SIZE EXCEEDED.                       
       REM                                                                      
       BCD 6XXXXXX007023      BETA TABLE SIZE EXCEEDED.                         
       REM                                                                      
       BCD 8XXXXXX007026      ALPHA TABLE SIZE EXCEEDED.                        
       REM                                                                      
       BCD  XXXXXX007532      FLOATING POINT CONSTANT OUTSIDE RANGE OF M        
       REM                                                                      
       BCD 2ACHINE.                                                             
       REM                                                                      
       BCD  XXXXXX010534      CHECK SUM ERROR TN READING FIXED POINT CON        
       BCD 3STANT FROM DRUM 2.                                                  
       REM                                                                      
       BCD 6XXXXXX011216      MIXED EXPRESSION.                                 
       REM                                                                      
       BCD 6XXXXXX011220      MIXED EXPRESSION                                  
       REM                                                                      
       BCD  XXXXXX012750      CHECK SUM ERROR IN READING SIGMA TABLE ENT        
       BCD 3RY FROM DRUM 2.                                                     
       REM                                                                      
       REM                                                              4F1D7200
       REM                                                              4F1D7210
       REM 1NITALIZATION RECORD F015.                                   4F1D7220
       REM                                                              4F1D7230
       BCD  XXXXXX000553      FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240
       BCD 7 WRITESTATE A OF SECTION ONE ON DRUM 1.                     4F1D7250
       REM                                                              4F1D7260
       BCD  XXXXXX000560      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7270
       BCD 7 WRITESTATE D OF SECTION ONE ON DRUM 2.                     4F1D7280
       REM                                                              4F1D7290
       BCD  XXXXXX000563      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7300
       BCD 7 WRITESTATE B OF SECTION ONE ON DRUM 3,                     4F1D7310
       REM                                                              4F1D7320
       BCD  XXXXXX000566      FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330
       BCD 7 WRITESTATE C OF SECTION ONE ON DRUM 4,                     4F1D7340
       REM                                                              4F1D7350
       BCD 2XXXXXXXXXXXX                                                4F1D7360
       END                                                              4F1D7370
       REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000,  F1P00010                        
       REM ----------FILE: 185.PNG-----------------------------BEFORE LINE ABOVE
       ORG 0                                                            F1P00020
       PZE ORG1PA,,ORG1PA                                               F1P00030
       PZE END1PA-1                                                     F1P00040
       REM                                                              F1P00050
       REM THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME               F1P00060
       REM                                                              F1P00070
ORG1PA ORG 614                                                          F1P00080
       NOP                           TO PERMIT STOP FOR TESTING RUNS,   F1P00090
PARTA  WEF 4                                                            F1P00100
       REM         TABLE SAVING PROGRAM                                 F1P00110
       REM WRITE FIXCON WORD COUNT ON DRUM                              F1P00120
       WRS 194                                                          F1P00130
       CLA FXCNIX-3                                                     F1P00140
       ARS 17                                                           F1P00150
       STO WORKCL                                                       F1P00160
       CPY WORKCL                                                       F1P00170
       CPY WORKCL                                                       F1P00180
       REM PROGRAM FOR SAVING COMPAIL TABLE                             F1P00190
       LXD BBOX,2                                                       F1P00200
       TXH A1PTS,2,0                                                    F1P00210
       TSX DIAG,4                    STOP FOR NO INSTRUCTIONS COMPILED  F1P00220
A1PTS  WRS 147                                                          F1P00230
       LXA L(0),1                    SAVE                               F1P00240
AA3PTS CPY CIB,1                     CIT                                F1P00250
       TXI AA1PTS,1,-1               BUFFER                             F1P00260
AA1PTS TXI AA2PTS,2,1                                                   F1P00270
AA2PTS TXH AA3PTS,2,0                                                   F1P00280
       WEF 147                                                          F1P00290
       REW 147                                                          F1P00300
A5PTS  RTT                           TURN OFF TAPE CHECK                F1P00310
       NOP                           INDICATOR AND LIGHTS               F1P00320
       LXA L(4),1                                                       F1P00330
       LXA L(0),4                                                       F1P00340
A14PTS RDS 147                                                          F1P00350
A6PTS  CPY COMP,4                    COPY A RECORD OF COMPILED          F1P00360
       TXI A6PTS,4,-1                INSTRUCTIONS INTO STORAGE          F1P00370
       TRA A10PTS                    EOF                                F1P00380
       WRS 219                       EOR                                F1P00390
       RTT                                                              F1P00400
       TRA A11PTS                    TAPE CHECK ON                      F1P00410
       WRS 146                                                          F1P00420
       CLA CMPREC                    COUNT EACH                         F1P00430
       ADD L(1)                      COMPAIL                            F1P00440
       STO CMPREC                    RECORD                             F1P00450
       LXA L(2),1                                                       F1P00460
       LXA L(0),2                    TRANSFER  RECORD                   F1P00470
A9PTS  CPY COMP,2                    FROM STORAGE                       F1P00480
       TXI A7PTS,2,-1                TO TAPE 2                          F1P00490
A7PTS  TXI A8PTS,4,1                                                    F1P00500
A8PTS  TXH A9PTS,4,0                                                    F1P00510
       TRA A14PTS                                                       F1P00520
A11PTS BST 147,0,1                   PREPARE TO READ RECORD AGAIN       F1P00530
       TIX A14PTS-1,1,1              TEST FOR 2 TAPE CHECKS,            F1P00540
       TSX DIAG,4         STOP FOR 5TH READ CHECK                       F1P00550
A10PTS WEF 146                       END OF COMPAIL ON TAPE 2           F1P00560
       WRS 146                                                          F1P00570
       CPY CMPREC                                                       F1P00580
       REM PROGRAM  TO SAVE FORSUB TABLE                                F1P00590
       LXD BK,1                                                         F1P00600
       TXL WEF,1,0                   TEST FOR EMPTY TABLE               F1P00610
       LXA L(0),2                                                       F1P00620
       CPY FORSUB,2                                                     F1P00630
       TXI A15PTS,2,-1                                                  F1P00640
A15PTS TXI A15PTS+1,1,1                                                 F1P00650
       TXH A15PTS-2,1,0                                                 F1P00660
WEF    WEF 146                                                          F1P00670
       REM PROGRAM FOR SAVING FLOCON TABLE                              F1P00680
FL00   LXD FLCNIX-3,4      (N)                                          F1P00690
       PXD 0,4                                                          F1P00700
       ARS 18                                                           F1P00710
       STO FLSIZE    LOAD FLSIZE WITH N                                 F1P00720
       TXL FL09,4,0      IS TABLE EMPTY                                 F1P00730
       CAL MSK                                                          F1P00740
       ANS FLCNIX-2                                                     F1P00750
       ANS FLCNIX-3                                                     F1P00760
       CLA FLCNIX-3     GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770
       SUB FLCNIX-2                                                     F1P00780
       STA FL04       SAVE L                                            F1P00790
FL01   LXA L(5),2            SET TO TRY FIVE TIMES IF CK SUM FAILS      F1P00800
FL02   LXA FL04,4    (L)                                                F1P00810
       RDR 2                                                            F1P00820
       LDA FLCNIX-2                                                     F1P00830
FL03   CPY OTA+450,4       COPY FLOCON FROM DRUM                        F1P00840
       TIX FL03,4,1                                                     F1P00850
FL04   PXD **,0                                                         F1P00860
       LXA FL04,4      COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK    F1P00870
       LXA L(50),1     SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS  F1P00880
FL05   ACL OTA+450,4   FOLLOWED BY THE FIFTY WORDS                      F1P00890
       COM                                                              F1P00900
       TNX ERROR,4,1                                                    F1P00910
FL06   ACL OTA+450,4                                                    F1P00920
       TNX FL07,4,1      FINAL ENRTY , GET OUT OF CK SUM LOOP           F1P00930
       TIX FL06,1,1                                                     F1P00940
       COM                                                              F1P00950
       TXI FL05,1,49                                                    F1P00960
FL07   COM                                                              F1P00970
       TZE FL08   TEST CK SUM                                           F1P00980
       TIX FL02,2,1   CK SUM FAILED, TRY AGAIN                          F1P00990
       TSX DIAG,4            CK SUM FAILED FIVE TIMES                   F1P01000
FL08   LXA FL04,4   (L)                                                 F1P01010
FL09   WTB 2                                                            F1P01020
       CPY FLSIZE                                                       F1P01030
       TXL PROFOR,4,0      IS FLOCON EMPTY                              F1P01040
       LXA L(50),1                                                      F1P01050
FL10   TNX ERROR,4,1                                                    F1P01060
FL11   CPY OTA+450,4                                                    F1P01070
       TNX PROFOR,4,1   FINISHED, GET OUT OF LOOP                       F1P01080
       TIX FL11,1,1                                                     F1P01090
       TXI FL10,1,49                                                    F1P01100
ERROR  TSX DIAG,4                  INDEX RAN OUT AT CK SUM              F1P01110
       REM ROUTINE TO PROCESS FORMAT TABLE                              F1P01120
PROFOR TSX TAP00,1                                                      F1P01130
       HTR 10                                                           F1P01140
           OTA                                                          F1P01150
       TSX WAT00,1                                                      F1P01160
       HTR 10                                                           F1P01170
           OTA                                                          F1P01180
       REM ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE.                  F1P01190
ADD00  LXD DIM1IX-3,4           ENTRY COUNT                             F1P01200
       TXL ADD07,4,0         TABLE EMPTY                                F1P01210
ADD01  LXA L(5),2                                                       F1P01220
ADD02  RDR 3                                                            F1P01230
       LXA L(0),1                                                       F1P01240
       LDA ORGDM1                                                       F1P01250
       PXD 0,0                                                          F1P01260
ADD03  CPY OTA,1             COPY NAME                                  F1P01270
       CPY OTA+1,1           COPY N1                                    F1P01280
       TXI ADD04,1,-2                                                   F1P01290
ADD04  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01300
       TIX ADD03,4,1                                                    F1P01310
       COM                                                              F1P01320
       LXD DIM1IX-3,4                                                   F1P01330
       LXA L(0),1                                                       F1P01340
ADD05  ACL OTA,1             SUM ENTRIES                                F1P01350
       ACL OTA+1,1                                                      F1P01360
       TXI ADD06,1,-2                                                   F1P01370
ADD06  TIX ADD05,4,1                                                    F1P01380
       COM                                                              F1P01390
       TZE ADD08                                                        F1P01400
       LXD DIM1IX-3,4        CHECK SUM ERROR,  TRY AGAIN                F1P01410
       TIX ADD02,2,1                                                    F1P01420
       TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P01430
ADD07  LXA L(0),1                                                       F1P01440
ADD08  SXD NEWBAS,1                                                     F1P01450
       REM NOW READ DIM2 TABLE                                          F1P01460
       LXD DIM2IX-3,4                                                   F1P01470
       TXL ADD18,4,0         TABLE EMPTY                                F1P01480
ADD09  LXA L(5),2                                                       F1P01490
ADD10  RDR 3                                                            F1P01500
       LXD NEWBAS,1                                                     F1P01510
       LDA ORGDM2                                                       F1P01520
       PXD 0,0                                                          F1P01530
ADD11  CPY OTA,1             COPY NAME                                  F1P01540
       CPY OTA+1,1           COPY N1 N2                                 F1P01550
       TXI ADD12,1,-2                                                   F1P01560
ADD12  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01570
       TIX ADD11,4,1                                                    F1P01580
       COM                                                              F1P01590
       LXD DIM2IX-3,4                                                   F1P01600
       LXD NEWBAS,1                                                     F1P01610
ADD13  ACL OTA,1                                                        F1P01620
       ACL OTA+1,1                                                      F1P01630
       TXI ADD14,1,-2                                                   F1P01640
ADD14  TIX ADD13,4,1                                                    F1P01650
       COM                                                              F1P01660
       TZE ADD15                                                        F1P01670
       LXD DIM2IX-3,4        CK SUM ERROR TRY AGAIN                     F1P01680
       TIX ADD10,2,1                                                    F1P01690
       TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P01700
ADD15  LXD DIM2IX-3,4                                                   F1P01710
       LXD NEWBAS,1                                                     F1P01720
       STZ WORKCL                                                       F1P01730
ADD16  CLA OTA+1,1                                                      F1P01740
       STA WORKCL                                                       F1P01750
       LRS 53                                                           F1P01760
       MPY WORKCL    N1*N2                                              F1P01770
       STQ OTA+1,1                                                      F1P01780
       TXI ADD17,1,-2                                                   F1P01790
ADD17  TIX ADD16,4,1                                                    F1P01600
       SXD NEWBAS,1    UPDATE NEWBAS FOR DIM3 ROUTINE                   F1P01810
       REM NOW READ DIM3 TABLE.                                         F1P01820
ADD18  LXD DIM3IX-3,4                                                   F1P01830
       TXL ADD28,4,0         DIM3 TABLE EMPTY                           F1P01840
ADD19  LXA L(5),2                                                       F1P01850
ADD20  RDR 3                                                            F1P01860
       LXD NEWBAS,1                                                     F1P01870
       LDA ORGDM3                                                       F1P01680
       PXD 0,0                                                          F1P01890
ADD21  CPY OTA,1                                                        F1P01900
       CPY OTA+1,1                                                      F1P01910
       CPY BUFFER,4                                                     F1P01920
       TXI ADD22,1,-2                                                   F1P01930
ADD22  CAD GARBGE                                                       F1P01940
       TIX ADD21,4,1                                                    F1P01950
       COM                                                              F1P01960
       LXD DIM3IX-3,4                                                   F1P01970
       LXD NEWBAS,1                                                     F1P01980
ADD23  ACL OTA,1                                                        F1P01990
       ACL OTA+1,1                                                      F1P02000
       ACL BUFFER,4                                                     F1P02010
       TXI ADD24,1,-2                                                   F1P02020
ADD24  TIX ADD23,4,1                                                    F1P02030
       COM                                                              F1P02040
       TZE ADD25                                                        F1P02050
       LXD DIM3IX-3,4                                                   F1P02060
       TIX ADD20,2,1   CK SUM FAILED TRY AGAIN                          F1P02070
       TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P02080
ADD25  LXD DIM3IX-3,4                                                   F1P02090
       LXD NEWBAS,1                                                     F1P02100
ADD26  CLA OTA+1,1                                                      F1P02110
       STZ WORKCL                                                       F1P02120
       STA WORKCL                                                       F1P02130
       LRS 53                                                           F1P02140
       MPY WORKCL      N1*N2                                            F1P02150
       MPY BUFFER,4          N3*(N1*N2)                                 F1P02160
       STQ OTA+1,1                                                      F1P02170
       TXI ADD27,1,-2                                                   F1P02160
ADD27  TIX ADD26,4,1                                                    F1P02190
       NOP                   NOT USED.                                  F1P02200
       NOP                   NOT USED.                                  F1P02210
       REM NOW WRITE SIZ TABLE ON TAPE 2.                               F1P02220
ADD28  PXD 0,1                                                          F1P02230
       COM                                                              F1P02240
       ADD DECR1                                                        F1P02250
       PDX 0,4                                                          F1P02260
       PXD 0,4                                                          F1P02270
       ARS 18                                                           F1P02280
       STO WORKCL                                                       F1P02290
       ADD L(1)                                                         F1P02300
       PAX 0,1                                                          F1P02310
       LXA L(0),2                                                       F1P02320
       PXD 0,0                                                          F1P02330
ADD33  ACL OTA,2             COMPUTE CK SUM FOR SIZ TABLE               F1P02340
       TXI ADD32,2,-1                                                   F1P02350
ADD32  TIX ADD33,4,1                                                    F1P02360
       SLW OTA,2                                                        F1P02370
       CLA DMASK                                                        F1P02380
       ANS EIFNO                                                        F1P02390
       WTB 2                                                            F1P02400
       CPY EIFNO                                                        F1P02410
       CPY WORKCL                                                       F1P02420
       TXL ADD31,1,1                                                    F1P02430
       LXA L(0),2                                                       F1P02440
ADD29  CPY OTA,2                                                        F1P02450
       TXI ADD30,2,-1                                                   F1P02460
ADD30  TIX ADD29,1,1                                                    F1P02470
ADD31  WEF 2                                                            F1P02480
       WTB 2                         WRITE SENSE SWITCH SETTINGS AS RE- F1P02490
       LXA L(5),1                    CORD ONE, FILE FIVE, TAPE TWO      F1P02500
X0010  CPY ENDI1+5,1                                                    F1P02510
       TIX X0010,1,1                                                    F1P02520
       TSX TAP00,1           ASSEMBLE AND WRITE SUBDEF TABLE            F1P02530
           11                                                           F1P02540
           OTA                                                          F1P02550
       TSX WAT00,1                                                      F1P02560
           11                                                           F1P02570
           OTA                                                          F1P02580
       TSX TAP00,1           ASSEMBLE AND WRITE COMMON TABLE            F1P02590
           12                                                           F1P02600
           OTA                                                          F1P02610
       TSX WAT00,1                                                      F1P02620
           12                                                           F1P02630
           OTA                                                          F1P02640
       TSX TAP00,1           ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS F1P02650
           13                                                           F1P02660
           OTA                                                          F1P02670
       TSX WAT00,1                                                      F1P02680
           13                                                           F1P02690
           OTA                                                          F1P02700
       TSX TAP00,1           ASSEMBLE TEIFNO FROM TAPE 4                F1P02710
       HTR 0                                                            F1P02720
       HTR OTA                                                          F1P02730
       STZ PAT15             INSURE DECREMENT IS CLEAR                  F1P02740
       LXD OTA-1,4           LENGTH OF TEIFNO INTO I.R.4                F1P02750
       TXL WRITE,4,1         IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY F1P02760
       LXD PAT13,1           INITIALIZE I.R. TO STEP THROUGH TABLE      F1P02770
       SXD PAT14,4           SAVE WORD COUNT                            F1P02780
ISPLUS LXD PAT14,4           REINTIALIZE FOR FURTHER SEARCHING          F1P02790
NEXT   CLA OTA,1             PICK UP NEXT ENTRY IN TEIFNO               F1P02800
       TPL MASK              HAS THIS BEEN PROCESSED                    F1P02810
       SLW OTA,1                                                        F1P02820
       TXI ISTHRU,1,-1       NO, SET I.R. TO LOOK AT NEXT ENTRY         F1P02830
ISTHRU TIX NEXT,4,1          HAVE ALL ENTRIES BEEN EXAMINED             F1P02840
       TRA WRITE             YES, FINISHED                              F1P02850
MASK   STA PAT15             STORE COMPERAND                            F1P02860
       TXI RECOMP,1,-1       SET I.R.S TO START COMPARISON              F1P02870
RECOMP PXD 0,1                                                          F1P02880
       PDX 0,2                                                          F1P02890
       TNX WRITE,4,1         HAVE ALL ENTRIES BEEN EXAMINED             F1P02900
       SXD PAT14,4           SAVE NUMBER OF ENTRIES YET TO BE TREATED   F1P02910
PAT16  CLA OTA,2             PICK UP ENTRY TO BE COMPARED               F1P02920
       TMI NODUP             NO SEARCH NECESSARY IF NEGATIVE            F1P02930
       ANA PAT11             ISOLATE EXTERNAL FORMULA NUMBER            F1P02940
       CAS PAT15             COMPARE TO REMAINING ENTRIES               F1P02950
       TRA NODUP             NO DUPLICATE                               F1P02960
       TRA PAT9              DUPLICATE                                  F1P02970
NODUP  TXI PAT8,2,-1         NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRYF1P02980
       REM FOR COMPARISON                                               F1P02990
PAT8   TIX PAT16,4,1         HAVE ALL ENTRIES BEEN COMPARED             F1P03000
       TRA ISPLUS            YES                                        F1P03010
PAT9   CLA OTA,2             FLAG DUPLICATE ENTRY NEGATIVE              F1P03020
       SSM                                                              F1P03030
       STO OTA,2                                                        F1P03040
       CLS OTA-1,1                                                      F1P03050
       STO OTA-1,1                                                      F1P03060
       TRA ISPLUS                                                       F1P03070
WRITE  TSX WAT00,1           WRITE TEIFNO ON TAPE                       F1P03080
       HTR 0                                                            F1P03090
           OTA                                                          F1P03100
       TSX TAP00,1                   ASSEMBLE TIFGO                     F1P03110
       HTR 2                                                            F1P03120
L(2TA) HTR 2TA                                                          F1P03130
       REM START  PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO         F1P03140
MFGTP  CLA 2TA-1                    GET NUMBER OF WORDS IN 2TA.         F1P03150
       TZE WFG00                    EXIT FOR NO ENTRIES IN TABLE,       F1P03160
       PDX 0,2                      SET INDEX B TO NUMBER OF WORDS,     F1P03170
       ARS 18                       COMPUTE                             F1P03180
       ADD L(2TA)                   2TA                                 F1P03190
       STA MFG00                    PLUS                                F1P03200
       STA MFG03                    NUMBER                              F1P03210
       STA MFG05                    OF                                  F1P03220
       STA MFG08                    WORDS                               F1P03230
       STA MFG09                    IN                                  F1P03240
       STA MFG12                    2TA                                 F1P03250
       STA MFG18                    AND                                 F1P03260
       STA MFG20                    INITIALIZE  ADDRESSES               F1P03270
       CLA OTA-1                    GET NUM WORDS IN OTA                F1P03280
       TNZ MFGOK                    TABLE EXISTS                        F1P03290
       TRA TEIFER           STOP FOR NO TABLE IN OTA                    F1P03300
MFGOK  ARS 18                       NUMBER WORDS PUT IN AC ADDRESS      F1P03310
       ADD L(OTA)                   ADD OTA ORIGIN                      F1P03320
       STA MFG01                    INITIALIZE ADDRESSES WITH           F1P03330
       STA MFG02                    OTA + NUM WORDS                     F1P03340
       STA MFG06                                                        F1P03350
       STA MFG07                                                        F1P03360
       STA MFG10                                                        F1P03370
       STA MFG11                                                        F1P03380
       STA MFG17                                                        F1P03390
       STA MFG19                                                        F1P03400
MFG00  CLA 0,2                      ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410
       TPL MFG14                    SIGN IS PLUS.                       F1P03420
       STA E3                       SAVE A1.                            F1P03430
       LXD OTA-1,4                  SET INDEX C TO NUM WORDS IN OTA.(2) F1P03440
MFG01  CLA 0,4                      AL  PRIME  AND AL  GO TO AC.        F1P03450
       ANA MSK                      ERASE AL  PRIME IN AC.              F1P03460
       SUB E3                       COMPARE TEIFNO ARGUMENT WITH A1.    F1P03470
       TZE MFG02                    AL  EQUALS ARGUMENT.                F1P03480
       TIX MFG01,4,1                COMP AL VS NEXT  TEIFNO ENTRY. (3A1)F1P03490
       CLA PAT13                                                        F1P03500
       TRA MFG03                                                        F1P03510
MFG02  CLA 0,4                      A1 PRIME AND A1L  GO TO AC.         F1P03520
       ARS 18                       A1 PRIME GOES TO ADDRESS OF AC      F1P03530
MFG03  STA 0,2                      (I)  A1 PRIME REPLACES A1           F1P03540
MFG04  TXI MFG05,2,-1               TAKE WORD  2  OF TIFGO  ENTRY       F1P03550
MFG05  CLA 0,2                      (1).  AC DECK IS  A2, ADDR IS  A3   F1P03560
       STA E3                       SAVE A3                             F1P03570
       LXD OTA-1,4                  (2)                                 F1P03580
MFG06  CLA 0,4                      A3  PRIME AND A3  GO TO  AC         F1P03590
       ANA MSK                      ERASE A3 PRIME IN  AC               F1P03600
       SUB E3                       COMPARE TEIFNO ARGUMENT  WITH A3    F1P03610
       TZE MFG07                    A3  EQUALS ARGUMENT                 F1P03620
       TIX MFG06,4,1                (3A3)                               F1P03630
       CLA PAT13                                                        F1P03640
       TRA MFG08                                                        F1P03650
MFG07  CLA 0,4                      A3 PRIME AND A3 GO TO AC            F1P03660
       ARS 18                       A3 PRIME GOES TO ADDR OF AC         F1P03670
MFG08  STA 0,2                      (1). A3 PRIME REPLACES A3           F1P03680
MFG09  CLA 0,2                      (1). A2 AND A3 PRIME GO TO AC       F1P03690
       ARS 18                       A2 GOES TO ADDR OF AC               F1P03700
       STA E3                       SAVE A2                             F1P03710
       LXD OTA-1,4                  (2)                                 F1P03720
MFG10  CLA 0,4                      A2 PRIME AND A2 GO TO AC            F1P03730
       ANA MSK                      ERASE A2 PRIME IN AC                F1P03740
       SUB E3                       COMPARE TEIFNO ARGUMENT WITH A2     F1P03750
       TZE MFG11                    A2 EQUALS ARGUMENT                  F1P03760
       TIX MFG10,4,1                (3A2)                               F1P03770
       CLA PAT13                                                        F1P03780
       TRA MFG12                                                        F1P03790
MFG11  CLA 0,4                      A2 PRIME AND A2 GO TO AC            F1P03800
MFG12  STD 0,2                      (1) A2 PRIME REPLACES A2            F1P03810
       TIX MFG00,2,1                TAKE FIRST WORD OF NEXT 2TA ENTRY   F1P03820
MFG13  TIX MFG13-1,2,1              TAKE SECOND WORD OF 2TA ENTRY       F1P03830
       TRA WFG00                    EXIT TO TAPE WRITING PROGRAM        F1P03840
MFG14  PAX 0,4                      INTEGER N GOES TO INDEX C           F1P03850
       TRA MFG14+9,4                                                    F1P03860
       TRA MFG13                    N EQUALS 7 NO MODIFICATION          F1P03670
       TRA MFG15                    N EQUALS 6                          F1P03880
       TRA MFG04                    N EQUALS 5                          F1P03890
       TRA MFG04                    N EQUALS 4                          F1P03900
       TRA MFG04                    N EQUALS 3                          F1P03910
       TRA MFG13                    N EQUALS 2 NO MODIFICATION          F1P03920
       TRA MFG13                     N EQUALS 1 NO MODIFICATION         F1P03930
       TRA MFG15                     N EQUALS 0                         F1P03940
MFG15  TXI MFG16,2,-1                TAKE WORD 2 OF 2TA ENTRY           F1P03950
MFG16  LXD OTA-1,4                   (2)                                F1P03960
MFG17  CLA 0,4                       K PRIME AND K GO TO AC             F1P03970
       ANA MSK                       ERASE K PRIME                      F1P03980
MFG18  SUB 0,2                       (1). COMPARE K WITH TEIFNO ARGUMENTF1P03990
       TZE MFG19                     K EQUALS ARGUMENT                  F1P04000
       TIX MFG17,4,1                 (3K)                               F1P04010
       CLA PAT13                                                        F1P04020
       TRA MFG20                                                        F1P04030
MFG19  CLA 0,4                       K PRIME AND K GO TO AC             F1P04040
       ARS 18                        K PRIME GOES TO ADDRESS OF AC      F1P04050
MFG20  STA 0,2                       (1). K PRIME REPLACES K            F1P04060
       TIX MFG00,2,1                 TAKE FIRST WORD OF NEXT 2TA ENTRY  F1P04070
WFG00  TSX WAT00,1                   WRITE 2TA ON TAPE                  F1P04080
           2                                                            F1P04090
       HTR 2TA                                                          F1P04100
       TSX TAP00,1                   ASSEMBLE  TRAD                     F1P04110
       HTR 3                                                            F1P04120
L(3TA) HTR 3TA                                                          F1P04130
       REM       PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO           F1P04140
MTRTP  CLA 3TA-1                     GET NUM OF WORDS IN 3TA            F1P04150
       TZE WTR00                     NO ENTRIES IN TABLE                F1P04160
       PDX 0,2                       NUMBER OF WORDS PUT IN INDEX B     F1P04170
       ARS 18                        RESET ADDRESSES                    F1P04180
       ADD L(3TA)                                                       F1P0419O
       STA MTR02                                                        F1P04200
       STA MTR04                                                        F1P04210
       CLA OTA-1                     GET NUMBER WORDS IN OTA.           F1P04220
       TNZ MTROK                     TABLE EXISTS                       F1P04230
       TRA TEIFER            STOP FOR NO TABLE IN OTA                   F1P04240
MTROK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P04250
       ADD L(OTA)                    ADD OTA ORIGIN                     F1P04260
       STA MTR01                     INITIALIZE ADDRESS                 F1P04270
MTR00  LXD OTA-1,4                   SET INDEX C TO NUM WORDS IN OTA    F1P04280
MTR01  CLA 0,4                       A SUB I PRIME AND A SUB I GO TO AC F1P04290
       STD E3                        SAVE A SUB I PRIME                 F1P04300
       ANA MSK                       ERASE SUB I PRIME                  F1P04310
MTR02  SUB 0,2                       ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320
       TZE MTR03                     A SUB I EQUALS ARGUMENT            F1P04330
       TIX MTR01,4,1                 A SUB I NOT EQUAL TO ARGUMENT      F1P04340
       CLA PAT13                                                        F1P04350
       TRA MTR04                                                        F1P04360
MTR03  CLA E3                        A SUB I PRIME GOES TO AC DECR.     F1P04370
       ARS 18                        A SUB I PRIME GOES TO AC ADDR.     F1P04380
MTR04  STA 0,2                       (1). A SUB I PRIME REPLACES A SUB IF1P04390
       TIX MTR00,2,1                 TAKE NEXT WORD OF 3TA              F1P04400
WTR00  TSX WAT00,1                   ALL WORDS OF 3TA EXAMINED SO       F1P04410
           3                         WRITE 3TA ON TAPE                  F1P04420
           3TA                                                          F1P04430
AD000  TSX TAP00,1                   ASSEMBLE TDO                       F1P04440
           1                                                            F1P04450
OATDO      1TA                       ORIGIN OF ASSEMBLED TDO            F1P04460
       REM        PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO           F1P04470
MDOTP  CLA 1TA-1                     GET NUMBER OF WORDS IN ITA         F1P04480
       TZE WDO00                     EXIT FOR NO WORDS IN TABLE         F1P04490
       PDX 0,2                       NUMBER OF WORDS IN ITA PUT IN IRB  F1P04500
       ARS 18                        NUM WORDS PUT IN AC ADDR           F1P04510
       ADD OATDO                     ADD ORIGIN OF ASSEMBLED TDO        F1P04520
       STA MDO00                     INITIALIZE ADDRESSES               F1P84530
       STA MDO06                                                        F1P04540
       STA MDO30                                                        F1P04550
       CLA OTA-1                     GET NUMBER WORDS IN OTA            F1P04560
MDOOK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P04570
       ADD L(OTA)                    ADD OTA ORIGIN AND                 F1P04580
       STA MDO02                     INITIALIZE ADDRESSES               F1P04590
       STA MDO03                                                        F1P04600
       STA MDO04                                                        F1P04610
       STA MDO041                                                       F1P04620
MDO00  CLA 0,2                       ADDR IS ITA + NUMBER WORDS    (1)  F1P04630
       TPL MDO01                     SIGN OF  WORD  IS  PLUS            F1P04640
       SSP                           CHANGE SIGN OF WORD  IN  TABLE     F1P04650
MDO30  STO 0,2                                                          F1P04660
       TRA MDO07                                                        F1P04670
MDO01  ANA MSK                       ERASE DECR  IN AC                  F1P04680
       STA E1                        SAVE BETA                          F1P04690
       LXD OTA-1,4                   SET  INDEX C TO NUM WORDS IN OTA   F1P04700
       TXH MDO02,4,0                 TEST FOR TEIFNO                    F1P04710
       TRA TEIFER            STOP FOR NO TEIFNO                         F1P04720
MDO02  CLA 0,4                       BETA PRIME AND BETA GO TO AC       F1P04730
       ANA MSK                       ERASE BETA PRIME                   F1P04740
       SUB E1                        BETA COMPARED WITH TABLE ARGUMENT  F1P04750
       TZE MDO03                     BETA EQUALS ARGUMENT               F1P04760
       TIX MDO02,4,1                 BETA NOT EQUAL TO ARGUMENT         F1P04770
       CLA PAT13                                                        F1P04780
       TRA MDO06                                                        F1P04790
MDO03  CLA 0,4                       BETA PRIME AND BETA GO TO AC       F1P04800
       STD E2                        SAVE DECR OF FIRST POSSIBILITY     F1P04810
       TNX MDO08,4,1                 SEE IF THERE ARE 2 ENTRIES FOR     F1P04820
MDO04  CLA 0,4                       ONE ARGUMENT                       F1P04830
       ANA MSK                       ERASE DECR IN AC                   F1P04840
       SUB E1                                                           F1P04650
       TZE MDO041                    THERE ARE 2 ENTRIES                F1P04860
MDO08  CLA E2                        THERE IS ONLY ONE ENTRY            F1P04870
       TRA MDO05                     FOR THIS ARGUMENT                  F1P04860
MDO041 CLA 0,4                                                          F1P04890
MDO05  ARS 18                                                           F1P04900
MDO06  STA 0,2                       (I)* BETA PRIME REPLACES BETA      F1P04910
MDO07  TIX MDO00,2,5                 TAKE NEXT ENTRY IN ITA             F1P04920
WDO00  TSX WAT00,1                   WRITE  TDO ON TAPE                 F1P04930
       HTR 1                                                            F1P04940
T0T1   HTR 1TA                                                          F1P04950
       RTB 1                                                            F1P04960
       TRA 4                         GO TO 1-CS FOR PART B OF ONE PRIME F1P04970
DMASK      0,0,32767                                                    F1P04980
PAT11  OCT 77777                                                        F1P04990
PAT13  HTR 0                                                            F1P05000
PAT14  HTR 0                                                            F1P05010
PAT15  HTR 0                                                            F1P05020
GARBGE BSS 1                                                            F1P05030
WORKCL BSS 1                                                            F1P05040
NEWBAS BSS 1                                                            F1P05050
BUFFER BES 90                                                           F1P05060
E1PTS  BSS 1                                                            F1P05070
FLSIZE BSS 1                                                            F1P05080
CMPREC BSS 1                                                            F1P05090
END1PA ORG 1650                                                         F1P05100
1TAM1  BSS 1                         NO OF WORDS IN BLOCK               F1P05110
1TA    BSS 750                       BLOCK FOR TABLE ASSEMBLING         F1P05120
       REM                                                              F1P05130
       REM                                                              F1P05140
       REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B =  F0240000. F1P05150
       ORG 0                                                            F1P05160
       PZE ORG1PB,,ORG1PB                                               F1P05170
       PZE END1PB                                                       F1P05180
       REM                                                              F1P05190
       REM THIS  IS PART B OF 2 PARTS OF SECTION ONE PRIME              F1P05200
       REM                                                              F1P05210
ORG1PB ORG 327                                                          F1P05220
       NOP                            TO PERMIT A STOP FOR TESTING USE. F1P05230
       TSX TAP00,1                    ASSEMBLE FORVAL                   F1P05240
TNT6   HTR 6                                                            F1P05250
TOT6   HTR 6TA                                                          F1P05260
       LXD 6TA-1,4           TEST FOR ENTRIES IN FORVAL, IF NONE WRITE  F1P05270
       TXL CLMD09,4,0        IDENTIFICATION WORD AND ZERO WORD.         F1P05280
       REM                                                              F1P05290
       TSX TAP00,1           ASSEMBLE TABLE OF FIRST, LAST FORMULA      F1P05300
           16                NUMBERS OF CALL STATEMENTS.                F1P05310
L16TA      16TA                                                         F1P05320
       REM                                                              F1P05330
       LXD 16TA-1,2          TEST FOR ANY ENTRIES IN CALL NUMBER TABLE, F1P05340
       TXL CLMD09,2,0        IF NONE WRITE OUT FORVAL TABLE.            F1P05350
       REM                                                              F1P05360
       REM THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER  TABLES.    F1P05370
       REM THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE   F1P05380
       REM REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT.   F1P05390
       REM THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO      F1P05400
       REM TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA        F1P05410
       REM NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH,               F1P05420
       REM                                                              F1P05430
       STZ WORKCL                                                       F1P05440
       LXA L(0),1       PREPARE FOR FORWARD SEARCH.                     F1P05450
       LXD 6TA-1,4      NO OF ENTRIES IN FORVAL.                        F1P05460
       PXD ,2                                                           F1P05470
       ARS 18                                                           F1P05480
       ADD L16TA                                                        F1P05490
       STA *+1                                                          F1P05500
       REM                                                              F1P05510
CLMD01 CLA ..,2              GET NEXT ENTRY IN CALL TABLE.              F1P05520
       STD WORKCL            DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530
       ANA MSK                                                          F1P05540
       ALS 18                                                           F1P05550
CLMD02 CAS 6TA,1             COMPARE CALL FIRST IN AC TO NEXT FORVAL.   F1P05560
       TXI CLMD04,1,-1       CALL GREATER THAN FORVAL                   F1P05570
       TRA CLMD03            CALL EQUAL FORVAL.                         F1P05580
       TIX CLMD01,2,1        GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE   F1P05590
       TRA CLMD09            GO WRITE FORVAL TABLE.                     F1P05600
       REM                                                              F1P05610
CLMD03 CLA WORKCL            REPLACE FORMULA NUMBER IN FORVAL WHICH IS  F1P05620
       STD 6TA,1             FIRST RELATED TO CALL WITH LAST.           F1P05630
       TXI *+1,1,-1                                                     F1P05640
CLMD04 TIX CLMD02,4,1        GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650
       REM                   IF NOT GO WRITE FORVAL TABLE.              F1P05660
       REM                                                              F1P05670
CLMD09 TSX WAT00,1                                                      F1P05680
       HTR 6                         FORVAL                             F1P05690
       HTR 6TA                       ON TAPE                            F1P05700
       CLA 6TA-1                     GET NUMBER OF WORDS IN FORVAL      F1P05710
       TNZ WFD00                     TABLE EXISTS                       F1P05720
       TRA A4VAR                     EXIT 10 ASSEMBLE NEXT TABLE        F1P05730
WFD00  WRS 194                       PREPARE TO WRITE FORVAL ON DRUM    F1P05740
WFD01  PDX 0,1                       SET INDEX A TO NUM OF WORDS        F1P05750
       LXA WFD01,2                   SET INDEX B TO ZERO                F1P05760
       ARS 18                        PUT NUM OF WORDS IN AC             F1P05770
       ADD TOT6                                                         F1P05780
       STA WFD04                     INITIALIZE                         F1P05790
       STA WFD07                                                        F1P05800
       SUB L(1)                      ADDRESSES                          F1P05810
       STA WFD03                                                        F1P05820
       STA WFD06                                                        F1P05830
       TXI WFD02,1,-1                SUBTRACT ONE FROM INDEX A          F1P05840
WFD02  CLM                           COMPUTE CHECK SUM                  F1P05850
WFD03  ACL 0,1                       FOR EACH FORVAL                    F1P05860
WFD04  ACL 0,1                       ENTRY AND SAVE IN                  F1P05870
       SLW FRCHS,2                   SEPARATE TABLE                     F1P05880
       TXI WFD05,2,-1                                                   F1P05890
WFD05  TIX WFD02,1,2                 TEST END OF FORVAL ENTRIES         F1P05900
       LXA WFD01,2                   SET INDEX B TO ZERO                F1P05910
       LXD 6TA-1,1                                                      F1P05920
       LDA DRL02                                                        F1P05930
       TXI WFD06,1,-1                                                   F1P05940
WFD06  CPY 0,1                       WRITE FORVAL                       F1P05950
WFD07  CPY 0,1                       ENTRY                              F1P05960
       TNX WFD08,1,2                 TEST END OF FORVAL ENTRIES         F1P05970
       CPY FRCHS,2                   WRITE CHECK SUM                    F1P05980
       TXI WFD06,2,-1                FOR ABOVE ENTRY                    F1P05990
WFD08  CPY FRCHS,2                   WRITE CHECK SUM FOR LAST ENTRY     F1P06000
       CPY FRCON                     WRITE END OF TABLE SIGNAL          F1P06010
A4VAR  TSX TAP00,1                   ASSEMBLE FORVAR.                   F1P06020
TNT5   HTR 5                                                            F1P06030
       HTR 5TA                                                          F1P06040
       TSX WAT00,1                   WRITE FORVAR ON TAPE               F1P06050
       HTR 5                                                            F1P06060
       HTR 5TA                                                          F1P06070
       TSX TAP00,1                   ASSEMBLE FORTAG                    F1P06080
       HTR 4                                                            F1P06090
       HTR 4TA                                                          F1P06100
       TSX WAT00,1                   WRITE FORTAG ON TAPE               F1P06110
       HTR 4                                                            F1P06120
       HTR 4TA                                                          F1P06130
       REM PROGRAM  FOR PROCESSING FREQUENCY TABLE. FRET                F1P06140
       TSX TAP00,1                   ASSEMBLE FRET.                     F1P06150
       HTR 7                                                            F1P06160
TOT7   HTR 7TA                       ORIGIN OF ASSEMBLED FRET,          F1P06170
MFRTP  CLA 7TA-1                     GET NUM OF WORDS IN TABLE          F1P06180
       TZE WFR00                     EXIT FOR EMPTY TABLE               F1P06190
       PDX 0,2                       SET INDEX B TO NUM WORDS IN TABLE  F1P06200
       ARS 18                        PUT NUMBER IN AC ADDRESS AND       F1P06210
       ADD TOT7                      INITIALIZE ADDRESSES               F1P06220
       STA MFR00                                                        F1P06230
       STA MFR03                                                        F1P06240
       CLA OTA-1                     GET NUMBER OF WORDS IN OTA         F1P06250
       TNZ MFROK                     TABLE EXISTS                       F1P06260
       TRA TEIFER       STOP  FOR NO TABLE IN OTA                       F1P06270
MFROK  ARS 18                        PUT NUMBER WORDS IN AC ADDRESS     F1P06280
       ADD L(OTA)                    ADD OTA ORIGIN AND                 F1P06290
       STA MFR01                     INITIALIZE ADDRESSES               F1P06300
       STA MFR02                                                        F1P06344
MFR00  CLA 0,2                       ADDR IS 7TA + NUMBER OF WORDS      F1P06320
       TPL MFR04                     DO NOT MODIFY THIS WORD            F1P06330
       STA E10                       SAVE ABSOLUTE PART OF WORD         F1P06340
       LXD OTA-1,1                   SET INDEX TO NUM WORDS IN OTA      F1P06350
MFR01  CLA 0,1                       TEIFNO ARGUMENT IS IN AC.          F1P06360
       ANA MSK                       COMPARE WITH 7TA WORD              F1P06370
       SUB E10                                                          F1P06380
       TZE MFR02                     MODIFY 7TA WORD                    F1P06390
       TIX MFR01,1,1                 GO TO NEXT TEIFNO WORD             F1P06400
       CLA L(0)         NO ENTRY FOUND IN TEIFNO.  IGNORE.              F1P06410
       TRA MFR03                                                        F1P06420
MFR02  CLA OTA,1                     TEIFNO WORD GOES TO AC             F1P06430
       ARS 18                        INTERNAL FORMULA NUM IN AC ADDR,   F1P06440
MFR03  STA 0,2                       INTERNAL FORMULA NUM GOES TO 7TA   F1P06450
MFR04  TIX MFR00,2,1                 EXAMINE NEXT WORD OF 7TA           F1P06460
       REM PROGRAM FOR SORTING FRET                                     F1P06470
SFRTP  CLA 7TA-1                     GET NUMBER OF WORDS IN FRET        F1P06480
       ARS 18                        NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490
       ADD TOT7                      COMPUTE NUMBER OF WORDS IN TABLE   F1P06500
       STA SFR01                     PLUS ORIGIN OF TABLE AND INITIALIZEF1P06510
       STA SFR03                     ADDRESSES                          F1P06520
       STA SFR06                                                        F1P06530
       STA SFR07                                                        F1P06540
       STA SFR11                                                        F1P06550
       STA SFR13                                                        F1P06560
       STA SFR17                                                        F1P06570
SFR00  CLM                           SET E12 TO ZERO TO INDICATE        F1P06580
       STO E12                       TABLE IS IN ORDER.                 F1P06590
       LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN 7TA F1P06600
SFR01  CLA 0,1                       A WORD OF 7TA GOES TO AC.          F1P06610
       TMI SFR02                     COMPARE THIS WORD. IT IS ALPHA ONE F1P06620
       TXI SFR01,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06630
SFR02  STA E11                       SAVE ALPHA ONE FOR COMPARISON      F1P06640
       SXD A1BOX,1                   SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650
       TNX SFR21,1,1                 EXAMINE NEXT WORD OF 7TA           F1P06660
SFR03  CLA 0,1                       PUT NEXT WORD OF 7TA IN AC.        F1P06670
       TMI SFR05                     COMPARE THIS WORD. IT IS ALPHA TWO F1P06680
       TXL SFR21,1,1                 EXIT FOR END OF TABLE              F1P06690
       TXI SFR03,1,-1                EXAMINE NEXT 7TA WORD              F1P06700
SFR05  SSP                           COMPUTE ALPHA TWO                  F1P06710
       SUB E11                       MINUS ALPHA ONE                    F1P06720
       TPL SFR01                     ALPHA ONE IS SMALLER               F1P06730
       CLA L(1)                      C(E12) NOT ZERO INDICATES TABLE WASF1P06740
       STO E12                       NOT IN ORDER ON THIS PASS.         F1P06750
       LXA L(0),4                    SET INDEX C TO ZERO TO INDEX OTA   F1P06760
SFR06  CLA 0,1                       ALPHA TWO GOES TO  AC              F1P06770
       STO OTA,4                     SAVE ALPHA TWO                     F1P06780
       TXI SFR07,1,-1                GET NEXT WORD OF ALPHA TWO ENTRY   F1P06790
SFR07  CLA 0,1                       PUT THIS WORD IN AC                F1P06800
       TMI SFR10                     ALL WORDS OF ALPHA TWO ENTRY SAVED F1P06810
       TXI SFR09,4,-1                GO TO NEXT WORD OF OTA             F1P06820
SFR09  STO OTA,4                     SAVE WORDS OF ALPHA TWO ENTRY      F1P06830
       TXL SFR10,1,1                 ALPHA TWO ENTRY IS END OF TABLE    F1P06840
       TXI SFR07,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06850
SFR10  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860
SFR11  CLA 0,1                       ALPHA ONE GOES TO AC               F1P06870
       TXI SFR12,4,-1                GO TO NEXT WORD OF OTA             F1P06880
SFR12  STO OTA,4                     SAVE ALPHA ONE                     F1P06890
       SXD A2BOX,4                   COMPUTE INDEX FOR                  F1P06900
       CLA A1BOX                     RETURNING TO ALPHA ONE             F1P06910
       ADD A2BOX                     AFTER TRANSPOSING                  F1P06920
       STD A2BOX                     ALPHA ONE AND ALPHA TWO ENTRIES    F1P06930
       TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06940
SFR13  CLA 0,1                       PUT NEXT WORD IN AC                F1P06950
       TMI SFR15                     FINISHED SAVING ALPHA ONE ENTRY    F1P06960
       TXI SFR14,4,-1                GO TO NEXT WORD OF OTA             F1P06970
SFR14  STO OTA,4                     SAVE WORDS OF ALPHA ONE ENTRY      F1P06980
       TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06990
SFR15  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000
       LXA L(0),2                    SET INDEX B TO INDEX OTA           F1P07010
SFR16  CLA OTA,2                     ALPHA ONE ENTRY AND ALPHA TWO ENTRYF1P07020
SFR17  STO 0,1                       ARE INTERCHANGED                   F1P07030
       TXI SFR18,2,-1                GO TO NEXT WORD OF OTA             F1P07040
SFR18  TNX SFR00,1,1                 END OF TABLE EXIT                  F1P07050
       TXL SFR20,4,1                 TEST IF OTA IS EMPTIED             F1P07060
       TXI SFR16,4,1                 COUNT WORDS TAKEN FROM OTA         F1P07070
SFR20  LXD A2BOX,1                   GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07080
       TRA SFR01                     START OVER WITH NEW ALPHA ONE      F1P07090
SFR21  CLA E12                       TEST IF TABLE IS IN ORDER          F1P07100
       TNZ SFR00                     EXAMINE TABLE AGAIN                F1P07110
       REM PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN   F1P07120
       REM TIFGD                                                        F1P07130
RFT00  BST 146                       MOVE TAPE                          F1P07140
       BST 146                       THRU TABLES                        F1P07150
       BST 146                       ALREADY WRITTEN                    F1P07160
       BST 146                       TO OBTAIN                          F1P07170
       BST 146                       TIFGO                              F1P07180
       BST 146                                                          F1P07190
       RDS 146                       SELECT TAPE FOR READING            F1P07200
       CLA L(4)              PREPARE TO COUNT                           F1P07210
       STO IT1                       TWO TAPE TESTS                     F1P07220
       CPY E1RF                      GET TABLE NUMBER                   F1P07230
       CLA E1RF                      AND COMPARE WITH                   F1P07240
       SUB TNT2                      TABLE CALLED FOR                   F1P07250
       TZE RFT01                     TABLE NUMBERS AGREE                F1P07260
       TSX DIAG,4                    STOP FOR TABLE NOT IN RIGHT RECORD F1P07270
RFT01  CPY OTA-1                     GET NUMBER OF WORDS                F1P07280
       CLA OTA-1                     IN TAPE RECORD                     F1P07290
       TZE WFR01                     EXIT FOR EMPTY TABLE ON TAPE       F1P07300
       STD RFT05                                                        F1P07310
       RTT                           TURN OFF TAPE                      F1P07320
       NOP                           CHECK INDICATOR AND LIGHTS         F1P07330
RFT02  LXA L(0),2                    SET INDEX B TO ZERO                F1P07340
RFT03  CPY OTA,2                                                        F1P07350
       TXI RFT03,2,-1                COPY LOOP                          F1P07360
       NOP                           END OF FILE JUMP                   F1P07370
       WRS 219                       END OF RECORD. DELAY FOR TAPE TEST F1P07380
       RTT                           TAPE TEST                          F1P07390
       TRA RFT04                     TAPE TEST ON                       F1P07400
       TRA RFT07                     TAPE TEST OFF                      F1P07410
RFT04  BST 148                       REPEAT RECORD                      F1P07420
       RDS 148                       PREPARE TO READ RECORD             F1P07430
RFT05  TXI RFT06,2,**                COMPENSATE FOR REREADING RECORD    F1P07440
RFT06  CLA IT1                       COUNT                              F1P07450
       SUB L(1)                      TWO                                F1P07460
       STO IT1                       TAPE TESTS                         F1P07470
       CPY E1RF                      GET TABLE NUMBER                   F1P07480
       CPY E1RF                      GET NUMBER OF WORDS IN TABLE       F1P07490
       TPL RFT02                     GO TO READ TAPE                    F1P07500
       TSX DIAG,4                    STOP FOR SECOND TAPE TEST          F1P07510
RFT07  CLA 7TA-1                     COMPUTE TABLE                      F1P07520
       ARS 18                        ORIGIN PLUS                        F1P07530
       ADD TOT7                      NUMBER OF                          F1P07540
       STA RFT09                     WORDS IN                           F1P07540
       STA RFT13                     FRET AND                           F1P07560
       STA RFT18                     INITIALIZE ADDRESSES               F1P07570
       CLA OTA-1                     GET NUMBER OF WORDS IN TI FGO      F1P07580
       ARS 18                        PUT IN AC AND                      F1P07590
       SUB L(1)                      SUBTRACT ONE                       F1P07600
       PAX 0,4                       SET INDEX C TO THIS NUMBER         F1P07610
       ADD TOTO                      ADD ORIGIN OF TIFGO ADD            F1P07620
       STA RFT08                     INITIALIZE ADDRESS                 F1P07630
       CLM                                                              F1P07640
       SLW E1RFT                                                        F1P07650
RFT08  CLA 0,4                       GET FIRST WORD OF TIFGO ENTRY      F1P07660
       STD E1RFT                     SAVE FORMULA NUMBER                F1P07670
       TMI RFT09-1                   ENTRY IS AN IF(E)                  F1P07680
       ANA MSK                       ERASE DECREMENT OF AC              F1P07690
       SUB L(2)                      TEST FOR GO TO VECTOR ENTRY        F1P07700
       TNZ RFT20                     EXIT FOR ENTRY NOT A GO TO VECTOR  F1P07710
       LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN FRETF1P07720
RFT09  CLA 0,1                       GET WORD OF FRET ENTRY             F1P07730
       TPL RFT10                     TEST FOR FIRST WORD OF ENTRY       F1P07740
       SSP                           PUT FORMULA NUMBER                 F1P07750
       ALS 18                        IN DECREMENT OF AC                 F1P07760
       SUB E1RFT                     COMPARE FORMULA NUMBERS            F1P07770
       TZE RFT11                     FORMULA NUMBERS MATCH              F1P07780
RFT10  TIX RFT09,1,1                 TEST END OF FRET                   F1P07790
       TRA RFT20                     EXIT FOR END OF FRET               F1P07800
RFT11  TNX RFT20,1,1                 PREPARE FOR SECOND WORD OF ENTRY   F1P07810
RFT12  SXD E2RFT,1                   AND SAVE INDEX A FOR RETURN        F1P07820
       LXA L(0),2                    SET INDEX B TO ZERO                F1P07830
RFT13  CLA 0,1                       GET FREQUENCY PART OF ENTRY        F1P07840
       TMI RFT15                     TEST END OF ENTRY                  F1P07850
       STO FRTS,2                    SAVE FREQUENCY                     F1P07860
       TXI RFT14,2,-1                TAKE NEXT FRTS WORD                F1P07870
RFT14  TIX RFT13,1,1                 TAKE NEXT FRET WORD                F1P07880
RFT15  TXL RFT20,2,0                 EXIT FOR NO FREQUENCY IN ENTRY     F1P07890
       LXD E2RFT,1                   SET INDEX A TO GET 2ND ENTRY WORD  F1P07900
RFT16  TXI RFT17,2,1                 GET FREQUENCIES                    F1P07910
RFT17  CLA FRTS,2                    IN REVERSE ORDER                   F1P07920
RFT18  STO 0,1                       AND REPLACE IN FRET ENTRY          F1P07930
       TXI RFT19,1,-1                TAKE NEXT WORD OF FRET ENTRY       F1P07940
RFT19  TXH RFT16,2,0                 TEST END OF ENTRY                  F1P07950
RFT20  TIX RFT08,4,2                 TEST END OF TIFGO                  F1P07960
WFR01  RDS 146                       POSITION                           F1P07970
       RDS 146                       TAPE                               F1P07980
       RDS 146                       FOR                                F1P07990
       RDS 146                       WRITING                            F1P08000
       RDS 146                       FRET                               F1P08010
WFR00  TSX WAT00,1                   WRITE                              F1P08020
       HTR 7                         FRET                               F1P08030
       HTR 7TA                       ON TAPE                            F1P08040
       TSX TAP00,1                   ASSEMBLE EQUIT.                    F1P08050
           8                                                            F1P08060
           EQ                                                           F1P08070
       REM PROGRAM FOR CLASSES OF EQUIVALENCE                           F1P08080
       REM INITIALIZATION OF ADDRESSES AND STORAGE                      F1P08090
CLEQ   CLA EQM1                      COMPUTE EO ORIGIN PLUS             F1P08100
       ARS 18                        NUMBER OF WORDS IN TABLE           F1P08110
       ADD L(EQ)                                                        F1P08120
       STA B7CLQ                                                        F1P08130
       STA B8CLQ                                                        F1P08140
       STA B9CLQ                                                        F1P08150
       STA B2CLQ                                                        F1P08160
       STA B11CLQ                                                       F1P08170
       STA C2CLQ                                                        F1P08180
       STA C3CLQ                                                        F1P08190
       STA A10CLQ                                                       F1P08200
       STA A11CLQ                                                       F1P08210
       STA A12CLQ                                                       F1P08220
       STA A13CLQ                                                       F1P08230
       STA A17CLQ                                                       F1P08240
       STA C10CLQ                                                       F1P08250
OADDR  CLM                                                              F1P08260
       SLW MEEQM1                                                       F1P08270
       SLW BOX1                                                         F1P08280
       SLW E1CLEQ                                                       F1P08290
       SLW E2CLEQ                                                       F1P08300
       SLW E3CLEQ                                                       F1P08310
       SLW E4CLEQ                                                       F1P08320
       SLW E5CLEQ                                                       F1P08330
       LXA OADDR,2                                                      F1P08340
       LXD EQM1,4                                                       F1P08350
G2CLQ  SLW MEEQ,2                                                       F1P08360
       TXI G1CLQ,2,-1                                                   F1P08370
G1CLQ  TIX G2CLQ,4,1                                                    F1P08380
       CLA DECR1                                                        F1P08390
       STO BOX2                                                         F1P08400
       REM INITIALIZATION OF AN EQUIVALENCE CLASS                       F1P08410
BOCLQ  LXD EQM1,1                    SET INDEX A TO MUM OF WORDS IN EQ  F1P08420
       TXL OUT,1,0                   EXIT FOR EMPTY EQ TABLE            F1P08430
       LXD BOX2,2                    PREPARE TO ENTER                   F1P06440
       TXI B7CLQ,2,-1                A WORD IN MEEQ                     F1P08450
B7CLQ  CLA 0,1                       OBTAIN EQ WORD                     F1P06460
       TZE B5CLQ                     EXIT FOR DELETED EQ SET            F1P08470
       STO MEEQ,2                    SAVE EQ SET IN TABLE MEEQ          F1P08480
       CLM                           INDICATE                           F1P08490
B8CLQ  SLW 0,1                       DELETED                            F1P08500
       TXI B1CLQ,2,-1                EQ SET                             F1P08510
B1CLQ  TNX 0,1,1                     EXIT FOR END OF EQ TABLE           F1P08520
B2CLQ  CLA 0,1                       OBTAIN EQ SUBSCRIPT                F1P08530
       TMI B4CLQ                     EXIT FOR END OF EQ SET             F1P08540
       STO MEEQ,2                    SAVE REST OF EQ SET                F1P08550
       TXI B9CLQ,1,-1                                                   F1P08560
B9CLQ  CLA 0,1                       OBTAIN EQ SYMBOL                   F1P08570
       TXI B10CLQ,2,-1                                                  F1P08580
B10CLQ STO MEEQ,2                                                       F1P08590
       TXI B3CLQ,2,-1                IN TABLE MEEQ                      F1P08600
B3CLQ  TIX B2CLQ,1,1                                                    F1P08610
       TRA **                        EXIT FOR END OF EQ TABLE           F1P08620
B4CLQ  SSP                           SAVE LAST                          F1P08630
       STO MEEQ,2                    SUBSCRIPT OF EQ SET                F1P08640
       SXD BOX2,2                    AND ITS MEEQ INDEX                 F1P08650
       TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P08660
B5CLQ  TXI B11CLQ,1,-1                                                  F1P08670
B11CLQ CLA 0,1                       LOOP TO                            F1P08680
       TPL B6CLQ                     GO THROUGH                         F1P08690
       TIX B7CLQ,1,1                 DELETED SET                        F1P08700
B6CLQ  TIX B11CLQ,1,2                                                   F1P08710
       TRA END                       EXIT FOR COMPLETELY DELETED EO TABLF1P08720
       REM COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS                   F1P08730
C0CLQ  LXD BOX2,2                    INITIALIZE TEST                    F1P06740
       SXD C5CLQ,2                   FOR END OF MEEO TABLE              F1P08750
       LXD BOX1,2                    SET INDEX B TO GET 1ST SYMB OF MEEQF1P08760
C6CLQ  LXD EQ-1,1                    PREPARE TO SCAN EQ TABLE           F1P08770
C7CLQ  SXD E1CLEQ,1                  SAVE INDEX OF 1ST WORD OF EQ SET   F1P08760
C2CLQ  CLA 0,1                       OBTAIN EQ WORD                     F1P08790
       TNZ C4CLQ                     SET NOT DELETED                    F1P08800
       TXI C3CLQ,1,-1                                                   F1P08810
C3CLQ  CLA 0,1                       LOOP TO GO THRU                    F1P08820
       TMI C1CLQ                     DELETED SET                        F1P08830
       TIX C3CLQ,1,2                                                    F1P08840
C1CLQ  TIX C7CLQ,1,1                 EXAMINE NEXT EQ SET                F1P08850
       TRA C9CLQ                     EXIT FOR END OF EO TABLE           F1P08860
C4CLQ  STO E5CLEQ                    SAVE EQ SYMBOL                     F1P08870
       TXI C10CLQ,1,-1                                                  F1P08880
C10CLQ CLA 0,1                       GET EQ SUBSCRIPT                   F1P08890
       TPL C8CLQ                     NOT END OF EQ SET                  F1P08900
       CLA E5CLEQ                    GET LAST SYMBOL OF EQ SET          F1P08910
       SUB MEEQ,2                    COMPARE WITH MEEQ SYMBOL           F1P08920
       TZE A0CLQ                     MATCH                              F1P08930
       TIX C7CLQ,1,1                 NO MATCH                           F1P08940
       TRA C9CLQ                                                        F1P08950
C8CLQ  CLA E5CLEQ                                                       F1P08960
       SUB MEEQ,2                                                       F1P08970
       TZE A0CLQ                                                        F1P08980
       TIX C2CLQ,1,1                                                    F1P08990
C9CLQ  TXI C5CLQ,2,-2                GET NEXT MEEQ SYMBOL               F1P09000
C5CLQ  TXH C6CLQ,2,**                TEST END OF TABLE MEEQ             F1P09010
       REM  END OF TABLE MEEQ, NO MATCH IN TABLE EQ                     F1P09020
F2CLQ  LXD BOX2,2                    INDICATE                           F1P09030
       CLA MEEQ,2                    END OF SET                         F1P09040
       SSM                           IN TABLE                           F1P09050
       STO MEEQ,2                    MEEQ                               F1P09060
       TXI F1CLQ,2,-1                INITIALIZE INDEX OF                F1P09070
F1CLQ  SXD BOX1,2                    NEXT SET IN TABLE MEEO AND         F1P09080
       TRA BOCLQ                     INITIALIZE THE SET                 F1P09090
       REM MEEQ SYMBOL MATCHES EQ SYMBOL                                F1P09100
A0CLQ  TXI A14CLQ,1,1                                                   F1P09110
A14CLQ SXD A6CLQ,1                   SAVE EO INDEX OF MATCHED SYMBOL    F1P09120
       TIX A1CLQ,1,1                                                    F1P09130
A1CLQ  TXI A2CLQ,2,-1                                                   F1P09140
A2CLQ  CLA MEEQ,2                                                       F1P09150
       STA E2CLEQ                    SAVE SUBSCRIPT OF MEEQ SYMBOL      F1P09160
A10CLQ CLA 0,1                                                          F1P09170
       STA E3CLEQ                    SAVE SUBSCRIPT OF EQ SYMBOL        F1P09160
       LXD BOX2,2                                                       F1P09190
       TXI A16CLQ,2,-1                                                  F1P09200
A16CLQ SXD E1CLQ,2                                                      F1P09210
       TXI A15CLQ,2,1                                                   F1P09220
A15CLQ TMI A9CLQ                     MATCHED SYMBOL IS END OF EQ SET    F1P09230
A4CLQ  TXI A3CLQ,2,-1                LOOP TO TRANSFER                   F1P09240
A3CLQ  TNX 0,1,1                     TO MEEO SYMBOLS OF                 F1P09250
A11CLQ CLA 0,1                       EQ BELOW MATCHED SYMBOL            F1P09260
       STO MEEQ,2                                                       F1P09270
       TNX 0,1,1                                                        F1P09280
       TXI A17CLQ,2,-1                                                  F1P09290
A17CLQ CLA 0,1                                                          F1P09300
       TMI A5CLQ                                                        F1P09310
       STO MEEQ,2                                                       F1P09320
       TRA A4CLQ                                                        F1P09330
A5CLQ  STA MEEQ,2                    SAVE SBSCR OF LAST SYMBOL OF EQ SETF1P09340
A9CLQ  LXD E1CLEQ,1                                                     F1P09350
A6CLQ  TXL A8CLQ,1,**                EXIT FOR MATCHED SYMBOL REACHED    F1P09360
A12CLQ CLA 0,1                       LOOP TO TRANSFER                   F1P09370
       TXI A7CLQ,2,-1                TO MEEO SYMBOLS OF                 F1P09380
A7CLQ  STO MEEQ,2                    EQ ABOVE MATCHED                   F1P09390
       TXI A6CLQ,1,-1                SYMBOL                             F1P09400
A8CLQ  SXD BOX2,2                                                       F1P09410
       SXD D2CLQ,2                                                      F1P09420
       SXD D4CLQ,2                                                      F1P09430
       LXD E1CLEQ,1                  INDICATE                           F1P09440
       CLM                           DELETED                            F1P09450
A13CLQ SLW 0,1                       EQ SET                             F1P09460
       REM NORMALIZATION OF MEEQ SUBSCRIPTS                             F1P09470
       CLA E3CLEQ                    GET EQ SUBSCRIPT                   F1P09480
       SUB E2CLEQ                    COMPARE WITH MEEQ SUBSCRIPT        F1P09490
       TZE C0CLQ                     SUBSCRIPTS MATCH                   F1P09500
       STA E4CLEQ                                                       F1P09510
       TPL E0CLQ                                                        F1P09520
       REM EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT                        F1P09530
       LXD E1CLQ,2                                                      F1P09540
       TXI D4CLQ,2,-1                                                   F1P09550
D4CLQ  TXL D3CLQ,2,**                                                   F1P09560
D1CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPTS               F1P09570
       ADD E4CLEQ                    OF NEW SYMBOLS                     F1P09580
       STA MEEQ,2                    IN MEEQ SET                        F1P09590
       TXI D2CLQ,2,-2                                                   F1P09600
D2CLQ  TXH D1CLQ,2,**                                                   F1P09610
D3CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPT                F1P09620
       ADD E4CLEQ                    OF LAST NEW SYMBOL                 F1P09630
       STA MEEQ,2                    ENTERED IN MEEQ SET                F1P09640
       TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P09650
       REM EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT                     F1P09660
E0CLQ  LXD BOX1,2                                                       F1P09670
       TXI E2CLQ,2,-1                                                   F1P09680
E2CLQ  CLA MEEQ,2                    NORMALIZE SUBSCRIPTS               F1P09690
       ADD E4CLEQ                    OF OLD SYMBOLS                     F1P09700
       STA MEEQ,2                    IN MEEQ SET                        F1P09710
       TXI E1CLQ,2,-2                                                   F1P09720
E1CLQ  TXH E2CLQ,2,**                                                   F1P09730
       TRA C0CLQ                     GO TO COMPARISON ROUTINE           F1P09740
END    CLA BOX2                      COMPUTE                            F1P09750
       COM                           NUMBER                             F1P09760
       ADD DECR2                     OF WORDS                           F1P09770
       PDX 0,2                       IN TABLE                           F1P09780
       PXD 0,2                       MEEO AND                           F1P09790
       STD MEEQM1                    SAVE WITH TABLE                    F1P09800
       REM REDUNDANCY AND INCONSISTENCY TEST OF EQUIVALENCE SENTENCES   F1P09810
       LXD BOX2,2                    INITIALIZATION                     F1P09820
       SXD M11CLQ,2                  OF                                 F1P09830
       LXA OADDR,2                   INDEXING                           F1P09840
       SXD BOX1,2                                                       F1P09850
M6CLQ  LXD BOX1,2                    OBTAIN                             F1P09860
       CLA MEEQ,2                    FIXED                              F1P09870
       STO SMBL                      SYMBOL                             F1P09880
       TXI M10CLQ,2,-1               AND                                F1P09890
M10CLQ CLA MEEQ,2                    ITS                                F1P09900
       STO SBSCR                     SUBSCRIPT                          F1P09910
       TXI M1CLQ,2,-1                                                   F1P09920
M1CLQ  CLA MEEQ,2                    GET CHANGING SYMBOL AND            F1P09930
       CAS SMBL                      COMPARE WITH FIXED SYMBOL          F1P09940
       TRA M2CLQ                     NO MATCH                           F1P09950
       TRA K1CLQ                     MATCH                              F1P09960
M2CLQ  TXI M3CLQ,2,-1                HAS END OF CHANGING SYMBOLS        F1P09970
M3CLQ  CLA MEEQ,2                    BEEN REACHED, NO MATCH CASE        F1P09980
       TMI M4CLQ                     YES                                F1P09990
       TXI M1CLQ,2,-1                NO                                 F1P10000
M4CLQ  SXD M7CLQ,2                                                      F1P10010
M9CLQ  LXD BOX1,2                    PREPARE TO GET                     F1P10020
       TXI M5CLQ,2,-2                NEXT  FIXED                        F1P10030
M5CLQ  SXD BOX1,2                    SYMBOL                             F1P10040
       TXI M7CLQ,2,-1                                                   F1P10050
M7CLQ  TXH M6CLQ,2,**                TEST END OF MEEQ SET               F1P10060
M11CLQ TXL CLQOUT,2,0                                                   F1P10070
       TXI M8CLQ,2,-1                                                   F1P10080
M8CLQ  SXD BOX1,2                                                       F1P10090
       TRA M6CLQ                                                        F1P10100
K1CLQ  TXI K2CLQ,2,-1                GET SUBSCRIPT                      F1P10110
K2CLQ  CLA MEEQ,2                    OF CHANGING SYMBOL                 F1P10120
       TMI K4CLQ                     END OF SET REACHED                 F1P10130
       CAS SBSCR                     COMPARE SUBSCRIPTS OF MATCHED SYMBLF1P10140
       TRA K3CLQ                     NO MATCH, INCONSISTENT CASE        F1P10150
       TXI M1CLQ,2,-1                MATCH, REDUNDANT CASE              F1P10160
K3CLQ  LXD NEWTBL,4                                                     F1P10170
       TXH ERSTOR,4,0                                                   F1P10180
       CLA FRCON                                                        F1P10190
       STO MEEQ                                                         F1P10200
ERSTOR CLA SMBL                                                         F1P10210
       STO MEEQ+1,4                                                     F1P10220
       TXI SAVIR4,4,-1                                                  F1P10230
SAVIR4 SXD NEWTBL,4                                                     F1P10240
       TRA M9CLQ                     GET NEXT SYMBOL                    F1P10250
NEWTBL HTR 0                                                            F1P10260
K4CLQ  SSP                                                              F1P10270
       CAS SBSCR                                                        F1P10280
       TRA K3CLQ                                                        F1P10290
       TRA M9CLQ                                                        F1P10300
       TRA K3CLQ                                                        F1P10310
CLQOUT LXD NEWTBL,4                                                     F1P10320
       TXL OUT,4,0                                                      F1P10330
       CLA FRCON                                                        F1P10340
       STO MEEQ+1,4                                                     F1P10350
OUT    TSX WAT00,1                   WRITE EQUIT ON TAPE.               F1P10360
           8                                                            F1P10370
           MEEQ                                                         F1P10380
       TSX TAP00,1                   ASSEMBLE TABLE CLOSUB              F1P10390
           9                                                            F1P10400
TOT9       9TA                       ORIGIN OF TABLE 9                  F1P10410
       REM PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB     F1P10420
RDCTP  CLA 9TA-1                     GET NUMBER OF WORDS IN 9TA         F1P10430
       TZE REC07                     EXIT FOR EMPTY TABLE               F1P10440
       PDX 0,4                       SET INDEX C TO NUM OF WORDS IN 9TA F1P10450
       ARS 18                        COMPUTE TABLE ORIGIN PLUS          F1P10460
       ADD TOT9                      NUMBER OF WORDS IN TABLE           F1P10470
       STA REC01                     AND INITIALIZE ADDRESS             F1P10480
       LXD REC03,2                   SET INDEX B TO COMP 1 AND          F1P10490
       SXD REC04,2                   SAVE COMP 1 IN DECR OF REC04       F1P10500
REC00  LXA L(0),2                    SET INDEX B TO ZERO                F1P10510
REC01  CLA 0,4                       GET 9TA WORD AND                   F1P10520
REC02  CAS 9TA,2                     COMPARE WITH 9TA WORD              F1P10530
       TRA REC03                     9TA WORDS NOT EQUAL                F1P10540
       TRA REC06                     9TA WORDS ARE EQUAL                F1P10550
REC03  TXI REC04,2,-1                TAKE NEXT 9TA WORD                 F1P10560
REC04  TXH REC02,2,**                TEST FOR END OF NEW 9TA TABLE      F1P10570
       LXD REC04,1                   ADD COMP 1 TO DECR OF              F1P10580
       TXI REC05,1,-1                REC04 TO ACCOUNT FOR               F1P10590
REC05  SXD REC04,1                   FOLLOWING ENTRY                    F1P10600
       STO 9TA,2                     ENTER UNEQUAL 9TA WORD IN TABLE    F1P10610
REC06  TIX REC00,4,1                 TEST END OF OLD 9TA TABLE          F1P10620
       LXD REC04,4                   GET TWOS COMP OF NUMBER            F1P10630
       PXD 0,4                       OF WORDS ENTERED IN 9TA            F1P10640
       COM                           COMPUTE TRUE FIGURE AND            F1P10650
       ADD L(1)                      STORE IN 9TA-1                     F1P10660
       PDX 0,4                                                          F1P10670
       SXD 9TA-1,4                                                      F1P10680
REC07  TSX WAT00,1                   WRITE MODIFIED                     F1P10690
       HTR 9                         TABLE CLOSUB                       F1P10700
       HTR 9TA                       ON TAPE                            F1P10710
       WEF 146                       END OF TAPE TABLES FILE            F1P10720
       REW 3                                                            F1P10730
       CLA WAT99        CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3       F1P10740
       STA WAT09                                                        F1P10750
       STA WAT05+2                                                      F1P10760
       STA WAT07-1                                                      F1P10770
       STA WAT08                                                        F1P10780
       CLA WAT05+4      NOP                                             F1P10790
       STO WAT04-1      OVER COPY IDENTIFICATION                        F1P10800
       STO WAT04        OVER COPY WORD COUNT                            F1P10810
       STO WAT03-1      OVER STA FOR WORD COUNT                         F1P10820
       CLA TP3TRA                                                       F1P10830
       STO WAT04+2                                                      F1P10840
       TSX TAP00,1      ASSEMBLE NONEXC TABLE                           F1P10850
           14                                                           F1P10860
           XTA                                                          F1P10870
       TSX WAT00,1      WRITE NONEXC TABLE ON TAPE 3                    F1P10880
           14                                                           F1P10890
           XTA                                                          F1P10900
       TSX TAP00,1      ASSEMBLE TSTOPS TABLE                           F1P10910
           15                                                           F1P10920
           XTA                                                          F1P10930
       TSX WAT00,1      WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3      F1P10940
           15                                                           F1P10950
           XTA                                                          F1P10960
       CLA EIFNO                                                        F1P10970
       ADD DECR1        SET EIFNO TO LAST ADD IN PROBLEM PLUS 1         F1P10980
       STO EIFNO                                                        F1P10990
       CAL DECR2                                                        F1P11000
       COM                                                              F1P11010
       ANS 16                                                           F1P11020
       CLA ENDI4                                                        F1P11030
       CAS L(1)                                                         F1P11040
       TRA *+4                                                          F1P11050
       CLA DECR2                                                        F1P11060
       ORS 16                                                           F1P11070
       TRA SPACE                                                        F1P11080
       PXD ,0                                                           F1P11090
       SWT 4                                                            F1P11100
       TRA SPACE                                                        F1P11110
       CLA DECR2                                                        F1P11120
       ORS 16                                                           F1P11130
SPACE  RTB 1                                                            F1P11140
       TRA 4                                                            F1P11150
WAT99      147               ADD OF TAPE 3 IN BINARY MODE               F1P11160
       REM WORKING STORAGE FOR PROGRAM CLEQ                             F1P11170
L(EQ)      EQ                                                           F1P11180
BOX1                                                                    F1P11190
BOX2                                                                    F1P11200
E1CLEQ                                                                  F1P11210
E2CLEQ                                                                  F1P11220
E3CLEQ                                                                  F1P11230
E4CLEQ                                                                  F1P11240
E5CLEQ                                                                  F1P11250
       REM WORKING STORAGE FOR PROGRAM AMW                              F1P11260
E10                                                                     F1P11270
E11                            AMW2105                                  F1P11280
A1BOX                          AMW 2106                                 F1P11290
A2BOX                          AMW 2305                                 F1P11300
IT1                            AMW 2510                                 F1P11310
E1RFT                                                                   F1P11320
E2RFT                                                                   F1P11330
END1PB ORG 907                                                          F1P11340
XTAM1  BSS 1                                                            F1P11350
XTA    BSS 1500         THIS IS TABLE ASSEMBLY BUFFER OF PART 2         F1P11360
       REM                                                              F1P11370
       REM                                                              F1P11380
       REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000.  F1P11390
       ORG 0                                                            F1P11400
       PZE ORG1PC,,1TOCS                                                F1P11410
       PZE END1PC                                                       F1P11420
       REM                                                              F1P11430
       REM COMMON TO SECTION ONE PRIME                                  F1P11440
       REM                                                              F1P11450
ORG1PC ORG 2408                                                         F1P11460
OTAM1  BSS 1            LOCATION OF NUM OF WORDS IN TEIFNO              F1P11470
OTA    BSS 1500         BLOCK FOR ASSEMBLED TEIFNO                      F1P11480
       REM TABLE ASSEMBLY PROGRAM                                       F1P11490
TAP00  REW 4                                                            F1P11500
       STQ E2A                                                          F1P11510
       SXD E3A,2                                                        F1P11520
       SXD E4A,4                                                        F1P11530
       CLA 1,1          GET TABLE NUMBER                                F1P11540
       STA TAP00+6                                                      F1P11550
       PAX ,2                                                           F1P11560
       ALS 1                                                            F1P11570
       ADD 1,1          FORM 3I                                         F1P11580
       ADD OAD                                                          F1P11590
       STA TAP06                                                        F1P11600
       STA TAP20                                                        F1P11610
       ADD L(2)         FORM INTET + 3I +2                              F1P11620
       STA TAP01                                                        F1P11630
       STA TAP05                                                        F1P11640
       CLA MWN+10,2                                                     F1P11650
       PAX ,2           TABLE MAXIMUM                                   F1P11660
       SXD TAP081,2                                                     F1P11670
       SXD OVTEST,2                                                     F1P11680
       LXA L(0),2                                                       F1P11690
TAP01  LXA **,4         NO OF BLOCKS OF THIS TABLE ON TAPE 4            F1P11700
       CLA 2,1                                                          F1P11710
       STA TAP03                                                        F1P11720
       STA TAP08                                                        F1P11730
       SUB L(1)                                                         F1P11740
       STA TAP11                                                        F1P11750
       STA TAP12                                                        F1P11760
       TXL TAP05,4,0         TEST FOR NO TAPE RECORDS                   F1P11770
TAP20  CLA **                                                           F1P11780
       STD TAP14+1                                                      F1P11790
       RTT                   TURN OFF INDICATOR                         F1P11600
       TXH 0,0,0                                                        F1P11810
TAP02  IOD                                                              F1P11820
       RTT                   TEST INDICATOR                             F1P11830
       TXI TAP14,4,1         ON                                         F1P11840
       CLA L(4)              OFF                                        F1P11850
       STO E5A                                                          F1P11860
READ4  RTB 4                                                            F1P11870
       CPY E1A               COPY IDENTIFICATION                        F1P11880
       TRA TAP025                                                       F1P11890
       TSX DIAG,4            EOF MACHINE ERROR                          F1P11900
TAP025 CLA E1A                                                          F1P11910
       SUB 1,1               TEST FOR RECORD OF TABLE BEING ASSEMBLED   F1P11920
       TNZ READ4                                                        F1P11930
TAP03  CPY **,2                                                         F1P11940
       TXI OVTEST,2,-1                                                  F1P11950
       TSX DIAG,4            EOF MACHINE ERROR                          F1P11960
       TIX TAP02,4,1                                                    F1P11970
TAP04  IOD                                                              F1P11980
       RTT                                                              F1P11990
       TRA TAP14                                                        F1P12000
TAP05  CLA **                                                           F1P12010
       ARS 18                                                           F1P12020
       TZE TAP11                                                        F1P12030
       PAX ,4                                                           F1P12040
TAP06  ADD **                                                           F1P12050
       STA TAP07                                                        F1P12060
TAP07  CLA **,4                                                         F1P12070
TAP08  STO **,2                                                         F1P12080
       TXI TAP081,2,-1                                                  F1P12090
TAP081 TXL OVFLOW,2,**                                                  F1P12100
TAP09  TIX TAP07,4,1                                                    F1P12110
TAP11  STZ **                                                           F1P12120
       PXD ,2                                                           F1P12130
       TZE TAP13                                                        F1P12140
       ARS 18                                                           F1P12150
       COM                                                              F1P12160
       ADD L(1)                                                         F1P12170
       PAX ,2                                                           F1P12180
TAP12  SXD **,2                                                         F1P12190
TAP13  LDQ E2A                                                          F1P12200
       LXD E3A,2                                                        F1P12210
       LXD E4A,4                                                        F1P12220
       TRA 3,1               RETURN TO CALLER                           F1P12230
OVTEST TXH TAP03,2,**                                                   F1P12240
OVFLOW TSX DIAG,4            BUFFER AREA EXCEEDED                       F1P12250
TAP14  BST 4                                                            F1P12260
       TXI TAP14+2,2,**                                                 F1P12270
       CLA E5A                                                          F1P12280
       SUB L(1)                                                         F1P12290
       STO E5A                                                          F1P12300
       TNZ READ4                                                        F1P12310
       TSX DIAG,4            THREE FAILURES IN READING A RECORD FROM T4 F1P12320
OAD        INTET                                                        F1P12330
       BSS 3                                                            F1P12340
       REM MAXIMUM NUMBER OF WORDS ALLOWED IN VARIOUS TABLES            F1P12350
           -100              FMTEFN,   TABLE 17                         F1P12360
           -100              CALLFN,   TABLE 16                         F1P12370
           -300              TSTOPS,   TABLE 15                         F1P12380
           -750              NONEXC,   TABLE 14                         F1P12390
           -900              HOLARG,   TABLE 13                         F1P12400
           -600              COMMON,   TABLE 12                         F1P12410
           -900              SUBDEF,   TABLE 11                         F1P12420
MWN        -1430             FORMAT,   TABLE 10                         F1P12430
           -1500             CLOSUB,   TABLE  9                         F1P12440
           -1500             EQUIT,    TABLE  8                         F1P12450
           -750              FRET,     TABLE  7                         F1P12460
           -1000             FORVAL,   TABLE  6                         F1P12470
           -1500             FORVAR,   TABLE  5                         F1P12480
           -1500             FORTAG,   TABLE  4                         F1P12490
           -250              TRAD,     TABLE  3                         F1P12500
           -600              TIFGO     TABLE  2                         F1P12510
           -750              TDO,      TABLE  1                         F1P12520
           -750              TEIFNO,   TABLE  0                         F1P12530
       REM                                                              F1P12540
       REM PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE               F1P12550
WAT00  SXD E1W,2                     START PROGRAM WAT                  F1P12560
       CLA L(4)         PREPARE TO COUNT                                F1P12570
       STO E2W                       TWO TAPE TESTS                     F1P12580
WAT09  WRS 146                       PREPARE TO WRITE ON TAPE 2         F1P12590
       CLA 2,1                       COMPUTE LOCATION OF NUMBER OF WORDSF1P12600
       SUB L(1)                      IN TABLE AND INITIALIZE ADDRESSES  F1P12610
       STA WAT03                                                        F1P12620
       STA WAT04                                                        F1P12630
WAT03  CLA **                        ADDRESS IS NTA-1                   F1P12640
       ARS 18                        NUMBER OF WORDS IN TABLE PUT IN    F1P12650
       PAX 0,2                       INDEX B                            F1P12660
       ADD 2,1                       RESET ADDRESS                      F1P12670
       STA WAT05                                                        F1P12680
       CPY 1,1                       IDENTIFY TABLE ON TAPE             F1P12690
WAT04  CPY **                        NUM OF WORDS IN TABLE PUT ON TAPE  F1P12700
       SUB 2,1                                                          F1P12710
       TZE WAT06                     NO ENTRIES IN TABLE                F1P12720
WAT05  CPY 0,2                       ADDR IS NTA + NUM WORDS IN NTA     F1P12730
       TIX WAT05,2,1                 COPY LOOP                          F1P12740
       BST 146                                                          F1P12750
       RTT                                                              F1P12760
       NOP                                                              F1P12770
       RDS 146                                                          F1P12780
WAT07  CPY E2A                                                          F1P12790
       TRA WAT07                                                        F1P12800
       NOP                           E O R                              F1P12810
       WRS 219                       E O F                              F1P12820
       RTT                                                              F1P12830
       TRA WAT10                     TAPE CHECK ON                      F1P12840
       TRA WAT06                     TAPE CHECK OFF                     F1P12850
WAT10  CLA E2W                                                          F1P12860
       SUB L(1)                                                         F1P12870
       STO E2W                                                          F1P12880
       TPL WAT08                                                        F1P12890
       TSX DIAG,4                    STOP FOR THIRD TAPE CHECK          F1P12900
WAT08  BST 146                                                          F1P12910
       TRA WAT09                                                        F1P12920
       CPY L(0)                                                         F1P12930
WAT06  LXD E1W,2                     RESTORE INDEX B                    F1P12940
       TRA 3,1                       RETURN TO MAIN PROGRAM             F1P12950
       REM                                                              F1P12960
E1W                                                                     F1P12970
E2W                                                                     F1P12980
L(0)       0                                                            F1P12990
L(1)       1                                                            F1P13000
L(2)       2                                                            F1P13010
L(3)       3                                                            F1P13020
L(4)       4                                                            F1P13030
L(5)       5                                                            F1P13040
L(8)       8                                                            F1P13050
L(50)      50                                                           F1P13060
DECR1      0,0,1                                                        F1P13070
DECR2      0,0,2                                                        F1P13080
  MSK  OCT 77777                     AMWO5O3                            F1P13090
FRCON  OCT 377777777777              35 ONES. AMW 1318                  F1P13100
DRL02      202                       LOCATION OF FIRST WORD ON DRUM     F1P13110
TNT2       2                                                            F1P13120
E3                                   NON ERASABLE     0416 TO 0908      F1P13130
E4                                                                      F1P13140
L(0TA)     OTA                                                          F1P13150
TEIFER TSX DIAG,4                                                       F1P13160
TP3TRA TZE WAT06-1                                                      F1P13170
E1A    BSS 1                                                            F1P13180
E2A    BSS 1                                                            F1P13190
E3A    BSS 1                                                            F1P13200
E4A    BSS 1                                                            F1P13210
E5A    BSS 1                                                            F1P13220
E1     SYN E4                                                           F1P13230
E2     SYN E3                                                           F1P13240
TAPOO  SYN TAP00                                                        F1P13250
WATOO  SYN WAT00                                                        F1P13260
L(OTA) SYN L(0TA)                                                       F1P13270
DIAG   SYN 4                                                            F1P13280
COMP   SYN 1TA                                                          F1P13290
2TA    SYN 1TA                                                          F1P13300
3TA    SYN 1TA                                                          F1P13310
TOTO   SYN L(OTA)                                                       F1P13320
EQM1   SYN OTA-1                                                        F1P13330
EQ     SYN OTA                                                          F1P13340
4TA    SYN XTA                                                          F1P13350
5TA    SYN XTA                                                          F1P13360
6TA    SYN XTA                                                          F1P13370
7TA    SYN XTA                                                          F1P13380
9TA    SYN XTA                                                          F1P13390
MEEQM1 SYN XTA-1                                                        F1P13400
MEEQ   SYN XTA                                                          F1P13410
FRTS   SYN XTA+750                                                      F1P13420
FRCHS  SYN XTA+1000                                                     F1P13430
E12    SYN E3                                                           F1P13440
E1RF   SYN E4                                                           F1P13450
SMBL   SYN E1CLEQ                                                       F1P13460
SBSCR  SYN E2CLEQ                                                       F1P13470
16TA   SYN 6TA+1000                                                     F1P13480
1TOCS  SYN 4                                                            F1P13490
       REM                                                              F1P13500
       REM THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER F1P13510
       REM FROM SECTION ONE TO SECTION ONE PRIME.                       F1P13520
EIFNO  SYN 24                                                           F1P13530
ENDI1  SYN 25                                                           F1P13540
ENDI4  SYN 28                                                           F1P13550
INTET  SYN 210                                                          F1P13560
FXCNIX SYN 271                                                          F1P13570
FLCNIX SYN 276                                                          F1P13580
ORGDM1 SYN 299                                                          F1P13590
DIM1IX SYN 301                                                          F1P13600
ORGDM2 SYN 304                                                          F1P13610
DIM2IX SYN 306                                                          F1P13620
ORGDM3 SYN 309                                                          F1P13630
DIM3IX SYN 311                                                          F1P13640
BK     SYN 312                                                          F1P13650
FORSUB SYN 313                                                          F1P13660
BBOX   SYN 415                                                          F1P13670
CIB    SYN 416                                                          F1P13680
END1PC BSS 0                                                            F1P13690
       END                                                              F1P13700
       ORG 25                                                                   
ERLIST SYN 32767                                                                
TABLE  SYN ERLIST-100                                                           
 TRADT SYN ERLIST-1250                                                          
 BETA  SYN ERLIST-1251                                                          
TIFGOT SYN ERLIST-1252                                                          
ALPHA  SYN ERLIST-1252                                                          
NONEXT SYN ERLIST-1852                                                          
       REW 2                                                                    
       REW 3                                                                    
       LXA IR2,4                                                                
RDFILE RTD 2                   WILL READ ANY KIND OF END FILE MARK              
       CPY 0                                                                    
       TRA RDFILE                                                               
       TIX RDFILE,4,1           SPACE OVER 2 FILES AND OVER 1ST RECORD OF       
       RTB 2                    3RD FILE                                        
       NOP                                                                      
       LXA IR4,1                                                                
 CP    CPY TABLE+1,1                                                            
       TXI CP,1,1                                                               
       TRA831                  START AGAIN, CANNOT GET END FILE                 
       TIX FORSUB,1,1          DROP COUNT OF 2ND FILE                           
 OVER  RTB 2                   SPACE OVER END FILE AFTER FORSUB                 
       RTB 2                   SPACE OVER FLOCON                                
       RTB 2                   SPACE OVER FORMAT                                
RDREC  LXA IR4,1                                                                
       RTB 2                                                                    
       CPY IDENT                                                                
       CPY WDCONT                                                               
 COPY  CPY TABLE,1             ALTERNATE FOR READING TRAD CPY TRAD,2            
CPTXI  TXI COPY,1,1                                       TIX COPYAA,1,1        
COPYAA TXI COPY,4,-1                                                            
       PXD 0,1                                                                  
 RDA   TRA PTCH                NOP GOES HERE AFTER SIZ TABLES ARE READ          
SUBWDS SUB WDCONT                                                               
RDAAB  TZE SIZ          TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ          
       LXD BST,4                                                                
       TXL TRY,4,14                                                             
       LDQ IDENT                                                                
BADWC  TSX ERROR,4                                                              
       TRA DIAGND                                                               
 TRY   TXI RDSXD,4,1                                                            
RDSXD  SXD BST,4                                                                
       BST 2                                                                    
       TRA RDREC                                                                
IDNTFY STZ BST                 FORMAT SIZE AND ALL TAPE TABLES HAVE             
       LXA TAPTAB,2            IDENTIFICATION WORD AS FIRST WORD OF             
       CLA IDENT               TAPE RECORD, NOT INCLUDED IN WORD                
 CAS   CAS TAPTAB,2            COUNT                                            
       TRA NEXT                                                                 
       TRA HAVE                                                                 
 NEXT  TIX CAS,2,2                                                              
       LXD BSTA,4              BACK SPACE RECORD AND TRY AGAIN 15 TIMES         
       TXL TRYA,4,14           IF  NECESSARY                                    
       LDQ IDENT                                                                
NOIDEN TSX ERROR,4                                                              
       TRA DIAGND                                                               
TRYA   TXI IDNSXD,4,1                                                           
IDNSXD SXD BSTA,4                                                               
       BST 2                                                                    
       TRA RDREC                                                                
HAVE   STZ BSTA                                                                 
       CLA TAPTAB+1,2                                                           
       STA TRA                                                                  
TRA    TRA 0                                                                    
NOTIFG RTB 2                   IF NO TIFGO ENTRY, IGNORE TRAD ENTRY             
       TRA RDREC                                                                
FORSUB TIX SAVEA,1,2                                                            
       LXA IR4,1                                                                
SAVEA  SXD TXLA,1                                                               
       LXA IR4,1                                                                
LDQA   LDQ TABLE,1                                                              
TSXA   TSX CHECKA,4                                                             
       TXI TXLA,1,2                                                             
TXLA   TXL LDQA,1,0                                                             
       TRA OVER                                                                 
SIZ    TXL SETRD,1,0           IF NO ENTRIES, GET NEXT TAPE RECORDS             
       TIX SAVEB,1,2           REDUCE WORD COUNT FOR END OF ENTRIES TEST        
       LXA IR4,1               IF TOO SMALL, SET TO ZERO                        
SAVEB  SXD TXLB,1                                                               
       LXA IR4,1               START AT FIRST ENTRY, THAT IS IR IS ZERO         
LDQB   LDQ TABLE,1                                                              
TSXB   TSX CHECKA,4                                                             
       TXI TXLB,1,2            GET NEXT 2 WORD ENTRY                            
 TXLB  TXL LDQB,1,0                                                             
SETRD  RTB 2                   SPACE OVER GAP AT END OF 4TH FILE                
       RTB 2                   SPACE OVER 5 WORD END RECORD                     
       CLA AFTRSZ                                                               
       STA RDAAB                                                                
       CLA NOP                                                                  
       STO RDA                 RESET TEST AT END OF READ LOOP                   
       TRA RDREC                                                                
SUBARG TXL RDREC,1,0           INITIALIZATION OF END ENTRIES TEST               
       TIX SAVEC,1,1                                                            
       LXA IR4,1                                                                
SAVEC  SXD TXLC,1                                                               
       LXA IR4,1                                                                
LDQC   LDQ TABLE,1                                                              
TSXC   TSX CHECKA,4                                                             
       TXI TXLC,1,1            1 WORD ENTRIES                                   
TXLC   TXL LDQC,1,0                                                             
       TRA RDREC                                                                
UPPER  TXL UPPRTB,1,0          INITIALIZE END OF ENTRIES TEST                   
       TIX SAVED,1,1                                                            
       LXA IR4,1                                                                
SAVED  SXD TXLD,1                                                               
       LXA IR4,1                                                                
LDQD   LDQ TABLE,1                                                              
TSXD   TSX CHECKA,4                                                             
       TXI TXLD,1,1            1 WORD ENTRIES                                   
TXLD   TXL LDQD,1,0                                                             
UPPRTB RTB 2                   NO SCAN OF HOLARG RECORD                         
       TRA RDREC                                                                
TEIFNO TXL RDREC,1,0           INITIALIZE END OF ENTRIES TEST                   
       TIX SAVEE,1,1                                                            
       LXA IR4,1                                                                
SAVEE  SXD TXLE,1                                                               
       LXA IR4,1                                                                
CLAE   CLA TABLE,1             MINUS ENTRY MEANS BETA IS                        
       TPL TSTE                DUPLICATED IN SOURCE PROGRAM                     
       LDQ TABLE,1                                                              
TSXE   TSX ERROR,4                                                              
TSTE   TXI TXLE,1,1                                                             
TXLE   TXL CLAE,1,0                                                             
       CLA ADTIFG                                                               
       STA COPY                                                                 
       TRA RDREC                                                                
TIFGO  TXL PATIF,1,0           IF NO ENTRIES, IGNORE TRAD IDENTIFICATION        
       TIX SAVEF,1,2                                                            
       LXA IR4,1                                                                
SAVEF  SXD TXLF,1                                                               
       CLA ADTRAD              SET READ LOOP TO READ TRAD                       
       STO COPY                UPWARDS IN MEMORY. BUT                           
       CLA CPTRAD              KEEP TRACK OF WORD COUNT                         
       STA CPTXI               AS USUAL                                         
       LXA IR4,4                                                                
       TRA RDREC                                                                
TRAD   CLA ADTABL              RESTORE COPY LOOP                                
       STO COPY                                                                 
       CLA COPYAA                                                               
       STA CPTXI                                                                
       TXI SXDG,4,-1                                                            
SXDG   SXD BETANB,4            SAVE NUMBER OF ENTRIES IN BETA TABLE             
       CLA 24                  ADD ONE TO LAST TEIFNO                           
       NOP                     GET LAST TEIFNO                                  
       ARS 18                                                                   
       STZ BETA                                                                 
       STA BETA                                                                 
       RTB 3                                                                    
       LXA IR4,2               READ IN TABLE OF NON EXECUTABLE                  
CPNON  CPY 0                   STATEMENTS AND SAVE                              
       LXD 0,4                 DECREMENT OF TABLE IN                            
       TRA PXDH                ADDRESS OF MEMORY                                
       TRA SAVXNB                                                               
PXDH   PXD 0,4                                                                  
       ARS 18                                                                   
       STO NONEXT,2                                                             
       TXI CPNON,2,1                                                            
SAVXNB TIX SAVEH,2,1           SET END OF ENTRIES TEST                          
       LXA IR4,2                                                                
SAVEH  SXD TXLH,2              SET END OF ENTRIES TEST                          
       LXA IR4,1                                                                
CLAF   CLA TIFGOT,1            SAVE ALPHA IN CASE OF ERROR, AND                 
       ARS 18                  ALSO TO PUT IN ALPHA TABLE AT                    
       STA ALFA                END OF PROCESSING EACH KIND OF TIFGO             
       CLA TIFGOT,1            DETERMINE KIND OF ENTRY                          
       TMI TIFMI                                                                
       PAX 0,2                                                                  
       TXL TIFZRO,2,0                                                           
       TXL TIFGO1,2,1                                                           
       TXL TIFGO2,2,2                                                           
       TXL TIFGO3,2,3                                                           
       TXL TIFGO4,2,4                                                           
       TXL TIFGO5,2,5                                                           
       TXL TIFGO6,2,6                                                           
       LDQ TIFGOT,1            NOT IDENTIFYABLE, SAVE IN ERROR                  
WHATIF TSX ERROR,4             TABLE,  BUT PUT ALPHA IN TABLE ANYWAY            
NXTIFG LXD ALFANB,4            STORE ALPHA IN TABLE                             
       CLA ALFA                                                                 
       STO ALPHA,4                                                              
       TXI FSAVE,4,1                                                            
FSAVE  SXD ALFANB,4                                                             
RETIF6 TXI TXLF,1,2     TYPE 6  TIFGO ENTRIES DO  NOT  GO IN                    
TXLF   TXL CLAF,1,0     ALPHA TABLE                                             
       TRA STOPS        WHEN TIFGO FINISHED,  READ IN  STOPS                    
TIFMI  ANA ADDMSK                                                               
       TNZ SAVEB1       IF  BETA IS ZERO,  THERE WAS NO ENTRY                   
MINB1  TSX NOBETA,4     CORRESPONDING  TO  IT  IN COL 1  TO 5  OF               
       TRA NOWB2        SOURCE  PROGRAM, SKIP  REST OF PROCESSING               
SAVEB1 TSX ISNONX,4     IF  BETA IS NOT EXECUTABLE, DO NOT  PUT  IN             
       TMI NOWB2        BETA TABLE                                              
       TSX MORBTS,4                                                             
NOWB2  CLA TIFGOT-1,1                                                           
       ARS 18                                                                   
       ANA ADDMSK                                                               
       TNZ SAVEB2                                                               
MINB2  TSX NOBETA,4                                                             
       TRA NOWB3                                                                
SAVEB2 TSX ISNONX,4                                                             
       TMI NOWB3                                                                
       TSX MORBTS,4                                                             
NOWB3  CLA TIFGOT-1,1                                                           
       ANA ADDMSK                                                               
       TNZ SAVEB3                                                               
MINB3  TSX NOBETA,4                                                             
       TRA ALFAD1                                                               
SAVEB3 TSX ISNONX,4                                                             
       TMI ALFAD1                                                               
       TSX MORBTS,4                                                             
ALFAD1 CLA DECTRE                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFZRO CLA TIFGOT-1,1                                                           
       ANA ADDMSK                                                               
       TNZ TIFOB                                                                
TSXTFO TSX NOBETA,4                                                             
       TRA NEXTI        KEEP TRACK OF NUMBER OF BETAS                           
TIFOB  TSX ISNONX,4                                                             
       TMI NEXTI                                                                
       TSX MORBTS,4                                                             
NEXTI  CLA TIFGOT-1,1   DO NOT PUT IN ALPHA TABLE IF                            
       PDX 0,4          ENTRY BY IRV FOR SAP INSTRUCTIONS                       
       TXH RETIF6,4,0                                                           
       CLA DECONE                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO1 STZ TRADNB                                                               
CLAJ   CLA TIFGOT-1,1   PREPARE TO READ RELATED TRAD ENTRIES                    
       PDX 0,2                                                                  
       ALS 18                                                                   
       STD TXHJ                                                                 
MORTR  CLA TRADT+250,2                                                          
       TNZ TRADX1                                                               
BTIFG1 TSX NOBETA,4                                                             
       TRA ADDJ                                                                 
TRADX1 TSX ISNONX,4     IF TRAD IS NON EXECUTABLE, MAKE ENTRY                   
       TPL ADDJ         FAIL ANY ALPHA PLUS 1 SEARCH LATER ON                   
       CLA DECONE       BY PUTING NUMBER IN DECFIELD                            
       STD TRADT+250,2  BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN              
ADDJ   CLA TRADNB                                                               
       ADD DECONE                                                               
       STO TRADNB                                                               
       TXI TXHJ,2,-1                                                            
TXHJ   TXH MORTR,2,0                                                            
       CLA TRADNB                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO2 STZ TRADNB                                                               
CLAK   CLA TIFGOT-1,1                                                           
       PDX 0,2                                                                  
       ALS 18                                                                   
       STD TXHK                                                                 
MORTRD CLA TRADT+250,2                                                          
       TNZ TRADX2                                                               
BTIFG2 TSX NOBETA,4                                                             
       TRA ADDK                                                                 
TRADX2 TSX ISNONX,4                                                             
       TPL ADDK                                                                 
       CLA DECONE                                                               
       STD TRADT+250,2                                                          
ADDK   CLA TRADNB                                                               
       ADD DECONE                                                               
       STO TRADNB                                                               
       TXI TXHK,2,-1                                                            
TXHK   TXH MORTRD,2,0                                                           
       CLA TRADNB                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO3 CLA TIFGOT-1,1                                                           
       ARS 18                                                                   
       ANA ADDMSK                                                               
       TNZ TIF3B1                                                               
B1TIF3 TSX NOBETA,4                                                             
       TRA NEXTL                                                                
TIF3B1 TSX ISNONX,4                                                             
       TMI NEXTL                                                                
       TSX MORBTS,4                                                             
NEXTL  CLA TIFGOT-1*,1                                                          
       ANA ADDMSK                                                               
       TNZ TIF3B2                                                               
B2TIF3 TSX NOBETA,4                                                             
       TRA ADDL                                                                 
TIF3B2 TSX ISNONX,4                                                             
       TMI ADDL                                                                 
       TSX MORBTS,4                                                             
ADDL   CLA DECTWO                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO4 CLA TIFGOT-1,1                                                           
       ARS 18                                                                   
       ANA ADDMSK                                                               
       TNZ TIF4B1                                                               
B1TIF4 TSX NOBETA,4                                                             
       TRA NEXTM                                                                
TIF4B1 TSX ISNONX,4                                                             
       TMI NEXTM                                                                
       TSX MORBTS,4                                                             
NEXTM  CLA TIFGOT-1,1                                                           
       ANA ADDMSK                                                               
       TNZ TIF4B2                                                               
B2TIF4 TSX NOBETA,4                                                             
       TRA ADDM                                                                 
TIF4B2 TSX ISNONX,4                                                             
       TMI ADDM                                                                 
       TSX MORBTS,4                                                             
ADDM   CLA DECTWO                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO5 CLA TIFGOT-1,1                                                           
       ARS 18                                                                   
       ANA ADDMSK                                                               
       TNZ TIF5B1                                                               
B1TIF5 TSX NOBETA,4                                                             
       TRA NEXTN                                                                
TIF5B1 TSX ISNONX,4                                                             
       TMI NEXTN                                                                
       TSX MORBTS,4                                                             
NEXTN  CLA TIFGOT-1,1                                                           
       ANA ADDMSK                                                               
       TNZ TIF5B2                                                               
B2TIF5 TSX NOBETA,4                                                             
       TRA ADDN                                                                 
TIF5B2 TSX ISNONX,4                                                             
       TMI ADDN                                                                 
       TSX MORBTS,4                                                             
ADDN   CLA DECTWO                                                               
       STD ALFA                                                                 
       TRA NXTIFG                                                               
TIFGO6 CLA TIFGOT-1,1                                                           
       ANA ADDMSK                                                               
       TNZ RETIF6                                                               
TIF6B  TSX NOBETA,4                                                             
       TRA RETIF6                                                               
STOPS  RTB 3                                                                    
       LXD ALFANB,1     LOAD NUMBER ALREADY IN ALPHA TABLE                      
CPSTOP CPY 0            READ TABLE OF STOPS INTO REST OF                        
       LXD 0,4          ALPHA TABLE, PUT DECREMENT OF                           
       TRA PDXP         TAPE TABLE INTO ADDRESS OF MEMORY                       
       TRA TIXP                                                                 
PDXP   PXD 0,4                                                                  
       ARS 18                                                                   
       STO ALPHA,1                                                              
       TXI CPSTOP,1,1                                                           
TIXP   TIX NEXTP,1,1                                                            
       LXA IR4,1                                                                
NEXTP  SXD ENDALF,1                                                             
       SXD ALFANB,1                                                             
       SXD FRETST,1                                                             
       CLA CHNONX       RESET ISNONX ROUTINE SO IT IS                           
       STA YESNOX       MERELY INFORMATIVE AND DOES NOT                         
       LXA IR4,1        MAKE ENTRIES IN ERROR TABLE                             
CLAQ   CLA ALPHA,1                                                              
QADD   TRA PAQADD                                                               
ADDQ   STZ ALFA                                                                 
       STA ALFA                                                                 
       LXA IR4,2                                                                
NXTBTA CLA BETA,2                                                               
       CAS ALFA                                                                 
       TRA NEXTQ                                                                
       TRA NXTALF                                                               
NEXTQ  TXI BETANB,2,-1                                                          
BETANB TXH NXTBTA,2,0                                                           
       CLA ALFA                                                                 
       TSX ISNONX,4     IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA              
       TMI ALAND1       TABLE FOR ALPHA +2 ETC                                  
NOTRA  TSX NOBETA,4     NOT EITHER TABLE,  PART OF PROG NOT ENTERED             
NXTALF TXI ENDALF,1,1                                                           
ENDALF TXL CLAQ,1,0                                                             
       TRA RDREC                                                                
ALAND1 CLA ALFA                                                                 
       TRA QADD                                                                 
TDO    TXL SPACES,1,0                                                           
       TIX SAVES,1,5    INITIALIZE END OF ENTRIES TEST                          
       LXA IR4,1                                                                
SAVES  SXD TXLS,1                                                               
       LXA IR4,1                                                                
CLADO  CLA TABLE,1                                                              
       ANA TAGMSK       SAVE TAG FIELD FOR PROCESSING N1,N2,N3                  
       ALS 18                                                                   
       STP DOTAG                                                                
       CLA TABLE,1      SAVE ALPHA IN CASE OF ERROR                             
       ARS 18                                                                   
       STA ALFA                                                                 
       CLA TABLE,1                                                              
       ANA ADDMSK                                                               
       TNZ BINTIF                                                               
DONOBT TSX NOBETA,4                                                             
       TRA DOALF                                                                
BINTIF LXA IR4,2        IS BETA IN DO TABLE A CONDITIONAL                       
       STO DOBETA       TRANSFER, THAT IS, IS IT IN ALPHA TABLE                 
SCLA   CLA ALPHA,2                                                              
       ANA ADDMSK       MASK OUT NUMBER OF BRANCHES                             
       CAS DOBETA                                                               
       TRA TIXS                                                                 
       TRA CONBET       THIS IS AN ERROR                                        
TIXS   TXI ALFANB,2,1                                                           
ALFANB TXL SCLA,2,0                                                             
       CLA DOBETA                                                               
       TSX ISNONX,4                                                             
       TPL DOALF        IF BETA IN TO IS NON EXECUTABLE THIS                    
DOBTNX TSX NOBETA,4                                                             
       TSX ADOB,4                                                               
DOALF  CLA ALFA                                                                 
       ANA ADDMSK       CLEAR ANY HASH LEFT FROM ERROR RECODING                 
       ADD ADDONE                                                               
       TSX ISNONX,4     IF ALPHA PLUS 1 IS NON EXECUTABLE                       
       TPL DOSYMB       THIS IS ERROR                                           
DOALNX TSX NOBETA,4                                                             
       TSX ADOB,4                                                               
DOSYMB LDQ TABLE-1,1    DOES SYMBOL CONTAIN ANY ILLEGAL                         
PUNSYM TSX CHECKA,4     PUNCTUATION                                             
       TPL IJKSYM                                                               
       TSX ADOB,4                                                               
IJKSYM TSX CHECKB,4     DOES SYMBOL BEGIN WITH IJKLM OR N                       
       TPL NL                                                                   
       TSX ADOB,4                                                               
NL     CAL DOTAG                                                                
       PBT                                                                      
       TRA N2+1         NO                                                      
       LDQ TABLE-2,1    YES                                                     
PUNN1  TSX CHECKA,4                                                             
       TPL IJKN1                                                                
       TSX ADOB,4                                                               
IJKN1  TSX CHECKB,4                                                             
       TPL N2                                                                   
       TSX ADOB,4                                                               
N2     CAL DOTAG                                                                
       ALS 1                                                                    
       PBT                                                                      
       TRA N3                                                                   
       LDQ TABLE-3,1                                                            
PUNN2  TSX CHECKA,4                                                             
       TPL IJKN2                                                                
       TSX ADOB,4                                                               
IJKN2  TSX CHECKB,4                                                             
       TPL N3                                                                   
       TSX ADOB,4                                                               
N3     CAL DOTAG                                                                
       ALS 2                                                                    
       PBT                                                                      
       TRA NXTDO                                                                
       LDQ TABLE-4,1                                                            
PUNN3  TSX CHECKA,4                                                             
       TPL IJKN3                                                                
       TSX ADOB,4                                                               
IJKN3  TSX CHECKB,4                                                             
       TPL NXTDO                                                                
       TSX ADOB,4                                                               
NXTDO  TXI TXLS,1,5                                                             
TXLS   TXL CLADO,1,0                                                            
SPACES RTB 2            SPACE OVER FORVAL                                       
       RTB 2            SPACE OVER FORVAR                                       
       RTB 2            SPACE OVER FORTAG                                       
       TRA RDREC                                                                
CONBET TSX NOBETA,4                                                             
       TSX ADOB,4                                                               
       TRA DOALF        AND TEST ALPHA                                          
FRET   TXL RDREC,1,2    GO THRO THIS TABLE FROM LAST TO FIRST                   
NEXTT  LXA IR4,2                                                                
CLAT   CLA TABLE+1,1                                                            
       TMI NEWFRT                                                               
       TXI TNEXT,2,1                                                            
TNEXT  TIX CLAT,1,1     WILL NOT FAIL BEFORE THE TMI                            
NEWFRT SXD FRETNB,2     SAVE NUMBER OF FREQUENCIES                              
       ANA ADDMSK                                                               
       STO ALFA         FREQUENCY OF BETA IS IGNORED BY                         
       TNZ BRANCH       FORTRAN IF NO CORRESPONDING BETA IN                     
       TRA NXTFRT       COLUMN 1 TO 5 OF SOURCE PROGRAM                         
BRANCH LXA IR4,4                                                                
TCLAT  CLA ALPHA,4                                                              
       ANA ADDMSK                                                               
       CAS ALFA                                                                 
       TRA TIXT                                                                 
       TRA HAVALF                                                               
TIXT   TXI FRETST,4,1                                                           
FRETST TXL TCLAT,4,0    SET AT END OF READING IN STOP TABLE                     
       TRA NXTFRT                                                               
HAVALF CLA ALPHA,4      THE ONLY TIME A FREQUENCY STATEMENT CAN                 
       ANA DECMSK       LOUSE UP THE OBJECT PROGRAM IS WHEN                     
       SUB FRETNB       THERE ARE MORE FREQUENCIES GIVEN THAN                   
       TPL NXTFRT       BRANCHES.                                               
FRETIF TSX NOBETA,4                                                             
NXTFRT TIX NEXTT,1,1                                                            
       TRA RDREC                                                                
EQUIV  CLA TABLE        FIRST WORD IN TABLE WILL BE 35 ONES                     
       SUB MSK35        IF THERE HAVE BEEN INCONSISTANT                         
       TNZ DIAGND                                                               
       LXA IR4,1                                                                
NXTEQV CLA TABLE-1,1                                                            
       SUB MSK35        LAST INCONSISTANCY IS FOLLOWED BY                       
       TZE DIAGND       ANOTHER WORD OF ONES                                    
       LDQ TABLE-1,1                                                            
NOTEQV TSX ERROR,4                                                              
       TXI NXTEQV,1,1                                                           
DIAGND CLA ERNBR                                                                
       TZE SPACE2       IF NO ERROR, READ IN SECTION II                         
       STO 24           SAVE FOR BIG D                                          
       CLA TW13         PUT RECORD NUMBER IN 2 FOR PRINT OUT                    
       STO 2                                                                    
       LXA IR4,2                                                                
DIAGRD RTD 1            SPACE OVER REST OF SYSTEM IN FORTRAN                    
       CPY 0                                                                    
       TRA DIAGRD                                                               
       TXI TST2FL,2,1                                                           
TST2FL TXL DIAGRD,2,1                                                           
       RTB 1            END FILE SKIP, START TO READ BIG D                      
       LXA IR4,1                                                                
DCPY   CPY 25,1                                                                 
       TXI DCPY,1,-1                                                            
       NOP                                                                      
BIGD   TSX 26,4                                                                 
REW    NOP              REPLACED BY SPACE2 AT 1263. WAS REWIND                  
       NOP                                                                      
       REM ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE                         
       REM WHICH HAS MISSING BETA, IN DEC OF AC AND                             
       REM ALPHA IN ADDRESS OF AC.                                              
NOBETA SXD ALFA,4                                                               
       TSX SAVALF,4                                                             
       LXD ALFA,4                                                               
       TRA 1,4                                                                  
       REM ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC             
SAVALF SXD ERAS,4                                                               
       LXD ERNBR,4                                                              
       CLA ALFA                                                                 
       STO ERLIST,4                                                             
       TXI NEXTA,4,1           SAME RETURN AS ERROR ROUTINE.                    
       REM ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA                            
       REM MAKES 2 WORD ENTRY IN ERROR LIST                                     
       REM          1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND             
       REM          2...CONTENTS OF MQ                                          
       REM EXIT AC HASH, MQ NOT CHANGED                                         
ERROR  PXD 0,4          PUT TSX FROM SECTION SCANNING                           
       LXD ERNBR,4      FOR ERROR, IN DEC OF 1ST WORD                           
       STD ERAS                                                                 
       STD ERLIST,4                                                             
       CLA IR4          PUT TSX FROM DABLE IN WHI+H                             
       ARS 18           ERROR WAS FOUND, IN ADDR. OF 1ST WORD                   
       STA ERLIST,4                                                             
       STQ ERLIST-1,4   PUT MQ IN 2ND WORD                                      
       TXI NEXTA,4,2                                                            
NEXTA  SXD ERNBR,4                                                              
       LXD ERAS,4                                                               
       TRA 1,4                                                                  
       REM ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA                
       REM FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME.  EXIT SAME, EXCEPT          
       REM WHERE MATCH IS FOUND, THEN AC HAS HASH                               
ISNONX SXD IR4,4        ERROR WILL RECORD WHICH TABLE WAS SCANNED               
       TRA PATS2                                                                
CASH   CAS NONEXT,2                                                             
       TRA NEXTH                                                                
YESNOX TRA NONEXB       THIS WILL  BE  CHANGED TO BYPASS ERROR  WHEN            
NEXTH  TXI TXLH,2,1     SCANNING BETA TABLE                                     
TXLH   TXL CASH,2,0                                                             
       TRA PATRE2                                                               
NONEXB ALS 18           ERROR, SAVE  BETA AND ALPHA IN LIST                     
       STD ALFA                                                                 
       LDQ ALFA                                                                 
TSXH   TSX ERROR,4                                                              
INFORM LXD IR4,4                                                                
       SSM              SET  RETURN TO SHOW  ERROR                              
       TRA PATRE2                                                               
       REM ENTER WITH HASH  IN AC  MQ  HAS BCD SYMBOL.  EXIT WITH  HASH IN      
       REM AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS  ONLY WHEN          
       REM ILLEGAL CHARACTER PRESENT                                            
CHECKA STQ NAME                                                                 
       SXD IR4,4                                                                
       SXD IR2,2                                                                
       SXD IR1,1                                                                
       LXD SYMBL,1      6 INTO IR1                                              
NXTNAM LXA SYMBL,2      10 INTO IR2                                             
       PXD 0,0          CLEAR AC AND COMPARE NEXT BCD                           
       LGL 6            CHARACTER WITH TABLE OF ILLEGAL SYMBOLS                 
ACAS   CAS SYMBL,2                                                              
       TRA ATIX                                                                 
       TRA WRONG                                                                
ATIX   TIX ACAS,2,1     GET NEXT ILLEGAL SYMBOL FOR COMPARISON                  
       TIX NXTNAM,1,1          GET NEXT BCD CHARACTER FOR COMPARISON            
RETNA  LXD IR4,4                                                                
       LXD IR2,2                                                                
       LXD IR1,1                                                                
       TRA 1,4                                                                  
WRONG  LDQ NAME                                                                 
CHATSX TSX ERROR,4                                                              
       SSM              SIGNAL THAT ERROR HAS BEEN PICKED UP                    
       TRA RETNA                                                                
       REM ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH          
       REM THEN MINUS                                                           
CHECKB LDQ NAME                                                                 
       SXD IR4,4                                                                
       LXA IJK,4                                                                
       PXD 0,0                                                                  
       LGL 6                                                                    
BCAS   CAS IJK,4                                                                
       TRA BTIX                                                                 
       TRA RETNB                                                                
 BTIX  TIX BCAS,4,1                                                             
       LDQ NAME                                                                 
CHBTSX TSX ERROR,4                                                              
       SSM                                                                      
RETNB  LXD IR4,4                                                                
       TRA 1,4                                                                  
       REM ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0,        
       REM 3,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY         
       REM IN BETA TABLE. EXIT  WITH SAME.                                      
MORBTS SXD ERAS,4                                                               
       LXD BETANB,4                                                             
STOBET STO BETA,4                                                               
       TXI STBET,4,-1                                                           
STBET  SXD BETANB,4                                                             
       SXD BETANB,4                                                             
       LXD ERAS,4                                                               
       TRA 1,4                                                                  
ADOB   SXD ERAS,4                                                               
       LXD ERNBR,4                                                              
       CLA TABLE,1                                                              
       STO ERLIST,4                                                             
       CLA TABLE-1,1                                                            
       STO ERLIST-1,4                                                           
       TXI NEXTA,4,2                                                            
 IR1   HTR                                                                      
 IR2   HTR 2                                                                    
 IR4   HTR 0                                                                    
ADDONE HTR 1                                                                    
DECONE HTR 0,0,1                                                                
DECTWO HTR 0,0,2                                                                
DECTRE HTR 0,0,3                                                                
ADDMSK OCT 000000077777                                                         
TAGMSK OCT 000000700000                                                         
DECMSK OCT 077777000000                                                         
MSK35  OCT 377777777777                                                         
ADTABL CPY TABLE,1                                                              
ADTIFG HTR TIFGOT                                                               
ADTRAD CPY TRADT,4                                                              
CPTRAD HTR COPYAA                                                               
CHNONX HTR INFORM                                                               
ALFA                                                                            
TW13   HTR 213                                                                  
TRADNB                                                                          
ERNBR                                                                           
IDENT                                                                           
WDCONT                                                                          
NAME                                                                            
ERAS                                                                            
XERAS                                                                           
BST                            STORE NUMBER OF TIMES WORD COUNT WRONG           
BSTA                           DITTO IDENTIFICATION                             
DOTAG                                                                           
DOBETA                                                                          
 NOP   NOP                                                                      
FRETNB                                                                          
       BCD 100000I                                                              
       BCD 100000K                                                              
       BCD 100000J                                                              
       BCD 100000L                                                              
       BCD 100000M                                                              
       BCD 100000N                                                              
 IJK   HTR 6,0,0                                                                
       BCD 100000+                                                              
       OCT 000000000014        OTHER MINUS SIGN                                 
       BCD 100000                                                               
       BCD 100000/                                                              
       BCD 100000$                                                              
       BCD 100000(                                                              
       BCD 100000)                                                              
       BCD 100000=                                                              
       BCD 100000,                                                              
       BCD 100000.                                                              
       BCD 100000*                                                              
 SYMBL HTR 11,0,6                                                               
AFTRSZ HTR IDNTFY                                                               
       OCT 000000000013                                                         
       HTR SUBARG                                                               
       OCT 000000000014                                                         
       HTR UPPER                                                                
       OCT 000000000000                                                         
       HTR TEIFNO                                                               
       OCT 000000000002                                                         
       HTR TIFGO                                                                
       OCT 000000000003                                                         
       HTR TRAD                                                                 
       OCT 000000000001                                                         
       HTR TDO                                                                  
       OCT 000000000007                                                         
       HTR FRET                                                                 
       OCT 000000000010                                                         
       HTR EQUIV                                                                
TAPTAB HTR 16                                                                   
 PTCH  TIX SZW,1,1        SIZ TABLE HAS CHECK SUM ENTRY NOT                     
  SZW  PXD 0,1            NOT INCLUDED IN WORD COUNT                            
       ARS 18                                                                   
       TRA SUBWDS                                                               
 PATIF CLA ADTABL                                                               
       STO COPY                                                                 
       TRA NOTIFG                                                               
SPACE2 RTB 2                                                                    
       RTB 2                                                                    
       IOD                                                                      
       RTT                                                                      
       NOP                                                                      
       TRA 4                                                                    
PAQADD TZE NXTALF                                                               
       ADD ADDONE                                                               
       TRA ADDQ                                                                 
PATS2  SXD PATERA,2                                                             
       LXA IR4,2                                                                
       TRA CASH                                                                 
PATRE2 LXD PATERA,2                                                             
       TRA 1,4                                                                  
PATERA                                                                          
       END                                                                      
       REM        BLOCK ONE OF SECTION TWO.                                                             
       REM BLOCK ONE OF SECTION TWO.                                            
       REM    MASTER RECORD CARD = FN027                                F2100000
       REM BLOCK ONE OF SECTION TWO PERFORMS THE                        F2100001
       REM PRELIMINARY DO NEST STRUCTURE ANALYSIS                       F2100002
       REM REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS               F2100003
       REM LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY.                  F2100004
       REM TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED      F2100005
       REM INTO TABLE TRALEV. IF THERE IS A VARIABLE                    F2100006
       REM PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION            F2100007
       REM IS ASSIGNED.                                                 F2100008
       REM FINALLY, A SEARCH IS MADE T0 DETERMINE                       F2100009
       REM WHETHER A DO INDEX COUNTER IS                                F2100010
       REM NECESSARY T0 KEEP CURRENT THE VALUES                         F2100011
       REM OF THE DO INDEX.                                             F2100012
       ORG 25                                                           F2100015
DOTAG  BSS 1                                                            F2100017
       BSS 1349                                                         F2100020
DOTAGZ BSS 1                                                            F2100030
TIFGO  BSS 1                                                            F2100040
       BSS 599                                                          F2100050
TIFZ   BSS 1                                                            F2100060
TRAD   BSS 1                                                            F2100070
       BSS 249                                                          F2100080
TRADZ  BSS 1                                                            F2100090
TRALEV BSS 1                                                            F2100100
       BSS 599                                                          F2100110
TLTZ   BSS 1                                                            F2100120
       ORG 1376                                                         F2100130
FORVAL BSS 1                                                            F2100140
       BSS 999                                                          F2100150
4VALZ  BSS 1                                                            F2100160
       ORG 1376                                                         F2100170
FORVAR BSS 1                                                            F2100180
       BSS 1499                                                         F2100190
4VARZ  BSS 1                                                            F2100200
       ORG 476                                                          F2100210
FORTAG BSS 1                                                            F2100211
       BSS 1499                                                         F2100230
FORTZ  BSS 1                                                            F2100240
       REM PROGRAM C ONSTANTS                                           F2100250
       ORG 2876                                                         F2100260
L(0)       0,0,0                                                        F2100270
L(1)       0,0,1                                                        F2100280
L(2)       0,0,2                                                        F2100290
L(3)       0,0,3                                                        F2100300
L(4)       0,0,4                                                        F2100310
L(5)       0,0,5                                                        F2100320
L(6)       0,0,6                                                        F2100330
L(9)       0,0,9                                                        F2100340
L(600)     0,0,600                                                      F2100350
L(1000     0,0,1000                                                     F2100360
L(1350     0,0,1350                                                     F2100370
L(1500     0,0,1500                                                     F2100380
L(MZ)  MZE                                                              F2100390
BITONE OCT 200000000000                                                 F2100400
BITTWO OCT 100000000000                                                 F2100410
DECADD OCT 77777077777                                                  F2100420
DECMSK OCT 77777000000                                                  F2100430
TAGMSK OCT 700000                                                       F2100440
ADDMSK OCT 77777                                                        F2100450
NCMSK  OCT -377777477777                                                F2100460
CR1    OCT 100000                                                       F2100470
CR2    OCT 200000                                                       F2100480
       REM BEGIN BLO CK ONE.                                            F2100490
TAP00  REW 148                                                          F2100500
       REW 147                                                          F2100510
       RTT                                                              F2100520
       NOP                                                              F2100530
       BST TTAPE                     POSITION TAPE TWO                  F2100540
       LXD L(9),1                    FOR READING IN TAPE                F2100550
TAP10  BST TTAPE                     TABLES                             F2100560
       TIX TAP10,1,1                                                    F2100570
       PSE 96                        ALL LIGHTS OFF                     F2100580
       PSE 98                        TRALEV LIGHT 98 ON                 F2100590
       LXD L(2),2                    READ                               F2100600
       CLA TIFAD                     IN                                 F2100610
       TSX RTAPE,4                   TIEFGO                             F2100620
       SXD TIFGO-1,1                 SAVE NEXT UNUSED INDEX             F2100630
       LXD L(3),2                    READ                               F2100640
       CLA TRADAD                    IN                                 F2100650
       TSX RTAPE,4                   TRAD                               F2100660
       SXD TRAD-1,1                  SAVE NEXT UNUSED INDEX             F2100670
       LXD L(1),2                    READ                               F2100680
       CLA DOAD                      IN                                 F2100690
       TSX RTAPE,4                   TDO WITH DOTAG FORMAT              F2100700
       SXD DOTAG-1,1                 SAVE NEXT UNUSED INDEX             F2100710
       TXL MR00,1,1349               TEST FOR EMPTY DOTAG               F2100720
       PSE 99                        DOTAG EMPTY                        F2100730
       TRA TS4VAL                                                       F2100740
       REM MR00 COMPUTES LEVEL, X, CARRY BITS.                          F2100750
MR00   LXD DOTAG-1,1                 INITIALIZE TEST                    F2100760
       SXD MR70,1                    INSTRUCTION.                       F2100770
       LXD L(1350,1                  INITIALIZE XRA TO MAX DOTAG.       F2100780
MR05   CLA L(1)                      INITIALIZE LEVEL TO ONE            F2100790
MR10   PDX 0,2                       PUT LEVEL IN XRB                   F2100800
       STO DOTAGZ+5,1                STORE LEVEL IN L WORD              F2100810
       CLA DOTAGZ,1                  INSPECT TAG OF FIRST WORD)         F2100820
       SXD MR14,4                                                       F2100830
       PAX 0,4                                                          F2100840
       STD MR12                                                         F2100850
MR12   TXH MR15,4                                                       F2100860
       TRA ERBETA            BETA LESS THAN OR EQUAL TO ALPHA           F2100871
MR14   HTR                                                              F2100880
MR15   LXD MR14,4                                                       F2100890
       ANA TAGMSK                    IF ZERO( TRA TO MR20)              F2100900
       TZE MR20                      IF NOT ZERO( PUT BIT               F2100910
       CLA BITTWO                    IN L WORD FOR X NOT                F2100920
       ORS DOTAGZ+5,1                COMPUTABLE AND GO TO               F2100930
       TRA MR60                      END.                               F2100940
MR20   CLA DOTAGZ+3,1                COMPUTE X AND STORE IN             F2100950
       SUB DOTAGZ+2,1                L WORD                             F2100960
       ADD DOTAGZ+4,1                                                   F2100970
       LRS 35                                                           F2100980
       DVH DOTAGZ+4,1                                                   F2100990
       MPY DOTAGZ+4,1                                                   F2101000
       LLS 35                                                           F2101010
       STA DOTAGZ+5,1                                                   F2101020
       TXL MR60,2,1                  IF L IS ONE( SKIP CARRY TEST)      F2101030
       CLA DOTAGZ,4                  OBTAIN NEXT BACK.SUBNEST           F2101040
       ARS 15                        DO( FIRST WORD. IN-SPECT TAG       F2101050
       LBT                           FOR VARIABLE N3) IF NOT.           F2101060
       TRA MR30                      0) VARIABLE( CONTINUE-WITH MR30,   F2101070
       TRA MR60                      1) OTHERWISE GO TO END.            F2101080
MR30   CLA DOTAGZ,4                  OBTAIN FIRST WORD OF NEXT          F2101090
       ANA DECADD                    BACK SUBNEST DO, REMOVE            F2101100
       ADD L(1)                      TAG, AND ADD ONE TO ALPHA.         F2101110
       SUB DOTAGZ,1                  SUB FIRST WORD CURRENT DO.         F2101120
       TNZ MR40                      (TAG IS ZERO). IF RESULT IS        F2101130
       CLA CR1                       ZERO, CARRY IS TYPE ONE,           F2101140
       TRA MR50                      IF NOT ZERO, CARRY IS TYPE         F2101150
MR40   CLA CR2                       TWO. INDICATE TYPE IN              F2101160
MR50   ORS DOTAGZ+5,1                L WORD OF CURRENT DA.              F2101170
MR60   PXD 0,1                       MAKE CURRENT.DO NEXT BACK          F2101180
       PDX 0,4                       SUBNEST DO.                        F2101190
       TXI MR70,1,-9                 TAKE NEXT DO IN DOTAG.             F2101200
MR70   TXL ERTST,1,0          NO MORE DOS, EXIT TO TEST IF ERRORS       F2101211
       CLA DOTAGZ,1                  OBTAIN FIRST WORD NEW DO.          F2101220
       ANA ADDMSK                    OBTAIN BETA                        F2101230
       STO MRES                      AND SAVE                           F2101240
MR75   CLA DOTAGZ,4                  OBTAIN BETA OF XRC DO,             F2101250
       ANA ADDMSK                    AND SUBTRCT NEW BETA..             F2101260
       STO MRES1                                                        F2101270
       SUB MRES                      IF NOT NEGATIVE, XRC DD            F2101280
       TMI MR80                      CONTAINS NEW DO. OTHERWISE, TRA    F2101290
       CLA DOTAGZ+5,4                XRC DO CONTAINS NEW DO,            F2101300
       ANA DECMSK                    OBTAIN LEVEL OF XRC DO,            F2101310
       ADD L(1)                      ADD ONE, STORE IN L.               F2101320
       TRA MR10                      GO TO MR10                         F2101330
MR80   CLA DOTAGZ,1                                                     F2101340
       ANA DECMSK                                                       F2101350
       ARS 18                                                           F2101360
       CAS MRES1                                                        F2101370
       TRA MR85                      ALPHA(XRA) GREATER THAN BETA(XRC)  F2101380
       TRA ERLIST             EQUALITY                                  F2101391
       TRA ERLIST            LESS THAN                                  F2101401
MR85   CLA DOTAGZ+5,4                                                   F2101410
       PDX 0,2                       NEWDO. IF XRL DO IS OF             F2101420
       TXL MR05,2,1                  LEVEL ONE, START NEW NEST          F2101430
       TXI MR75,4,9                  BY TRA TO MR05. ELSE TRA MR75,     F2101440
MRES   HTR                           ES                                 F2101450
MRES1  HTR                                                              F2101460
       REM FLOW, TRANSFER ANALYS1S,                                     F2101470
FLOW   LXD TIFGO-1,4                 TEST FOR EMPTY TIFGO               F2101480
       TXH SV00,4,599                                                   F2101490
       LXD DOTAG-1,1                 INITIALIZE                         F2101500
       SXD FLO30,1                   TEST                               F2101510
       SXD FLO60,4                   INSTRUCTIONS                       F2101520
       SXD ADL60,1                                                      F2101530
       SXD INC40,1                                                      F2101540
       SXD RNC70,1                                                      F2101550
       LXA TLT50,1                   INITIALIZE TRALEV                  F2101560
       SXD TLT50,1                   INDEX VALUE                        F2101570
FLO10  LXD L(600),4                  INIT1ALIZE                         F2101580
       SXD TIFX,4                    CURRENT TIFGO INDEX                F2101590
       LXD L(1350,1                  INITIALIZE XRA, DOTAG INDEX        F2101600
FLO15  CLA DOTAGZ+5,1                OBTAIN LEVEL OF DO                 F2101610
       PDX 0,2                       AND                                F2101620
       TXL FLO40,2,1                 TRA IF LEVEL ONE. IF NOT           F2101630
FLO20  TXI FLO30,1,-9                LEVEL ONE, FIND NEXT               F2101640
FLO30  TXH FLO15,1                   LEVEL ONE, IF ANY.                 F2101650
       TRA FLOEND                                                       F2101660
FLO40  SXD BNX,1                     SAVE BEGINNING 0O NEST INDEX.      F2101670
       CLA DOTAGZ,1                  INITIALIZE                         F2101680
       PAX 0,2                       BEGINNING OF NEST                  F2101690
       ANA DECMSK                    AND                                F2101700
       STO BNA                       END OF NEST                        F2101710
       PXD 0,2                       ADDRESSES                          F2101720
       STO ENA                                                          F2101730
       LXD TIFX,4                    OBTAIN CURRENT T1FGO INDEX         F2101740
FLO50  CLA TIFZ,4                    AND SEARCH FOR TIFGO               F2101750
       ANA DECMSK                    ENTRY IN NEST.                     F2101760
       CAS BNA                       COMPARE WITH BNA                   F2101770
       TRA FLO70                     GREATER THAN OR EQUAL TO           F2101780
       TSX DIAG,4  BNA, MAY BE IN NEST.        ERROR. GO TO DIAGNOSTIC. F2101795
FLO55  TXI FLO60,4,-2                LESS THAN BNA, GO BACK             F2101800
FLO60  TXH FLO50,4                   FOR NEXT TIFGO ENTRY,              F2101810
       TRA FLOEND                    IF ANY. IF NONE, EXIT              F2101820
FLO65  LXD BNX,1                                                        F2101830
       TRA FLO20                                                        F2101840
FLO70  SXD TIFX,4                    SAVE CURRENT TIFGO INDEX           F2101850
       CAS ENA                       COMPARE G AND ENA                  F2101860
       TRA FLO65                     G GREATER, GO BACK FOR NEXT NEST.  F2101870
       NOP                           G EQUAL TO                         F2101880
       STO G                         OR LESS THAN G, SAVE G.            F2101890
       CLA TIFZ,4                    TEST FOR THREE ADDRESS IF.         F2101900
       TMI FLO75                     USE ADDRESS TO DETERMINE           F2101910
       PAX 0,2                       WHETHER OR NOT THIS IS AN          F2101920
       TXL FLO75,2,5                 ASSIGN FORMULA. IF IT IS,          F2101930
       TXL FLO55,2,6                 IGNORE, TAKE NEXT TIFGO ENTRY      F2101940
       TXL FLO75,2,7                 TEST FOR ADD. GREATER THAN         F2101950
       TSX DIAG,4  SEVEN.                      ERROr. GO TO DIAGN0STIC. F2101965
FLO75  CLA G                         OBTAIN G                           F2101970
       LXD BNX,1                     OBTAIN CURRENT NEST INDEX          F2101980
       TSX ADLOC,4                   OBTAIN XDG AND LDG                 F2101990
       CLA BITONE                    PUT BIT IN DOTAG FOR TRA           F2102000
       ORS DOTAGZ+6,1                IN IMMEDIATE RANGE.                F2102010
       PXD 0,1                       SAVE                               F2102020
       STO XDG                       XDG                                F2102030
       PXD 0,2                       AND                                F2102040
       STO LDG                       LDG                                F2102050
       CLS G                         LIST MINUS G                       F2102060
       TSX TLT00,4                   IN TRALEV BUFFER.                  F2102070
       LXD TIFX,4                    OBTAIN FIRST WORD OF               F2102080
       CLA TIFZ,4                    TIFGO ENTRY                        F2102090
       TMI 3ADIF                     TRA IF 3ADIF                       F2102100
       PAX 0,2                       PUT ADDRESS IN XRB                 F2102110
FLO80  TRA FLO80+8,2                 INDEXED TRA,                       F2102120
       TSX DIAG,4  7, R0YS TRA.                ERROR, GO TO DIAGNOSTIC. F2102135
       TSX DIAG,4  6, ASSIGN FORMULA           ERROR. GO TO DIAGNOSTIC. F2102145
       TRA 2ADIF                     5, 2 ADDRESS TYPE                  F2102150
       TRA 2ADIF                     4, 2 ADIF                          F2102160
       TRA 2ADIF                     3, 2ADIF                           F2102170
       TRA GOTOVN                    2 VECTOR TYPE TRA                  F2102180
       TRA GOTOVN                    1 GO TO N (ASSIGN)                 F2102190
       TRA GOTOK                     0 GO TO CONSTANT                   F2102200
FLO90  LXD TIFX,4                    GO BACK FOR NEXT                   F2102210
       TXI FLO60,4,-2                TIFGO ENTRY,                       F2102220
FLOEND LXD TLT50,1                   TEST IF ANY TRALEV ENTRIES         F2102230
       TXH SV00,1,599                                                   F2102240
       TSX TLT20,4                   IF SO, GO TO WRITE ROUTINE         F2102250
       TRA SV00                                                         F2102260
       REM CONTROL ROUTINES                                             F2102270
3ADIF  ANA ADDMSK                    THE FOLLOWING ROUTINES             F2102280
       ALS 18                        ARRANGE TO PROCESS ALL OF          F2102290
       TSX FA000,4                   THE ADDRESSES ASSOCIATED           F2102300
       LXD TIFX,4                    WITH THE TIFGO ENTRY,              F2102310
2ADIF  CLA TIFZ+1,4                  ONE AT A TIME.                     F2102320
       ANA DECMSK                    WHEN ALL ADDRESSES                 F2102330
       TSX FA000,4                   ARE PR0CESSED,                     F2102340
       LXD TIFX,4                    CONTR0L IS RETURED TO              F2102350
GOTOK  CLA TIFZ+1,4                  FLO90 FOR NEXT                     F2102360
       ANA ADDMSK                    TIFGO ENTRY.                       F2102370
       ALS 18                                                           F2102380
       TSX FA000,4                                                      F2102390
       TRA FLO90                                                        F2102400
GOTOVN CLA TIFZ+1,4                  FOR GOTOV TRANSFERS,               F2102410
       PAX 0,4                       USE WORD TWO                       F2102420
       SXD GTV20,4                   FOR INDEXING                       F2102430
       PDX 0,4                       VALUES NECESSARY                   F2102440
       TRA GTV20                                                        F2102450
GTV10  CLA TRADZ,4                   TO GET ADDRESSES                   F2102460
       ALS 18                        FR0M TABLE TRAD.                   F2102470
       SXD GTV30,4                   FOR GOTON (ASSIGN) TYPE            F2102480
       TSX FA000,4                   TRANSFERS, ALL ADDRESSES           F2102490
       LXD GTV30,4                   MUST BE PROCESSED EVEN             F2102500
       TXI GTV20,4,-1                THOUGH THEY ARE ON SAME            F2102510
GTV20  TXH GTV10,4                   LEVEL BECAUSE OF                   F2102520
GTV30  TXL FLO90,0                   CARRY RESTRICTIONS.                F2102530
       REM ANALYSIS OF ADDRESS                                          F2102540
FA000  SXD RS60,4                    SAVE TSX SET                       F2102550
       STO A                         SAVE ADDRESS                       F2102560
       LXD BNX,1                     OBTAIN                             F2102570
       TSX ADLOC,4                   INDEX OF DO CONTAINING             F2102580
       PXD 0,1                       ADDRESS AND LEVEL OF               F2102590
       STO XDA                       THAT DO.                           F2102600
       PXD 0,2                       SAVE IN                            F2102610
       STO LDA                       XDA AND LDA.                       F2102620
       TXL FA010,2,20                TEST LEVEL                         F2102630
       TSX DIAG,4  LEV. ADD OF TRA EXCEEDS 20. ERROr. GO TO DIAGNOSTIC. F2102645
FA010  ARS 18                                                           F2102650
       STA FA020                     TRANSFER                           F2102660
       CAL L(MZ)                     LEVEL IN                           F2102670
       LXD XDG,1                     XDG DO.                            F2102680
FA020  ARS                                                              F2102690
       ORS DOTAGZ+7,1                                                   F2102700
       CLA LDA                       LIST                               F2102710
       ARS 18                        ADDRESS AND LEVEL                  F2102720
       ADD A                         IN                                 F2102730
       TSX TLT00,4                   TLT. CONTINUE WITH RS00            F2102740
       REM TRANSFER BIT INSERTION IN DO FORMULA                         F2102750
RS00   LXD XDG,1                     XRA CONTAINS XDG                   F2102760
       LXD LDG,2                     XRB CONTAINS LDG                   F2102770
RS10   PXD 0,2                       IF G AND A IN SAME DO,             F2102780
       SUB LDA                       EXIT. THIS ROUTINE INSERTS         F2102790
       TZE INC00                     BIT MEANING THERE IS A JUMP        F2102800
       TPL RS20                      OUT OF THE RANGE OF THIS DO.       F2102810
       TSX DIAG,4  JUMP INTO HIGHER LEVEL.     ERROr. GO TO DIAGNOSTIC. F2102825
RS20   CAL L(MZ)                                                        F2102830
       ORS DOTAGZ+5,1                                                   F2102840
       TXL INC00,2,1                 FIND NEXT BACK SUBNEST             F2102850
RS30   TXI RS40,1,9                  DO FORMULA                         F2102860
RS40   CLA DOTAGZ+5,1                AND RETURN                         F2102870
       STD RS50                      TO TEST                            F2102880
RS50   TXL RS30,2                    LEVEL                              F2102890
       PDX 0,2                       AT                                 F2102900
RS60   TXL RS10,0                    RS10                               F2102910
       REM INDEXING NO CARRY CONDITION                                  F2102920
INC00  CLA LDA                       EXIT IF                            F2102930
       TZE RNC00                     LDA IS ZERO.                       F2102940
       CLA G                         PLACE G ANDA                       F2102950
       LDQ A                         IN                                 F2102960
       TLQ INC20                     INCX AND INCY SO THAT              F2102970
       STO INCX                      INCX IS LESS THAN INCY.            F2102980
       STQ INCY                                                         F2102990
       TRA INC30                                                        F2103000
INC20  STQ INCX                                                         F2103010
       STO INCY                                                         F2103020
INC30  LXD XDA,1                     INITIALIZE XRA                     F2103030
INC35  TXI INC40,1,-9                FIND DO OF LEVEL LDA               F2103040
INC40  TXL RNC00,1                   PLUS ONE.                          F2103050
       CLA DOTAGZ+5,1                                                   F2103060
       ANA DECMSK                                                       F2103070
       SUB LDA                                                          F2103080
       SUB L(1)                                                         F2103090
       TZE INC50                     DO OF LEVEL LDA PLUS ONE FOUND.    F2103100
       TPL INC35                     LEVEL TO HIGH, GO BACK.            F2103110
       TRA RNC00                     LEVEL TO LOW, DA EXHAUSTED.        F2103120
INC50  CLA DOTAGZ,1                  OBTAIN BETA OF                     F2103130
       PAX 0,2                       THIS DO IN DECREMENT.              F2103140
       PXD 0,2                                                          F2103150
       CAS INCY                      COMPARE WITH INCY.                 F2103160
       TRA RNC00                     GREATER THAN OR EQUAL TO           F2103170
       TRA RNC00                     GREATEST OF G, A, EXIT.            F2103180
       CAS INCX                      LESS THAN INCY, COMPARE            F2103190
       TRA INC60                     WITH INCX. GREATER THAN            F2103200
       TRA INC60                     OR EQUAL TO INCX, GO TO INC60.     F2103210
       TRA INC35                     LESS THAN INCX, GET NEXT DO.       F2103220
INC60  CAL NCMSK                     AND OUT CARRY BITS.                F2103230
       ANS DOTAGZ+5,1                                                   F2103240
       TRA INC35                     GO BACK FOR NEXT DO.               F2103250
INCX   HTR                           ES.                                F2103260
INCY   HTR                           ES.                                F2103270
       REM RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL            F2103280
RNC00  CLA LDA                       EXIT IF LDA IS ZERO                F2103290
       TZE RNC95                                                        F2103300
       CLA LDG                       EXIT IF                            F2103310
       SUB LDA                       LDA EQUALS                         F2103320
       TZE RNC95                     LDG                                F2103330
       PDX 0,4                       INITIALIZE COUNTER XR6             F2103340
       LXD XDG,1                     INITIALIZE XRA                     F2103350
       CLA LDG                       AND                                F2103360
       PDX 0,2                       XRB. C(ACC) LDG.                   F2103370
       TXI RNC50,2,1                 C(XRB) LDG PLUS ONE.               F2103380
RNC20  TXI RNC30,1,9                 FIND NEXT BACKS                    F2103390
RNC30  TXH RNC95,1,1350              SUBNESTDO.                         F2103400
       CLA DOTAGZ+5,1                                                   F2103410
       STD RNC40                                                        F2103420
RNC40  TXL RNC20,2                                                      F2103430
RNC50  SXD RNC75,1                   SAVE XRA                           F2103440
       STD RNC85                     SAVE LEVEL OF THIS DO              F2103450
       PXD 0,2                       SAVE LEVEL OF NEXT INNER           F2103460
       STO RNC90                     SUBNEST DO.                        F2103470
RNC60  TXI RNC70,1,-9                TAKE NEXT DOWN DO IF ANY.          F2103480
RNC70  TXL RNC80,1                                                      F2103490
       CLA DOTAGZ,1                  IF BETA                            F2103500
       ANA ADDMSK                    OF THIS DO                         F2103510
       ALS 18                        IS LESS                            F2103520
       SUB G                         THAN G,                            F2103530
       TPL RNC80                     TEST LEVEL                         F2103540
       CLA DOTAGZ+5,1                TO SEE IF                          F2103550
       ANA DECMSK                    THIS DO IS OF SAME                 F2103560
       SUB RNC90                     LEVEL AS NEXT INNERMOST            F2103570
       TNZ RNC60                     SUBNEST DO. IF NOT, GET NEXT DO.   F2103580
       CLA DOTAGZ+6,1                IF SO, MAKE NO CARRY               F2103590
       ANA DECMSK                    TRANSFER LEVEL OF THIS             F2103600
       SUB LDA                       DO EQUAL TO GREATER                F2103610
       TPL RNC60                     OF PREVIOUS VALUE                  F2103620
       CLA LDA                       AND CURRENT LDA.                   F2103630
       STD DOTAGZ+6,1                                                   F2103640
RNC75  TXL RNC60,0                   GO BACK FOR NEXT TEST DO           F2103650
RNC80  LXD RNC75,1                   GO BACK FOR NEXT SUBNEST DO,       F2103660
       LXD RNC85,2                   IF COUNTER PERMITS.                F2103670
       TIX RNC20,4,1                 OTHERWISE, EXIT.                   F2103680
RNC85  TXL RNC95,0                                                      F2103690
RNC90  HTR                           ES                                 F2103700
RNC95  LXD RS60,4                    GO BACK TO CONTROL ROUTINE         F2103710
       TRA 1,4                       FOR NEXT ADDRESS.                  F2103720
       REM INDEX AND LEVEL OF ADDRESS                                   F2103730
ADLOC  SXD ADL20,4                   SAVE TSX SET                       F2103740
       LXD L(0),4                    INITIALIZE XRC,                    F2103750
       SXD ADL30,4                   AND DEC OF ADL30, PUT ADDRESS      F2103760
       STO ADL90                     IN ADL90. XRA CONTAINS BNX         F2103770
ADL10  CLA DOTAGZ,1                  OBTAIN FIRST WORD.                 F2103780
       PAX 0,2                       SAVE BETA                          F2103790
       ANA DECMSK                    GET ALPHA ALONE.                   F2103800
       CAS ADL90                     COMPARE WITH ADDRESS. IF           F2103810
ADL20  TXL ADL70,0                   ALPHA NOT LESS THAN ADD, THEN      F2103820
ADL30  TXL ADL70,0                   ADD IN LAST CHOOSEN DO.            F2103830
       PXD 0,2                       IF ALPHA LESS THAN ADD,            F2103840
       CAS ADL90                     COMPARE WITH BETA.                 F2103850
       NOP                           IF BETA IS NOT LESS THAN           F2103860
       TRA ADL40                     ADDRESS, THIS DO CONTAINS          F2103870
       TXH ADL50,4,0                 ADDRESS. EXIT IF OUT OF NEST       F2103880
       TRA ADL70                     TO ADL 70. OTHERWISE, GO TO 30     F2103890
ADL40  SXD ADL30,1                   IF DO IN THIS NEST, SXD.           F2103900
ADL50  TXI ADL60,1,-9                IN ANY CASE, TAKE NEXT DOWN        F2103910
ADL60  TXL ADL70,1                   DO, IF ANY,                        F2103920
       CLA DOTAGZ+5,1                PUT LEVEL IN XRC.                  F2103930
       PDX 0,4                       AND GO BACK FOR TEST               F2103940
       TXH ADL10,4,1                 UNLESS NGW DO HAS LEVEL ONE.       F2103950
ADL70  LXD ADL30,3                   OBTAIN XDA IN XRA, XRB.            F2103960
       TXL ADL80,1,0                 EXIT IF ZERO.                      F2103970
       CLA DOTAGZ+5,1                IF NOT ZERO, GET LDA IN            F2103980
       PDX 0,2                       XRB, PUT                           F2103990
ADL80  LXD ADL20,4                   TSX SET IN XRC                     F2104000
       TRA 1,4                       AND RETURN.                        F2104010
ADL90  HTR                                                              F2104020
       REM TRALEV LISTING                                               F2104030
TLT00  LXD TLT50,1                   OBTAIN CURRENT TRALEV              F2104040
       STO TLTZ,1                    INDEX. STORE ENTRY.                F2104030
       TXI TLT10,1,-1                IF TABLE NOW FULL, GO TO           F2104060
TLT10  SXD TLT50,1                   TAPE WRITING ROUTINE.              F2104070
       TXL TLT20,1,0                 OTHERWISE, SAVE NEW INDEX          F2104080
       TRA 1,4                       AND RETURN.                        F2104090
TLT20  WRS TLTAPE                    SELECT TAPE TO WRITE AWAY          F2104100
       LXD TLT50,1                   BUFFER. INITIALIZE XRA             F2104110
       SXD TLT40,1                   AND TEST INSTR.                    F2104120
       MSE 98                        TURN OFF TRALEV TAPE EMPTY         F2104130
       NOP                           LIGHT                              F2104140
       LXA TLT50,1                   RE-INITIALIZE INDEX QUANTITIES     F2104150
       SXD TLT50,1                                                      F2104160
TLT30  CPY TLTZ,1                    COPY BUFFER.                       F2104170
       TXI TLT40,1,-1                                                   F2104180
TLT40  TXH TLT30,1                                                      F2104190
       TRA 1,4                       RETURN.                            F2104200
TLT50  HTR 600                       BUFFER SIZE                        F2104210
       REM ES FORFLOW                                                   F2104220
BNX    BSS 1                         BEGINNING OF NEST INDEX            F2104230
BNA    BSS 1                         BEGINNING OF NEST ADDRESS          F2104240
ENA    BSS 1                         END OF NEST ADDRESS                F2104250
G      BSS 1                         GAMMA OF SOME TIFGO ENTRY          F2104260
XDG    BSS 1                         INDEX OF DO WITH G IN IMMED.       F2104270
LDG    BSS 1                         RANGE. LEVEL OF XDG.               F2104280
A      BSS 1                         AN ADDRESS TO WHICH G TRANSFERS.   F2104290
XDA    BSS 1                         1NDEX OF DO WITH A IN IMMED.       F2104300
LDA    BSS 1                         RANGE. LEVEL OF XDA.               F2104310
TIFX   BSS 1                         CURRENT TIFGO INDEX.               F2104320
       REM DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS       F2104330
SV00   LXD DOTAG-1,1                                                    F2104340
       SXD SV80,1                                                       F2104350
       SXD SV95,1                                                       F2104360
       SXD TRA40,1                                                      F2104370
       LXD L(1350,1                  INITIALIZE XRA                     F2104380
       SXD SV44,1                    SAVE CURRENT DO INDEX              F2104390
SV10   SXD SV98,1                    SAVE NEST INDEX                    F2104400
SV20   CLA DOTAGZ,1                  OBTAIN FIRST WORD CURRENT          F2104410
       ANA TAGMSK                    DO AND INSPECT TAG                 F2104420
       TZE SV90                      IF ZERO, GO TO INDEXING            F2104430
       LXD SV98,4                    OTHERWISE, NEST INDEX IN XRC       F2104440
SV30   CLA DOTAGZ+1,4                OBTAIN SYM OF XRC,                 F2104450
       LXD L(3),2                    INITIALIZE XRB COUNTER             F2104460
SV40   CAS DOTAGZ+4,1                AND TEST FOR SYM EQUALS VAR.N.     F2104470
SV44   TXL SV50,0                    CURRENT DO INDEX STORAGE.          F2104480
SV48   TXL SF00,0                    INDEX STO  OF N IN CUR. DO         F2104490
SV50   TXI SV60,1,1                  TAKE NEXT.N, COUNT                 F2104500
SV60   TIX SV40,2,1                  IN XRB AND GO BACK.                F2104510
SV65   LXD SV44,1                    SYM NOT VAR.N., PUT CURRENT        F2104520
SV70   TXI SV80,4,-9                 DO INDEX IN XRA AND INDEX          F2104530
SV80   TXL SV90,4                    XRC. IF TABLE ENDS, GO70 SU90.     F2104540
       CLA DOTAGZ+5,4                OTHERWISE TEST FOR,NEW NEST,       F2104550
       PDX 0,2                       IF NOT NEW NEST, GO BACK TO.       F2104560
       TXH SV30,2,1                  TEST SYM. OTHERWISE.               F2104570
SV90   TXI SV95,1,-9                 TAKE NEXT DOWN DO                  F2104580
SV95   TXL TS4VAL,1                  POSSIBLE. OTHERWISE, EXIT          F2104590
       SXD SV44,1                    SAVE CURRENT DO INDEX.             F2104600
       CLA DOTAGZ+5,1                                                   F2104610
       PDX 0,2                       INSPECT LEVEL.                     F2104620
       TXH SV20,2,1                  IF NOT NEW NEST, TRA SV20          F2104630
SV98   TXL SV10,0                    1F NEW NEST, SV10 (NEST.INDEX STO.)F2104640
SF00   SXD SV48,1                    SAVE INDEX OF N. N CURRENT DO      F2104650
       SXD SF10,2                    SAVE N COUNTER.                    F2104660
       SXD SF15,4                                                       F2104670
       PXD 0,4                       SAVE INDEX OF SYMBOL DO            F2104680
       STO SFES1                     IN FULL WORD.                      F2104690
       LXD SV44,1                    OBTAIN INDEX OF CURRENT DO         F2104700
       PXD 0,1                       IN ACC. AND COMPARE                F2104710
       CAS SFES1                     WITH INDEX OF SYMBOL DO.           F2104720
SF10   TXL SF20,0                    CURRENT INDEX GREATER.             F2104730
       TRA SF79                      EQUALITY                           F2104740
       PSE 97                        SYMBOL INDEX GREATER,              F2104750
SF15   TXL SF30,0                    TURN ON LIGHT 97.                  F2104760
SF20   LXD SV44,4                    CUR. IND. GREATER, PUT IN XRC      F2104770
       LXD SFES1,1                   SYM. IND. IN XRA.                  F2104780
       MSE 97                        LIGHT 97 OFF.                      F2104790
       NOP                           AT SF30, XRA CONTAIN LEAST         F2104800
SF30   PXD 0,4                       OF CUR. IND, SYM. IND. XRC         F2104810
       STO SFES1                     CONTAINS GREATER. PUT IN ES.       F2104820
SF35   CLA DOTAGZ+5,1                PUT LEVEL OF D(XRA) IN             F2104830
       PDX 0,2                       XRB. HALT IF                       F2104840
       TXH SF40,2,1                  LEVEL                              F2104850
       TSX DIAG,4  IS ONE                      ERROr. GO TO DIAGNOSTIC  F2104865
SF40   TXI SF50,1,9                  BACK UP IN XRA-                    F2104870
SF50   TXL SF60,1,1350               HALT IF TOP OD DOTAG               F2104880
       TSX DIAG,4  PASSED.                     ERROr. GO TO DIAGNOSTIC  F2104893
SF60   CLA DOTAGZ+5,1                THIS ROUTINE, BY RAISING           F2104900
       STD SF70                      XRA, EXITS TO SF80 OR              F2104910
SF70   TXL SF40,2                    SF90 UPON FINDING A DO             F2104920
       PXD 0,1                       IN THE SUBNEST OF XRA              F2104930
       CAS SFES1                     WHICH IS THE DO OF XRC OR          F2104940
       TRA SF73                      CONTAINS THE DO OF XRC             F2104950
       TRA SF80                      AND CURRENT DO.                    F2104960
       TRA SF35                      GO BACK FOR NEXT DO                F2104970
SF73   SXD SF76,1                    THIS ROUTINE (THROUGH SF76)        F2104980
SF74   LXD SF15,1                                                       F2104990
       TSX TRA00,4                   USES TRA00                         F2105000
       TZE SFEND                                                        F2105010
       STO SF78                      TO DETERMINE THE                   F2105020
       LXD SF76,1                    GREATEST EXIT LEVEL OF             F2105030
       CLA DOTAGZ+5,1                DEFINITION FROM A                  F2105040
       ANA DECMSK                    DO SYM NOT IN THE                  F2105050
       CAS SF78                      SUBNEST OF A DO WITH               F2105060
       CLA SF78                      VARIABLE NS, BUT IN A              F2105070
       NOP                           SUBNEST WHICH HAS A                F2105080
SF76   TXL SF90,0                    NON EMPTY INTERSECTION             F2105090
SF78   HTR                           WITH THAT SUB NEST.                F2105100
SF79   CLA DOTAGZ+5,1                                                   F2105110
       ANA DECMSK                                                       F2111120
       SUB L(1)                                                         F2105130
       TNZ SF90                                                         F2105140
       TRA SFEND                                                        F2105150
SF80   MSE 97                        EQUALITY, IF SYM DO IS             F2105160
       TSX DIAG,4  CURRENT DO,                 ERROr. GO TO DIAGNOSTIC. F2105173
       CLA BITONE                                                       F2105180
       ORS DOTAGZ+5,1                                                   F2105190
       CLA DOTAGZ+5,1                OBTAIN LEVEL OF DEFINITION         F2105200
       ANA DECMSK                    AND STORE                          F2105210
SF90   ARS 18                        IN ADDRESS PART                    F2105220
       STO SFES1                     OF SFESI.                          F2105230
       LXD SV48,1                    INDEX OF VAR.N. IN CUR. DO.        F2105240
       CLA DOTAGZ+8,1                OBTAIN PREVIOUS LEV. DEF.          F2105250
       ANA ADDMSK                    AND COMPARE                        F2105260
       CAS SFES1                     WITH NEW,                          F2105270
       TRA SFEND                     EXIT UNLESS                        F2105280
       TRA SFEND                     NEW LEV.                           F2105290
       CLA SFES1                     IS LARGGER, IN WHICH CASE          F2105300
       STA DOTAGZ+8,1                REPLACE OLD WITH NEW               F2105310
       LXD SF10,2                    OBTAIN N COUNTER IN XRB            F2105320
SF92   CLA DOTAGZ+4,1                OBTAIN VAR. N IN ACC.              F2105330
       TRA SF96                      GO TO INDEXING.                    F2105340
SF94   CAS DOTAGZ+4,1                COMPARE, TO FIND DUPLICATE         F2105350
       TRA SF96                      N S.                               F2105360
       TRA SF99                      DUPE FOUND.                        F2105370
SF96   TXI SF98,1,1                  INDEX IN DO FORMULA                F2105380
SF98   TIX SF94,2,1                  AND IN COUNTER                     F2105390
       TRA SFEND                                                        F2105400
SF99   CLA SFES1                     REPLACE                            F2105410
       STA DOTAGZ+8,1                OLD LEVEL                          F2105420
       TRA SF92                      OF DEFINITION.                     F2105430
SFEND  LXD SF15,4                    GO BACK FOR NEXT                   F2105440
       TRA SV65                      SYMBOL DO                          F2105450
SFES1  HTR                           ES,                                F2105460
       REM  GREATEST TRANSFER LEVEL OUT OF DO FORMULA                   F2105470
TRA00  CLA DOTAGZ+5,1                OBTAIL LEVEL OF DO                 F2105480
       PDX 0,2                       USE MAX LEV TWENTY                 F2105490
TRA10  TXL TRA20,2,20                                                   F2105500
       LXD TRA10,2                                                      F2105510
TRA20  SXD TRA50,2                   INITIALIZE TEST INSTR.             F2105520
       PXD 0,2                       COMPUTE LEVEL MINUS ONE            F2105530
       ARS 18                        AND INITIALIZE SHIFT INSTR.        F2105540
       SUB TRAN1                     COMPUTE 35 MINUS (L M1NUS          F2105530
       STA TRA70                     ONE) AND                           F2105560
       SUB TRAN2                     INITIALIZE                         F2105570
       STA TRA80                     SHIFT INSTR.                       F2105580
       PXD 0,0                       INITIALIZE                         F2105590
       STO TRAN5                     ES LOCATION TO ZERO                F2105600
TRA30  CAL DOTAGZ+7,1                OR INTO TRAN5 ALL THE              F2105610
       ORS TRAN5                     T2 WORDS OF THIS DO                F2105620
       TXI TRA40,1,-9                AND ALL DOS CONTAINED              F2105630
TRA40  TXL TRA60,1                   BY THIS DO.                        F2105640
       CLA DOTAGZ+5,1                                                   F2105650
       PDX 0,2                                                          F2105660
TRA50  TXH TRA30,2                                                      F2105670
TRA60  LDQ TRAN4                     PUT MASK IN QUOTIENT               F2105680
TRA70  LLS                           REGISTER, SHIFT COMPUTED           F2105690
TRA80  ALS                           AMOUNTS TO CONSTRUCT               F2105700
       ANA TRAN5                     MASK IN ACC. AND IN                F2105710
       TZE TRA95                     UNION OF T2 WORDS. EXIT IF ZERO.   F2105720
       STO TRAN5                     OBTAIN LOW ORDER BIT               F2105730
       SUB TRAN1                     IN ACC.                            F2105740
       STO TRAN6                                                        F2105750
       ORA TRAN5                                                        F2105760
       SUB TRAN6                                                        F2105770
       LXD L(1),1                                                       F2105780
TRA85  CAS TRATAB+19,1               SEARCH TABLE                       F2105790
       TRA TRA86                     TO OBTAIN                          F2105800
       TRA TRA90                     LEVEL INTEGER                      F2105810
TRA86  TXI TRA87,1,1                                                    F2105820
TRA87  TXL TRA85,1,19                                                   F2105830
       TSX DIAG,4                              ERROr  GO TO DIAGNOSTIC. F2103845
TRA90  PXD 0,1                       PUT LEVEL IN ACC DECREMENT         F2105850
TRA95  TRA 1,4                       EXIT.                              F2105860
TRAN1  HTR 1                                                            F2105870
TRAN2  HTR 35                                                           F2105880
TRAN4  OCT 377777777777                                                 F2105890
TRAN5  HTR                                                              F2105900
TRAN6  HTR                                                              F2105910
TRATAB OCT 200000                                                       F2105920
       OCT 400000                                                       F2105930
       OCT 1000000                                                      F2105940
       OCT 2000000                                                      F2105950
       OCT 4000000                                                      F2105960
       OCT 10000000                                                     F2105970
       OCT 20000000                                                     F2105980
       OCT 40000000                                                     F2105990
       OCT 100000000                                                    F2106000
       OCT 200000000                                                    F2106010
       OCT 400000000                                                    F2106020
       OCT 1000000000                                                   F2106030
       OCT 2000000000                                                   F2106040
       OCT 4000000000                                                   F2106050
       OCT 10000000000                                                  F2106060
       OCT 20000000000                                                  F2106070
       OCT 40000000000                                                  F2106080
       OCT 100000000000                                                 F2106090
       OCT 200000000000                                                 F2106100
       REM FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS       F2106110
TS4VAL CLA 4VALAD                    READ IN                            F2106120
       LXD L(6),2                    FORVAL                             F2106130
       TSX RTAPE,4                                                      F2106140
       TXL TSV10,1,999                                                  F2106150
       PSE 100                       IF FORVAL EMPTY, SET               F2106160
       TRA T190                      SENSE LIGHT AND EXTT               F2106170
TSV10  SXD TS40,1                    INITIALIZE TEST INSTRS.            F2106180
       SXD TS75,1                                                       F2106190
       MSE 99                        TEST FOR EMPTY DOTAG               F2106200
       TRA TSV20                     OFF, NOT EMPTY                     F2106210
       PSE 99                        ON, DOTAG EMPTY                    F2106220
       TRA T190                      EXIT                               F2106230
TSV20  LXD DOTAG-1,1                 DOTAG TEST INITIALIZING            F2106240
       SXD TS35,1                                                       F2106230
       LXD L(1350,1                  INITIALIZE XRA                     F2106260
       LXD L(1000,4                  AND                                F2106270
       SXD XFOR,4                    XFOR. CONTINUE WITH TS00           F2106280
TS00   MSE 97                        SENSE LIGHT-97 OFF                 F2106290
       NOP                                                              F2106300
TS10   CLA DOTAGZ+5,1                OBTAIN LEVEL OF CURRENT            F2106310
       PDX 0,2                       DO IN XRB. IF L IS ONE,            F2106320
       TXL TS15,2,1                  GO TO NEST PROCEDURE. IF           F2106330
       MSE 97                        L 1S NOT ONE AND LIGHT IS          F2106340
       TRA TS30,0                    OFF, GO TO INNER DO PRECEDURE,     F2106350
       PSE 97                        IF LIGHT IS ON, CONTINUE           F2106360
       TXI TS35,1,-9                 INDEXING FOR NEXT NEST.            F2106370
TS15   MSE 97                                                           F2106380
       NOP                                                              F2106390
       CLA DOTAGZ,1                  L IS ONE, DO NEST PR0CEDURE.       F2106400
       PAX 0,2                       ESTABLISH BEGINNING OF             F2106410
       ANA DECMSK                    NEST ADDRESS BNA, AND              F2106420
       STO TBNA                      END OF NEST ADDRESS ENA.           F2106430
       PXD 0,2                       SEARCH IN FORTAG UNTIL             F2106440
       STO TENA                      FOR NRS. FOUND GREATER             F2106450
       LXD XFOR,4                    THAN ENA. IF NONE, EXIT            F2106460
       CLA TBNA                      FROM ENTIRE ROUTINE.               F2106470
TS20   CAS 4VALZ,4                   TEST WHETHER FIRST SUCH            F2106480
       TXI TS40,4,-2                 NR. IS IN NEST IF NOT,             F2106490
       TSX DIAG,4  FIND NEXT NEST. IF SO,     (ERROr. GO TO DIAGNOSTIC.)F2106503
       SXD XFOR,4                    GO TO INDEXING INSTRS.             F2106510
       CLA TENA                      FOR NEXT DO.                       F2106520
       SUB 4VALZ,4                                                      F2106530
       TPL TS25                                                         F2106540
       PSE 97            RECORD NO FORVAL FALLS IN THIS NEST.           F2106550
TS25   TXI TS35,1,-9                                                    F2106560
TS30   CLA DOTAGZ,1                  INNER DO PROCEDURE.                F2106570
       ANA TAGMSK                    TEST FOR NON ZERO TAG,             F2106580
       TNZ TS50                      IN WHICH CASE TRA FOR              F2106590
TS33   TXI TS35,1,-9                 TABLE SEARCH. OTHERWISE,           F2106600
TS35   TXH TS10,1                    INDEX FOR NEXT DO, IF POSSIBLE.    F2106610
TS38   TXL T190,0                    EXIT, STORAGE FOR INDEX CUR. DO.   F2106620
TS40   TXH TS20,4                    INDEX TEST FOR FORVAL              F2106630
       TRA T190                      EXIT                               F2106640
TS50   SXD TS38,1                    SAVE INDEX OF CURRENT DO           F2106650
       SXD T110,2                    SAVE LEVEL OF CURRENT DO           F2106660
       LXD XFOR,4                    OBTAIN FORVAL INDEX IN XRC         F2106670
TS55   LXD L(3),2                    PUT THREE IN XRC                   F2106680
       LXD TS38,1                    CURRENT DO IN XRA                  F2106690
       CLA TENA                      TEST FOR END OF NEST               F2106700
       SUB 4VALZ,4                                                      F2106710
       TMI TS33                      NOT IN NEST TRA FOR NEXT DO.       F2106720
       CLA 4VALZ+1,4                 IN NEST 0BTAIN FORTAG              F2106730
TS60   CAS DOTAGZ+4,1                SYMBOL, COMPARE WITH VAR           F2106740
       TRA TS65                      N SYMBOLS.                         F2106750
       TRA TS80                      EQUALITY                           F2106760
TS65   TXI TS70,1,1                  INDEX IN XRA,                      F2106770
TS70   TIX TS60,2,1                  COUNT IN XRB                       F2106780
       TXI TS75,4,-2                 TAKE NEXT FORTAG ENTRY,            F2106790
TS75   TXH TS55,4                    IF ANY                             F2106800
       LXD TS38,1                    RESTORE CURRENT DO INDEX           F2106810
       TXI TS35,1,-9                 AND TRA FOR NEXT DO.               F2106820
TS80   SXD T148,2                    SAVE VAR. N. COUNTER.              F2106830
       SXD T144,1                    SAVE COUNTER OF SYM IN DO          F2106840
       LXD TS38,1                    CURRENT DO INDEX IN XRA            F2106850
       LXD T110,2                    CURRENT DO LEVEL IN XRB            F2106860
       TXI TS85,2,1                  ADJUST XRB FOR CURRENT DO TEST.    F2106870
TS85   CLA DOTAGZ+5,1                OBTAIN NEXT BACK DO IN             F2106880
       STD TS90                      SUBNEST. ON FIRST TIME             F2106890
TS90   TXH T100,2                    THROUGH, CURRENT DO IS             F2106900
TS92   TXI TS85,1,9                  PRODUCED.                          F2106910
TS94   TIX TS92,2,1                  ADJUST LEVEL.                      F2106920
       TSX DIAG,4  IF NOT IN NEST,             ERROr. GO TO DIAGNOSTIC. F2106933
T100   CLA DOTAGZ,1                  NEXT BACK DO FOUND.                F2106940
       ANA DECMSK                    TEST TO SEE IF FORTAG              F2106950
       SUB 4VALZ,4                   FORMULA NR. IS IN THIS             F2106960
       TPL TS94                      DO. IF NOT, GO TO TS94             F2106970
       CLA DOTAGZ,1                  TO ADJUST LEVEL FOR                F2106980
       ANA ADDMSK                    OBTAINING NEW SUBNEST DO.          F2106990
       ALS 18                                                           F2107000
       SUB 4VALZ,4                                                      F2107010
       TMI TS94                                                         F2107020
T110   TXL T120,2                    DEC CONTAINS CURRENT LEVEL.        F2107030
       TRA T170          APPARENT DEFINITION  OF A VARIABLE N WITHIN    F2107044
       REM               RANGE OF THE DO WITH VARIABLE N. IGNORE AND    F2107046
       REM               GET NEXT FORVAL.                               F2107047
T120   LXD T144,1                    PUT CUR. VAR. DO INDEX IN          F2107050
       CLA DOTAGZ+8,1                XRA, AND OBTAIN LEV. DEF,          F2107060
       PAX 0,2                       OF VAR. N.                         F2107070
       SXD T130,2                    STORE IN DEC OF T130.              F2107080
       LXD TS90,2                    OBTAIN LEVEL OF DO CONTAINING      F2107000
T130   TXL T170,2                    FURTAG FOR. NR.                    F2107100
       PXD 0,2                       CHOOSE LARGER AND PUT IN           F2107110
       ARS 18                        LEV, DEF. FIELD OF CURRENT DO.     F2107120
       STA DOTAGZ+8,1                IF CHANGE MADE, SAVE               F2107130
       STO T195                      LEVEL,                             F2107140
       LXD T148,2                    AND TEST TO SEE IF THIS            F2107150
       CLA DOTAGZ+4,1                SYMBOL                             F2107160
       TXI T160,1,1                  DUPLICATED                         F2107170
T140   CAS DOTAGZ+4,1                IN DO VAR.N S.                     F2107180
T144   TXL T150,0        IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100
T148   TXL T180,0        OF DEF  BY THIS ( DEC HAS 3,2,1 IF FORVAL      F2107200
       REM               MATCHES VARIABLE N3,N2,N1)                     F2107201
T150   TXI T160,1,1                  NEW LEVEL.                         F2107210
T160   TIX T140,2,1                                                     F2107220
T170   TXI TS75,4,-2                                                    F2107230
T180   CLA T195                                                         F2107240
       STA DOTAGZ+8,1                                                   F2107230
       CLA DOTAGZ+4,1                                                   F2107260
       TXI T160,1,1                                                     F2107270
T190   TRA RH00                      EXIT                               F2107280
T195   HTR                           ES                                 F2107290
XFOR   HTR                           FORTAG INDEX                       F2107300
TBNA   HTR                           ES                                 F2107310
TENA   HTR                           ES                                 F2107320
       REM USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH.  F2107330
RH00   LXD L(5),2                    READ IN                            F2107340
       CLA 4VARAD                    FORVAR                             F2107350
       TSX RTAPE,4                                                      F2107360
       TXH RH95,1,1499               EXIT IF FORVAR EMPTY               F2107370
       MSE 99                        TEST FOR EMPTY DOTAG.              F2107380
       TRA RH05                      NOT EMPTY                          F2107390
       PSE 99                        EMTPY, RESTORE SENSE LIGHT         F2107400
       TRA RH95                      AND EXIT.                          F2107410
RH05   SXD RH60,1                    FORVAR.TEST                        F2107420
       SXD RH75,1                    INIT1ALIZING                       F2107430
       LXD DOTAG-1,1                 DOTAG TEST                         F2107440
       SXD RH90,1                    INITIALIZING                       F2107450
       LXD L(1500,1                  MAX WORDS IN FORVAL                F2107460
       SXD RHNNX,1                   IN NEXT NEST INDEX.                F2107470
       MSE 97                        TURN LIGHT 97 OFF.                 F2107480
       NOP                                                              F2107490
       LXD L(1350,1                  PUT MAX WDS IN DOTAG IN XRA.       F2107500
RH10   CLA DOTAGZ,1                  OBTAIN FIRST DOTAG WORD.           F2107510
       PAX 0,2                       SEPARATE ALPHA AND BETA,           F2107520
       ANA DECMSK                    STORE IN RFIRST AND RLAST          F2107530
       STO RFIRST                                                       F2107540
       PXD 0,2                                                          F2107550
       STO RLAST                                                        F2107560
       CLA DOTAGZ+5,1                OBTAIN LEVEL IN XRB.               F2107570
       PDX 0,2                                                          F2107580
       TXH RH30,2,1                  TRA IF LEVEL GREATER THAN ONE.     F2107590
       MSE 97                        LEVEL IS ONE, TEST WHETHER,        F2107600
       TRA RH20                      ON LAST LEVEL ONE, FORVAR          F2107610
       TRA RH95                      EXHAUSTED, IF SO, EXIT,            F2107620
RH20   LXD RHNNX,4                   OTHERWISE, ADJUST FORVAR           F2107630
       SXD RHCNX,4                   1NDEX TO SKIP LAST NEST AREA       F2107640
RH30   LXD RHCNX,4                   PUT FORVAR INDEX IN XRC            F2107650
       CLA RFIRST                    BEGIN SEARCH FOR FIRSTL.           F2107660
RH40   CAS 4VARZ,4                   FORVAR ENTRY IN RANGE.             F2107670
       TXI RH60,4,-2                                                    F2107680
       TSX DIAG,4                              ERROr  GO TO DIAGNOSTIC  F2107695
       SXD RHCNX,4                   SAVE INDEX AT THIS POINT,          F2107700
RH50   CLA RLAST                     FOR NEXT DO, AND COMPARE           F2107710
       CAS 4VARZ,4                   FORVAR ENTRY WITH RLAST            F2107720
       NOP                                                              F2107730
       TRA RH70                      TRA, IN RANGE.                     F2107740
       TRA RH80                      TRA, NOT IN RANGE                  F2107750
RH60   TXH RH40,4                    IF NO ENTRIES GREATER              F2107760
       TRA RH95                      THAN RFIRST, EXIT.                 F2107770
RH70   CLA DOTAGZ+1,1                IN RANGE, COMPARE SYMB0LS          F2107780
       SUB 4VARZ+1,4                 IF EQUAL, PUT BIT IN               F2107790
       TNZ RH72                      DOTAG-ENTRY.                       F2107800
       CLA BITONE                                                       F2107810
       ORS DOTAGZ+5,1                                                   F2107820
       TXH RH85,2,1                                                     F2107830
RH72   TXI RH75,4,-2                 INDEX FORVAR AND GO BACK,          F2107840
RH75   TXH RH50,4                    IF POSSIBLE. OTHERWISE,            F2107850
       TXH RH85,2,1                  TEST LEVEL. IF LEVEL IS            F2107860
       PSE 97                        ONE, ARRANGE TO EXIT WHEN          F2107870
       TRA RH85                      NEXT LEVEL ONE ENCOUNTERED         F2107880
RH80   TXH RH85,2,1                  N0T IN RANGE, TEST LEVEL           F2107890
       SXD RHNNX,4                   SET NEXT NEST INDEX IF L IS ONE.   F2107900
RH85   TXI RH90,1,-9                 INDEX IN DOTAG AND GO              F2107910
RH90   TXH RH10,1                    BACK, IF POSSIBLE.                 F2107920
RH95   TRA LB00                      EXIT                               F2107930
RHNNX  HTR                           NEXT NGST INDEX                    F2107940
RHCNX  HTR                           CURRENT NEST INDEX                 F2107950
RFIRST HTR                           ALPHA ADDRESS                      F2107960
RLAST  HTR                           BETA ADDRESS                       F2107970
       REM  TAPE READING ROUTINE                                        F2107980
RTAPE  STA RT40                      INITIALIZE TABLE ADDRESS           F2107990
       STO RT92                                                         F2108000
       SXD RT80,4                    SAVEXRC, TSX SET                   F2108010
       PXD 0,2                       SAVE XRB,                          F2108020
       ARS 18                        TABLE NR, IN ADDRESS.              F2108030
       STO RT90                                                         F2108040
       LXD RTD18,4       INITIALIZE ERROr COUNTER.                      F2108050
       SXD RT73,4                                                       F2108060
RT10   RDS TTAPE                     SELECT TAPE                        F2108070
       LXD RT92,1                    PUT MAX NR WORDS IN XRA            F2108080
       LXD L(2),4                    PUT TWO IN XRC                     F2108090
RT20   CPY RT95+2,4                  COPY FIRST TWO WORDS.              F2108100
       TRA RT30                      INTO E.S.                          F2108110
       TSX DIAG,4  EOF.                        ERROr. GO TO DIAGNOSTIC  F2108125
       TSX DIAG,4  EOR                         ERROR. GO TO DIAGNOSTIC. F2108135
RT30   TIX RT20,4,1                                                     F2108140
       TXL RTDO0,2,1                                                    F2108150
RT40   CPY 0,1                       COPY TABLE                         F2108160
       TXI RT40,1,-1                 COUNT NR. OF WORDS.                F2108170
       TSX DIAG,4  EOF                         ERROr. GO TO DIAGNOSTIC. F2108183
RT45   WRS 219                                 ERROr. GO TO DIAGNOSTIC. F2108183
       RTT                           ERROr TEST                         F2108190
       TRA RT70                      ERROr, TRA                         F2108200
       CLA RT90                      NO ERROr,                          F2108220
       SUB RT95                      TEST TABLE NR.                     F2108230
       TZE RT60                      NO ERROr                           F2108240
       TSX DIAG,4  WRONG TABLE 1DENT NR.       ERROr. GO TO DIAGNOSTIC. F2108255
RT60   LXD RT80,4                    TABLE CORRECT,                     F2108260
       TRA 1,4                       RETURN.                            F2108270
RT70   LXD RT73,4                                                       F2108280
       BST TTAPE                     ERROr, BACKSPACE TAPE              F2108290
       TNX RT75,4,1                                                     F2108300
       SXD RT73,4                    COUNT DOWN ERROR COUNTER           F2108310
RT73   TXL RT10,0                                                       F2108320
RT75   LDQ RT90          IF FIVE FAILURES, PUT                          F2108332
       TSX DIAG,4  TABLE NR. IN MQ.            ERROR. GO TO DIAGNOSTIC. F2108344
RT80   HTR                           TSX INDEX STORAGE                  F2108350
RT90   HTR                           TABLE NR STORAGE, C.S.             F2108360
RT92   HTR                           ADDRESS WORD STORAGE               F2108370
RT95   HTR                           TABLE NR, WD ONE OF TABLE.         F2108380
RT96   HTR                           NR. OF WDS IN DEC.                 F2108390
RTDO0  PXD 0,0                       THIS ROUTINE                       F2108400
RTD10  LXD RTD18,4                   READS IN ONE                       F2108410
RTD15  CPY DOTAGZ,1                  ENTRY FROM                         F2108420
       TXI RTD20,1,-1                TDO, AFTER WHICH                   F2108430
       TSX DIAG,4  FOUR ZERO WORDS            =ERROr. GO TO DIAGNOSTIC. F2108445
RTD18  TXL RT45,0,5                  ARE STORED,BEFORE                  F2108450
RTD20  TIX RTD15,4,1                 READING IN                         F2108460
RTD23  TXI RTD25,4,3                 THE NEXT ENTRY.                    F2108470
RTD25  STO DOTAGZ,1                  STORE ZERO                         F2108480
       TXI RTD30,1,-1                INDEX                              F2108490
RTD30  STO DOTAGZ,1                  AND REPEAT.                        F2108500
       TXI RTD35,1,-1                WHEN DOTAG                         F2108510
RTD35  STO DOTAGZ,1                  ENTRY IS                           F2108520
       TXI RTD40,1,-1                COMPLETE,                          F2108530
RTD40  STO DOTAGZ,1                  TRA                                F2108540
       TXI RTD10,1,-1                TO RTD10                           F2108550
DOAD   HTR DOTAGZ,0,1350             ADDRESS PART CONTAINS              F2108560
4VALAD HTR 4VALZ,0,1000              ADDRESS OF LAST WORD IN            F2108570
TIFAD  HTR TIFZ,0,600                TABLE PLUS ONE.                    F2108580
TRADAD HTR TRADZ,0,250               DEC CONTAINS MAX NR OF             F2108590
4VARAD HTR 4VARZ,0,1500              WRDS.                              F2108600
4TAGAD HTR FORTZ,0,1500                                                 F2108610
       REM TRANSFER IN EXTENDED RANGE BIT.                              F2108620
LB00   MSE 99                        TEST FOR EMPTY DOTAG               F2108630
       TRA LB02                      OFF, NOT EMPTY                     F2108640
       PSE 99                        ON, EMPTY, RESET LIGHT             F2108650
       TRA EB00                      AND EX1T                           F2108660
LB02   LXD DOTAG-1,1                 OBTAIN NEXT UNUSED INDEX           F2108670
LB05   TXL LB60,0                    TRA TO ADJUST FOR LAST DO.         F2108680
LB10   CLA DOTAGZ+6,1                OBTAIN T1 WORD.                    F2108690
       TMI LB60                      TEST SIGN, TRA IF NEG.             F2108700
       ANA BITONE                    TEST FOR TRA IN IMMED. RANGE.      F2108710
       TZE LB60                      IF NONE,TRA.                       F2108720
       SXD LB05,1                    SAVE XRA                           F2108730
       CLA DOTAGZ+5,1                PUT LEVEL                          F2108740
       PDX 0,2                       IN XRB                             F2108750
LB20   CAL LMSK                      OR IN                              F2108760
       ORS DOTAGZ+6,1                MSK                                F2108770
       TXL LB50,2,1                  EXIT IF LEVEL ONE.                 F2108780
LB25   TXI LB30,1,9                  FIND NEXT BACK                     F2108790
LB30   CLA DOTAGZ+5,1                SUBNEST DO,                        F2108800
       STD LB40                                                         F2108810
LB40   TXL LB25,2                                                       F2108820
       PDX 0,2                       SAVE NEW LEVEL IN XRB.             F2108830
       CLA DOTAGZ+6,1                TEST SIGN OF WORD T1.              F2108840
       TPL LB20                      IF PLUS GO TO PUT IN MSK.          F2108850
LB50   LXD LB05,1                    IF NOT, FIND NEXT DO               F2108860
LB60   TXI LB70,1,9                  IN MAIN PASS.                      F2108870
LB70   TXL LB10,1,1350               EB00 FOLLOWS                       F2108880
       REM END OF BLOCK ROUTINE                                         F2108890
EB00   REW 147                       REWIND DOTAG TAPE                  F2108900
       MSE 99                        TEST FOR EMPTY DQTAG               F2108910
       TRA EB10                      OFF, NOT EMPTY                     F2108920
       PSE 99                        ON, EMPTY, RESTORE AND TRA.        F2108930
       TRA EB50                                                         F2108940
EB10   LXD DOTAG-1,1                 INITIALIZE TEST INSTR.             F2108950
       SXD EB40,1                    AND                                F2108960
       LXD L(1350,1                  XRA                                F2108970
EB20   LXD L(9),4                    WRITE                              F2108980
       CLA DOTAGZ+5,1                DOTAG                              F2108990
       PDX 0,2                       ON                                 F2109000
       TXH EB30,2,1                  TAPE                               F2109010
       WRS 147                       ONE                                F2109020
EB30   CPY DOTAGZ,1                  NEST                               F2109030
       TXI EB40,1,-1                 PER                                F2109040
EB40   TXL EB50,1                    RECORD                             F2109050
       TIX EB30,4,1                                                     F2109060
       TRA EB20                                                         F2109070
EB50   WEF 147                       WRITE END OF FILE                  F2109080
EB60   LXD L(4),2                    READ                               F2109090
       CLA 4TAGAD                    IN                                 F2109100
       TSX RTAPE,4                   FORTAG.                            F2109110
       SXD FORTAG-1,1                SET SENSE LIGHT 97                 F2109120
       MSE 97                        ON IF FORTAG                       F2109130
       NOP                           EMPTY, OFF IF                      F2109140
       TXL EB70,1,1499               FORTAG                             F2109150
       PSE 97                        NOT EMPTY.                         F2109160
EB70   RDS TTAPE                     MOVE TTAPE PAST                    F2109170
       CPY EB80                      END OF FILE MARK.                  F2109180
       TRA EB70                                                         F2109190
       TRA EB90                      EOF                                F2109200
       TSX DIAG,4  SHOULD NOT BE EOR HERE.     ERROr. GO TO DIAGNOSTIC. F2III215
EB80   HTR                           ES                                 F2109220
EB90   MSE 98            IS TRALEV TALBE EMPTY                          F2109230
       TRA EB95                                                         F2109240
       WRS TLTAPE                    ON, EMPTY.                         F2109250
       CPY L(0)                                                         F2109260
       CPY L(0)                                                         F2109270
       PSE 98                                                           F2109280
EB95   WEF TLTAPE        TRALEV TAPE                                    F2109290
       RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE     F2109295
       TRA ONETCS        GO TO ONE TO CS ( MONITOR).                    F2109296
ERLIST SXD ERIR2,2           SAVE X R  B                                F2109311
       LXD ERNBR,2           GET ERROr NUMBER                           F2109321
       CLA DOTAGZ,4          SAVE ALPHA DO BETA                         F2109331
       STO LIST,2            IN LIST                                    F2109141
       CLA DOTAGZ+1,4        AND SYMBOL                                 F2109351
       STO LIST-1,2                                                     F2109361
       CLA DOTAGZ,1          SAVE OTHER ALPHA DO BETA                   F2109371
       STO LIST-2,2                                                     F2109181
       CLA DOTAGZ+1,1        AND SYMBOL                                 F2109391
       STO LIST-3,2                                                     F2102401
       TXI ERNXT,2,4                                                    F2109411
ERNXT  SXD ERNBR,2                                                      F2109421
       LXD ERIR2,2                                                      F2109431
       TRA MR60                                                         F2109441
ERIR2                                                                   F2109451
ERNBR                                                                   F2109461
ERBETA SXD ERIR2,2           SAVE ALPHA DO BETA                         F2109471
       LXD ERNBR,2           WHERE ALPHA                                F2109481
       STZ LIST,2            IS GREATER THAN                            F2109491
       CLA DOTAGZ,1          ITS BETA                                   F2109501
       STO LIST-1,2                                                     F2109511
       CLA DOTAGZ+1,1                                                   F2109521
       STO LIST-2,2                                                     F2109531
       TXI ERNX,2,3                                                     F2109541
ERNX   SXD ERNBR,2                                                      F2109551
       LXD ERIR2,2                                                      F2109561
       TRA MR15                                                         F2109571
ERTST  LXD ERNBR,2                                                      F2109581
       TXL FLOW,2,0                                                     F2109591
       TSX 4,4                                                          F2109601
LIST   SYN 32767                                                        F2109611
ONETCS EQU 4                                                            F2109710
DIAG   EQU 4                                                            F2109711
LMSK   SYN L(MZ)                                                        F2109712
TTAPE  EQU 146                                                          F2109722
TLTAPE EQU 148                                                          F2109732
       END               END OF BLOCK 1                                 F2109742
       REM BLOCK TWO OF SECTION TWO.                                            
       REM   MASTER RECORD CARD = FN034                                 F2200004
       REM BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE   F2200006
       REM SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS                 F2200010
       REM SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE   F2200020
       REM DOS. THERE ARE TWO MACHINE STATES, ONE                       F2200030
       REM OF WHICH IS RESERVED EXCLUSIVELY                             F2200040
       REM FOR THOSE SUBSCRIPT COMBINATIONS                             F2200050
       REM SOME SUBSCRIPT ELEMENT/S OF WHICH ARE                        F2200060
       REM NOT UNDER CONTROL OF A DO (RELATIVE                          F2200070
       REM CONSTANT).                                                   F2200080
       ORG 25                                                           F2200090
DOTAG  BSS 1                                                            F2200100
       BSS 449                                                          F2200110
DOTAGZ BSS 1                                                            F2200120
FORTAG BSS 1                                                            F2200140
       BSS 1499                                                         F2200150
FORTZ  BSS 1                                                            F2200160
       ORG 1976                                                         F2200170
DOREC  BSS 1                     (INIT ZERO)                            F2200180
       BSS 1                                                            F2200190
ATSW   BSS 1             ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITOF2200200
NEWTAG BSS 1                    (INIT 4000M0DS, FIRSTTAG)               F2200210
XC     BSS 1             IX CURRENT DO.                                 F2200220
LC     BSS 1             LEV CURRENT DO                                 F2200230
ALPHA  BSS 1             ALPHA CURRENT DO                               F2200240
BETA   BSS 1             BETA CURRENT DO                                F2200250
TAG    BSS 1             TAG CURRENT TAG IN ROUTINE TAG                 F2200260
TS     BSS 1             TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT  F2200270
TAG1   BSS 1             4TH WD OF TAGTAG                               F2200280
GR0UP  BSS 1             GROUP NR. IN DEC                               F2200290
C1     BSS 1             COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOMF2200300
S1     BSS 1             SUBSCR 1ST SYMB                                F2200310
C2     BSS 1             COEFF 2ND SYMB                                 F2200320
S2     BSS 1             SUBSC 2ND                                      F2200330
C3     BSS 1             COEFF 3RD                                      F2200340
S3     BSS 1             SUBSC 3RD                                      F2200350
D1     BSS 1             DIMENSION 1ST                                  F2200360
D2     BSS 1             DIM 2ND                                        F2200370
X1     BSS 1             IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD     F2200380
L1     BSS 1             LEV DO MATCHING 1ST SYMB    BELOW, INIT 0,IDENTF2200390
X2     BSS 1             IX DO MATHCING 2ND SYMB                        F2200400
L2     BSS 1             LEV DO MATCHING  2ND                           F2200410
X3     BSS 1             IX DO MATCHING 3RD                             F2200420
L3     BSS 1             LEV DO MATCHING 3RD                            F2200430
XL     BSS 1             IX LOWEST LEVEL DOSUB                          F2200440
LL     BSS 1             LEV LOWEST LEVEL DOSUB                         F2200450
NRSUBS BSS 1             NR. SUBSCRIPTS IN SUBSCR COMBINATION           F2200460
NRRC   BSS 1             NR. RELCONS IN SUBSCR COMBINATION              F2200470
NRDS   BSS 1             NR DOSUBS IN S.C.                              F2200480
DORC   BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC  F2200490
RCSUBS BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCONF2200500
DOSUBS BSS 1             BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB F2200510
DELTA  BSS 1                                                            F2200520
RCDUP  BSS 1             BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS   F2200530
DUPES  BSS 1             BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS   F2200540
RSYM1  BSS 1                                                       --   F2200550
RSYM2  BSS 1                                                            F2200560
CARWRD BSS 1             BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2,   F2200570
       REM               13 CENTER TYPE 1, 14 CENTER TYPE 2.            F2200571
       REM               S SET NEG IF COUNTER AND TEST FOUND            F2200572
TL1    BSS 1                                                            F2200580
TL2    BSS 1                                                            F2200590
A      BSS 1                                                            F2200600
B      BSS 1                                                            F2200610
NEXTA  BSS 1                                                            F2200620
LASTB  BSS 1                                                            F2200630
REBITS BSS 1                                                            F2200640
TRABIT BSS 1                                                            F2200650
LOWP0S BSS 1             5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID)   F2200660
L(0)       0,0,0                                                        F2200670
L(1)       0,0,1                                                        F2200680
L(2)       0,0,2                                                        F2200690
L(3)       0,0,3                                                        F2200711
L(4)       0,0,4                                                        F2200710
L(5)       0,0,5                                                        F2200720
L(6)       0,0,6                                                        F2200730
L(20)      0,0,20                                                       F2200740
L(36)      0,0,36                                                       F2200750
L(60)      0,0,60                                                       F2200760
L(450)     0,0,450                                                      F2200770
L(1500     0,0,1500                                                     F2200780
L(1)A      1                                                            F2200790
L(2)A      2                                                            F2200800
L(4)A      4                                                            F2200810
L(MZ)  MZE                                                              F2200820
35ONES OCT 377777777777                                                 F2200830
DECMSK OCT 77777000000                                                  F2200840
ADDMSK OCT 77777                                                        F2200850
CR1    OCT 100000000     BIT 11                                         F2200860
CR2    OCT 40000000      BIT 12                                         F2200870
CARMSK OCT 300000        BITS 19,20 (CARRY BITS OF DOTAG, WD 6)         F2200880
FRSTAG OCT 4000                                                         F2200890
BITONE OCT 200000000000                                                 F220090D
BITTWO OCT 100000000000                                                 F2200910
2BITS  OCT -200000000000 S AND 1 BIT                                    F2200920
BIT18  OCT 400000                                                       F2200930
BIT19  OCT 200000                                                       F2200940
BIT20  OCT 100000                                                       F2200950
ADTXX      100           DEC CONTAINS (FROM)HERE TO NAMXX BELOW,        F2200960
RESXX      300           IX VALUE FOR NEXT (DEC INiT SET TO-ADD)        F2200970
TAGXX      80            TABLE ENTRY.                                   F2200980
NAMXX      100                                                          F2200990
BEGIN  REW DOTAPE                    REWIND DOTAG TAPE                  F2201000
       LXD L(5),1                    INITIALIZE                         F2201010
BEG10  CLA LADDIN+5,1                DRUM PROGRAM                       F2201020
       ANA ADDMSK                    ADDRESSES                          F2201030
       STO LADDS+5,1                                                            
       TIX BEG10,1,1                                                    F2201040
       CLA L(0) , ,                                                     F2201050
       STO DOREC                                                        F2201060
       RTT                           TURN                               F2201070
       NOP                           LIGHT OFF                          F2201080
       LXD L(0),6                    TEST FOR EMPTY                     F2201090
       MSE 100                       FORVAL                             F2201110
       LXD L(1),4                    OFF, NOT EMPTY                     F2201120
       SXD END80,4                   ON, EMPTY                          F2201130
       MSE 99                        TEST FOR                           F2201140
       LXD L(1),2                    EMPTY DOTAG                        F2201150
       SXD END85,2                   SAVE TABLE INFO 1N END PROG.       F2201160
       TXL END,2,0                   IF DOTAG EMPTY, GO TO END.         F2201170
       LXD FORTAG-1,1                INITIALIZE                         F2201170
       SXD TINF30,1                  FORTAG                             F2201180
       SXD TAG20,1                   TEST                               F2201190
       SXD TAG90,1                   INSTRUCTIONS.                      F2201200
 PAT01 CLA FRSTAG        INITIALIZE NEW TAG NAME BASE                   F2201220
       STO NEWTAG                                                       F2201230
       TRA NEST                                                         F2201240
END    WEF ATAPE                     WEF ON TAGTAG TAPE                 F2201250
       WRS 195                       MAKE END OF DRUMTAG TABLE ENTRY.   F2201260
       LDA LADDS+4                                                      F2201270
       CPY 35ONES                                                       F2201280
       CPY 35ONES                                                       F2201290
       LXD L(5),1                                                       F2201300
END10  WRS 219                       DELAY.                             F2201310
       WRS ADRUM                     WRITE.                             F2201320
       CLA LADDIN+5,1                ALL                                F2201330
       SUB L(2)A                     DRUM                               F2201340
       STA END90                     TABLE                              F2201350
       CLA LADDIN+5,1                WORD                               F2201360
       ANA ADDMSK                    COUNTS                             F2201370
       SUB LADDS+5,1     IN                                             F2201380
       SSP               FIRST                                          F2201390
       STO END95         TWO                                            F2201400
       LDA END90         WORDS                                          F2201410
       CPY END95         PRECEDING                                      F2201420
       CPY END95         EACH TABLE . (TSXCOM, TRASTO, NAMKEY,          F2201430
       TIX END10,1,1     CHATAG, DRMTAG)                                F2201440
       PSE 96                        RESTORE SENSE LIGHTS               F2201450
       LXD END80,1                   SL 100 ON, FORVAL EMPTY            F2201450
       TXH END20,1,0                 SL 99 ON, DOTAG EMPTY,             F2201470
       PSE 100                                                          F2201480
END20  LXD END85,1                                                      F2201490
       TXH END30,1,0                                                    F2201500
       PSE 99                                                           F2201510
END30  WEF TAPE2         WRITE EOF AFTER DONEST RECORDS                 F2201520
       WRS TAPE2                                                        F2201530
       CPY DOREC         MAKE AN EXTRA FILE WITH                        F2201540
       CPY DOREC         DONEST RECORD COUNT.                           F2201550
       WEF TAPE2                                                        F2201560
       CLA LADDS+1       TRASTO CARRYOVER TO BLOCK 3                    F2201570
       STO 4093                                                         F2201580
       CLA LADDS         TSXCOM CARRYOVER TO BLOCK 3.                   F2201590
       STO 4094                                                         F2201600
       CLA LADDS+2       NAMKEY (OR NAME) CARRYOVER TO BLOCK 3,         F2201610
       STO 4095                                                         F2201620
       TRA NORMRT                                                       F2201635
END80  HTR               ES. (DEC HAS 1 IF FORVAL NOT EMPTY)            F2201640
END85  HTR               FOR  (DEC HAS 1 IF DOTAG NOT EMPTY)            F2201650
END90  HTR                           END                                F2201670
END95  HTR                           PROGRAM.                           F2201680
NEST   LXD L(0),1                    READ                               F2201690
NEST10 RDS DOTAPE                    ONE                                F2201700
       LXD L(450),2                  NEST OF DO FORMULAS                F2201710
NEST20 CPY DOTAGZ,2                  FROM                               F2201720
       TXI NEST60,2,-1               DOTAPE.                            F2201730
       TRA END                       IF EOF, GO TO ROUTINE END.         F2201740
NEST30 CLA L(0)                      INITIALIZING INSTRUCTIONS.         F2201750
       STO ATSW                                                         F2201760
       SXD XC,2                      PUT C(XRB) IN XC                   F2201780
       SXD DOTAG-1,2     INITIALIZE                                     F2201790
       SXD NEST95,2      DECS                                           F2201800
       SXD TRAW20,2      THAT                                           F2201810
       SXD TRAW50,2      TEST                                           F2201820
       SXD SPC040,2      END OF                                         F2201830
       SXD SPC090,2      DONEST.                                        F2201840
       LXA ADTXX,4       INIT                                           F2201850
       SXD ADTXX,4       DECS                                           F2201860
       LXA RESXX,4       FROM                                           F2201870
       SXD RESXX,4       ADDRESSES.                                     F2201880
       LXA TAGXX,4                                                      F2201890
       SXD TAGXX,4                                                      F2201900
       LXA NAMXX,4                                                      F2201910
       SXD NAMXX,4                                                      F2201920
       WRS 219                       MAKE                               F2201930
       RTT                           RTT                                F2201940
       TRA NEST35                    TEST                               F2201950
       TRA DOFOR                     IF NO ERROR, GO TO DOFOR.          F2201960
NEST35 TXI NEST40,1,1                IF ERROR,                .         F2201970
NEST40 TXH NEST50,1,4    TRY 4 TIMES MORE FOR                           F2201985
       BST DOTAPE                    CORRECT READ.                      F2201990
       TRA NEST10        AFTER FIFTH INCORRECT READ,                    F2202002
NEST50 TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC  F2202015
NEST60 TXH NEST20,2,0                INDEX COPY. IF DOTAG               F2202020
       CPY NEST70                    STORAGE FULL, AND MORE             F2202030
       TSX DIAG,4  NEST ENTRIES REMAIN.        ERROR. GO TO DIAGNOSTIC. F2202045
       TSX DIAG,4  INCORRECT EOF.              ERROR. GO TO DIAGNOSTIC. F2202055
       TRA NEST30                    NO ENTRIES LEFT, GO TO NEST30).    F2202060
NEST70 HTR                           E.S.                               F2202070
NESTEN LXD L(4),2                    PUT END OF NEST INDICATION         F2202080
       CLA 35ONES                    IN TAGTAG, CONSISTING OF           F2202090
NEST80 STO E1+4,2                    FOUR WORDS OF 35 ONES.             F2202100
       TIX NEST80,2,1                                                   F2202120
       TSX TAGENT,4                  ENTER IN TAGTAG AND                F2202130
       TSX TETAPE,2                  WRITE BUFFER ON TAPE.              F2202140
       CLA L(1)                                                                 
       STO ATSW                      SET ADDED TAG SWITCH               F2202150
       TSX DRMENT,4                  AND GO TO DRMENT TO                F2202160
       LXD NAMXX,1                   PROCESS ADDED TAGS                 F2202170
       REM SXD NEST84,1              TO DRUM TABLE NAME                 F2202190
       SXD NEST84,1                  TO DRUM TABLE NAME                 F2202190
       LXA NAMXX,1                   ALL ENTRIES                        F2202200
NEST81 TXL NEST84,0                 IN CORE TABLE NAME                  F2202210
NEST82 CLA NAMZ,1                                                       F2202210
       STO E1                                                           F2202220
       CLA NAMZ+1,1                                                     F2202230
       STO E2                                                           F2202240
       CLA NAMKEY                                                       F2202250
       SXD NEST81,1                                                     F2202260
       TSX LIST,4                                                       F2202270
       LXD NEST81,1                                                     F2202280
       TXI NEST84,1,-2                                                  F2202290
NEST84 TXH NEST82,1                                                     F2202300
       LXD ADTXX,1                   TRANSFER                           F2202310
       SXD NEST88,1                  TO DRUM TABLE NAME                 F2202320
       LXA ADTXX,1                   ALL ENTRIESP                       F2202340
NEST85 TXL NEST88,0                 IN CORE TABLE ADTAG                 F2202340
NEST86 CLA ADTAGZ+1,1                EXCEPT                             F2202360
       TMI NEST87                    RESET                              F2202370
       STO E2                        ENTRIES                            F2202380
       CLA ADTAGZ,1                                                     F2202380
       STO E1                                                           F2202390
       PDX 0,2                                                          F2202400
       CLA DOTAGZ,2                                                     F2202410
       STD E1                                                           F2202420
       SXD NEST85,1                                                     F2202430
       CLA NAMKEY                                                       F2202440
       TSX LIST,4                                                       F2202450
       LXD NEST85,1                                                     F2202460
NEST87 TXI NEST88,1,-2                                                  F2202470
NEST88 TXH NEST86,1                                                     F2202480
NST100 LXD DOTAG-1,1                                                    F2202490
       TRA NST120                                                       F2202500
NST110 CLA DOTAGZ+8,1    DOES BIT 20 WD 9 OF THIS DOTAG                 F2202510
       ANA BBIT          EQ 1.                                          F2202530
       TZE NST120        AND                                            F2202530
       CLA DOTAGZ-1,1    DOES BIT 18 WD 9 OF PRIOR DOTAG                F2202550
       ANA ABIT          EQ 1.                                          F2202550
       TNZ NST120                                                       F2202560
       CLA ADDMSK        YES. ERASE DEC WD 9                            F2202570
       ANS DOTAGZ+8,1    OF PRIOR  DOTAG.                               F2202580
NST120 TXI NST130,1,9                                                   F2202590
NST130 TXL NST110,1,441                                                 F2202610
       CLA DOREC                     WRITE                              F2202620
       ADD L(1)                      DOTAG                              F2202630
       STO DOREC                     ON                                 F2202640
       WRS TAPE2                     TAPE TWO.                          F2202660
       LXD L(450),1                  COUNT NR.                          F2202670
NEST90 CPY DOTAGZ,1                  OF NESTS.                          F2202680
       TXI NEST95,1,-1               IN DOREC.                          F2202700
NEST95 TXH NEST90,1                  (DEC HAS DOTAG IX)                 F2202710
       TRA NEST                      RETURN FOR NEXT NEST,              F2202720
DOFOR  LXD XC,1                      OBTAIN                             F2202730
       TXI DOF10,1,9                 NEXT BACK DO,                      F2202740
DOF10  TXH NESTEN,1,450              IF ANY.                            F2202750
       TSX DOINFO,4                  USE DOINFO                         F2202760
       TRA TAG00                     AND GO TO TAG00 ROUT1NE.           F2202770
DOFEND LXD XC,1                      IS A COUNTER                       F2202780
       CLA DOTAGZ+8,1                                                   F2202790
       ANA BIT19                                                        F2202800
       TZE MAKESC                                                       F2202810
       CAL DOTAGZ+5,1                NECESSARY BECAUSE OF               F2202820
       ANA 2BITS                     TRANSFERS OR COMPUTATION WITH      F2202830
       TNZ DOF15                     SYMBOL.                            F2202840
       CLA BIT20                     TEST FOR                           F2202850
       ANA DOTAGZ+6,1                DELTA TWO                          F2202860
       TZE DOF20                     INSERT                             F2202870
DOF15  CLA DOTAGZ+6,1                HAS A COUNTER BEEN                 F2202880
       ANA BITTWO                    FOUND.                             F2202890
       TNZ DOF40                     IF NOT,                            F2202900
       TRA MAKESC                    MAKE ONE. (RETURN IS TO DOF40)     F2202910
DOF20  CLA DOTAGZ+5,1                IF NO COUNTER NECESSARY,           F2202920
       ANA SUBBIT                    HAS SYM OCCURRED WITH              F2202930
       TZE DOF30                     RECON NOT AS TYPE ONE              F2202940
       CLA DOTAGZ+8,1                CARRY. IF SO, HAS A                F2202950
       PDX 0,2                       TEST BEEN FOUND.                   F2202960
       TXH DOF40,2,0                 IF NOT,                            F2202970
       TRA MAKESC                    MAKE A COUNTER (RETURN IS T0 DOF40)F2202980
DOF30  CLA DOTAGZ+8,1                IF SYM HAS NOT OCCURRED WITH       F2202990
       ARS 12                        RELCON OR IN SUCH OCCURRENCES      F2203000
       PDX 0,2                       WAS ALWAYS A TYPE ONE              F2203010
       TXL DOF40,2,11                CARRY, IS CURRECT TEST             F2203020
       CLA BBIT                                                         F2203030
       ORS DOTAGZ+8,1                                                   F2203040
DOF40  CLA DOF50                     MADE. TAKE SIGN AND                F2203030
       ANS DOTAGZ+8,1                TEST TABLE INTEGER OUT             F2203060
       TRA DOFOR                     OF TEST WORD AND EXIT.             F2203070
DOF50  OCT 7777777777                                                   F2203080
MAKESC CLA L(4)                      INITIALIZE                         F2203090
       STO DOSUBS                    DOSUBS AND OTHER LOCATIONS         F2203100
       CLA L(0)                      USED IN 1NS00.                     F2203110
       STO RCSUBS                                                       F2203120
       STO DORC                                                         F2203130
       STO C1                                                           F2203140
       STO CARWRD                                                       F2203150
       CLA NEWTAG                    GET A NAME                         F2203160
       STO TS                        FOR THIS                           F2203170
       ADD L(1)A                     SUBSCRIPT AND                      F2203180
       STO NEWTAG                    UP DATE NEWTAG.                    F2203190
       TSX 1NS00,4                   USE 1NS00 FOR TEST INF0,LIST.      F2203200
       CLA L(6)                      SET UP TAG TAG                     F2203210
       ORA L(4)A                     ENTRY                              F2203220
       ORA CARWRD                                                       F2203230
       SLW E4                                                           F2203240
       CLA TS                                                           F2203250
       STO E3                                                           F2203270
       CLA L(0)                                                         F2203280
       STO E2                                                           F2203290
       CLA XC                                                           F2203300
       ARS 18                                                           F2203310
       ORA ALPHA                                                        F2203320
       STO E1                                                           F2203340
       TSX TAGENT,4                  ENTER INTO TAGTAG.                 F2203350
       LXD XC,1                                                         F2203360
       CLA ABIT                                                         F2203370
       ORS DOTAGZ+8,1                                                   F2203380
       TRA DOF40                     RETURN                             F2203390
DOINFO CLA DOTAGZ,1                  FOR THE DO FORMULA WHOSE           F2203400
       PAX 0,2                       INDEX IS IN XRA,                   F2203410
       ANA DECMSK                    ESTABLISH                          F2203420
       STO ALPHA                     ALPHA,BETA,XC,XL                   F2203430
       PXD 0,2                                                          F2203440
       STO BETA                                                         F2203450
       PXD 0,1                                                          F2203460
       STO XC                                                           F2203470
       CLA DOTAGZ+5,1                                                   F2203480
       ANA DECMSK                                                       F2203490
       STO LC                                                           F2203500
       TRA 1,4                                                          F2203510
TAG00  LXD L(1500,1                  THIS ROUTINE                       F2203520
       TRA TAG20                     SELECTS EVERY TAG                  F2203530
TAG05  CLA FORTZ,1                   IN THE RANGE OF THE                F2203540
       ANA DECMSK                    CURRENT DO WHICH                   F2203550
       CAS ALPHA                     CONTAINS THE SUBSCRIPT             F2203560
       TRA TAG30                     SYMBOL OF THE CURRENT              F2203570
       TSX DIAG,4  DO, AND WHICH HAS NOT      (ERROR. GO TO DIAGNOSTIC.)F2203585
TAG10  TXI TAG20,1,-1                PREVIOUSLY BEEN                    F2203590
TAG20  TXH TAG05,1       PROCESSED, AND    (DEC HAS FORTAG IX)          F2203600
       TRA DOFEND                    COMPLETELY PROCESSES               F2203610
TAG25  LXD TAG40,1                   THE TAG. THE RETURN                F2203620
       TRA TAG10                     IS TO DOFEND                       F2203630
TAG30  CAS BETA                      COMPARE WITH BETA.                 F2203640
TAG40  TXL DOFEND,0      RANGE FINISHED.     (DEC HAS CURR FORTAG IX)   F2203650
       NOP                           IF ENTRY IS NEGATIVE,              F2203660
       CLA FORTZ,1                   THEN IT HAS ALREADY                F2203670
       TMI TAG10                     BEEN PROCESSED.                    F2203680
       ANA ADDMSK                    STORE                              F2203690
       STO TAG                       IN TAG,                            F2203710
       SXD TAG40,1                   AND SAVE INDEX.                    F2203720
       TSX SUBCOM,4                  OBTAIN SUB. COM.                   F2203730
       NOP                                                              F2203745
       TSX IDENT,4                   USE IDENT.                         F2203750
       TRA TAG25                     SC. NOT WANTED.                    F2203760
       TSX NAME,4                    SC. TO BE PROCESSED. USE NAME.     F2203770
       TSX BRANCH,4                                                     F2203780
       TSX SCEND,4                                                      F2203800
       TSX TAGENT,4                                                     F2203810
TAG50  LXD L(5),2                                                       F2203820
TAG52  CLA X1+5,2        ENTER BIT 18 WD 9                              F2203830
       TZE TAG58         OF MATCHING DOTAG                              F2203840
       PDX 0,1           IF 1ST SUBSCR OR                               F2203850
       TXH TAG56,2,4     IF THERE IS NO                                 F2203860
       CLA CR1           TYPE 1 CARRY INTO                              F2203870
       TXH TAG54,2,2     THE 2ND AND 3RD                                F2203880
       ARS 2             SUBSCRS RESPECTIVELY,                          F2203890
TAG54  ANA CARWRD                                                       F2203910
       TNZ TAG58                                                        F2203910
TAG56  CLA ABIT          ENTER BIT 18 WD 9.                             F2203920
       ORS DOTAGZ+8,1                                                   F2203940
TAG58  TIX TAG52,2,2                                                    F2203950
       LXD L(5),4                    TAG 60 SEQUENCE CONCERNS           F2203960
TAG60  CLA X1+5,4                    TESTS AND ADDED TAGS.              F2203970
       TZE TAG68                     FOR EACH INDEXED SUBSCRIPT,        F2203980
       PDX 0,1                       DETERMINE F IRST WHETHER           F2203990
       CLA RCSUBS        OR NOT IT                                      F2204000
       ORA DORC          OCCURS WITH                                    F2204010
       TZE TAG66         A RELCON                                       F2204020
       TXL TAG64,4,1     IF SO, PUT IN                                  F2204030
       CLA CR1           SUBBIT MEANING A TEST                          F2204040
       TXH TAG62,4,3     IS NEEDED UNLESS                               F2204050
       ARS 2             THE 1ST AND 2ND.                               F2204070
TAG62  ANA CARWRD        SUBSCR PROMOTE A                               F2204070
       TNZ TAG68         TYPE ONE CARRY  (LEFT                          F2204080
TAG64  CLA SUBBIT        OR CENTER RESPECTIVELY)                        F2204090
       ORS DOTAGZ+5,1    IS                                             F2204100
TAG65  TXL TAG68,0       NEEDED.                                        F2204110
TAG66  CLA BIT19                                                        F2204120
       ORS DOTAGZ+8,1                                                   F2204130
       CLA DOTAGZ+5,1    IF THE SUBSCRIPT DOES NOT OCCUR                F2204140
       ANA 2BITS         WITH A RELCON, DETERMINE WHETHER OR            F2204160
       TNZ TAG68         NOT A COUNTER hAS ALREAD Y BEEN REQUESTED.     F2204170
       SXD TAG65,4       IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED.     F2204180
       TSX TEST,2        IF NOT, USE ROUTINE TEST.                      F2204190
       LXD TAG65,4       THEN TAKE NEXT INDEXED SUBSCRIPT.              F2204200
TAG68  TIX TAG60,4,2                                                    F2204220
TAG70  LXD TAG40,1                   SET ALL OCCURRANCES                F2204230
TAG72  CLA FORTZ,1                   OF THIS TAG, IN FORTAG,            F2204240
       ANA DECMSK                    IN THE RANGE OF THIS               F2204240
       CAS BETA                      DO, NEGATIVE.                      F2204250
TAG75  TXL TAG25,0                                                      F2204260
       NOP                                                              F2204270
       CLA FORTZ,1                                                      F2204280
       ANA ADDMSK                                                       F2204290
       SUB TAG                                                          F2204300
       TNZ TAG80                                                        F2204310
       CAL L(MZ)                                                        F2204320
       ORS FORTZ,1                                                      F2204330
TAG80  TXI TAG90,1,-1                                                   F2204340
TAG90  TXH TAG72,1  .            (DEC HAS FORTAG IX)                    F2204380
       TRA TAG25                     RETURN FOR NEXT TAG.               F2204370
       REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE                   F2204380
       REM CORRESPONDING SUBSCRIPT COMPINATION FROM THE TAU             F2204390
       REM DRUM AND P0SITIONS IT IN PROPER FORMAT IN STORAGE.           F2204400
SUBCOM SXD SUB085,4                  SAVE LINKAGE INDEX.                F2204410
       LXD SUBORG,1                  INITIALIZE ERROR COUNTER           F2204420
SUB010 RDS TAUDRM                    SELECT TAU DRUM.                   F2204430
       LXD SUBORG+2,4                INITIALIZE                         F2204440
       PXD 0,0                       SUBSCRIPT COMBINATION              F2204450
SUB020 STO C1+8,4                    SPACE                              F2204460
       TIX SUB020,4,1                TO ZERO.                           F2204470
       CLA TAG                       COMPUTE                            F2204480
       LRS 9                         DRUM                               F2204490
       PAX 0,6                       ADDRESS.                           F2204500
       PXD 0,0                       TAU ONE ADD. IS ORG+3TAU.          F2204510
       LLS 9                         TAU TWO ADD. IS ORG+5TAU.          F2204520
       STO SUBES1                    TAU THREE ADD. IS ORG+7TAU         F2204530
       ALS 1                         STORE                              F2204540
       STO SUBES2                    ADDRESS                            F2204550
       CLA SUBORG+3,4                IN SUBES1                          F2204560
       ADD SUBES1                    FOR LDA                            F2204570
SUB030 ADD SUBES2                    INSTRUCTION.                       F2204580
       TIX SUB030,4,1                                                   F2204590
       STA SUBES1                                                       F2204600
       LDA SUBES1                    COPY SUB. COMB.                    F2204610
       CPY C1                        TAU ONE, TWO, THREE                F2204620
       TXL SUB040,2,2                                                   F2204630
       CPY C3                        TAU 3                              F2204640
SUB040 CPY S1                        TAU 1,2,3                          F2204650
       TXL SUB060,2,1                                                   F2204660
       CPY S2                        TAU 2,3                            F2204670
       TXL SUB050,2,2                                                   F2204680
       CPY S3                        TAU 3                              F2204690
SUB050 CPY D1                        TAU 2,3                            F2204700
SUB060 CPY SUBES1                    TAU 1,2,3                          F2204710
       LXD SUBORG,4                  COMPUTE CHECK SUM                  F2204720
       CAL C1                        AND COMPARE WITH                   F2204730
SUB070 ACL C1+7,4                    ENTRY CHECK SUM.                   F2204740
       TIX SUB070,4,1                THREE ATTEMPTS ARE MADE            F2204750
       SLW SUBES2                    T0 READ SC CORRECTLY.              F2204760
       CLA SUBES2                    IF ERROR STILL PRESENT,            F2204770
       SUB SUBES1                    COMPLETE ROUTINE, MAKE.ERROR RET.  F2204780
       TZE SUB075                    CHECK SUMS AGREE, TRA.             F2204790
       TIX SUB010,1,1    CHECK SUMS DISAGREE                            F2204805
PAT03  TSX DIAG,4  IN READING TAU FROM DRUM.   ERROR. GO TO DIAGNOSTIC. F2204815
SUB075 LXD SUBORG+1,4                REARRANGE C1,C2,D1,D2,             F2204820
SUB080 CLA C1+7,4                    TO COMPLY WITH CORE                F2204830
       PAX 0,2                       STORAGE FORMAT.                    F2204840
       ANA DECMSK                                                       F2204850
       STO C1+7,4                                                       F2204860
       PXD 0,2                                                          F2204870
       TNX SUB090,4,6                                                   F2204880
       STO C2                                                           F2204890
SUB085 TXL SUB080,0                                                     F2204900
SUB090 STO D2                                                           F2204910
       LXD SUB085,4                  RESTORE LTNKAGE INDEX,             F2204920
       NOP                                                              F2204935
       TRA 2,4                       A NORMAL RETURN.                   F2204940
SUB100 NOP                                                              F2204955
SUBORG OCT 6001356                  DEC. IS 6, ADD. IS ORG. TAU 3       F2204960
       OCT 7000454                   DEC. IS 7, ADD. IS ORG. TAU 2      F2204970
       OCT 10000000                  DEC. IS 8, ADD. IS ORG. TAU 1      F2204980
SUBES1 HTR                           E.S.                               F2204990
SUBES2 HTR                           E.S.                               F2205000
       REM SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY            F2205010
SCEND  CLA GR0UP                     ALL OF SCEND IS CONCERNED          F2205020
       STO TAG1                      WITH GENERATING THE                F2205030
       CLA DOSUBS                    TAGTAG ENTRY FROM ITS              F2205040
       ORA DUPES                                                        F2205050
       ARS 18                        VARIOUS COMPONENTS.                F2205060
       ORS TAG1                                                         F2205070
       CLA RCSUBS                                                       F2205079
       ORA DORC                                                         F2205080
       ARS 15                                                           F22D5100
       ORS TAG1                                                         F2205110
       CLA DUPES                                                        F2205120
       ARS 9                                                            F2205130
       ORS TAG1                                                         F2205140
       CAL CARWRD                                                       F2205150
       ORS TAG1                                                         F2205160
       LXD L(5),1                                                       F2205170
SCE010 CLA L(1)                                                         F2205180
       CAS C1+5,1                    GENERATES THE THREE BIT            F2205190
       TRA SCE020                    TAG SHOWING WHICH                  F2205200
       TRA SCE020                    COEFFICIENTS ARE GREATER           F2205210
       PXD 0,1                       THAN ONE.                          F2205220
       TXL SCE015,1,1                                                   F2205230
       SUB L(1)                                                         F2205240
SCE015 ARS 6                                                            F2205250
       ORS TAG1                                                         F2205260
SCE020 TIX SCE010,1,2                                                   F2205270
       CLA TAG1                      TAG1 IS NOW COMPLETE.              F2205280
       STO E4                        CONSTRUCT THE TAGTAG               F2205290
       CLA TAG                       ENTRY                              F2205300
       ALS 18                                                           F2205310
       ADD TS                                                           F2205320
       STO E3                                                           F2205330
       CLA X3                                                           F2205340
       ARS 18                                                           F2205350
       ADD X2                                                           F2205360
       STO E2                                                           F2205370
       CLA X1                                                           F2205380
       ARS 18                                                           F2205390
       ADD ALPHA                                                        F2205400
       STO E1                                                           F2205410
       TRA 1,4                                                          F2205420
TEST   CLA DOTAGZ+8,1                IF A SUFFICIENTLY GOOD             F2205430
       TMI 1,2                       TEST PREVIOUSLY FOUND, EXIT.       F2205440
       TIX TEST10,4,1                XRC CONTAINS 5,3,1,                F2205450
TEST10 PXD 0,4                       DEPENDING ON P0SITION NR           F2205460
       ALS 3                         1,2,3. CONSTRUCT A                 F2205470
       ORA GR0UP                     TABLE SEARCH MASK IN               F2205480
       TXL TEST20,4,1                WHICH THE FORTH OCTAL              F2205490
       STO TEST85                    DIGIT IS THE CARRY BIT             F2205500
       CLA CARWRD                    INF0. FOR THE POSITION             F2205510
       ALS 5,4                       BEING CONSIDERED  THE              F2205520
       ANA TEST90                    FIFTH OCTAL DIGIT IS THE           F2205530
       ORA TEST85                    POSITION BIT, AND THE              F2205540
TEST20 LXD TEST35,4                  SIXTH OCTAL DIGIT                  F2205550
TEST30 CAS TESTAB+15,4               IS THE GROUP NUMBER.               F2205560
       TXI TEST40,4,-1               SEARCH TESTAB FOR                  F2205570
TEST35 TXL TEST50,0,15               ENTRY AND CONSIDER                 F2205580
       TXI TEST40,4,-1               C(XRC) AFTER SEARCH, IF            F2205590
TEST40 TXH TEST30,4,0                ENTRY NOT FOUND C(XRC)=0.          F2205600
TEST50 SXD TEST60,4                  COMPARE THIS INTEGER               F2205610
       CLA DOTAGZ+8,1                WITH PREVIOUS.INTEGER,             F2205620
       PDX 0,4                       IF ANY, IF NEW NR. IS LESS         F2205630
       TXL TEST75,4,0                THAN OLD, USE NEW TAG              F2205640
       ARS 12                        FOR TEST. OTHERWISE                F2205650
       PDX 0,4                       USE OLD TAG.                       F2205660
TEST60 TXL TEST80,4        (DEC HAS TEST TAB NR. FOR THIS S C.)         F2205670
TEST70 CLA TEST95                    IF THE NEW TAG IS                  F2205680
       ANS DOTAGZ+8,1                USED, AND C(XRC)                   F2115690
TEST75 LXD TEST60,4                  AFTER SEARCH WAS ZERO,             F2205700
       PXD 0,4                       SET DOTAGZ+8 WORD                  F2205710
       ARS 6                         NEGATIVE.                          F2205720
       ORA TS                                                           F2205730
       ALS 18                                                           F2205740
       ORS DOTAGZ+8,1                                                   F2205750
       TXH TEST80,4,0                                                   F2205760
       CAL L(MZ)                                                        F2205770
       ORS DOTAGZ+8,1                                                   F2205780
TEST80 TRA 1,2                                                          F2205790
TEST85 HTR               STORAGE FOR COMPOSED TST WORD.                 F2205800
TEST90 OCT 300000000     BITS 10, 11          )-.  - -.                 F2205810
TEST95 OCT 777777                                                       F2205820
TESTAB OCT 241000000     FIRST SIGNIF DIGIT CONTAINS                    F2205830
       OCT 221000000     A TWO IF TYPE ONE CARRY ,                      F2205840
       OCT 244000000     ONE IF TYPE TWO FROM LEFT OR                   F2205850
       OCT 222000000     CENTER. (4TH OCT DIG). NEXT                    F2205860
       OCT 141000000     HAS 4 IF POSIT OF SUBSC IS                     F2205870
       OCT 121000000     LEFT, 2 IF CENTER, 0 IF RIGHT                  F2205880
       OCT 144000000     (5TH OCT DIGIT).   FINAL DIG HAS               F2205890
       OCT 122000000     GR0UP NR. (6TH OCT DIG).                       F2205900
       OCT 45000000                                                     F2205910
       OCT 41000000                                                     F2205920
       OCT 21000000                                                     F2205930
       OCT 44000000                                                     F2205940
       OCT 22000000                                                     F2205950
       OCT 43000000                                                     F2205960
       OCT 23000000                                                     F2205970
CARRY  SXD CAR05,4                   SAVE LINKAGE                       F2205980
       CLA X1+4,2                    PUT LEFT INDEX                     F2205990
       PDX 0,1                       IN XRA                             F2206000
       CLA X1+6,2                    PUT RIGHT INDEX                    F2206010
       PDX 0,4                       IN XRC                             F2206020
       CLA DOTAGZ+5,1                TEST LEFS SUB. DO                  F2206030
       ANA CARMSK                    CARRY BITS.                        F2206040
       TZE CAR30                     EXIT IF NO CARRY.                  F2206050
       CLA DOTAGZ+6,1                COMPARE                            F2206060
       ANA DECMSK                    NO CARRY TRA LEVEL                 F2206070
       CAS LL                        AND LOW LEVEL.                     F2206080
       TRA CAR30                     EXIT                               F2206090
CAR05  TXL CAR30,0                                                      F2206100
       CLA DOTAGZ+5,1                COMPUTE FOR LEFT                   F2206110
       ANA ADDMSK                    SUBSCRIPT THE QUANTITY             F2206120
       STO CAR40                     C*X (COEF. TIMES ADDED             F2206130
       LDQ CAR40                     VALUE).                            F2206140
       MPY C1+4,2                    COMPUTE FOR RIGHT                  F2206150
       STQ CAR40                     SUBSCRIPT THE QUANTITY             F2206160
       LDQ D1                        C*N3*D(L) (O0EF.TIMES              F2206170
       TXH CAR10,2,2                 INCREMENT TIMES DIM. OF            F2206180
       LDQ D2                        LEFT SUBSCR1PT.                    F2206190
CAR10  MPY DOTAGZ+4,4                IF THESE QUANTIT1ES                F2206200
       MPY C1+6,2                    ARE UNEQUAL,                       F2206210
       ALS 17                        EXIT                               F2206220
       SUB CAR40                                                        F2206230
       TNZ CAR30                     OBTAIN LEFT                        F2206240
       CLA DOTAGZ+5,1                SUB. DOTAG                         F2206250
       ANA CARMSK                    CARRY BITS AGAIN.                  F2206260
       ARS 15                        TEST FOR                           F2206270
       LBT                           CARRY TYPE 0NE                     F2206280
       TRA CAR15                     OR CARRY TYPE                      F2206290
       CLA CR1                       TWO.                               F2206300
       TRA CAR20                     OBTAIN PROPER                      F2206310
CAR15  CLA CR2                       TAGTAG CARRY BIT,                  F2206320
CAR20  TXH CAR25,2,2                 SHIFT IF NECESSARY FOR             F2206330
       ARS 2                         CENTER SUB. AND                    F2206340
CAR25  ORS CARWRD                    PLACE IN CARWRD.                   F2206350
CAR30  LXD CAR05,4                   EXIT                               F2206I60
       TRA 1,4                                                          F2206370
CAR40  HTR                           E.S.                               F2206380
LIST   SXD LIST40,4          SAVE LINKAGE                               F2206400
       PDX 0,1                       PUT INDEX QUANTITY IN XRA          F2206410
       PAX 0,6                       PUT NR. OF WDS IN XRB,XRC.         F2206420
       ADD LIST50                    COMPUTE NR, OF WRDS                F2206430
       STA LIST30                    PLUS ORIGIN EI AND                 F2206440
       STA LIST20                    INITIALIZE ADDRESSES.              F22064S0
       CLA LADDIN+5,1                TEST                               F2206460
       ARS 18                        FOR                                F2206470
       SUB LADDS+5,1                 FULL                               F2206480
       TNZ LIST10                    TABLE.                             F2206490
       TSX BURNCE,4          DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG.    F2206505
LIST10 PXD 0,0                       ZERO IN ACC.                       F2206510
LIST20 ACL 0,2                       COMPUTE                            F2206520
       TIX LIST20,2,1                ENTRY                              F2206530
       WRS ADRUM             SELECT DRUMF                               F2206535
       SLW LIST60                    CHECK SUM.                         F2206540
       LDA LADDS+5,1                 COPY                               F2206550
LIST30 CPY 0,4                       ENTRY                              F2206560
       TIX LIST30,4,1                AND                                F2206570
       CPY LIST60                    CHECK SUM.                         F2206580
       CLA LADDS+5,1                 COMPUTE                            F2206590
       ADD TSXC0M+5,1                NEXT                               F2206600
       ADD L(1)A                     ENTRY                              F2206610
       ANA ADDMSK                    ADDRESS.                           F2206620
       STO LADDS+5,1                                                    F2206630
       LXD LIST40,4                  EXIT                               F2206640
       TRA 1,4                                                          F2206650
LIST40 HTR                           E.S.                               F2206660
LIST50 HTR E1                        L(E1)                              F2206670
LIST60 HTR                           E.S.                               F2206680
       REM F0UR WORD ENTRY BLOCK                                        F2206690
E1     HTR                                                              F2206700
E2     HTR                                                              F2206710
E3     HTR                                                              F2206720
E4     HTR                                                              F2206730
       REM FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2206740
TSXC0M HTR 2,0,5         ACC KEY WORD WHEN TSX TO LIST.                 F2206750
TRASTO HTR 3,0,4         (ADD DOES NOT INCL CHECK SUM)                  F2206760
NAMKEY HTR 2,0,3                                                        F2206770
CHATAG HTR 2,0,2                                                        F2206780
DRMTAG HTR 4,0,1         (ADTAG)                                        F2206790
       REM FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.  F2206800
LADDS  HTR               TSXC0M   - ADD OF LADDIN - LAST PLUS 1         F2206810
       HTR               TRASTO                                         F2206820
       HTR               NAMKEY                                         F2206830
       HTR               CHATAG                                         F2206840
       HTR               DRMTAG                                         F2206850
       REM FIVE WORDS, C(ADD)=ORIGIN, C(DEC)=LAST TABLE LOC. PLUS ONE   F2206860
LADDIN HTR 706,0,1006                TSXCOM                             F2206870
       HTR 304,0,704                 TRASTO                             F2206880
       HTR 1008,0,1458               NAMKEY                             F2206890
       HTR 2,0,302                   CHATAG                             F2206900
       HTR 1460,0,1960               DRMTAG                             F2206910
BRANCH SXD BRA45,4                   IF THERE ARE RELCONS               F2206920
       CLA NRRC                      (NOT DORC) IN THE SC,              F2206930
       TZE BRA10                     USE                                F2206940
       TSX RELCON,4                  RELCON.                            F2206950
BRA10  LXD NRDS,1                    THIS ROUTINE                       F2206960
       TXH BRA30,1,1                 CONDENSES                          F2206970
BRA20  TSX 1NS00,4                   DUPLICATE                          F2206980
       TRA BRA90                     SUBSCRIPTS                         F2206990
BRA30  TXH BRA50,1,2                 AND                                F2207000
       CLA DUPES                     TRANSFERS                          F2207010
       TNZ BRA20                     TO                                 F2207020
BRA40  TSX 2NS00,4                   ROUTINES                           F2207030
BRA45  TXL BRA90,0                   1NS00, 2NS00, 3NS00                F2207040
BRA50  LXD DUPES,4                   AFTER                              F2207050
       TXH BRA20,4,6                 PROCESSING,                        F2207060
       TXL BRA80,4,0                 RETURN                             F2207070
       TXH BRA60,4,5                 IS TO                              F2207080
       TXL BRA60,4,3                 DRMENT OR                          F2207090
       CLA L(3)                      TAG00                              F2207100
       TRA BRA70                                                        F2207110
BRA60  CLA L(5)                                                         F2207120
BRA70  STO DOSUBS                                                       F2207130
       TRA BRA40                                                        F2207140
BRA80  TSX 3NS00,4                                                      F2207150
BRA90  LXD BRA45,4                                                      F2207160
       TRA 1,4                                                          F2207170
RSR    SXD RSR20,4                   SAVE LINKAGE                       F2207180
       SXD RSR30,1                   SAVE INDEX                         F2207190
       CLA DOTAGZ+6,1                HAS COUNTER ADJUSTMENT             F2207200
       ANA BIT18                     INSTRUCTION BEEN ENTERED.          F2207210
       TNZ RSR10                     IF SO, GO TO RSR10                 F2207220
       CLA BIT18                     IF NOT, ENTER IN                   F2207230
       ORS DOTAGZ+6,1                TRASTO AN ENTRY TO CAUSE           F2207240
       CLA DOTAGZ,1                  THE COUNTER TO BE                  F2207250
       SSM                                                              F2207260
       STO E1                        DECREASED BY N1, WHICH             F2207270
       CLA DOTAGZ+5,1                WILL MAKE IT USEFUL AS             F2207280
       ANA DECMSK                    AS A RESET SUB. COMB.              F2207290
       ARS 18                                                           F2207300
       STO E2                                                           F2207310
       CLA DOTAGZ+8,1                                                   F2207320
       ANA DECMSK                                                       F2207330
       ORA DOTAGZ+2,1                                                   F2207340
       STO E3                                                           F2207350
       CLA TRASTO                                                       F2207360
       TSX LIST,4                                                       F2207370
RSR10  LXD RSR30,1                   ENTER IN TRASTO                    F2207380
       CLA DOTAGZ+8,1                AN ENTRY T0 CAUSE                  F2207390
       ANA DECMSK                    THE TAG UNDER                      F2207400
       ORA TS                        CONSIDERATION                      F2207410
       SSM                                                              F2207420
       STO E3                        TO BE RESET                        F2207430
       CLA TL2                       BY THE ADJUSTED                    F2207440
       ARS 18                        COUNTER AT THE                     F2207450
       ORA TL1                       PROPER TIMES.                      F2207460
       STO E2                                                           F2207470
       CLA DOTAGZ,1                                                     F2207480
       STO E1                                                           F2207490
       CLA TRASTO                                                       F2207500
       TSX LIST,4                                                       F2207510
       LXD RSR20,4                                                      F2207520
       TRA 1,4                                                          F2207530
RSR20  HTR                                                              F2207540
RSR30  HTR                                                              F2207550
DRMENT SXD DRM05,4                   THIS ROUTINE                       F2207560
       LXD ADTXX,2                   PROCESSES THE                      F2207570
       SXD DRM20,2                   ADDED TAG TABLE                    F2207580
       LXA ADTXX,2                                                      F2207590
DRM05  TXL DRM20,0                                                      F2207600
DRM10  CLA ADTAGZ,2                  OBTAIN FIRST ENTRY WORD.           F2207610
       PDX 0,1                       PUT INDEX IN XRA.                  F2207620
       ANA ADDMSK                    STORE TAG                          F2207630
       STO TAG                       IN TAG                             F2207640
       STO TS                        AND TS                             F2207650
       PXD 0,1                       PUT INDEX                          F2207660
       STO XC                        IN XC                              F2207670
       SXD DRM30,2                   SAVE INDEX B.                      F2207680
       CLA ADTAGZ+1,2                OBTAIN WORD TWO.                   F2207690
       TMI DRM40                     TRA IF RESET ENTRY.                F2207700
       STO TS                        SAVE NAME IN TS.                   F2207710
       TSX DOINFO,4                  USE DOINFO                         F2207720
       TSX SUBCOM,4                  AND                                F2207730
       NOP               OTHER                                          F2207745
       TSX IDENT,4                   ROUTINES                           F2207750
       TSX DIAG,4  IN ORDER TO                (ERROR. GO TO DIAGNOSTIC.)F2207765
       TSX BRANCH,4                  PROCESS                            F2207770
       TSX SCEND,4                   ENTRY.                             F2207780
       CLA DRMTAG                                                       F2207790
       TSX LIST,4                    ENTER RESULT IN DRMTAG.            F2207800
DRM15  LXD DRM30,2                                                      F2207810
       TXI DRM20,2,-2                                                   F2207820
DRM20  TXH DRM10,2                                                      F2207830
       LXD DRM05,4                                                      F2207840
       TRA 1,4                                                          F2207850
DRM30  HTR                                                              F2207860
DRM40  PAX 0,4                       FOR RESET ENTRY,                   F2207870
       ANA DECMSK                    INITIALIZE CELLS                   F2207880
       STO TL1                       USED IN RSR ROUTINE.               F2207890
       PXD 0,4                                                          F2207900
       STO TL2                                                          F2207910
       TSX RSR,4                                                        F2207920
       TRA DRM15                     TRA FOR NEXT ENTRY.                F2207930
       REM SUBROUTINE TAGADD                                            F2207940
TAGADD TXH TAGAD1,2,0    C(IRB) EQ 1 IF NORMAL ADTAG                    F2207950
       PXD 0,1                                                          F2207960
TAGAD1 LXD ADTXX,1                                                      F2207970
       TXL TAGAD6,1,0                                                   F2207980
       TXH TAGAD8,2,0                XRB=1,NORMAL ADDED TAG             F2207990
       ADD TAG                                                          F2208000
       STO ADTAGZ,1                                                     F2208010
       CLA NEWTAG                                                       F2208020
       LDQ NEWTAG                                                       F2208030
       STO ADTAGZ+1,1                                                   F2208040
       ADD L(1)A                                                        F2208050
       STO NEWTAG                                                       F2208060
       TXI TAGAD2,1,-2                                                  F2208070
TAGAD2 SXD ADTXX,1                                                      F2208080
TAGAD3 TRA 1,4                                                          F2208088
TAGAD6 TSX DIAG,4  TABLE WILL NOT HOLD ENTRY.  ERROR. GO TO DIAGNOSTIC. F2208093
TAGAD8 STO ADTAGZ,1                                                     F2208110
       STQ ADTAGZ+1,1                                                   F2208120
       TXI TAGAD2,1,-2                                                  F2208130
       REM SUBROUTINE SPC000                                            F2208140
SPC000 SXD SPC115,1                  SAVE INDEX OF DO TO BE SEARCHED.   F2208150
       SXD SPC060,2                  SAVE TINFOR,LIST INDICATOR         F2208160
       SXD SPC105,4                  SAVE TSX INDEX.                    F2208170
       STO SPCKEY                    SAVE LIST KEY WORD                 F2208180
       CLA DOTAGZ+5,1                OBTAIN L WORD                      F2208190
       STD SPC050                    INITIALIZE TEST INSTR.             F2208200
       CLA DOTAGZ,1                  OBTAIN ALPHABETA WRD,              F2208210
       PAX 0,2                       SAVE BETA,                         F2208220
       ANA DECMSK                    OBTAIN ALPHA ALONE                 F2208230
       STO NEXTA                     STO IN NEXTA                       F2208240
       STO A                         AND STORE IN A.                    F2208250
       PXD 0,2                       PUT BETA IN LASTB AND              F2208260
       STO LASTB                     BETING SEARCH FOR R2               F2208270
SPC010 LXD SPC115,1                  OBTAIN CURRENT INDEX AND           F2208280
SPC020 TXI SPC040,1,-9               GO DOWN ONE DO,IF POSSIBLE,ELSE    F2208290
SPC040 TXL SPC110,1                  GO TO SET UP LAST INTERVAL.        F2208300
       CLA DOTAGZ+5,1                TEST WHETHER OR NOT THIS DO        F2208310
       PDX 0,2                       IS IN RANGE OF R1(DXL)             F2208320
SPC050 TXL SPC110,2                  IF NOT,EXIT FOR LAST 1NTERVAL,     F2208330
       CLA DOTAGZ+1,1                IF IN R1,IS THIS DO TO BE          F2208340
       SUB RSYM1                     SKIPPED. IF NOT,GO BACK TO         F2208350
       TZE SPC053                    GET NEXT DO.                       F2208360
       CLA DOTAGZ+1,1                                                   F2208370
       SUB RSYM2                                                        F2208380
       TNZ SPC020                                                       F2208390
SPC053 CLA DOTAGZ,1                  R2 FOUND,ARRANGE TO SKIP THIS      F2208400
       PAX 0,2                       INTERVAL. USE ALPHA OF R2          F2208410
       ANA DECMSK                    AS B,PUT BETA OF R2 IN             F2208420
       STO B                         NEXTA.                             F2208430
       PXD 0,2                       DO FORMULAS WITHIN R2 ARE          F2208440
       STO NEXTA                     ACCOUNTED FOR AFTER SEARCH.        F2208450
       SXD SPC115,1                  SAVE INDEX OF R2.                  F2208460
SPC055 LXD SPC060,2                  PUT TINFOR, LIST IND. IN XRB       F2208470
SPC058 CLA A                         FOR                                F2208480
       SUB B                         NON EMPTY                          F2208490
       TZE SPC065                    INTERVALS,                         F2208500
       TXL SPCTIN,2,1                GO TO ARRANGE TINFOR SEARCH, OR    F2208510
SPC060 TXL SPCSTO,0                 TRA TO USE LIST.                    F2208520
SPC065 LXD SPC060,2                  RETURN HERE,TEST TINFOR            F2208530
       TXL SPC120,2,0                LIST IND. IF ZERO, EXIT.           F2208540
SPC070 LXD SPC115,1                  TO SET UP NEXT INTERVAL,           F2208550
       CLA DOTAGZ+5,1                OBTAIN INDEX OF LAST R2 AND        F2208560
       STD SPC100                    STEP DOWN IN DOTAG BY USUAL        F2208570
SPC080 TXI SPC090,1,-9               PROCEDURE UNTIL SOME DO IS         F2208580
SPC090 TXL SPC110,1                  FOUND NOT IN R2,OR UNTIL           F2208590
       CLA DOTAGZ+5,1                DOTAG EXHAUSTED. IF DO FOUND       F2208600
       PDX 0,2                       NOT IN R2,SET A AND GO TO TEST     F2208610
SPC100 TXH SPC080,2                  IF THIS DO IS IN R1.               F2208620
       CLA NEXTA                     IF IT IS,NEWR2 WILL BE FOUND       F2208630
       STO A                         OR EXIT MADE T0 SPC110.            F2208640
SPC105 TXL SPC050,0                                                     F2208650
SPC110 CLA NEXTA                     THIS IS SETUP FOR LAST             F2208660
       STO A                         INTERVAL. FOR A,USE                F2208670
       CLA LASTB                     CONTENTS OF NEXTA. FOR B,          F2208680
       STO B                         USE BETA OF R1,FOUND IN            F2208690
       LXD SPC060,2                  LASTB. OBTAIN TINFOR,STOTAG        F2208700
       CLA L(0)                      IND,AND SET LOCATION OF            F2208710
       STD SPC060                    INDICATOR TO ZERO. GO TO           F2208720
SPC115 TXL SPC058,0                  TINFOR OR TRASTO.                  F2208730
SPC120 LXD SPC105,4                  EXIT,ALL STORES DONE,OR,           F2208740
       TRA 1,4                       SEARCH MADE,T NOT FOUND.           F2208750
SPC130 LXD SPC105,4                  EXIT,T FOUND                       F2208760
       TRA 2,4                       IN SOME INTERVAL                   F2208770
SPCTIN TSX TINFXX,4                  GO TO SEARCH FORTAG                F2208780
       TRA SPC130                    T FOUND                            F2208790
       TRA SPC065                    T NOT FOUND                        F2208800
SPCSTO CLA B                         FOR TRASTO,E2 AND E3 ARE           F2208810
       ARS 18                        ALREADY SET UP. COLLECT            F2208820
       ADD A                         A AND B INTO E1 WORD,              F2208830
       STO E1                        PUT TRASTO INDICATOR IN            F2208840
       CLA SPCKEY                    ACC. AND                           F2208850
       TSX LIST,4                    TSX TO LISTING ROUTINE.            F2208860
       TRA SPC065                    ON RETURN,GO TO TEST FINISH.       F2208870
SPCKEY HTR                           STORAGE FOR TABLEKEY               F2208880
       REM SUBROUTINES TINFOR AND TINFXX                                F2208890
TINFOR CLA DOTAGZ,1                  C(XRA)=INDEX OF DR TO BE           F2208900
       PAX 0,1                       SEARCHED, SEPARATE ALPHA           F2208910
       ANA DECMSK                    AND BETA                           F22D8920
       STO A                         AND STORE IN A                     F2208930
       PXD 0,1                                                          F2208940
       STO B                         B                                  F2208950
TINFXX LXD L(1500,1                  PUT MAX FORTAG INDEX IN XRA        F2208960
TINF10 CLA FORTZ,1                   OBTAIN FORTAG ENTRY                F2208970
       ANA DECMSK                    RETAIN FORMULA NUMBER ONLY         F2208980
       CAS A                         COMPARE ALPHA AND FORMULA NR.      F2208990
       TRA TINF40                    FOR. NR. GREATER THAN ALPHA. TRA.  F2209000
       NOP                           C(A) MAY BE SOME BETA FROM SPC     F2209010
TINF20 TXI TINF30,1,-1               FOR.NR. LESS THAN ALPHA. GO        F2209020
       REM                           BACK FOR NEXT FORTAG ENTRY         F2209030
TINF30 TXH TINF10,1                  IF POSSIBLE. OTHERWISE,            F2209040
       TRA 2,4                       RETURN T0 CALLING INSTR PLUS TWO.  F2209050
TINF40 CAS B                         COMPARE FOR. NR. WITH BETA         F2209060
       TRA 2,4                       FOR. NR. GREATER THAN BETA,EXIT,   F2209070
       NOP                           FOR. NR. EQUAL TO OR               F2209080
       CLA FORTZ,1                   LESS THAN BETA,OBTAIN FORTAG       F2209090
       TPL TINF20                    TAG AND COMPARE WITH SEARCH TAG.   F2209100
       ANA ADDMSK                    I.F. NOT EQUAL,GO BACK FOR NEXT TAGF2209110
       SUB TAG                                                          F2209120
       TNZ TINF20                    IF EQUAL,RETURN TO CALLING         F2209130
       TRA 1,4                                                          F2209140
       REM INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG    F2209150
       REM FOUND                                                        F2209160
       REM SUBROUTINE TRAWRD                                            F2209170
TRAWRD SXD TRAW65,4                                                     F2209180
       CLA L(0)                                                         F2209190
       STO TRABIT                                                       F2209200
       CLA DOTAGZ+5,1                                                   F2209210
       STD TRAW30                                                       F2209220
TRAW10 CLA DOTAGZ+7,1                OBTAIN T2 WORD                     F2209230
       ORS TRABIT                    OR INTO TRABIT                     F2209240
       TXI TRAW20,1,-9               TAKE NEXT DO                       F2209250
TRAW20 TXL TRAW70,1      IF NONE, EXIT.  (DEC HAS DOTAG IX)             F2209260
       CLA DOTAGZ+5,1                OBTAIN L WORD                      F2209270
       PDX 0,4                       PUT L IN XRC.                      F2209280
TRAW30 TXL TRAW70,4                  EXIT IF DO IS NOT IN RANGE R1      F2209290
       TXL TRAW10,2,1                IF COMPLETE TEST,G0 BACK           F2209300
TRAW35 CLA DOTAGZ+1,1                IF INCOMPLETE TEST,IS THIS A       F2209310
       SUB RSYM2                     DO TO BE SKIPPED                   F2209320
       TNZ TRAW10                    IF NOT, GO 8ACK                    F2209330
       CLA DOTAGZ+5,1                THIS DO IS TO BE SKIPPED           F2209340
       STD TRAW60                    PUT LEVEL OF THIS DO IN TEST INSTR.F2209350
TRAW40 TXI TRAW50,1,-9               TAKE NEXT DO IF ANY                F2209360
TRAW50 TXL TRAW70,1      IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX)    F2209370
       CLA DOTAGZ+5,1                OBTAIN L WORD                      F2209380
       PDX 0,4                       PUT L IN XRC                       F2209390
TRAW60 TXH TRAW40,4                  IF DO IS IN RANGE OF R2,GO BACK    F2209400
TRAW65 TXL TRAW30,0                  OTHERWISE,GO TO TRAW30             F2209410
TRAW70 LXD TRAW65,4                                                     F2209420
       CLA L(36)                     OBTAIN 36 IN DECREMENT             F2209430
       SUB TL2                       36-TL2                             F2209440
       ARS 18                        IN ADDRESS                         F2209450
       STA TRAW90                    INITIALIZE SHIFT                   F2209460
       CLA TL2                       OBTAIN TL2                         F2209470
       SUB TL1                       TL2-TL1                            F2209480
       ARS 18                        IN ADDRESS                         F2209490
       STA TRAW80                    INITIALIZE SHIFT                   F2209500
       CLA L(0)                      ACC CONTAINS ZERO                  F2209510
       LDQ 35ONES                    MQ CONTAINS ALL ONES               F2209520
TRAW80 LLS                           PUT TL2-TL1 ONES-IN-ACC            F2209530
TRAW90 ALS                           POSITION ONES IN ACC               F2209540
       ANA TRABIT                    AND IN TRANSFER BITS               F2209550
       TRA 1,4                       GO BACK TO CALLING INSTR PLUS ONE. F2209560
       REM SUBROUTINES TAGENT AND TETAPE                                F2209570
TAGENT LXD TAGXX,1                   THIS ROUTINE ENTERS                F2209580
       TXH TE10,1,0                  ONE ENTRY IN TAGZ,                 F2209590
       TSX TETAPE,2                  IF POSSIBLE. IF NOT,               F2209600
TE10   LXD L(4),2                    TRA TO TETAPE.                     F2209610
TE20   CLA E1+4,2                                                       F2209620
       STO TAGZ,1                                                       F2209630
       TXI TE30,1,-1                                                    F2209640
TE30   TIX TE20,2,1                                                     F2209650
       SXD TAGXX,1                                                      F2209660
       TRA 1,4                                                          F2209670
TETAPE WRS ATAPE                     THIS ROUTINE                       F2209680
       LXD TAGXX,1                   ENTERS ALL THE VALID               F2209690
       SXD TE50,1                    ENTRIES IN TAGZ ON                 F2209700
       LXA TAGXX,1                   THE TAPE                           F2209710
TE40   CPY TAGZ,1                    THE LAST ENTRY ON TAPE             F2209720
       TXI TE50,1,-1                 AFTER EACH NEST IS                 F2209730
TE50   TXH TE40,1                    AN ENTRY OF 4 WDS OF 35 ONES       F2209740
       LXA TAGXX,1                                                      F2209750
       SXD TAGXX,1                                                      F2209760
       TRA 1,2                                                          F2209770
       REM ROUTINE RELCON PINGPONGS INSTRUCTIONS                        F2209780
RELCON LXD L(2),2                    INITIALIZE SWITCH                  F2209790
REL10  LXD L(5),4        INITIALIZE ERROR COUNTER.                      F2209805
REL20  LXD RELWDS,1                  PUT NR OF DRM WDS IN XRA           F2209810
       RDS PPDRM                     LOCATE DRUM ADDRESS                F2209820
       LDA RELDRA+2,2                LOCATE PROPER DRM ADDRESS          F2209830
REL30  CPY CORESZ,1                  READ STATE B, OR A, INTO           F2209840
       TIX REL30,1,1                 STORAGE                            F2209850
       LXD RELWDS,1                  LOAD XRA WITH NR OF DRM WDS        F2209860
       PXD 0,0                      COMPUTE                             F2209870
REL40  ACL CORESZ,1                  CHECK                              F2209880
       TIX REL40,1,1                 SUM                                F2209890
       SLW REL80                     AND                                F2209900
       CLA REL80                     COMPARE.                           F2209910
       SUB RELCS+2,2                 IF NOT ZERO,                       F2209920
       TNZ REL70                     GO TO ERROR ROUTINE.               F2209930
REL50  TXL BRA10,2,1                 IF STATE A, RETURN-TO BRANCH.      F2209940
REL60  TXL CORES,0                  AND TRA TO REL ROUTINE              F2209950
RELEND LXD L(1),2                                                       F2209960
       TRA REL10                     GO TO READ IN STATE A.             F2209970
REL70  TIX REL20,4,1                 COUNT IN ERROR COUNTER AND RETURN  F2209980
       TSX DIAG,4  DRUM READ                   ERROR. GO TO DIAGNOSTIC. F2209995
REL80  HTR                           E.S.                               F2210000
RELCS  OCT 103075525444  CHECK SUM, STATE B, RELCON                     F2210014
       OCT -246744643200 CHECK SUM STATE A, NORMAL                      F2210024
RELDRA OCT 1000                      DRUM ADDRESS, STATE B.             F2210030
       OCT 1000000000                NR. WDS, DRUM ADDRESS.STATE A.     F2210040
       ORG 2934                                                         F2210050
       REM    MASTER RECORD CARD = FN032                                F2210055
IDENT  SXD ID075,4                   SAVE INDEX                         F2210060
       LXD L(20),1                   INITIALIZE IDENT STORAGE.          F2210070
       CLA L(0)                      TO ZERO                            F2210080
       STO IDES                                                         F2210090
ID010  STO X1+20,1                                                      F2210100
       TIX ID010,1,1                                                    F2210110
       CLA 35ONES                    INITIALIZE                         F2210120
       STO LL                        LOW LEVEL                          F2210130
       LXD L(0),2                    COUNT THE SUBSCRIPT                F2210140
       LXD L(5),4                    SYMBOLS.                           F2210150
ID020  CLA S1+5,4                    STORE COUNT IN                     F2210160
       TZE ID030                     NRSUBS, AND ALSO IN                F2210170
       TXI ID030,2,1                 NRRC, WHICH IS THE.                F2210180
ID030  TIX ID020,4,2                 COUNT OF REL. CON.                 F2210190
       PXD 0,2                       SUBSCRIPTS. DO SUBS ARE            F2210200
       STO NRRC                      SUBTRACTED OUT LATER.              F2210210
       STO NRSUBS                                                       F2210220
       LXD XC,1                      COMPARE EACH SYMBOL                F2210230
       LXD LC,2                      IN THE SUB. COMB. WITH             F2210240
       PSE TL                        THE SYMBOL OF EACH                 F2210250
ID050  CLA DOTAGZ+1,1                DO IN THE SUB NEST.                F2210260
       LXD L(5),4                    WHEN EQUALITY IS                   F2210270
ID060  CAS S1+5,4                    FOUND, GO TO ID120.                F2210280
       TRA ID070                     IF THE CURRENT DO                  F2210290
       TRA ID120                     SYMBOL IS NOT FOUND,               F2210300
ID070  TIX ID060,4,2                 MAKE EXIT FROM ID410               F2210310
       MSE TL                                                           F2210320
       TRA ID080                                                        F2210330
ID075  TXL ID410,0                                                      F2210340
ID080  TXL ID150,2,1                 THESE INSTRUCTIONS                 F2210350
ID090  TXI ID100,1,9                 FIND THE NEXT BACK                 F2210360
ID100  CLA DOTAGZ+5,1                SUB NEST DO FORMULA,               F2210370
       STD ID110                     AND RETURN CONTROL                 F2210380
ID110  TXL ID090,2                   TO ID050.                          F2210390
       PDX 0,2                                                          F2210400
       TRA ID050                                                        F2210410
ID120  MSE TL                        TURN OFF TEST LIGHT                F2210420
       NOP                           AND                                F2210430
       PXD 0,1                       ESTABLISH                          F2210440
       STO X1+5,4                    INDEX                              F2210450
       PXD 0,2                       AND                                F2210460
       STO L1+5,4                    LEVEL FOR THIS SUBSCRIPT.          F2210470
       CLA NRRC                      SUBTRACT ONE FROM                  F2210480
       SUB L(1)                      NRRC. THIS WORD                    F2210490
       STO NRRC                      CONTAINS INITIALLY                 F2210500
       TZE ID150                     THE NUMBER OF                      F2210510
       CLA DOTAGZ+1,1                SUBSCRIPTS IN THE                  F2210520
       TRA ID070                     COMBINATION.                       F2210530
ID150  IOD                             THIS - EDRECN0 FN 265001 P463    F2210540
       CLA X1                          ROUTINE        FN265002          F2210550
       LDQ X2                          LOOKS FOR THE                    F2210560
       TLQ PT041                       OUTERM0ST                        F2210570
       CLA X2                          DOTAG                            F2210580
 PT041 LDQ X3                          OF A                             F2210590
       TLQ PT042                       SUBSCRIPT                        F2210600
       CLA X3                          COMBINATION.                     F2210610
 PT042 STO PT043                                                        F2210620
       LXD L(6),4                                                       F2210630
       LXD L(3),3                                                       F2210640
       TRA ID160                       RETURN                           F2210650
 PT043 HTR                                                              F2210660
ID160  CLA S1+3,1                    WHICH CAN BE ASSIGNED              F2210670
       TZE ID170                     HAVE BEEN ASSIGNED.                F2210680
       SUB S1+5,2                    THIS                               F2210690
       TNZ ID170                     ROUTINE                            F2210700
       PXD 0,4                       MAKES UP THE                       F2210710
       ORS DUPES                     DUPLICATE                          F2210720
ID170  TIX ID180,4,1                 SUBSCRIPT                          F2210730
ID180  TIX ID160,2,2                 WORD.                              F2210740
       TIX ID190,4,1                                                    F2210750
ID190  TIX ID160,1,2                                                    F2210760
       LXD NRRC,2                    IF THERE IS MORE                   F2210770
       TXL ID300,2,0                 THAN ONE RELCON,                   F2210780
       TXL ID195,2,1                 AND IF THERE ARE                   F2210790
       CLA DUPES                     DUPLICATES, THEN THE               F2210800
       STO RCDUP                     RELCONS ARE DUPLICATES.            F2210810
       CLA L(0)                      OTHERWISE, THE DOSUBS              F2210820
       STO DUPES                     ARE DUPLICATES.                    F2210830
ID195  LXD L(5),4                    IF THERE ARE RELCONS,              F2210840
ID200  CLA L1+5,4                    THERE ARE NOT MORE                 F2210850
       TNZ ID210                     THAN TWO.                          F2210860
       CLA S1+5,4                    PUT THEIR SYMBOLS                  F2210870
       TZE ID210                     IN PSYM1 AND RSYM2,                F2210880
       PXD 0,4                       AND PUT BITS IN THE                F2210890
       TXL ID205,4,1                 PROPER POSITIONS OF                F2210900
       SUB L(1)                      RCSUBS.                            F2210910
ID205  ORS RCSUBS                                                       F2210920
       CLA S1+5,4                                                       F2210930
       TNX ID220,2,1                                                    F2210940
       STO RSYM2                                                        F2210950
ID210  TIX ID200,4,2                                                    F2210960
       TRA ID300                                                        F2210970
ID220  STO RSYM1                                                        F2210980
ID300  LXD L(5),4                    FOR ALL DO SUBS,                   F2210990
ID310  CLA X1+5,4                    SELECT THE                         F2211000
       TZE ID340                     MAXIMUM OF ALL                     F2211010
       PDX 0,1                       VARAIBLE N LEVEL                   F2211020
       LXD L(3),2                    OF DEFINITION                      F2211030
ID320  CLA DOTAGZ+6,1                QUANTITIES.                        F2211040
       ANA ADDMSK                                                       F2211050
       ALS 18                                                           F2211060
       CAS IDES                                                         F2211070
       STO IDES                                                         F2211080
       NOP                                                              F2211090
       TIX ID330,1,1                                                    F2211100
ID330  TIX ID320,2,1                                                    F2211110
ID340  TIX ID310,4,2                                                    F2211120
       LXD L(5),4                    COMPARE THIS MAXIMUM               F2211130
       LXD L(0),2                                                       F2211140
ID350  CLA L1+5,4                    WITH EACH SUBSCRIPT                F2211150
       TZE ID380                     LEVEL, THOSE SUBSCRIPT             F2211160
       CAS IDES                      LEVELS LESS THAN OR                F2211170
       TRA ID370                     EQUAL T0 THE MAXIMUN               F2211180
       NOP                           LEVEL OF DEFINITION                F2211190
       PXD 0,4                       QUANTITY WILL BE TREATED           F2211200
       TXL ID360,4,1                 AS REL. CONS.                      F2211210
       SUB L(1)                      INDICATE THIS CONDITION            F2211220
ID360  ORS DORC                      IN THE DORC WORD.                  F2211230
       CLA X1+5,4                                                       F2211240
       PDX 0,1                                                          F2211250
       CLA BITONE        MAKE INDICATION FOR STORED COUNTER             F2211260
       ORS DOTAGZ+5,1    FOR THIS DORC.                                 F2211270
       PXD 0,0           CLEAR X(N) AND L(N)                            F2211280
       STO L1+5,4        SINCE THEY ARE NO L0NGER DOSUBS.               F2211290
       STO X1+5,4                                                       F2211300
       TRA ID380                                                        F2211310
ID370  CAS LL            FOR TRUE DO SUBS.                              F2211320
       TRA ID372                     ESTABLISH LOW LEVEL                F2211330
       TRA ID372                     AND LOW INDEX. LOW                 F2211340
       STO LL                        LEVEL WORD WAS                     F2211350
       CLA X1+5,4                    INITIALIZED TO                     F2211360
       STO XL                        35ONES.                            F2211370
       SXD LOWP0S,4                                                     F2211380
ID372  PXD 0,4                       PUT BITS IN                        F2211390
       TXL ID375,4,1                 PROPER POSITIONS                   F2211400
       SUB L(1)                      OF DOSUBS                          F2211410
ID375  ORS DOSUBS                    WORD                               F2211420
       TXI ID380,2,1                                                    F2211430
ID380  TIX ID350,4,2                                                    F2211440
       PXD 0,2                                                          F2211450
       STO NRDS                      CHECK TO SEE THAT                  F2211460
       TNZ ID385         AT LEAST ONE SUBSCR IS A DOSUB                 F2211472
       TSX DIAG,4  NO DOSUB WAS PRECLUDED.     ERROR. GO TO DIAGNOSTIC  F2211485
ID385  LXD NRRC,2                    THESE INSTRUCTIONS                 F2211490
       TXL ID400,2,0                 COMPUTE DELTA.                     F2211500
       LXD L(1),4                    IF ONE DISTINCT DOSUB,             F2211510
       CLA RCDUP                     ONE DISTINCT RELCON,               F2211520
       TNZ ID395                     DELTA IS ONE.                      F2211530
       CLA DUPES                     IF TWO DISTINCT DOSUBS,            F2211540
       TNZ ID395                     ONE RELCON, DELTA IS TWO.          F2211550
       TXL ID390,2,1                 IF ONE DOSUB, TWO                  F2211560
       TXI ID395,4,2                 DISTINCT RELCONS,                  F2211570
ID390  LXD NRDS,2                    DELTA IS THREE.                    F2211580
       TXL ID395,2,1                 FOR ALL OTHER CASES,               F2211590
       TXI ID395,4,1                 DELTA IS ZERO.                     F2211600
ID395  PXD 0,4                                                          F2211610
       STO DELTA                                                        F2211620
ID400  LXD ID075,4                   EXIT,                              F2211630
       TRA 2,4                       SUBCOM USED.                       F2211640
ID410  LXD ID075,4                   EXIT,                              F2211650
       TRA 1,4                       SUBCOMB NOT USED.                  F2211660
IDES   HTR                                                              F2211670
NAME   SXD NAM10,4  -                SAVE LINKAGE                       F2211680
       CLA TAG                       PUT TAU IN TS,                     F2211690
 PAT05 STO TS                                                   P463    F2211700
       LXD PT043,1                                                      F2211710
RET01  TSX TINFOR,4                 SEARCH RANGE OF XL                  F2211720
       TRA NAM20                     (FOUND) FOR NEGATICE TAG.          F2211730
NAM10  TXL NAM50                     NOT FOUND                          F2211740
NAM20  CLA NEWTAG                    OBTAIN                             F2211750
       STO TS                        NEW                                F2211760
       ADD L(1)A                     NAME                               F2211770
       STO NEWTAG                                                       F2211780
       LXD XC,1                      ARRANGE                            F2211790
       CLA DOTAGZ,1                  ENTRY BLOCK                        F2211800
       STO E1                        FOR CHATAG                         F2211810
       CLA TAG                       ENTRY.                             F2211820
       ALS 18                                                           F2211830
       ADD TS                                                           F2211840
       STO E2                                                           F2211850
       CLA CHATAG                                                       F2211860
       LXD NRRC,4                    USE LIST OR SPC000,                F2211870
       TXH NAM30,4,0                 DEPENDING UPON                     F2211880
       TSX LIST,4                    WHETHER OR NOT                     F2211890
       TRA NAM40         WORD NRRC IS ZERO. I.E., ARE THERE RELCONS.    F2211900
NAM30  LXD L(2),2        NO TINFOR SEARCH REQUIRED.                     F2211910
       TSX SPC000,4                                                     F2211920
NAM40  LXD NAMXX,1                   ENTER                              F2211930
       TXH NAM44,1,0                 ALPHA,                             F2211940
       TSX DIAG,4  TAG,    (NAME TABLE FULL.   ERROR. GO TO DIAGNOSTIC.)F2211955
NAM44  CLA ALPHA                     AND                                F2211960
       ORA TAG                       NAME                               F2211970
       STO NAMZ,1                    IN                                 F2211980
       CLA TS                        NAME                               F2211990
       STO NAMZ+1,1                  TABLE                              F2212000
       TXI NAM48,1,-2                                                   F2212010
NAM48  SXD NAMXX,1                                                      F2212020
NAM50  LXD NAM10,4                   EXIT                               F2212030
       TRA 1,4                                                          F2212040
       REM 1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.F2212050
1NS00  SXD 1NS20,4                   SAVE LINKAGE                       F2212060
       LXD XC,1                                                         F2212070
       CLA BITTWO                    IF A COUNTER HAS                   F2212080
       ANA DOTAGZ+6,1                BEEN FOUND,                        F2212090
       TNZ 1NS10                     GO TO 1NS10                        F2212100
       LXD DOSUBS,4                  SKIP TO 1NS10                      F2212110
       TXL 1NS10,4,3                 IF NOT FIRST POSITION.             F2212120
       TXH 1NS10,4,4                                                    F2212130
       CLA RCSUBS                    IF ANY RELCONS,                    F2212140
       ORA DORC                      GO TO 1NS10                        F2212150
       TNZ 1NS10                                                        F2212160
       LXD C1,4                      IF C1 IS NOT ONE,                  F2212170
       TXH 1NS10,4,1                 GO TO 1NS10                        F2212180
       CLA ADDMSK                    THIS SUB. COMB. WILL SERVE         F2212190
       ANS DOTAGZ+8,1                AS COUNTER AND TEST, ENTER IN      F2212200
       CLA TS                        DOTAGZ+8.                          F2212210
       ALS 18                        INDICATE                           F2212220
       ORA L(MZ)                     BEST TEST                          F2212230
       ORS DOTAGZ+8,1                FOUND.                             F2212240
       CLA BITTWO                    INDICATE COUNTER FOUND.            F2212250
       ORS DOTAGZ+6,1                                                   F2212260
       CAL L(MZ)                     SET CARWRD NEGATIVE.               F2212270
       ORS CARWRD                    TEST BITONE OF L WORD.             F2212280
       CLA BITONE                    IF ONE, SKIP TRASTO                F2212290
       ANA DOTAGZ+5,1                TEST.                              F2212300
       TNZ 1NS10                                                        F2212310
1NS05  CLA DOTAGZ+5,1                TEST TO SEE IF TRANSFER            F2212320
       TPL 1NS10                     STORE NECESSARY.                   F2212330
       CLA DOTAGZ,1                  MAKE TRASTO ENTRY                  F2212340
       STO E1                        TO STORE COUNTER                   F2212350
       CLA DOTAGZ+1,1                IN LOCATION OF SYMBOL.             F2212360
       STO E2                                                           F2212370
       CLA LC                                                           F2212380
       ORA TS                                                           F2212390
       STO E3                                                           F2212400
       CLA TRASTO                                                       F2212410
       TSX LIST,4                                                       F2212420
1NS10  CLA L(6)                      ENTER                              F2212430
       STO GR0UP                     GROUP NR.                          F2212440
       LXD 1NS20,4                   AND EXIT.                          F2212450
       TRA 1,4                                                          F2212460
1NS20  HTR                                                              F2212470
       REM 2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED         F2212480
       REM SUBSCRIPTS,                                                  F2212490
2NS00  SXD 2NS25,4                   SAVE LINKAAGE                      F2212500
2NS10  LXD DOSUBS,1                  2NS10 T0 2NS80 DETERMINE THE       F2212510
       LXD L(2),2                    GROUP NR AND CARRY BITS            F2212520
       CLA L1                        FOR THE SL.                        F2212530
       TXH 2NS20,1,3                                                    F2212540
       CLA L2                                                           F2212550
2NS20  TXL 2NS30,1,5                                                    F2212560
       SUB L2                                                           F2212570
2NS25  TXL 2NS40,0                                                      F2212580
2NS30  SUB L3                                                           F2212590
2NS40  TMI 2NS70                                                        F2212600
       SUB L(1)                                                         F2212610
       TNZ 2NS60                                                        F2212620
       TXL 2NS50,1,3                                                    F2212630
       TXL 2NS60,1,5                                                    F2212640
       TXI 2NS50,2,2                                                    F2212650
2NS50  LXD DUPES,4                   THIS DUPE TEST IS AN ADJUSTMENT    F2212660
       TXH 2NS60,4,0                 FOR DUPLICATES IN A REDUCED        F2212670
       TSX CARRY,4                   3NS CASE.                          F2212680
2NS60  CLA L(1)                                                         F2212690
2NS65  TXL 2NS80,0                                                      F2212700
2NS70  CLA L(6)                                                         F2212710
2NS80  STO GR0UP                                                        F2212720
       PDX 0,4                                                          F2212730
       LXD DOSUBS,2                  THIS ROUTINE,TO 2NS90,             F2212740
       CLA L1                        PREPARES A TRAWRD CALLING          F2212750
       TXH 2NS82,2,3                 SEQUENCE TO DETERMINE              F2212760
       CLA L2                        WHETHER OR NOT RESETTING           F2212770
2NS82  TXL 2NS84,2,5                 IS NECESSARY                       F2212780
       LDQ L2                                                           F2212790
       TRA 2NS86                                                        F2212800
2NS84  LDQ L3                                                           F2212810
2NS86  TXL 2NS88,4,1                 TEST GROUP                         F2212820
       STO TL1                                                          F2212830
       STQ TL2                                                          F2212840
       LXD X3,1                                                         F2212850
       CLA L(1)                                                         F2212860
       TXL 2NS90,2,5                                                    F2212870
       LXD X2,1                                                         F2212880
       CLA L(2)                                                         F2212890
       TRA 2NS90                                                        F2212900
2NS88  STO TL2                                                          F2212910
       STQ TL1                                                          F2212920
       LXD X1,1                                                         F2212930
       CLA L(4)                                                         F2212940
       TXH 2NS90,2,3                                                    F2212950
       LXD X2,1                                                         F2212960
       CLA L(2)                                                         F2212970
2NS90  STO REBITS                    2NS90 SEQ. SINGLE REBITS           F2212980
       ANA DUPES                     ARE PART OF THE TAG OF THE         F2212990
       TZE 2NS91                     RESETTING SC,IT MUST BE            F2213000
       CLA REBITS                    ADJUSTED FOR DUPE RESETS.          F2213010
       ORA DUPES                                                        F2213020
       STO REBITS                                                       F2213030
2NS91  SXD 2NS65,1                                                      F2213040
       LXD L(1),2                                                       F2213050
       TSX TRAWRD,4                  TEST FOR TANSFER BITS.             F2213060
       TZE 2NSEND                    RESETTING NOT NECESSARY IF         F2213070
       LXD REBITS,2                  TRAWRD RESULT ZERO.  IF            F2213080
       LXD 2NS65,1                   RESETTING NECESSARY, EXECUTE       F2213090
       TSX RESET,4                   RESET ROUTINE AND                  F2213100
2NSEND LXD 2NS25,4                   EXIT                               F2213110
       TRA 1,4                                                          F2213120
       REM 3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED       F2213130
       REM SUBSCRIPTS.                                                  F2213140
3NS00  SXD 3GRP15,4                  SAVE LINKAGE                       F2213150
       REM THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC      F2213160
       LXD L(0),2                    PUT ZERO IN XRB                    F2213170
       CLA L3                        OBTAIN L3                          F2213180
       CAS L2                        COMPARE WITH L2                    F2213190
       TXI 3GRP10,2,4                L3 GREATER THAN L2                 F2213200
       TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGNOSTIC. F2213215
3GRP10 CAS L1                        L3 LESS THAN L2,COMPARE L3,L1      F2213220
3GRP15 TXL 3GRP20,0                 L3 GREATER THAN L1                  F2213230
       TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGNOSTIC. F2213243
       TXI 3GRP20,2,1                L3 LESS THAN L1                    F2213250
3GRP20 CLA L2                        OBTAIN L2                          F2213260
       SUB L1                        SUBTRACT L1                        F2213270
       TMI 3GRP30                    TRA IF L2 LESS THAN L1             F2213280
       TXI 3GRP30,2,2                L2 GREATER THAN L1                 F2213290
3GRP30 PXD 0,2                       PUT GROUP NUMBER IN ACC DEC.       F2213300
       STO GR0UP                     OR INTO TAG 1                      F2213310
       CLA L1                        OBTAIN L1                          F2213320
       SUB L(1)                      L1 LESS 1                          F2213330
       SUB L2                        L1 LESS 1 LESS L2                  F2213340
       TNZ 3GRP40                    NOT ZERO,NO CARRY,TRA              F2213350
       LXD L(4),2                    SET XRB                            F2213360
       TSX CARRY,4                   AND TSX TO CARRY                   F2213370
3GRP40 CLA L2                        RE-ENTRY,OBTAIN L2                 F2213380
       SUB L(1)                      L2 LESS 1                          F2213390
       SUB L3                        L2 LESS 1 LESS L3                  F2213400
       TNZ 3GRP50                    NOT ZERO,NO CARRY,TRA              F2213410
       LXD L(2),2                    SET XRB                            F2213420
       TSX CARRY,4                   AND TSX TO CARRY                   F2213430
3GRP50 LXD L(0),6                    THE FOLLOWING ROUTINE,             F2213440
       LXD GR0UP,1                   THROUGH 3GRP72, COMPUTES           F2213450
3GRP55 TRA 3GRP55+7,1                QUANTITIES FOR XRB, XRC.           F2213460
       TXI 3GRP65,2,2                GROUP IS SIX                       F2213470
       TXI 3GRP65,4,4                FIVE                               F2213480
       TXI 3GRP65,2,4                FOUR                               F2213490
       TXI 3GRP60,6,2                THREE                              F2213500
       TXI 3GRP65,4,2                TWO                                F2213510
       TXI 3GRP60,4,4                ONE                                F2213520
3GRP60 TXI 3GRP65,2,2                                                   F2213530
3GRP65 CLA X1+4,4                                                       F2213540
       STO INX                                                          F2213550
       CLA X1+5,4                                                       F2213560
       STO INL                                                          F2213570
       CLA X1+4,2                                                       F2213580
       STO MIDX                                                         F2213590
       CLA X1+5,2                                                       F2213600
       STO MIDL                                                         F2213610
       TXH 3GRP70,4,0                THE QUANTIT1ES IN XRB.             F2213620
       TXI 3GRP70,4,1                XRC, ARE ZERO, TWO, OR             F2213630
3GRP70 SXD INP,4                     FOUR, ADJUSTED TO ONE,             F2213640
       TXH 3GRP72,2,0                TWO, FOUR, TO INDICATE THE         F2213630
       TXI 3GRP72,2,1                POSITION OF THE SUBCCRIPT          F2213660
3GRP72 SXD MIDP,2                    BEING RESET, STORE IN INP, MIDP.   F2213670
       LXD L(4),4                    THIS LOOP IS EXECUTED TWICE.       F2213680
3GRP75 CLA INX+4,4                   OBTAIN INNER INDEX OF PAIR         F2213690
       PDX 0,1                       IN XRA                             F2213700
       CLA INL+4,4                   OBTAIN INNER LEVEL OF PAIR         F2213710
       STO TL2                       TL2                                F2213718
       CLA LL                        OBTAIN LOWER LEVEL IN              F2213720
       STO TL1                       TL1                                F2213740
       LXD L(1),2                    PUT ONE IN XRB,                    F2213750
       SXD 3GRP80,4                  SAVE XRC,                          F2213760
       TSX TRAWRD,4                  AND USE TRAWRD.                    F2213770
       LXD 3GRP80,4                  RESTORE XRC,                       F2213780
       TZE 3GRP77                    GO TO INDEXING IF ZERO.            F2213790
       CLA INP+4,4                   TRAWRD RESULT NOT ZERO.            F2213800
       PDX 0,2                       PREPARE T0                         F2213810
       CLA INX+4,4                   USE RESET                          F2213820
       PDX 0,1                                                          F2213830
       SXD 3GRP80,4                  SAVE XRC,                          F2213840
       TSX RESET,4                   GO TO RESET,                       F2213850
       LXD 3GRP80,4                  RESTR0E XRC,                       F2213860
3GRP77 TIX 3GRP75,4,2                INDEX AND GO BACK,                 F2213870
       TRA 3NSEND                    OR EXIT                            F2213880
INP    HTR                           POSITION OF INNER SUB.             F2213890
3GRP80 HTR                                                              F2213900
MIDP   HTR                           POSITION OF MIDDLE SUB.            F2213910
INX    HTR               INDEX INNER LEVEL SUBSCRIPT                    F2213920
INL    HTR               LEVEL INNER LEVEL SUBSCRIPT                    F2213930
MIDX   HTR               INDEX MIDDLE LEVEL SUBSCRIPT                   F2213940
MIDL   HTR               LEVEL MIDDLE LEVEL SUBSCRIPT                   F2213950
3NSEND LXD 3GRP15,4                                                     F2213960
       TRA 1,4                                                          F2213970
RESET  SXD RES45,4                   SAVE LINKAGE                       F2213980
       PXD 0,2                       SAVE                               F2213990
       STO RES300                    PREFIX (REBITS)                    F2214000
       PXD 0,1                       SAVE INDEX                         F2214010
       STO RES310                    OF RESET                           F2214020
       CLA C3                        OBTAIN C3 IN                       F2214030
       ARS 18                        ADDRESS PART.                      F2214040
RES05  TRA RES05+7,2                 INDEXED T RANSFER, C(XRB)=C(REBITS)F2214050
       TRA RES50                     C(XRB)=110                         F2214060
       TRA RES30                     C(XRB)=101                         F2214070
       TRA RES40                     C(XRB)=100                         F2214080
       TRA RES20                     C(XRB)=011                         F2214090
       TRA RES50                     C(XRB)= 010                        F2214100
RES10  STO E2                        C(XRB)=001                         F2214110
       CLA D2                        THESE INSTRUCTIONS, THROUGH        F2214120
       ARS 18                        RES60, COMPUTE THE                 F2214130
       ADD D1                        CHARACTERISTIC WORDS OF THE        F2214140
       TRA RES60                     SUBSCRIPT COMBINATION.             F2214150
RES20  ADD C2                                                           F2214160
       TRA RES10                                                        F2214170
RES30  ADD C1                                                           F2214180
       TRA RES10                                                        F2214190
RES40  CLA C1                                                           F2214200
       STO E2                                                           F2214210
       CLA L(0)                                                         F2214220
RES45  TXL RES60,0                                                      F2214230
RES50  CLA C2                                                           F2214240
       ARS 18                                                           F2214250
       TXL RES55,2,2                                                    F2214260
       ADD C1                                                           F2214270
RES55  STO E2                                                           F2214280
       CLA D1                                                           F2214290
RES60  STO E3                                                           F2214300
       TXH RES65,2,4                 IF PREFIX IS 1,0,0,                F2214310
       TXH RES400,2,3                T RA TO RES400                     F2214320
RES65  LXD RESXX,1                   SEARCH                             F2214330
       SXD RES75,1                   RETAB                              F2214340
       LXA RESXX,1                   FOR                                F2214350
       TRA RES75                     SAME                               F2214360
RES70  CLA RETABZ,1                  INDEX.                             F2214370
       ANA DECMSK                                                       F2214380
       CAS RES310                                                       F2214390
       TXI RES75,1,-3                                                   F2214400
       TRA RES80                     INDEX FOUND, GO TO RES80           F2214410
RES73  TXI RES75,1,-3                                                   F2214420
RES75  TXH RES70,1                                                      F2214430
       TRA RES85                     NOT FOUND, GO TO RES85             F2214440
RES80  CLA RETABZ,1                  COMPARE PREFIX OF                  F2214450
       ANA RES320                    RETAB ENTRY                        F2214460
       ALS 6                         WITH CURRENT                       F2214470
       SUB RES300                    PREFIX. IF NOT EQUAL,              F2214480
       TNZ RES73                     CONTINUE RETAB SEARCH.             F2214490
       CLA RETABZ+1,1                IF EQUAL, COMPARE                  F2214500
       SUB E2                        C HARACTERISTIC WORDS.             F2214510
       TNZ RES73                     IF                                 F2214520
       CLA RETABZ+2,1                NOT                                F2214530
       SUB E3                                                           F2214540
       TNZ RES73                     EQUAL, CONTINUE SEARCH.            F2214550
       CLA RETABZ,1                  IF EQUAL,                          F2214560
       ANA ADDMSK                    USE RESET TAG ALREADY              F2214570
       STO RES330                    ENTERED. SAVE NAME.                F2214580
       TRA RES200                    TRA T0 RES200                      F2214590
RES85  CLA RES300                    NO USABLE ENTRY FOUND.             F2214600
       ARS 6                         MAKE                               F2214610
       ORA TAG                       NEW                                F2214620
       STO RES330                                                       F2214630
       ORA RES310                    ENTRY                              F2214640
       LXD RESXX,1                   IN                                 F2214650
       TXH RES87,1,0                 RETAB.                             F2214660
       TSX DIAG,4  RETAB TABLE FULL.           ERROR. GO TO DIAGNOSTIC. F2214675
RES87  STO RETABZ,1                                                     F2214680
       CLA E2                                                           F2214690
       STO RETABZ+1,1                                                   F2214700
       CLA E3                                                           F2214710
       STO RETABZ+2,1                                                   F2214720
       TXI RES88,1,-3                ADJUST IN DEX.                     F2214730
RES88  SXD RESXX,1                                                      F2214740
       CLA RES310                    MAKE E2 WORD                       F2214750
       TXH RES96,2,5                 FOR DRUMTAG OR                     F2214760
       TXH RES94,2,4                 TAGTAG ENTRY                       F2214770
       TXH RES92,2,3                                                    F2214780
       TXH RES90,2,2                                                    F2214790
       TXH RES96,2,1                                                    F2214800
       ARS 18                                                           F2214810
       TRA RES96                                                        F2214820
RES90  ARS 18                                                           F2214830
       ADD RES310                                                       F2214840
       TRA RES96                                                        F2214850
RES92  CLA L(0)                                                         F2214860
RES94  ARS 18                                                           F2214870
RES96  STO E2                                                           F2214880
       CLA RES310                    MAKE                               F2214890
       ARS 18                        E1 WORD                            F2214900
       TXH RES98,2,3                                                    F2214910
       CLA L(0)                                                         F2214920
RES98  STO E1                                                           F2214930
       LXD RES310,1                                                     F2214940
       CLA DOTAGZ,1                                                     F2214950
       ANA DECMSK                                                       F2214960
       ORS E1                                                           F2214970
       CLA RES330                    MAKE                               F2214980
       STO E3                        E3 WORD                            F2214990
       CLA L(6)                      MAKE                               F2215000
       STO E4                        E4                                 F2215010
       CLA RES300                    WORD                               F2215020
       ARS 18                                                           F2215030
       ORS E4                                                           F2215040
       TXL RES110,2,2                                                   F2215050
       TXL RES100,2,3                                                   F2215060
       TXL RES110,2,4                                                   F2215070
RES100 ALS 9                                                            F2215080
       ORS E4                                                           F2215090
RES110 CLA L(0)                      THESE INSTRUCTIONS,                F2215100
       STO RES340                    T0 RES170, DETERMINE               F2215110
       LXD L(5),4                    WHICH COEFFICIENTS                 F2215120
RES120 CLA C1+5,4                    ARE GREATER THAN                   F2215130
       SUB L(1)                      ONE AND PLACE                      F2215140
       TZE RES140                    THIS INFO IN                       F2215150
       TIX RES130,4,1                E4(TAG1).                          F2215160
RES130 PXD 0,4                                                          F2215170
       ORS RES340                                                       F2215180
       TXI RES140,4,1                                                   F2215190
RES140 TIX RES120,4,2                                                   F2215200
       CLA RES340                                                       F2215210
       ANA RES300                                                       F2215220
       ARS 6                                                            F2215230
       ORS E4                                                           F2215240
       CLA DRMTAG                    DRUM TAG ENTRY                     F2215250
       TSX LIST,4                    OR                                 F2215260
       TRA RES200                    TAGTAG                             F2215270
RES180 TSX TAGENT,4                  ENTRY.                             F2215280
RES200 LXD RES310,1                  MAKE                               F2215290
       CLA DOTAGZ,1                  PROPER                             F2215300
       STO E1                        TRASTO                             F2215310
       CLA TL2                       ENTRY                              F2215320
       ARS 18                                                           F2215330
       ADD TL1                                                          F2215340
       STO E2                                                           F2215350
       CLA RES330                                                       F2215360
       ALS 18                                                           F2215370
       ADD TS                                                           F2215380
       SSM                                                              F2215390
       STO E3                                                           F2215400
       CLA TRASTO                                                       F2215410
       TSX LIST,4                                                       F2215420
RES210 LXD RES45,4                   EXIT.                              F2215430
       TRA 1,4                                                          F2215440
RES300 HTR                           PREFIX STORAGE                     F2215450
RES310 HTR                           INDEX STORAGE                      F2215460
RES320 OCT 70000                     PREFIX MASK                        F2215470
RES330 HTR                           RESET NAME STORAGE                 F2215480
RES340 HTR                           E.S.                               F2215490
RES400 CLA E2                        TEST FOR COEFFICIENT               F2215500
       SUB L(1)                      EQUAL TO ONE.                      F2215510
       TNZ RES65                     IF NOT, PROCESS NORMALLY           F2215520
       CLA DOTAGZ,1                  THROUGH RESET.                     F2215530
       ARS 17                        TEST FOR CONSTANT N1.              F2215540
       LBT                           IF VARIABLE, NORMAL PROCESSING.    F2215550
       TRA RES410                    0                                  F2215560
       TRA RES65                     1                                  F2215570
RES410 CLA DOTAGZ+6,1                HAS COUNTER BEEN FOUND.            F2215580
       ANA BITTWO                                                       F2215590
       TNZ RES420                    IF SO, GO TO RES420                F2215600
       CLA TL2                       IF NOT, MAKE ENTRY                 F2215610
       ARS 18                        IN ADDED TAG TABLE                 F2215620
       ORA TL1                       FOR PROCESSING INTO                F2215630
       SSM                           DRUM TAG AFTER NEST                F2215640
       LRS 35                        ANALYSIS.                          F2215650
       PXD 0,1                                                          F2215660
       ORA TS                                                           F2215670
       LXD L(1),2                                                       F2215680
       TSX TAGADD,4                                                     F2215690
       TRA RES210                    TRA TO EXIT                        F2215700
RES420 TSX RSR,4                     COUNTER FOUND, USE RSR.            F2215710
       TRA RES210                    TRA T0 EXIT                        F2215720
       REM THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGNOSTIC RECORD.  F2215725
NORMRT RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.    F2215726
       TRA ONETCS        GO TO ONE TO CS ( MONITOR)                     F2215727
       BSS 80                                                           F2215730
TAGZ   BSS 1                                                            F2215740
       BSS 99                                                           F2215750
ADTAGZ BSS 1                                                            F2215760
       BSS 99                                                           F2215770
NAMZ   BSS 1                                                            F2215780
       BSS 299                                                          F2215790
RETABZ BSS 1                                                            F2215800
       REM    MASTER RECORD CARD = FN030                                F2215805
       REM TMIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS             F2215810
       REM AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING            F2215820
       REM EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION,        F2215830
       REM AT WHICH POINT IT CALLS ON 2R0000.                           F2215840
       ORG IDENT             STATE B                                    F2215850
CORES  LXD DOTAG-1,1                                                    F2215860
       SXD DSDR20,1                                                     F2215870
       SXD DSD118,1                                                     F2215880
       SXD DSD145,1                                                     F2215890
       SXD 2R0020,1                                                     F2215900
DSDR00 MSE 100                                                          F2215910
       NOP                                                              F2215920
       LXD XC,1                      PUT INDEX OF DC IN XRA             F2215930
       LXD DELTA,4                   PUT DELTA IN XRC                   F2215940
       CLA LC                        INITIALIZE END OF                  F2215950
       STD DSDR30                    DC TEST INSTR                      F2215960
DSDR10 TXI DSDR20,1,-9               TAKE NEXT DOWN DO,IF POSSIBLE      F2215970
DSDR20 TXL DSD100,1                  EXIT IF DOTAG EXHAUSTED.           F2215980
       CLA DOTAGZ+5,1                OBTAIN LEVEL OF THIS DO IN         F2215990
       PDX 0,2                       XRB,COMPARE W1TH LEVEL OF          F2216000
DSDR30 TXL DSD100,2                  D6 AND EXIT IF NOT IN DC.          F2216010
       CLA DOTAGZ+1,1                OBTAIN SYMBOL OF THIS DO           F2216020
       SUB RSYM1                     COMPARE WITH (FIRST) R SYM.        F2216030
       TZE DSDR50                    IF THIS DO IS DR1,TRA.             F2216040
       TXL DSDR10,4,2                IF NOT DR1,GO BACK,UNLESS DELTA3   F2216050
       CLA DOTAGZ+1,1                OBTAIN SYMBOL AGAIN                F2216060
       SUB RSYM2                     AND COMPARE WITH RSYM2             F2216070
       TNZ DSDR10                    IF NOT RSYM1 OR RSYM2,G0 BACK      F2216080
       CLA RSYM2                     IF DO SYM IS RSYM2,                F2216090
       LDQ RSYM1                     SWITCH RSYM1 AND RSYM2             F2216100
       STO RSYM1                     TO MAKE BUCKET LABLES              F2216110
       STQ RSYM2                     AGREE WITH ORDER OF DO FORMULAS    F2216120
DSDR50 SXD XR1,1                     SAVE                               F2216130
       PXD 0,2                       INDEX OF R1                        F2216140
       STO LR1                       AND LEVEL OF R1                    F2216150
       STO TL2                       INITIALIZE TRAWRD TL2              F2216160
       CLA LL                        INITIALIZE TRAWRD TL1              F2216170
       STO TL1                       PREPARE                            F2216180
       LXD L(1),2                    TRAWRD C(XRB)                      F2216190
       TXL DSDR55,4,2                                                   F2216200
       LXD L(2),2                                                       F2216210
DSDR55 TSX TRAWRD,4                  GO TO TRAWRD AND                   F2216220
       STO D2D1                      SAVE IF NOT ZERO                   F2216230
       LXD DELTA,4                   RETURN HERE                        F2216240
       TXH DSDR85,4,2                TRANSFER IF DELTA IS THREE         F2216250
       TZE DSDR20                    RETURN IF RESULT ZERO              F2216260
       SXD DSDR95,1                                                     F2216270
       TXL DSDR65,4,1                TR IF DELTA=1                      F2216280
       CLA L(36)                     FOR DELTA=2,SEPARATE               F2216290
       SUB LC                        TRAWRD RESULTS.                    F2216300
       ARS 18                                                           F2216310
       STA DSDR60                                                       F2216320
       LDQ L(0)                                                         F2216330
       CLA D2D1                                                         F2216340
DSDR60 LRS                                                              F2216350
       TZE DSDR62                    IF TRANSFERS EXIST DC T0 DL,       F2216360
       PSE 100                       SET SENSE SWITCH                   F2216370
DSDR62 STQ D2D1                                                         F2216380
       CLA D2D1                                                         F2216390
       TZE DSDR80                    IF NO TRANSFERS DR TO DC,EXIT      F2216400
DSDR65 CLA ATSW                      TEST ADDED TAG SWITCH              F2216410
       TNZ DSDR80                    IF ADDED DELTA TWO, SKIP INSERT    F2216420
       LXD XR1,1                     IS TAG IN DR1                      F2216430
       TSX TINFOR,4                  GO TO TINFOR AND RETURN            F2216440
       TRA DSDR70                    FOUND                              F2216450
       LXD L(0),2                    NOT FOUND                          F2216460
       LXD XR1,1                                                        F2216470
       TSX TAGADD,4                  INSERT TAG IN R1,RETURN            F2216480
       STQ TR1                       HERE AND STORE NAME IN TR1         F2216490
       TRA DSDR75                                                       F2216500
DSDR70 LXD XR1,1                     FIND NAME OF TAG IN R1             F2216510
       CLA DOTAGZ,1                                                     F2216520
       ANA DECMSK                                                       F2216530
       ADD TAG                                                          F2216540
       TSX GETNAM,4                                                     F2216550
       STO TR1                                                          F2216560
DSDR75 LXD XR1,1                     LIST STORES                        F2216570
       LXD L(0),2                                                       F2216580
       TSX STORES,4                                                     F2216590
DSDR80 LXD DSDR95,1                                                     F2216600
       LXD DELTA,4                                                      F2216610
       TRA DSDR20                                                       F2216620
DSDR85 TZE 2R0000                    GO TO R2 SEARCH IF NO TRA R1 TO D6 F2216630
       LXD XR1,1                     IF TRA R1 TO DC,                   F2216640
       LXD L(1),2                    USE SPC000 TO LOOK FOR             F2216630
       TSX SPC000,4                  TAG IN R1                          F2216660
       TRA DSDR87                    NOT FOUND,GO TO DSDR87             F2216670
       LXD XR1,1                     FOUND,USE SUBROUTINE               F2216680
       CLA DOTAGZ,1                  GETNAM TO DETERMINE LABLE          F2216690
       ANA DECMSK                    OF TAG IN R1                       F2216700
       ADD TAG                                                          F2216710
       TSX GETNAM,4                                                     F2216720
       STO TR1                       PUT NAME IN TR1                    F2216730
       TRA DSDR89                                                       F2216740
DSDR87 LXD XR1,1                     USE TAGADD TO INSERT               F2216750
       LXD L(0),2                    TAG IN R1                          F2216760
       TSX TAGADD,4                                                     F2216770
       STQ TR1                       PUT NAME IN TR1                    F2216780
       LXD XL,1                                                         F2216790
       CLA BIT20                                                        F2216800
       ORS DOTAGZ+6,1                                                   F2216810
DSDR89 LXD XR1,1                     LIST STORES                        F2216820
       LXD L(1),2                                                       F2216830
       TSX STORES,4                                                     F2216840
DSDR90 TRA 2R0000                    GO TO R2 ROUTINE AND               F2216850
DSDR92 LXD DELTA,4                   RETURN HERE                        F2216860
DSDR95 TXL DSDR20,0                  NEXT R1. DEC CONTAINS XNEXTR1      F2216870
DSD100 TXL DSD200,4,1                TRA IF DELTA IS 1                  F2216880
       TXH DSD200,4,2                TRA IF DELTA IS 3                  F2216890
       MSE 100                       DELTA IS 2,TEST D3D1 SWITCH        F2216900
       TRA DSD110                    LIGHT OFF                          F2216910
       TRA DSD170                    LIGHT ON                           F2216920
DSD110 LXD XL,1                      OBTAIN INDEX OF DL IN XRA          F2216930
       CLA DOTAGZ+5,1                OBTAIN LEVEL OF DL                 F2216940
       STD DSD120                    AND STORE IN TEST INSTR.           F2216950
DSD115 TXI DSD118,1,-9               TAKE NEXT DOWN DO IF POSSIBLE      F2216960
DSD118 TXL DSD200,1                  OTHERWISE,EXIT,                    F2216970
       CLA DOTAGZ+5,1                OBTAIN LEVEL OF THIS DO            F2216980
       PDX 0,2                       AND TEST WHETHER THIS DO IS        F2216990
DSD120 TXL DSD200,2                  IN DL. IF NOT,EXIT.                F2217000
       PXD 0,1                       IF IN DL,                          F2217010
       SUB XC                        IF THIS DO D6.                     F2217020
       TZE DSD130                    IF SO,TRA.                         F2217030
       CLA DOTAGZ+1,1                IF NOT,IS THIS DO A DR.            F2217040
       SUB RSYM1                                                        F2217050
       TZE DSD160                    IF SO,TRA,                         F2217060
       TRA DSD115                    IF NOT,GO BACK TO GET NEXT DO      F2217070
DSD130 SXD DSD150,2                  IF DO IS DC,                       F2217080
DSD140 TXI DSD145,1,-9                                                  F2217090
DSD145 TXL DSD200,1                                                     F2217100
       CLA DOTAGZ+5,1                IS NEW IN DL.                      F2217110
       PDX 0,2                       IF SO,GO BACK TO STEP DOWN         F2217120
DSD150 TXL DSD120,2                  AGAIN IN DC. IF NOT IN             F2217130
       TRA DSD140                    DC, GO TO TEST IF IN DL            F2217140
DSD160 PXD 0,2                       INITIALIZE                         F2217150
       STO TL2                       TL2 TO LEVEL OF DR                 F2217160
       CLA LL                        PUT LEVEL OF DL                    F2217170
       STO TL1                       IN TL1                             F2217180
       LXD L(1),2                    PUT 1 IN XRB                       F2217190
       TSX TRAWRD,4                  AND GO TO TRAWRD.                  F2217200
       TZE DSD118                    IF RESUTL ZERO,GO BACK             F2217210
DSD170 LXD XL,2                                                         F2217220
       CLA BITONE                                                       F2217230
       ORS DOTAGZ+5,2                                                   F2217240
       LXD LOWP0S,2                                                     F2217250
       CLA L(0)                                                         F2217260
       STO X1+5,2                                                       F2217270
       STO X1+6,2                                                       F2217280
       TIX DSD175,2,1                                                   F2217290
DSD175 PXD 0,2                                                          F2217300
       ORS DORC                                                         F2217310
       COM                                                              F2217320
       ANS DOSUBS                                                       F2217330
       CLA XC                                                           F2217340
       STO XL                                                           F2217350
       CLA LC                                                           F2217360
       STO LL                                                           F2217370
       CLA L(1)                                                         F2217380
       STO NRDS                                                         F2217390
       STO DELTA                                                        F2217400
DSD200 TRA DS4VAL                                                       F2217410
       REM RELCON DELTA THREE SECOND LEVEL DEFINITION.                  F2217420
2R0000 LXD XR1,1                     PUT INDEX OF R1 IN XRA             F2217430
       CLA LR1                       OBTAIN LEVEL OF R1                 F2217440
       STD 2R0030                    INITIALIZE TEST INSTR.             F2217450
2R0010 TXI 2R0020,1,-9               TAKE NEXT DOWN DO IF POSSIBLE      F2217460
2R0020 TXL DSDR92,1                  EXIT IF PARTLY FULL DOTAG EXHAUSTEDF2217470
       CLA DOTAGZ+5,1                OBTAIN LEVEL OF DO                 F2217480
       PDX 0,2                       PUT IN XRB AND COMPARE WITH        F2217490
2R0030 TXL DSDR92,2                  LR1,EXIT IF NEW DO NOT IN XR1.     F2217500
       CLA DOTAGZ+1,1                OBTAIN SYMBOL OF NEW DO,           F2217510
       SUB RSYM2                     COMPARE WITH RSYM2.                F2217520
       TNZ 2R0010                    IF NOT RSYM2,G0 BACK.              F2217530
       SXD XR2,1                     SAVE INDEX                         F2217540
       PXD 0,2                       AND LEVEL                          F2217550
       STO LR2                       OF R2.                             F2217560
       STO TL2                       PREPARE FOR TSX TO TRAWRD.         F2217570
       CLA LC                        TO TEST FOR TRANSFERS              F2217580
       STO TL1                       FROM R2 TO DS.                     F2217590
       LXD L(1),2                                                       F2217600
       TSX TRAWRD,4                  IF NO TRANSFERS,GO BACK            F2217610
       TZE 2R0020                    FOR NEXT DO.                       F2217620
       SXD 2R0065,1                                                     F2217630
       STO D3D2                      TEMPORARY STORAGE                  F2217640
       CLA L(36)                     PUT 36 IN ACC                      F2217650
       SUB LR1                       SUB LEVEL OF R1,                   F2217660
       ARS 18                        SHIFT RESULT AND                   F2217670
       STA 2R0050                                                       F2217680
       LDQ L(0)                      PUT ZERO IN MQ,                    F2217690
       CLA D3D2                      OBTAIN TRAWRD RESULT,              F2217700
2R0050 LRS                           PERFORM SEPARATION                 F2217710
       STO D3D1                      AND SAVE                           F2217720
       STQ D3D2                      RESULTS.                           F2217730
       CLA D3D1                      IF D3D1 IS ZERO,THEN D3D2          F2217740
       TNZ 2R0060                    IS NOT ZERO                        F2217750
       CLA D2D1                      IF D2D1 IS ZERO,                   F2217760
       TZE 2R0200                    TR TO GET NEX DO                   F2217770
2R0060 LXD XR2,1                     SEARCH FOR TAG                     F2217780
       TSX TINFOR,4                  IN R2                              F2217790
       TRA 2R0080                    FOUN0,TR TO OBTAIN NAME            F2217800
       LXD XR2,1                     NOT FOUND, LOOK FOR DELTA TWO      F2217810
       TSX ADDSER,4                  INSERT IN ADDED TAG TABLE.         F2217820
2R0065 TXL 2R0090,0                  FOUND,NAME IN ACC.                 F2217830
       LXD XR2,1                     NOT FOUND                          F2217840
       LXD L(0),2                    ADD TAG                            F2217850
       TSX TAGADD,4                  IN TABLE OF ADDED TAGES            F2217860
       STQ TR2                       PUT NAME IN TR2                    F2217870
       TRA 2R0100                                                       F2217880
2R0080 LXD XR2,1                     SEARCH                             F2217890
       CLA DOTAGZ,1                  FOR                                F2217900
       ANA DECMSK                    NAME                               F2217910
       ADD TAG                                                          F2217920
       TSX GETNAM,4                                                     F2217930
2R0090 STO TR2                       PUT NAME IN TR2                    F2217940
2R0100 CLA D3D1                      LIST STORES IF ANY TR,             F1I17950
       TZE 2R0150                    FOR TRANSFERS,                     F2217960
       LXD XR2,1                     D3D1                               F2217970
       LXD L(2),2                                                       F2217980
       TSX STORES,4                                                     F2217990
2R0150 CLA D3D2                      TEST TR                            F2218000
       TZE 2R0200                    D3D2                               F2218010
       CLA D2D1                      TEST TR                            F2218020
       TZE 2R0200                    D2D1                               F2218030
       LXD XR2,1                     LIST STORES                        F2218040
       TSX STORXX,4                                                     F2218050
2R0200 LXD 2R0065,1                  RETURN FOR                         F2218060
       TRA 2R0020                    NEXT R2                            F2218070
       REM DRUM SEARCH OF FORVAL                                        F2218080
DS4VAL LXD END80,1                   OBTAIN FORVAL EMPTY INDICATOR,     F2218090
       TXL DS4V20,1,0                EXIT IF FORVAL EMPTY               F2218100
       CLA TAG                       PRESET WORD E2 FOR LIST            F2218110
       ALS 18                        ROUTINE,TAU TAG AND NAME           F2218120
       ADD TS                                                           F2218130
       STO E2                                                           F2218140
       MSE 100                       LIGHT 100 OFF                      F2218150
       NOP                                                              F2218160
       CLA ALPHA                     THESE INSTRUCTIONS SET UP          F2218170
       STO A                         FOR DRUM SEARCH.                   F2218180
       CLA BETA                                                         F2218190
       ADD L(1)A                                                        F2218200
       STO B                                                            F2218210
       CLA 4VALAD                    OBTAIN LOCATION FO FIRST           F2218220
       STO FORAD                     FORVAL DRUM ENTRY,STORE IN         F2218230
       LXD L(0),1                    LDA ADDRESS. PUT ZERO              F2218240
       TSX FSXX,4                    IN XRA AND GO TO                   F2218250
       LXD DELTA,4                   SEARCH ROUTINE. UPON RETURN,       F2218260
       TXH DS4V20,4,2                ECIT UNLESS DELTA IS 2,            F2218270
       TXL DS4V20,4,1                IN WHICH CASE,CONTINUE,            F2218280
       PSE 100                       TURN INDICATOR LIGHT ON            F2218290
       CLA B                         THE FOLLOWING INSTR,               F2218300
       STO NEXTA                     SET UP TWO ADDITIONAL              F2218310
       CLA A                         RANGES FOR SEARCHING,              F2218320
       STO B                         THOSE FORMULAS OUTSIDE             F2218330
       LXD XL,2                      OF DC BUT WITHIN DL.               F2218340
       CLA DOTAGZ,2                  IN THESE SPECIAL RANGES            F2218350
       PAX 0,2                       AS SOON AS ONE ENTRY IS            F2218360
       ANA DECMSK                    FOUND IN EITHER RANGE,             F2218370
       STO A                         TO BE DONE.                        F2218380
       PXD 0,2                                                          F2218390
       ADD L(1)A                                                        F2218400
       STO LASTB                                                        F2218410
       CLA A                                                            F2218420
       ADD L(1)                                                         F2218430
       SUB B                                                            F2218440
       TZE DS4V10                    IF THIS RANGE IS EMPTY,            F2218450
       CLA 4VALAD                    SKIP SEARCH.                       F2218460
       STO FORAD                                                        F2218470
       LXD L(0),1                                                       F2218480
       TSX FSXX,4                    GO TO SEARCH ROUTINE               F2218490
DS4V10 CLA NEXTA                     A AND B FOR SECOND                 F2218500
       STO A                         SPECIAL RANGE.                     F2218510
       CLA LASTB                                                        F2218520
       STO B                                                            F2218530
       SUB A                                                            F2218540
       TZE DS4V20                                                       F2218550
       PSE 100                                                          F2218560
       CLA 4VALAD                                                       F2218570
       STO FORAD                                                        F2218580
       LXD L(0),1                                                       F2218590
       TSX FSXX,4                                                       F2218600
DS4V20 TRA RELEND                    EXIT                               F2218610
FSXX   SXD FS28,4                    SAVE TSX INDEX                     F2218620
FS00   CLA L(5)          INITIALIZE                                     F2218632
       STD 4VLHL8                    ERROR COUNTER                      F2218640
FS05   RDS 194                                                          F2218650
       LXD BS71,2                                                       F2218660
       LDA FORAD                     FIND FIRST OR NEXT ADDRESS         F2218670
       CLA A                         IN FORVAL,PUT A IN ACC.            F2218680
FS10   CPY BLOCK                     COPY FORMULA NR.                   F2218690
       TLQ FS30                      A GREATER THAN FOR.NR.,TRA.        F2218700
       CPY BLOCK+1                   A LESS,COPY BALANCE OF             F2218710
       CLA B                         ENTRY,PUT B IN ACC,                F2218720
       CPY BLOCK+2                   ADJUST XRA FOR THIS                F2218730
       TXI FS20,1,3                  ENTRY.                             F2218740
FS20   CPY BLOCK+60,2                COPY NEXT FOR. NR.                 F2218750
       TLQ FS40                      B GREAT THAN FOR. NR.,TRA.         F2218760
FS25   SUB BLOCK                     TEST FIRST ENTRY.                  F2218770
       TPL FS50                      B GREATER THAN F,TRA               F2218780
FS28   TXL BS99,0                    B LESS THAN F,EXIT                 F2218790
FS30   CPY BLOCK+1                   COPY BALANCE OF ENTRY,GO           F2218800
       CPY BLOCK+2                   BACK IF POSSIBLE T0 CONTINUE       F2218810
       TXI FS10,1,3                  SEARCH FOR BEGINNING OF RANGE,     F2218820
FS40   CPY BLOCK+61,2                THIS ENTRY IS IN RANGE,            F2218830
       CPY BLOCK+62,2                CONTINUE READING IN ENTRIES        F2218840
       TIX FS20,2,3                  UNTIL BLOCK FULL OR RANGE          F2218850
       LXD L(0),2                    EXCEEDED.                          F2218860
       TRA FS25                                                         F2218870
FS50   SXD CS20,2                                                       F2218880
       SXD BS40,2                                                       F2218890
       SXD BS25,1                                                       F2218900
CS00   LXD L(60),2                   THIS ROUTINE COMPUTES              F2218910
CS10   CAL BLOCK+60,2                THE CHECK SUMS OF THE              F2218920
       ACL BLOCK+61,2                ENTRIES AND COMPARES               F2218930
       SLW 4VALES                                                       F2218940
       CLA 4VALES                    THEM WITH THE GIVEN CHECK          F2218950
       SUB BLOCK+62,2                SUMS.                              F2218960
       TNZ 4VLHLT                    TRA TO EXIT IF BAD ENTRY.          F2218970
       TXI CS20,2,-3                                                    F2218980
CS20   TXH CS10,2                    CONTINUE WITH BS00                 F2218990
BS00   CLA RSYM1                     THIS ROUTINE SEARCHES              F2219000
       LXD DELTA,4                   THE STORAGE BLOCK FOR              F2219010
BS10   LXD L(60),2                   RSYM1,AND RSYM2 IF DELTA           F2219020
BS20   CAS BLOCK+61,2                IS THREE.                          F2219030
BS25   TXL BS30,0                                                       F2219040
       TRA BS60                      EQUALITY F UND,TRA.                F2219050
BS30   TXI BS40,2,-3                 RE-ENTRY                           F2219060
BS40   TXH BS20,2                                                       F2219070
BS50   TXL BS70,4,2                                                     F2219080
       LXD L(0),4                                                       F2219090
       CLA RSYM2                                                        F2219100
       TRA BS10                                                         F2219110
BS60   MSE 100                       TEST TO SEE IF                     F2219120
       TRA BS80                      NORMAL SEARCH,OR IF                F2219130
       TRA BS90                      SPECIAL CASE OF DELTA TWO.         F2219140
BS70   LXD BS40,2                    BLOCK SEARCH DONE. IF BLOCK        F2219150
       TXH BS99,2,0                  WAS NOT FULL,EXIT.                 F2219160
       LXD BS25,1                    OTHERWISE,PREPARE TO CONTINUE      F2219170
BS71   TXI BS72,1,57                 SEARCH,IF MORE ENTRIES IN FORVAL.  F2219180
BS72   TXH BS99,1,1499                                                  F2219190
       PXD 0,1                       AND COMPUTE                        F2219200
       ARS 18                        NEW FORVAL                         F2219210
       ADD 4VALAD                    ADDRESS                            F2219220
       STO FORAD                                                        F2219230
BS78   TXL FS00,0                    GO BACK TO CONTINUE SEARCH         F2219240
BS80   STO 4VALES                    RSYM FOUND,ARRANGE TO              F2219250
       LXD XL,1                      SAVE INDEXED SUBSCRIPTS.           F2219260
       CLA BITONE                                                       F2219270
       ORS DOTAGZ+5,1                                                   F2219280
       LXD XC,1                                                         F2219290
       ORS DOTAGZ+5,1                RSYM FOUND,E2 PREVIOUSLY           F2219300
       CLA BLOCK+60,2                PREPARED,NOW PREPARE               F2219310
       STO E1                        E1,SAVE ACC,XR8,XRC,               F2219320
       CLA TSXC0M                    AND LIST.                          F2219330
       SXD BS85,2                    AFTER LISTING,                     F2219340
       SXD BS78,4                    RESTORE ACC,XR8,XRC                F2219330
       TSX LIST,4                    AND RETURN TO CONTINUE             F2219360
       LXD BS85,2                    SEARCH.                            F2219370
       LXD BS78,4                                                       F2219380
       CLA 4VALES                                                       F2219390
BS85   TXL BS30                                                         F2219400
BS90   LXD XL,2                      SPECIAL CASE,DELTA TWO,            F2219410
       CLA BITONE                    PUT IN BIT TO SAVE SL              F2219420
       ORS DOTAGZ+5,2                                                   F2219430
       LXD LOWP0S,2                  OBTAIN INDEX QUANTITY 1, 3, 5.     F2219440
       CLA L(0)                      FOR XL,                            F2219450
       STO X1+5,2                    SET PROPER X AND L TO ZERO,        F2219460
       STO X1+6,2                                                       F2219470
       TIX BS91,2,1                  ADJUST 1,3,5 TO 1,2,4,             F2219480
BS91   PXD 0,2                       PUT IN ACC                         F2219490
BS92   ORS DORC                      AND PUT BIT IN DORC                F2219500
       COM                           REMOVE BIT                         F2219510
       ANS DOSUBS                    FROM DOSUBS                        F2219520
       CLA XC                                                           F2219530
       STO XL                                                           F2219540
       CLA LC                                                           F2219550
       STO LL                                                           F2219560
       CLA L(1)                                                         F2219570
       STO NRDS                                                         F2219580
       STO DELTA                                                        F2219590
       TRA DS4V20                    EXIT                               F2219600
BS99   LXD FS28,4                    EXIT FROM FSXX ENTRY               F2219610
       TRA 1,4                                                          F2219620
4VLHLT LXD 4VLHL8,2                  IF THERE IS AN ERROR IN THE        F2219630
       TIX 4VLHL4,2,1                CHECK SUM ROUTINE,THE BLOCK        F2219640
4VLHL2 TSX DIAG,4  WILL BE REREAD 5 TIMES.    (ERROR. GO TO DIAGNOSTIC.)F2219655
4VLHL4 SXD 4VLHL8,2                  BEFORE THE MACHINE STOPS.          F2219660
4VLHL8 TXL FS05,0                                                       F2219670
FORAD  HTR                           DRUM ADDRESS FOR LDA INSTR.        F2219680
4VALAD HTR 202                                                          F2219690
4VALES HTR                           E.S.                               F2219700
XR1                                                                     F2219710
LR1                                                                     F2219720
XR2                                                                     F2219730
LR2                                                                     F2219740
D2D1                                                                    F2219750
D3D1                                                                    F2219760
D3D2                                                                    F2219770
TR1                                                                     F2219780
TR2                                                                     F2219790
       REM SUBROUTINE GETNAM                                            F2219800
GETNAM LXD NAMXX,1                   THIS ROUTINE SEARCHES              F2219810
       SXD GETN20,1                  TABLE NAMZ FOR THE NAME            F2219820
       LXA NAMXX,1                   OF TAU TAG IN A PARTICULAR         F2219830
       TRA GETN20                                                       F2219840
GETN05 CAS NAMZ,1                    DO FORMULA.                        F2219850
       TRA GETN10                                                       F2219860
       TRA GETN30                                                       F2219870
GETN10 TXI GETN20,1,-2                                                  F2219880
GETN20 TXH GETN05,1                                                     F2219890
       ANA ADDMSK                                                       F2219900
       TRA 1,4                                                          F2219910
GETN30 CLA NAMZ+1,1                                                     F2219920
       TRA 1,4                                                          F2219930
       REM SUBROUTINE ADDSER                                            F2219940
ADDSER PXD 0,1                                                          F2219950
       ADD TAG                                                          F2219960
       LXD ADTXX,1                   PREPARE XRA AND DEC 0              F2219970
       SXD ADS030,1                  ADS030 FOR TABLE SEARCH.           F2219980
       LXA ADTXX,1                                                      F2219990
       TRA ADS030                    TRA FOR EMPTY TABLE TEST           F2220000
ADS010 CAS ADTAGZ,1                                                     F2220010
       TRA ADS020,                                                      F2220020
       TRA ADS040                    FIRST WORD FOUND                   F2220030
ADS020 TXI ADS030,1,-2                                                  F2220040
ADS030 TXH ADS010,1                                                     F2220050
       TRA 2,4                       NOT FOUND                          F2220060
ADS040 CLA ADTAGZ+1,1                                                   F2220070
ADS050 TRA 1,4                                                          F2220080
       REM SUBROUTINES STORES AND STORXX                                F2220090
STORES SXD STO40,4                   THIS ROUTINE PREPARES              F2220100
       CLA LR1                       AN ENTRY FOR TABLE TRASTO          F2220110
       ARS 18                        AND USES LIST TO ENTERS            F2220120
       ADD LC                        THE ENTRY ON THE PROPER            F2220130
       STO E2                        DRUM TABLE. IF SPC000              F2220140
       CLA TR1                       IS USED BY THE ROUTINE,            F2220150
       TXL STO20,2,1                 MANY ENTRIES MAY BE MADE           F2220160
       CLA TR2                       IN TRA STO.                        F2220170
STO20  ALS 18                        IF DELTA EQUALS ONE OR TWO,        F2220180
       ADD TS                        THIS ROUTINE IS ENTERED            F2220190
       STO E3                        THROUGH STORES WITH C(XRB)         F2220200
       TXL STO35,2,0                 ZERO. IF DELTA IS THREE            F2220210
       TXL STO50,2,1                 AND WE ARE WORKING ON              F2220220
       TRA STO35                     TRANSFERS DR2 TO DS THEN           F2220230
STORXX SXD STO40,4                   STORES ENTRY IS USED WITH          F2220240
       CLA LR2                       C(XRB)=2                           F2220250
       ARS 18                        1F DELTA=3,TRA DR1 TO DS,          F2220260
       ADD LR1                       STORES ENTRY IS USED WITH          F2220270
       STO E2                        C(XRB)=1                           F2220280
       CLA TR2                       IF DELTA=3,TRA DR2 TO DR1,         F2220290
       ALS 18                        ENTRY  STORXX IS USED.             F2220300
       ADD TR1                       C(XRB) NOT USED.                   F2220310
       STO E3                        LIST ROUTINE IS.USED IN            F2220320
       REM                                     EVERY CASE,MAKING ONE    F2220330
       REM                                     TRASTO ENTRY,EXCEPT FOR  F2220340
       REM                           CASE DELTA=3,TRA DR1 TO DS,        F2220350
       REM                           C(XRB)=1,WHEN SPC000 IS USED.      F2220360
STO35  CLA DOTAGZ,1                  LIST ROUTINE USED                  F2220370
       STO E1                                                           F2220380
       CLA TRASTO                                                       F2220390
       TSX LIST,4                                                       F2220400
STO40  TXL ST100,0                                                      F2220410
STO50  LXD L(2),2                    SPC000 USED.                       F2220420
       CLA TRASTO                                                       F2220430
       TSX SPC000,4                                                     F2220440
ST100  LXD STO40,4                   EXIT                               F2220450
       TRA 1,4                                                          F2220760
BLOCK  BSS 60                                                           F2220470
       ORG 4056                                                         F2220480
       REM    MASTER RECORD CARD = FN029                                F2220485
PP0NG  LXD PG80,2                    ROUTINE PPONG SETS UP DRUM ONE FOR F2220490
       TRA PG10                      PING-PONGING.                      F2220300
       LXD PG70,2                                                       F2220510
PG10   LXD PG90,4                                                       F2220520
PG15   WRS 193                                                          F2220530
       LXD PG95,1                                                       F2220540
       LDA PG60+2,2                                                     F2220550
PG20   CPY CORESZ,1                                                     F2220560
       TIX PG20,1,1                                                     F2220570
       WRS 219                                                          F2220580
       RDS 193                                                          F2220590
       LXD PG95,1                                                       F2220600
       LDA PG60+2,2                                                     F2220610
PG30   CPY CORES,1                                                      F2220620
       TIX PG30,1,1                                                     F2220630
       LXD PG95,1                                                       F2220640
       PXD 0,0                      PG40-1                              F2220630
PG40   ACL CORES,1                                                      F2220660
       TIX PG40,1,1                                                     F2220670
       SLW PG99                                                         F2220680
       CLA PG99                                                         F2220690
       SUB PG50+2,2                                                     F2220700
       TZE NORMRP                                                       F2220715
       TIX PG15,4,1                                                     F2220720
       TSX DIAG,4  DRUM READ                   ERROR. GO TO DIAGNOSTIC. F2220735
NORMRP RDS 145           SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.    F2220736
       TRA ONETCS        GO TO ONE TO CS (MONITOR)=                     F2220737
PG50   OCT 103075525444  CHECK SUM, STATE B, RELCON                     F2220744
       OCT -246744643200 CHECK SUM STATE A, NORMAL                      F2220754
PG60   OCT 1000                                                         F2220760
       OCT                                                              F2220770
PG70   OCT 1000000                                                      F2220780
PG80   OCT 2000000                                                      F2220790
PG90   OCT 5000000                                                      F2220805
PG95   OCT 1000000000                                                   F2220810
PG99   HTR                                                              F2220820
BURNCE SXD T0P,1             DRUM OVERFLOW                              F2220825
       TRA DIAG              ERROR PROCEDURE.                           F2220826
   T0P EQU 32767                                                        F2220827
TAPE2  EQU 146                                                          F2220830
DOTAPE EQU 147                                                          F2220840
ATAPE  EQU 148                                                          F2220850
PPDRM  EQU 193                                                          F2220860
ADRUM  EQU 195                                                          F2220870
TAUDRM EQU 196                                                          F2220880
TL     EQU 97                                                           F2220890
RELWDS SYN RELDRA+1                                                     F2220900
ABIT   SYN BIT18                                                        F2220910
BBIT   SYN BIT20                                                        F2220920
SUBBIT SYN BIT18                                                        F2220930
CORESZ SYN CORES+512                                                    F2220940
ONETCS EQU 4                                                            F2220945
DIAG   EQU 4                                                            F2220946
       END                                                              F2220950
       REM BLOCK THREE OF SECTION TWO.                                                                  
       REM    MASTER RECORD CARD = FN036                                F2300004
       REM BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR                          F2300006
       REM THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT                    F2300010
       REM ELEMENT OF WHICH IS UNDER CONTROL OF                         F2300020
       REM A DO (PURE RELATIVE CONSTANTS). TWO                          F2300030
       REM TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND      F2300040
       REM WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO    F2300050
       REM COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO    F2300060
       REM SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR-TYPES OF F2300070
       REM TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT       F2300080
       REM CERTAIN INDEXING INSTRUCTIONS SH0ULD BE COMPILED ACCOMPANYINGF2300000
       REM THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES    F2300100
       REM OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND   F2300110
       REM TABLE IRV ENTRIES ARE SORTED AND WRITTEN ON-DRUM. ROUTINES   F2300120
       REM ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 -  F2300130
       REM SUBCOM, TRAWORD, SPC, TINFOR, LIST.                          F2300140
       ORG 25                                                           F2300150
NAME   BSS 1             TABLE STORAGE                                  F2300160
       BSS 449                                                          F2300170
NAMZ   BSS 1                                                            F2300180
FORTAG BSS 1                                                            F2300190
       BSS 1499                                                         F2300200
FORTZ  BSS 1                                                            F2300210
FORVAL BSS 1                                                            F2300220
       BSS 1499                                                         F2300230
4VALZ  BSS 1                                                            F2300240
       ORG 25                                                           F2300250
TCOM   BSS 1                                                            F2300260
       BSS 749                                                          F2300270
TCOMZ  BSS 1                                                            F2311280
       ORG 1977                                                         F2300290
DOTAG  BSS 1                                                            F2300300
       BSS 1349                                                         F2300310
DOTAGZ BSS 1                                                            F2300320
       BSS 149                                                          F2300330
IRVZ   BSS 1                                                            F2300340
TAG    BSS 1             ADDRESS HAS FORTAG IX CURRENT                  F2300350
TS     BSS 1             NEW NAME                                       F2300360
TAGIND BSS 1             ONE IF SOLITARY SUB COEFF ONE, OTHERWISE ZERO  F2300370
DELTA  BSS 1             COUNT OF NO OF SYMBOLS IN SUB COMB             F2300380
RSYM1  BSS 1             WORKING SYMBOL ONE                             F2300390
RSYM2  BSS 1             WORKING SYM8OL TWO                             F2300400
RSYM3  BSS 1             WORKING SYMBOL THREE                           F2300410
C1     BSS 1             COEFF FIRST SYMBOL                             F2300420
S1     BSS 1             FIRST SYMBOL                                   F2300430
C2     BSS 1             COEFF 2ND SYMBOL                               F2300440
S2     BSS 1             2ND SYMBOL                                     F2300450
C3     BSS 1             COEFF 3RD SYMBOL                               F2300460
S3     BSS 1             3RD SYMBOL                                     F2300470
D1     BSS 1             DIM 1ST SYM, IF TWO-DIMENSIONAL                F2300480
D2     BSS 1             DIM 2ND SYM, IF THREE-DIMENSIONAL              F2300490
TL2    BSS 1             LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL          F2300500
XR1    BSS 1             IX DOTAG MATCHING FIRST SUB SYMBOL (RSYM1)     F2300510
LR1    BSS 1             LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1)        F2300520
NEXTR1 BSS 1             IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LVF2300530
XR2    BSS 1             IX DOTAG MATCHING 2ND SUB SYMB (RSYM2)         F2300540
LR2    BSS 1             LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2)        F2300550
NEXTR2 BSS 1             IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV F2300560
XR3    BSS 1             1X DOTAG MATCHING THIRD SUB SYM8 (RSYM3)       F2300570
NEXTR3 BSS 1             IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL F2300580
SKIP   BSS 1             SKIP, ZERO OR 1                                F2300590
TRABIT BSS 1             TRAWORD TEMP STORAGE                           F2300600
NEXTA  BSS 1             INTERMEDIATE UPPER LIMIT OF RANGE              F2300610
LASTB  BSS 1             INTERHEDIATE LOWER LIMIT OF RANGE              F2300620
A      BSS 1             UPPER LIMIT OF RANGE                           F2300630
B      BSS 1             LOWER LIMIT OF RANGE                           F2300640
IRVXX  BSS 1             CURRENT TABLE IRV I.R. VALUE                   F2300650
L(0)       0,0,0                                                        F2300660
L(1)       0,0,1                                                        F2300670
L(2)       0,0,2                                                        F2300680
L(3)       0,0,3                                                        F2300690
L(6)       0,0,6                                                        F2300700
L(36)      0,0,36                                                       F2300710
L(1350     0,0,1350                                                     F2300720
L(1500     0,0,1500                                                     F2300730
L(1)A  OCT 1                                                            F2300740
L(MZ)  MZE                                                              F2300750
BITONE OCT 200000000000                                                 F2300760
BIT18  OCT 400000                                                       F2300770
34ONES OCT 177777777777                                                 F2300780
35ONES OCT 377777777777                                                 F2300790
ADDMSK OCT 77777                                                        F2300800
DECMSK OCT 77777000000                                                  F2300810
PREMSK OCT -200000000000                                                F2300820
DRMADD     202           DRUM ORIGIN OF FORVAL TABLE                    F2300830
NAMORG     1008          DRUM ORIGIN OF NAME TABLE                      F2300840
NAMAD      NAME          CORE ORIGIN OF NAME TABLE                      F2300850
NAMAX      0,0,450       MAXIMUM WORDS IN NAME TABLE                    F2300860
IRVORG     1304          DRUM ORIGIN OF WD COUNT TABLE IRV              F2300870
IRVAD      IRV           CORE ORIGIN OF IRV TABLE                       F2300880
IRVMAX     0,0,150       MAXIMUM WORDS IN IRV TABLE                     F2300890
TCOMOR     704           DRUM ORIGIN OF WD COUNT, TABLE TCOM            F2300900
TSXORG     706           DRUM ORIGIN OF TSXCOM TABLE                    F2300910
TCOMAD     TCOM          CORE ORIGIN OF TCOM TABLE                      F2300920
TCOMAX     0,0,750                                                      F2300930
BLOCK3 CLA 4094          TSXCOM CARRYOYER FROM BLOCK TWO                F2300940
       STO LADDS         EQUAL  TO LAST TABLE ENTRY PLUS ONE.           F2300950
       CLA 4093          TRASTO CARRYOVER FROM BLOCK TWO                F2300960
       STO LADDS+1       EQUAL TO LAST TABLE ENTRY PLUS ONE.            F2300970
       CLA IRVMAX        INITIALIZE IRVXX.                              F2300980
       STO IRVXX         EQUAL TO ETC.                                  F2300990
       LXD FORTAG-1,1    IF FORTAG EMPTY,                               F2301000
       TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.          F2301015
NAMRD  LXD L(6),2        INITIALIZE EERROR COUNTER.                     F2301022
NAM10  CLA 4095          OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2     F2301030
       SUB NAMORG        FROM BLOCK TWO,                                F2301040
       PAX 0,1                                                          F2301050
       TXL NAM95,1,0     IF NO TABLE NAME, GO TO READ IN FORVAL.        F2301060
       RDS ADRUM         READ IN TABLE NAME.                            F2301070
       ADD NAMAD         ADD CORE ORG TABLE NAME T0 COMP TERMINUS AND   F2301080
       STA NAM60         STORE IN COPY ADDRESS.                         F2301090
       PXD 0,1                                                          F2301100
       SSM                                                              F2301110
       ADD NAMAX         DIFF BETWEEN MAX NO ENTRIES AND ACTUAL Nl.     F2301120
       STO NAME-1                                                       F2301130
       LDA NAMORG        DRUM lRG                                       F2301140
NAM60  CPY 0,1                                                          F2301150
       TIX NAM60,1,1                                                    F2301160
       LXD NAME-1,1                                                     F2301170
       SXD NAM80,1                                                      F2301180
       LXD NAMAX,1                                                      F2301190
NAM70  CAL NAMZ,1        COMPUTE CHECK SUM                              F2301200
       ACL NAMZ+1,1      FOR                                            F2301210
       SLW NAMES1        EACH                                           F2301220
       CLA NAMES1        TABLE ENTRY,                                   F2301230
       SUB NAMZ+2,1      AND COMPARE                                    F2301240
       TNZ NAM90         SAME.                                          F2301250
       TXI NAM80,1,-3                                                   F2301260
NAM80  TXH NAM70,1                                                      F2301270
       TRA BEGIN         TABLE NAME ALL IN.                             F2301280
NAM90  TIX NAM10,2,1                                                    F2301290
       TSX DIAG,4  DRUM READ NAME TABLE.       ERROR. GO TO DIAGNOSTIC. F2301305
NAM95  CLA NAMAX         TABLE NAME EMPTY.                              F2301310
       STO NAME-1                                                       F2301320
       TRA BEGIN                                                        F2301330
NAMES1 HTR               TEMP STORAGE                                   F2301340
BEGIN  MSE LIGHT         TEST FOR EHPTY FORVAL                          F2301350
       TRA CPYLP                                                        F2301360
       PSE LIGHT         IF EMPTY,                                      F2301370
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2301385
CPYLP  LXD L(6),2        READ IN FORVAL                                 F2301392
RDSDRM RDS BDRUM                                                        F2301400
       CLA 34ONES        PUT DRUM MARK IN ACC.                          F2301410
       LDA DRMADD                                                       F2301420
       LXD L(1500,1                                                     F2301430
CPYONE CPY 4VALZ,1       PULL IN FIRST WORD OF FORVAL.                  F2301440
       TLQ CPYTWO        TEST FOR DRUM MARK.                            F2301430
       TRA CHKSUM                                                       F2301460
CPYTWO CPY 4VALZ+1,1     PULL IN 2ND WORD OF FORVAL,                    F2301470
       CPY 4VALZ+2,1     AND CHECK SUM.                                 F2301480
       TIX CPYONE,1,3                                                   F2301490
       LXD L(0),1                                                       F2301500
CHKSUM SXD FORVAL-1,1    COMPUTE AND                                    F2301510
       SXD NEXT,1        COMPARE                                        F2301520
       LXD L(1500,1      CHECK                                          F2301530
CSLOOP CAL 4VALZ,1       SUMS.                                          F2301540
       ACL 4VALZ+1,1                                                    F2301550
       SLW COMCS                                                        F2301560
       CLA COMCS                                                        F2301570
       SUB 4VALZ+2,1                                                    F2301580
       TNZ ERROR                                                        F2301590
       TXI NEXT,1,-3                                                    F2301600
NEXT   TXH CSLOOP,1                                                     F2301610
       TRA 2WDDO         FORVAL ALL IN.                                 F2301620
ERROR  TIX RDSDRM,2,1                                                   F2301630
       TSX DIAG,4  DRUM REAAD FORVAL TABLE.    ERROR. GO TO DIAGNOSTIC. F2301645
COMCS  HTR                                                              F2301650
2WDDO  LXD L(6),4        ERROR COUNTER.                                 F2301662
2WDO5  REW TAPE3         PREPARE TO READ IN DOTAG.                      F2301670
       LXD L(300),1                                                     F2301680
       MSE 99            TEST FOR EMPTY DOTAG.                          F2301690
       TRA 2WD10                                                        F2301700
       PSE 99                                                           F2301710
       TRA 2WD70                                                        F2301720
2WD10  RTT                                                              F2301730
       NOP                                                              F2301740
2WD20  RDS TAPE3         PULL                                           F2301750
2WD30  LXD L(7),2        IN                                             F2301760
       CPY DOZ,1         DOTAG                                          F2301770
       TRA 2WD40         BUT                                            F2301780
       TRA 2WD70         ONLY                                           F2301790
       TRA 2WD20         THE                                            F2301800
2WD40  CPY DOZ+1,1       FIRST                                          F2301810
       TRA 2WD50         TWO                                            F2301820
       TSX DIAG,4  WORDS                       ERROR. GO TO DIAGNOSTIC. F2301835
       TSX DIAG,4  OF                          ERROR. GO TO DIAGNOSTIC. F2301845
2WD50  CPY ESXX          EACH                                           F2301850
       TRA 2WD60         TABLE                                          F2301860
       TSX DIAG,4  ENTRY.                      ERROR. GO TO DIAGNOSTIC. F2301875
       TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2301885
2WD60  TIX 2WD50,2,1                                                    F2301890
       TXI 2WD30,1,-2                                                   F2301900
2WD70  SXD DOZ,1                                                        F2301910
       WRS 219                                                          F2301920
       RTT                                                              F2301930
       TRA 2WD80         READ ERROR.                                    F2301940
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2301955
2WD80  TIX 2WDO5,4,1                                                    F2301960
       TSX DIAG,4  TAPE 3 READING DOTAG,       ERROR. GO TO DIAGNOSTIC. F2301975
L(300)     0,0,300                                                      F2301980
L(7)       0,0,7                                                        F2301990
ESXX   HTR               TEMP STORAGE.                                  F2302000
       REM    MASTER RECORD CARD = FN037                                F2302005
       ORG 3980                                                         F2302010
BURNCE SXD T0P,1             DRUM 0VERFLOW                              F2302011
       TRA DIAG              ERROR PROCEDURE                            F2302012
       REM THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC. F2302016
NORMRT RDS 145           SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE.    F2302017
       TRA ONETCS        GO TO ONE TO CS (MONITOR)                      F2302018
LIST   SXD LIST40,4          SAVE LINKAGE                               F2302030
       PDX 0,1           PUT INDEX QUANTITY IN XRA                      F2302040
       PAX 0,6           PUT NR. OF WDS IN XRB,XRC.                     F2302050
       ADD LIST50        COMPUTE NR. OF WRDS                            F2302060
       STA LIST30        PLUS ORIGIN E1 AND                             F2302070
       STA LIST20        INITIALIZE ADDRESSES,                          F2302080
       CLA LADDIN+5,1    TEST                                           F2302090
       ARS 18            FOR                                            F2302100
       SUB LADDS+5,1     FULL                                           F2302110
       TNZ LIST10        TABLE.                                         F2302120
       TSX BURNCE,4          DRUM 0VERFLOW, GO SAVE IRA BEFORE DIAG.    F2302135
LIST10 PXD 0,0           ZERO IN ACC.                              .    F2302140
LIST20 ACL 0,2           COMPUTE                                        F2302150
       TIX LIST20,2,1    ENTRY                                          F2302160
       WRS ADRUM             SELECT DRUM.                               F2302165
       SLW LIST60        CHECK SUM.                                     F2302170
       LDA LADDS+5,1     COPY                                           F2302180
LIST30 CPY 0,4           ENTRY                                          F2302190
       TIX LIST30,4,1    AND                                            F2302200
       CPY LIST60        CHECK SUM.                                     F2302210
       CLA LADDS+5,1     COMPUTE                                        F2302220
       ADD TSXCOM+5,1    NEXT                                           F2302230
       ADD L(1)A         ENTRY                                          F2302240
       ANA ADDMSK        ADDRESS.                                       F2302250
       STO LADDS+5,1                                                    F2302260
       LXD LIST40,4      EXIT                                           F2302270
       TRA 1,4                                                          F2302280
LIST40 HTR               E.S.                                           F2302290
LIST50 HTR E1            L(E1)                                          F2302300
LIST60 HTR               E.S.                                           F2302310
       REM FOUR WORD ENTRY BLOCK                                        F2302320
E1     HTR                                                              F2302330
E2     HTR                                                              F2302340
E3     HTR                                                              F2302350
E4     HTR                                                              F2302360
       REM FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2302370
TSXCOM HTR 2,0,5                                                        F2302380
TRASTO HTR 3,0,4                                                        F2302390
NAMKEY HTR 2,0,3                                                        F2302400
CHATAG HTR 2,0,2                                                        F2122410
DRMTAG HTR 4,0,1                                                        F2302420
       REM FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART.  F2302430
LADDS  HTR               TSXCOM                                         F2302440
       HTR               TRASTO                                         F2302450
       HTR               NAMKEY                                         F2302460
       HTR               CHATAG                                         F2302470
       HTR               DRMTAG                                         F2302480
       REM FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE    F2302490
LADDIN HTR 706,0,1456    TSXCOMP                                        F2302500
       HTR 304,0,704     TRASTO                                         F2302510
       HTR 1008,0,1458   NAMKEY                                         F2302520
       HTR 2,0,302       CHATAG                                         F2302530
       HTR 1460,0,1960   DRMTAG                                         F2302540
       REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE                   F2302550
       REM CORRESP0NDING SUBSCRIPT COMPINATION FROM THE TAU             F2302560
       REM DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE.           F2302570
SUBCOM SXD SUB085,4      SAVE LINKAGE INDX.                             F2302580
       LXD SUBORG,1      INITIALIZE ERROR COUTNER.                      F2302590
SUB010 RDS TAUDRM        SELECT TAU DRUM.                               F2302600
       LXD SUBORG+2,4    INITIALIZE                                     F2302610
       PXD 0,0           SUBSCRIPT COMBINATION                          F2302620
SUB020 STO C1+8,4        SPACE                                          F2302630
       TIX SUB020,4,1    T0 ZERO.                                       F2302640
       CLA TAG           COMPUTE                                        F2302650
       LRS 9             DRUM                                           F2302660
       PAX 0,6           ADDRESS.                                       F2302670
       PXD 0,0           TAU ONE ADD. IS ORG+3TAU.                      F2302680
       LLS 9             TAU TWO ADD. IS ORG+5TAU.                      F2302690
       STO SUBES1        TAU THREE ADD. IS ORG+7TAU.                    F2302700
       ALS 1             STORE                                          F2302710
       STO SUBES2        ADDRESS                                        F2302720
       CLA SUBORG+3,4    IN SUBES1                                      F2302730
       ADD SUBES1        FOR LDA                                        F2302740
SUB030 ADD SUBES2        INSTRUCTION.                                   F2302750
       TIX SUB030,4,1                                                   F2302760
       STA SUBES1                                                       F2302770
       LDA SUBES1        COPY SUB. COMB.                                F2302780
       CPY C1            TAU ONE, TWO, THREE                            F2302790
       TXL SUB040,2,2                                                   F2302800
       CPY C3            TAU 3                                          F2302810
SUB040 CPY S1            TAU 1,2,3                                      F2302820
       TXL SUB060,2,1                                                   F2302830
       CPY S2            TAU2,3                                         F2302840
       TXL SUB050,2,2                                                   F2302850
       CPY S3            TAU 3                                          F2302860
SUB050 CPY D1            TAU 2,3                                        F2302870
SUB060 CPY SUBES1        TAU 1,2,3                                      F2302880
       LXD SUBORG,4      COMPUT CHECK SUM                               F2302890
       CAL C1            AND COMPARE WITH                               F2302900
SUB070 ACL C1+7,4        ENTRY CHECK CUM.                               F2302910
       TIX SUB070,4,1    THREE ATTMPTS ARE MADE                         F2302920
       SLW SUBES2        T0 READ SC CORRECTLY.                          F2302930
       CLA SUBES2        IF ERROR STILL PRESENT,                        F2302940
       SUB SUBES1        COMPLETE ROUTINE, MAKE ERROR RET.              F2302950
       TZE SUB075        CHECK SUMS AGREE, TRA.                         F2302960
       TIX SUB010,1,1    CHECK SUMS DISAGREE,                           F2302972
       TSX DIAG,4  IN READING TAU FROM DRUM,   ERROR. GO TO DIAGNOSTIC. F2302983
SUB075 LXD SUBORG+1,4    REARRANGE C1, C2, D1, D2,                      F2302990
SUB080 CLA C1+7,4        TO COMPLY WITH CORE                            F2303000
       PAX 0,2           STORAGE FORMAT.                                F2303010
       ANA DECMSK                                                       F2303020
       STO C1+7,4                                                       F2303030
       PXD 0,2                                                          F2303040
       TNX SUB090,4,6                                                   F2303050
       STO C2                                                           F2303060
SUB085 TXL SUB080,0                                                     F2303070
SUB090 STO D2                                                           F2303080
       LXD SUB085,4      RESTORE LINKAGE INDEX,                         F2303090
       NOP                                                              F2303102
       TRA 1,4                                                          F2303110
SUB100 NOP                                                              F2303122
SUBORG OCT 000006001356                                                 F2303130
       OCT 7000454       DEC. IS 7, ADD. IS ORG. TAU 2                  F2303140
       OCT 10000000      DEC. IS 8, ADD. IS ORG. TAU 1                  F2303150
SUBES1 HTR               E.S.                                           F2303160
SUBES2 HTR               E.S.                                           F2303170
       ORG 3537                                                         F2303180
       REM    MASTER RECORD CARD = FN039                                F2303185
BL3A   LXD FORTAG-1,1    IF FORTAG                                      F2303190
       TXH NORMRT,1,1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1.     F2303205
       MSE LIGHT         IF FORVAL IS EMPTY,                            F2303210
       TRA INIT                                                         F2303220
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2303235
INIT   LXD FORVAL-1,1    INITIALIZE                                     F2303240
       SXD TAB60,1       .                                              F2303250
       LXD FORTAG-1,1    .                                              F2303260
       SXD VAL80,1       .                                              F2303270
       SXD VAL95,1       .                                              F2303280
       LXD DOZ,1         .                                              F2303290
       SXD IND20,1       .                                              F2303300
VALTAG LXD L(1500,1      THIS PROGRAM                                   F2303310
VAL10  CLA FORTZ,1       MAKES A                                        F2303320
       TMI VAL90         PASS OVER                                      F2303330
       ANA BITONE        FORTAG, AND                                    F2303340
       TNZ VAL90         FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2)   F2303350
       CLA FORTZ,1       TAG WITH BITONE EQUAL                          F2303360
       ANA ADDMSK        TO ZERO, (NOT YET TREATED HERE)                F2303370
       STO TAG           OBTAINS THE CORRESP0ND1NG SUBSCRIPT            F2303380
       SXD SAVEA,1       COMPINATION FROM THE                           F2303390
       TSX SUBCOM,4      TAU TABLE DRUM.                                F2303400
       LXD L(3),4                                                       F2303410
       PXD 0,0                                                          F2303420
VAL20  STO RSYM1+3,4     INITIALIZE WITH ZEROES.                        F2303430
       TIX VAL20,4,1                                                    F2303440
       LXD L(6),1        THIS ROUTINE STORES                            F2303450
       LXD L(3),2        THE SYMBOLS AS FOLLOWS                         F2303460
VAL30  CLA S1+6,1        LEFTMOST IN RSYM1,                             F2303470
       TZE VAL40         NEXT SYMBOL IN RSYM2,                          F2303480
       STO RSYM1+3,2     RIGHTMOST IN RSYM3.                            F2303490
       TXI VAL40,2,-1    IF THERE ARE NOT THREE                         F2303500
VAL40  TIX VAL30,1,2     SYMBOLS IN THE SC, THEN                        F2303510
       PXD 0,2           THE RSYM LOCATIONS ARE                         F2303520
       SSM               SET TO ZERO.                                   F2303530
       ADD L(3)          DELTA IS THE SYMBOL COUNT.                     F2303540
       TZE VAL60         SUBSCRIPT IS CONSTANT, NO SYMBOLS.             F2303550
       STO DELTA                                                        F2303560
       LXD L(0),4        LOCATION TAGIND IS SET                         F2303570
       SUB L(1)          TO ZERO, UNLESS THE SC                         F2303580
       TNZ VAL50         HAS THE FOLLOWING                              F2303590
       CLA S1            CHARACTERISTICS                                F2303600
       TZE VAL50         ONE SYMBOL                                     F2303610
       LXD C1,1          IN LEFTMOST POSITION                           F2303620
       TXH VAL50,1,1     WITH COEFFICIENT EQUAL                         F2303630
       LXD L(1),4        TO ONE                                         F2303640
VAL50  SXD TAGIND,4                                                     F2303650
SAVEA  TXL TABSER,0      GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX)  F2303660
VAL60  LXD SAVEA,1       RETURN FROM PROCESSING                         F2303670
       CLA FORTZ,1       ROUTINE. FOR THIS TAG,                         F2303680
       TMI VAL70         AND ALL TAGS EQUAL TO                          F2303690
       ANA BITONE        THIS TAG, SET FORTAG                           F2303700
       TNZ VAL70         ENTRY BIT ONE EQUAL                            F2303710
       CLA FORTZ,1       TO ONE.                                        F2303720
       ANA ADDMSK                                                       F2303730
       SUB TAG                                                          F2303740
       TNZ VAL70                                                        F2303750
       CLA BITONE                                                       F2303760
       ORS FORTZ,1                                                      F2303770
VAL70  TXI VAL80,1,-1                                                   F2303780
VAL80  TXH VAL60+1,1     IF FORTAG DONE,       (DEC HAS FORTAGIX)       F2303790
       LXD SAVEA,1       GO BACK                                        F2303800
VAL90  TXI VAL95,1,-1    FOR NEXT TAG                                   F2303810
VAL95  TXH VAL10,1       IF ANY        (DEC HAS FORTAGIX)               F2303820
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2303835
TABSER LXD L(1500,1      SEARCH                                         F2303840
       SXD TAB40,2              (6 - 2X NO SUB SYMBOLS     - VAL40)     F2303850
TAB10  LXD L(3),2        FORVAL                                         F2303860
       CLA 4VALZ+1,1     FOR AN                                         F2303870
TAB20  CAS RSYM1+3,2     OCCURRANCE                                     F2303880
       TRA TAB30         OF ANY SYMBOL                                  F2303890
       TRA FOUND         IN THIS SC.                                    F2303900
TAB30  TXI TAB40,2,-1                                                   F2303910
TAB40  TXH TAB20,2                ( DEC LOADED FROM TABSER + 1)         F2303920
TAB50  TXI TAB60,1,-3                                                   F2303930
TAB60  TXH TAB10,1                      (DEC HAS FORVALIX)              F2303940
       TRA VAL60                                                        F2303950
FOUND  SXD FND10,1       IF SYMBOL FOUND,                               F2303960
       LXD TAGIND,4      MAKE NORMAL OR SPECIAL                         F2303970
       CLA 4VALZ,1       ENTRY IN TSXCOM, DEPENDING                     F2303980
       TXH FND20,4,0     ON TAGIND. (UNLESS SEE SUBRT INDO)             F2303990
       STO FORNR                                                        F2304000
       TSX INDO,4                                                       F2304010
       TRA FND40         INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG F2304020
       LXD FND10,1       RETURN FROM INDO WHEN NOT SO.                  F2304030
       CLA 4VALZ,1                                                      F2304040
       STO E1            SPECIAL ENTRY IF TAGIND                        F2304050
       CLA TAG           NOT ZERO                                       F2304060
       ALS 18                                                           F2304070
       ORA TAG                                                          F2304080
FND10  TXL FND30,0                   (DEC HAS FORTAG IX)                F2304090
FND20  ORA TAG           SET UP E BLOCK WHEN TAGIND EQUAL  1            F2304100
       STO E1                                                           F2304110
       CLA RSYM1         TAG SYMBOL                                     F2304120
FND30  STO E2                                                           F2304130
       CLA TSXCOM        TSXCOM KEY                                     F2304140
       TSX LIST,4                                                       F2304150
FND40  LXD FND10,1                                                      F2304160
       TRA TAB50         CONTINUE SEARCH                                F2304170
       REM SUBRT INDO.... THIS ROUTINE DETERMINES  WHETHER THE FORVAL   F2304180
       REM WHICH HAS BEEN FOUND TO HATCH A SUBSCRIPT FALLS WITHIN RANGE F2304190
       REM OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS F2304200
       REM MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED.     F2304210
INDO   LXD IND60,1                                                      F1004220
       TRA IND20 .                                                      F1004230
IND10  CLA DOZ,1         OBTAIN FIRST WORD DOTAG.                       F2304240
       PAX 0,2           DOTAGS BETA.                                   F2304250
       ANA DECMSK        DOTAGS ALPHA                                   F2304260
       CAS FORNR         AGAINST FORVAL ALPHA.                          F2304270
       TRA 2,4           OUTSIDE RANGE . RETURN.                        F2304280
       TSX DIAG,4  FORVAL ALPHA EQ DO ALPHA.   ERROR. GO TO DIAGNOSTIC. F2304295
       PXD 0,2                                                          F2304300
       CAS FORNR         DOTAGS BETA AGAINST FORVAL ALPHA.              F2304310
       TRA IND30         FORVAL WITHIN RANGE                            F2304320
       TRA IND30         OF DOTAG.                                      F2304330
       TXI IND20,1,-2                                                   F2304340
IND20  TXH IND10,1                                                      F2304350
       TRA 2,4           DOTAG EXHAUSTED, RETURN.                       F2304360
IND30  LXD L(3),2                                                       F2304370
       CLA DOZ+1,1       FN  EDIT CORR CD NR.                           F2304384
IND40  CAS RSYM1+3,2     DOES DOTAG SYMBOL EQUAL                        F2304390
       TRA IND50         FORVAL SYMBOL (WHICH HAS BEEN FOUND            F2304400
       TRA 1,4           T0 EQUAL SUBSCRIPT). IF SO, RETURN.            F2304410
IND50  TIX IND40,2,1                                                    F2304420
       TXI IND20,1,-2                                                   F2304430
FORNR  HTR               STORAGE FOR FIRST WD FORVAL (ALPHA)            F2304440
IND60      0,0,300                                                      F2304450
DO     BSS 1                                                            F2304460
       BSS 299                                                          F2304470
DOZ    BSS 1                                                            F2304480
       ORG 3537                                                         F2304490
       REM    MASTER RECORD CARD = FN041                                F2304495
BL3B   LXD FORTAG-1,1    FORTAG EMPTY                                   F2304500
       TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1.          F2304515
       MSE 99            TEST FOR EMPTY DOTAG                           F2304520
       TRA RDOTAG        OFF                                            F2304530
       PSE 99            ON, EMPTY                                      F2304540
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2304555
RDOTAG LXD L(6),6        INITIALIZE ERROR COUNTERS.                     F2304562
RDP0S  BST TAPE2         POSITION TAPE 2 FOR DOTAG                      F2304570
       BST TAPE2                                                        F2304580
       RDS TAPE2                                                        F2304590
       CPY RDES1                                                        F2304600
       CPY RDES2                                                        F2304610
       CPY                                                              F2304620
       TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304635
       TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304645
RDREC  CLA RDES1                                                        F2304650
       SUB RDES2                                                        F2304660
       TZE RDBACK                                                       F2304670
       TIX RDP0S+1,4,1   ERROR - REREAD                                 F2304680
       TSX DIAG,4                              ERROR. GO TO DIAGNOSTIC. F2304695
RDBACK LXD RDES1,1       NO RECORDS                                     F2304700
       TXI RDBST,1,2                                                    F2304710
RDBST  BST TAPE2         8ACKSPACE DESIGNATED NO RECORDS                F2304720
       TIX RDBST,1,1                                                    F2304730
       LXD L(1350,1      MAX SIZE DOTAG                                 F2304740
RDRDS  RDS TAPE2                                                        F2304750
RDCPY  CPY DOTAGZ,1      READ IN DOTAG                                  F2304760
       TXI RDCPY,1,-1                                                   F2304770
       TRA RDEOF                                                        F2304780
       TRA RDRDS                                                        F2304790
RDEOF  SXD DOTAG-1,1     DOTAG INDEX(1350-NO DOTAG ENTRIES)             F2304800
       RDS TAPE2         SPACE TAPE.                                    F2304810
       RDS TAPE2                                                        F2304820
       WRS 219                                                          F2304830
       RTT                                                              F2304840
       TRA RDER          ON                                             F2304850
       TRA DOPASS                                                       F2304860
RDER   TIX RDP0S,2,1     TRY TWICE MORE.                                F2304870
       TSX DIAG,4  TAPE 2, READING DOTAG.      ERROR. GO TO DIAGNOSTIC. F2304885
RDES1  HTR               RECORD COUNT                                   F2304890
RDES2  HTR               RECORD COUNT                                   F2304900
DOPASS LXD DOTAG-1,1     DOTAG INDEX.                                   F2304910
       SXD SYM40,1       INITIALIZE.                                    F2304920
       SXD SYM130,1      .                                              F2304930
       SXD SYM220,1      .                                              F2304940
       SXD TRAW20,1      .                                              F2304950
       SXD TRAW50,1      .                                              F2304960
       SXD SPC040,1      .                                              F2304970
       SXD SPC090,1      .                                              F2304980
       LXD NAME-1,1      .                                              F2304990
       SXD GETN20,1      .                                              F2305000
       REM THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON-       F2305010
       REM NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMPINATIONF2305020
       REM FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS    F2305030
       REM RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INIT1ALIZED.     F2305040
       REM CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY F2305050
       REM IN FORTAG AND ALL OTHER N0N- NEGATIVE ENTRIES  CONTAINING    F2305060
       REM THIS TAG ARE SET NEGATIVE.                                   F2305070
TAGPAS LXD FORTAG-1,1                                                   F2305080
       SXD TINF30,1                                                     F2305090
       SXD TAGP80,1                                                     F2305100
       SXD TAGP98,1                                                     F2305110
       LXD L(1500,1                                                     F2305120
TAGP10 CLA FORTZ,1                                                      F2305130
       TMI TAGP94        IF NEG, GET NEXT FORTAG                        F2305140
       ANA ADDMSK        TAG                                            F2305150
       STO TAG                                                          F2305160
       SXD TAGX,1        SAVE CURRENT FORTAG IX                         F2305170
       TSX SUBCOM,4      OBTAIN AND DISPERSE THE TAU TABLES.            F2305180
       LXD L(3),4                                                       F2305190
       PXD 0,0                                                          F2305200
TAGP20 STO RSYM1+3,4     INITIALIZE RSYM LOCATIONS WITH ZERO.           F2305210
       TIX TAGP20,4,1                                                   F2305220
       LXD L(6),1                                                       F2305230
       LXD L(3),2                                                       F2305240
       LXD L(0),4                                                       F2305250
TAGP30 CLA S1+6,1        GET SYMBOL                                     F2305260
       TZE TAGP40        IF ZERO, GET NEXT SYMBOL                       F2305270
       TXH TAGP34,2,2    AT RSYM2 AND RSYM3 PASS,                       F2305280
       CAS RSYM1         CHECK FOR DUPLICATE SYMBOLS.                   F2305290
       TRA TAGP32                                                       F2305300
       TXI TAGP40,4,1    SYMBOL DUPLICATES RSYM1.                       F2305310
TAGP32 CAS RSYM2                                                        F2305320
       TRA TAGP34                                                       F2305330
       TXI TAGP40,4,1    SYMBOL DUPLICATES RSYM2.                       F2305340
TAGP34 STO RSYM1+3,2                                                    F2305350
       TXI TAGP40,2,-1   BUMP DELTA COUNTER.                            F2305360
TAGP40 TIX TAGP30,1,2                                                   F2305370
       PXD 0,2           COMPUTE                                        F2305380
       SSM               DELTA AS NO                                    F2305390
       ADD L(3)          OF DISTINCT SYMBOLS.                           F2305400
       TZE TAGP50        CONSTANT SUBSCRIPT.                            F2305410
       STO DELTA                                                        F2305420
       LXD L(0),2                                                       F2305430
       TXH TAGP45,4,0    IF DUPES, SET TAGIND TO ZERO                   F2305440
       SUB L(1)                                                         F2305450
       TNZ TAGP45        IF DELTA OTHER THAN ONE, SET TAGIND TO ZERO    F2303460
       CLA S1                                                           F2305470
       TZE TAGP45        IF SUBSCRIPT CONSTANT, SET TAGIND TO ZERO      F2305480
       LXD C1,1          IF COEFF OTHER THAN 1 SET TAGIND TO ZERO       F2305490
       TXH TAGP45,1,1                                                   F2305500
       LXD L(1),2        OTHERWISE SET TAGIND TO ONE.                   F2305510
TAGP45 SXD TAGIND,2                                                     F2305520
       TRA SYMONE        GO TO ANALYZE DONESTI                          F2305530
TAGP50 LXD TAGX,1        IF ANY              .                          F2305540
TAGP60 CLA FORTZ,1       OF THE AS YET UNTREATED                        F2305550
       TMI TAGP70        FORTAGS                                        F2305560
       ANA ADDMSK        ARE                                            F2305570
       SUB TAG           THE SAME AS THAT TAG                           F2305580
       TNZ TAGP70        JUST TREATED,                                  F2305590
       CAL L(MZ)         SET THEM                                       F2305600
       ORS FORTZ,1       MINUS.                                         F2305610
TAGP70 TXI TAGP80,1,-1                                                  F2305620
TAGP80 TXH TAGP60,1                   ( DEC HAS FORTAG IX)              F2305630
TAGP90 LXD TAGX,1                                                       F2305640
TAGP94 TXI TAGP98,1,-1   IF ALL OF FORTAG                               F2305650
TAGP98 TXH TAGP10,1      HAS BEEN COMPLETED,   (DEC HAS FORTAG IX)      F2305660
TAGX   TXL NORMRT,0      NORMAL RET MONITOR. (DEC HAS  CURR FORTAG IX)  F2305675
       REM ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS F2305680
       REM SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE       F2305690
       REM PROCESS SHOULD BE USED.                                      F2305700
       REM IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2.          F2305710
SYMONE LXD L(1350,1                                                     F2305720
SYM10  LXD L(3),2                                                       F2305730
       CLA DOTAGZ+1,1    GET NEXT DOTAG SYMBOL.                         F2305740
SYM20  CAS RSYM1+3,2     IS IT SAME AS SUBSCRIPT SYMBOL.                F2305750
       TRA SYM30                                                        F2305760
       TRA SYM50         YES                                            F2305770
SYM30  TIX SYM20,2,1                                                    F2305780
       TXI SYM40,1,-9                                                   F2305790
SYM40  TXH SYM10,1       END OF DOTAG, RETURN.                          F2305800
       TRA TAGP50                                                       F2305810
SYM50  CLA RSYM1         INTERCHANGE THE                                F2305820
       LDQ RSYM1+3,2     MATCHING SUBSCRIPT                             F2305830
       STO RSYM1+3,2     SYMBOL WITH                                    F2305840
       STQ RSYM1         RSYM1.                                         F2305850
       CLA DOTAGZ+5,1                                                   F2305860
       ANA DECMSK        STORE LEVEL                                    F2305870
       STO LR1           OF                                             F2305880
       STO TL2           DOTAG                                          F2305890
       SXD XR1,1         THIS DOTAG IS R1.                              F2305900
       LXD DELTA,4       IF DELTA IS                                    F2305910
       LXD L(1),2        ONE, THEN                                      F2305920
       TXL SYM60,4,1     NO TRAWORD SKIP.                               F2305930
       LXD L(2),2        OTHERWISE, TRAWORD SKIP,                       F2305940
SYM60  TSX TRAWRD,4                                                     F2305950
       SXD NEXTR1,1      SAVE INDEX LAST DOTAG HANDLED.                 F2305960
       TZE SYM70         ARE THERE TRANSFERS OUT(TRABITS).              F2305970
       LXD XR1,1         YES. LOAD I.R. FOR MATCHING DOTAG.             F2305980
       LXD L(1),2        A ONE TELLS PROCESS THAT                       F2305990
       TSX PROCES,4      CALLER WAS SYMONE. (B).                        F2306000
SYM70  LXD DELTA,4       NO TRANSFERS OUT (TRABITS)                     F2306010
       TXL SYM80,4,1     IF DELTA IS GREATER THAN ONE, THEN             F2306020
       LXD XR1,1         LOAD INDEX REG FOR MATCHING DOTAG,             F2306030
       LXD LR1,2         AND LEVEL AND                                  F2306040
       TRA SYM2          GO TO SECOND LEVEL SEARCH.                     F2306050
SYM80  LXD NEXTR1,1      DELTA IS ONE,                                  F2306060
       TRA SYM40         CONTINUE FIRST LEVEL SEARCH.                   F2306070
       REM ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS   F2306080
       REM NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE    F2306090
       REM IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY.                 F2306100
SYM2   SXD SYM100,2      INITIALIZE LEVEL TEST                          F2306110
       TRA SYM120                                                       F2306120
SYM90  CLA DOTAGZ+5,1    GET LEVEL OF                                   F2306130
       PDX 0,2           NEW DOTAG AND                                  F2306140
SYM100 TXL SYM40,2       TEST AGAINST LEVEL OF R1 AND                   F2306150
       CLA DOTAGZ+1,1    IF WITHIN RANGE OF R1,                         F2306160
       CAS RSYM2         TEST MATCH DOTAG SYMBOl AGAINST RSYM2.         F2306170
       TRA SYM110                                                       F2306180
       TRA SYM150        MATCHES . GO TO TREAT R2.                      F2306190
SYM110 SUB RSYM3         DOESNT MATCH RSYM2, TRY RSYM3.                 F2306200
       TZE SYM140                                                       F2306210
SYM120 TXI SYM130,1,-9   GET NEXT DOTAG                                 F2306220
SYM130 TXH SYM90,1                 (DEC CONTAINS DOTAG IX)              F2306230
       TRA SYM40         IF END OF DOTAG, EXIT.                         F2306240
SYM140 CLA RSYM2         DOTAG SYMBOL MATCHES RSYM3 -                   F2306250
       LDQ RSYM3         INTERCHANGE                                    F2306260
       STO RSYM3         RSYM2 AND                                      F2306270
       STQ RSYM2         RSYM3.                                         F2306280
SYM150 SXD XR2,1         THIS DOTAG IS R2                               F2306290
       SXD LR2,2         SAVE ITS LEVEL .                               F2306300
       LXD L(1),2        IF DELTA IS                                    F2306310
       LXD DELTA,4       TWO OR ONE, THEN                               F2306320
       TXL SYM160,4,2    N0 TRAWORD SKIP.                               F2306330
       LXD L(2),2        OTHERWISE TRAWORD SKIP.                        F2306340
SYM160 TSX TRAWRD,4                                                     F2306350
       SXD NEXTR2,1      SAVE INDEX LAST DOTAG HANDLED.                 F2306360
       TZE SYM170        ARE THERE TRANSFERS OUT (TRABITS)              F2306370
       LXD XR2,1         YES. LOAD IX REG FOR MATCHING DOTAG.           F2306380
       LXD L(2),2        A TWO TELLS PROCESS THAT                       F2306390
       TSX PROCES,4      CALLER WAS SYM2. (2).                          F2306400
SYM170 LXD DELTA,4       O0 TRANSFERS OUT (TRABITS)                     F2306410
       TXL SYM180,4,2    IF DELTA IS 3 , THEN                           F2306420
       LXD XR2,1         LOAD INDEX REG FOR MATCHING DOTAG.             F2306430
       LXD LR2,2         AND LEVEL AND                                  F2306440
       TRA SYM3          GO TO THRID LEVEL SEARCH                       F2306450
SYM180 LXD NEXTR2,1      DELTA IS LESS THAN-THREE,                      F2306460
       TRA SYM130        CONTINUE SECOND LEVEL SEARCH.                  F2306470
       REM ROUTINE  SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2306480
       REM DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF     F2306490
       REM NECESSARY, AND THEN RETURNS TO SYM2.                         F2306500
SYM3   SXD SYM200,2      INITIALIZE WITH LEVEL.OF R2.                   F2306510
       TRA SYM210                                                       F2306520
SYM190 CLA DOTAGZ+5,1    OBTAIN LEVEL                                   F2306530
       PDX 0,2           OF CURRENT DOTAG AND IF IT IS                  F2306540
SYM200 TXL SYM130,2      OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2)  F2306550
       CLA DOTAGZ+1,1    OTHERWISE CHECK FOR IDENTIRY                   F2306560
       SUB RSYM3         WITH THIRD FORTAG SYMBOL.                      F2306570
       TZE SYM230        IF  IDENTITY, GO TO ANALYZE . OTHERWISE,       F2306580
SYM210 TXI SYM220,1,-9   GET NEXT DOTAG.                                F2306590
SYM220 TXH SYM190,1      IF END OF DOTAG,  (DEC HAS DOTAG IX)           F2306600
       TRA SYM130        EXIT FROM THIRD LEVEL SEARCH                   F2306610
SYM230 SXD XR3,1         SAVE IX OF MATCHING DO                         F2306620
       LXD L(1),2        NO TRAWORD SKIP.                               F2306630
       TSX TRAWRD,4      GO TO HUNT TRANSFERS-OUT.                      F2306640
       TZE SYM220        IF NO TRNSFRS OUT-(TRABITS) RETURN TO SRCH     F2306650
       SXD NEXTR3,1      TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAWORDF2306660
       LXD XR3,1                                                        F2306670
       LXD L(3),2        THREE TELLS PROCESS THAT CALLER WAS SYM3       F2306680
       TSX PROCES,4                                                     F2306690
       LXD NEXTR3,1      GET IX NEXT DOTAG AND                          F2306700
       TRA SYM220        CONTINUE THIRD LEVEL SEARCH.                   F2306710
       REM ROUTINE PROCESS DETERHINES WHETHER OR NOT THERE EXISTS  A    F2306720
       REM TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER  ITS     F2306730
       REM TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG F2306740
       REM IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOl HAS  F23067S0
       REM BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIESF2306760
       REM ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS.  F2306770
PROCES SXD DOX,1         SAVE DOTAG IX                                  F2306780
       SXD SYMLNK,4      AND CALLER                                     F2306790
       SXD PR10,2        AND INITIALIZE WITH B.                         F2306800
       LXD DELTA,2                                                      F2306810
       LXD L(0),4                                                       F2306820
PR10   TXH PR20,2        DOES DELTA EXCEED B.  (DEC HAS B)              F2306830
       LXD L(1),4        IF NOT, THEN NO SKIP. OTHERWISE,               F2306840
PR20   SXD SKIP,4        SXIP IF C(SKIP)=0.                             F2306850
       LXD TAGIND,4      TRA IF SPECIAL CASE, I.E., MOST SIMPLE         F2306860
       TXH PRSPEC,4,0    (TAGIND NOT ZERO)                              F2306870
       CLA DOTAGZ,1      SEARCH TABLE NAME                              F2306880
       ANA DECMSK        GET RSYM1 DOTAG ALPHA IN DEC                   F2306890
       ADD TAG           AND FORTAG IN ADDRESS.                         F2306900
GETNAM LXD NAMAX,1       LOAD MAX NO NAME TABLE WORDS                   F2306910
       TRA GETN20                                                       F2306920
GETN05 CAS NAMZ,1        DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE   F2306930
       TRA GETN10        FIRST WORD OF NAME TABLE MATCH THOSE ABOVE.    F2306940
       TRA GETN30        YES.                                           F2306950
GETN10 TXI GETN20,1,-3   NO, GET NEXT NAME TABLE.                       F2306960
GETN20 TXH GETN05,1      IS NAME TABLE EXHAUSTED  (DEC HAS NAME IX)     F2306970
DOX    TXL PR25,0        YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAGF2306980
GETN30 CLA NAMZ+1,1      FOUND. OBTAIN NEW TAG NAME                     F2306990
       STO TS            AND SAVE IT.                                   F2307000
SYMLNK TXL PR80,0                                                       F2307010
PR25   LXD SKIP,4        NOT FOUND IN NAME TABLE,                       F2307020
       LXD DOX,1         SEARCH FORTAG                                  F2307030
       TXH PR30,4,0      IN PROPER RANGE.                               F2307040
       LXD L(1),2        INDICATE TINFOR SEARCH REQUIRED                F2307050
       TSX SPC000,4                                                     F2307060
       TRA PR40          NOT FOUND                                      F2307070
       TRA PR90          T FOUND                                        F2307080
PR30   TSX TINFOR,4                                                     F2307090
       TRA PR90          FOUND, GO TO EXIT.                             F2307100
PR40   LXD L(0),2        T NOT FOUND, MAKE TYPE 6                       F2307110
       TSX TRAENT,4      TRASTO ENTRY                                   F2307120
       REM MAKE ENTRY IN TABLE IRV                                      F2307130
PR60   LXD IRVXX,1       GET IX FOR ENTRY IN TABLE IRV.                 F2307140
       TXH PR70,1,0                                                     F2307150
       TSX DIAG,4  TABLE IRV FULL.             ERROR. GO TO DIAGNOSTIC. F2307165
PR70   CLA TAG           PLACE TAG IN                                   F2307170
       ALS 18            DECREMENT AND                                  F2307180
       ADD TAG           ADDRESS AND                                    F2307190
       STO IRVZ,1        STORE ENTRY IN TABLE IRV                       F2307200
       TXI PR75,1,-1     BUMP IRV TABLE INDEX AND                       F2307210
PR75   SXD IRVXX,1       SAVE IT FOR NEXT ENTRY.                        F2307220
       TRA PR90                                                         F2307230
PR80   LXD L(1),2        MAKE TYPE ONE TRASTO ENTRY                     F2307240
       TSX TRAENT,4                                                     F2307250
PR90   LXD SYMLNK,4      RESTORE INDEX REG                              F2307260
       TRA 1,4           AND RETURN T0 CALLER                           F2307270
       REM ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2307280
       REM RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE)               F2307290
PRSPEC CLA DOTAGZ+8,1    IF  DOTAGS                                     F2307300
       ARS 18            TEST NAME                                      F2307310
       SUB TAG           IS SAME AS                                     F2307320
       TNZ PR100         CURRENT FORTAG                                 F2307330
       CLA BIT18         AND IF                                         F2307340
       ANA DOTAGZ+6,1    THERE IS A                                     F2307350
       TZE PR90                                                         F2307360
       LXD L(3),2        MAKE A TYPE 5 TRASTO ENTRY                     F2307370
       TSX TRAENT,4                                                     F2307380
       TRA PR90                                                         F2307390
PR100  TSX TINFOR,4      LOOK FOR ALREADY PROCESSED IDENT FORTAG.       F2307400
       TRA PR90          FOUND.                                         F2307410
       LXD L(2),2        NOT FOUND, MAKE A TYPE 1 TRASTO                F2307420
       TSX TRAENT,4      ENTRY                                          F2307430
       TRA PR90                                                         F2307440
       REM MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN      F2307450
       REM B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE   F2307460
       REM SIX TRASTO ENTRY WHEN B IS ZERO.                             F2307470
TRAENT SXD TE70,4                                                       F2307480
       LXD DOX,1                                                        F2307490
       CLA DOTAGZ,1      GET DOTAGS ALPHA AND BETA                      F2307300
       TXL TE10,2,2      WHERE B IS 3 (TYPE5)                           F2307510
       SSM               SET E1 NEG.                                    F2307520
TE10   STO E1            AND STORE IN E1.                               F2307530
       CLA TL2           GET LEVEL OF DOTAG                             F2307540
       ARS 18            INTO ADDRESS AND                               F2307550
       TXH TE20,2,0      WHERE B ZERO (TYPE 6),                         F2307560
       SSM               SET NEG AND                                    F2307570
TE20   STO E2            PUT IT INTO E2.                                F2307580
       TXL TE40,2,1      WHERE B 2OR3 (TYPE 1 OR 5),                    F2307590
       CLA DOTAGZ+8,1    PREPARE DOTAGS                                 F2307600
       ANA DECMSK        TEST NAME .                                    F2307610
       TXH TE30,2,2      IF B 2 (TYPE 1)                                F2307620
       ORA TAG           PREPARE FORTAG INDEX AND                       F2307630
       TRA TE60          GO TO STORE IN E3.                             F2307640
TE30   ORA DOTAGZ+2,1    WHERE B IS 3, (TYPE 3) PREPARE DOTAGS          F2307650
       TRA TE50          PARAMETER N1.                                  F2307660
TE40   CLA TAG           WHERE B ZERO OR 1 (TYPE 1), GET FORTAG         F2307670
       TXL TE50,2,0      AND WHEN ONE,                                  F2307680
       ALS 18            PUT IN DEC WITH                                F2307690
       ADD TS            NEW TAG NAME IN ADDRESS.                       F2307700
       TRA TE60                                                         F2307710
TE50   SSM               SET MINUS FOR B ZERO OR 3 (TYPE 6OR5)          F2307720
TE60   STO E3            AND STORE IN E3, FINALLY.                      F2307730
       CAL TRASTO        GET TRASTO KEY WORD.                           F2307740
       LXD L(2),2        INDICATE TINFOR SEARCH NOT REQUIRED            F2307750
       LXD SKIP,4                                                       F2307760
       TXH TE80,4,0      IF  SKIP IS 1 (DELTA GREATER THEN B),          F2307770
       TSX SPC000,4      GO TO SPC.                                     F2307780
TE70   TXL TE90,0                (DEC SAVES TSXLINK)                    F2307790
TE80   TSX LIST,4        GO TO LIST KF SKIP IS ZERO.                    F2307800
TE90   LXD TE70,4        RETURN FROM LIST.                              F2307810
       TRA 1,4           RETURN TO CALLER.                              F2307820
       REM SUBROUTINE SPC000                                            F2307830
SPC000 SXD SPC115,1      SAVE INDEX OF DO TO BE SEARCHED.               F2307840
       SXD SPC060,2      SAVE TINFOR, LIST INDICATOR                    F2307850
       SXD SPC105,4      SAVE TSX INDEX.                                F2307860
       STO SPCKEY        SAVE LIST KEY WORD                             F2307870
       CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2307880
       STD SPC050        INITIALIZE TEST INSTR.                         F2307890
       CLA DOTAGZ,1      OBTAIN ALPHABETA WRD,                          F2307900
       PAX 0,2           SAVE BETA,                                     F2307910
       ANA DECMSK        OBTA1N ALPHA ALONE                             F2307920
       STO NEXTA         STO IN NEXTA                                   F2307930
       STO A             AND STORE IN A.                                F2307940
       PXD 0,2           PUT BETA IN LASTB AND                          F2307950
       STO LASTB         BEGIN SEARCH FOR R2                            F2307960
SPC010 LXD SPC115,1      OBTAIN CURRENT INDEX AND                       F2307970
SPC020 TXI SPC040,1,-9   GO DOWN ONE DO, IF POSSIBLE, ELSE              F2307980
SPC040 TXL SPC110,1      GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX) F2307990
       CLA DOTAGZ+5,1    TEST WHETHER OR NOT THIS DO                    F2308000
       PDX 0,2           IS IN RANGE OF R1(DXL)                         F2308010
SPC050 TXL SPC110,2      IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO)     F2308020
       CLA DOTAGZ+1,1    IF IN R1, IS THIS DO T0 BE                     F2308030
       SUB RSYM3         SKIPPED. IF NOT, GO BACK TO                    F2308040
       TZE SPC053        GET NEXT DO.                                   F2308050
       CLA DOTAGZ+1,1                                                   F2308060
       SUB RSYM2                                                        F2308070
       TNZ SPC020                                                       F2308080
SPC053 CLA DOTAGZ,1      R2 FOUND, ARRANGE T0 SKIP THIS                 F2308090
       PAX 0,2           INTERVAL. USE ALPHA OF R2                      F2308100
       ANA DECMSK        AS B, PUT BETA OF R2 IN                        F2308110
       STO B             NEXTA.                                         F2308120
       PXD 0,2           DO FORMULAS WITHIN R2 ARE                      F2308130
       STO NEXTA         ACCOUNTED FOR AFTER SEARCH.                    F2308140
       SXD SPC115,1      SAVE INDEX OF R2.                              F2308150
SPC055 LXD SPC060,2      PUT TINFOR, LIST IND. IN XRB                   F2308160
SPC058 CLA A             FOR                                            F2308170
       SUB B             NON EMPTY                                      F2308180
       TZE SPC065        INTERVALS,                                     F2308190
       TXL SPCTIN,2,1    GO TO ARRANGE TINFOR SEARCH, OR                F2308200
SPC060 TXL SPCST0,0      TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210
SPC065 LXD SPC060,2      RETURN HERE, TEST TINFOR                       F2308220
       TXL SPC120,2,0    LIST IND. IF ZERO, EXIT.                       F2308230
SPC070 LXD SPC115,1      TO SET UP NEXT INTERVAL,                       F2308240
       CLA DOTAGZ+5,1    OBTAIN INDEX OF LAST R2 AND                    F2308250
       STD SPC100        STEP DOWN IN DOTAG BY USUAL                    F2308260
SPC080 TXI SPC090,1,-9   PROCEDURE UNTIL SOME DO IS                     F2308270
SPC090 TXL SPC110,1      FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX)   F2308280
       CLA DOTAGZ+5,1    DOTAG EXHAUSTED. IF DO FOUND                   F2308290
       PDX 0,2           NOT IN R2, SET A AND GO TO TEST                F2308300
SPC100 TXH SPC080,2      IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO)  F2308310
       CLA NEXTA         IF IT IS, NEWR2 WILL BE FOUND                  F2308320
       STO A             OR EXIT MADE TO SPC110.                        F2308330
SPC105 TXL SPC050,0                                                     F2308340
SPC110 CLA NEXTA         THIS IS SETUP FOR LAST                         F2308350
       STO A             INTERVAL. FOR A, USE                           F2308360
       CLA LASTB         CONTENTS OF NEXTA. FOR B,                      F2308370
       STO B             USE BETA OF R1, FOUND IN                       F2308380
       LXD SPC060,2      LASTB. OBTAIN TINFOR, STOTAG                   F2308390
       CLA L(0)          IND, AND SET LOCATION OF                       F2308400
       STD SPC060        INDICATOR T0 ZERO. GO TO                       F2308410
SPC115 TXL SPC058,0      TINFOR OR TRASTO. (DEC HAS DOTAG IX)           F2308420
SPC120 LXD SPC105,4      EXIT, ALL STORES DONE, OR,                     F2308430
       TRA 1,4           SEARCH MADE, T NOT FOUND.                      F2308440
SPC130 LXD SPC105,4      EXIT,T FOUND                                   F2308450
       TRA 2,4           IN SOME INTERVAL                               F2308460
SPCTIN TSX TINFXX,4      GO TO SEARCH FORTAG                            F2308470
       TRA SPC130        T FOUND                                        F2308480
       TRA SPC065        T NOT FOUND                                    F2308490
SPCST0 CLA B             FOR TRASTO, E2 AND E3 ARE                      F2308500
       ARS 18            ALREADY SET UP, COLLECT                        F2308510
       ADD A             A AND B INTO E1 WORD,                          F2308520
       STO E1            PUT TRASTO INDICATOR IN                        F2308530
       CLA SPCKEY        ACC. AND                                       F2308540
       TSX LIST,4        TSX TO LISTING ROUTINE.                        F2308550
       TRA SPC065        ON RETURN, GO TO TEST FINISH.                  F2308560
SPCKEY HTR               STORAGE FOR TABLEKEY                           F2308570
       REM  SUBROUTINE TRAWRD                                           F2308580
TRAWRD SXD TRAW65,4                                                     F2308590
       CLA L(0)                                                         F2308600
       STO TRABIT        INITIALIZE.                                    F2308610
       CLA DOTAGZ+5,1    LEVEL OF DOTAG                                 F2308620
       STD TRAW30                                                       F2308630
TRAW10 CAL DOTAGZ+7,1    OBTAIN T2 WORD.                                F2308640
       ORS TRABIT        OR INTO TRABIT                                 F2308650
       TXI TRAW20,1,-9   TAKE NEXT DO                                   F2308660
TRAW20 TXL TRAW70,1      IF NONE, EXIT (DEC HAS DOTAG IX)               F2308670
       CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2308680
       PDX 0,4           PUT L IN XRC.                                  F2308690
TRAW30 TXL TRAW70,4      EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO)  F2308700
       TXL TRAW10,2,1    IF COMPLETE TEST, GO BACK (NO TRAWORD SKIP)    F2308710
TRAW35 CLA DOTAGZ+1,1    IF INCOMPLETE TEST, IS THIS A                  F2308720
       SUB RSYM2         DO TO BE SKIPPED                               F2308730
       TZE TRAW38        IF SO, GO TO TRAW38                            F2308740
       CLA DOTAGZ+1,1    TEST RSYM3                                     F2308750
       SUB RSYM3         IF NO SKIP                                     F2308760
       TNZ TRAW10        GO BACK.                                       F2308770
TRAW38 CLA DOTAGZ+5,1    THIS DO IS TO BE SKIPPED.                      F2308780
       STD TRAW60        PUT LEVEL OF THIS DO IN TEST INSTR,            F2308790
TRAW40 TXI TRAW50,1,-9   TAKE NEXT DO IF ANY                            F2308800
TRAW50 TXL TRAW70,1      IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX)       F2308810
       CLA DOTAGZ+5,1    OBTAIN L WORD                                  F2308820
       PDX 0,4           PUT L IN XRC                                   F2308830
TRAW60 TXH TRAW40,4      IF DO IS IN RANGE OF R2, GO BACK.              F2308840
TRAW65 TXL TRAW30,0      OTHERWISE, GO TO TRAW30                        F2308850
TRAW70 LXD TRAW65,4                                                     F2308860
       CLA L(36)         OBTAIN 36 IN DECREMENT                         F2308870
       SUB TL2           36-TL2 (LEVEL OF DOTAG)                        F2308880
       ARS 18            IN ADDRESS                                     F23A1190
       STA TRAW90        INITIALIZE SHIFT                               F2308900
       CLA TL2           OBTAIN TL2                                     F2308910
       ARS 18            IN ADDRESS                                     F2308920
       STA TRAW80        INITIALIZE SHIFT                               F2308930
       CLA L(0)          ACC CONTAINS ZERO                              F2308940
       LDQ 35ONES        MQ CONTAINS ALL ONES                           F2308950
TRAW80 LLS               PUT TL2 ONES IN ACC (LEV. DOTAG)               F2308960
TRAW90 ALS               POSITION ONES IN ACC                           F2308970
       ANA TRABIT        AND IN TRANSFER BITS                           F2308980
       TRA 1,4           GO BACK TO CALLING INSTR PLUS ONE.             F2308990
       REM SUBROUTINES TINFOR AND TINFXX                                F2309000
TINFOR CLA DOTAGZ,1      C(XRA)=INDEX OF DO TO BE                       F2309010
       PAX 0,1           SEARCHED. SEPARATE ALPHA                       F2309020
       ANA DECMSK        AND BETA                                       F2309030
       STO A             AND STORE IN A                                 F2309040
       PXD 0,1                                                          F2309050
       STO B             B                                              F2309060
TINFXX LXD L(1500,1      PUT MAX FORTAG INDEX IN XRA                    F2309070
TINF10 CLA FORTZ,1       OBTAIN FORTAG ENTRY                            F2309080
       ANA DECMSK        RETAIN FORMULA NUMBER 0NLY                     F2309090
       CAS A             COMPARE ALPHA AND FORMULA NR.                  F2309100
       TRA TINF40        FOR, NR. GREATER THAN ALPHA. TRA.              F2309110
       NOP               C(A) MAY BE SOME BETA FROM SPC, HENCE, NO HALT.F2309120
TINF20 TXI TINF30,1,-1   FOR. NR. LESS THAN ALPHA. GO                   F2309130
       REM               BACK FOR NEXT FORTAG ENTRY                     F2309140
TINF30 TXH TINF10,1      IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX)    F2309150
       TRA 2,4           RETURN TO CALLING INSTR PLUS TWO.              F2309160
TINF40 CAS B             COMPARE FOR, NR. WITH BETA                     F2309170
       TRA 2,4           FOR. NR. GREATER THAN BETA, EXIT.              F2309180
       NOP               FOR. NR. EQUAL TO OR                           F2309190
       CLA FORTZ,1       LESS THAN BETA, OBTAIN FORTAG                  F2309200
       TPL TINF20        TAG AND COMPARE WITH SEARCH TAG.               F2309210
       ANA ADDMSK        I.F. NOT EQUAL, GO BACK FOR NEXT TAG           F2309220
       SUB TAG                                                          F2309230
       TNZ TINF20        IF EQUAL, RETURN TO CALLING                    F2309240
       TRA 1,4           INSTR PLUS ONE. XRA CONTAINS IX IN FORTAG OF   F2309250
       REM               FIRST TAG FOUND                                F2309260
       ORG 3537                                                         F2309270
       REM    MASTER RECORD CARD = FN043                                F2309275
BL3C   LXD FORTAG-1,1    IF FORTAG IS EMPTY,                            F2309280
       TXH WRTIRV,1,1499 GO TO WRITE IRV                                F2309290
       REM READ IN TSXCOM                                               F2309300
RDTSX  LXD L(6),4        INITIALIZE ERROR COUNTER                       F2309312
RTSX10 CLA LADDS         COMPUTE NUMBER                                 F2309320
       SUB TSXORG        OF TSXCOM ENTRIES                              F2309330
       PAX 0,1           AND                                            F2309340
       SXD TCOM-1,1      SAVE.                                          F2309350
       TZE RTSX60        IF EMPTY, GO TO EXIT.                          F2309360
       ADD TCOMAD        OTHERWISE, COMPUTE TERMINAL CORE ADDRESS       F2309370
       STA RTSX20        AND INITIALIZE CPY ADDRESS THEREWITH.          F2309380
       RDS 195           DRUM 3                                         F2309390
       LDA TSXORG        ORIG OF TSXCOM TABLES ON DRUM                  F2309400
RTSX20 CPY 0,1           READ TSXCOM (ADD HAS TERM CORE ADD TSXCOMP     F2309410
       TIX RTSX20,1,1    TABLES .                                       F2309420
       LXD TCOM-1,1      COMPUTE                                        F2309430
       PXD 0,1           NUMBER  OF                                     F2309440
       SSM               UNFILLED TSXCOM TABLE                          F2309450
       ADD TCOMAX        SPACES,                                        F2309460
       STO TCOM-1        SAVE,                                          F2309470
       STD RTSX30        AND INITIALIZE.                                F2309480
       LXD TCOMAX,1      COMPUTE                                        F2309490
RTSX25 CAL TCOMZ,1       CHECK                                          F2309500
       ACL TCOMZ+1,1     SUM FOR EACH TABLE ENTRY                       F2309510
       SLW RTSX40        AND COMPARE                                    F2309520
       CLA RTSX40        AGAINST                                        F2309530
       SUB TCOMZ+2,1     GIVEN SUM.                                     F2309540
       NOP                                                              F2309550
       TNZ RTSX50        ERROR.                                         F2309560
       TXI RTSX30,1,-3                                                  F2309570
RTSX30 TXH RTSX25,1      IF COMPLETE,  (DEC HAS UNUSED TSXCOM BUFFER)   F2309580
       TRA SORT          GO TO SORT.                                    F2309590
RTSX40 HTR                                                              F2309600
RTSX50 TIX RTSX10,4,1    GO BACK TO REREAD                              F2309610
       TSX DIAG,4  READING TSXCOM FROM DRUM3.  ERROR. GO TO DIAGNOSTIC. F2309625
RTSX60 CLA TCOMAX        IF TSXCOM EMPTY PUT MAX N0                     F2309630
       STO TCOM-1        TSXCOM ENTRIES IN KEY WORD AND                 F2309640
       TRA IRVSRT        EXIT.                                          F2309650
       REM SORT TSXCOM                                                  F2309660
SORT   MSE LIGHT         TURN OFF LIGHT                                 F2309670
       NOP                                                              F2309680
       LXD TCOM-1,1      INITIALIZE                                     F2309690
       TXI SORT10,1,3                                                   F2309700
SORT10 TXH MAKIRV,1,747  IS THERE ONLY ONE ENTRY IN TSXCOM.             F2309710
       SXD SORT80,1      INITIALIZE                                     F2309720
SORT20 LXD TCOMAX,1                                                     F2309730
SORT30 CLA TCOMZ,1       OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA)  F2309740
       CAS TCOMZ+3,1     COMPARE IT AGAINST SECOND ENTRY                F2309750
       TRA SORT50        OUT OF ORDER , REARRANGE TOTAL TSXCOM ENTRY.   F2309760
       TRA SORT40        IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS.   F2309770
       TRA SORT70        ENTRIES IN ORDER, IGNORE.                      F2309780
SORT40 CLA TCOMZ+1,1     ALRIGHT- FIRST WORDS IN ORDER BUT              F2309790
       CAS TCOMZ+4,1     HOW DO THEIR 2ND WORDS COMPARE.                F2309800
       TRA SORT60        IF OUT OF ORDER, GO TO REARRANGE.              F2309810
       TRA SORT70        IF EQUAL OR                                    F2309820
       TRA SORT70        IF IN ORDER, IGNORE.                           F2309830
SORT50 CLA TCOMZ,1       FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS.   F2309840
       LDQ TCOMZ+3,1     INTERCHANGE THE FIRST WORDS                    F2309850
       STO TCOMZ+3,1     OF  THE                                        F2309860
       STQ TCOMZ,1       TWO ENTRIES.                                   F2309870
SORT60 CLA TCOMZ+1,1     INTERCHANGE                                    F2309880
       LDQ TCOMZ+4,1     THE                                            F2309890
       STO TCOMZ+4,1     SECOND                                         F2309900
       STQ TCOMZ+1,1     AND                                            F2309910
       CLA TCOMZ+2,1     THIRD                                          F2309920
       LDQ TCOMZ+5,1     WORDS                                          F2309930
       STO TCOMZ+5,1     OF THE                                         F2309940
       STQ TCOMZ+2,1     TWO ENTRIES.                                   F2309930
       PSE LIGHT         INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND.    F2309960
SORT70 TXI SORT80,1,-3   BUMP FOR NEXT COMPAR1S0N.                      F2309970
SORT80 TXH SORT30,1      IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3F2309980
       MSE LIGHT         YES. WAS OUT OF ORDER ENTRY APPREHENDED .      F2309990
       TRA REMOVE        NO. GO TO MAKIRV.                              F2310000
       LXD SORT80,1      YES. NUMBER OF COMPARISONS                     F2310010
       TXI SORT90,1,3    MADE IS DECREASED BY ONE                       F2310020
SORT90 SXD SORT80,1      ON EACH PASS.                                  F2310030
       TRA SORT20                                                       F2310040
       REM BUILD UP TABLE IRV FROM TSXCOM                               F2310050
MAKIRV LXD IRVXX,2            (IX VALUE FOR NEXT IRV ENTRY)             F2310060
       LXD TCOM-1,1                                                     F2310070
       SXD MAK50,1                                                      F2310080
       LXD TCOMAX,1                                                     F2310090
MAK10  CAL TCOMZ+1,1     GET SECOND WORD OF TSXCOMP                     F2310100
       ANA PREMSK        PULL OUT PREFIX.                               F2310110
       TNZ MAK40         IS ANYTHING THERE.                             F2310120
       CLA TCOMZ+1,1                                                    F2310130
       TXH MAK20,2,0                                                    F2310140
       TSX DIAG,4  TABLE IRV BUFFER FULL,      ERROR. GO TO DIAGNOSTIC. F2310155
MAK20  STO IRVZ,2        STORE IRV.                                     F2310160
       TXI MAK40,2,-1                                                   F2310170
MAK40  TXI MAK50,1,-3                                                   F2310180
MAK50  TXH MAK10,1       IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM)F2310190
MAK60  SXD IRVXX,2       YES. SAVE INDICATION OF SIZE OF IRV.           F2310200
       REM SORT TABLE IRV.                                              F2310210
IRVSRT LXD IRVXX,1                                                      F2310220
       TXI IRVS10,1,1                                                   F2310230
IRVS10 TXH WRTTSX,1,149  IS THERE BUT ONE ENTRY IN IRV.                 F2310240
       SXD IRVS50,1                                                     F2310250
       MSE LIGHT         TURN OFF LITE.                                 F2310260
       NOP                                                              F2310270
IRVS20 LXD IRVMAX,1      INITIALIZE                                     F2310280
IRVS30 CLA IRVZ,1        GET FIRST IRV ENTRY AND                        F2310290
       CAS IRVZ+1,1      COMPARE AGAINST ITS NEIGHBOR.                  F2310300
       TRA IRVS60        OUT OF ORDER. GO TO REARRANGE.                 F2310310
       NOP                                                              F2310320
IRVS40 TXI IRVS50,1,-1   BUMP FOR NEXT COMPARIS0N                       F2310330
IRVS50 TXH IRVS30,1      IS PASS COMPLETE  (DEC HAS IRV INDEX)          F2310340
       MSE LIGHT         YES . WAS OUT OF ORDER NABBED.                 F2310350
       TRA DELETE        NO. SORT COMPLETE.                             F2310360
       TRA IRVS20        YES. MAKE ANOTHER PASS.                        F2310370
IRVS60 LDQ IRVZ+1,1      REARRANGE                                      F2310380
       STO IRVZ+1,1      THE OUT OF ORDER                               F2310390
       STQ IRVZ,1        IRV ENTRIES AND                                F2310400
       PSE LIGHT         INDICATE SAME.                                 F2310410
       TRA IRVS40                                                       F2310420
       REM DELETE DUPE ENTRIES FROM TABLE IRV                           F2310430
DELETE LXD IRVXX,1                                                      F2310440
       SXD DEL30,1       INITIALIZE                                     F2310450
       LXD IRVMAX,3      INITIALIZE CANDIDATE IR AND STANDARD IR        F2310460
       TIX DEL10,2,1     BUMP CANDIDATE IR.                             F2310470
DEL10  CLA IRVZ,2        GET CANDIDATE.                                 F2310480
       CAS IRVZ,1        COMPARE AGAINST STANDARD.                      F2310490
       TRA DEL40         CANDIDATE DOES NOT MATCH STANDARD.             F2310500
       TRA DEL20         CAND MATCHES STAND. IGNORE ITS REINSTATEMENT.  F2310510
       TSX DIAG,4  IRV UNORDERED DESPITE SORT. ERROR. GO TO DIAGNOSTIC. F2310523
DEL20  TXI DEL30,2,-1    BUMP FOR NEXT CANDIDATE.                       F2310530
DEL30  TXH DEL10,2       IS IT END OF PASS.  (DEC HAS IRV INDEX)        F2310540
       TXI DEL35,1,-1    YES. BUMP STANDARD IR.                         F2310550
DEL35  SXD IRVXX,1       SAVE NEW EDITED-IRV TABLE-SIZE INDICATION.     F2310560
       TRA WRTTSX                                                       F2310570
DEL40  STO IRVZ+1,1      NOT DUPE, PUT CANDIDATE BACK.                  F2310580
       TXI DEL20,1,-1    AND INSTALL IT AS STANDARD.                    F2310590
       REM WRITE EDITED TSXCOM TABLE ON DRUM                            F2310600
WRTTSX WRS ADRUM                                                        F2310610
       LXD TCOM-1,1      INITIALIZE                                     F2310620
       SXD WTSX30,1                                                     F2310630
       LXD TCOMAX,1                                                     F2310640
       PXD 0,0                                                          F2310650
       LXD L(0),2                                                       F2310660
       TRA WTSX30                                                       F2310670
WTSX10 ACL TCOMZ,1       COMPUTE                                        F2310680
       ACL TCOMZ+1,1     CHECK SUM OF ALL ENTRIES                       F2310690
       TXI WTSX20,1,-3                                                  F2310700
WTSX20 TXI WTSX30,2,2                                                   F2310710
WTSX30 TXH WTSX10,1      IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT)  F2310720
       SLW WTSX60        STORE CHECK SUM.                               F2310730
       LXD TCOM-1,1      COMPUTE                                        F2310740
       PXD 0,1           NUM8ER                                         F2310750
       SSM               OF                                             F2310760
       ADD TCOMAX        TSXCOM                                         F2310770
       PDX 0,1           ENTRIES.                                       F2310780
       ARS 18            COMPUTE CORE                                   F2310790
       ADD TCOMAD        TERMINUS                                       F2310800
       STA WTSX40        AND INITIALIZE CPY ADDRESS FOR FIRST WORD,     F2310810
       ADD L(1)A         FOR SECOND                                     F2310820
       STA WTSX50        WORD.                                          F2310830
       PXD 0,2                                                          F2310840
       STO TCOM-1        NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C.S.   F2310850
       LDA TCOMOR                                                       F2310860
       CPY TCOM-1        CPY WORD COUNT                                 F2310870
       CPY TCOM-1        ONTO DRUM                                      F2310880
       TXL WRTIRV,2,0    IF EMPTY, EXIT.                                F2310890
WTSX40 CPY 0,1           WRITE TSXCOM ENTRIES                           F2310900
WTSX50 CPY 0,1           ONTO DRUM                                      F2310910
       TIX WTSX40,1,3                                                   F2310920
       CPY WTSX60        CHECKSUM                                       F2310930
       CPY WTSX60                                                       F2310940
       TRA WRTIRV                                                       F2310950
WTSX60 HTR               C.S. STORAGE                                   F2310960
       REM WRITE EDITED TABLE IRV ON DRUM                               F2310970
WRTIRV WRS ADRUM                                                        F2310980
       LXD IRVXX,1                                                      F2310990
       SXD WIRV20,1      INITIALIZE TEST INSTR.                         F2311000
       PXD 0,0                                                          F2311010
       LXD IRVMAX,1                                                     F2311020
WIRV10 ACL IRVZ,1        COMPUTE CHECK SUM.                             F2311030
       TXI WIRV20,1,-1                                                  F2311040
WIRV20 TXH WIRV10,1      IS IRV DONE FOR. (DEC HAS IRV IX)              F2311050
       SLW WIRV40        YES. SAVE C.S.                                 F2311060
       LXD IRVXX,1       COMPUTE                                        F2311070
       PXD 0,1           NUMBER                                         F2311080
       SSM               OF                                             F2311090
       ADD IRVMAX        IRV ENTRIES                                    F2311100
       STO IRVXX         AND SAVE.                                      F2311110
       PDX 0,1           COMPUTE                                        F2311120
       ARS 18            CORE TERMINUS                                  F2311130
       ADD IRVAD         OF IRV.                                        F2311140
       STA WIRV30        INITIALIZE CPY.                                F2311150
       LDA IRVORG                                                       F2311160
       CPY IRVXX         WRITE WORD                                     F2311170
       CPY IRVXX         COUNT.                                         F2311180
       TXL END,1,0       EXIT IF IRV EMPTY.                             F2311190
WIRV30 CPY 0,1           WRITE IRV.                                     F2311200
       TIX WIRV30,1,1                                                   F2311210
       CPY WIRV40        WRITE                                          F2311220
       CPY WIRV40        CHECK SUM.                                     F2311230
       TRA END                                                          F2311240
WIRV40 HTR               C.S. STORAGE                                   F2311250
END    WRS 195           WRITE NR OF WDS IN TRASTO ON DRUM.             F2311260
       CLA LADDS+1       ORIGIN PLUS NR OF WDS IN TRASTO                F2311270
       SUB L(304A        LESS ORIGIN OF TRASTO                          F2311280
       STO ENDES                                                        F2311290
       LDA L(302A                                                       F2311300
       CPY ENDES                                                        F2311310
       CPY ENDES                                                        F2311320
       TRA NORMRT         NORM RET MONITOR. GO TO SPACE TAPE 1          F2311335
ENDES  HTR                                                              F2311340
L(302A HTR 302                                                          F2311350
L(304A HTR 304                                                          F2311360
   T0P EQU 32767                                                        F2311365
TAUDRM EQU 196                                                          F2311370
ADRUM  EQU 195                                                          F2311380
BDRUM  EQU 194                                                          F2311390
TAPE2  EQU 146                                                          F2311400
TAPE3  EQU 147                                                          F2311410
LIGHT  EQU 100           IF FORVAL EMPTY, LIGHT ON.                     F2311420
REMOVE SYN MAKIRV                                                       F2311430
IRV    SYN DOTAGZ                                                       F2311440
ONETCS EQU 4                                                            F2311445
DIAG   EQU 4                                                            F2311446
       END                                                              F2311450
       REM BLOCK FOUR OF SECTION TWO.                                                                   
       REM    MASTER RECORD CARD = FN045                                F2400000
       REM BLOCK 4                                                      F2400005
       REM THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE             F2400010
       REM INDEX LOAD VALUES FOR PURE RELCONS.                          F2400020
       REM THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS               F2400030
       REM (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1                          F2400040
       REM TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE          F2400050
       REM SUBROUTINES REQUIRED.                                        F2400060
       ORG 24                                                           F2400070
 CIB   BSS 100                                                          F2400080
 WRKSC BSS 8                                                            F2400090
 BOB   BSS 152                                                          F2400100
 OR000 BSS 28                                                           F2400110
       ORG 296                                                          F2400120
 OR012 OCT 010000000001                                                 F2400130
 OR013 OCT 060000000003                                                 F2400140
       ORG 302                                                          F2400150
 OR018 OCT 010000000002                                                 F2400160
       ORG 310                                                          F2400170
 OR026 OCT 010000000003                                                 F2400180
       HTR 0                                                            F2400190
START1 CLA L(1)              SAVE STATUS OF SENSE-LIGHT3                F2400200
       MSE 99                SO THAT IT CAN BE USED                     F2400210
       TRA START             IN THIS BLOCK.                             F2400220
       STO SENSE1                                                       F2400230
 START TSX RDRM,4            READ TABLE IRV (BOB ALSO)                  F2400240
       TRA FINISH+9          RETURN HERE IF NO ENTRIES.                 F2400250
       LXD 1CNT,1            LOAD IRA WITH NO. OF IRV ENTRIES           F2400260
       TSX INITFX,4          FORM END TEST FOR FIXC0O SEARCH            F2400270
       LXD L(0),2            BEGIN WITH FIRST TABLE BOB ENTRY.          F2400280
REPETE CLA BOB,2             SELECT TABLE IRV ENTRY.                    F2400290
       STA NAME1             PUT SUBCOM NAME IN NAME 1.                 F2400300
       ARS 18                PUT TAU REFERENCE                          F2400310
       STA TAG1              IN TAG1.                                   F2400320
 ENTRY SXD BX,2                                                         F2400330
       SXD AX,1                                                         F2400340
       TSX SUBCOM,4          READ TAU ENTRY FROM DRUM.                  F2400350
       TSX COMPIL,4          COMPILE SUBROUTINE FRO COMPUTING           F2400360
       LXD BX,2              LOAD VALUE.                                F2400370
       LXD AX,1                                                         F2400380
       TXI TEST,2,-1         STEP DOWN COUNT THROUGH TABLE IRV.         F2400390
 TEST  TNX FINISH,1,1        END OF TABLE IRV.                          F2400400
       CLA BOB,2             REDUNDANT.                                 F2400410
       TSX LINKTR,4          COMPILE SUBROUTINE RETURN.                 F2400420
       TRA REPETE                                                       F2400430
       STA TAG2              THE INSTRUCTIONS FROM HERE                 F2400440
       SUB TAG1              THROUGH                                    F2400450
       TZE EQUAL             TRA ENTRY                                  F2400460
       TSX LINKTR,4          ARE                                        F2400470
       CLA TAG2              REDUNDANT.                                 F2400480
       STO TAG1                                                         F2400490
       TRA ENTRY                                                        F2400500
 EQUAL TSX STOTP,4                                                      F2400510
       TRA TEST-1                                                       F2400520
FINISH TSX LINKTR,4          FORM LAST SUBROUTINE RETURN,               F2400530
       CLA FC08+1            FIXCON WORD COUNT                          F2400540
       WRS 194                                                          F2400550
       ANA DECMSK            ADJUST F1XCON WDRDCT                       F2400560
       ADD L1DEC                                                        F2400570
       ARS 17                WRITE FIXCON WORDCT AND                    F2400580
       STO AD1               ITS CHECKSUM ON DRUM, IN                   F2400590
       CPY AD1               ITS ORIGINAL POSITION, AT THE              F2400600
       CPY AD1               BEGINNING.                                 F2400610
       TSX CITSP,4           WRITE CIT BUFFER ON TAPE                   F2400620
       WEF 146               WRITE E.O.F. ONCIT TAPE                    F2400630
       WRS 146                                                          F2400640
       CPY RECCNT            WRITE CIT RECORDCOUNT AND                  F2400650
       CPY RECCNT            CHECKSUM ON CIT TAPE                       F2400660
       WEF 146               WRITE E.O.F. ON CIT TAPE.                  F2400670
       LXA RECCNT,1          BACKSPACE CIT TAPE                         F2400680
       TXI BST,1,3           UNTIL 1ST CIT RECORD                       F2400690
 BST   BST 146               THAT THIS BLOCK COMPILED.                  F2400700
       TIX BST,1,1                                                      F2400710
       PSE 96                TURN OFF ALL SENSE LIGHTS.                 F2400720
       CLA SENSE1            RESET LIGHT 3 T0OTHE STATUS                F2400730
       TZE END               IT HELD BEFORE THE                         F2400740
       PSE 99                COMMENCEMENT OF THIS BLOCK.                F2400750
 END   RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE         
       TRA 4                                                                    
COMPIL SXD 1XB0X,1                                                      F2400770
       SXD 2XB0X,2                                                      F2400780
       SXD LINK1,4           SAVE LINKAGE                               F2400790
       PSE 96                TURN ALL SENSE LIGHTS OFF                  F2400800
       TSX COSE,4            OBTAIN NAME OF IOEFF. IN FIXCON.           F2400810
       CLA L(CLA)                                                       F2400820
       STO CIL01             THIS ROUTINE COMPILES                      F2400830
       CLA OR000+13          THE INSTRUCTION                            F2400840
       ANA 6ONES                                                        F2400850
       STO CIL02             CLA 6)+3,                                  F2400860
       CLA L(3)              WITH ZERO TAG,                             F2400870
       ALS 18                                                           F2400880
       STO CIL03             TOGETHER WITH A SYMBOLIC                   F2400890
       CLA NAME1             LOCATION OF                                F2400900
       ORA BCD10                                                        F2400910
STOLOC STO CIL00             10)+NAME1                                  F240A920
       TSX CIT,4             ENTER INSTR. IN CIT                        F2400930
       CLA L(STO)                                                       F2400940
       STO CIL01             THIS ROUTINE COMPILES THE                  F2400950
       CLA OR000+26          INSTRUCTION.                               F2400960
       PAX 0,1                                                          F2400970
       ANA 6ONES             STO 1)+3                                   F2400980
       SXD CIL03,1           THESE COMPILED INSTR. PLACE                F2400990
       STO CIL02             1 IN ERASABLE STORAGE                      F2401000
       PXD 0                                                            F2401010
       STO CIL00                                                        F2401020
       TSX CIT,4             ENTER INSTR. IN CIT                        F2401030
       CLA WRKSC+1           TEST 1ST SUBSCRIPT SYMBOL                  F2401040
       TZE S2                NO SYMBOL PRESENT                          F2401050
       STO OR000+1           SAVE S1 FOR LXC ROUTINE                    F2401060
       LXA L(4),1            INDEX FOR NO. OF COMPILED INSTR.           F2401070
       MSE 97                DOES 1ST COEFF EXCEED 1                    F2401080
       TRA COMP20            NO                                         F2401090
       TXI COMP30,1,2        YES. 6 INSTR. TO BE COMPILED               F2401100
COMP20 CLA KLX02             NO. COMPILE INSTR TO COMPUTE               F2401110
       TRA COMP30+1          S1-1+(1 ALREADY IN ERASABLE)               F2401120
COMP30 CLA KLX021            YES. COMPILE C1A1-1                        F2401130
       TSX LXC,4             +(1 AREADY IN ERASABLE)                    F2401140
 S2    CLA WRKSC+3                                                      F2401150
       TZE S3                TRA IF NO 2ND SUBSC, SYMBOL                F2401160
       STO OR000+4           SAVE S2 FOR LXC ROUTINE.                   F2401170
       CLA WRKSC+6           OBTAIN SYMBOLIC ADDRESS                    F2401180
       TSX FIXCON,4          OF D1 IN FIXCON TABLE                      F2401190
       STO OR000+7           AND STORE FOR LXC ROUTINE.                 F2401200
       LXA L(6),1            6 INSTR. TO BE COMPILED                    F2401210
       MSE 98                IS COEFF. C2 GREATER THAN 1,               F2401220
       TRA COMP40            NO. COMPILE D1*S2-D1+                      F2401230
       CLA KLX03             YES. 8 INSTR. COMPILED TO                  F2401240
       TXI COMP40+1,1,2      COMPUTE D1*S2*C3-D1+                       F2401250
COMP40 CLA KLX031                                                       F2401260
       TSX LXC,4             + THAT ALREADY COMPUTED.                   F2401270
 S3    CLA WRKSC+5           TEST FOR 3RD SUBSCRIPT                     F2401280
       TZE COMP55            SYMBOL.                                    F2401290
       STO OR000+21          STORE FOR LXC ROUTINE.                     F2401300
       LDQ WRKSC+6           COMPUTE D1*D2,                             F2401310
       MPY WRKSC+7           AND OBTAIN                                 F2401320
       ALS 17                NAME FOR THIS CONSTANT FROM                F2401330
       TSX FIXCON,4          FIXCON, AND STORE FOR                      F2401340
       STO OR000+24          LXC ROUTINE.                               F2401350
       LXA L(6),1            6 INSTR. TO BE COMPILED                    F2401360
       MSE 99                IS 3RD COEFF GREATER THAN 1.               F2401370
       TRA COMP50            NO. COMPILE D1D2*S3-D1D2+                  F2401380
       CLA KLX05              YES, COMPILE D1D2*C3S3-D1D2+              F2401390
       TXI COMP50+1,1,2                                                 F2401400
COMP50 CLA KLX051                                                       F2401410
       TSX LXC,4             + THAT ALREADY COMPUTED.                   F2401420
COMP55 LXD BBOX,4                                                       F2401430
       TXI COMP55+2,4,4      STEP UP CIT BUFFER COUNT                   F2401440
       SXD BBOX,4                                                       F2401450
       TSX STOTP,4           COMPILE INSTRUCTION TO STORE               F2401460
       LXD 1XB0X,1           LOADING VALUE FOR SUBSCRIPT COMB.          F2401470
       LXD 1XB0X,2                                                      F2401480
       LXD LINK1,4                                                      F2401490
       TRA 1,4               RETURN                                     F2401500
 STOTP SXD LINK2,4           ROUTINE COMPILES THE INSTR.                F2401510
       CLA L(0)              TO STORE THE RESULTS OF                    F2401520
       STO CIL00             THE SUBROUTINE COMPILATION IN              F2401530
       STO CIL03             THE TAG NAME.                              F2401540
       CLA L(STO)            THIS INSTRUCTION IS                        F2401550
       STO CIL01                                                        F2401560
       CLA NAME1             STO 12)+ NAME1                             F2401570
       ORA BCD14                                                        F2401580
       STO CIL02                                                        F2401590
       TSX CIT,4             ENTER IN CIT TABLE                         F2401600
       LXD LINK2,4                                                      F2401610
       TRA 1,4               RETURN                                     F2401620
       REM ROUTINE FORMS END TEST FOR FIXCON SEARCH ROUTINE             F2401630
INITFX LXA L(5),2            LOAD READING ERROR COUNTER.                F2401640
 C1    RDS 194                                         .                F2401650
       CPY 1CNT              READ FIXCON WD.CT                          F2401660
       CPY 2CNT              AND ITS CHECKSUM                           F2401670
       CLA 1CNT                                                         F2401680
       SUB 2CNT              TEST FOR READING ERROR.                    F2401690
       TNZ C6                ERROR.                                     F2401700
       CLA 1CNT              IS FIXCON EMPTY.                           F2401710
       TZE C4                YES                                        F2401720
       SUB L(2)                                                         F2401730
       ALS 17                STORE END TEST IN                          F2401740
 C2    STD FC08+1            FIXCON SEARCH ROUTINE                      F2401750
       TRA 1,4               RETURN TO MAIN ROUTINE.                    F2401760
 C4    RDS 194               FIXCON IS EMPTY.                           F2401770
       CPY L(0)              SET FIRST FOUR LOCATIONS                   F2401780
       CPY L(0)              TO                                         F2401790
       CPY L(0)              ZERO.                                      F2401800
       CPY L(0)                                                         F2401810
       TRA C2                STORE ZERO AS END TEST                     F2401820
 C6    TIX C1,2,1            ERROR. TRY TO READ 3 TIMES.                F2401830
       TSX DIAG,4            DRUM 2 READING ERROR FIVE TIMES.           F2401840
LINKTR CLA L(0)                                                         F2401850
       STO CIL00             THIS ROUTINE COMPILES                      F2401860
       STO CIL02             INSTRUCTION FOR RETURN                     F2401870
       CLA L(TRA)            TO THE FORTRAN MASTER                      F2401880
       STO CIL01             ROUTINE.                                   F2401890
       CLA RELTG             TRA1,4                                     F2401900
       STO CIL03                                                        F2401910
       SXD LINK1,4                                                      F2401920
       TSX CIT,4             FENTER IN CIT TABLE.                       F2401930
       LXD LINK1,4                                                      F2401940
       TRA 1,4               RETURN                                     F2401950
L(TRA) BCD 1TRA000                                                      F2401960
 RELTG OCT 000001000004                                                 F2401970
       REM ROUTINE READS AND CHECKS TABLE IRV (ALSO CALLED BOB)         F2401980
RDRM   LXA L(5),1            LOAD ERROR COUNTER.                        F2401990
       SXD LINK1,4           SAVE ENTRY PT.                             F2402000
 RDS   RDS 195                                                          F2402010
       LXA L(152), 2                                                    F2402020
       LDA L1304             DRUM ADDRESS OF TABLE IS 1304              F2402030
       CPY 1CNT              READ WD. CT. OF TABLE.                     F2402040
       CPY 2CNT              READ WD. CT. CHECKSUM.                     F2402050
 CPY   CPY BOB+152,2         READ 150 TABLE ENTRIES.                    F2402060
       TIX CPY,2,1                                                      F2402070
       CLA 1CNT              DOES WD. CT AGREE                          F2402080
       SUB 2CNT              WITH ITS CHECKSUM.                         F2402090
       TNZ EROR              NO. ERROR.                                 F2402100
       LXD 1CNT,2            YES.                                       F2402110
       TXH PROCED,2,0        IS TABLE EMPTY.                            F2402120
       LXD LINK1,4           YES. RETURN TO                             F2402130
       TRA 1,4               MAIN ROUTINE.                              F2402140
PROCED PXD 0                 TABLE IRV IS NOT EMPTY,                    F2402150
       PDX 0,4               INITIALISE IRC TO ZERO.                    F2402160
ACCSUH ACL BOB,4             FORM LOGICAL CHECKSUM OF                   F2402170
       TXI TIX,4,-1          ENTRIES                                    F2402180
 TIX   TIX ACCSUH,2,1                                                   F2402190
       SLW LOGWD                                                        F2402200
       CLA LOGWD             COMPUTED CHECKSUM.                         F2402210
       SUB BOB,4             DRUM CHECKSUM FOLLOWS LAST ENTRY.          F2402220
       TNZ EROR              NOT EQUAL                                  F2402230
       LXD LINK1,4           DRUM READ CORRECTLY.                       F2402240
       TRA 2,4               RETURN                                     F2402250
 EROR  TIX RDS,1,1           TRY TO READ THREE MORE TIMES.              F2402260
       TSX DIAG,4            DRUM 3 READING ERROR FIVE TIMES.           F2402270
 1CNT  HTR                                                              F2402280
 2CNT  HTR                                                              F2402290
 LOGWD HTR                                                              F2402300
 LINK1 HTR                                                              F2402310
L(152) HTR 152               LENGTH OF TABLE IRV, WD. CT., CHECKSUMS    F2402320
L1304  HTR 1304              ORG OF WD. CT OF TABLE IRV                 F2402330
       REM ROUT1NE WRITES CIT BUFFER 0N TAPE ,IF FULL, THEN ENTERS      F2402340
       REM NEW CIT INTO BUFFER.                                         F2402350
 CIT   SXD E2C,1                                                        F2402360
       SXD E3C,2                                                        F2402370
       LXD BBOX,2            COMPLEMENT OF CURRENT BUFFER CT.           F2402380
       TXH CIT04,2,-100      BUFFER NEITHER FULL NOR ZERO               F2402390
 CITSP LXD BBOX,2                                                       F2402400
       TXL CIT04,2,0         TRA IF BUFFER CT ZERO                      F2402410
       CLA RECCNT            BUFFER IS ALREADY FULL.                    F2402420
       ADD L(1)              UPDATE CIT RECORD COUNT.                   F2402430
       STO RECCNT                                                       F2402440
       WRS 146                                                          F2402450
       LXA L(0),1            WRITE CIT BUFFER ON TAPE.                  F2402460
 CIT01 CPY CIB,1                                                        F2402470
       TXI CIT02,1,-1                                                   F2402480
 CIT02 TXI CIT03,2,1         STEP BUFFER COUNT BACK TO ZERO             F2402490
 CIT03 TXH CIT01,2,1         TEST FOR BUFFER END                        F2402500
 CIT04 LXA L(4),1                                                       F2402510
 CIT05 CLA CIL00+4,1         STORE 4WD CIT IN 8UFFER.                   F2402520
       STO CIB,2                                                        F2402530
       TXI CIT07,2,-1        UPDATE CIT BUFFER COUNT                    F2402540
 CIT07 TIX CIT05,1,1                                                    F2402550
       SXD BBOX,2            SAVE CIT BUFFER COUNT                      F2402560
       LXD E2C,1                                                        F2402570
       LXD E3C,2             RELOAD INDEX REGS,                         F2402580
       TRA 1,4               RETURN                                     F2402590
 BBOX  HTR 0                 CIT BUFFER CT. INITIALLY ZERO              F2402600
 E2C   HTR                                                              F2402610
 E3C   HTR                                                              F2402620
 CIL00 BSS 1                 SYMBOLIC LOCN OF CIT                       F2402630
 CIL01 BSS 1                 OP.DAND DEC. OF CIT.                       F2402640
 CIL02 BSS 1                 SYMBOLIC ADDRESS OF CIT                    F2402650
 CIL03 BSS 1                 REL. ADDRESS AND TAG.                      F2402660
       REM REQUIRED FIXCON IS IN ACC. WHEN THIS-ROUTINE IS              F2402670
       REM BEGUN. THE FIXCON TABLE IS SEARCHED AND IF FIXCON IS         F2402680
       REM NOT ALREADY THERE, IT IS ENTERED IN THE TABLE.               F2402690
       REM (SEARCH IS MADE IN TWO PASSES, ONE FOR EVEN ENTRIES, ONE     F2402700
       REM FOR ODD, FOR TIMING PURPOSES.)EXIT WITH NAME OF ENTRY IN ACC F2402710
FIXCON SXD FC29,1                                                       F2402720
       SXD FC18,2                                                       F2402730
       SXD FC34,4                                                       F2402740
       STO ERDRM1            SAVE FIXCON.                               F2402750
       LXA L(5),4            INITIALIZE DRUM ERROR COUNTER.             F2402760
 FC02  CLA ORIGIN            INITIALISE AD1 T0 SELECT 1ST ENTRY         F2402770
       STO AD1               AND ODD NUMBERED ENTRIES.                  F2402780
       LXA L(0),1            INITIALISE COUNT THROUGH TABLE             F2402790
       LXA L(2),2            INITIALISES FOR TWO FIXCON PASSES          F2402800
 FC04  CLA ERDRM1            REQD. FIXCON                               F2402810
       RDS 194               READ NEXT FIXCON ENTRY                     F2402820
       LDA AD1                                                          F2402830
 FC08  CPY CPYWD1                                                       F2402840
       TXH FC24+1,1          DECR IS WD.CT OF FIXCON TABLE (INITFX)     F2402850
       CPY CPYWD2            READ CHECKSUM OF ENTRY                     F2402860
       TLQ FC30              TRA IF ENTRY DOES NOT MATCH FIXCON         F2402870
       CPY ERDRM             FALSE COPY.                                F2402880
       CAS CPYWD2            COMPARE WITH CHECKSUM.                     F2402890
       TSX DIAG,4            OBVIATED BY TLQ.                           F2402900
 FC18  TXL FC60,0            SAVED IRB IN DECR. MATCH FOUND.            F2402910
 FC20  CPY ERDRM             FALSE COPY, NO MATCH                       F2402920
 FC24  TXI FC08,1,2          INCREASE COUNT OF WORDS TESTED.            F2402930
       TNX FC40,2,1          BOTH PASSES ARE COMPLETED.                 F2402940
       CLA AD1               ADJUST DRUM ADDRESS                        F2402950
       ADD L(2)              TO TEST EVEN NUMBERED ENTRIES              F2402960
       STO AD1                                                          F2402970
 FC28  LXA L(1),1            INITIALISE COUNT THROUGH TABLE             F2402980
 FC29  TXL FC04,0            TRA TO MAKE 2ND PASS. SAVED IRA IN DEC     F2402990
 FC30  CPY ERDRM             FALSE COPY.                                F2403000
 FC34  TXL FC20,0            DECR, CONTAINS ROUTINE LINKAGE.            F2403010
 FC40  STO CPYWD1            SEARCH COMPLETED. NO MATCH.                F2403020
       LXD FC08+1,1                                                     F2403030
       TXI FC42,1,1          INCREASE FIXCON WD. COUNT AND              F2403040
 FC42  SXD FC08+1,1          STORE AS NEW TEST.                         F2403050
       PXD 0,1               FORM NEW ADDRESS                           F2403060
       ARS 17                FOR                                        F2403070
       ADD ORIGIN            DRUM WRITING.                              F2403080
       STO AD1                                                          F2403090
       WRS 194                                                          F2403100
       LDA AD1               WRITE NEW FIXCON AND                       F2403110
       CPY CPYWD1            ITS CHECKSUM ON DRUM.                      F2403120
       CPY CPYWD1                                                       F2403130
 FC50  PXD 0,1               FORM NAME OF CONSTANT                      F2403140
       ARS 18                IN ACC. NAME CONSISTS OF                   F2403150
       ORA BCD2              2 IN DEC.=2) FOR FIXCON TABLE,             F2403160
       LXD FC29,1            AND ENTRY NO WITHIN TABLE,                 F2403170
       LXD FC18,2            IN ADDRESS.                                F2403180
       LXD FC34,4            RESTORE INDEX.                             F2403190
       TRA 1,4               RETURN.                                    F2403200
 FC60  CLA CPYWD1            MATCH FOUND. TEST DRUM READ.               F2403210
       SUB CPYWD2                                                       F2403220
       TZE FC50              DRUM READ CQRRECTLY.                       F2403230
       TIX FC02,4,1          ERROR. TRY 3 TIMES.                        F2403240
STOPFC TSX DIAG,4            DRUM 2 READING ERROR FIVE TIMES.           F2403250
ORIGIN HTR 2                 DRUM ORIGIN OF FIXCON TABLE.               F2403260
       REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE CORR.             F2403270
       REM SUBSCR. COMBINATION FROM THE APPROPRIATE TAU TABLE           F2403280
       REM AND STORES IN P0SITION C1,S1,C2,S2,S3,S3,D1,D2.              F2403290
SUBCOM SXD SUB085,4          SAVE S.R. LINKAGE                          F2403300
       LXA L(5),1            INITIALIZE DRUM ERROR COUNTER.             F2403310
       STO SUBTAG            STORE TAU TAG NAME.                        F2403320
SUB010 RDS 196               SELECT TAU DRUM                            F2403330
       LXD SUBORG+2,4        INITIALIZE SUBSCRIPT COMBINATION           F2403340
       PXD 0                 WORKING SPACE                              F2403350
SUB020 STO WRKSC+8,4         TO ZERO.                                   F2403360
       TIX SUB020,4,1                                                   F2403370
       CLA SUBTAG            THESE INSTRUCTIONS PLACE                   F2403380
       LRS 9                 TAU TABLE REQUIRED                         F2403390
       PAX 0,6               (1,2 OR 3) IN IRB AND IRC.                 F2403400
       PXD 0                                                            F2403410
       LLS 9                 STORE ENTRY NUMBER                         F2403420
       STO SUBES1            WITHIN APPROPRIATE TAU TABLE.              F2403430
       ALS 1                                                            F2403440
       STO SUBES2            STORE TWICE TAU ENTRY NO.                  F2403450
       CLA SUBORG+3,4        SELECT APPROPRIATE TAU ORIGIN.             F2403460
       ADD SUBES1            FORM DRUM ADDRESS, WHICH EQUALS            F2403470
SUB030 ADD SUBES2            TAU ORIGIN + ENTRY N/.*                    F2403480
       TIX SUB030,4,1        NUMBER OF WORDS PER ENTRY                  F2403490
       STA SUBES1            (3 FOR TAU1,5 FOR TAU2,7 FORTAU3)          F2403500
       LDA SUBES1            SELECT TAU ENTRY.                          F2403510
       CPY WRKSC             DECR. C1, ADDR, C2                         F2403520
       TXL SUB040,2,2                                                   F2403530
       CPY WRKSC+4           FOR TAU 3, ADDR. C3.                       F2403540
SUB040 CPY WRKSC+1           S1                                         F2403550
       TXL SUB060,2,1                                                   F2403560
       CPY WRKSC+3           FOR TAU2 AND3, S2.                         F2403570
       TXL SUB050,2,2                                                   F2403580
       CPY WRKSC+5           FOR TAU3, S0, ALS0                         F2403590
SUB050 CPY WRKSC+6              ADDRESS D2,0ECR.D1                      F2403600
SUB060 CPY SUBES1            CHECKSUM.                                  F2403610
       LXD SUBORG,4                                                     F2403620
       CAL WRKSC             COMPUTE                                    F2403630
SUB070 ACL WRKSC+7,4         CHECKSUM.                                  F2403640
       TIX SUB070,4,1                                                   F2403650
       SLW SUBES2                                                       F2403660
       CLA SUBES2            TEST FOR                                   F2403670
       SUB SUBES1            READING ERROR.                             F2403680
       TZE SUB075            TRA. IF CORRECT                            F2403690
       TIX SUB010,1,1        IF ERROR, TRY FOUR MORE TIMES.             F2403700
SUB075 LXD SUBORG+1,4                             -                     F2403720
SUB080 CLA WRKSC+7,4         REARRANGE WORDS WRKSC                      F2403730
       PAX 0,2               AND WRKSC+6, IN TURN, WHICH                F2403740
       ANA DECMSK            CONTAIN C1 AND C2,D1AND D2.                F2403750
       STO WRKSC+7,4         NONBCD CHARACTERS                          F2403760
       PXD 0,2               ARE STORED IN DECREMENT                    F2403770
       TNX SUB090,4,6        AND ORDER OF ITEMS IS NOW                  F2403780
       STO WRKSC+2           C1,S1,C2,S2,C3,S3,D1,D2.                   F2403790
SUB085 TXL SUB080,0                                                     F2403800
SUB090 STO WRKSC+7                                                      F2403810
       LXD SUB085,4          RESTORE LINKAGE INDEX                      F2403820
       TXL SUB100+1,1,1      TRA IF READING ERROR.                      F2403830
SUB100 TRA 1,4               RETURN                                     F2403840
       TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2403850
SUBORG OCT 000006001356      DECR. IS 6, ADDR. IS ORG TAU3              F2403860
       OCT 000007000454      DECR. IS 7, ADDR IS ORG TAU2               F2403870
       OCT 000010000000      DECR IS 8, ADDR IS ORG TAU1.               F2403880
SUBES1 HTR                   ERASABLE ST, FOR DRUM ADDR.                F2403890
SUBES2 HTR                   ERASABLE ST, FO DRUM CHECK1                F2403900
SUBTAG HTR                                                              F2403910
       REM COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON  F2403920
       REM TABLE, AND SETS SENSE LIGHTS ACCORDINGLY.                    F2403930
 COSE  LXA L(6),1            INDEX TO SELECT SUBSCRIPTS IN TURN         F2403940
       LXA L(3),2            INITIALISE SENSE LT. SELECTION.            F2403950
       SXD LINKC,4                                                      F2403960
 COSE5 CLA WRKSC+6,1         SELECT A S.C. COEFF.                       F2403970
       TZE COSE08            TRA IF NO SUBSC. IN THIS DIMENSION         F2403980
       SUB L1DEC                                                        F2403990
       TZE COSE08            TRA IF COEFF. IS ONE.                      F2404000
       PSE 100,2             SET CORRESPONDING SENSE LIGHT.             F2404010
       CLA WRKSC+6,1         ENTER COEFF IN FIXCON IF                   F2404020
       TSX FIXCON,4          NOT ALREADY THERE.                         F2404030
       STO OR000+12,2        STORE NAME OF FIXCON ENTRY.                F2404040
COSE08 TIX COSE10,1,2                                                   F2404050
COSE10 TIX COSE5,2,1         REPEAT FOR ALL SUBSCRIPTS.                 F2404060
       LXD LINKC,4                                                      F2404070
       TRA 1,4               RETURN                                     F2404080
       REM ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN.  F2404090
       REM OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA    F2404100
 LXC   SXD LXC19,4                                                      F2404110
       STO ERLXC             SAVE LOCATION OF INSTR. SKELETON.          F2404120
       PXD 0,1               NO. OF INST TO BE COMPILED.                F2404130
       ARS 18                                                           F2404140
       ADD ERLXC             FORM ADDRESS WHICH GIVES                   F2404150
       STA LXC10             APPROPRIATE SKELETAL WORDS.                F2404160
 LXC08 CLA L(0)              SET CIT SYMBOLIC LOCN. TO ZERO             F2404170
       STO CIL00                                                        F2404180
 LXC10 LDQ 0,1               SELECT NEXT SKELETAL WORD.                 F2404190
       LLS 0                 FOR COMPILATION. SET SIGN IN AC.           F2404200
       LGL 18                BCD. OPERATION IS IN DECREMENT.            F2404210
       STQ CIL01             STORE OPERATION                            F2404220
       TMI LXC20             CIT IS SHIFT TYPE INSTRUCTIQN.             F2404230
       STA LXC15             CIT IS SYMBOLIC ADDRESS TYPE.              F2404240
 LXC15 CLA                   ADDR. IS LOCATION OF SYMBOLIC ADDRESS      F2404250
       STO CIL02             OF CIT.                                    F2404260
       CLA L(0)                                                         F2404270
       STO CIL03             SET CIT TAG TO ZERO.                       F2404280
       CAL CIL02             TEST FOR A COT                             F2404290
       ANA 6ONES             SYMBOLIC ADDRESS OF THE TYPE               F2404300
       TZE LXC30             1)+3 OR6)+2 ERASABLE                       F2404310
       ANA BIT01             STORAGE                                    F2404320
       TNZ LXC30             NO                                         F2404330
       CAL CIL02             YES. SEPARATE ADDRESS LEAVING THE          F2404340
       ALS 18                CLASS OF SYMBOLS IN SYMBOLIC               F2404350
       STD CIL03             ADDRESS POSN. ALONE, AND                   F2404360
       CAL 6ONES             PLACING ADDEND IN REL. ADDRESS             F2404370
       ANS CIL02             POSITION.                                  F2404380
 LXC19 TXL LXC30,0           UNCOND. TRANSFER LINKAGE INDECR.           F2404390
 LXC20 ALS 18                CIT IS SHIFT TYPE INSTRUCTION              F2404400
       ANA DECMSK            I.E. ABSOLUTE ADDRESS ONLY,                F2404410
       STO CIL03             STORE ADDRESS IN CIT REL. ADDRESS.         F2404420
       CLA L(0)              STORE ZERO AS                              F2404430
       STO CIL02             SYMBOLIC ADDRESS.                          F2404440
 LXC30 TSX CIT,4             MAKE CIT ENTRY.                            F2404450
       TIX LXC08,1,1         RETURN FOR NEXT SKELETON INST.             F2404460
       LXD LXC19,4           SKELET0N COMPLETED.                        F2404470
       TRA 1,4               RETURN.                                    F2404480
 LX100 HTR 14545,2,OR000+13  CLA. THESE WORDS                           F2404490
       HTR 11494,6,OR000+26  STO. CONSTITUTE THE                        F2404500
 LX102 HTR 14545,2,OR000+1   CLA. CODING                                F2404510
       HTR 11538,6,OR000+13  SUB. SKELETONS,                            F2404520
       HTR 5396,2,OR000+26   ADD. AND ARE                               F2404530
       HTR 11494,6,OR000+26  SO0. CALLED UPON                           F2404540
 LX105 HTR 13608,4,OR000+1   LDQ. BY THE LXC                            F2404550
       HTR 18936,4,OR000+9   MPY. ACCORDING                             F2404560
       TNX 6386,2,17         ALS. TO THE                                F2404570
       HTR 11538,6,OR000+13  SUB. DIFFERENT                             F2404580
       HTR 5396,2,OR000+26   ADD. COMPUTATIONS                          F2404590
       HTR 11494,6,OR000+26  STO. REQUIRED.                             F2404600
 LX110 HTR 13608,4,OR000+4   LDQ.                                       F2404610
       HTR 18936,4,OR000+7   MPY. THE TAG AND                           F2404620
       TNX 6386,2,17         ALS. ADDRESS ARE                           F2404630
       HTR 11538,6,OR000+7   SUB. THE BCD                               F2404640
       HTR 5396,2,OR000+26   ADD. EQUIVALENTS OF                        F2404630
       HTR 11494,6,OR000+26  STO. THE CIT                               F2404660
 LX116 HTR 13608,4,OR000+4   LDQ. INSTRUCTIONS.                         F2404670
       HTR 18936,4,OR000+10  MPY. THE SYMBOLIC                          F2404680
       TNX 14962,4,18        LRS. DECREMENTS ARE                        F2404690
       HTR 18936,4,OR000+7   MPY. THE LOCATIONS                         F2404700
       TNX 6386,2,17         ALS. OF THE                                F2404710
       HTR 11538,6,OR000+7   SUB. ADDRESSES IN                          F2404720
       HTR 5396,2,OR000+26   ADD. THE CIT                               F2404730
       HTR 11494,6,OR000+26  STO.                                       F2404740
 LX124 HTR 13608,4,OR000+21  LDQ. THE NEGATIVE                          F2404750
       HTR 18936,4,OR000+24  MPY. PREFIX INDICATES                      F2404760
       TNX 6386,2,17         ALS. A PURELY                              F2404770
       HTR 11538,6,OR000+24  SUB. ABSOLUTE ADDRESS                      F2404780
       HTR 5396,2,OR000+26   ADD.                                       F2404790
       HTR 11494,6,OR000+26  STO.                                       F2404800
 LX130 HTR 13608,4,OR000+21  LDQ.                                       F2404810
       HTR 18936,4,OR000+11  MPY.                                       F2404820
       TNX 14962,4,18        LRS.                                       F2404830
       HTR 18936,4,OR000+24  MPY.                                       F2404840
       TNX 6386,2,17         ALS.                                       F2404850
       HTR 11538,6,OR000+24  SUB.                                       F2404860
       HTR 5396,2,OR000+26   ADD.                                       F2404870
       HTR 11494,6,OR000+26  STO.                                       F2404880
 NAME1 HTR                                                              F2404890
 TAG1  HTR                                                              F2404900
 TAG2  HTR                                                              F2404910
RECCNT HTR                                                              F2404920
 AD1   HTR                                                              F2404930
 1XB0X HTR                                                              F2404940
 2XB0X HTR                                                              F2404950
 LINK2 HTR                                                              F2404960
 ERDRM HTR                                                              F2404970
ERDRM1 HTR                                                              F2404980
CPYWD1 HTR                                                              F2404990
CPYWD2 HTR                                                              F2405000
 LINKC HTR                                                              F2405010
 ERLXC HTR                                                              F2405020
 AX    HTR                                                              F2405030
 BX    HTR                                                              F2405040
SENSE1 HTR                                                              F2405050
 BCD2  OCT 020000000000                                                 F2405060
 BCD14 OCT 140000000000                                                 F2405070
 BCD10 OCT 120000000000                                                 F2405080
 L1DEC OCT 000001000000                                                 F2405090
 6ONES OCT 770000000000                                                 F2405100
 BIT01 OCT 600000000000                                                 F2405110
DECMSK OCT 077777000000                                                 F2405120
L(STO) BCD 1STO000                                                      F2405130
L(CLA) BCD 1CLA000                                                      F2405140
 L(0)  HTR 0                                                            F2405150
 L(1)  HTR 1                                                            F2405160
 L(2)  HTR 2                                                            F2405170
 L(3)  HTR 3                                                            F2405180
 L(4)  HTR 4                                                            F2405190
 L(5)  HTR 5                                                            F2405193
 L(6)  HTR 6                                                            F2405200
 KLX02 HTR LX102             SKELETON KEYS                              F2405210
KLX021 HTR LX105             FOR LXC ROUTINE.                           F2405220
 KLX03 HTR LX116                                                        F2405230
KLX031 HTR LX110                                                        F2405240
 KLX05 HTR LX130                                                        F2405250
KLX051 HTR LX124                                                        F2405260
 OR012 SYN OR000+12                                                     F2405270
 OR013 SYN OR000+13                                                     F2405280
 OR018 SYN OR000+18                                                     F2405290
 OR026 SYN OR000+26                                                     F2405300
  DIAG EQU 4                                                            F2405305
       END                                                              F2405310
       REM FORTRAN 2*****BLOCK 5 OF SECTION 2***************************F2500000
       REM BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS    F2500030
       REM 1,2, AND 3 TO COMPILE ALL DO LOOP INDEXING INSTRUCTIONS.     F2500040
       REM DECREMENTS ARE COMPUTED, AND WHEN NECESSARY OPEN SUBROUTINES F2500050
       REM ARE COMPILED TO COMPUTE THESE DECREMENTS AT OBJECT PROGRAM   F2500060
       REM TIME.  AT THE END OF BLOCK 5 THESE INSTRUCTIONSlARE ON TAPE  F2500070
       REM 3 IN SEMI-INVERTED ORDER.  BLOCK 6 INVERTS THE DOFILE INTO ITF2S00080
       REM PROPER ORDER ONTO TAPE 4                                     F2500090
       REM                                                              F2500100
       REM                                                              F2500110
       REM    MASTER RECORD CARD = FN047                                F2500120
       REM BEGIN INITIALIZATION                                         F2500130
       REM THE INITIALIZATION RECORD IS THE FIRST RECORD 0B BLOCK 5 READF2500140
       REM IN BY MONITOR.  IT POSITIONS THE INPUT TAPES 2 AND 4 AND     F2300130
       REM REWINDS THE OUTPUT TAPE 3.IT READS THE NEXT RECORD (THE ALPHAF2300160
       REM STATE) INTO CORES THEN WRITES IT ON DRUM 2.  THEN IT READS   F2500170
       REM IN THE NEXT RECORD(COMMON + THE BETA STATE), AND WRITES THE BF2500180
       REM BETA STATE ON DRUM 1.  IT READS THE ADTAG TABLE FROM DRUM 2 IF2500190
       REM FIXCON IS CHECKED8 AND INITIALIZED IF NECESSARY. IF THERE AREF2500200
       REM ANY DOS CONTROL IS PASSED TO MAN.  IF THERE ARE NO DOS THE NEF2500210
       REM NEXT RECORD, WHICH IS BLOCK 6, IS READ IN.                   F2500220
       ORG 24                                                           F2500230
AINIT  LXA L5,1              INITIALIZE ERROR COUNTER,                  F2500240
       BST 146               POSITION TAPE 2                            F2500250
       BST 146               TO READ DOTAG                              F2500260
 A1    RDS 146                                                          F2500270
       CPY CPYWD3            DO TAG REC COUNT                           F2500280
       CPY CPYWD3            DO TAG REC COUNT                           F2500290
       WRS 219                                                          F2500300
       RTT                                                              F2500310
       TRA A3I               ERROR                                      F2500320
       LXD CPYWD3,1                                                     F2500330
       TXL A2,1,0                                                       F2500340
       TXI A2,1,2                                                       F2500350
 A2    BST 146               BACKSPACE T0 BEGINNING                     F2500360
       TIX A2,1,1            OF DOTAG RECORDS                           F2500370
       REW 147               REWIND OUTPUT TAPE                         F2500380
       REW 148               REWIND TAGTAG TAPE                         F2500390
 A3    RDS 148                                                          F2500400
       CPY CPYWD3            TAGTAG RECORD COUNT                        F2500410
       TRA A3                                                           F2500420
       RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500430
       TRA 4                 E.D.F. READ IN NEXT BLOCK OF INST.         F2500440
       REM THE ALPHA STATE IS NOW IN CORES.  CONTROL PASSES TO C.       F2500450
       TRA A3                E.O.R.                                     F2500460
A3I    TNX A4,1,1            READING                                    F2500470
       BST 146               ERROR                                      F2500480
       TRA A1                ROUTINE                                    F2500490
 A4    TSX DIAG,4            TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES.  F2500500
 C     LXA L0,2                                                         F2500510
       TSX BINIT,4           WRITE BLOCK A ON DRUM                      F2500520
       RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2300530
       TRA 4                 READ NEXT RECORD                           F2500540
       REM COMMON AND BETA STATE ARE NOW IN CORES,  CONTROL IS PASSED TOF2500550
       REM THE FOLLOWING INSTRUCTION.                                   F2500560
       LXA L1,2                                                         F2500570
       TSX BINIT,4           PLACE BLOCK B ON DRUM                      F2500580
       TSX ADTGDM,4          READ ADTAG ENTRIES                         F2500590
       LXA L5,1              INITIALIZE ERROR COUNTER.                  F2500600
 C1    RDS 194               SELECT FIXCON DRUM.                        F2500610
       CPY CPYWD3            WORD COUNT OF FIXCON                       F2500620
       CPY CPYWD4                                                       F2500630
       CLA CPYWD3                                                       F2500640
       SUB CPYWD4                                                       F2500650
       TNZ C6                ERROR IN DRUM READING                      F2500660
       CLA CPYWD3                                                       F2500670
       TZE C4                NO ENTR1ES IN FIXCON                       F2500680
       SUB L2                                                           F2500690
       ALS 17                                                           F2500700
C2     STD FC08+1            STORE WORD COUNT IN                        F2500710
       CLA L(1)              DECREMENT OF FC08-1                        F2500720
       STO SWICH2            SET SWITCH 2 TO 1                          F2500730
       MSE 99                                                           F2500740
       TRA MAN               IF NO DOTAGS,                              F2500750
       PSE 99                TRA MONITOR                                F2500760
       RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500770
       TRA 4                 OTHERWISE TRA MAN.                         F2500780
 C4    WRS 194                                                          F2500790
       CPY L0                NO ENTRIES, WRITE                          F2500800
       CPY L0                ZEROS IN FIRST FOUR                        F2500810
       CPY L0                LOCATIONS OF DRUM 3                        F2500820
       CPY L0                                                           F2500830
       TRA C2                                                           F2500840
 C6    TIX C1,1,1            DRUM 2 READING ERROR ROUTINE.              F2500850
       TSX DIAG,4            DRUM 2 READING ERROR 5 TIMES.              F2500860
CPYWD3 HTR                                                              F2500870
CPYWD4 HTR                                                              F2500880
 L1    HTR 1                                                            F2500890
 L2    HTR 2                                                            F2500900
 L3    HTR 3                                                            F2500910
 L5    HTR 5                                                            F2500920
       REM ************************************************************ F2300930
       REM BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1  F2500940
       REM RESPECTIVELY,                                                F2500930
 BINIT CLA L0                                                           F2500960
       LXA L1000,1           FORM CHECK SUM FOR                         F2500970
B1     ACL RTXAC+1000,1      PROGRAM ON DRUM.                           F2500980
       TIX B1,1,1                                                       F2500990
       SLW CPYWD3                                                       F2501000
       LXA L1000,1                                                      F2501010
       WRS 194,2             WRITE 1000 WORDS OF                        F2501020
       LDA L1000             PROGRAM ONTO DRUM                          F2501030
       CPY CPYWD3                                                       F2501040
B2     CPY RTXAC+1000,1                                                 F2501050
       TIX B2,1,1                                                       F2501060
       TRA 1,4                                                                  
 L0    HTR  14                                                          F2501070
 L1000 HTR 1000                                                         F2501080
       REM **00                                                         F2501090
       REM ************************************************************ F2506930
       REM ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES.         F2506940
ADTGDM CLA L(0)              INITIALIZE ERROR INDICATOR                 F2506950
       STO ERORBX                                                       F2506960
ADTG05 LXA LZEKMX,2          CHECK SUM AREA                             F2506970
       LXA LADMX,1           ADTAG AREA                                 F2501100
       RDS 195                                                          F2501110
       LDA DRADSI            READ ADTEG TABLE                           F2501120
ADTG10 CPY ADTGMX,1          ADDRESS IS ORIGIN - MAX WORDS              F2501130
       CLA ALLONE            FENCE FOR TABLE END                        F2501140
       CPY ADTGMX+1,1                                                   F2501150
       SUB ADTGMX,1                                                     F2501160
       CPY ADTGMX+2,1                                                   F2501170
       TZE ADTG30            END OF TABLE.                              F2501180
       CPY ADTGMX+3,1                                                   F2501190
       TXI ADTG20,1,-4                                                  F2501200
ADTG20 CPY ZEKSUM,2          CHECK SUM FOR DRMTAG.                      F2501210
       TXI ADTG10,2,-1                                                  F2501220
ADTG30 SXD ADTG38,1          MAX CURRENT TABLE SIZE.                    F2501230
       SXD ADTGS1,1                                                     F2501240
       TXH ADTG38+1,1,399    RETURN IF TABLE DEPLETED.                  F2501250
       LXA LADMX,1           START TO CHECK                             F2501260
       LXA LZEKMX,2          ALL CHECK SUMS.                            F2501270
ADTG32 CAL ADTGMX,1                                                     F2501280
       ACL ADTGMX+1,1                                                   F2501290
       ACL ADTGMX+2,1                                                   F2501300
       ACL ADTGMX+3,1                                                   F2501310
       SLW CPYWD3                                                       F2501320
       CLA CPYWD3                                                       F2501330
       SUB ZEKSUM,2                                                     F2501340
       TNZ EROR                                                         F2501350
       TXI ADTG34,1,-4                                                  F2501360
ADTG34 TXI ADTG38,2,-1                                                  F2501370
ADTG38 TXH ADTG32,1          TEST FOR END OF TABLE.                     F2501380
       TRA 1,4               END OF TABLE, READ CORRECTLY.              F2501390
 EROR  CLA ERORBX            IF ERROR IN A CHECK THE                    F2501400
       ADD L(1)              ENTIRE TABLE IS RE-READ.                   F2501410
       STO ERORBX            THIS IS DONE FOUR TIMES AFTER              F2501420
       SUB L5                THE FIRST READING OF THE TABLE.            F2501430
       TNZ ADTG05                                                       F2501440
 STOP  TSX DIAG,4            DRUM 3 READING ERROR 5 TIMES.              F2501450
DRADSI OCT 2664              DRMTG ORIGIN.                              F2501460
       REM ************************************************************ F2301470
       REM ************************************************************ F2301480
       REM                                                              F2301490
       REM                                                              F2301500
       REM    MASTER RECORD CARD = FN051                                F2501505
       REM BEGIN COMMON AND BETA STATES                                 F2501510
       REM    **********************************************************F2301520
       ORG 24                BEGIN BLOCK 5 COMMON                       F2501530
       REM                                                              F2501540
CIB    BSS 100                                                          F2501550
DOTAG  BSS 450                                                          F2501560
TGTG   BSS 672                                                          F2501570
OMXTGA BSS 200                                                          F2501580
ADTG   BSS 404                                                          F2501590
OADTGA BSS 100                                                          F2501600
WRKSC  BSS 8                                                            F2501610
TAG1                                                                    F2501620
TAG2                                                                    F2501630
TAG21                                                                   F2501640
TAG22                                                                   F2501650
TAG3   BSS 1                                                            F2501660
TAG4   BSS 1                                                            F2501670
       REM MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5.  A     F2501680
       REM SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASSF2501690
       REM ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE  F2501700
       REM INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO.  CONTROL IS  F2501710
       REM RETURNED TO MAN.  THIS PROCESS IS REPEATED UNTIL ALL ALPHAS  F2501720
       REM AND BETAS IN A NEST HAVE BEEN TREATED.  THE WHOLE PROCEDURE IF2501730
       REM IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCKF2501740
       REM SIX.                                                         F2501750
       REM ************************************************************ F2501760
 MAN   TSX TDOTG,4           READ ONE NEST OF DOTAG                     F2501770
       TRA MAN70             END OF PROBLEM                             F2501780
       SXD DOGS60,2          INIT. DECREMENT OF TEST.                   F2501790
       SXD MAN05,2                                                      F2501800
       LXA LMXDTG,2                                                     F2501810
       CAL T1MSK             MASK FOR T1 WORD OF DOTAG                  F2501820
 MAN03 ANS DOTAGZ+6,2        T1 WORD MUST HAVE                          F2501830
       TXI MAN05,2,-9        SOME BITS REM0VED FOR                      F2501840
 MAN05 TXH MAN03,2           SXD LOCATION                               F2501830
       TSX TTG,4             READ NEST OF TAGTAGS                       F2501860
       SXD FIND10,2          SAVE COUNT OF TAGTAGS IN NEST              F2501870
       CLA L(0)              ZERO.                                      F2501880
       LXA LHXTGA,2          INITIALIZE APPENDED TGTG                   F2501890
 MAN06 STO MXTGA,2           TO.                                        F2501900
       TIX MAN06,2,1         ZERO.                                      F2501910
       LXA LZEKMX,2          INITIALIZE APPENDED ADTAG                  F2501920
 STO   STO ADTGA,2           TO                                         F2501930
       TIX STO,2,1           ZERO                                       F2501940
 MAN10 CLA L(0)              INITIALIZE                                 F2501950
       STO BB0X              INDICATORS                                 F2501960
       STO DOIND                                                        F2501970
       STO DOIND1                                                       F2501980
       STO SWICH1                                                       F2501990
       CLA ALLONE            INITIALIZE                                 F2502000
       STO VCTR              INSTRUCTION COUNTER                        F2502010
 MAN20 CLA L(1)                                                         F2502020
       STO LOCIND                                                       F2502030
       TSX DOGS,4            SELECT BOR A                               F2502040
       TRA MAN50             NEST COMPLETELY ANALYZED                   F2502050
       CLA SWICH1            IS APPROPR1ATE                             F2502060
       CAS SWICH2            CODING IN CORES                            F2502070
       TRA MAN35             NO                                         F2502080
       TRA MAN40             YES                                        F2502090
 MAN35 TSX ABDRM,4           NO. READ STATE FROM DRUM                   F2502100
       CLA SWICH1                                                       F2502110
       STO SWICH2                                                       F2502120
 MAN40 LXD DOIND,2                                                      F2502130
       CLA DOTAGZ,2                                                     F2502140
       STD A                 SAVE A                                     F2502150
       PAX 0,1                                                          F2502160
       SXD B,1               CURRENT DO                                 F2502170
MAN45  PDX 0,1                                                          F2502180
       PXD 0,1               ACCUMULATOR, LEAVING BETA                  F2502190
       TSX RTXAC,4                                                      F2502200
       TRA MAN20             BACK T0 DOGS                               F2502210
 MAN50 TSX CITSP,4           WRITE CIT BUFFER ON TAPE                   F2502220
       WRS 147                                                          F2502230
       CPY L(0)              END OF RECORD INDIC                        F2502240
       CPY L(0)                                                         F2502250
       CPY L(0)                                                         F2502260
       CPY L(0)                                                         F2502270
       TRA MAN                                                          F2502280
 MAN70 WEF 147               END OF FILE FOR DO FILE                    F2502290
       WRS 193                                                          F2502300
       LDA AD202                                                        F2502310
       CPY DRADS2                                                       F2502320
       CPY DRADS2                                                       F2502330
       WRS 193                                                          F2502340
       CPY DRADS3                                                       F2502350
       CPY DRADS3                                                       F2502360
       WRS 194                                                          F2502370
       CLA FC08+1                                                       F2502380
       ANA DECMSK                                                       F2502390
       ADD L1DEC                                                        F2502400
       ARS 17                                                           F2502410
       STO AD1                                                          F2502420
       CPY AD1                                                          F2502430
       CPY AD1                                                          F2502440
       PSE 96                                                           F2502450
       RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2502460
       TRA 4                 EXIT BLOCK 5.                              F2502470
       REM ************************************************************ F2502412
       REM ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHAF2502400
       REM OR BETA, INTO CORES WHEN NECESSARY.                          F2502500
 ABDRM SXD ERORBX,4          STORE LINKAGE                              F2ZA1510
       LXA SWICH1,4                                                     F2502520
       LXA L(5),2            INITIALIZE DRUM READING ERROR COUNTER.     F2502530
 PGPG4 RDS 194,4                                                        F2502540
       LXA BLKSZE,1          = OF INST PLUS CHECK SUM                   F2502550
       LDA ABDRMA+1,4                                                   F2502560
       CPY CHEKSM                                                       F2502570
PGPG8  CPY RTXAC+1000,1                                                 F2502580
       TIX PGPG8,1,1                                                    F2502590
       CLA L(0)                                                         F2502600
       LXA BLKSZE,1                                                     F2502610
PGPG10 ACL RTXAC+1000,1                                                 F2502620
       TIX PGPG10,1,1                                                   F2502630
       SLW ERAB                                                         F2502640
       CLA CHEKSM                                                       F2502650
       SUB ERAB                                                         F2502660
       TZE PGPG14                                                       F2502670
       TIX PGPG4,2,1         READING ERROR  TRY AGAIN 4 TIMES,          F2502680
       TXL PGPG12,4,0        WHICH DRUM.                                F2502690
       TSX DIAG,4            DRUM 1 READ INCORRECTLY 5 TIMES.           F2502700
PGPG12 TSX DIAG,4            DRUM 2 READ INCORRECTLY 5 TIMES.           F2502710
PGPG14 LXD ERORBX,4                                                     F2502720
       TRA 1,4                                                          F2502730
       REM ************************************************************ F2502740
 TDOTG LXA L(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES.   F2502750
TDOTG1 LXA LMXDTG,2                                                     F2502770
       RDS 146               LOC. OF DOTAGZ                             F2502780
TDOTG4 CPY DOTAGZ,2                                                     F2502790
       TXI TDOTG4,2,-1                                                  F2502800
       TRA 1,4               EF END OF PROBLEM                          F2502810
       WRS 219                                                          F2502820
       RTT                                                              F2502830
       TRA TDOTG5            ERROR                                      F2502840
       TRA 2,4               RECORD CORRECTLY READ                      F2502850
TDOTG5 BST 146               BACKSPACE AND REPEAT                       F2502860
       TIX TDOTG1,1,1        IF NOT YET READ 3 TIMES                    F2502870
       TSX DIAG,4            TAPE 4 READ INCORRECTLY 5 TIMES.           F2502880
       REM ************************************************************ F2502890
       REM TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES     F2502900
 TTG   LXA LMXTG,2           LOCATION OF MAX TAP TABLE SIZE             F2502910
 TTG01 LXA L(5),1            INITIALIZE TAPE ERROR COUNTER.             F2502920
 TTG02 RDS 148                                                          F2502930
       SXD TTG10,2           FOR ERROR BACKUP IN READING                F2502940
 TTG05 CPY MXTGTG,2                                                     F2502950
       TRA TTG06                                                        F2502960
       TSX DIAG,4            FALXE END OF FILE ON TAPE 4.               F2502970
       TRA TTG07             END OF RECORD, CORRECT-EXIT.               F2502980
TTG06  TIX TTG05,2,1                                                    F2502990
       TSX DIAG,4            BUFFFR EXCEEDED.                           F2503000
 TTG07 WRS 219                                                          F2503010
       RTT                                                              F2503020
 TTG10 TXL TTG16             ERROR IN READING                           F2503030
       TXI TTG11,2,4         FIRST WORD LAST ENTRY                      F2503040
 TTG11 CLA MXTGTG,2          FOR NEST END TEST                          F2503050
       SUB ALLONE            END OF NEST INDICATOR                      F2503060
 TTG13 TZE 1,4               END OF NEST                                F2503070
       TIX TTG01,2,4                                                    F2503080
 TTG16 LXD TTG10,2           TAPE ERROR ROUTINE ,  LOAD                 F2503090
       BST 148               TAG TABLE INDEX AND RETRY                  F2503100
       TIX TTG02,1,1         UP T0 5 TIMES.                             F2503110
       TSX DIAG,4            TAPE 4 READ INCORRECTLY 5 TIMES            F2503120
       REM ************************************************************ F2503130
       REM DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO   F2503140
       REM CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA).             F2503150
 DOGS  CLA L(0)              INITIALIZING TO ZERO                       F2503160
       STO A                 ALL CALLS REQUIRED FOR                     F2503170
       STO B                 COMPARISON FOR EACH DO                     F2503180
       STO SWICH                                                        F2503190
       STO TEBBOX                                                       F2503200
       LXD DOIND1,1          IF LEVEL OF LAST                           F2503210
       TXL DOGS20,1                                                     F2503220
       CLA SWICH1                                                       F2503230
       TNZ DOGS20                                                       F2503240
       CLA DOTAGZ+5,1        ANALYZED DOTAG ENTRY                       F2503250
       PDX 0,1               IS ONE THEN THE NEST                       F2503260
       TXH DOGS20,1,1        HAS BEEN COMPLETELY                        F2503270
       TRA 1,4               ANALYZED. IF NOT                           F2503280
DOGS20 LXA LMXDTG,1          START SCAN AT FIRST ENTRY                  F2503290
DOGS22 CLA SWICH                                                        F2503300
       TNZ DOGS25            B PORTION UNDER CONSIDERATION              F2503310
       CLA DOTAGZ,1          A PORTION UNDER CONSIDERATION              F2503320
       ANA BIT1                                                         F2503330
       TNZ DOGS50            CONTINUE, ALREADY ANALYZED                 F2503340
       CLA DOTAGZ,1          SETS UP A PORTION OF                       F2503350
       PDX 0,2               DO FOR COMPARISON                          F2503360
       SXD B,2               PUT A OF DO IN INDICATOR B                 F2503370
       TRA DOGS30            PROCEED T/ COMPARIS0N                      F2503380
DOGS25 CLA DOTAGZ,1          B PORTION UNDER CONSIDERATION              F2503390
       ANA BIT2              MASK T0 INDICATE LOOKED AT                 F2503400
       TNZ DOGS50            ALREADY ANALYZED, CONTINUE                 F2503410
       CLA DOTAGZ,1          SET UP A IN                                F2503420
       PDX 0,2               B WORD FOR COMPARISON                      F2503430
       SXD A,2                                                          F2503440
       PAX 0,2                                                          F2503450
       SXD B,2                                                          F2503460
DOGS30 CLA B                                                            F2503470
       CAS TEBBOX                                                       F2503480
       TRA DOGS45            T-B1 STORE B IN TEB8OX                     F2503490
       TRA DOGS40            T=B1 COMPARE AS                            F2503500
       TRA DOGS50            T-B1 CONTINUE                              F2503510
DOGS40 CLA TEABOX            COMPARE AS                                 F2503520
       CAS A                                                            F2503530
       TRA DOGS50            T-A CONTINUE                               F2503540
       TSX DIAG,4            T=A, ERROR.                                F2503550
DOGS45 CLA A                 T-A STORE B IN TRBBOX                      F2503560
       STO TEABOX                                                       F2503570
       CLA B                                                            F2503580
       STO TEBBOX                                                       F2503590
       SXD DOIND1,1          RECORD THE DO POSITION                     F2503600
       CLA SWICH             RECORD SWITCH                              F2503610
       STO SWICH1                                                       F2503620
DOGS50 CLA SWICH             REVERSE SWITCH FOR                         F2503630
       SUB L(1)              EITHER B OF SAME DO OR                     F2503640
       SSP                   A OF NEXT DO                               F2503650
       STO SWICH                                                        F2503660
       TNZ DOGS60            TESTS A,B STATUS IF A                      F2503670
       TXI DOGS60,1,-9       LOWERS INDEX FOR NEXT DO                   F2503680
DOGS60 TXH DOGS22,1                                                     F2503690
       LXD DOIND1,1          END OF SCAN                                F2503700
       SXD DOIND,1           DO INDICATOR SET                           F2503710
       LXA SWICH1,2                                                     F2503720
       CLA BIT1              ORDER TO PLACE BIT IN                      F2503730
       TXL DOGS70,2,0        A OR B USED                                F2503740
       ARS 1                 INDICATOR POSITION                         F2503750
DOGS70 ORS DOTAGZ,1                                                     F2503760
       TRA 2,4               EXIT AFTER FINDING DO                      F2503770
       REM *************************************************************F2503780
       REM SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2503790
       REM DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA.         F2503800
       REM THIS TAG IS CALLED RTXTGX.                                   F2503810
SCAN   LXA LMXTG,1           COMPARE B WITH DOFOR                       F2503820
SCAN05 CLA B                 DOTAG A OF EACH TAGTAG                     F2503830
       CAS MXTGTG,1          ENTRY IN NEST                              F2503840
       TXI SCAN10,1,4        SEARCH COMPLETED.                          F2503850
       TSX DIAG,4            EQUALITY IMPOSSIBLE.                       F2503860
       TXI SCAN05,1,-4       G LESS THAN A.                             F2503870
SCAN10 TRA 1,4                                                          F2503880
       REM *************************************************************F2503890
       REM FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2503900
       REM F1ED BY THE CURRENT DO.                                      F2503910
FIND   SXD FIND22,4                                                     F2503920
       LXD XTG,1                                                        F2503930
FINDO4 TXI FIND10,1,-4       BUMP TO NEXT TGTG ENTRY.                   F2503940
FIND10 TXH FIND20,1          DECREMENT CONTAINS TGTG COUNT.             F2503950
       LXD FIND22,4                                                     F2503960
       TRA 1,4               END OF TGTG TABLE AND DO.                  F2503970
FIND20 CLA A                 COMPARE DOTAGA WITH                        F2503980
       CAS MXTGTG,1          TGTG DOFOR DOTAG A.                        F2503990
       TRA FIND10+1          END OF DO.                                 F2504000
       NOP                                                              F2504010
       TSX TGFM,4                                                       F2504020
       TSX ISC,4                                                        F2504030
FIND22 TXL FINDO4,0          POSIND=3 IF LEFTMmST SYMBmL.               F2504040
       PXD 0,2               2IF CENTER.                                F2504050
       ARS 18                1 IF RIGHTMOST.                            F2504060
       STO POSIND                                                       F2504070
       LXD FIND22,4                                                     F3504080
       TRA 2,4               SUCCESSFUL SEARCH.                         F2504090
       REM *************************************************************F2504100
       REM ISC IS CALLED BY FIND TO TEST FOR MODIFICATION.              F2504110
ISC    LXA L(1),2            COMPARE SUBSCRIPT                          F2504120
       CLA DOIND             WITH THE INDEX                             F2504130
       SUB TAG2+3,2          OF THE CURRENT DO.                         F2504140
       TZE 2,4               CURRENT DO MODIFIES THIS TAG.              F2504150
       TXI ISC+5,2,1         TRY NEXT LEFT                              F2504160
       TXL ISC+1,2,3         SUBSCRIPT.                                 F2504170
       TRA 1,4               NO MODIFICATION, ERROR RETURN.             F2504180
       REM *************************************************************F2504190
       REM TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO       F2504200
       REM WORKING TGTG.                                                F2504210
 TGFM  CLA MXTGTG,1                                                     F2504220
       STD TAG1              IN WORKING TGTG.                           F2504230
       PAX 0,2               A, X1, X2, X3, TG, TG1.                    F2504240
       SXD TAG2,2                                                       F2504250
       CLA MXTGTG+1,1                                                   F2504260
       STD TAG2+1                                                       F2504270
       PAX 0,2                                                          F2504280
       SXD TAG2+2,2                                                     F2504290
       CLA MXTGTG+2,1                                                   F2504300
       STO TAG3                                                         F2504310
       CLA MXTGTG+3,1                                                   F2504320
       STO TAG4                                                         F2504330
       TRA 1,4                                                          F2504340
       REM *************************************************************F2504350
       REM ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2504360
ENTR   LXD DOIND,2           SYMBOL OF DO IS                            F2504370
       CLA DOTAGZ+1,2        PLACED IN WRKSC                            F2504380
       STO WRKSC+1           AND COEF. IS SET                           F2504390
       CLA L1DEC             =1. THIS SIMULATES                         F2504400
       STO WRKSC             A TAU TABLE ENTRY.                         F2504410
       TRA 1,4                                                          F2504420
       REM *************************************************************F2504430
       REM SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG                  F2504440
SUBCOM SXD SUB085,4          SAVE LINKAGE.                              F2504450
       LXA L(5),1                                                       F2504460
       STO SUBTAG                                                       F2504470
SUB010 RDS 196               SELECT TAU DRUM.                           F2504480
       LXD SUBORG+2,4        INITIALIZE                                 F2504490
       PXD 0,0               SUBSCRIPT COMBINATION                      F2504500
SUB020 STO WRKSC+8,4         TO ZERO.                                   F2504510
       TIX SUB020,4,1                                                   F2504520
       CLA SUBTAG                                                       F2504530
       LRS 9                                                            F2504540
       PAX 0,6               TAU 1,2, OR 3                              F2504550
       PXD 0,0               TAU 1 ADD. IS ORG+3TAU.                    F2504560
       LLS 9                 TAU2 ADD. IS ORG+5TAU.                     F2504570
       STO SUBES1            TAU THREE ADD. IS ORG+7TAU.                F2504580
       ALS 1                 STORE                                      F2504590
       STO SUBES2            ADRRESS                                    F2504600
       CLA SUBORG+3,4                                                   F2504610
       ADD SUBES1            FOR LDA                                    F2504620
SUB030 ADD SUBES2            INSTRUCTION                                F2504630
       TIX SUB030,4,1                                                   F2504640
       STA SUBES1            ACTUAL DRUM ADDRESS.                       F2504650
       LDA SUBES1            COPY SUB. COMBINATION                      F2504660
       CPY WRKSC             WD1 IS C1 AND C2.                          F2504670
       TXL SUB040,2,2        1 AND 2 DIM SKIP WD5.                      F2504680
       CPY WRKSC+4           WD5 IS C3.                                 F2504690
SUB040 CPY WRKSC+1           WD2 IS S1,                                 F2504700
       TXL SUB060,2,1        1 DIM., SKIP WDS 4,6,7.                    F2504710
       CPY WRKSC+3           WD4 IS S2.                                 F2504720
       TXL SUB050,2,2        1 AND 2 DIM SKIP WD 6                      F2504730
       CPY WRKSC+5           WD6 IS S3.                                 F2504740
SUB050 CPY WRKSC+6           WD7 IS DIMENSI0N                           F2504750
SUB060 CPY SUBES1            CHECK-SUM INTO-SUBES1.                     F2504760
       LXD SUBORG,4          COMPUTE CHECK-SUM.                         F2504770
       CAL WRKSC                                                        F2504780
SUB070 ACL WRKSC+7,4                                                    F2504790
       TIX SUB070,4,1        3 ATTEMPTS ARE MADE                        F2504800
       SLW SUBES2            TO READ SC CORRECTLY,                      F2504810
       CLA SUBES2            IF ERROR STILL PRESENT,                    F2504820
       SUB SUBES1            COMPLETE ROUTINE, RETURN.                  F2504830
       TZE SUB075            CHECK SUMS AGREE, TRA.                     F2504840
       TIX SUB010,1,1        ERROR, TRY UP TO 5 TIMES.                  F2504850
       TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2504860
SUB075 LXD SUBORG+1,4        REARRANGE C1,C2,D1, AND D2.                F2504870
SUB080 CLA WRKSC+7,4                                                    F2504880
       PAX 0,2               C2 INTO XB.                                F2504890
       ANA DECMSK                                                       F2504900
       STO WRKSC+7,4         WD1 DECREMENT IS C1)                       F2504910
       PXD 0,2               WD7 DECREMENT IS D1.                       F2504920
       TNX SUB090,4,6                                                   F2504930
       STO WRKSC+2                                                      F2504940
SUB085 TXL SUB080,0                                                     F2504950
SUB090 STO WRKSC+7           WD8 DECREMENT IS D2.                       F2504960
       LXD SUB085,4          RESTORE LINKAGE INDEX.                     F2504970
SUB100 TRA 1,4                                                          F2504980
SUBORG OCT 000006001356      DECREMENT IS 6, ADD. IS ORG. TAU3.         F2504990
       OCT 000007000454      DECREMENT IS 7, ADD. IS ORG. TAU2          F2505000
       OCT 000010000000      DECREMENT IS 8, ADD. IS ORG. TAU1          F2505010
SUBES1 HTR                                                              F2505020
SUBES2 HTR                                                              F2505030
SUBTAG                                                                  F2505040
       REM *************************************************************F2505050
       REM LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2505060
       REM DATES A COUNTER FOR THE NEXT ASSIGNMENT.                     F2505070
LOC0   CLA LOCIND                                                       F2505080
       TZE 1,2               LOCATION ALREADY ASS1GNED.                 F2505090
       CLA L(0)              IF LOCIND GREATER                          F2505100
       STO LOCIND                                                       F2505110
       CLA CIL00             TO ZERO.                                   F2505120
       TNZ 1,2               IF CIL00 HAS NOT BEEN                      F2505130
       CLA VCTR                                                         F2505140
       STO CIL00             UPDATE VCTR.                               F2505150
       ADD L(8)                                                         F2505160
       STO VCTR                                  -                      F2505170
       TRA 1,2               START COMPARING BUFFER                     F2505180
       REM *************************************************************F2505190
       REM CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTIF2505200
       REM ION BUFFER.  IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF CF2505210
       REM CIT) WRITES IT ONTO TAPE 3.                                  F2505220
CIT    SXD E2C,1             SIZE T0 CURRENT WORD COUNT.                F2505230
       SXD E3C,2                                                        F2505240
       TSX LOC0,2                                                       F2505250
       LXD BB0X,2            COMP OF CURRENT WORD COUNT.                F2505260
       TXH CIT04,2,-100      IF BUFFER INITIALLY                        F2505270
CITSP  LXD BB0X,2                                                       F2505280
       TXL CIT04,2,0         WRITE                                      F2505290
       WRS 147               BUFFER                                     F2505300
       LXA L(0),1            0N TAPE 3.                                 F2505310
CIT01  CPY CIB,1             COPY LOOP.                                 F2505320
       TXI CIT02,1,-1                                                   F2505330
CIT02  TXI CIT03,2,1         DROP WORD COUNT.                           F2505340
CIT03  TXH CIT01,2,1         TEST FOR BUFFER DNE.                       F2505350
CIT04  LXA L(4),1            PROCEED TO NEW                             F2505360
CIT05  CLA CIL00+4,1         INST INTO BUFFER.                          F2505370
       STO CIB,2                                                        F2505380
       TXI CIT07,2,-1        KEEP WORD COUNT UPDATED.                   F2505390
CIT07  TIX CIT05,1,1                                                    F2505400
       SXD BB0X,2            SAVE CURRENT WD CT,                        F2505410
       LXD E2C,1                                                        F2505420
       LXD E3C,2                                                        F2505430
       TRA 1,4                                                          F2505440
       REM *************************************************************F2505430
       REM SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG  F2505460
SCLMN1 LXD TAG2,1            S1 INDEX QUANTITY.                         F2505470
       LXD TAG2+1,2          S2 INDEX QUANTITY.                         F2505480
       SXD SCLMN2,2          THIS ROUTINE                               F2505490
SCLMN2 TXH SCLMN3,1          COMPARES SIZES                             F2505500
       LXD SCLMN2,1          OF THE INDEX                               F2505510
SCLMN3 LXD TAG2+2,2          QUANTITIES OF                              F2505520
       SXD SCLMN4,2          EACH SUBSCRIPT IN A TAG.                   F2505530
SCLMN4 TXH SCLMN5,1          LARGEST 2.X. QUANTITY                      F2505540
       LXD SCLMN4,1          IS FOUND AND LEFT IN                       F2505550
SCLMN5 PXD 0,1               ACC FOR COMPARISON WITH DOIND.             F2505560
       TRA 1,4                                                          F2505570
       REM *************************************************************F2505580
       REM TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST  F2505590
       REM DECREMENT.                                                   F2505600
TELC   LXA L(3),1                                                       F2505610
       CLA L(0)                                                         F2505620
       STO ERTX01                                                       F2505630
       SXD LINKC,4                                                      F2505640
TELC05 CLA TAG2+3,1          SEQUENCE.  PUT S IN XB T0 PREPARE          F2505650
       PDX 0,2               FOR CN1IJ ROUTINE.                         F2505660
       TXL TELC10-2,2,0      NO S, GO TO NEXT S.                        F2505670
       TSX CN1IJ,4           COMPUTE (CN1-1)IJ-ETC.                     F2505680
       ADD ERTX01                                 .                     F2505690
       STO ERTX01            (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2.            F2505700
TELC10 TIX TELC05,1,1        GO TO NEXT S FOR CN1IJ ROUTINE.            F2505710
       LXD LINKC,4                                                      F2505720
       TRA 1,4                                                          F2505730
       REM *************************************************************F2505740
       REM CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A     F2505750
       REM SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1               F2505760
CN1IJ  LDQ DOTAGZ+2,2        N2 INTO MQ.                                F2505770
       LLS 18                                                           F2505790
       TXL CN1IJ2,1,2        S2 OR S3, TRANSFER.                        F2505800
       MPY WRKSC             S1,                                        F2505810
       SUB L(2)                                                         F2505820
       TRA CN1IJ8                                                       F2505830
CN1IJ2 TXL CN1IJ4,1,1        DIVIDE BY 2 AND RETURN.                    F2505840
       MPY WRKSC+2           S2                                         F2505850
       SUB L(2)              COMPUTE                                    F2505860
       LRS 18                (2C2N1-2)D1D2 THEN                         F2505870
       MPY WRKSC+6           GO TO CN1IJ8 TO DIVIDE                     F2505880
       TRA CN1IJ8            BY 2 AND RETURN.                           F2505890
CN1IJ4 MPY WRKSC+4           S3,                                        F2505900
       SUB L(2)              COMPUTE                                    F2505910
       LRS 18                (2C3N1-2)D1D2 THEN                         F2505920
       MPY WRKSC+6           GO TO CN1IJ8 TO DIVIDE                     F2505930
       LRS 18                DIVIDE BY 2 AND                            F2505940
       MPY WRKSC+7           RETURN.                                    F2503950
CN1IJ8 ARS 1                 DIVIDE BY 2,  RESULT IS (C1N1-1)           F2505960
       TRA 1,4               OR (C2N1-1)D1 OR (C3N1-1)D1D2              F2505970
       REM *************************************************************F2505980
       REM CXIJ COMPUTES GN3X.  WHEN THE ROUTINE CXIJ+2 IS CALLED,      F2505990
       REM GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2506000
       REM BY THE CALLER.                                            .  F2506010
CXIJ   CLA DOTAGZ+5,2                                                   F2506020
       ANA ADMSK             ISOLATE X QUANTITY.                        F2506030
       STO ERTX03                                                       F2506040
       TXH CXIJ+6,1,1        S2 OR S1.                                  F2506050
       LDQ WRKSC+4           S3, LOAD C3.                               F2506060
       TRA CXIJ2                                                        F2506070
       TXL CXIJ1,1,2         S2.                                        F2506080
       LDQ WRKSC             S1, LOAD C1.                               F2506090
       TRA CXIJ2                                                        F2506100
CXIJ1  LDQ WRKSC+2           S2, LOAD C2.                               F2506110
CXIJ2  MPY ERTX03                                                       F2506120
       TXH CXIJ4,1,2         IF S1, FINISHED.                           F2506130
       LRS 18                                                           F2506140
       MPY WRKSC+6           CX TIMES D1.                               F2506150
       TXH CXIJ4,1,1         IF S2, FINISHED.                           F2506160
       LRS 18                                                           F2506170
       MPY WRKSC+7           CXD1 TIMES D2.                             F2506180
CXIJ4  LLS 17                                                           F2506190
       TRA 1,4               IN ACC. AND RETURN.                        F2506200
       REM *************************************************************F2506210
       REM CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2306220
       REM KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO.  THE      F2506230
       REM ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2306240
       REM LOCATION OF THE SXD IS STORED IN THAT DQTAG SO THAT A TABLE (F2506250
       REM (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN THEF2506260
       REM PROPER ADDRESS DURING MERGE.                                 F2506270
CSXD   SXD ERTX01,4          ROUTINE FOR                                F2506280
       TSX CILV,4            COMPILING AN                               F2506290
       CLA L(0)              SXD INSTRUCTION                            F2506300
       STO CIL03             WHERE THE                                  F2506310
       STO CIL02                                                        F2506320
       LXD BLKNUM,4                                                     F2506330
       TXL CSXD4,4,2         BLOCKS B,C.                                F2506340
       LXD TAG21,4           BLOCKS D,E, LOAD S2 INDEX.                 F2506350
       TRA CSXD4+1                                                      F2506360
CSXD4  LXD TAG2,4            BLOCKS B,C, LOAD S1 INDEX.                 F2506370
       CLA DOTAGZ,4          FOR BLOCKS B,C, FILL IN                    F2506380
       ANA N0PRET            SYMBOLIC ADDRESS OF SXD                    F2506390
       STO CIL02             FROM WD1 OF S1 DOTAG.                      F2506400
       CLA TAG3              NOT KNOWN.                                 F2506410
       STA CIL03                                                        F2506420
       CLA L(SXD)                                                       F2506430
       STO CIL01                                                        F2506440
       TSX CIT,4                                                        F2506450
       LXD ERTX01,4                                                     F2506460
       TRA 1,4                                                          F2506470
       REM *************************************************************F2506480
       REM ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION   F2506490
       REM AND SPREADS IT INTO WORKING TAG (WRKSC).                     F2506500
ADTGSE LXD XTG,1                                                        F2506510
ADTGS  TXI ADTGS+1,1,-4                                                 F2506520
       SXD XTG,1                                                        F2506530
ADTGS1 TXH ADTGS5,1                                                     F2506540
       TRA 1,4               END OF TABLE.                              F2506550
ADTGS5 CLA ADTGMX,1          COMPARE ADTG DDA WITH                      F2506560
       ANA DECMSK            DOTAG A AND B UNTIL                        F2506570
       CAS A                 WE FIND AN ADTAG                           F2506580
       TRA ADTGS4            MODIFIED BY A DO THAT                      F2506590
       TRA ADTGS4            IS WITHIN THE RANGE                        F2506600
       TRA ADTGS             OF THE CURRENT DO                          F2506610
ADTGS4 CAS B                                                            F2506620
       TRA ADTGS             NOT IN RANGE, SELECT NEXT                  F2506630
       TSX DIAG,4            EQUALITY IMPOSSIBLE.                       F2506640
       CLA ADTGMX,1          IN RANGE, FILL                             F2506650
       PDX 0,2               OUT WORKING TAG.                           F2506660
       SXD TAG1,2            DDA IN TAG1 DECREMENT.                     F2506670
       PAX 0,2                                                          F2506680
       SXD TAG2,2            S1 INDEX IN TAG2.                          F2506690
       CLA ADTGMX+1,1                                                   F2506700
       PDX 0,2                                                          F2506710
       SXD TAG2+1,2          S2 INDEX IN TAG2+1.                        F2506720
       PAX 0,2                                                          F2506730
       SXD TAG2+2,2          S3 INDEX IN TAG2+2.                        F2506740
       CLA ADTGMX+2,1                                                   F2506750
       STO TAG3              TAG NAME IN TAG3.                          F2506760
       CLA ADTGMX+3,1                                                   F2506770
       STO TAG4              ADTG WD4 IN TAG4.                          F2506780
ADTGS8 LXA L(1),2            INIT FOR POSING.                           F2506790
       CLA TAG2+3,2                                                     F2506800
       SUB DOIND             TEST FOR MODIFICATION,                     F2506810
       TZE 2,4               PROPER ENTRY FOUND.                        F2506820
       TXH ADTGS,2,2         NOT MOD BY DO, TAKE NEXT SUBSCRIPT         F2506830
       TXI ADTGS8+1,2,1      ADTG NOT MOD BY DO, TAKE NEXT ADTG.        F2506840
       REM *************************************************************F2506830
       REM N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO  LF2506860
       REM LAST 3 BITS OF THE WORD N1SBX.                               F2506870
N1STET CLA TAG4                                                         F2506880
       ARS 3                 ONE BIT                                    F2506890
       ANA L(7)              IS STORED IN N1SBX.                        F2506900
       ALS 3                                                            F2506910
       STO N1SBX                                                        F2506920
       LXA L(3),1                                                       F2506980
N1S02  CLA TAG2+3,1          A CONATAINS POSIND.                        F2506990
       PDX 0,2                                                          F2507000
       TXL N1S05,2           NO TAG FOR THIS POS.                       F2507010
       CLA DOTAGZ,2          ISOLATE                                    F2507020
       ARS 15                VARIABLE                                   F2507030
       ANA L(4)              N1                                         F2507040
       ARS 3,1               BIT.                                       F2507050
       ORS N1SBX             OR N1BIT TO N1SBX.                         F2507060
N1S05  TIX N1S02,1,1         REPEAT FOR NEXT RIGHT S.                   F2507070
       CLA N1SBX                                                        F2507080
       TRA 1,4                                                          F2507090
       REM *************************************************************F2507100
       REM FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR AF2507110
       REM FIXED POINT CONSTANT.  IF THE DESIRED FIXCON IS NOT THERE A SF2507120
       REM SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE.               F2507130
FIXCON SXD FC29,1            SAVE                                       F2507140
       SXD FC18,2            INDEX                                      F2507150
       SXD FC34,4            REGISTERS.                                 F2507160
       STO ERDRM1                                                       F2507170
       LXA L(5),4                                                       F2507180
FC02   CLA ORIGIN            FIXCON TABLE ORIGIN.                       F2507190
       STO AD1                                                          F2507200
       LXA L(0),1            INITIALIZE WORD COUNT TEST INDICATOR.      F2507210
       LXA L(2),2            INITIALIZE INDICATOR FOR TWO PASSES.       F2507220
FC04   CLA ERDRM1            COMPARISON WORD IN ACCUMULATOR.            F2507230
       RDS 194               FIXCON TABLE                               F2507240
       LDA AD1               ON DRUM 3.                                 F2507250
FC08   CPY CPYWD1            ENTRY FROM TABLE.                          F2507260
       TXH FC24+1,1          DECREMENT CONTAINS WORD COUNT.             F2507270
       CPY CPYWD2            CHECK SUM.                                 F2507280
       TLQ FC30              ENTRY LESS THAN COMPARISON WORD.           F2507290
       CPY ERDRM             SKIP EVEN ENTRIES FOR 2ND PASS.            F2507300
       CAS CPYWD2            COMPARE ENTRY WITH COMPARISON WORD.        F2507310
       TSX DIAG,4            TLQOBVIATES THIS PATH.                     F2507320
FC18   TXL FC60,0            EQUALITY SEARCH ENDED.                     F2507330
FC20   CPY ERDRM             SKIP EVEN ENTRIES FOR 2ND PASS.            F2507340
FC24   TXI FC08,1,2          BUMP WORD COUNT TEST INDICATOR             F2507330
       TNX FC40,2,1          TEST FOR PASS CONDITION.                   F2507360
       CLA AD1               INITIALIZE ORIGIN DRUM                     F2507370
       ADD L(2)              ADDRESS FOR 2ND PASS                       F2507380
       STO AD1               (EVEN ENTRIES)                             F2507390
FC28   LXA L(1),1            SET ENTRY NUMBER FOR SECOND PASS.          F2507400
FC29   TXL FC04,0            RETURN TO FC04 FOR SECOND PASS.            F2507410
FC30   CPY ERDRM                                                        F2507420
FC34   TXL FC20,0                                                       F2507430
FC40   STO CPYWD1            SEARCH ENDED, ENTRY NOT FOUND.             F2507440
       LXD FC08+1,1                                                     F2507450
       TXI FC42,1,1          WORD COUNT,                                F2507460
FC42   SXD FC08+1,1          NEW TEST VALUE (WORD COUNT).               F2507470
       PXD 0,1               WORD COUNT                                 F2507480
       ARS 17                PLUS                                       F2507490
       ADD ORIGIN            ORIGIN EQUALS                              F2507500
       STO AD1               NEW ADDRESS FOR DRUM WRITING.              F2507510
       WRS 194               SELECT                                     F2507520
       LDA AD1               DRUM AND                                   F2507530
       CPY CPYWD1            WRITE NEW CONSTANT                         F2507540
       CPY CPYWD1            AND CHECK SUM ON DRUM.                     F2507550
FC50   PXD 0,1               PLACE NAME OF CONSTANT                     F2507560
       ARS 18                IN ACCUMULATOR, RESTORE X REGISTERS,       F2507570
       ORA BCD2              AND RETURN                                 F2507580
       LXD FC29,1            TO                                         F2507590
       LXD FC18,2            MAIN                                       F2507600
       LXD FC34,4                                                       F2507610
       TRA 1,4               ROUTINE.                                   F2507620
FC60   CLA CPYWD1            TEST DRUM READING                          F2507630
       SUB CPYWD2                                                       F2507640
       TZE FC50              DRUM READ CORRECTLY.                       F2507650
       TIX FC02,4,1          RETURN FOR 1ST-PASS.                       F2507660
STOPFC TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2507670
ORIGIN HTR 2                                                            F2507680
       REM *************************************************************F2507690
       REM OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2507700
       REM THE COMILATION OF LOAD VALUE COMPUTATION.  IT OPTIMIZES WHEN F2507710
       REM (CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME.                F2507720
0P2    CLA 32766,4                                                      F2507730
       STA RETURN            LINKAGE.                                   F2507740
       CLA TAG2+3,1          IF S IS NOT                                F2507750
       PDX 0,2               DEFINED BY A DO,                           F2507760
       TXH 0P2P,2,0                                                     F2507770
       TRA 1,4                                                          F2507780
0P2P   CLA DOTAGZ+2,2        IF NOT DEFINED BY                          F2507790
       ANA 6ONES                                                        F2507800
       TNZ 1,4               RETURN TO MAIN ROUTINE.                    F2507810
       CLA DOTAGZ+2,2        IF CONSTANT, COMPUTE                       F2507820
       TSX CN1IJ,4                                                      F2507830
       TZE RETURN            RETURN AND CONSIDER S2.                    F2507840
       ALS 18                OTHERWISE COMPUTE                          F2507850
       TXL 0P2P1,1,2                                                    F2507860
       ADD L1DEC             TO (CN1-1).                                F2507870
0P2P1  TSX FIXCON,4                                                     F2507880
       TXL 0P2P2,1,2                                                    F2507890
       STO OR000+1                                                      F2507900
       TIX AC050,1,1                                                    F2507910
0P2P2  PAX 0,1                                                          F2507920
       ANA 6ONES             ASSIGN FIXCON SYMBOL                       F2507930
       STO CIL02             CHECK SUBSCRIPT. IF                        F2507940
       PXD 0,1               S1, TRA RETURN (3RD)   OTHERWISE           F2507930
       STO CIL03             COMPILE ADD L(SYMBOl).                     F2507960
       CLA L(ADD)            STO 1)+3.                                  F2507970
       STO CIL01                                                        F2507980
       CLA L(0)                                                         F2507990
       STO CIL00                                                        F2508000
       LXD BB0X,1                                                       F2508010
       TXI 0P24,1,4                                                     F2508020
0P24   SXD BB0X,1                                                       F2508030
       TSX CIT,4                                                        F2508040
       CLA L(STO)                                                       F2508050
       STO CIL01                                                        F2508060
       CLA L3DEC                                                        F2508070
       STO CIL03                                                        F2508080
       CLA OR000+26                                                     F2508090
       ANA 6ONES                                                        F2508100
       STO CIL02                                                        F2508110
       TSX CIT,4                                                        F2508120
RETURN TRA 0                 ADDRESS MODIFIED,                          F2508130
       REM *************************************************************F2508140
       REM OP3 TESTS  FOR VARIABLE NS AND IF CONSTANT COMPILES A        F2508150
       REM CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1),          F2508160
OP3    SXD EROP3,4                                                      F2508170
       CLA DOTAGZ,2          ARE ALL                                    F2508180
       ARS 15                N PARAMETERS                               F2508190
       ANA L(7)              CONSTANT.                                  F2508200
       TNZ OP31              NO, OP31.                                  F2508210
       CLA DOTAGZ+3,2        YES,                                       F2508220
       SUB DOTAGZ+2,2        FORM                                       F2508230
       ALS 18                N2-N1,                                     F2508240
       TSX FIXCON,4          OBTAIN FIXCON SYMBOL                       F2508250
       PAX 0,4               COMPILE                                    F2508260
       ANA 6ONES             CLA                                        F2508270
       STO CIL02             L(N2-N1)                                   F2508280
       PXD 0,4               AND                                        F2508290
       STO CIL03             RETURN                                     F2508300
       CLA L(CLA)            TO                                         F2508310
       STO CIL01             THE                                        F2508320
       CLA L(0)              CALLER.                                    F2508330
       STO CIL00             ZERO LOCATION.                             F2508340
       TSX CIT,4                                                        F2508350
       LXD EROP3,4                                                      F2508360
       TRA 1,4                                                          F2508370
OP31   ARS 1                                                            F2508380
       LBT                                                              F2508390
       TRA OP32                                                         F2508400
       CLA DOTAGZ+3,2        N2 VARIABLE,                               F2508410
       STO CIL02             COMPILE                                    F2506420
       CLA L(0)              CLA L(N2).                                 F2508430
       STO CIL03                                                        F2508440
       TRA OP33                                                         F2506450
OP32   CLA DOTAGZ+3,2                                                   F2508460
       ALS 18                                                           F2508470
       TSX FIXCON,4                                                     F2508480
       PAX 0,4                                                          F2508490
       ANA 6ONES                                                        F2508500
       STO CIL02                                                        F2508510
       PXD 0,4                                                          F2508520
       STO CIL03                                                        F2508530
OP33   CLA L(0)                                                         F2508540
       STO CIL00                                                        F2508550
       CLA L(CLA)                                                       F2508560
       STO CIL01                                                        F2508570
       TSX CIT,4                                                        F2508580
       CLA DOTAGZ,2                                                     F2508590
       ARS 17                                                           F2508600
       LBT                                                              F2508610
       TRA OP34                                                         F2508620
       CLA DOTAGZ+2,2        N1IS VARIABLE,                             F2508630
       STO CIL02             PREPARE TO                                 F2508640
       CLA L(0)              COMPILE                                    F2508650
       STO CIL03             SUBL(N1).                                  F2508660
       TRA OP35                                                         F2508670
OP34   CLA DOTAGZ+2,2        N1 CONSTANT,                               F2508680
       ALS 18                OBTAIN                                     F2508690
       TSX FIXCON,4          FIXCON SYMBOL                              F2508700
       PAX 0,4               FOR N1                                     F2508710
       ANA 6ONES             AND PREPARE                                F2508720
       STO CIL02             TO COMPILE                                 F2508730
       SXD CIL03,4           SUB L(N1).                                 F2508740
OP35   CLA L(SUB)            COMPILE                                    F2508750
       STO CIL01             SUB                                        F2508760
       TSX CIT,4             L(N1)                                      F2508770
       LXD EROP3,4              .                                       F2508780
       TRA 1,4                                                          F2508790
EROP3                                                                   F2508800
ER0P   OCT 100                                                          F2508810
       REM *************************************************************F2508820
L(TXI) BCD 1TXI000                                                      F2508830
L(PXD) BCD 1PXD000                                                      F2508840
L(STO) BCD 1STO000                                                      F2508850
L(SXD) BCD 1SXD000                                                      F2508860
L(TIX) BCD 1TIX000                                                      F2508870
L(TXL) BCD 1TXL000                                                      F2508880
L(DED) BCD 1DED000                                                      F2508890
L(LXD) BCD 1LXD000                                                      F2508900
L(STD) BCD 1STD000                                                      F2508910
L(CLA) BCD 1CLA000                                                      F2508920
L(ADD) BCD 1ADD000                                                      F2508930
L(SUB) BCD 1SUB000                                                      F2508940
L(BSS) BCD 1BSS000                                                      F2508950
LMXDTG     450                                                          F2508960
MAXLOC OCT 400                                                          F2508970
L1DEC  OCT 1000000                                                      F2508980
DRADS1 OCT 2664                                                         F2508990
DRADS2     204                                                          F2509000
DRADS3     2                                                            F2509010
AD202      202                                                          F2509020
L(17)      17                                                           F2509030
L(OR0)     OR000                                                        F2509040
ESTORE HTR 0                                                            F2509050
N0PRET OCT 077777077777                                                 F2509050
ABDRMA DEC 1000                                                         F2509070
BLKSZE DEC 1000                                                         F2509080
MINUS1 OCT 77776                                                        F2509090
L3DEC  OCT 000003000000                                                 F2509100
L(7)       7                                                            F2509110
BCD15  OCT 170000000000                                                 F2509120
BCD0   OCT 060000000002                                                 F2509130
BCD2   OCT 020000000000                                                 F2509140
BIT01  OCT 600000000000                                                 F2509150
T1MSK  OCT 700000077777                                                 F2509160
6ONES  OCT 770000000000                                                 F2509170
TETMSK OCT 007777000000                                                 F2509180
L(6)       6                                                            F2509190
L(24)      24                                                           F2509200
L(8)       8                                                            F2509210
L(K1)  OCT 10                                                           F2509220
L4DEC  OCT 000004000000                                                 F2509230
INST20     ADTGA                                                        F2509240
INST22     MXTGA                                                        F2509250
INST24     RTX160                                                       F2509260
INST26     RTX184                                                       F2509270
INST30     RTX264                                                       F2509280
INST32     RTX226                                                       F2509290
LMXTG      672                                                          F2509300
LHXTGA     200                                                          F2509310
ALLONE OCT 377777777777                                                 F2509320
LZEKMX     100                                                          F2509330
LADMX      400                                                          F2509340
L(1)       1                                                            F2509350
L(2)       2                                                            F2509360
L(4)       4                                                            F2509370
L(3)       3                                                            F2509380
L(5)       5                                                            F250939D
L(0)       0                                                            F2509411
L(10)      10                                                           F2509410
L(16)      16                                                           F2509420
BIT1   PTW 0                                                            F2509430
BIT2   PON 0                                                            F2509440
BIT8   OCT 002000000000                                                 F2509450
ADMSK  OCT 77777                                                        F2509460
DECMSK OCT 077777000000                                                 F2509470
SMSK                                                                    F2509480
SMSK1  OCT 760                                                          F2509490
SMSK2  OCT 774                                                          F2509500
SMSK3  OCT 763                                                          F2509510
SMSK4  OCT 773                                                          F2509520
BITMSK OCT 20                                                           F2509530
       OCT 10                                                           F2509540
0PMSK  OCT 74030                                                        F2509550
11BITS OCT 3777                                                         F2509560
BIT20  OCT 100000                                                       F2509570
36ONES OCT 777777777777                                                 F2509580
INST2  LXA L(4),1                                                       F2509590
INST3  LXA L(2),1                                                       F2509600
INST4  TRA AC224                                                        F2509610
INST5  TRA AC228                                                        F2509620
INST8      AC244                                                        F2509630
INST10     ADTGA                                                        F2509640
INST11     AC010                                                        F2509650
INST12     MXTGA                                                        F2509660
INST13 TRA AC155                                                        F2509670
INST14 TSX CIL03I,4                                                     F2509680
6ONESR OCT 77                                                           F2509690
6T017  OCT 007777000000                                                 F2509700
24T035 OCT 7777                                                         F2509710
BB0X   HTR                                                              F2509720
E2C    HTR                                                              F2509730
E3C    HTR                                                              F2509740
CIL00  BSS 1                                                            F2509750
CIL01  BSS 1                                                            F2509760
CIL02  BSS 1                                                            F2509770
CIL03  BSS 1                                                            F2509780
ERTGA  BSS 1                                                            F2509790
CHEKSM BSS 1                                                            F2509800
TETTG  BSS 1                                                            F2509810
SWICH2 BSS 1                                                            F2509820
ERLXC  BSS 1                                                            F2509830
AX     BSS 1                                                            F2509840
RELC0  BSS 1                                                            F2509850
WRKTGA BSS 1                                                            F2509860
N3X    BSS 1                                                            F2509870
XX     BSS 1                                                            F2509880
AD1    BSS 1                                                            F2509890
AD2    BSS 1                                                            F2509900
ADTGX  BSS 1                                                            F2509910
WRKRXT BSS 1                                                            F2509920
TETTGX BSS 1                                                            F2509930
RTXTGX BSS 1                                                            F2509940
LOCIND BSS 1                                                            F2509950
ERORBX BSS 1                                                            F2509960
A      BSS 1                                                            F2509970
B      BSS 1                                                            F2509980
SWICH  BSS 1                                                            F2509990
TEBBOX BSS 1                                                            F2510000
DOIND  BSS 1                                                            F2510010
DOIND1 BSS 1                                                            F2510020
TEABOX BSS 1                                                            F2510030
SWICH1 BSS 1                                                            F2510040
N3IND  BSS 1                                                            F2510050
N1N2N3 BSS 1                                                            F2510060
LINKC  BSS 1                                                            F2510070
XTG    BSS 1                                                            F2510080
POSIND BSS 1                                                            F2510090
ER40   BSS 1                                                            F2510100
ER41   BSS 1                                                            F2510110
ARG    BSS 1                                                            F2510120
VCTR   BSS 1                                                            F2510130
ERTX01 BSS 1                                                            F2510140
ERTX02 BSS 1                                                            F2510150
ERTX03 BSS 1                                                            F2510160
BLKNUM BSS 1                                                            F2510170
SXDTXZ BSS 1                                                            F2510180
OREDO  BSS 1                                                            F2510190
DEFDO  BSS 1                                                            F2510200
N1SBX  BSS 1                                                            F2510210
TETLOC BSS 1                                                            F2510220
       REM *************************************************************F2510230
       REM BEGIN BETA STAGE                                             F2510240
       REM THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE       F2510250
       REM INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE F2510260
       REM DO.                                                          F2510270
RTX    SXD RTX024,4                                                     F2510280
       LXD VCTR,1            VARIABLE CTR.  LAST BETA.                  F2510290
       LXD DOIND,2           NEW DO                                     F2510300
       CLA DOTAGZ,2          ALPHA BETA WORD OF DO.                     F2510310
       PAX 0,2               PLACE B IN X.                              F2510320
       SXD RTX04,2                                                      F2510330
RTX04  TXL RTX05,1           IS THIS THE FIRST BETA,                    F2510340
       PXD 0,2                                                          F2510350
       ADD L(K1)             FIRST B. SET                               F2510360
       STO VCTR              VCTR AND                                   F2510370
       CLA ALLONE            INITIALIZE                                 F2510380
       STO CIL00             CIL BUFFER                                 F2510390
       STO CIL01             TO ALL ONES.                               F2510400
       STO CIL02                                                        F2510410
       STO CIL03                                                        F2510420
       TSX CITSP,4           USE SPECIAL CIT ENTRY.                     F2510430
RTX05  CLA L(0)              INITIALIZE THE TEST TAG                    F2510440
       STO TETTGX            INDEX FOR THIS DO TO ZERO.                 F2510450
       STO XTG                                                          F2510460
       STO RTXTGX                                                       F2510470
       STO ADTGX                                                        F2510480
       TSX N3BIT,4           ISOLATE N3 BIT OF DOTAG                    F2510490
       TSX SCAN,4                                                       F2510500
RTXIN1 SXD RTXTGX,1          STORE FIRST TTG FOR TX CYCLE.              F2510510
       SXD XTG,1             ENTRY THAT LIES BETWEEN A AND B            F2510520
RTX06  TSX FIND,4                                                       F2510530
       TRA RTX180            END OF DO, START DMTG CYCLE.               F2510540
       SXD XTG,1             SC MODIFIED BY DO, STORE.                  F2510550
       TSX TETG,4            PLACE TEST BITS IN TAG WORD.               F2510560
       TSX PRES,4                                                       F2510570
       REM AT THE END OF THIS ROUTINE THE BLO0K INDICATION IS IN XB.    F2510580
       TXH RTX160,2,4        BLOCK F, NO INSTRUCTIONS, GET NEW TAG.     F2510590
       TXH RTX70,2,0         BLOCK DIFFERENT FROM A OR F,               F2510600
       CLA N3IND             BLOcK EQUALSA.                             F2510610
       TNZ RTX68             DECREMENT OF RXA IS VARIABLE         .     F2510620
RTX020 LXD TAG3,1            DECREMENT IS CONSTANT.                     F2510630
       TXH RTX50,1,0         TEST FOR INSERTED COUNTER.                 F2510640
       CLA TAG3              OR RESET TAG.                              F2510650
       LRS 11                                                           F2510660
       LBT                                                              F2510670
RTX024 TXL RTX30,0           RESET                                      F2510680
       TRA RTX34             COUNTER.                                   F2510690
RTX30  CLA TAG3              IF RESET TAG, PUT TAG                      F2510700
       ANA 11BITS            NAME IN ACCUMULATOR AND                    F2510710
       TRA RTX51             GO TO SUBCOM.                              F2510720
RTX34  TSX ENTR,4            IF COUNTER, MAKE                           F2510730
       TRA RTX52             ARTIFICIAL ENTRY IN WRKSC.                 F2510740
RTX50  PXD 0,1               CURRENT TAG.                               F2510750
       ARS 18                GET TAG NAME                               F2510760
RTX51  TSX SUBCOM,4          LAY OUT TAU ENTRY.                         F2510770
RTX52  CLA L(TXI)            COMPILE                                    F2510780
       STO CIL01             TXI                                        F2510790
       LXA POSIND,1          PREPARE FOR                                F2510800
       LXD DOIND,2           EXIT-ROUTINE.                              F2510810
       TSX CN3IJ,4           ROUTINE COMPUTES DECREMENT N3G             F2510820
       STO ERTX01            AND STORES IN ERTX01.                      F2510830
       LXA POSIND,1                                                     F2510830
       CLA TAG4  .           TEST FOR DUPLICATE                         F2510840
       LRS 12                SUBSCRIPTS AND COMPUTE                     F2510850
       LLS 4,1               DECREMENT FOR THEM.                        F2510870
       LBT                   TEST ON S1,S2, OR S3 FOR DUPES.            F2510880
       TRA RTX66             NO DUPLICATES FOR THIS SUBSCRIPT.          F2510890
       ARS 1                                                            F2510900
       LBT                   TEST FOR S1 OR S2 DUPES                    F2510910
       TXI RTX62+3,1,2       DUPES ARE 1,3 ON TRANSFER                  F2510920
       TXI RTX61,1,1                                                    F2510930
RTX61  STO ERTX02            STORE STATUS OF ACCUMULATOR.  DUPES ARE    F2510940
       TSX CN3IJ,4           1,2 OR 2,3 OR 1,2,3.                       F2510950
       LXA POSIND,1          COMPUTE DECREMENT ADJUSTMENT               F2510960
       ADD ERTX01            FOR NEXT LEFT SUBSCR1PT.                   F2510970
       STO ERTX01            REPLACE ADJUSTED DECREMENT IN ERTX01.      F2510980
RTX62  TXI RTX62+1,1,2                                                  F2510990
       TXH RTX66,1,3         NOT 3RD SUBSCRIPT CASE,                    F2511000
       CLA ERTX02            LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB.  F2511010
       ARS 1                                                            F2511020
       LBT                   TEST FOR S1 DUPE.                          F2511030
       TRA RTX66                                                        F2511040
       LXD DOIND,2                                                      F2511050
       TSX CN3IJ,4           COMPUTE DECREMENT ADJUSTMENT FOR S1        F2511060
       ADD ERTX01            IN 1,2,3 AND 1,3 CASES.                    F2511070
       STO ERTX01            FINAL DECREMENT ADJUSTMENT.                F2511080
RTX66  CLA ERTX01                                                       F2511090
       STA CIL01             AFTER DECREMENT IS COMPUTED, FILL          F2511100
       TSX CIL023,4          OUT-4 WORDS OF                             F2511110
       TSX CIT,4             COMPILED INSTRUCTION.P                     F2511120
       TRA RTX69             AND CONTINUE.                              F2511130
RTX68  TSX CILV,4            DECREMENT IS VARIABLE.   ASSIGN LOCATION.  F2511140
       CLA CIL00             PREPARE VCTR LOCATION                      F2511150
       ANA ADMSK             FOR TGA ROUTINE.                           F2511160
       TSX TGA,4             PLACE LOCATION IN APPENDED TAGTAG WORD     F2511170
       TSX CIL23,4           AND THEN FILL OUT                          F2511180
       CLA L(TXI)            REMAINING WORDS OF                         F2511190
       STO CIL01             COMPILED INSTRUCTION                       F2511200
       TSX CIT,4             COMPILER ROUTINE.                          F2511210
RTX69  CLA TAG4              TEST FOR SYM8OL                            F2511220
       TPL RTX160            INDICATION                                 F2511230
       LXD DOIND,2           FORVAR                                     F2511240
       CLA DOTAGZ+5,2        OCCURRANCE.                                F2511250
       ANA BIT1                                                         F2511260
       TZE RTX160            NO FORVAR, CONTINUE.                       F2511270
       CLA L(0)              FORVAR EXISTS.                             F2511280
       STO CIL00                                                        F2511290
       CLA TAG3              COMPILE                                    F2511300
       ANA ADMSK             STORE                                      F2511310
       STO CIL03             INSTRUCTION                                F2511320
       CLA L(SXD)            FOR                                        F2511330
       STO CIL01             FORVAR OCCURRANCE.                         F2511340
       LXD DOIND,2                                                      F2511350
       CLA DOTAGZ+1,2        PUT FORVAR SUBSCRIPT                       F2511360
       STO CIL02             IN RELATIVE ADDRESS                        F2511370
       TSX CIT,4             WORD FOR SXD INSTRUCTION.                  F2511380
       TRA RTX160                                                       F2511390
RTX70  TXH RTX90,2,1         BLOCK IS B,C,D QR E.                       F2511400
       SXD BLKNUM,2                                                     F2511410
       LXD TAG2,2            BLOCK B FIRST DETERMINE                    F2511420
       TSX NBITS,4           IF DECREMENT IS VARIABLE                   F2511430
       ADD N3IND                                                        F2511440
       TNZ RTX80             DECREMENT IS VARIABLE.                     F2511450
       CLA TAG3              DECREMENT IS CONSTANT.                     F2511460
       ARS 18                                                           F2511470
       TSX SUBCOM,4          LAY OUT TAU INTO WRKSC.                    F2511480
       LXD DOIND,2           PREPARE FOR                                F2511490
       LXA POSIND,1          EXIT ROUTINE.                              F2511500
       TSX CN3IJ,4           COMPUTE N3G AND                            F2511510
       STO ERTX01            STORE IN ERTX01.                           F2511520
       LXD TAG2,2                                                       F2511530
       LXA POSIND,1          MOVE POSIND T0 LEFT SUB                    F2511540
       TXI RTX72,1,1         AND COMPUTE XN3G                           F2511550
RTX72  TSX CXIJ,4            FOR LEFT SUB WHICH IS TEST.                F2511560
       SUB L(1)                                                         F2511570
       STO ERTX02                                                       F2511580
       ADD ERTX01            ADDN3G FOR THIS SUBSCRIPT                  F2511590
       STO ERTX01            RESULT IS TXI DECREMENT.                   F2511600
       TSX EDCB,4            COMPILE TXI SXD TIX.                       F2511610
       TRA RTX160            CHECK BEST TEST.                           F2511620
RTX80  TSX BCDE,4            BLOCK B IS VARIABLE.                       F2511630
       TRA RTX160                                                       F2511640
RTX90  TXH RTX110,2,2        BLOCK IS C,D, OR E.                        F2511650
       SXD BLKNUM,2          BLOCK IS C, PUT IN XB.                     F2511660
       LXD TAG2,2            ISOLATE                                    F2511670
       TSX NBITS,4           NBITS INTO N1N2N3.                         F2511680
       ADD N3IND                                                        F2511690
       TNZ RTX100            DECREMENT IS VARIABLE, TSX BCDE.           F2511700
       CLA TAG3              DECREMENT IS CONSTANT.                     F2511710
       ARS 18                LAY OUT TAU                                F2511720
       TSX SUBCOM,4          ENTRY INTO WRKSC.                          F2511730
       LXD TAG2,2            COMPUTE                                    F2511740
       LXA L(3),1            XN3G-1                                     F2511750
RTX91  TSX CXIJ,4            FOR                                        F2511760
       SUB L(1)              LEFT                                       F2511770
       STO ERTX02            SUBSCRIPT.                                 F2511780
       LXA POSIND,1          THEN COMPUTE N3G                           F2511790
       TSX CN3IJ,4           FOR RIGHT                                  F2511800
       ADD ERTX02            SUBSCRIPT.                                 F2511810
       STO ERTX01            RESULT IS ERTX01.                          F2511820
       CLA TAG4                                                         F2511830
       ARS 9                 TEST FOR DUPES.                            F2511840
       LBT                                                              F2511850
       TRA RTX95             NO DOSUB DUPE.                             F2511860
       LXA POSIND,1          DOSUB IS DUPE.                             F2511870
       TXI RTX93,1,1         COMPUTE ADJUSTMENT                         F2511880
RTX93  TSX CN3IJ,4           FOR DECREMENT AND                          F2511890
       ADD ERTX01            STORE IN ERTX01.                           F2511900
       STO ERTX01            XN3G(L) + N3G(R) + N3G(C) - 1)             F2511910
RTX95  TSX EDCB,4            COMPILE TXI SXD TIX.                       F2511920
       TRA RTX160                                                       F2511930
RTX100 TSX BCDE,4            BLOCK DECREMENT IS VARIABLE.               F2511940
       TRA RTX160                                                       F2511950
RTX110 TXH RTX140,2,3        D OR E.                                    F2511960
       SXD BLKNUM,2          STORE BLOCK NUMBER D.                      F2511970
       LXD TAG2+1,2          BLOCK D CONSIDERED.                        F2511980
       TSX NBITS,4           ISOLATE NBITS                              F2511990
       ADD N3IND             CHECK FOR VARIABLE DECREMENT.              F2512000
       TNZ RTX130            DECREMENT IS VARIABLE.                     F2512010
       CLA TAG3              DECREMENT IS CONSTANT.                     F2512020
       ARS 18                SET UP TAG                                 F2512030
       ANA 11BITS            NAME AND                                   F2512040
       TSX SUBCOM,4          LAY OUT TAU ENTRY.P                        F2512050
       LXD TAG2+1,2          CONSIDER CENTER SUBSCRIPT                  F2512060
       LXA L(2),1            FOR EXIT ROUTINE.                          F2512070
       TSX CXIJ,4            COMPUTE XN3G FOR                           F2512080
       STO ERTX02            CENTER SUBSCRIPT.                          F2512090
       LXA POSIND,1          PREPARE DOSUB SUBSCRIPT                    F2512100
       LXD DOIND,2           FOR CN3IJROUTINE.                          F2512110
       TSX CN3IJ,4           COMPUTE N3G FOR                            F2512120
       STO ERTX01            DOSUB SUBSCRIPT.                           F2512130
       CLA TAG4              TEST                                       F2512140
       ARS 9                 FOR                                        F2512150
       ANA L(7)              DUPES,                                     F2512160
       TZE RTX126            NORMAL BLOCK D, NO DUPES.                  F2512170
       LBT                                                              F2512180
       TRA RTX118            XX0 BLOCK D, OR 0XX.                       F2512190
       LXA POSIND,1          X0X BLOCK D.                               F2512200
       TXI RTX114,1,2        SWITCH RIGHT OR LEFT POSIND.               F2512210
RTX114 TSX CN3IJ,4           COMPUTE N3G                                F2512220
       ADD ERTX01            DECREMENT ADJUSTMENT                       F2512230
       STO ERTX01            FOR X0X                                    F2512240
       TRA RTX126            DUPES.                                     F2512250
RTX118 LXD TAG2+1,2          COMPUTE XN3G                               F2512260
       LXA L(3),1            DECREMENT                                  F2512270
RTX122 TSX CXIJ,4            ADJUSTMENT                                 F2512280
       ADD ERTX02            FOR CENTER                                 F2512290
       STO ERTX02            SUBSCRIPT.                                 F2512300
RTX126 CLA ERTX02            SUB1 AND                                   F2512310
       SUB L(1)              ADD ERTX01                                 F2512320
       STO ERTX02            AND ERTX02                                 F2512330
       ADD ERTX01            YIELDING TXI                               F2512340
       STO ERTX01            DECREMENT.                                 F2512350
       TSX EDCB,4            COMPILE TXI SXD TIX.                       F2512360
       TRA RTX160            END CHECK FOR TEST TAG.                    F2512370
RTX130 TSX BCDE,4            BLOCK D IS VARIABLE.                       F2512380
       TRA RTX160                                                       F2512390
RTX140 SXD BLKNUM,2          BLOCK E                                    F2512400
       LXD TAG2,2            PUT N BITS FOR S1                          F2512410
       TSX NBITS,4           PLACE N BITS PLUS                          F2512420
       ADD N3IND             N3IND FOR S1                               F2512430
       STO ERTX01            AND S2 INTO ERTX01                         F2512440
       LXD TAG2+1,2          FOR VARIABLE DECREMENT                     F2512450
       TSX NBITS,4           TEST.  1F SUM IS NOT ZERO,                 F2512460
       ADD ERTX01            THEN THE DECREMENT IS VARIABLE.            F2512470
       TNZ RTX154            DECREMENT IS VARIABLE.                     F2512480
       CLA TAG3              CONSTANT CASE, LAY                         F2512490
       ARS 18                OUT TAU ENTRY INTO                         F2512500
       TSX SUBCOM,4          WRKSC.                                     F2512510
       LXD TAG2+1,2          SET UP CENTER SUBSCRIPT                    F2512520
       LXA L(2),1            FOR EXIT ROUTINE,                          F2512530
       TSX CXIJ,4            COMPUTE XN3G FOR CENTER.                   F2512540
       SUB L(1)              STORE SN3G-1                               F2512550
       STO ERTX02            IN ERTX02.                                 F2512560
       LXA POSIND,1          COMPUTE N3G                                F2512570
       LXD DOIND,2           FOR RIGHT                                  F2512580
       TSX CN3IJ,4           SUBSCRIPT (DOSUB).                         F2512590
       ADD ERTX02            PUT FIRST TXI DECREMENT                    F2512600
       STO ERTX01            IN ERTX01.                                 F2512610
       TSX EDCB,4            COMPILES FIRST                             F2512620
       LXD TAG2,2            THREE OF BLOCK E.                          F2512630
       LXA POSIND,1          COMPUTE XN3G FOR                           F2512640
       TXI RTX150,1,2        LEFT SUBSCRIPT.                            F2512650
RTX150 TSX CXIJ,4            IN ORDER TO CMPILE 2ND                     F2512660
       SUB L(1)              TXI SXD TIX IN                             F2512670
       STO ERTX01            BLOCK E, THE BLOCK                         F2512680
       STO ERTX02            NUMBER IS SET TO                           F2512690
       LXD BLKNUM,4          APPEAR LIKE BLOCK C SO                     F2512700
       TIX RTX152,4,2        THATTHE SXD LOCATION IS STORED             F2512710
RTX152 SXD BLKNUM,4          PROPERLY INTO DOTAG.                       F2512720
       TSX EDCB,4            COMPILE 2ND TXI SXD TIX.                   F2512730
       TRA RTX160                                                       F2512740
RTX154 TSX BCDE,4            E IS VARIABLE.  THIS TAKES                 F2512750
       TSX CILV,4            CARE OF FIRST 3 INSTRUCTIONS.P             F2512760
       TSX CIL23,4           THE REMAINING THREE ARE                    F2512770
       CLA L(TXI)                                                       F2512780
       STO CIL01             NOW COMPILED.                              F2512790
       TSX CIT,4                                                        F2512800
       LXD BLKNUM,4          CHANGE BLKNUM                              F2512810
RTX157 TIX RTX157,4,2        FROM E                                     F2512820
       SXD BLKNUM,4          TO C AND                                   F2512830
       TSX CSXD,4            TSX CSXD.                                  F2512840
       LXD BLKNUM,4                                                     F2512850
       TXI RTX157+5,4,2                                                 F2512860
       SXD BLKNUM,4                                                     F2512870
       LXD TAG2,2            PLACE LOCATION OF SXD                      F2512880
       CLA CIL00             INSTRUCTION IN PROPER DOTAG ENTRY          F2512890
       ANA ADMSK             AND POSITION. (LEFT SUB DO).               F2512900
       ALS 12                                                           F2512910
       ORS DOTAGZ+6,2                                                   F2512920
       TSX CILV,4            GENERATE AND                               F2512930
       TSX CIL23,4                                                      F2512940
       CLA L(TIX)            COMPILE REMAINING INSTRC.                  F2512950
       STO CIL01                                                        F2512960
       TSX CIT,4             PUT INTO BUFFER.                           F2512970
RTX160 LXD DOIND,2           FINDING S.C, WHICH                         F2512980
       CLA DOTAGZ+8,2        HAS AN S THAT IS THE TEST.                 F2512990
       ANA TETMSK                                                       F2513000
       STO ERTX01            TEST NAME.                                 F2513010
       CLA TAG3              COMPARE TAG NAME                           F2513020
       ALS 18                WITH BEST TEST                             F2513030
       ANA DECMSK            OF CURRENT DO.                             F2513040
       SUB ERTX01            IF THIS TAG IS                             F2513050
       TNZ RTX164            BEST TEST,                                 F2513060
       CLA XTG               STORE ITS INDEX                            F2513070
       STO TETTGX            IN TETTGX,                                 F2513080
RTX164 TRA RTX06             GO TO FIND FOR NEXT TAG.                   F2513090
RTX180 CLA INST26            RTX184 LOCATION.                           F2513100
       STA RTX69+1           RESET AT END OF ROUTINE.                   F2513110
       LXA LADMX,4           PREPARE FOR ADTAG TXI.                     F2513120
       TXI RTX180+4,4,4                                                 F2513130
       SXD XTG,4                                                        F2513140
       CLA INST20            ADTGA LOCATION,                            F2513150
       STA TGA8                                                         F2513160
RTX184 TSX ADTGSE,4          SEARCH FOR ADTAG.                          F2513170
       TRA RTX192            END OF TABLE, START TX PHASE.              F2513180
       PXD 0,2               ENTRY FOUND, CONTINUE ADTG CYCLE.          F2513190
       ARS 18                POSIND IN ADDRESS.                         F2513200
       STO POSIND                                                       F2513210
       CLA TAG4              LOOK AT                                    F2513220
       ARS 21                CARRY BITS.                                F2513230
       TXH RTX190,2,2        S1, BLOCK A.                               F2513240
       TXL RTX188,2,1        S3                                         F2513250
       ARS 2                 S2                                         F2513260
RTX188 ANA L(3)                                                         F2513270
       TNZ RTX184            CARRY T1 OR T2 BLOCK F.                    F2513280
RTX190 CLA N3IND                                                        F2513290
       TZE RTX020            DECREMENT IS CONSTANT.                     F2513300
       TSX CILV,4            DECREMENT IS VARIABLE.                     F2513310
       CLA CIL00             INSTRUCTION IS COMPILED                    F2513320
       ANA ADMSK             AND ENTRY IS MADE                          F2513330
       TSX TGA,4             IN APPENDED DRM TG WORD,                   F2513340
       TSX CIL23,4                                                      F2513350
       CLA L(TXI)            COMPILE                                    F2513360
       STO CIL01             TXI AND PUT                                F2513370
       TSX CIT,4             IN CIB,                                    F2513380
       TRA RTX184            GET NEW ADTAG.                             F2513390
RTX192 CLA INST24            RESET MODIFIED                             F2513400
       STA RTX69+1           ADDRESSES FOR                              F2513410
       CLA INST22            TXI CYCLE.                                 F2513420
       STA TGA8                                                         F2513430
RTX195 LXD TETTGX,1          DETERMINE IF THIS DO HAS A TEST.           F2513440
       TXH RTX197,1,0        THIS DO HAS A TEST.                        F2513450
RTX196 LXD DOIND,2           THIS DO HAS NO TEST.  THIS INFORMATION     F2513460
       CLA DOTAGZ,2          IS ENTERED IN A DRUM TABLE.                F2513470
       ALS 4                 ELIMINATE BITS                             F2513480
       ARS 4                 INSERTED BY DOGS.                          F2513490
       STO SXDTXZ            ENTER                                      F2513500
       WRS 193               DOTAG                                      F2513510
       LDA DRADS3            WORD                                       F2513520
       CPY SXDTXZ            ONE                                        F2513530
       CPY SXDTXZ            INTO                                       F2513540
       CLA DRADS3            DOCAR                                      F2513550
       ADD L(2)              DRUM.                                      F2513560
       STO DRADS3            TABLE.                                     F2513570
       TRA RTX280                                                       F2513580
RTX197 PSE 096               CLEAR SENSE LIGHTS.                        F2513590
       TSX TGFM,4            FILL OUT TAG WORDS.                        F2513600
       TSX ISC,4             FIND DOSUB.                                F2513610
       TSX DIAG,4            SC NOT MODIFIED BY CURRENT DO.             F2313620
       PXD 0,2               FORM                                       F2513630
       ARS 18                POSITION                                   F2513640
       STO POSIND            INDICATOR.                                 F2513650
       TSX CILV,4            OBTAIN LOCATION FOR TEST,                  F2513660
       LXD DOIND,2           ISOLATE                                    F2513670
       TSX NBITS,4           NBITS.                                     F2513680
       STO N1N2N3                                                       F2513690
       CLA DOTAGZ+3,2                                                   F2513700
       ANA 6ONES                                                        F2513710
       TNZ RTX210            N2 IS VARIABLE                             F2513720
       LXA POSIND,1                                                     F2513730
RTX198 TNX RTX200,1,1        IS POSITION S3.                            F2513740
       CLA TAG4              CHECK FOR DORC.                            F2513750
       ANA BITMSK+2,1                                                   F2513760
       STO N1SBX             N1 BIT.                                    F2513770
       TSX N1S02,4                                                      F2513780
       TNZ RTX210            TXL VARIABLE DECREMENT,                    F2513790
RTX200 LXD TAG3,1                                                       F2513800
       TXH RTX201,1,0                                                   F2513810
       TSX ENTR,4            NOT NORMAL TAG, LAY OUT SIMULATED          F2513820
       TRA RTX202            TAU ENTRY INTO WRKSC.                      F2513830
RTX201 CLA TAG3              PREPARE FOR                                F2513840
       ARS 18                SUBCOM ROUTINE.                            F2513850
       TSX SUBCOM,4          LAY OUT TAU ENTRY.                         F2513860
RTX202 LXD DOIND,2           PREPARE FOR AND CALL CXIJ                  F2513870
       LXA POSIND,1          ROUTINE T0 COMPUTE XGN3.                   F2513880
       CLA DOTAGZ+3,2        PTCH06 CALLS TELC ROUTINE                  F2513890
       TSX CXIJ+2,4                                                     F2513900
       TNX RTX204,1,1                                                   F2513910
       TSX TELC+2,4          COMPUTES LOAD VALUE FOR                    F2513920
       CLA ERTX01            DEC, STORES IN ERTX01.                     F2513930
RTX204 STO CIL01             FINAL TXL DECREHENT.                       F2513940
       CAL L(TXL)                                                       F2513950
       ORS CIL01                                                        F2513960
       TSX CILNAM,4          ENTER TAG NAME IN CIL03.                   F2513970
       CLA A                 ALPHA PLUS ONE IS                          F2513980
       ADD L1DEC             ENTERED AS THE SYMBOLIC                    F2513990
       STO CIL02             ADDRESS.                                   F2514000
       TSX CIT,4             ENTER TXL IN BUFFER,                       F2514010
       CLA L(0)              ELIMINATE VARIABLE INDICATOR BIT.          F2514020
       TRA RTX214                                                       F2514030
RTX210 CLA L(TXL)            COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040
       STO CIL01                                                        F2514050
       TSX CILNAM,4          ENTER TAG NAME.                            F2514060
       CLA A                 ALPHA PLUS ONE IS                          F2514070
       ADD L1DEC             ENTERED AS THE                             F2514080
       STO CIL02             SYMBOLIC ADDRESS,                          F2514090
       TSX CIT,4             ENTER COMPILED TXL IN BUFFER.              F2514100
       CLA BIT20             TEST VAR1ABLE INDICATOR.                   F2514110
RTX214 LXD DOIND,2           ENTERONE IN BIT 20 IF                      F2514120
       ORS DOTAGZ+8,2        VARIABLE DECREMENT.                        F2514130
       CLA CIL00             STORE LOCATION                             F2514140
       ALS 24                OF                                         F2514150
       ORS DOTAGZ+6,2        TEST.                                      F2514160
       PSE 097               SET SENSE INDICATOR SO                     F2514170
RTX222 LXD RTXTGX,1          START SCAN FOR TIXING,                     F2514180
       SXD XTG,1                                                        F2514190
RTX226 TSX FIND,4            FIND VALID TAG.  FILL TAG WORDS.           F2514200
       TRA RTX260            END OF DO.                                 F2514210
       SXD XTG,1             PRESERVE X OF TAG UNDER CONDSIDERATION.    F2514220
RTX228 TSX SCLMN1,4          COMPARE LARGEST S INDES                    F2514230
       SUB DOIND             WITH INDEX OF THE DO.                      F2514240
       TZE RTX234            DO IS OUTER, OBTAIN TAG.                   F2514250
       LXD TAG3,2                                                       F2514260
       TXH RTX229,2,0        CURRENT TAG VALID, FILL OUT WRKSC.         F2514270
       CLA TAG3              NEW TAG, DETERMINE                         F2514280
       ARS 11                IF TAU ENTRY                               F2514290
       LBT                   EXISTS.                                    F2514300
       TRA RTX229+5          NO,TSX ENTR.                               F2514310
       CLA TAG3              YES, TSX                                   F2514320
       TRA RTX229+2          SUBCOM.                                    F2514330
RTX229 CLA TAG3              CURRENT TAG                                F2514340
       ARS 18                VALID.                                     F2514350
       ANA 11BITS            FILL OUT                                   F2514360
       TSX SUBCOM,4          WRKSC AND                                  F2514370
       TRA RTX230            CONTINUE.                                  F2514380
       TSX ENTR,4            ARTIFICIAL WRKSC ENTRY,                    F2514390
RTX230 LXA POSIND,4                                                     F2514400
       TIX CLA,4,1           MOVE RIGHT ONE POSITION.                   F2514410
       TRA RTX232            POSITION IS RIGHT, IGNORE CARRY,           F2514420
CLA    CLA TAG4              POSITION IS LEFT OR CENTER,                F2514430
       ARS 1                 OR TYPE 1 AND 2                            F2514440
       ORA TAG4              CARRY BITS FOR LEFT                        F2514450
       TXL ARS,4,1           AND CENTER POSITIONS.                      F2514460
       ARS 23                S2 CARRY BIT IN POSITION 35,               F2514470
       TRA LBT                                                          F2514480
ARS    ARS 21                S3 CARRY BIT IN POSITION 35                F2514490
LBT    LBT                   TEST FOR DOSUB CARRY BIT.                  F2514500
       TRA RTX232            NO CARRY, CONTINUE.                        F2514510
       CLA TETTGX            CARRY, SEE IF THIS                         F2514520
       SUB XTG               TAG IS BEST TEST.                          F2514530
       TNZ RTX254            NO, GET NEXT TAG.                          F2514540
RTX232 CLA L(TIX)            COMPILE TIX INSTRUCTION.                   F2514550
       STO CIL01                                                        F2514560
       CLA N1N2N3            TEST FOR VARIABLE DECREMENT,               F2514570
       TZE RTX238            DECREMENT IS CONSTANT.                     F2514580
       MSE 097               DECREMENT IS VARIABLE8 TURN OFF.           F2514590
       NOP                   LIGHT INDICATION FIRST                     F2514600
       TSX CILV,4            TIX AFTER TXL AND ASSIGN                   F2514610
       TSX CIL23,4           LOCATION.                                  F2514620
       CLA CIL00             WHEN DECREMENT IS VARIABLE, LOCATION       F2514630
       ANA ADMSK             MUST BE STORED IN TGA WORD                 F2514640
       TSX TGAT,4            FOR SXD ADDRESS IS OBJECT TIME.            F2514650
       TRA RTX250            NOW PERFORM COMPILING.                     F2514660
RTX234 CLA L(DED)            COMPILE OP WHICH INDICATES                 F2514670
       STO CIL01             SC IS DEAD.                                F2514680
       TRA RTX242            ASSIGN LOCATION IF NECESSARY.              F2514690
RTX238 LXA POSIND,1          DECREMENT IS CONSTANT.                     F2514700
       LXD DOIND,2           TEST FOR DUPLICATES                        F2514710
       TSX CXIJ,4            AND COMPUTE ACCORDINGLY                    F2514720
       STO ERTX01            XN3G IN ERTX01.                            F2514730
       LDQ TAG4              TEST                                       F2514740
       LLS 27,1              FOR.                                       F2514750
       LBT                   DUPES.                                     F2514760
       TRA RTX240            NO DUPES                                   F2514770
RTX239 TXI RTX239+1,1,1      DUPES EXIST                                F2514780
       LDQ TAG4              TEST DUPE                                  F2514790
       LLS 27,1              BITS OF POSITIONS                          F2514800
       LBT                   TO THE LEFT OF DOSUB                       F2514810
       TRA RTX239            UNTIL THAT POSITION IS                     F2514820
       TSX CXIJ,4            IN XA, THEN CALLCXIJ                       F2514830
       ADD ERTX01            AND COMPUTE AND ADD                        F2514840
       STO ERTX01            DECREMENT ADJUSTMENT                       F2514850
RTX240 CLA ERTX01            PUT COMPUTED DE EREMTN                     F2514860
       STA CIL01             IN CIL01 WORD.                             F2514870
RTX242 MSE 097               A LOC MUST BE ASSIGNED IF                  F2514880
       TRA RTX246                                                       F2514890
       TSX CILV,4            THIS IS FIRST TIX AFTER                    F2514900
       TSX CIL23,4           TEST.                                      F2514910
       TRA RTX250                                                       F2514920
RTX246 TSX CIL023,4                                                     F2514930
RTX250 TSX CIT,4             COMPILE INST.                              F2514940
RTX254 TRA RTX226            RETURN FOR NEXT TG                         F2514950
RTX260 LXA LADMX,4           START DRMTG SEARCH AND                     F2514960
       TXI RTX260+2,4,4                                                 F2514970
       SXD XTG,4             COMPIL1NG                                  F2514980
RTX264 TSX ADTGSE,4          FIND VALID TAG, FILL OUT TAG WDS.          F2514990
       TRA RTX270            END OF TABLE                               F2515000
       PXD 0,2               STORE POSITION                             F2515010
       ARS 18                OF DOSUB                                   F2515020
       STO POSIND            IN POSIND.                                 F2515030
       CLA INST30            MODIFY TGTG                                F2515040
       STA RTX254            TIX COMPIL1NG                              F2515050
       CLA INST20            ROUTINE TO                                 F2515060
       STA TGA8                                                         F2515070
       TRA RTX228            AND EXECUTE.                               F2515080
RTX270 CLA INST32            ADTG PORTION FINISHED.                     F2515090
       STA RTX254            REMODIFY TIX COMPILING                     F2513100
       CLA INST22            ROUTINE FOR TGTGS.                         F2515110
       STA TGA8              END OF BETA CYCLE8 RETURN TO 1 PLUS        F2513120
RTX280 LXD RTX024,4          LOCATION OF THE INSTRUCTION                F2515130
       TRA 1,4               CALLING RTX.                               F2513140
       REM *************************************************************F2515130
       REM CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0MF2515160
       REM PILED BETA STATE INSTRUCTION.                                F2515170
CILV   CLA VCTR              THIS ROUTINE UPDATES                       F2515180
       STO CIL00             VCTR AND                                   F2515190
       ADD L(8)              STORE IT INTO CIL00                        F2515200
       STO VCTR              IT IS CALLED WHEN                          F2515210
       ANA ADMSK             WE NEED A LOCATION                         F2515220
       SUB MAXLOC            FOR A COMPILED                             F2515230
       TZE CILV1             INSTRUCTION.                               F2515240
       TRA 1,4                                                          F2515250
CILV1  TSX DIAG,4            TOO MANY INSTRUCTION NUMBERS.              F2515260
       REM *************************************************************F2515270
       REM N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND.  F2513280
N3BIT  LXD DOIND,2           THIS ROUTIN E ISOLATES                     F2515290
       CLA DOTAGZ,2          THE N3 BIT SO THAT                         F2515300
       ARS 15                IT CAN BE EASILY TESTED.                   F2515310
       ANA L(1)                                                         F2515320
       STO N3IND                                                        F2515330
       TRA 1,4               RETURN                                     F2515340
       REM TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST.  THIS   F2515330
       REM INFORMATION IS RECORDED IN TAG4.                             F2515360
 TETG  CLA TAG3              ISOLATE                                    F2515370
       ANA ADMSK             TAG NAME.                                  F2515380
       STO ER40                                                         F2515390
       CLA TAG4              ISOLATE DUPES INDICATORS                   F2515400
       ARS 9                                                            F2515410
       ANA L(7)              IF THERE ARE DUPES                         F2515420
       STO ER41              THIS INSURES THAT TEST BITS                F2515430
       SUB L(1)              ARE ENTERED ONLY FOR                       F2515440
       ANS ER41              RIGHTMOST DUPE.                            F2515450
       LXA L(3),1                                                       F2515460
       CLA TAG2+3,1          SELECT DOTAG WHICH                         F2515470
       TZE TETG5             CONTR0LS THIS                              F2515480
       PDX 0,2               SUBSCRIPT.                                 F2515400
       CLA DOTAGZ+8,2                                                   F2515S00
       ANA TETMSK            ISOLATE TEST NAME                          F2515510
       ARS 18                OF THIS SUBSCRIPT.                         F2515520
       SUB ER40              DOES TEST NAME EQUAL TAG NAME,             F2515530
       TNZ TETG5             NO, GO TO NEXT SUBSCRIPT.                  F2515540
       LDQ ER41              TEST NAME EQUALS TAG NAHE,                 F2515550
       LLS 36,1              SEE IF THIS SUBSCRIPT                      F2515560
       LBT                   IS A LEFT DUPE.                            F2515570
       TRA TETG3             NOT A LEFT DUPE, ENTER TEST BIT.           F251S580
       TRA TETG5             LEFT DUPE, IGNORE.                         F2515590
TETG3  CLA BIT1              ENTER TEST BIT                             F2515600
       ARS 10,1              FOR THIS                                   F2515610
       ORS TAG4              SUBSCRIPT.                                 F2515620
TETG5  TIX TETG+10,1,1       DEAL WITH NEXT SUBSCRIPT,                  F2515630
       TRA 1,4                                                          F2515640
       REM *************************************************************F2515650
       REM PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTSF2515660
       REM IT IN INDEX REGISTER B.                                      F2515670
PRES   CLA TAG4              FIRST THE TEST                             F2515680
       LRS 26                BITS ARE ISOLATED                   -      F2515690
       ALS 33                AND STORED.                                F2515700
       STO ER40              TEST BITS 1,2.                             F2515710
       LLS 5                 THEN THE GROUP NO.                         F2515720
       ALS 20                IS LEFT                                    F2515730
       ORA TAG4              IN THE MQ WHILE THE                        F2515740
       ARS 21                CARRY BITS ARE ORED                        F2515750
       ANA L(5)              AND STORED.                                F2515760
       STO ER41              CARRY BITS 101.                            F2515770
       LLS 5                 THE GR0UP NO. IS THEN                      F2515780
       ORA POSIND            SHIFTED TO BE COMBINED                     F2515790
       LDQ ER40              WITH THE POS. THE TEST                     F2515800
       LLS 1                 BITS ARE SEPARATED SO THAT                 F2515810
       ALS 1                 THEY CAN OR PROPERLY WITH                  F2515820
       LLS 2                 CARRY BITS LT, LC, CT, CC.                 F2515830
       ORA ER41              THIS RESULTS IN THE MASK                   F2515840
       STO ARG               USED FOR TABLE SEARCH.                     F2515850
       SXD ER40,4                                                       F2515860
       LXA L(1),1            THIS BLOCK REPRESENTS                      F2515870
       TXI PRES10,1,34       SETS OF CALLING SEQUENCES TO               F2515880
PRES10 SXD S3,1              SEARCH ROUTINE. MASK IS                    F2515890
       TXI PRES20,1,10       STORED AND BLOCK TEST                      F2515900
PRES20 CLA SMSK1             INDEX DECREMENT IS STORED.                 F2515910
       STO SMSK              FIRST 11 ENTRIES ARE                       F2515920
       TSX SEARCH,4          SFARCHED. THEN 12,12,4.                    F2515930
       CLA SMSK2             RETURN TO ROUTINE                          F2515940
       STO SMSK              AFTER SEARCHING LAST                       F2515950
       TIX PRES30,1,12       BLOCK INDICATES AN ERROR.                  F2515960
PRES30 SXD S3,1                                                         F2515970
       TXI PRES40,1,12                                                  F2515980
PRES40 TSX SEARCH,4                                                     F2515990
       CLA SMSK4                                                        F2516000
       STO SMSK                                                         F2516010
       TIX PRES50,1,16                                                  F2516020
PRES50 SXD S3,1                                                         F2516030
       TXI PRES60,1,16                                                  F2516040
PRES60 TSX SEARCH,4                                                     F2516050
       CLA SMSK3                                                        F2516060
       STO SMSK                                                         F2516070
       TIX PRES70,1,6                                                   F2516080
PRES70 SXD S3,1                                                         F2516090
       TXI PRES80,1,6                                                   F2516100
PRES80 TSX SEARCH,4                                                     F2516110
ERROR  TSX DIAG,4            ALL SEARCHES FAILED.                       F2516120
       REM *************************************************************F2516130
       REM SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2516140
       REM AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD.  A MATCHINGF2516150
       REM COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2316160
       REM NUMBER.                                                      F2516170
SEARCH CLA RXTA+45,1                                                    F2516180
       ARS 3                 THIS ROUTINE TAKES                         F2516190
       STO WRKRXT            THE ARGUMENT MASK, EDITS                   F2516200
       CLA ARG               IT AND THEN SEARCHES                       F2516210
       ANA SMSK              PRESCR1BED BLOCKS OF                       F2516220
       SUB WRKRXT            THE RX TABLE.                             -F2516230
       TZE S8                SUCCESSFUL SEARCH.                         F2516240
       TIX S3,1,1            INDEX FOR NEXT ENTRY,                      F2516250
S3     TXH SEARCH,1          TEST FOR END OF BLOCK,                     F2516260
       TRA 1,4                                                          F2516270
S8     CLA RXTA+45,1         TABLE ENTRY CONTAINS                       F2516280
       ANA L(7)              BLOCK NOS. 0-5 WHICH                       F2516290
       PAX 0,2               CORRESPOND TO BLOCKS                       F2516300
       LXD ER40,4            A-F.                                       F2516310
       TRA 1,4                                                          F2516320
RXTA   OCT 6600              6L, 760 MASK                               F2516330
       OCT 6400              6C                                         F2516340
       OCT 6200              6R                                         F2516350
       OCT 5600              5L                                         F2516360
       OCT 4600              4L                                         F2516370
       OCT 4200              4R                                         F2516380
       OCT 3600              3L                                         F2516390
       OCT 3400              3C                                         F2516400
       OCT 2400              2C                                         F2516410
       OCT 1600              1L                                         F2516420
       OCT 5501              5C, 774 MASK                               F2516430
       OCT 5400              5C                                         F2516440
       OCT 5302              5R                                         F2516450
       OCT 5200              5R                                         F2516460
       OCT 4541              4C                                         F2516470
       OCT 4501              4C                                         F2516480
       OCT 4445              4C                                         F2516490
       OCT 4400              4C                                         F2516500
       OCT 1541              1C                                         F2516510
       OCT 1501              1C                                         F2516520
       OCT 1445              1C                                         F2516530
       OCT 1400              1C                                         F2516540
       OCT 1215              1R, 773 MASK                               F2516550
       OCT 1200              1R                                         F2516560
       OCT 2723              2L                                         F2516570
       OCT 2733              2L                                         F2516580
       OCT 2623              2L                                         F2516590
       OCT 2633              2L                                         F25166D0
       OCT 3324              3R                                         F2516610
       OCT 3302              3R                                         F2516620
       OCT 3223              3R                                         F2516630
       OCT 3200              3R                                         F2516640
       OCT 1334              1R                                         F2516650
       OCT 1324              1R                                         F2516660
       OCT 1315              1R                                         F2516670
       OCT 1302              1R                                         F2516680
       OCT 1233              1R                                         F2516690
       OCT 1223              1R                                         F2516700
       OCT 2600              2L, 763 MASK                               F2516710
       OCT 2610              2L                                         F2516720
       OCT 2233              2R                                         F2516730
       OCT 2223              2R                                         F2516740
       OCT 2215              2R                                         F2516750
       OCT 2200              2R                                         F2516760
       REM *************************************************************F2516770
       REM CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780
       REM THROUGH A DO LOOP.  THIS IS THE NORHAL TXI DECREMENT.        F2516790
CN3IJ  LDQ DOTAGZ+4,2        COMPUTES DECREMENT AND                     F2516800
       LLS 18                LEAVES IT IN ACCUMULATOR.                  F2516810
       TXH CN3IJ5,1,2        IF POSIND=3, S1 POS.                       F2516820
       MPY WRKSC+6           D1N3 FOR S2 OR S3.                         F2516830
       LRS 18                                                           F2516840
       TXH CN3IJ5,1,1        POSIND=2 S2 POS.                           F2516850
       MPY WRKSC+7           D2D1N3 FOR S3.                             F2516860
       LRS 18                                                           F2516870
CN3IJ5 PXD 0,1               PLACE TWICE                                F2516880
       ALS 1                 POSIND IN                                  F2516890
       PDX 0,1               INDEX REGISTER.                            F2516900
       MPY WRKSC+6,1         CN3D1D2 OR CN3D1 OR CN3.                   F2516910
       ARS 1                                                            F2516920
       TRA 1,4               RESULT IS N3G.                             F2516930
       REM *************************************************************F2516940
       REM CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2516950
       REM FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960
       REM ING INSTRUCTIONS                                             F2516970
CIL023 CLA L(0)              ROUTINE PLACES SPECIAL                     F2516980
       STO CIL00                                                        F2516990
       CLA L1DEC             SYMBOL FOR ADDRESS                         F2517000
       STO CIL03                                                        F2517010
       CLA BCD15             AND INITIALIZES LOC. WORD                  F2517020
       STO CIL02             AND PLACES TAG IN                          F2517030
       CLA TAG3              TAG WD. THIS IS DOEN                       F2517040
       STA CIL03             FOR INST. OF K DECREMENT.                  F2517050
       TRA 1,4                                      ).                  F2517060
       REM *************************************************************F2517070
       REM TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2317080
       REM A GIVEN VARIABLE DECREMENT TXI OR TIX.  FOR REFERENCE BY THE F2517090
       REM ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION          F2517100
       REM INSTRUCTIONS.                                                F2517110
TGA    ALS 18                FOR RX LOC.                                F2517120
TGAT   ARS 3                 FOR TX LOC, DIV VCTOR BY 8.                F2517130
       STO ERTGA                                                        F2517140
       LXA POSIND,1                                                     F2517150
       CLA XTG               CALCULATES X LOC OF TTGA.                  F2517160
       ARS 2                 INDEX QUANTITY FOR TTGA IS                 F2517170
       PDX 0,2               ONE FOURTH THAT FOR TTG.                   F2517180
       CLA ERTGA                                                        F2517190
TGA5   TIX TGA10,1,1         SHIFT LEFT FOR S1 OR S2                    F2517200
TGA8   ORS MXTGA,2           ADDRESS IS ORIGIN PLUS MAX                 F2517210
       TRA 1,4               ADD TG WD. LINKAGE TRANSFER.               F2517220
TGA10  ALS 6                                                            F2517230
       TRA TGA5                                                         F2517240
       REM *************************************************************F23172S0
       REM EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2517260
       REM ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2517270
       REM AND KNOWN.                                                   F2517280
EDCB   SXD EDCB5,4           COMPILES TXI SXD TIX                       F2517290
       CLA L(TXI)            INSTRUCTIONS WHEN                          F2517300
       STO CIL01             DECREMENTS ARE KN0WN,                      F2517310
       CLA ERTX01            ASSUMES DECREMENTS TO                      F2517320
       STA CIL01             BE IN ERTX01 AND                           F2517330
       TSX CIL023,4          ERTX02,                                    F2517340
       TSX CIT,4             COMPILE TXI INSTRUCITON.                   F2517350
       TSX CSXD,4            COMPILE SXD SKELETON.                      F2517360
       CLA CIL00                                                        F2517370
       ANA ADMSK                                                        F2517380
       ALS 12                BELOW, PLACE SXD LOC. INTO                 F2517390
       LXD BLKNUM,4          DOTAG WORD 7. APPROPRIATE                  F2517400
       TXH EDCB10,4,2        BITS DEPEND ON BLOCK NOS.                  F2517410
       LXD TAG2,2            BLOCKS D, E SHIFT LEFT 12.                 F2517420
       TXH EDCB5,4,1         BLOCKS C, B USE S1 DOTAG.                  F2517430
       ALS 6                 BLOCK C, SHIFT LEFT 12.                    F2517440
EDCB5  TXL EDCB20,0          BLOCK B, SHIGT LEFT 18.                    F2517450
EDCB10 LXD TAG2+1,2          BLOCK D,E      USE S2 DOTAG.               F2517460
EDCB20 ORS DOTAGZ+6,2        PLACE LOC. INTO WD 7.                      F2517470
       CLA L(TIX)            COMPILE                                    F2517480
       STO CIL01             TIX.                                       F2517490
       CLA ERTX02            COMPILE                                    F2517500
       STA CIL01             TIX DECREMENT,                             F2517510
       TSX CIL023,4                                                     F2517520
       TSX CIT,4                                                        F2517530
       LXD EDCB5,4                                                      F2517540
       TRA 1,4                                                          F2517550
       REM *************************************************************F2517560
       REM BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2517570
       REM ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2517580
BCDE   SXD BCDE2,4                                                      F2517590
       TSX CILV,4            OBTAIN LOC. FOR FIRST INST.                F2517600
       CLA CIL00             MAKE LOCATION ENTRY INTO                   F2517610
       ANA ADMSK             APPENDED TAG WORD.                         F2517620
       TSX TGA,4                                                        F2517630
       CLA L(TXI)            PLACE OPERATION IN                         F2517640
       STO CIL01             COMPILED INSTRUCTIN,                       F2517650
       TSX CIL23,4           FILL OUT REMAINING WORDS.                  F2517660
       TSX CIT,4                                                        F2517670
       TSX CSXD,4                                                       F2517680
       LXD BLKNUM,2                                                     F2517690
       TXL BCDE5,2,2         TEST FOR BLOCKS B OR C.                    F2517700
       CLA CIL00             BLOCK D OR E.                              F2517710
       LXD TAG2+1,1          PLACE LOC. OF SXD INST.                    F2517720
       ANA ADMSK             INTO DOTAG ENTRY FOR                       F2517730
       ALS 12                CENTER SUBSCRIPT.                          F2517740
       ORS DOTAGZ+6,1                                                   F2517750
BCDE2  TXL BCDE9,0           BLOCKS D,E CONTINUE.                       F2517760
BCDE5  CLA CIL00             BLOCK B OR C .                             F2517770
       LXD TAG2,1            PLACE LOC. FOR SXD OF                      F2517780
       ANA ADMSK             REMAINING TWO BLOCKS.                      F2517790
       ALS 12                DISTINGUISH BETWEEN BLOCK B, C.            F2517800
       TXH BCDE8,2,1                                                    F2517810
       ALS 6                                                            F2517820
BCDE8  ORS DOTAGZ+6,1                                                   F2517830
BCDE9  PXD 0,2               BLOCK NUMBER MUST BE                       F2517840
       ALS 14                STORED IN PROPER POS.                      F2517850
       LXA POSIND,1          OF TAG 4 WORD.                             F2517860
       TXL BCDE10-1,1,1                                                 F2517870
       TXL BCDE10,1,2        IF POSITION IS LEFT,                       F2517880
       CAL BIT8              PLACE A ONE IN BIT 7 OF TAG4               F2517890
       TRA BCDE10            TO INDICATE BLOCK D SPECIAL.               F2517900
       ARS 3                                                            F2517910
BCDE10 LXD XTG,2                                                        F2517920
       ORS MXTGTG+3,2                                                   F2517930
       TSX CILV,4            OBTAIN LOC. FOR THIRD                      F2517940
       CLA L(TIX)            INST. AND OPERATION PART                   F2517950
       STO CIL01             FOR 2ND WORD.                              F2517960
       TSX CIL23,4           FILL OUT REMAINING WORDS.                  F2517970
       TSX CIT,4                                                        F2517980
       LXD BCDE2,4                                                      F2517990
       TRA 1,4                                                          F2518000
       REM *************************************************************F2518010
       REM NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2518020
NBITS  CLA DOTAGZ,2          ROUTINE FOR ISOLATING                      F2518030
       ARS 15                THE N BITS OF A DO.                        F2518040
       ANA L(7)                                                         F2518050
       STO N1N2N3                                                       F2518060
       TRA 1,4                                                          F2518070
       REM *************************************************************F2518080
       REM CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2518090
       REM INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2518100
       REM TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE.          F2518110
CIL23  CLA CIL00             THIS ROUTINE PLACES TAG IN                 F2518120
       STO CIL02             TAG WD. OF CIL03 AN0 1                     F2518130
       CLA TAG3              IN DECREMENT FOR THE                       F2518140
       ANA ADMSK             RELATIVE PART,                             F2518150
       ORA L1DEC             PLACES THE LOCATION IN                     F2518160
       STO CIL03             THE ADDRESS WORD CIL02 .                   F2518170
       TRA 1,4                                                          F2518180
       REM *************************************************************F2518190
       REM CILNAM ENTERS ONLY THE TAG NAME.                             F2518200
CILNAM CLA TAG3              THIS ROUTINE                               F2518210
       ANA ADMSK             ENTERS THE                                 F2518220
       STO CIL03             TAG NAME                                   F2518230
       TRA 1,4               IN CIL.                                    F2518240
       REM *************************************************************F2518250
       REM                                                              F2518260
       REM                                                              F2518270
       REM    MASTER RECORD CARD = FN049                                F2518275
       REM BEGIN ALPHA STATE                                            F2518280
       REM THE ALPHA STATE, AC, IS CALLED BY MAN T0 COMPILE ALL INITIALIF2518290
       REM ZATION  AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2518300
       REM CONSIDERATION.                                               F2518310
       ORG RTX                                                          F2518320
AC     SXD AC248,4           STORE LINKAGE                              F2518330
       STO VCTR              DOTAG ALPHA IS LOCATION.                   F2518340
       CLA DOTAGZ+6,2        PLACE                                      F2518350
       ARS 27      .-        SXD LOCATION                               F2518360
       ANA 6ONESR            IN                                         F2518370
       ALS 3                 CIL00 AND                                  F2518380
       ADD B                 TXL LOCATION                               F2518390
       STO CIL00             IN                                         F2518400
       CLA DOTAGZ,2          ERTX01 FOR                                 F2518410
       ANA N0PRET                                                       F2518420
       STO SXDTXZ                                                       F2518430
       WRS 193               OF SXDTX TABLE                             F2518440
       CAL SXDTXZ            MAKE                                       F2518450
       ACL CIL00             SXDTX                                      F2518460
       SLW ERTX01            TABLE                                      F2518470
       LDA DRADS2            ENTRY                                      F2518480
       CPY SXDTXZ            ON                                         F2518490
       CPY CIL00             DRUM 1.                                    F2518500
       CPY ERTX01                                                       F2518510
       CLA DRADS2            RESET DRUM                                 F2518520
       ADD L(3)              ADDRESS FOR                                F2518530
       STO DRADS2            NEXT ENTRY.                                F2518540
AC05   CLA ALLONE            INITIALIZE CIL WORDS                       F2518550
       STO CIL00             TO ALL ONES AND                            F2518560
       STO CIL01             PUT                                        F2518570
       STO CIL02             INTO CIT                                   F2518580
       STO CIL03             AS FIRST ALPHA STAGE                       F2518590
       TSX CITSP,4           ENTRY.                                     F2518600
       TSX SCAN,4            SCAN AND FIND PICK                         F2518610
       SXD RTXTGX,1                                                     F2518620
       SXD XTG,1             BY A DO WITHIN ALPHA                       F2518630
AC010  TSX FIND,4            AND BETA.                                  F2518640
       TRA AC240+1           END OF DO FOR DOTAG.                       F2518650
       SXD XTG,1             STORE TGTG INDEX IN XTG.                   F2518660
AC014  TSX SCLMN1,4          OBTAIN X FOR MINLEV OF S.C                 F2518670
       LXD XTG,1             SET UP FOR FIND ROUTINE.                   F2518680
       SUB DOIND             TEST TO SEE IF THIS IS                     F2518690
AC016  TNZ AC010             THE OUTERMOST DO.                          F2518700
       LXD TAG3,1            IF IT IS PROCEED TO                        F2518710
       TXH AC018,1,0         COMPILE PROPER INST.                       F2518720
       CLA TAG3    -         NO CURRENT TG, USE NEW TG.                 F2518730
       ARS 11                CHECK RESET TAG BIT                        F2518740
       LBT                   OR INSERTED COUNTER.                       F2518750
       TRA AC016I            RESET TYPE ENTRY, USE NEW TAG              F2518760
       TSX ENTR,4            CTR. TYPE ENTRY, SIMULATE                  F2518770
       TRA AC020             WRKSC AND CONTINUE                         F2518780
AC016I CLA TAG3              RESET TYPE ENTRY                           F2518790
       ANA 11BITS            LAY OUT TAU ENTRIES                        F2518800
       TSX SUBCOM,4                                                     F2518810
       TRA AC021             DECRENENT AND CONTINUE                     F2518820
AC018  CLA TAG3              CURRENT TAG VALID, LAY                     F2518830
       ARS 18                OUT TAU DNTRIES INTO                       F2518840
AC019  TSX SUBCOM,4          WRKSC AND CONTINUE                         F2518850
AC020  TSX N1STET,4                                                     F2518860
       CLA N1SBX             VALUE IS CONSTANT                          F2518870
       TNZ AC030             VARIABLE, TRA AC030.                       F2518880
       TSX TELC,4            COMPUTE LOAD                               F2518890
       CLA ERTX01            VALUE                                      F2518900
       ALS 18                AND PLACE                                  F2518910
       ADD L1DEC             IN                                         F2518920
       TSX FIXCON,4          FIXCON.                                    F2518930
       STO CIL02             FIXCON LOCATION SYMBOL.                    F2518940
       TRA AC022             CONTINUE.                                  F2518950
AC021  CLA BCD0                                                         F2518960
       STO CIL02             LXD ADDRESS T0 BCD ZERO.                   F2518970
AC022  CLA L(LXD)                                                       F2518980
       STO CIL01             LXD                                        F2518990
       TSX CIL03I,4          FILL OUT LOCATION AND TG WORDS.            F2519000
       CLA CIL02             PLACE LXD ADDRESS                          F2519010
       STO OR000+27          IN OR0 TABLE.                              F2519020
       PAX 0,4               RELATIVE PART OF FIXCON NAME               F2519030
       ANA 6ONES                                                        F2519040
       STO CIL02             ADDRESS.                                   F2519050
       SXD CIL03,4           RELATIVE ADDRESS.                          F2519060
       CLA LOCIND            TEST LOCATION INDICATOR.                   F2519070
       TZE AC024                                                        F2519080
       SUB L(1)                                                         F2519090
       STO LOCIND            A LOCATION MUST BE                         F2519100
       CLA A                 ASSIGNED FOR 1ST LXD                       F2519110
       STO CIL00             COMPILED FOR AN ALPHA.                     F2519120
AC024  TSX CIT,4             PUT IN DOFILE.                             F2519130
       NOP                                                              F2519140
AC030  CLA TAG4              VARIABLE CASE, THE BITS FOR                F2519150
       ARS 3                 DEFINING A SUB BY A DO OR                  F2519160
       ANA L(7)              A RELCON OR BOTH ARE                       F2519170
       STO RELC0             ISOLATED IN 3 SEPARATE                     F2519180
       CLA TAG4              WORDS, DEFDQ, RELCO, AND                   F2519190
       ANA L(7)              ORDEDO.                                    F2519200
       STO DEFDO                                                        F2519210
       ORA RELC0                                                        F2519220
       STO OREDO                                                        F2519230
       CLA N1SBX             IF CONSTANT LOAD,                          F2519240
       TZE AC100+2           TRA AC100+2.                               F2519250
       CLA L(2)              1F VARIABLE LOAD, FILL                     F2519260
       TSX BITP,4            OR0 TABLE.                                 F2519270
       TRA AC040             S1 NOT DEFINED.                            F2519280
       STO OR000+1           S1 DEFINED. STO SYMBOL IN OR0+1.           F2519290
AC040  CLA L(1)              REPEAT FOR                                 F2519300
       TSX BITP,4            S2.                                        F2519310
       TRA AC046             S2 NOT DEFINED.                            F2519320
       STO OR000+4           S2 DEFINED. PUT SUBSCRIPT                  F2519330
       CLA WRKSC+6           SYMBOL IN OR0+4 AND                        F2519340
       TSX FIXCON,4          D1 SYMBOL                                  F2519350
       STO OR000+7           IN OR0+7.                                  F2519360
AC046  CLA L(0)              REPEAT FOR                                 F2519370
       TSX BITP,4                                                       F2519380
       TRA AC048             S3 NOT DEFINED.                            F2519390
       STO OR000+21          S3 DEFINED. PUT SUBSCRIPT                  F2519400
       LDQ WRKSC+6           SYMBOL IN OR0+21                           F2519410
       MPY WRKSC+7           AND                                        F2519420
       ALS 17                PUT                                        F2519430
       TSX FIXCON,4          D1D2 IN                                    F2519440
       STO OR000+24          OR0+24.                                    F2519450
       CLA WRKSC+6                                                      F2519460
       TSX FIXCON,4          OBTAIN SYMBOL FOR D1                       F2519470
       STO OR000+7           AND STORE IN OR0+7,                        F2519480
       PSE 96                TURN OFF SENSE LIGHTS.                     F2519490
AC048  TSX COSE,4            TEST COEFFS GREATER THAN 1.                F2519500
       CLA 0PMSK                                                        F2519510
       ANA TAG4              COEFS, 011 RELCONS, 100 CUPE.              F2519520
       TNZ AC049             SOME OF ABOVE EXIST.                       F2519530
       LXD TAG21,1           NONE OF ABOVE EXIST,                       F2519540
       TXL AC048+7,1,0       IF S2 DEF BY DO,                           F2519550
       CAL DOTAGZ+2,1        ISOLATE N1.                                F2519560
       LXD TAG22,1           IF S3 DEF BY DO,                           F2519570
       TXL AC048+10,1,0      OR N1S OF S2 AND S3.                       F2519580
       ORA DOTAGZ+2,1        IF EITHER N1 IS GREATER                    F2519590
       SUB L(1)              THAN 1, RETURN.                            F2519600
       TZE AC048I            IS S1 IS                                   F2519610
       TPL AC049             DEFINED BY A DO,                           F2519620
AC048I LXD TAG2,1            IS/LATE N1.                                F2519630
       TXL AC048I+4,1,0      IF NOT ISOLATE                             F2519640
       CLA DOTAGZ+2,1        S1 (BCD).                                  F2519650
       TRA AC048I+5                                                     F2519660
       CLA WRKSC+1                                                      F2519670
       STO CIL02             STO S1 OR N1 SYMBOl.                       F2519680
       TSX CIL03I,4          FILL OUT                                   F2519690
       CLA L(LXD)            COMPILED INSTRUCTION                       F2519700
       STO CIL01             WORDS AND CONTINUE                         F2519710
       TRA AC100-1           T0 INIT PORTION,                           F2519720
AC049  LXA L(2),1                                                       F2519730
       CLA OREDO             IS LEFT SUB A RELCON,                      F2519740
       ANA L(4)              DORC, OR DOSUB.                            F2519750
       TZE AC049A            NO, COMPILE CLA, SUB.                      F2519760
       LXD TAG2,2            YES, IS IT A DOSUB.                        F2519770
       TXL AC049B,2,0        NO.                                        F2519780
       CLA DOTAGZ+2,2        YES, IS N1(S1)=1.                          F2519790
       SUB L(1)                                                         F2519800
       TNZ AC049B            NO.                                        F2519810
AC049A CLA KLX01                                                        F2519820
       TSX LXC,4             COMPILE CLA, SUB.                          F2519830
AC049B CLA OREDO                                                        F2519840
       ARS 2                 DEFINITION.                                F2519850
       LBT                   OF S1.                                     F2519860
       TRA AC064             S1 IS NOT DEF., TAKE S2.                   F2519870
       LXA L(3),1            S1 DEFINED, GO TO                          F2519880
       TSX 0P2,4             OPTIMIZING ROUTINE.                        F2519890
       LXA L(2),1            AT LEAST 4 COMP INST.                      F2519900
       MSE 97                TEST ON COEF                               F2519910
       TRA AC050             GREATER THAN 1,                            F2519920
       TXI AC050I,1,2                                                   F2519930
AC050  CLA KLX02             L(LXI02)                                   F2519940
       TRA AC050I+1                                                     F2519950
AC050I CLA KLX02I            L(LXI03)                                   F2519960
       TSX LXC,4             COMPILER.                                  F2519970
AC064  CLA OREDO                                                        F2519980
       ARS 1                 S2                                         F2519990
       LBT                   DEFINED.                                   F2520000
       TRA AC080             S2 NOT DEFINED. S3.                        F2520010
       LXA L(2),1            CALL OP2 ROUTINE                           F2520020
       TSX 0P2,4             TO OPTIMIZE.                               F2520030
       LXA L(6),1            COUNTER FOR COMPILING                      F2520040
       MSE 98                IS COEF GREATER THAN 1,                    F2520050
       TRA AC068             NO                                         F2520060
       CLA KLX03             YES.                                       F2520070
       TXI AC068+1,1,2       INCREMENT COMPILING COUNTER.               F2520080
AC068  CLA KLX03I                                                       F2520090
       TSX LXC,4             COMPILE S2 LOAD VALUE.                     F2520100
AC080  CLA OREDO                                                        F2520110
       LBT                                                              F2520120
       TRA AC096             S3 NOT DEFINED, EXIT.                      F2520130
       LXA L(1),1            CALL OP2 ROUTINE                           F2520140
       TSX 0P2,4             FOR OPTIMIZATION                           F2520150
       LXA L(6),1            COMPILING COUNTER.                         F2520160
       MSE 99                TEST FOR COEF GREATER THAN 1.              F2520170
       TRA AC084             NONE.                                      F2520180
       CLA KLX05             C3 GREATER THAN 1, COMPILE                 F2520190
       TXI AC084+1,1,2       KLX05 BLOCK.                               F2520200
AC084  CLA KLX05I            C3=1, COMPILE KLX05I                       F2520210
       TSX LXC,4             BLOCK.                                     F2520220
AC096  TSX CIL03I,4          COMPILE                                    F2520230
       CLA L(LXD)            LXD.                                       F2520240
       STO CIL01                                                        F2520250
       CLA OR000+26          ERASABLE OBJECT TIME SYMBOl.               F2520260
       PAX 0,1                                                          F2520270
       ANA 6ONES                                                        F2520280
       SXD CIL03,1                                                      F2520290
       STO CIL02                                                        F2520300
       TSX CIT,4             PUT IN BUFFER.                             F2520310
AC100  CLA OR000+26                                                     F2520320
       STO OR000+27                                                     F2520330
       LXA L(3),1            PREPARE TO                                 F2520340
AC109  SXD AX,1              CHECK FOR                                  F2520350
       CLA TAG2+3,1          DUPES.                                     F2520360
       PDX 0,2               SAVE INDEX OF S.                           F2520370
       TXL AC160,2,0         POS. NOT M0D. BY DO.                       F2520380
AC110  TNX AC116,1,1                                                    F2520390
       CAS TAG2+3,1          SKIP DUPES                                 F2520400
       TRA AC110             EXCEPT                                     F2520410
       TRA AC160             RIGHTMOST.                                 F2520420
       TRA AC110                                                        F2520430
AC116  CLA DOTAGZ+8,2        ISOLATE                                    F2520440
       ANA 6T017             NAME OF TEST                               F2520450
       STO TETTG             FOR THIS DO                                F2520460
       CLA TAG3              AND                                        F2520470
       ANA 24T035            COMPARE                                    F2520480
       ALS 18                WITH                                       F2520490
       CAS TETTG             CURRENT TAG.                               F2520500
       TRA AC160             NOT A TEST TAG.                            F2520510
       TRA AC120             THIS IS A TEST TAG.                        F2520520
       TRA AC160             NOT A TEST TAG.                            F2520530
AC120  CLA DOTAGZ+3,2        THIS IS TEST TAG,                          F2520540
       ANA 6ONES             18 N2 CONSTANT.                            F2520550
       TNZ AC128                                                        F2520560
       CLA DOTAGZ+8,2        IF RIGHT TEST HAS VARIABLE DECREMENT       F2520570
       ANA BIT20             GO TO AC138 +4                             F2520580
       TZE AC138             INSTEAD OF                                 F2520590
       TRA AC138+4                                                      F2520600
AC128  CLA DOTAGZ+3,2                                                   F2520610
       STO CIL02             PUT N2 WORD AS                             F2520620
       CLA L(0)              SYMBOLIC ADDRESS AND                       F2520630
       STO CIL03             ZERO AS THE                                F2520640
       TRA AC140             RELATIVE ADDRESS.                          F2520650
AC138  LDQ DOTAGZ+6,2        CONSTANT N2 CASE.                          F2520660
       RQL 9                 IS TEST                                    F2520670
       LGL 12                MODIFIED.                                  F2520680
       TZE AC160             NO, TAKE NEXT SUB.                         F2520690
       CLA DOTAGZ+3,2        YES, ISOLATE N2.                           F2520700
       LXD AX,1                                                         F2520710
       TSX CXIJ+2,4          IF POSITION IS                             F2520720
       TNX AC139,1,1                                                    F2520730
       STO ESTORE                                                       F2520740
       CLA DOTAGZ+8,2        DOES TEST                                  F2520750
       ANA BIT20             HAVE VARIABLE DECREMENT.                   F2520760
       TNZ AC139-1                                                      F2520770
       CLA ESTORE                                                       F2520780
       TSX TELC+2,4                                                     F2520790
       TRA AC139                                                        F2520800
       CLA ESTORE                                                       F2520810
AC139  ALS 18                                                           F2520820
       TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2520830
       PAX 0,1               LOAD PORTION                               F2520840
       ANA 6ONES             AND COMPILE                                F2520850
       STO CIL02             CLAL(GN2 + LOAD PORT.)                     F2520860
       CLA L(0)                                                         F2520870
       STO CIL03                                                        F2520880
       SXD CIL03,1                                                      F2520890
       TRA AC144                                                        F2520900
AC140  CLA L(1)                                                         F2520910
       LXD AX,1              COMPUTE G AND DETERMINE                    F2520920
       TSX CXIJ+2,4          IF GREATER THAN ONE,                       F2520930
       SUB L(1)                                                         F2520940
       TNZ AC146                                                        F2520950
AC144  CLA L(CLA)            G = 1,                                     F2520960
       STO CIL01             COMPILE                                    F2520970
       CLA L(0)              CLA N2, FOLLOWED                           F2520980
       STO CIL00             LATER BY STD.                              F2520990
       TSX CIT,4                                                        F2521000
       TRA AC150                                                        F2521010
AC146  ADD L(1)              G GREATER THAN 1,                          F2521020
       ALS 18                COMPILE                                    F2521030
       TSX FIXCON,4          LDQ, MPY, ALS.                             F2521040
       STO OR000+9                                                      F2521050
       CLA CIL02                                                        F2521060
       STO OR000+1                                                      F2521070
       CLA KLX02I                                                       F2521080
       LXA L(3),1                                                       F2521090
       TSX LXC,4                                                        F2521100
AC150  LXD AX,1                                                         F2521110
       CLA TAG3,1                                                       F2521120
       PDX 0,2                                                          F2521130
       CLA DOTAGZ+8,2                                                   F2521140
       ANA BIT20                                                        F2521150
       LXD AX,2                                                         F2521160
       TZE AC157                                                        F2521170
       TNX AC157,2,1                                                    F2521180
       LXA L(1),1                                                       F2521190
       CLA KLX01I                                                       F2521200
       TSX LXC,4                                                        F2521210
       CLA INST13                                                       F2521220
       STO AC096                                                        F2521230
       TSX COSE,4                                                       F2521240
       LXD AX,2                                                         F2521250
       TXL AC080,2,2                                                    F2521260
       TRA AC064                                                        F2521270
AC155  CLA INST14                                                       F2521280
       STO AC096                                                        F2521290
       LXD AX,2                                                         F2521300
       LXD BB0X,4                                                       F2521310
       TXI AC155+5,4,4                                                  F2521320
       SXD BB0X,4                                                       F2521330
AC157  TSX TESTL0,4                                                     F2521340
       CLA TETLOC            IN TETL0.                                  F2521350
       STO CIL02             COMPILE                                    F2521360
       CLA L(STD)            STD TETL0                                  F2521370
       STO CIL01             AND RETURN TO                              F2521380
       SXD CIL00             AC160 TO                                   F2521390
       SXD CIL03             CONSIDER NEXT                              F2521400
       TSX CIT,4             SUB OF TAG.                                F2521410
AC160  LXD AX,1                                                         F2521420
       TIX AC109,1,1         REDUCE POS. CTR.                           F2521430
       CLA TAG4              CHECK SUSBIT                               F2521440
       TPL AC165             FOR FORVAR.                                F2521450
       LXD DOIND,2           FORVAR, IS IT                              F2521460
       CLA DOTAGZ+5,2        WITHIN THE CURRENT DO.                     F2521470
       ANA BIT1                                                         F2521480
       TZE AC165             NO, AC165.                                 F2521490
       CLA L(0)              YES,                                       F2521500
       STO CIL02             COMPILE                                    F2521510
       TSX CIL03I,4          INSTRUCTIONS                               F2521520
       CLA L(PXD)            TO                                         F2521530
       STO CIL01             STORE                                      F2521540
       TSX CIT,4             THE                                        F2521550
       CLA DOTAGZ+1,2        VALUE                                      F2521560
       STO CIL02             OF                                         F2521570
       CLA L(STO)            THE                                        F2521580
       STO CIL01             SUBSCRIPT                                  F2521590
       PXD 0,0               INTO                                       F2521600
       STO CIL03             ITS                                        F2521610
       TSX CIT,4             SYMBOL.                                    F2521620
AC165  CLA XTG               START SCANNING                             F2521630
       ARS 2                 TGA FOR LOCATIONS                          F2521640
       PDX 0,1               INDICATING VARIABLE                        F2521650
       CAL MXTGA,1           DECREMENTS OF TXI                          F2521660
       SLW WRKTGA            AND TIX INSTRUCTIONS-                      F2521670
       TZE AC240             NONE, AC240.                               F2521680
       LXA L(3),1            YES, ISOLATE                               F2521690
AC166  SXD AX,1              APP. TGTG AND                              F2521700
       CAL WRKTGA            CHECK FOR                                  F2521710
       ARS 18                LOCATIONS                                  F2521720
AC168  TNX AC170,1,1         OF TXI                                     F2521730
       ARS 6                 INSTRUCTIONS                               F2521740
       TRA AC168             WITH VARIABLE                              F2521750
AC170  ANA 6ONESR            DECREMENTS.                                F2521760
       TZE AC190             NONE, AC190.                               F2521770
       ALS 3                 STORE                                      F2521780
       STO TETLOC            LOC. OF TXI.                               F2521790
       LXA L(0),4                                                       F2521800
       LXD AX,1              IS                                         F2521810
       CLA TAG4              POSITION                                   F2521820
       TXL AC173,1,2                                                    F2521830
       ANA BIT8              POSITION IS S1, IS                         F2521840
AC171  TNZ AC172             THIS BLOCK D SPECIAL.                      F2521850
       CLA TAG4              NO, BLOCK A.                               F2521860
       TRA AC176             TSX AOR0                                   F2521870
AC172  LDQ WRKSC+2           TES, SET UP                                F2521880
       MPY WRKSC+6           CID1 AS G                                  F2521890
       ALS 17                FOR XX POSITION.                           F2521900
       STO OR000+20          C1 IS G FOR                                F2521910
       CLA WRKSC             N3X POSITION.                              F2521920
       STO OR000+19          PREPARE TO                                 F2521930
       LXA L(3),1            CALL PC ROUTINE                            F2521940
       SXD N3X,1             TO COMPILE                                 F2521950
       LXA L(2),1            INITIALIZATION                             F2521960
       SXD XX,1              INSTRUCTIONS                               F2521970
       TSX PC,4              FOR BLOCK D SPECIAL.                       F2521980
       TRA AC190                                                        F2521990
AC173  TXL AC174,1,1         IS POSITION S3)                            F2522000
       ARS 3                 ISOLATE BLKNUM                             F2522010
AC174  ARS 29                FROM TAG4 AND                              F2522020
       ANA L(7)              CALLPROPER ROUTINE                         F2522030
       PAX 0,4               TO COMPILE INITIALIZATION                  F2522040
AC176  TXH AC176+3,4,0       INSTRUCTIONS FOR THAT BLOCK.               F2522050
       TSX AOR0,4            BLOCK A                                    F2522060
       TRA AC190                                                        F2522070
       TXH AC178,4,1                                                    F2522080
       TSX BOR0,4            BLOCK B                                    F2522090
       TRA AC190                                                        F2522100
AC178  TXH AC182,4,2                                                    F2522110
       TSX COR0,4            BLOCK C                                    F2522120
       TRA AC190                                                        F2522130
AC182  TXH AC186,4,3                                                    F2522140
       TSX DORO,4            BLOCK D.                                   F2522150
       TRA AC190                                                        F2522160
AC186  TSX EOR0,4            BLOCK E.                                   F2522170
       TRA AC190                                                        F2522180
AC190  LXD AX,1              IF ALL SUBS HAVE NOT BEEN                  F2522190
       TIX AC166,1,1         CONSIDERED FOR TXIS, TAKE NEXT RT.         F2522200
       LXA L(3),1            THIS REPRESENTS END OF                     F2522210
AC200  SXD AX,1              TXI PHASE, START TIX.                      F2522220
       CLA WRKTGA            ISOLATE APP. TGTG ENTRY.                   F2522230
AC210  TNX AC214+1,1,1                                                  F2522240
       ARS 6                                                            F2522250
AC214  TRA AC210                                                        F2522260
       ANA 6ONESR                                                       F2522270
       TZE AC236             IS THERE A TIX VAR. DEC. LOC.              F2522280
       ALS 3                 YES, STORE TIX REL, LOC.                   F2522290
       STO TETLOC            IN TETLOC WORD.                            F2522300
       LXD AX,1                                                         F2522310
       CLA TAG2+3,1          ISOLATE                                    F2522320
       PDX 0,2               N3 FOR                                     F2522330
ACI21  CLA DOTAGZ+4,2        THIS DO.                                   F2522340
       SUB L(1)              DOES N3 = 1.                               F2522350
       TZE AC220+2                                                      F2522360
       TSX XOR0,4            NO, PLACE N SYMBOlS                        F2522370
       LXA L(6),1            IN APPROP. OR0 LOCS                        F2522380
       LXD AX,2              AND COMPUTE                                F2522390
AC220  CLA KTX00+3,2         X QUANTITY                                 F2522400
       TSX LXC,4             ON O.C. LEVEL.                             F2522410
       LXD AX,1                                                         F2522420
       CLA INST4             TRA AC224. MODIFY ADR0                     F2522430
       STO AOR030            ROUTINE T0 COMPUTE G.                      F2522440
       CLA INST5             TRAAC228.                                  F2522450
       STO AOR040                                                       F2522460
       TSX AOR0,4            COMPUTE G, PUT IN OR0+19.                  F2522470
AC224  TRA AC230             G1 = 1.                                    F2522480
AC228  LXD AX,1              G1 NOT = 1,                                F2522490
       CLA TAG2+3,1          COMPILE INSTRUCTIONS                       F2522500
       PDX 0,2               TO COMPUTE AND INIT1ALIZE                  F2522510
       CLA DOTAGZ+4,2        TIX DECREMENT.                             F2522520
       SUB L(1)                                                         F2522530
       TNZ AC228I            N3 NOT = 1.                                F2522540
       CLA DOTAGZ+2,2        N3 = 1, DOES                               F2522550
       SUB L(1)              N1 = 1.                                    F2522560
       TNZ ACI22             N1 NOT = 1.                                F2522570
       CLA DOTAGZ+3,2        N3, N1=1.                                  F2522580
       STO OR000             G GREATER THAN 1,                          F2522590
       CLA K1AOR0                                                       F2522600
       LXA L(4),1                                                       F2522610
       TSX LXC,4                                                        F2522620
       TRA AC234             EXIT TIX INITIAL1ZATION.                   F2522630
ACI22  TSX OP3,4            N3= 1, N1 NOT = 1,                          F2522640
       CLA L(ADD)            COMPILE                                    F2522650
       STO CIL01             TIX                                        F2522660
       CLA OR000+13          INITIALIZATION                             F2522670
       PAX 0,1               GROUP                                      F2522680
       ANA 6ONES             FOR                                        F2522690
       STO CIL02             THIS                                       F2522700
       SXD CIL03,1           CASE.                                      F2522710
       TSX CIT,4                                                        F2522720
       CLA L(STO)                                                       F2522730
       STO CIL01                                                        F2522740
       CLA L(0)                                                         F2522750
       STO CIL03                                                        F2522760
       CLA OR000+26          ERASEABLE STORAGE                          F2522770
       PAX 0,4               SYMBOL FOR ADDRESS.                        F2522780
       ANA 6ONES                                                        F2522790
       STO CIL02                                                        F2522800
       SXD CIL03,4                                                      F2522810
       TSX CIT,4                                                        F2522820
       CLA OR000+26          PLACE ERASEABLE SYMBOl                     F2522830
       STO OR000             IN OR000 FOR LXC BLOCK.                    F2522840
       LXA L(4),1                                                       F2522850
       CLA K1AOR0                                                       F2522860
       TSX LXC,4                                                        F2522870
       TRA AC234             EXIT TIX INITIALIZATION,                   F2522880
AC228I LXA L(4),1                                                       F2522890
       CLA LTX040            COMPILE TIX INITIAL1ZATION                 F2522900
       TSX LXC,4             GROUP FOR THIS CASE.                       F2522910
       TRA AC234             EXIT TIX INITIALIZATION.                   F2522920
AC230  LXD AX,1              G=1,                                       F2522930
       CLA TAG2+3,1          DOES                                       F2522940
       PDX 0,2               N3 = 1.                                    F2522950
       CLA DOTAGZ+4,2                                                   F2522960
       SUB L(1)                                                         F2522970
       TNZ AC230I            NO.                                        F2522980
       CLA DOTAGZ+2,2        YES, DOES N1= 1.                           F2522990
       SUB L(1)                                                         F252300D
       TNZ ACI23             NO.                                        F2523010
       CLA DOTAGZ+3,2        G,N3,N1 = 1,                               F2523020
       STO OR000             COMPILE TIX                                F2523030
       CLA K2AOR0            INITIALIZATION                             F2523040
       LXA L(2),1            FOR THIS                                   F2523050
       TSX LXC,4             CASE.                                      F2523060
       TRA AC234             EXIT TIX INITIALIZATION.                   F2523070
ACI23  TSX OP3,4             N3=1, N1 NOT = 1.                          F2523080
       CLA L(ADD)            COMPILE                                    F2523090
       STO CIL01             TIX                                        F2523100
       CLA OR000+13          INITIALIZATION                             F2523110
       PAX 0,1               FOR                                        F2523120
       ANA 6ONES             THIS                                       F2523130
       STO CIL02             CASE.                                      F2523140
       SXD CIL03,1                                                      F2523150
       TSX CIT,4                                                        F2523160
       CLA K3AOR0                                                       F2523170
       LXA L(1),1                                                       F2523180
       TSX LXC,4                                                        F2523190
       TRA AC234             EXIT TIX INITIALIZATION.                   F2523200
AC230I LXA L(2),1            G =1, N3 NOT = 1.                          F2523210
       CLA LTX042                                                       F2523220
       TSX LXC,4            THIS CASE.                                  F2523230
AC234  CLA INST3             RESET MODIFIED AOR0.                       F2523240
       STO AOR030            LXC L(4),1.                                F2523250
       CLA INST2                                                        F2523260
       STO AOR040            LXD L(2),1.                                F2523270
 AC236 LXD AX,1                                                         F2523280
       TIX AC200,1,1                                                    F2523290
AC240  TRA AC010                                                        F2523300
       LXA LADMX,2           START ADTG COMPILING.                      F2523310
       TXI AC240+3,2,4                                                  F2523320
       SXD XTG,2                                                        F2523330
       CLA INST8             L(TRA AC244).                              F2523340
       STA AC240             MODIFY RETURN FOR ADTG ENTRY.              F2523350
       STA AC016                                                        F2523360
       CLA INST10                                                       F2523370
       STA AC165+3                                                      F2523380
AC244  TSX ADTGSE,4          FIND VALID ADTG ENTRY.                     F2523390
       TRA AC250             END OF TABLE , GET NEXT DO.                F2523400
AC248  TXL AC014,0           VALID ENTRY, CONTINUE AC CYCLE.            F2523410
AC250  CLA INST11            REINITIALIZE                               F2523420
       STA AC240             INSTRUCTIONS                               F2523430
       STA AC016             MODIFIED                                   F2523440
       CLA INST12            FOR DMTAG                                  F2523450
       STA AC165+3           CYCLE,                                     F2523460
       CLA LOCIND            COMPILE AT LEAST                           F2523470
       TZE AC260             A BSS INST SO                              F2523480
       CLA A                 THAT TRA INST                              F2523490
       STO CIL00             WILL FUNCTION                              F2523500
       CLA L(0)              PROPERLY.                                  F2523510
       STO CIL02                                                        F2523520
       STO CIL03                                                        F2523530
       CLA L(BSS)                                                       F2523540
       STO CIL01                                                        F2523550
       TSX CIT,4                                                        F2523560
AC260  LXD AC248,4           END OF                                     F2523570
       TRA 1,4               ALPAHA CYCLE.                              F2523580
       REM *************************************************************F2523590
       REM CDOR0 TAKES COEF. AND DIM. AND FILLS OUT OR0.                F2523600
CDOR0  SXD CDOR01,4                                                     F2523610
       LXD AX,2                                                         F2523620
       MSE 100                                                          F2523630
CDOR01 TXH CDOR01+1,0        WHICH SUB IS IT.                           F2523640
       TXL CDOR03,2,2        S2 OR S3, TRA.                             F2523650
       CLA WRKSC             S1,                                        F2523660
       SUB L1DEC             IS C1 GREATER THAN1.                       F2523670
       TZE 1,4               C1=1, RETURN.                              F2523680
       PSE 100               C1 NOT = 1, TURN 0N                        F2523690
       CLA WRKSC             SENSE LIGHT , ISOLATE C1.                  F2523700
       TRA CDOR07+1                                                     F2523710
CDOR03 LDQ WRKSC+6           ISOLATE D1.                                F2523720
       TXL CDOR05,2,1        WHICH SUBlISkIT.                           F2523730
       MPY WRKSC+2           S2, FORM C2D1.                             F2523740
       TRA CDOR07                                                       F2523750
CDOR05 MPY WRKSC+4           S3, FORM                                   F2523760
       LRS 18                C3D1D2.                                    F2523770
       MPY WRKSC+7                                                      F2523780
CDOR07 ALS 17                ASSIGN SYMBOl                              F2523790
       TSX FIXCON,4          FOR G AND PUT                              F2523800
       STO OR000+19          IN OR0 + 19.                               F2523810
       LXD CDOR01,4          RESTORE LINKAGE,                           F2523820
       LXD AX,2              PUT AX POSITION IN                         F2523830
       TRA 1,4               I.R. B AND RETURN.                         F2523840
       REM *************************************************************F2523850
       REM AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIAF2523860
       REM COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE  F2523870
       REM COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE DF2523880
       REM DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY.        F2523890
AOR0   SXD AOR05,4                                                      F2523900
       CLA TAG2+3,1          LOCATION IS                                F2523910
       PDX 0,2               SPECIFIED IN OR0 +14                       F2523920
       CLA DOTAGZ,2          BY COMBINING TETLOC                        F2523930
       ANA ADMSK             WITH PROPER BETA.                          F2523940
       ALS 18                                                           F2523950
       ORA TETLOC                                                       F2523960
       STO OR000+14                                                     F2523970
       CLA DOTAGZ+4,2                                                   F2523980
       STO OR000                                                        F2523990
       LXD AX,1                                                         F2524000
       TXL AOR010,1,2        S2 OR S3.                                  F2524010
       CLA WRKSC             S1 , IS                                    F2524020
       SUB L1DEC             C1=1.                                      F2524030
       TZE AOR030            YES                                        F2524040
       ADD L1DEC             NO, ASSIGN                                 F2524050
       TSX FIXCON,4          SYMBOl FOR C1.                             F2524060
       STO OR000+19                                                     F2524070
AOR05  TXL AOR040,0                                                     F2524080
AOR010 TXL AOR020,1,1        IS SUB S2.                                 F2524090
       LDQ WRKSC+2           YES, FOR C2D1.                             F2524100
       MPY WRKSC+6           IF S2 IS A                                 F2524110
       ALS 17                DUPE, ADD C1.                              F2524120
       STO ERAOR0                                                       F2524130
       LDQ TAG4                                                         F2524140
       LLS 25                                                           F2524150
       LBT                                                              F1I24160
       TRA AOR014            NO DUPES.                                  F2524170
       CLA WRKSC                                                        F2524180
       ADD ERAOR0                                                       F2524190
       STO ERAOR0                                                       F2524200
AOR014 CLA ERAOR0            CONTAINS C2D1, ETC.                        F2524210
       TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2524220
       STO OR000+19          G AND PUT IN OR0+19                        F2524230
       TRA AOR040                                                       F2524240
AOR020 LDQ WRKSC+4           S3, FORM                                   F2524250
       MPY WRKSC+6           C3D1D2.                                    F2524260
       LRS 18                                                           F2524270
       MPY WRKSC+7                                                      F2524280
       ALS 17                                                           F2524290
       STO ERAOR0                                                       F2524300
       LDQ TAG4              CHECK DUPES                                F2524310
       LLS 26                AND MAKE G                                 F2524320
       LBT                   ADJUSTMENTS                                F2524330
       TRA AOR024            ACCORDINGLY.                               F2524340
       ARS 1                                                            F2524350
       LBT                                                              F2524360
       TRA AOR022                                                       F2524370
       LDQ WRKSC+2                                                      F2524380
       MPY WRKSC+6                                                      F2524390
       ALS 17                                                           F2524400
       ADD ERAOR0                                                       F2524410
       STO ERAOR0                                                       F2524420
AOR022 CLA TAG4                                                         F2524430
       ARS 11                                                           F2524440
       LBT                                                              F2524450
       TRA AOR024                                                       F2524460
       CLA WRKSC                                                        F2524470
       ADD ERAOR0                                                       F2524480
       STO ERAOR0                                                       F2524490
AOR024 CLA ERAOR0                                                       F2524500
       TSX FIXCON,4          ASSIGN SYMBOL FOR                          F2524510
       STO OR000+19          G FOR S3.                                  F2524520
       TRA AOR040                                                       F2524530
AOR030 LXA L(2),1            SUB IS S1, C1=1,                           F2524540
       CLA K2AOR0            COMPILE CLA, STD.                          F2524550
       TSX LXC,4                                                        F2524560
       TRA AOR050                                                       F2524570
AOR040 LXA L(4),1            COMPILE LDQ,MPY, STD.                      F2524580
       CLA K1AOR0                                                       F2524590
       TSX LXC,4                                                        F2524600
AOR050 LXD AOR05,4           RESTORE LINKAGE.                           F2524610
       TRA 1,4                                                          F2524620
       REM *************************************************************F2324630
BOR0   SXD LINKC,4           FOR B BLOCK                                F2524640
       LDQ WRKSC+2           COMPUTE G AS                               F2524650
       MPY WRKSC+6           C2D1. PLACE                                F2524660
       ALS 17                THIS AND C1                                F2524670
       STO OR000+19          IN OR0.                                    F2524680
       CLA WRKSC                                                        F2524690
       STO OR000+20                                                     F2524700
       LXA L(2),1            INITIALIZE N3X                             F2524710
       SXD N3X,1             POS. TO S2.                                F2524720
       LXA L(3),1            INITIALIZE XX                              F2524730
       SXD XX,1              POS. TO S1.                                F2524740
       TSX PC,4                                                         F2524750
       LXD LINKC,4                                                      F2524760
       TRA 1,4                                                          F2524770
       REM *************************************************************F2524780
COR0   SXD COR005,4                                                     F2524790
       LDQ WRKSC+6           FORM C3D1D2 AND                            F2524800
       MPY WRKSC+7           STORE-IN                                   F2524810
       LRS 18                OR0+19                                     F2524820
       MPY WRKSC+4           FOR USE BY                                 F2524830
       ALS 17                PC IN COMPUTING                            F2524840
       STO OR000+19          BLOCK C DECREMENTS.                        F2524850
       CLA TAG4              TEST                                       F2524860
       ARS 9                 FOR                                        F2524870
       LBT                   DUPES.                                     F2524880
COR005 TXL COR010,0          NO DUPES.                                  F2524890
       LDQ WRKSC+6           IF DUPES, FORM                             F2524900
       MPY WRKSC+2           C2D1, ADD TO                               F2524910
       ALS 17                OR0+19 , AND STORE                         F2524920
       ADD OR000+19          IN OR0+19 FOR                              F2524930
       STO OR000+19          USE BY PC.                                 F2524940
COR010 LXA L(1),1            SET N3X POSITION                           F2524950
       SXD N3X,1             TO S3,                                     F2524960
       LXA L(3),1            XX POSITION TO S1                          F2524970
       SXD XX,1              AND CALL PC TO COMPUTE                     F2524980
       TSX PC,4              AND COMPILE BLKC INIT.                     F2524990
       LXD COR005,4          RESTORE LINKAGE AND                        F2525000
       TRA 1,4               RETURN TO MAIN ROUTINE.                    F2525010
       REM *************************************************************F2525020
DORO   SXD DOR05,4           BLOCK D NORMAL.                            F2525030
       LDQ WRKSC+4           COMPUTES C3D1D2, G1                        F2525040
       MPY WRKSC+6           AND C2D1, G2 IF DUP.                       F2525050
       LRS 18                EXIST IN THE CASE                          F2525060
       MPY WRKSC+7           110 C1 ADDED TO G2.                        F2525070
       ALS 17                IN THE CASE 101                            F2525080
       STO OR000+19          C1 ADDED TO G1.                            F2525090
       LDQ WRKSC+2                                                      F2525100
       MPY WRKSC+6                                                      F2525110
       ALS 17                                                           F2525120
       STO OR000+20                                                     F2525130
       CLA TAG4                                                         F2525140
       ARS 9                                                            F2525150
       ANA L(7)                                                         F2525160
       TZE DOR020                                                       F2525170
       LBT                                                              F2525180
DOR05  TXL DOR010,0                                                     F2525190
       CLA WRKSC                                                        F2525200
       ADD OR000+19                                                     F2525210
       STO OR000+19                                                     F2525220
       TRA DOR020                                                       FC52523D
DOR010 CLA WRKSC                                                        F2525240
       ADD OR000+20                                                     F2525250
       STO OR000+20                                                     F2525260
DOR020 LXA L(1),1            SET N3X POS. TO S3,                        F2525270
       SXD N3X,1                                                        F2525280
       LXA L(2),1            XX POS. TO S2.                             F2525290
       SXD XX,1                                                         F2525300
       TSX PC,4              MAKE COMPUTATIONS AND COMPILE              F2525310
       LXD DOR05,4           INSTRUCTIONS TO INIT. VAR.                 F2525320
       TRA 1,4               BLOCK D DECREMENTS,                        F2525330
       REM *************************************************************F2525340
EOR0   SXD EOR006,4                                                     F2525350
       TSX DORO,4            COMP. INSTR. FOR 1ST TXI-SXD-TIX.          F2525360
       CLA OR000+15          UPDATE                                     F2525370
       ADD L(8)              TXI RELATIVE                               F2525380
       STO OR000+14          INSTRUCTION NUM8ER.                        F2525390
       ADD L(16)             UPDATE TIX RELATIVE                        F2525400
       STO OR000+15          INSTRUCTION NUMBER.                        F2525410
       LXA L(3),1            SEE IF                                     F2525420
       CLA TAG2+3,1          X FOR                                      F2525430
       PDX 0,2               XX POSITION                                F2525440
       CLA DOTAGZ+5,2        IS                                         F2525450
       ANA BIT2              COMPUTABLE.                                F2525460
       TZE EOR006-1          X COMPUTABLE.                              F2525470
       CLA DOTAGZ+4,2        X NOT COMPUTABLE,                          F2525480
       SUB L(1)              IS N3=1.                                   F2525490
       TNZ EOR006-1          N3 NOT =1.                                 F2525500
       CLA DOTAGZ+2,2        N3=1, IS                                   F2525510
       SUB L(1)              N1 = 1.                                    F2525520
       TNZ EOR02             N1 NOT = 1.                                F2525530
       CLA WRKSC             N3,NU = 1,                                 F2525540
       SUB L1DEC             DOES C1=1.                                 F2525550
       TNZ EOR01             NO.                                        F2525560
       CLA DOTAGZ+3,2        N3, N1, C1 = 1 .                           F2525570
       TRA EOR022            ISOLATE N2 SYMBOL.                         F2525580
EOR01  CLA DOTAGZ+3,2        ISOLATE                                    F2525590
       STO OR000             N2 SYMBOL.                                 F2525600
       CLA WRKSC             ASSIGN SYMBOL                              F2525610
       TSX FIXCON,4          FOR C1, AND                                F2525620
       STO OR000+19          COMPILE LDQ L(N2),                         F2525630
       CLA K1AOR0            MPY L(C1), ARS 17.                         F2525640
       LXA L(3),1                                                       F2525650
       TSX LXC,4                                                        F2525660
EOR03  LXA L(1),1            COMPILE                                    F2525670
       CLA LXCIE1            SUB L(1),                                  F2525680
       TSX LXC,4                                                        F2525690
       TXI EOR03+4,1,1       COMPILE                                    F2525700
       CLA LXCEIP            STD L(TIX), STD L(TXI).                    F2525710
       TSX LXC,4                                                        F2525720
       TRA EOR018+3                                                     F2525730
EOR02  TSX OP3,4             COMPILE CLA (N2 - N1)                      F2525740
       CLA WRKSC             OR CLA N2, SUB N1.                         F2525750
       SUB L1DEC             DOES C1=1.                                 F2525760
       TZE EOR03             UES, EOR03.                                F2525770
       CLA L(ADD)            NO, COMPILE                                F2525780
       STO CIL01             ADD L(1),                                  F2525790
       CLA OR000+13          STO 1)+3,                                  F2525800
       PAX 0,4                                                          F2525810
       ANA 6ONES             MPY L(C1.,                                 F2525820
       STO CIL02             ALS 17,                                    F2525830
       SXD CIL03,4           STO 1)+3,                                  F2525840
       TSX CIT,4             AND GO TO                                  F2525850
       CLA L(STO)            EOR03.                                     F2525860
       STO CIL01                                                        F2525870
       CLA OR000+26                                                     F2525880
       STO OR000+1                                                      F2525890
       PAX 0,4                                                          F2525900
       ANA 6ONES                                                        F2525910
       STO CIL02                                                        F2525920
       SXD CIL03,4                                                      F2525930
       TSX CIT,4             FIXCON SYMBOL                              F2525940
       CLA WRKSC             FOR C1.                                    F2525950
       TSX FIXCON,4                                                     F2525960
       STO OR000+9                                                      F2525970
       CLA KLX02I                                                       F2525980
       LXA L(4),1                                                       F2525990
       TSX LXC,4                                                        F2526000
       TRA EOR03                                                        F2526010
       TSX PXOR0,4           C1 GREATER THAN 1.                         F2526020
EOR006 TXL EOR008,0                                                     F2526030
       TRA EOR020            X CONSTANT, EOR020.                        F2526040
EOR008 LXA L(6),1            X NOT CONST.,                              F2526050
       CLA WRKSC             COMPILE                                    F2526060
       SUB L1DEC             INSTRUCTIONS                               F2526070
       TZE EOR015            TO COMPUTE                                 F2526080
       TXI EOR010,1,2        XGN3.                                      F2526090
EOR010 CLA WRKSC                                                        F2526100
       TSX FIXCON,4                                                     F2526110
       STO OR000+9                                                      F2526120
EOR015 CLA LXCI                                                         F2526130
       TSX LXC,4                                                        F2526140
EOR018 LXA L(4),1            COMPILE LLS, SUB,                          F2526150
       CLA LXCIE             STD,STD.                                   F2526160
       TSX LXC,4                                                        F2526170
       LXD EOR006,4                                                     F2526180
       TRA 1,4                                                          F2526190
EOR020 LRS 35                                                           F2526200
       NOP                                                              F2526210
       MPY WRKSC                                                        F2526220
       ALS 17                                                           F2526230
       NOP                                                              F2526240
       TSX FIXCON,4                                                     F2526250
EOR022 STO OR000+20          PUT SYMB0L IN                              F2526260
       LXA L(1),1            OR0+20 AND C0MPILE                         F2526270
       CLA LXCIEP            CLA (SYMB0L),                              F2526280
       TSX LXC,4                                                        F2526290
       TRA EOR03                                                        F2526300
       REM *************************************************************F2526310
       REM PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTAF2526320
       REM TIONS  AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIAF2526330
       REM LIZATION.                                                    F2526340
PC     SXD PC04,4                                                       F2526350
       LXD N3X,1                                                        F2526360
       CLA TAG2+3,1                                                     F2526370
       PDX 0,2                                                          F2526380
       CLA DOTAGZ,2                                                     F2526390
       ANA ADMSK             FORM LOCATION                              F2526400
       ALS 18                WORDS AND PUT                              F2526410
       ORA TETLOC            IN OR0+14                                  F2526420
       STO OR000+14          AND OR0+15.                                F2526430
       ADD L(16)                                                        F2526440
       STO OR000+15                                                     F2526450
       CLA DOTAGZ,2          IS N3 FOR THIS DO                          F2526460
       ARS 15                VARIABLE.                                  F2526470
       LBT                                                              F2526480
PC04   TXL PC10,0            NO, PC10.                                  F2526490
       CLA DOTAGZ+4,2        YES,                                       F2526500
       STO OR000             COMPILE                                    F2526510
       CLA OR000+19          LDQ L(G), (N3X POS,),                      F2526520
       TSX FIXCON,4          MPY N3, (N3X POS.),                        F2526530
       STO OR000+19          ALS 17,                                    F2526540
       LXA L(4),1            STO C(OR0+12)                              F2526550
       CLA K1BOR0                                                       F2526560
       TSX LXC,4                                                        F2526570
       TRA PC20                                                         F2526580
PC10   LDQ DOTAGZ+4,2        N3 C0NSTANT, PUT                           F2526590
       MPY OR000+19          N3G SYMBOL IN                              F2526600
       LLS 35                OR0+19                                     F2526610
       TSX FIXCON,4                                                     F2526620
       STO OR000+19                                                     F2526630
PC20   LXD XX,1              ISOLATE N3 FOR                             F2526640
PCI    CLA TAG2+3,1          XX POSITION                                F2526650
       PDX 0,2                                                          F2526660
       CLA DOTAGZ+4,2        DOES N3 = 1.                               F2526670
       SUB L(1)                                                         F2526680
       TNZ PC21              NO, PC22.                                  F2526690
       CLA DOTAGZ+5,2        YES, IS X CONST.                           F2526700
       ANA BIT2                                                         F2526710
       TZE PC21              YES, PC21.                                 F2526720
       TXL PCI31,1,2         NO, IS POS. S2.                            F2526730
       CLA DOTAGZ+2,2        NO, IS N1 = 1.                             F2526740
       SUB L(1)                                                         F2526750
       TNZ PCI22             NO, PCI22.                                 F2526760
       CLA DOTAGZ+3,2        YES, DOES C1 = 1,                          F2526770
       STO OR000+1                                                      F2526780
       CLA WRKSC                                                        F2526790
       SUB L1DEC                                                        F2526800
       TNZ PCI21             NO, PCI21.                                 F2526810
       LXA L(1),1            YES, COMPILE                               F2526820
       CLA KLX02             CLA N1,                                    F2526830
       TSX LXC,4             SUBL(1), AND                               F2526840
       TRA PCI33                                                        F2526850
PCI21  CLA WRKSC                                                        F2526860
       TSX FIXCON,4          COMPILE                                    F2526870
       STO OR000+9           LDQ L(N2)                                  F2526880
       CLA KLX02I            MPY LC1)                                   F2526890
       LXA L(4),1            ALS 17                                     F2526900
       TSX LXC,4             STO 1) +3.                                 F2526910
       TRA PC60                                                         F2526920
PCI22  TSX OP3,4             COMPILE CLA L(N2-N1)                       F2526930
       CLA WRKSC                                                        F2526940
       SUB L1DEC             IS C1 = 1.                                 F2526950
       TZE PC60              YES, PC 60.                                F2526960
       CLA WRKSC             NO, OBTAIN                                 F2526970
       TSX FIXCON,4          SYMBOL FOR                                 F2526980
       STO OR000+9           C1 AND                                     F2526990
PCI22R CLA L(ADD)            COMPILE                                    F2527000
       STO CIL01             ADD L(1)                                   F2527010
       CLA OR000+13          STO 1) +3                                  F2527020
       PAX 0,1               LDQ 1) +3                                  F2527030
       SXD CIL03,1           MPY L(G)                                   F2527040
       ANA 6ONES             ALS17                                      F2527050
       STO CIL02             STD 1) +3                                  F2527060
       TSX CIT,4             SUB L(1),                                  F2527070
       CLA L(STO)            THEN GO                                    F2527080
       STO CIL01             TO PC60.                                   F2527090
       CLA OR000+26                                                     F2527100
       STO OR000+1                                                      F2527110
       PAX 0,4                                                          F2527120
       ANA 6ONES                                                        F2527130
       STO CIL02                                                        F2527140
       SXD CIL03,4                                                      F2527150
       TSX CIT,4                                                        F2527160
       LXA L(4),1                                                       F2527170
       CLA KLX02I                                                       F2527180
       TSX LXC,4                                                        F2527190
       TRA PCI33                                                        F2527200
PCI31  CLA OR000+20          XX POS 2 , X VAR., N3 = 1,                 F2527210
       TSX FIXCON,4          ASSIGN SYMBOL FOR G                        F2527220
       STO OR000+9           AND PUT IN OR0+9                           F2527230
       CLA DOTAGZ+2,2        IS N1 = 1                                  F2527240
       SUB L(1)                                                         F2527250
       TZE PCI32             YES, PCI32.                                F2527260
       TSX OP3,4             NO, COMPILE CLA (N2-N1)                    F2527270
       TRA PCI22R            OR CLA N2, SUB N1.                         F2527280
PCI32  CLA DOTAGZ+3,2        COMPILE                                    F2527290
       STO OR000+1           LDQ N2,                                    F2527300
       LXA L(4),1            MPY G,                                     F2527310
       CLA KLX02I            ALS 17,                                    F2527320
       TSX LXC,4             STO1)+3,                                   F2527330
PCI33  LXA L(1),1                                                       F2527340
       CLA LXCI61                                                       F2527350
       TSX LXC,4                                                        F2527360
       TRA PC60                                                         F2527370
PC21   TSX PXOR0,4           IS X CONSTANT.                             F2527380
       TRA PC22              NO, PC22.                                  F2527390
       TRA PC50              YES. PC50,                                 F2527400
PC22   LXD XX,1              X NOT CONSTANT,                            F2527410
       TXL PC40,1,2          IS POSITION S1.                            F2527420
       LXA L(6),1            TES, COMPILE                               F2527430
       CLA WRKSC             INSTRUCTIONS                               F2527440
       SUB L1DEC             TO COMPUTE                                 F2527450
       TZE PC30              N3X-1, AND                                 F2527460
       TXI PC25,1,2          TO TO PC60,                                F2527470
PC25   ADD L1DEC                                                        F2527480
       TSX FIXCON,4                                                     F2527490
       STO OR000+9                                                      F2527500
PC30   CLA LXCI                                                         F2527510
       TSX LXC,4                                                        F2527520
       LXA L(2),1                                                       F2527530
       CLA LXCI6                                                        F2527540
       TSX LXC,4                                                        F2527550
       TRA PC60                                                         F2527560
PC40   CLA OR000+20          POS, IS S2,                                F2527570
       TSX FIXCON,4          COMPILE INSTRUCTIONS                       F2527580
       STO OR000+20          TO COMPUT N3X-1 AND                        F2527590
       LXA L(10),1           GO TO PC60.                                F2527600
       CLA LX2CI                                                        F2527610
       TSX LXC,4                                                        F2527620
       TRA PC60                                                         F2527630
PC50   LRS 35                X IS CONSTANT,                             F2527640
       MPY OR000+20          FORM GN3X-1 FOR                            F2527650
       ALS 17                XX POS. AND COMPILE                        F2527660
       SUB L1DEC                                                        F2527670
       TSX FIXCON,4                                                     F2527680
       STO OR000+20                                                     F2527690
       LXA L(1),1                                                       F2527700
       CLA XK                                                           F2527710
       TSX LXC,4                                                        F2527720
PC60   LXD N3X,1                                                        F2527730
       CLA TAG2+3,1          IS                                         F2527740
       PDX 0,2               N3                                         F2527750
       LXA L(3),1            OF                                         F2527760
       CLA DOTAGZ,2          CURRENT                                    F2527770
       ARS 15                DO                                         F2527780
       LBT                   VARIABLE.                                  F2527790
       TRA PC61              CONSTANT, PC61.                            F2527800
       CLA LXCI8             VARIABLE, COMPILE                          F2527810
PC62   TSX LXC,4             STD, ADD N3G, STD.                         F2527820
       LXD PC04,4                                                       F2527830
       TRA 1,4                                                          F2527840
PC61   CLA LXCI8P            CONSTANT. COMPILE                          F2527850
       TRA PC62              STO, ADD C(OR0+12), STD.                   F2527860
       REM *************************************************************F2527870
       REM CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2527880
       REM TRUCTIONS WITHOUT LOCATIONS.                                 F2527890
CIL03I CLA L(0)              PLACE 0 IN LOCATION                        F2527900
       STO CIL00             WORD AND TAG IN                            F2527910
       CLA TAG3              TAG WORD OF COMPILED                       F2527920
       ANA ADMSK             INSTRUCGIN.                                F2527930
       STO CIL03                                                        F2527940
       TRA 1,4                                                          F2527950
       REM *************************************************************F2527960
       REM BITP CHECKS SUBSCRIPTS FOR DEFINITION.  IF DEFINED BY RELCON F2327970
       REM OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2327980
       REM CTIVELY.                                                     F2527990
BITP   STA BITP14                                                       F2528000
       STA BITP02            INITIALIZE SHIFTS,                         F2528010
       STA BITP04            STORE LINKAGE                              F2528020
       PAX 0,2               AND PLACE 0,1,2 IN                         F2528030
       ALS 1                 XB FOR S3, S2, AND                         F2528040
       PAX 0,1               S1 RESPECTIVELY,                           F2528050
       SXD BITP25,4                                                     F2528060
       CLA OREDO             CHECK TO SEE IT                            F2528070
BITP02 ARS                   DEFINED BY DO, RELCON,                     F2528080
       LBT                   OR DORC. RETURN AS  NOT                    F2528090
       TRA 1,4               DEFINED IF NOT DEFINED.                    F2528100
       CLA DEFDO             DEFINED. CHECK T0 SEE                      F2528110
BITP04 ARS                   IF DEFINED BY DO,                          F2528120
       LBT                                                              F2528130
       TRA BITP30            DEFINED AS RELCON.                         F2528140
       CLA TAG2+2,2          DEFINED BY DO, CHECK                       F2528150
       PDX 0,2               TO SEE IF N1 IS                            F2528160
BITP10 CLA N1SBX             VARIABLE. IF SO, RETURN                    F2528170
       TXH 64,0,7            AS UNDEFINED.                              F2528180
BITP14 ARS                   IF NOT,                                    F2528190
       LBT                   CONTINUE.                                  F2528200
       TRA BITP02+2          SYMBOl HAS VARIABLE N1.                    F2528210
BITP20 CLA DOTAGZ+2,2        DOSUB, N2.                                 F2528220
BITP25 TXL BITP40,0          SUBMLEFT IN ACC.                           F2528230
BITP30 CLA WRKSC+5,1         RELCON S SYMBOL FROM WRKSC.                F2528240
BITP40 LXD BITP25,4          RESTORE LINKAGE                            F2528250
       TRA 2,4               SYMBOL IN ACC.                             F2528260
       REM *************************************************************F2528270
       REM COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FRF2528280
       REM TH0SE GREATER THAN 1                                         F2528290
COSE   LXA L(6),1            COEFFICIENT INDEX.                         F2528300
       LXA L(3),2            SENSE LIGHT INDEX.                         F2528310
       SXD LINKC,4           STORE LINKAGE.                             F2528320
COSE5  CLA WRKSC+6,1         ISOLATE COEFFIEIENT,                       F2528330
       TZE COSE08            NO SUB FOR THIS DIM.                       F2528340
       SUB L1DEC                                                        F2528350
       TZE COSE08            C=1, CHECK NEXT C.                         F2528360
       PSE 100,2             C NOT = 1, SENSE LIGHT.                    F2528370
       CLA WRKSC+6,1         ASS1GN FIXCON SYMBOL                       F2528380
       TSX FIXCON,4          FOR C NOT = 1. STORE IN                    F2528390
       STO OR000+12,2        OR0+910, OR 11.                            F2528400
COSE08 TIX COSE10,1,2        BUMP COEF. INDEX.                          F2528410
COSE10 TIX COSE5,2,1         BUMP S.6. TEST AND LOOP,                   F2528420
       LXD LINKC,4           RESTORE LINKAGE                            F2528430
       TRA 1,4               AND RETURN.                                F2528440
       REM *************************************************************F2528450
       REM TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2528460
       REM OF THE STD INITIALIZING INSTRUCT10N,                         F2528470
TESTL0 CLA TAG2+3,2          INITIALIZE INDEX                           F2528480
       PDX 0,2               FOR TEST DOTAG.                            F2528490
       CLA L(0)              ISOLATE                                    F2528500
       LDQ DOTAGZ+6,2        SXD                                        F2528510
       RQL 3                 LOCATION                                   F2528520
       LGL 6                 AND PUT                                    F2528530
       ALS 3                 IN TETLOC                                  F2528540
       STO TETLOC            ADDRESS                                    F2528550
       CLA DOTAGZ,2          PUT TXL                                    F2528560
       ANA ADMSK             LOCATION                                   F2528570
       ALS 18                IN TETLOC                                  F2528580
       ORS TETLOC            DECREMENT.                                 F2528590
       TRA 1,4                                                          F2528600
       REM *************************************************************F2528610
       REM PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY.           F2528620
PXOR0  CLA TAG2+3,1          IF X IS                                    F2528630
       PDX 0,2               CONSTANT IT IS                             F2528640
       CLA DOTAGZ+5,2        LEFT IN THE                                F2528650
       ANA BIT2              DECREMENT OF                               F2528660
       TNZ XOR0              ACC.                                       F2528670
       CLA DOTAGZ+5,2                                                   F2528680
       ANA ADMSK                                                        F2528690
       ALS 18                                                           F2528700
       TRA 2,4                                                          F2528710
       REM *************************************************************F2528720
       REM XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2528730
XOR0   SXD XOR032,4                                                     F2528740
       CLA DOTAGZ,2                                                     F2528750
       ARS 15                                                           F2528760
       ANA L(7)                                                         F2528770
       STO N1N2N3                                                       F2528780
       CLA L(OR0)            ORIGIN OF OR0 TABLE.                       F2528790
       ADD L(4)              CALCULATES ADDRESS                         F2528800
       TXH XOR010,1,2        FOR STORING INTO                           F2528810
       ADD L(3)              OR0 TABLE.                                 F2528820
XOR010 TXH XOR020,1,1                                                   F2528830
       ADD L(17)                                                        F2528840
XOR020 STA XOR036            STORE ADRS FOR NS.                         F2528850
       LXA L(3),1                                                       F2528860
XOR030 LDQ N1N2N3                                                       F2528870
       RQL 36,1                                                         F2528880
       CLA DOTAGZ+2,2                                                   F2528890
       TQP XOR034            N IS CONSTANT.                             F2528900
XOR032 TXL XOR036,0          N IS VARIABLE                              F2528910
XOR034 ALS 18                                                           F2528920
       TSX FIXCON,4                                                     F2528930
XOR036 STO 0,1                                                          F2528940
       TIX XOR040,2,1                                                   F2528950
XOR040 TIX XOR030,1,1                                                   F2528960
       STO OR000                                                        F2528970
       LXD XOR032,4                                                     F2528980
       TRA 1,4                                                          F2528990
       REM *************************************************************F2529000
       REM THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2529010
       REM INSTRUCTION FOR EACH.  THE CALLER INDICATES THE FIRST CONSTANF2529020
       REM BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2529030
       REM OF INSTRUCTIONS IN INDEX REGISTER A.                         F2529040
LXC    SXD LXC19,4                                                      F2529050
       STO ERLXC                                                        F2529060
       PXD 0,1                                                          F2529070
       ARS 18                                                           F2529080
       ADD ERLXC                                                        F2529090
       STA LXC10                                                        F2529100
       CLA LOCIND            TEST TO SEE IF                             F2529110
       TZE LXC08             THIS IS THE FIRST                          F2529120
       SUB L(1)              LXD COMPILED. IF SO,                       F2529130
       STO LOCIND            PLACE A IN                                 F2529140
       LXD DOIND,2           DECREMENT                                  F2529150
       CLA DOTAGZ,2          OF LOCATION WORD                           F2529160
       ANA DECMSK            FOR FIRST COMPILED                         F2529170
       STO CIL00             INSTRUCTION.                               F2529180
       TRA LXC10                                                        F2529190
LXC08  CLA L(0)                                                         F2529200
       STO CIL00                                                        F2529210
LXC10  LDQ 0,1               SKELETAL INSTRUCTION.                      F2529220
       LLS 0                                                            F2529230
       LGL 18                                                           F2529240
       STQ CIL01             COMPILE OP. WORD.                          F2529250
       TMI LXC20                                                        F2529260
       STA LXC15             SYMBOL.ADDR, TYPE INSTRUCTION,             F2529270
LXC15  CLA                                                              F2529280
       STO CIL02             SYMBOLIC ADDRESS.                          F2529290
       CLA L(0)              RELATIVE                                   F2529300
       STO CIL03             ADDRESS.                                   F2529310
       CAL CIL02             TEST CIL02                                 F2529320
       ANA 6ONES             WORD.                                      F2529330
       TZE LXC30             FIRST CHARACTER IS ZERO.                   F2529340
       ANA BIT01                                                        F2529350
       TNZ LXC30             FIRST CHARACTER ALPHABETIC.                F2529360
       CAL CIL02             FIRST CHARACTER NUMBERIC,                  F2529370
       ALS 18                PLACE REIGHT HALF OF CIL02                 F2529380
       STD CIL03             IN CIL03, LEFT HALF                        F2529390
       CAL 6ONES             IN CIL02.                                  F2529400
       ANS CIL02                                                        F2529410
LXC19  TXL LXC30,0           SHIF TYPE INSTRUCTION,                     F2529420
LXC20  ALS 18                                                           F2529430
       ANA DECMSK                                                       F2529440
       STO CIL03                                                        F2529450
       CLA L(0)                                                         F2529460
       STO CIL02                                                        F2529470
LXC30  TSX CIT,4                                                        F2529480
       TIX LXC08,1,1         COUNT COMPILED INSTR. IN BLK.              F2529490
       LXD LXC19,4                                                      F2529500
       TRA 1,4                                                          F2529510
       REM *************************************************************F2529520
KLX01      LXI00                                                        F2529530
KLX01I     LXI00+1                                                      F2529540
KLX02I     LXI05                                                        F2529550
KLX02      LXI02                                                        F2529560
KLX03      LXI16                                                        F2529570
KLX05      LXI30                                                        F2529580
KLX03I     LXI10                                                        F2529590
KLX05I     LXI24                                                        F2529600
K1AOR0     A1C00                                                        F2529610
KIAOR0     A1C01                                                        F2529620
K2AOR0     A1000                                                        F2529630
K3AOR0     A1001                                                        F2529640
KTX00      TXC00                                                        F2529650
           TXC08                                                        F2529660
           TXC18                                                        F2529670
KTX04      TXC30                                                        F2529680
KTX03      TXC31                                                        F2529690
LTX040     TX040                                                        F2529700
LTX042     TX042                                                        F2529710
LXCI       XCI                                                          F2529720
LXCI6      XCI6                                                         F2529730
LXCIE      XCIE                                                         F2529740
LXCIE1     XCIE+1                                                       F2529750
LXCIEP     XCIEP                                                        F2529760
LXCEIP     XCEIP                                                        F2529770
XK         XKI                                                          F2529780
K1BOR0     L(BIC)                                                       F2529790
LX2CI      X2CI                                                         F2529800
LXCI61     XCI6+1                                                       F2529810
LXCI8      XCI8                                                         F2529820
LXI00      14545,2,OR000+13  CLA                                        F2529830
           11494,6,OR000+26  STO                                        F2529840
LXI02      14545,2,OR000+1   CLA                                        F2529850
           11494,6,OR000+26  STO                                        F2529860
LXI05      13608,4,OR000+1   LDQ                                        F2529870
           18936,4,OR000+9   MPY                                        F2529880
       TNX 6386,2,17         ALS 17                                     F2529890
           11494,6,OR000+26  STO                                        F2529900
LXI10      13608,4,OR000+4   LDQ                                        F2529910
           18936,4,OR000+7   MPY                                        F2529920
       TNX 6386,2,17         ALS 17                                     F2529930
           11538,6,OR000+7   SUB                                        F2529940
           5396,2,OR000+26   ADD                                        F2529950
           11494,6,OR000+26  STO                                        F2529960
LXI16      13608,4,OR000+4   LDQ                                        F2529970
           18936,4,OR000+10  MPY                                        F2529980
       TNX 14962,4,18        LRS                                        F2529990
           18936,4,OR000+7   MPY                                        F2530000
       TNX 6386,2,17         ALS                                        F2530010
           11538,6,OR000+7   SUB                                        F2530020
           5396,2,OR000+26   ADD                                        F2530030
           11494,6,OR000+26  STO                                        F2530040
LXI24      13608,4,OR000+21  L0Q                                        F2530050
           18936,4,OR000+24  MPY                                        F2530060
       TNX 6386,2,17         ALS                                        F2530070
           11538,6,OR000+24  SUB                                        F2530080
           5396,2,OR000+26   ADD                                        F2530090
           11494,6,OR000+26  STO                                        F2530100
LXI30      13608,4,OR000+21  LDQ                                        F2530110
           18936,4,OR000+11  MPY                                        F2530120
       TNX 14962,4,18        LRS                                        F2530130
           18936,4,OR000+24  MPY                                        F2530140
       TNX 6386,2,17         ALS                                        F2530150
           11538,6,OR000+24  SUB                                        F2530160
           5396,2,OR000+26   ADD                                        F2530170
           11494,6,OR000+26  STO                                        F2530180
L(BIC)     13608,4,OR000+19  LDQ                                        F2530190
           18936,4,OR000     MPY                                        F2530200
       TNX 6386,2,17         ALS                                        F2530210
           11494,6,OR000+12  STO                                        F2530220
XCI        14545,2,OR000+2   CLA                                        F2530230
           11538,6,OR000+1   SUB                                        F2530240
           5396,2,OR000+3    ADD                                        F2530250
       TNX 14962,4,35        LRS                                        F2530260
           19815,2,OR000+3   DVP                                        F2530270
           18936,4,OR000+3   MPY                                        F2530280
       TNX 14962,4,18        LRS                                        F2530290
           18936,4,OR000+9   MPY                                        F2530300
XCI6   TNX 14578,4,35        LLS                                        F2530310
           11538,6,OR000+13  SUB                                        F2530320
XCI8       11476,6,OR000+15  STD                                        F2530330
           5396,2,OR000+12   ADD                                        F2530340
           11476,6,OR000+14  STD                                        F2530350
A1C00      13608,4,OR000     LDQ                                        F2530360
A1C01      18936,4,OR000+19  MPY                                        F2530370
       TNX 6386,2,17         ALS                                        F2530380
           11476,6,OR000+14  STD                                        F2530390
A1000      14545,2,OR000     CLA                                        F2530400
A1001      11476,6,OR000+14  STD                                        F2530410
TXC00      14545,2,OR000+2   CLA                                        F2530420
           11538,6,OR000+1   SUB                                        F2530430
           5396,2,OR000+3    ADD                                        F2530470
       TNX 14962,4,35        LRS                                        F2530450
           19815,2,OR000+3   DVP                                        F25F0460
           18936,4,OR000+3   MPY                                        F2530470
TXC08      14545,2,OR000+5   CLA                                        F2530480
           11538,6,OR000+4   SUB                                        F2530490
           5396,2,OR000+6    ADD                                        F2530500
       TNX 14962,4,35        LRS                                        F2530510
           19815,2,OR000+6   DVP                                        F2530520
           18936,4,OR000+6   MPY                                        F2530530
TXC18      14545,2,OR000+22  CLA                                        F2530540
           11538,6,OR000+21  SUB                                        F2530550
           5396,2,OR000+23   ADD                                        F2530560
       TNX 14962,4,35        LRS                                        F2530570
           19815,2,OR000+23  DVP                                        F2530580
           18936,4,OR000+23  MPY                                        F2530590
       TNX 14962,4,18        LRS                                        F2530600
           18936,4,OR000+7   MPY                                        F2530610
       TNX 14962,4,18        LRS                                        F2530620
           18936,4,OR000+8   MPY                                        F2530630
       TNX 14962,4,18        LRS                                        F2530640
           18936,4,OR000+11  MPY                                        F2530650
TXC30  TNX 14578,4,35        LLS                                        F2530660
TXC31      5396,2,OR000+27   ADD                                        F2530670
           11538,6,OR000+13  SUB                                        F2530680
TX040  TNX 14962,4,18        LRS                                        F2530690
           18936,4,OR000+19  MPY                                        F2530700
TX042  TNX 14578,4,35        LLS                                        F2530710
           11476,6,OR000+14  STD                                        F2530720
X2CI       14545,2,OR000+5   CLA                                        F2530730
           11538,6,OR000+4   SUB                                        F2530740
           5396,2,OR000+6    ADD                                        F2530750
       TNX 14962,4,35        LRS                                        F2530760
           19815,2,OR000+6   DVP                                        F2530770
           18936,4,OR000+6   MPY                                        F2530780
       TNX 14962,4,18        LRS                                        F2530790
           18936,4,OR000+20  MPY                                        F2530800
       TNX 14578,4,35        LLS                                        F2530810
           11538,6,OR000+13  SUB                                        F2530820
XKI        14545,2,OR000+20  CLA                                        F2530830
XCIE   TNX 14578,4,35        LLS                                        F2530840
           11538,6,OR000+13  SUB                                        F2530850
           11476,6,OR000+15  STD                                        F2530860
           11476,6,OR000+14  STD                                        F2530870
XCI8P      11476,6,OR000+15  STD                                        F2530880
           5396,2,OR000+19   ADD                                        F2530890
           11476,6,OR000+14  STD                                        F2530900
LXCI8P     XCI8P                                                        F2530910
XCIEP      14545,2,OR000+20  CLA                                        F2530920
XCEIP      11476,6,OR000+15  STD                                        F2530930
           11476,6,OR000+14  STD                                        F2530940
       REM *************************************************************F2530950
 OR000 BSS 12                                                           F2530960
 OR012 OCT 010000000001                                                 F2530970
       OCT 060000000003                                                 F2530980
 OR014 BSS 12                                                           F2530990
 OR026 OCT 010000000003      1)+3 SYMBOL.                               F2531000
       REM *************************************************************F2531010
       REM                                                              F2531020
       REM *************************************************************F2531030
       REM SYNONYMS                                                     F2531040
ZEKSUM SYN TGTG+100                                                     F2531050
TAG21  SYN TAG2+1                                                       F2531060
TAG22  SYN TAG2+2                                                       F2531070
RTXAC  SYN RTX                                                          F2531080
RTXAC  SYN AC                                                           F2531090
ERAOR0 SYN ERTX01                                                       F2531100
CPYWD1 SYN ER40                                                         F2531110
CPYWD2 SYN ER41                                                         F2531120
ERDRM1 SYN ARG                                                          F2531130
ERDRM1 SYN ARG                                                          F2531140
ERDRM  SYN ERTX02                                                       F2531150
ERAB   SYN ERTGA                                                        F2531160
ADTGA  SYN OADTGA+100                                                   F2531170
ADTGMX SYN ADTG+400                                                     F2531180
DOTAGZ SYN DOTAG+450                                                    F2531190
OR012  SYN OR000+12                                                     F2531200
OR013  SYN OR000+13                                                     F2531210
OR018  SYN OR000+18                                                     F2531220
OR026  SYN OR000+26                                                     F2531230
MXTGTG SYN TGTG+672                                                     F2531240
MXTGA  SYN OMXTGA+200                                                   F2531250
 DIAG  EQU 4                                                            F2531260
       END                                                              F2531270
       REM BLOCK SIX OF SECTION TWO.                                            
       REM    MASTER RECORD CARD = FN053                                F2600010
       REM DOFILE INVERSI0N ROUTINE--BLOCK 6                            F2600020
       ORG 24                ORIGIN FOR DFI INSTRUCTIONS.               F2600030
DFI01  REW 148               REWIND OUTPUT TAPE 4                       F2600040
       REW 147               AND INPUT TAPE 3                           F2600050
DFI02  RDS 148               SPACE                                      F2600060
       CPY ERAS              OVER                                       F2600070
       TRA DFI02             FIRST FILE                                 F2600080
       TRA DFI03             OF OUTPUT TAPE                             F2600090
       TSX DIAG,4            FALSE END OF RECORD.                       F2600100
DFI03  MSE 99                TEST SENSE LIGHT 3 FOR EMPTY INPUT         F2600110
       TRA DFI05             NOT EMPTY                                  F2600120
       PSE 98                TURN ON SENSE LIGHT 2, EMPTY OUTPUT.       F2600130
DFI04  WEF 148               WRITE END OF FILE ON OUTPUT TAPE.          F2600140
       TRA EXIT              EXIT FROM DFI ROUTINE.                     F2600150
DFI05  LXA L(0),1            INITIALIZE TO BEGIN READING INTO N         F2600160
       MSE 99                TURN OFF                                   F2600170
       NOP                   SENSE LIGHT 3                              F2600180
       RTT                   TURN OFF                                   F2600190
       NOP                   TAPE CHECK INDICATOR                       F2600200
 DFI10 LXA L(5),2            INITIALIZE TAPE ERROR COUNTER              F2600210
       SXD ERAS,1            SAVE INDEX 1 IN CAS OF REREAD              F2600220
DFI11  RDS 147               PREPARE TO READ INPUT TAPE                 F2600230
DFI12  CPY NOR,1             COPY FIRST OF FOUR WORDS                   F2600240
       TRA DFI13                                                        F2600250
       TRA DFI04             END OF FILE--GO TO EXIT                    F2600260
       TRA DFI20             END OF RECORD//GO TO REDUND TEST           F2600270
DFI13  CPY NOR+1,1           COPY SECOND OF FOUR WORDS                  F2600280
       TRA DFI14                                                        F2600290
       TSX DIAG,4            FLASE END OF FILE.                         F2600300
       TSX DIAG,4            FALSE END OF RECORD.                       F2600310
DFI14  CPY NOR+2,1           COPY THIRD OF FOUR WORDS                   F2600320
       TRA DFI15                                                        F2600330
       TSX DIAG,4            FLASE END OF FILE.                         F2600340
       TSX DIAG,4            FALSE END OF RECORD.                       F2600I50
DFI15  CPY NOR+3,1           COPY FOURTH OF FOUR WORDS                  F2600360
       TRA DFI16                                                        F2600370
       TSX DIAG,4            FLASE END OF FILE.                         F2600380
       TSX DIAG,4            FALSE END OF RECORD.                       F2600390
DFI16  CLA NOR+1,1                                                      F2600400
       TZE DFI30             2ND WORD ZERO MEANS END OF NEST            F2600410
       SUB ALLONE            2ND WORD ALL ONES                          F2600420
       TZE DFI19             MEANS BEGINNING OF BLOCK                   F2600430
       MSE 99                WAS PREVIOUS FOUR WORDS BEG OF BLOCK       F2600440
       TRA DFI17             NO, LEAVE FIRST WORD PLUS                  F2600450
       CAL L(M0)             MAKE SIGN OF                               F2600460
       ORS NOR,1             FIRST WORD MINUS                           F2600470
DFI17  TXI DFI18,1,-4        INDEX BY  4 FOR NEXT 4 WORDS               F2600480
DFI18  TXH DFI12,1,-3904     TEST AND CONTINUE NEXT  4 WORDS            F2600490
       TSX DIAG,4            NOR BUFFER SIZE EXCEEDED.                  F2600500
DFI19  PSE 99                TURN ON BEGIN OF BLOCK IND                 F2600510
       TRA DFI12             CONTINUE NEXT FOUR WORDS                   F2600520
DFI20  WRS 219               DELAY UNTIL TAPE DISCONNECTS               F2600530
       RTT                   TEST TAPE CHECK                            F2600540
       TRA DFI21             ERROR                                      F2600550
       TRA DFI10             IF NO ERROR RETRN TO READ NEXT RECORD      F2600560
DFI21  TIX DFI22,2,1         REDUCE ERROR COUNTER BY 1                  F2600570
       TSX DIAG,4            TAPE CHECK. TRIED 5 TIMES.                 F2600580
DFI22  BST 147               RESTORE TAPE POSITION                      F2600590
       LXD ERAS,1            AND INDEX 1                                F2600600
       TRA DFI11             FOR ANOTHER TRY                            F2600610
DFI30  CPY ERAS              CHECK THAT END OF RECORD                   F2600620
       TSX DIAG,4            HAS BEEN REACHED---END OF NEST.            F2600630
       TSX DIAG,4            RECORD IS ONLY FOUR WORDS.                 F2600640
       WRS 219               DELAY UNTIL TAPE DISCONNECTSP              F2600650
       RTT                   TEST TAPE CHECK                            F2600660
       TRA DFI40             ERROR                                      F2600670
       TRA DFI50             PROCEED TO PROCESS THIS NEST               F2600680
DFI40  TIX DFI22,2,1         REDUCE ERROR COUNT BY 1 AND RETRY          F2600690
       TSX DIAG,4            TAPE CHECK.  TRIED 5 TIMES.                F2600700
DFI50  SXD DFI55,1           STORE INDEX FOR END OF BLOCK TEST          F2600710
DFI51  TXI DFI52,1,4                                                    F2600720
DFI52  CLA NOR,1             SCAN UP EVERY FOURTH WORD                  F2600730
       TPL DFI51             TO TEST FOR,MINUS                          F2600740
       SXD ERAS,1            SAVE FOR NEXT END OF BLOCK TEST            F2600750
       CLS NOR,1             RESTORE PLUS SIGN TO                       F2600760
       STO NOR,1             FIRST WORD OF BLOCK                        F2600770
DFI53  WRS 148               SELECT OUTPUT TAPE                         F2600780
       LXA L(100),2          PREPARE FOR NEXT 100 WORDS                 F2600790
DFI54  CPY NOR,1             WRITE BLOCK IN                             F2600800
       TXI DFI55,1,-1        FORWARD DIRECTION                          F2600810
DFI55  TXL DFI60,1           UNTIL END OF BLOCK                         F2600820
       TIX DFI54,2,1         IF WORDS IN RECORD                         F2600830
       TRA DFI53             START ANOTHER RECORDEACHED 0               F2600840
DFI60  LXD ERAS,1            IF INDEX 1 HAS NOT REACHED 0               F2600850
       TXH DFI50,1,0         PROCESS NEXT BLOCK                         F2600860
       TRA DFI05             RETURN TO PROCESS NEXT NEST                F2600870
 EXIT  RDS 145               SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.F2600880
       TRA 4                                                                    
       REM   CONSTANTS AND ERAS STORAGE FOR DFI                         F2600900
L(0)       0                                                            F2600910
 L(5)      5                                                            F2600920
ALLONE OCT 377777777777                                                 F2600930
L(M0)  MZE 0 -                                                          F2600940
L(100)     100                                                          F2600950
ERAS   BSS 1                                                            F2600960
       ORG 128               ORIGIN FOR NOR                             F2600970
NOR    BSS 3904                                                         F2600980
 DIAG  EQU 4                                                            F2600990
       END                                                              F2601000
       ORG 3641                                                                                         
       REM   MASTER RECORD CARD = FN055                                         
       REM ROUTINE TO HANDLE ADDITIONAL SU8ROUTINES IF DESIRED          F3B12180
       TIX M13505,4,1        COMPARE M1D FOR-PRESENT SUBROUTINES        F3B12190
       LXD L(0),4            COMPARE ADD IT, 0PEN SUBS, IN M1D2S        F3B12200
 0P1   CAS M1D2,4            WITH CURRENT NAME.                         F3B12210
       TXI 0P2,4,-1          NOT FOUND, GET NEXT M1D2 ENTRY             F3B12220
       TRA 0P3               FOUND                                      F3B12230
       TXI 0P2,4,-1          NOT FOUND, GET NEXT M1D2 ENTRY             F3B12240
 0P2   TXH 0P1,4,M1D2L       TEST FOR END OF M1D2.                      F3B12250
       TSX 4,4               CURRENT SUB NOT IN M1D2                    F3B12260
 0P3   SXD CCELL,4           SAVE 1RC FOR LATER BRANCH OF SAME INST.    F3B12270
       TXI 0P3+2,1,-2        INDEX TO GET NEXT 4 WORD INSTR.            F3B12280
       TSX TEST,4            TEST FOR END OF CUR. COMPAIL REC.          F3B12290
       LXD CCELL,4           GO TO THE COMPILER FOR PART, SUBROUTINE    F3B12300
 0P4   TRA 0P4+1,4           COMPAIL INSTRUCTION                        F3B12310
       TRA XDIM              OPEN SUB IS XDIM                           F3B12320
       TRA DIM               OPEN SUB IS DIM                            F3B12330
       HTR                   SPACE FOR BRANCHING T0 10 ADDITIONAL       F3B12340
       HTR                   OPEN SU8ROUTINES THE LIST OF TRANSFERS     F3B12350
       HTR                   TO ADDITIONAL 0PEN SUBS MUST BE ORDER-     F3B12360
       HTR                   ED IN THE SAME WAY AS THE ADDITIONAL 0PEN  F3B12370
       HTR                   SUB NAMES ARE ORDERED IN THE-DICTION-      F3B12380
       HTR                   ARY M1D2.                                  F3B12390
       HTR                                                              F3B12400
       HTR                                                              F3B12410
       HTR                                                              F3B12420
       HTR                                                              F3B12430
       REM THE DICTIONARY FOR ADDITIONAL OPEN SUBROUTINES, AND          F3B12440
       REM CONSTANTS USED IN THE DISCRIMINATION PROCEDURE.              F3B12450
 M1D2  BCD 1XDIM             0PEN SUB XDIM                              F3B12460
       BCD 1DIM              0PEN SUB DIM                               F3B12470
       HTR                   SPACE FOR ADDING 10 ADDITIONAL 0PEN SUBS.  F3B12480
       HTR                                                              F3B12490
       HTR                                                              F3B12500
       HTR                                                              F3B12510
       HTR                                                              F3B12520
       HTR                                                              F3B12530
       HTR                                                              F3B12540
       HTR                                                              F3B12550
       HTR                                                              F3B12560
       HTR                                                              F3B12570
       REM FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES          F3B12580
       REM 1.TEST                                                       F3B12590
 TEST  SXD C,4               SAVE LINKAGE                               F3B12600
       PXD 0,1               COMPARE CURRENT VALUE OF IR1 WITH          F3B12610
       CAS M1ALWN            2S COMPL. OF WORD COUNT.                   F3B12620
       TRA 1,4                                     ..                   F3B12630
       TSX M10210,4        CURRENT RECORD EXHAUSTED                     F3B12640
       TSX 4,4               STOP. NO OF WDS. IN CUR REC EXCEEDS WD.    F3B12650
       REM                   COUNT                                      F3B12660
       LXD C,4               RESTORE LINKAGE                            F3B12670
       TRA 1,4               RETURN                                     F3B12680
       REM 2 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED          F3B12690
TEARG1 CLA AIL,1             TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR  F3B12700
       SUB ALLONE                                                       F3B12710
       TZE ERROR1            ALL ONES. GO TO PROPER STOP                F3B12720
       TRA 1,4               NOT ALL ONES. RETURN                       F3B12730
       REM 3 TEARG2. ROUTINE TO DET. IF TOO MANY ARGS. SPECIFIED        F3B12740
TEARG2 CLA AIL,1             TEST FOR ALL ONES IN TST WORD OF           F3B12750
       TRA SUBPAT                                                       F3B12760
ARGTAG CLA AIL+2,1           PLACE SUMB ADDRESS OF CURRENT ARG          F3B12770
       STO M1CW+2            IN M1CW+2                                  F3B12780
       CLA AIL+3,1           PLACE RELATIVE ADD. AND TAG OF CUR         F3B12790
       STO M1CW+3            RENT ARG. IN M1CW+3                        F3B12800
       ANA TGMSK             TEST FOR TAG                               F3B12810
       TZE 1,4               NO TAG. RETURN                             F3B12820
       SXD C,4               ARG TAGGED. SAVE LINKAGE                   F3B12830
       MSE 99                TEST FOR END OF CHTAG TABLE                F3B12840
       TSX M12500,4          CHTAG TABLE NOT EXHAUSTED.                 F3B12850
       PSE 99                END OF CHTAG TABLE. RESTORE IN             F3B12860
       LXD C,4               DICATOR AND LINKAGE                        F3B12870
       TRA 1,4               RETURN                                     F3B12880
       REM THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIMAND XDIM   F3B12890
 XDIM  PSE 100               TURN ON SENSE LIGHT 100 FOR XDIM           F3B12900
 DIM   TSX TEARG1,4          TEST NO. OF ARGS SPECIFIED                 F3B12910
       TSX ARGTAG,4          TEST WHETHER FIRST ARG. IS TAGGED          F3B12920
       TXI O1,1,-4           INDEX COMPAIL RECORD TO BEG. OF NEXT REC.  F3B12930
 O1    TSX TEST,4            TEST FOR END OF CURRENT AIL RECORD         F3B12940
       TSX TEARG2,4          TEST NO. OF ARGS. SPECIFIED                F3B12950
       TSX CIT00,4           COMPILE FIRST INST. FOR DIM AND XDIM       F3B12960
       HTR M1CW              LOCATION (1ST WD)                          F3B12970
       HTR L(CLA)            CLA(2ND WD.)                               F3B12980
       HTR M1CW+2            FIRST ARG (3RD WD)                         F3B12990
       HTR M1CW+3            REL. ADD END TAG OF 1ST ARG (4TH WD)       F3B13000
       TSX ARGTAG,4          TEST WHETHER 2ND. ARG TAGGED ETC.          F3B13010
       CAL L(SUB)            PREPARE OP. WD (2ND WD) OF 2ND AIL         F3B13020
       MSE 100               ENTRY. OP. IS SUB. FOR XDIM                F3B13030
       CAL L(FSB)            FSB FOR DIM                                F3B13040
       SLW M1CW+1                                                       F3B13050
       TSX CIT00,4           COMPILE 2ND INST FOR DIM OR XDIH           F3B13060
       HTR L(0)              0 (1ST WD)                                 F3B13070
       HTR M1CW+1            SUB(XDIH), FSB(DIM) (2ND. WD)              F3B13080
       HTR M1CW+2            2ND. ARG (3RD WD)                          F3B13090
       HTR M1CW+3            REL. ADD AND TAG OF 2ND ARG (4TH WD)       F3B13100
       TSX CIT00,4           COMPILE 3RD INST FOR DIM AND XDIM          F3B13110
       HTR L(0)              0(1ST WD)                                  F3B13120
       HTR L(TPL)            TPL(2ND WD)                                F3B13130
       HTR L(017)            0CT. 17 IN BITS S-5                        F3B13140
       HTR L(2D)             REL. ADD 2, TAG 0 (4TH WD)                 F3B13150
       TSX CIT00,4           COMPILE LAST INST FOR DIH AND XD)M         F3B13160
       HTR L(0)              0 (1STWD)                                  F3B13170
       HTR L(PXD)            PXD (2ND WD)                               F3B13180
       HTR L(0)              0 (3RD WD)                                 F3B13190
       HTR L(0)              0 (4TH WD)                                 F3B13200
       TXI RESUME,1,-4       INDEX CUR AIL RECORD TO BEGINNING          F3B13210
       REM                   OF NEXT 4WD INST AND RETURN TO MAIN PROG   F3B13220
       REM CONSTANTS AND ERASIBLE STORAGE FOR FOUR                      F3B13230
       REM SUBROUTINES USED IN COMPILING OPEN SUBROUTINES               F3B13240
 C     HTR                                                              F3B13250
 M1D2L EQU -2                THE 2S COMPL OF THE LENGTH OF              F3B13260
       REM                   M1D2. THIS CARD HUST BE CHANGED WHEN       F3B13270
       REM                   ADDITIONS TO M1D2 ARE MADE                 F3B13280
L(0)   SYN 1144                                                         F3B13290
M13505 SYN 710                                                          F3B13291
CCELL  SYN 1226                                                         F3B13292
M1ALWN SYN 1221                                                         F3B13293
M10210 SYN 225                                                          F3B13294
AIL    SYN 1239                                                         F3B13295
ALLONE SYN 1161                                                         F3B13300
ERROR1 SYN 1133                                                         F3B13301
ERROR2 SYN 1139                                                         F3B13302
M1CW   SYN 1234                                                         F3B13303
TGMSK  SYN 1159                                                         F3B13304
M12500 SYN 526                                                          F3B13305
       REM CONSTANS USED IN COMPILING THE OPEN SUBRTNS. XDIM AND DIM    F3B13310
CIT00  SYN 455                                                          F3B13320
L(CLA) SYN 1165                                                         F3B13330
L(SUB) BCD 1SUB000                                                      F3B13340
L(FSB) BCD 1FSB000                                                      F3B13350
L(TPL) BCD 1TPL000                                                      F3B13360
L(PXD) BCD 1PXD000                                                      F3B13370
L(017) SYN 1189                                                         F3B13380
L(2D)  SYN 1151                                                         F3B13390
RESUME SYN 508                                                          F3B13400
SUBPAT SUB ALLONE                                                       F3B13401
       TZE 1,4                                                          F3B13402
       TRA ERROR2                                                       F3B13403
 R00M  HTR  SPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB. COMPILATION  F3B13414
       END 3641                                                                 
       REM    MASTER RECORD CARD = FN056                                                                
       REM THE FOLLOWING PROGRAM CONSTITUTES THE FIRST SECTION OF THE   F3B00010
       REM MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE F3B00020
       REM DO FILE OF COMPILED INSTRUCTIONS. IN ADDITION TO MERGING     F3B00030
       REM THESE TWO FILES, IT INSERTS THE ARITHMETIC OPEN SUBROUTINES  F3B00040
       REM IN THEIR CORRECT P0SITION IN THE FILE OF COMPILED INSTRUCT-  F3B00050
       REM IONS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL  F3B00060
       REM FILE INSTRUCTIONS                                            F3B00070
       ORG 24                                                           F3B00080
       REM  TAPE P0SITIONING T0 READ FORTAG INTO CORE STORAGE           F3B00090
       LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00100
M10000 RDS 146             READ BINARY TAPE 2 WITH FORTAG TBL           F3B00110
       CPY ERAS            THE 7TH RECORD OF 5TH FILE WHICH IS          F3B00120
       TSX M10043,2        THE TAPE TABLES HAVING 11 RECORDS.           F3B00130
       NOP M10000          TAPE 2 STANDS AT DOTAGB RECORD               F3B00140
       LXD ERAS,1          COUNT FILE. TAPE 2 BACKSPACED NO.            F3B00150
       TXI M10010,1,7      RECORDS IN DOTAGB PLUS 7 T0 START FORTAG,    F3B00160
M10010 BST 146                                                          F3B00170
       TIX M10010,1,1                                                   F3B00180
       REM READ FORTAG INTO CORE STORAGE                                F3B00190
       RTT                 TURN-OFF TAPE INDICATOR,                     F3B00200
       NOP                 IF 0O.                                       F3B00210
       LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00220
M10020 RDS 146             READ TAPE 2 P0SITIONED AT FORTAG TBL         F3B00230
       CPY FORTAG-1        AND TEST FIRST WORD TO GUARANTEE             F3B00240
       CLA FORTAG-1        BEGINNING OF FORTAG TABLE.                   F3B00250
       SUB M1CON+4         FORTAG IS TABLE NO. 4.                       F3B00260
       TZE M10030          TABLE NO. IS FIRST WORD OF TAPE TABLES.      F3B00270
       TSX 4,4             WRONG TABLE. IS NOT FORTAG.                  F3B00280
M10030 CPY FORTAG-1        READ 2ND FORTAG TABLE WORD AND TEST          F3B00290
       CLA FORTAG-1        THERE ARE FORTAG ENTRIES.                    F3B00300
       TZE M10040          FORTAG TABLE ENTRIES ARE 1 WORD.             F3B00310
       LXA M1CON,2         LOAD 0 INTO INDEX REG. B.                    F3B00320
M10035 CPY FORTAG,2        READ 3RD AND SUCCEEDING WORDS                F3B00330
       TXI M10035,2,-1     OF FORTAG INTO CONSEC, LOCATIONS.            F3B00340
       TSX 4,4             EOF SKIP. FORTAG NOT LAST REC. OF FILE.      F3B00350
M10040 TSX M10043,2        TEST IF TAPE READ CORRECTLY.                 F3B00360
       NOP M10020          RE-READ TAPE LOCATION.                       F3B00370
       TRA M10050          CONTINUE IN MAIN PROGRAM.                    F3B00380
M10043 WRS 219             DELAY 704 FOR RTT TEST.                      F3B00390
       RTT                                                              F3B00400
       TRA M10045          TO TAPE READ ERROR ROUTINE.                  F3B00410
       TRA 2,2             TAPE 2 READ CORRECTLY. RETURN MAIN RTN,      F3B00420
M10045 CLA 1,2             TAPE READ ERROR RTN. INITIALIZE              F3B00430
       STA M10048          TIX ADDRESS TO RETURN TO PROPER              F3B00440
       BST 146             RE-READ TAPE LOCATION.                       F3B00450
M10048 TIX 0,1,1                                                        F3B00460
       TSX 4,4             BINARY READ 5 TIMES UNSUCCESSFULLY           F3B00470
       REM POSITIONING OF TAPE 2, TAPE 3, TAPE 4, TO READ COMPAIL       F3B00480
       REM WRITE MERGE 1, AND READ DO FILE, RESP.                       F3B00490
M10050 REW 147             REWIND TAPE 3 TO WRITE MERGE 1.              F3B00500
       REW 148             REWIND TAPE 4 FOR COMPDO FILE.               F3B00510
       RDS 148             SPACE OVER TRALEV THE 1ST FILE ON            F3B00520
M10055 CPY ERAS            TAPE 4 T0 GET T0 FIRST RECORD                F3800530
       TRA M10055          OF COMPDO FILE.                              F3B00540
       TRA M10060          END OF TRALEV FILE.                          F3800550
       TRA M10055-1        SPACE 0VER NEXT TRALEV RECORD.               F3B00560
M10060 LXA M1CON,2         LOAD 0 INTO IRB.                             F3B00570
       TXI M10060+2,2,17                                                F3B00580
       BST 146             BACKSPACE BINARY TAPE 2 BY                   F3B00590
       TIX M10060+2,2,1    13 RECORDS TO POSITIDN TAPE 2                F3B00600
       LXA M1ECTR,1        TO READ COMPAIL RECORD COUNT FILE.           F3B00610
M10063 RDS 146                                                          F3B00620
       CPY ERAS                                                         F3B00630
       TSX M10043,2                                                     F3B00640
       NOP M10063          BACKSPACE TAPE 2 OVER COMPAIL                F3B00650
       LXA ERAS,2          RECORD COUNT, A EOF MARK, AND                F3B00660
       TXI M10070,2,2      OVER COMPAIL RECORDS                         F3B00670
M10070 BST 146             TO POSITION TAPE 2 TO FIRST                  F3B00680
       TIX M10070,2,1      RECORD OF COMPAIL FILE.                      F3B00690
       MSE 97              TURN-OFF SENSE LIGHTS 1,3, AND 4.            F3B00700
       NOP                 SENSE LIGHT 2 USED BY SEC. 2                 F3B00710
       MSE 99              TO INDICATE TO SEC. 3 THERE                  F3B00720
       NOP                 ARE NO COMPDO INSTR IF                       F3B00730
       MSE 100             LIGHT 2 IS ON.                               F3B00740
       NOP                                                              F3B00750
       REM CHANGE TAG TABLE EDIT                                        F3B00760
PEC00  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00770
PEC01  RDS 195             UNEDITED CHTG TABLE ON L0G OR 3.             F3B00780
       LDA M1CON           0=DR ORG UCHTG - 2                           F3B00790
       CPY ERAS            TABLE LENGTH TO ERAS                         F3B00800
       CPY ERAS+1          CHECK SUM INTO ERAS+1.                       F3B00810
       CAL ERAS            CHECK DRUM READ                              F3B00820
       SUB ERAS+1          TEST IF TABLE LENGTH READ                    F3B00830
       TZE PEC02           CORRECTLY FROM DRUM 3.                       F3B00840
       TIX PEC01,4,1       READ DRUM 5 TIMES IF LENGTH WRONG.           F3B00850
       TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B00860
PEC02  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00870
PEC03  CLA ERAS            TEST IF THERE ARE ANY ENTRIES                F3B00880
       TZE PEC20           IN CHG TAG TABLE.                            F3B00890
       PAX 0,3             UNEDITED TABLE LENGTH TO IRA, IRB            F3B00900
       SUB PEC05           COMPUTE CORE ADDRESS INTO WHICH              F3B00910
       STA PEC04           CHG TAG TABLE ENTRIES TO BE                  F3B00920
       RDS 195             READ PLUS TABLE LENGTH FOR TIX OPER.         F3B00930
       LDA M1CON+2         DRUM READ ADDRESS OF 2.                      F3B00940
PEC04  CPY 0,1             READ CHG TAG TABLE INTO UCHTG BLOCK          F3B00950
       TIX PEC04,1,1                                                    F3B00960
       LXA M1CON,1         LOAD 0 INTO IRA.                             F3B00970
PEC05  CAL UCHTG,1         UNEDITED CHG TAG TABLE ENTRIES CONSIST       F3B00980
       ACL UCHTG+1,1       OF 3 WORDS. TEST LOG SUM OF                  F3B00990
       SUB UCHTG+2,1       2 WORDS EQUALS DRUM CHECK                    F3B01000
       TZE PEC06           SUM FOR THE ENTRY.                           F3B01010
       TIX PEC03,4,1       DRUM READ ERROR. TRY 5 TIMES.                F3B01020
       TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLT.            F3B01030
PEC06  TXI PEC07,1,-3      MODIFY TABLE ADDR FOR NEXT 3 WORDS.          F3B01040
PEC07  TIX PEC05,2,3       TEST FOR END CHG TAG BLOCK                   F3B01050
       REM BEGIN EDIT OF UCHTG                                          F3B01060
PEC10  LXA M1CON,3         LOAD 0 INTO IRA, IRB                         F3B01070
       CLA ERAS+1          PUT UCHTG TABLE LENGTH IN ADDRESS AND        F3B01080
       ORA FORTAG-1        FORTAG TABLE LENGTH IN DECREMENT             F3B01090
       COM 0               PORTIONS OF ACCUM.                           F3B01100
       ADD M1CON+18        OBTAIN 25 COMP OF FORTAG                     F3B01110
       STD PEC16           LENGTH AND UCHTG LENGTH AND                  F3B01120
       ALS 18              STORE IN DEC OF TEST INST.                   F3B01130
       STD PEC14                                                        F3B01140
PEC11  CLA FORTAG,1        SUCCESSIVE DUPLICATES IN                     F3B01150
       CAS FORTAG+1,1      FORTAG TABLE NOT COMPARED TO                 F3B01160
       TRA PEC12           UCHTG TABLE ENTRIES.                         F3801170
       TXI PEC11,1,-1      IRA KEEPS TRACK OF FORTAG ENTRIES.           F3B01180
PEC12  ALS 18              IRC KEEPS TRACK OF UCHTG ENTRIES.            F3B01190
       STO ERAS            MOVE TAG OF CURRENT FORTAG ENTRY             F3B01200
       LXA M1CON,4         INTO DECREMENT AND COMPARE WITH              F3B01210
PEC13  CLA UCHTG+1,4       TAG1 IN DECREMENT OF UCHTG                   F3B01220
       ANA M1CON+13        ENTRIES. IF TAGS ARE EQUAL,                  F3B01230
       CAS ERAS            TEST FORTAG INTERNAL                         F3B01240
       TXI PEC14,4,-3      FORMULA LIES WITHIN RANGE                    F3B01250
       TRA PEC30           GIVEN IN FIRST WORD                          F3B01260
       TXI PEC14,4,-3      OF UCHTG ENTRY.                              F3B01270
PEC14  TXH PEC13,4         2S COMP OF UCHTG LENGTH IN DECREMENT.        F3B01280
PEC15  TXI PEC16,1,-1      END OF UCHTG TABLE.                          F3B01290
PEC16  TXH PEC11,1         2S COMP OF FORTAG LENGTH IN DECREMENT.       F3B01300
       REM END OF EDIT, COMPUTE CHTGE2                                  F3B01310
PEC17  PXD 0,2             END OF FORTAG TABLE.                         F3B01320
       STO CHTGL           SAVE VALUE OF IRB FROM                       F3B01330
       CLA M1CON           EDIT CHG TAG TABLE ROUTINE                   F3B01340
       STO CHTGE1          AS TABLE LENGTH CONTROL                      F3B01350
       LXA M1CON,4         WORD FOR CHANGE TAG TABLE                    F3B01360
       CLA CHTG,4          SEARCH ROUTINE AT M12500.                    F3B01370
       STO CHTGFN          CALCULATE NUMBER OF ENTRIES                  F3B01380
PEC18  TXI PEC18+1,4,-2    IN EDITED CHG TAG TABLE WITH                 F3B01390
       PXD 0,4             SAME INTERNAL FORMULA                        F3B01400
       SUB CHTGL           NUMBER AND RECORD IN                         F3B01410
       TZE PEC19           CONTR0L WORDS CHTGE1 AND CHTGE2              F3B01420
       CLA CHTG,4          TO PREVENT SEARCHING ENTIRE                  F3B01430
       SUB CHTGFN          EDITED CHG TAG TABLE IN                      F3B01440
       TZE PEC18           SEARCH AT M12500.                            F3B01450
PEC19  PXD 0,4                                                          F3B01460
       STO CHTGE2                                                       F3B01470
       TRA RSTO00                                                       F3B01480
       REM ROUTINE FOR EMPTY UCHTG TABLE                                F3B01490
PEC20  CLA M1CON           PLACE ZEROS INTO 3 CONTROL                   F3B01500
       STO CHTGL           WORDS FOR CHANGE TAG TABLE SEARCH            F3B01510
       STO CHTGE1          ROUTINE TO INDICATE NO ENTRIES               F3801520
       STO CHTGE2          IN EDITED CHG TAG TABLE.                     F3801530
       PSE 99              SENSE LIGHT 3 TURNED ON TO INDICATE          F3B01540
       TRA RSTO00          NO ENTRIES IN EDITED CHG TAG TABLE           F3B01550
       REM SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG         F3B01560
PEC30  CLA FORTAG,1        TAG OF FORTAG ENTRY EQUAL                    F3B01570
       ANA M1CON+13        TO TAG1 OF UCHTG ENTRY.                      F3B01580
       STO COMBOX          TEST FORTAG INTERNAL FORMULA                 F3B01590
       CLA UCHTG,4         NUMBER LIES WITHIN RANGE                     F3B01600
       ANA M1CON+13        GIVEN IN FIRST WORD OF UCHTG                 F3B01610
       CAS COMBOX          ENTRY. IF RANGE CONDITION IS                 F3B01620
       TXI PEC14,4,-3      SATISFIED, PRODUCE ENTRY                     F3B01630
       TXI PEC14,4,-3      FOR EDITED CHG TAG TABLE.                    F3B01640
       CLA UCHTG,4         EDITED CHG TAG ENTRY CONSISTS                F3B01650
       ALS 22              OF 2 WORDS. FIRST WORD HAS                   F3B01660
       ARS 4               INTERNAL FORMULA NUMBER                      F3B01670
       CAS COMBOX          IN DECREMENT AND ZEROS IN                    F3B01680
       TRA PEC31           ADDRESS. SECOND WORD HAS                     F3B01690
       TRA PEC31           TAG1 IN DECREMENT AND TAG2                   F3B01700
       TXI PEC14,4,-3      IN ADDRESS TAKEN FROM 2ND                    F3801710
PEC31  CLA COMBOX          WORD OF UCHTG ENTRY. CONTINUE                F3B01720
       STO CHTG,2          WITH FORTAG AND UCHTG TAG                    F3B01730
       CLA UCHTG+1,4       COMPARIS0N LOOP UNTIL FORTAG                 F3B01740
       STO CHTG+1,2        TABLE EXHAUSTED.                             F3B01750
       TXI PEC32,2,-2                                                   F3B01760
PEC32  TXH PEC15,2,-602    CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS       F3B01770
       TSX 4,4             CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS.      F3B01780
       REM SXTX TABLE READ ROUTINE                                      F3B01790
RSTO00 MSE 98              TEST IF DO FILE EMPTY.                       F3B01800
       TRA RSTO05-1        SENSE LIGHT 2 ON INDICATES                   F3801810
       TRA M10200          NO SXTX ENTRIES.                             F3B01820
       LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B01830
RSTO05 RDS 193             SXDTX TABLE 0N LOGICAL DRUM 1,               F3B01840
       LDA M1CON+19        STARTING AT LOCATION 202                     F3B01850
       CPY ERAS            1ST WORD IS ORIGIN + 2+ TAB LENGTH.          F3801860
       CPY ERAS+1          2ND DR WD IS CK SUM FOR 1ST WD.              F3801870
       CAL ERAS            SXDTX TABLE ENTRY HAS 3 WORDS.               F3801880
       SUB ERAS+1          THIRD WORD IS CHECK SUM.                     F3B01890
       TZE RSTO20          TEST THAT FIRST 2 WORDS OFF                  F3801900
       TIX RSTO05,4,1      DRUM READ CORRECTLY.                         F3801910
       TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B01920
RSTO20 LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR              F3801930
RSTO21 CLA ERAS            SUBTRACT ORIGIN+2 FROM FIRST                 F3B01040
       SUB M1CON+20        WORD TO GET SXDTX TABLE LENGTH.              F3801950
       TNZ RSTO30                                                       F3801960
       STO SXTXL           STORE 0 AS SXDTX LENGTH IF NO                F3801970
       TRA M10200          ENTRIES AND GO TO READ AIL RTN.              F3801980
RSTO30 STO SXTXL           STORE SXDTX LENGTH AND LOAD                  F3B01990
       PAX 0,3             SXDTX LENGTH INTO IRA, IRB.                  F3802000
       SUB RSTO40+3        CALC. ADDRESS TO READ IN SXTX TABLE.         F3802010
       STA RSTO40          INITIAL WORD OF TABLE IS                     F3B02020
       STA M10305          FORTAG + 300. INITIALIZE                     F3802030
       STA M10310+1        ADDRESSES FOR SXTX TABLE SEARCH.             F3802040
       RDS 193             READ SXTX ENTRIES FROM                       F3802050
       LDA M1CON+20        DRUM 1, LOC. 204.                            F3B02060
RSTO40 CPY 0,2             CPY LOOP                                     F3B02070
       TIX RSTO40,2,1      SXTX TABLE LENGTH IN IRB.                    F3802080
       LXA M1CON,2                                                      F3B02090
       CAL SXTX,2          TEST LOGICAL SUM OF 1ST TWO                  F3802100
       ACL SXTX+1,2        WORDS EQUAL CHECK SUM IN 3RD                 F3802110
       SUB SXTX+2,2        WORD FOR EACH SXTX ENTRY.                    F3802120
       TZE RSTO60          PROGRAM AUT0MATICALLY TRIES                  F3B02130
       TIX RSTO21,4,1      RE-READING DRUM 3 TIMES IF ERROR.            F3802140
       TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B02150
RSTO60 TXI RSTO60+1,2,-3                                                F3B02160
       TIX RSTO40+3,1,3    SXTX TABLE LENGTH IN 1RA,                    F3B02170
       TRA M10200          SXTX TABLE IN CORES SUCCESSFULLY.            F3B02180
       REM READ AIL, READ DO ROUTINES                                   F3B02190
M10200 LXA M1CON,4         0 IN IRC WHEN SKIPPING CL0SED SRTNS.         F3B02200
M10210 CLA M1CON+1         STORE 1 IN M1TRC, TP 2.                      F3B02210
       STO M1TRC           READ ERROR COUNTER.                          F3B02220
M10220 RDS 146             READ 1 RECORD OF AIL, THE 2ND                F3B02230
       LXA M1CON,1         FILE ON TP 2 ALREADY POSITIONED.             F3B02240
M10230 CPY AIL,1           AIL REC. READ OVER FORTAG FILE.              F3B02250
       TXI M10230,1,-1     IRA GIVES POSITION IN AIL RECORD.            F3B02260
       TRA M10800          END OF AIL FILE.                             F3B02270
       WRS 219             END OF AIL RECORD.                           F3B02280
       RTT                                                              F3B02290
       TRA M10700          REDUNDANCY WHEN READING TP 2.                F3B02300
M10240 SXD M1ALWN,1        STORE 2S COMPL AIL WORD COUNT                F3B02310
       LXA M1CON,1         IN CURRENT AIL REC, USUALLY 100              F3B02320
       PXD 0,4             RD RTN ENTRY VIA TSX                         F3B02330
       TZE PAT1            ROUTINE TO SKIP OVER FORTRAN FUNCTIONS       F3B02340
RET1   TRA 2,4             IRC VALUE SET BY TSX RETURN F FCN TEST       F3B02350
PAT1   CAL AIL,1           A FORTRAN FCN, A CLOSED SUBRTN,              F3B02360
       ANA AIL+1,1         IS IDENTIFIED BY 4 WORDS                     F3B02370
       ANA AIL+2,1         FILLED WITH 1 BITS.                          F3B02380
       ANA AIL+3,1         TEST IF AIL ENTRY IS ALL 1 BITS,             F3B02390
       SLW ERAS            INDICATES SUCCEEDING ENTRIES                 F3B02400
       CLA ERAS            BEL0NG T0 A FORTRAN FCN AND                  F3B02410
       SUB M1CON+17        ARE SKIPPED OVER HERE.                       F3B02420
       TNZ PAT5            AIL ENTRY NOT A FORTRAN FCN.                 F3B02430
       CLA M1CON+6         AIL ENTRY IS A FORTRAN FCN.                  F3B02770
       STD PAT5+1          STORE 1 IN DECRE. F FCN EXISTS.              F3B02450
       TXI OUT34,1,-4      TO TEST IF LAST AIL INSTR OF BUFFER.         F3B02460
PAT2   PXD 0,1             COMPARE NO. CURRENT WORD OF                  F3B02470
       CAS M1ALWN          AIL REC WITH AIL REC COUNT                   F3B02480
       TRA PAT3            TO TEST IF LAST INSTR IN REC.                F3B02490
       TSX M10210,4        READ NEXT AIL RECORD.                        F3B02500
       TSX 4,4             WD COUNT-NOT EQUAL TO REC COUNT              F3B02510
PAT3   CLA AIL,1           TEST IF 0PEN SUBRTN END,                     F3B02520
       TNZ PAT4            BY 1S IN FIRST WORD OF ENTRY.                F3B02530
       TXI PAT2,1,-4       0S IN IST WORD INDICATES F FCN ENTRY         F3B02540
PAT4   SUB M1CON+17        -377777777777.                               F3B02550
       TNZ PAT5            IST DESIRED AIL ENTRY FOUND                  F3B02560
       CAL AIL,1           TEST IF CURRENT ENTRY                        F3B02570
       ANA AIL+1,1         AN OPEN SUBRTN END OR                        F3B02580
       TRA OUT24           ANOTHER FORTRAN FCN.                         F3B02590
PAT5   LXA M1CON,4                                                      F3B02600
       TXL M10250          UNCON. TR TO READ IN DO RECORD.              F3B02610
OUT24  ANA AIL+2,1         CONTINUATION OF TEST IF                      F3B02620
       ANA AIL+3,1         CURRENT ENTRY F FCN OR                       F3B02630
       COM                 OPEN SUBRTN ENTRY.                           F3B02640
       ANA M1CON+17        -377777777777.                               F3B02650
       TZE PAT2-1          ENTRY INDICATES F FCN.                       F3B02660
       TXI PAT2,1,-4       OPEN SUBRTN END.                             F3B02670
OUT34  PXD 0,1             COMPARE NO. CURRENT WORD OF                  F3B02680
       CAS M1ALWN          AIL REC WITH AIL REC COUNT                   F3B02690
       TRA OUT43           TO TEST IF LAST INSTR IN RECORD.             F3B02700
OUT41  TSX M10210,4        READ NEXT AIL RECORD.                        F3B02710
       TSX 4,4             WORD COUNT EXCEEDS TOTAL COUNT IN REC.       F3B02720
OUT43  TXI PAT2,1,-4       ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE       F3B02730
M10250 CLA M1CON+1         STORE 1 IN M1TRC, TP 2                       F3B02740
       STO M1TRC           READ ERROR COUNTER.                          F3B02750
M10260 RDS 148             READ 1 RECORD OF DO, THE 1ST                 F3B02760
       LXA M1CON,2         FILE ON TP 2 ALREADY POSITIONED.             F3B02770
M10270 CPY DO,2            DO REC. READ 100 WDS BEYOND AIL.             F3B02780
       TXI M10270,2,-1     IRB GIVES P0SITION IN DO RECORD.             F3B02790
       TRA M10850          TO END OF DO FILE RTN.                       F3B02800
       WRS 219             TO END OF DO RECORD RTN.                     F3B02810
       RTT                 IF DO FILE EMPTY, NO SXTX TABLE MADE.        F3B02820
       TRA M10750          REDUNDANCY WHEN READING TP 2.                F3B02830
       SXD M1DOWN,2        STORE 2S COMPL DO WORD COUNT.                F3B02840
       CLA SXTXL           TEST IF SXDTX TABLE EMPTY                    F3B02850
       TNZ M10285-2        FROM STORED TABLE LENGTH.                    F3B02860
       LXA M1CON,2         NO SXTX ENTRIES, GO TO AIL AND DO            F3B02870
       TRA M10290          COMPILATION ROUTINES.                        F3B02880
       SXD CBOX,4          SAVE IRC FOR TSX TEST                        F3B02890
       TXI M10285,2,4      ADD 4 IRB GET 1ST WD LAST DO INSTR.          F3B02900
M10285 CLA DO+1,2          TEST CURRENT DO INST AN SXD                  F3B02910
       SUB M1ABC+25        BY EXAMINING 2ND WORD OF INSTR.              F3B02920
       TZE M10300          CURRENT INSTR IS SXD.                        F3B02930
       TXH M10285-1,2,0    IRB ZERO HEANS ALL DO ENTRIES                F3B02940
       LXD CBOX,4          IN BLOCK EXAMINED FOR SXD.                   F3B02950
M10290 PXD 0,4             IRC NOT ZERO AFTER 1ST DO REC                F3B02960
       TZE M10295          IN CORES. IRC PERMITS RE-ENTRY               F3B02970
       TRA 2,4             VIA TSX TO DO + AIL CMP RTN                  F3B02980
M10295 MSE 97              TEST IF END AIL FILE.                        F3B02990
       TRA M11010          TO COMPARE AIL + DO FMLA NOS.                F3B03000
       PSE 97              SENSE LIGHT 1 ON IF AIL EOF.                 F3B03010
       TRA M11030          TO COMPILE DO INSTR.                         F3B03020
M10300 CLA DO+2,2          SEARCH SXTX TABLE FOR ENTRY                  F3B03030
       STO SXLOC           EQUAL TO ADDR PORTION GIVEN IN               F3B03040
       LXA SXTXL,4         3RD WD CURRENT SXD DO INSTR.                 F3B03050
M10305 CLA 0,4             ADDR SXTX ORGIN PLUS LENGTH                  F3B03060
       SUB SXLOC                                                        F3B03070
       TZE M10310          SXTX ENTRY CORR TO SXD FOUND.                F3B03080
       TIX M10305,4,3                                                   F3B03090
       TRA M10285+3        NO SXTX ENTRY CORR TO SXD FOUND.             F3B03100
M10310 TIX M10310+1,4,1    ROUTINE PUT 2ND WORD SXTX                    F3B03110
       CLA 0,4             TABLE ENTRY INTO ADDRESS WD                  F3B03120
       STO DO+2,2          CURRENT SXD DO INSTR.                        F3B03130
       CLA M1CON           CHANGE SXD FMLA NO. TO                       F3B03140
       STO DO,2            ZEROS IN DO RECORD BUFFER.                   F3B03150
       TRA M10285+3        TO CONTINUE SXD SEARCH OF DO REC.            F3B03160
       REM ERROR ROUTINES, END OF FILE ROUTINES                         F3B03170
M10700 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03180
       SUB M1ECTR          AIL RECORD. TEST IF                          F3B03190
       TZE M1EATC          TAPE 2 READ ALREADY 5                        F3B03200
       ADD M1ECTR+1        TIMES. IF NOT, INCREASE                      F3B03210
       STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03220
M10705 BST 146             COUNTER AND READ AIL                         F3B03230
       TRA M10220          RECORD AGAIN.                                F3B03240
M1EATC TSX 4,4             AIL REC. READ 5 TIMES UNSUCCESSFULLY.        F3B03250
M10750 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03260
       SUB M1ECTR          DO RECORD. TEST IF                           F3B03270
       TZE M1EDTC          TAPE 2 READ ALREADY 5                        F3B03280
       ADD M1ECTR+1        TIMES. IF NOT, INCREASE                      F3B03290
       STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03300
M10755 BST 148             COUNTER AND READ DO                          F3B03310
       TRA M10260          RECORD AGAIN                                 F3B03320
M1EDTC TSX 4,4             DO REC. READ 5 TIMES UNSUCCESSFULLY,         F3B03330
M10800 PSE 97              END OF FILE FOR AIL ROUTINE.                 F3B03340
       MSE 98              TURN SENSE LIGHT 1 ON FOR AIL                F3B03350
       TRA M10810          EOF AND TEST IF ENTRIES IN SXTX TBL          F3B03360
       PSE 98              BY LIGHT 2 ON.                               F3B03370
       TRA M10900          TO WR 0N TP 3 INSTR IN BUFFER.               F3B03380
M10810 PXD 0,4             IRC ZERO IF DO FILE NOT READ YET.            F3B03390
       TZE M10250          T0 READ DO FILE RECORD.                      F3B03400
       TRA M11030          T0 COMPILE DO INSTRUCTIONS.                  F3B03410
M10850 PSE 98              END OF FILE FOR DO ROUTINE.                  F3B03420
       MSE 97              TURN SENSE LIGHT 2 ON FOR D0                 F3B03430
       TRA M12000          EOF AND TEST IF AIL AT EOF.                  F3B03440
       PSE 97                                                           F3B03450
       TRA M10900                                                       F3B03460
       REM M1 TERMINAL ROUTINE                                          F3B03470
M10900 WRS 147             ROUTINE WR ON TP 3 INSTR REMAINING           F3B03480
       LXD BB0X,2          IN CIB BUFFER FROM CIT.                      F3B03490
       PSE 96              TURN-OFF ALL SENSE LIGHTS.                   F3B03500
M10910 CPY CIB,1                                                        F3B03510
       TXI M10920,1,-1                                                  F3B03520
M10920 TXI M10920+1,2,1    IRB 2S COMP NO WORDS CIB BUFFER.             F3B03530
       TXH M10910,2,1                                                   F3B03540
M10930 WEF 147             WR FORTRAN FCNS 2ND FILE TP 3.               F3B03550
PAT10  LXD PAT5+1,2        WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3.    F3B03560
       TXH PAT12,2,0       1 IN DECREMENT IF F FCNS IN AIL FILE.        F3B03570
PAT11  WEF 147             WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END.    F3B03580
       RTB 1               SPACE OVER DIAGNOSTIC RECORD.                F3B03590
       TRA 4               TO READ IN MERGE 2.                          F3B03600
PAT12  SXD M1ECTR+2,1                                                   F3B03610
       SXD M1ECTR+3,2                                                   F3B03620
       LXA M1ECTR,1        LOAD 5 INTO IRC TP RD ERROR CTR.             F3B03630
       RDS 146             READ AIL RECORD COUNT, THE                   F3B03640
       CPY ERAS            NEXT FILE AFTER AIL EOF                      F3B03650
       TSX M10043,2        TO BACKSPACE TP 2 TO                         F3B03660
       NOP PAT12+3         START OF AIL FILE TO GET                     F3B03670
       LXD M1ECTR+2,1      F FCNS AT BEGINNING OF COMPAIL FILE.         F3B03680
       LXD M1ECTR+3,2                                                   F3B03690
       LXA ERAS,2                                                       F3B03700
       TXI PAT13,2,2                                                    F3B03710
PAT13  BST 146                                                          F3B03720
       TIX PAT13,2,1                                                    F3B03730
       PSE 98              PUT LIGHT 2 ON FOR D0 EOF.                   F3B03740
       PSE 99              PUT LIGHT 3 ON FOR NO CHTG TBL.              F3B03750
       CLA M1CON           INITIALIZE BBOX WITH 0. BBOX                 F3B03760
       STO BB0X            KEEPS COUNT OF RECORDS IN CIB BUFFER.        F3B03770
       TSX M10210,4        TO READ AIL FILE FOR FORTRAN FCNS.           F3B03780
       NOP                 NOP NEEDED FOR ROUTINE AT RET1.              F3B03790
PAT14  CAL AIL,1           TEST FOR FORTRAN FCN. AIL                    F3B03800
       ANA AIL+1,1         WORD ALL ONES IF A FORTRAN FCN.              F3B03810
       ANA AIL+2,1                                                      F3B03820
       ANA AIL+3,1                                                      F3B03830
       SLW ERAS                                                         F3B03840
       CLA ERAS                                                         F3B03850
       SUB M1CON+17                                                     F3B03860
       TNZ OUT             ENTRY IS NOT A FORTRAN FCN.                  F3B03870
PAT15  TXI PAT15+1,1,-4                                                 F3B03880
       PXD 0,1             TEST IF LAST WORD OF                         F3B03890
       CAS M1ALWN          AIL BUFFER.                                  F3B03900
       TRA M12000          TO AIL COMPILATION ROUT1NE.                  F3B03910
PAT16  TSX M10210,4        TO READ NEXT AIL ENTRY.                      F3B03920
       TSX 4,4             NO. OF WORDS OF AIL REC NOT A MULTIPLE OF 4  F3B03930
       TRA M12000          TO AIL COMPILATION ROUTINE.                  F3B03940
OUT    TXI OUT1,2,-1       MAKE IRB VALUE ZERO.                         F3B039S0
OUT1   SXD PAT5+1,2        DECREMENT ZERO MEANS NO FORTRAN FCNS.        F3B03960
OUT13  RDS 146             SPACE OVER REMAINING                         F3B03970
OUT14  CPY ERAS            AIL ENTRIES WHICH ARE                        F3B03980
       TRA OUT14           NOT FORTRAN FCNS TO POSITION                 F3B03990
       TRA OUT22           TAPE 2 AT END OF AIL FILE.                   F3B04000
       TRA OUT13                                                        F3B04010
OUT22  LXA M1CON,1                                                      F3B04020
       TRA M10900          TO WR ANY F FCN ENTRIES IN CIB BUFFER.       F3B04030
       REM COMPAIL INSTR USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH   F3B04040
       REM HAVE SAME FMLA NO, EXCEPT FOR READ AND WRITE,WHEN DO PRECEDESF3804030
       REM THE AIL FOR TIMING REASONS. FMLA NO. DECREMENT PART HERE.    F3B04060
       REM COMPARISON OF AIL AND DO FMLA NOS AND                        F3B04070
       REM COMPILATION OF DO INSTRUCTIONS                               F3B04080
M11010 CLA DO,2            COMPARE AIL AND DO INTERNAL                  F3B04090
       STD M1DOFN          FORMULA NOS.                                 F3B04100
M11015 TSX ERR2,4          TEST FOR FORTRAN FCNS.                       F3B04110
       ANA M1CON+13        +077777000000.                               F3B04120
       CAS M1DOFN                  COMPARE AIL AND                      F3B04130
       TRA M11030          AIL FMLA NO GREATER DO NO.                   F3B04140
       TRA M11070          AIL FMLA NO. EQUALS DO NO.                   F3B04150
       TRA M12000          AIL FMLA NO. LESS DO NO.                     F3B04160
M11030 LXA M1CON+4,4       COMPILE DO INSTR BY                          F3B04170
M11031 CLA DO,2            GATHERING 4 WORDS FROM                       F3B04180
       STO M1CW+4,4        DO REC BUFFER AND PLACING                    F3B04190
       TXI M11035,2,-1     THEM IN CALLING SEQ LOCATIONS.               F3B04200
M11035 TIX M11031,4,1                                                   F3B04210
       TSX CIT00,4         TO CIT COMPILING ROUTINE.                    F3B04220
       HTR M1CW            CALLING SEQ FOR LOCATIONS                    F3B04230
       HTR M1CW+1          OF 4 COMPILED WORDS.                         F3B04240
       HTR M1CW+2                                                       F3B04250
       HTR M1CW+3                                                       F3B04260
       PXD 0,2             TEST IF END OF CUR DO REC                    F3B04270
       CAS M1DOWN          BY COMPARING CURRENT DO WD                   F3B04280
       TRA M11055          P0SITION WITH TOTAL DO                       F3B04290
       TSX M10250,4        REC WORD COUNT.                              F3B04300
       TSX 4,4             NO OF WORDS NOT A MULTIPLE OF 4              F3B04310
M11055 MSE 97              END OF AIL FILE IF LIGHT 1 ON,               F3B04320
       TRA M11060                                                       F3B04330
       PSE 97              AIL AT EOF. CONTINUE                         F3B04340
       TRA M11030          COMPILING DO INSTR.                          F3B04350
M11060 CLA DO,2            GET NEXT DO INST SAME BLOCK                  F3B04360
       ANA M1CON+13        AS PREVIOUS ONE.                             F3B04370
       CAS M1DOFN          AIL AND DO FMLA NOS IN DECREMENTS.           F3B04380
       TRA M11010          DO FMLA NO. GREATER AIL NO.                  F3B04390
       NOP                 DO FMLA NO. EQUALS AIL NO.                   F3B04400
       TRA M11030          DO FMLA NO. LESS AIL NO.                     F3B04410
M11070 TXI M11070+1,1,-1                                                F3B04420
       CLA AIL,1           TEST IF CURRENT AIL OPER RDS                 F3B04430
       SUB M1ABC+17                                                     F3B04440
       TZE M11080                                                       F3B04450
       CLA AIL,1           TEST IF CURRENT AIL OPER WRS                 F3B04460
       SUB M1ABC+26                                                     F3B04470
       TZE M11080                                                       F3B04480
       TXI M12000,1,1      RESTORE IRA CURRENT AIL VALUE.               F3B04490
M11080 TXI ERR3,1,1        T0 TEST IF SPACING TAPE.                     F3B04500
ERR3   CLA DO,2            TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO.F3B04510
       ANA M1CON+14        DETERMINE IF DO OR AIL INSTR COMPILED FIRST. F3B04520
       TZE RET2            LXD BEFORE RDS HAS ZERO LOCATION.            F3B04530
       TRA M12000          TO COMPILE AIL INSTRUCTION.                  F3B04540
RET2   CLA M1CON+16        INCREASE AIL 1ST WD ADDRESS                  F3B04550
       ORS AIL,1           FOR SEC. 4 PURP0SES.                         F3B04560
       TRA M11030          T0 COMPILE DO INSTR.                         F3B04570
       REM COMPILING ROUTINE,CIT00                                      F3B04580
CIT00  STQ E1C             E1C CELL FOR SAVING MQ.                      F3B04590
       SXD E2C,1           E2C CELL FOR SAVING IRA.                     F3B04600
       SXD E3C,2           E3C CELL FOR SAVING IRB.                     F3B04610
       LXD BB0X,2          2S COMP NO. ALREADY IN BLOCK.                F3B04620
       TXH CIT04,2,-100    TR NO. WDS IN BLOCK LESS 100.                F3B04630
       TXL CIT04,2,0       TR NO. WDS IN BLOCK EQUALS 0.                F3B04640
       WRS 147             WRITE-OUT BLOCK OF 100                       F3B04650
       LXA M1CON,1         WORDS WHICH MAKE UP                          F3B04660
CIT01  CPY CIB,1           25 COMPILED INSTR. ON TP 3.                  F3B04670
       TXI CIT02,1,-1                                                   F3B04680
CIT02  TXI CIT03,2,1       WRITING OF CIB BUFFER                        F3B04690
CIT03  TXH CIT01,2,1       FINISHED WHEN IRB IS 0.                      F3B04700
CIT04  LXA M1CON+4,1       ROUTINE TO PLACE 4 WORDS                     F3B04710
       CLA M1CON+1         OF COMPILED INSTR IN CIB                     F3B04720
       STA CIT05           BUFFER OF 100 WORDS,                         F3B04730
CIT05  CLA 0,4             IRC CONTAINS 2S COMP LOC OF                  F3B04740
       STA CIT06           CALLING SEQ LESS 1,                          F3B04750
CIT06  CLA                 INSTR ADDRESS SEQUENT1ALLY                   F3B04760
       STO CIB,2           M1CW, M1CW+1, M1CW+2                         F3B04770
       CLA CIT05           AND M1CW+3.                                  F3B04780
       ADD M1CON+1                                                      F3B04790
       STA CIT05                                                        F3804800
       TXI CIT07,2,-1                                                   F3B04810
CIT07  TIX CIT05,1,1       IRA LOADED WITH 4.                           F3B04820
       SXD BB0X,2          2S COMPL NO. WORDS ALREADY IN BLOCK.         F3B04830
       LDQ E1C             RESTORE MQ, IRA, IRB.                        F3B04840
       LXD E2C,1           IRA GIVES AIL REC POSITION.                  F3804850
       LXD E3C,2           IRB GIVES DO REC POSITION.                   F3B04860
       TRA 5,4             RETURN TO TSX ADDR PLUS 5.                   F3B04870
ERR2   CLA AIL,1           TEST IF FORTRAN FCN DEFINED IN MIDDLE OF     F3B04880
       CAS M1CON+17        PROGRAM, BY FIRST INSTR WORD ALL ONES.       F3B04890
       TRA 1,4             RETURN TO NEXT INSTR. OF MAIN PROGRAM.       F3804900
       TSX 4,4             FORTRAN FUNCTION IN MIDDLE OF PROGRAM        F3804910
ERROR3 TSX 4,4             WORD ALL 1S COMPARED HIGH TO AC WITH ALL 1S  F3804920
       REM COMPILATION OF AIL INSTRUCTIONS                              F3804930
M12000 TSX ERR2,4          TEST 1ST AIL WORD ALL ONES.                  F3B04940
       STD M1ALFN          SAVE FMLA NO. 1ST INSTR ARITH BLOCK,         F3B04950
M12005 TMI M13000          MINUS MEANS OPEN SU8ROUTINE.                 F3804960
       LXA M1CON+4,4       COMPILE AIL INST BY                          F3B04970
M12010 CLA AIL,1           MOVING 4 WORDS OF INSTR                      F3B04980
       STO M1CW+4,4        INTO COMPILED WORD 8UFFER.                   F3804990
       TXI M12020,1,-1                                                  F3B05000
M12020 TIX M12010,4,1                                                   F3805010
M12021 CLA M1CW+3          TEST IF TAGGED INSTR, BITS 24-26.            F3B05020
M12022 ANA M1CON+15        1,2 OR 3 GIVEN IN TAG. ONE                   F3B05030
       TZE M12030          DIM TAGS NOT CHANGED.                        F3805040
       MSE 99              SENSE LIGHT 3 ON IF NO                       F3805050
       TSX M12500,4        ENTRIES IN EDITED CHANGE                     F3805060
       PSE 99              TAG TABLE.                                   F3B05070
M12030 TSX CIT00,4         TO CIT COMPILING IF TAG UNCHANGED.           F3805080
       HTR M1CW            CALLING SEQ FOR LOCATIONS                    F3B05090
       HTR M1CW+1          OF 4 COMPILED WORDS.                         F3B05100
       HTR M1CW+2                                                       F3B05110
       HTR M1CW+3                                                       F3B05120
M12035 PXD 0,1             TEST IF END OF CUR AIL REC                   F3B05130
       CAS M1ALWN          BY COMPAR1NG CURRENT AIL WD                  F3B05140
       TRA M12040          POSITION WITH TOTAL AIL                      F3805150
       TSX M10210,4        REC WORD COUNT.                              F3B05160
       TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F380S170
M12040 CLA AIL,1           NEXT AIL INST SAME BLOCK AS                  F3B05180
       ANA M1CON+13        PREVI0US ONE. +077777000000.                 F3B05190
       CAS M1ALFN                                                       F3B05200
       TRA M12050          NEXT AIL FMLA NO. GR THAN PREV.              F3B09210
       NOP                                                              F3B03220
       CLA AIL,1           TEST IF OPEN SRTN. IF NOT,                   F3805230
       TRA M12005          COMPILE AIL INSTR                            F3B05240
M12050 MSE 98              END OF DO FILE IF LIGHT 2 ON,                F3B03250
       TRA M11015          TO CMP AIL AND DO FMLA NOS.                  F3B05260
       PSE 98                                                           F3B05270
       TXH M12000,2,1      IN THE MAIN MERGE IF IRB                     F3B03280
       TXL M12000,2,0      ANY VALUE EXCEPT 1.                          F3805290
       TRA PAT14           TO TEST FOR FORTRAN FCN.                     F3B05300
       REM  CHANGE TAG TABLE SEARCH                                     F3805310
M12500 CLA M1CW+3          SYMBOLIC TAG IN BINARY BITS                  F3805320
       STA TAGB0X          24-35 4TH WD COMPILED INSTR.                 F3805330
       SXD CBOX,4          IRC HAS TSX RTN ADDR TO M12030.              F3B05340
M12503 LXD CHTGE1,4                                                     F3B05350
       CLA CHTG,4          CMP INT FMLA NO CUR AIL INSTR                F3B05360
       CAS M1ALFN          WITH CUR CHTG TABLE BLOCK.                   F3805370
       TRA M12510          CHTG FMLA NO GREATER AIL NO.                 F3805380
       TRA M12515          CHTG FMLA NO EQUALS AIL NO,                  F3B05390
       TRA M12540          CHTG FMLA NO LESS AIL NO.                    F3B05400
M12510 LXD CBOX,4          IRC HAS TSX RTN ADDR TO                      F3B05410
       TRA 2,4             AIL COMP AT M12030.                          F3B05420
M12515 CLA CHTGE2          SEARCH CUR CHTG BLOCK FOR                    F3B05430
       STD M12530+1        CUR AIL INST TAG                             F3B05440
M12520 TXI M12520+1,4,-1                                                F3B05450
       CLA CHTG,4          GET TAG1 FROM 2ND WORD OF                    F3B05460
       LRS 18              CHTG TABLE.                                  F3B05470
       SUB TAGB0X          TAG BOX HAS AIL TAG IN ADDR.                 F3B05480
       TNZ M12530          CHTG TAG AND AIL TAG DIFFERENT.              F3B05490
       LLS 18              CHTG AND AIL TAGS SAME, SO                   F3B05500
       STA M1CW+3          REPLACE CUR AIL TAG WITH CHTG T2.            F3B05510
       TRA M12510          RTN VIA TSX TO AIL COMP AT M12030.           F3B05520
M12530 TXI M12530+1,4,-1   IRC ENDS CHTG BLOCK SAME FMLA NO.            F3B05530
       TXH M12520,4        DECREMENT IS CHTGE2 VALUE.                   F3B05540
       TRA M12510                                                       F3B05550
M12540 CLA CHTGE2          UPDATE CHTGE1. CHTGE1 HAS IRC                F3B05560
       STO CHTGE1          VALUE T0 GET 1ST ENTRY OF                    F3805570
       SUB CHTGL           CHTG BLOCK ALL SAME FMLA NO.                 F3B05580
       TNZ M12550          CHTGL HAS 2S COMP NO WDS CHTG TABLE.         F3B05590
       PSE 99              SENSE LIGHT 3 ON MEANS CHTG                  F3B05600
       TRA M12510          EMPTY OR EXHAUSTED.                          F3B05610
M12550 LXD CHTGE1,4        COMPUTE NEW CHTGE2. CHTGE2 IS                F3B05620
       CLA CHTG,4          DECREMENT VALUE IN M12530 TO                 F3B05630
       STO CHTGFN          INDICATE LAST ENTRY IN CHTG                  F3B05640
M12555 TXI M12555+1,4,-2   BLOCK ALL WITH SAME FMLA NO.                 F3B05650
       PXD 0,4             THIS OBVIATES SEARCHING ENTIRE               F3B05660
       SUB CHTGL           CHTG TABLE WHEN TESTING AIL                  F3B05670
       TZE M12570          INSTR FOR CHANGING ITS TAG.                  F3B05680
       CLA CHTG,4          ROUTINE ENTERED WHEN AIL                     F3B05690
       SUB CHTGFN          FMLA NO. GREATER THAN CHTG                   F3B05700
       TZE M12555          FMLA, SO MUST UPDATE CHTGE1                  F3B05710
M12570 SXD CHTGE2,4        AND CHTGE2 TO GET NEXT ENTRY,                F3B05720
       TRA M12503          TO CMP AIL AND CHTG FMLA NOS.                F3B05730
       REM EXPONENTIAL OPEN SUBROUTINES                                 F3B05740
M13000 CHS                 CHANGE MINUS SIGN OF                         F3B05750
       STO M1CW            INT FMLA NO, IF ANY, TO H1CW                 F3B05760
       TXI M13005,1,-1     DECREASE COUNT IN IR1                        F3B05770
M13005 CLA AIL,1           SECOND WORD                                  F3B05780
       SUB M1ABC+18        FIXED EXP, FLOATING EXP OR SPECIAL OP        F3B05790
       TZE M13020          FIXED EXPONENT                               F3B05800
       ADD M1ABC+19        TEST FOR FLOATING POINT                      F3B05810
       TZE M13020+1        IF NEITHER, THEN NOT EXPONENTIAL             F3B05820
       TXI M13500,1,-1     DETERMINATION OF SPECIAL 0P.                 F3B05830
M13020 PSE 100             FIXED EXP. LITE 100 ON                       F3B05840
       TXI M13020+2,1,-1   3RD WORD                                     F3B05850
       CLA AIL,1           INFO ON LOC OF ARG                           F3B05860
       STO M1CW+2          TO M1CW+2                                    F3B05870
M13025 TXI M13025+1,1,-1                                                F3B05880
       CLA AIL,1           REL ADD AND TAG, IF ANY.                     F3B05890
       STO M1CW+3          TO M1CW+3                                    F3B05900
M13030 TXI M13030+1,1,-1   DECREASE BY 1                                F3B05910
       PXD 0,1             TEST FOR END OF CUR AIL REC                  F3B05920
       CAS M1ALWN          2S COMPLIMENT OF NUMBER OF WORDS             F3B05930
       TRA M13040          OF CURRENT AIL RECORD                        F3B05940
       TSX M10210,4        BACK TO READ NEXT AIL RECORD                 F3B05950
       TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B05960
M13040 TXI M13040+1,1,-2   DECREASE BY 2                                F3B05970
       CLA M1CW+2          LOCATION OF ARGUMENT                         F3B05980
       SUB M1ABC+20        SUBTRACT A PLUS SIGN                         F3B05990
       TZE M13200          ARG IN AC                                    F3B06000
       CLA M1CW+2          LOCATION AGAIN                               F3B06010
       SUB M1ABC+18        SUBTRACT ASTERISK                            F3B06020
       TZE M13250          ARG IN MQ                                    F3B06030
       REM ARGUMENT STORED, FIXED OR FLOATING                           F3B06040
       CLA AIL,1           VALUE OF EXPONENT, 3RD WORD                  F3B06050
       SUB M1CON+6         OF SECOND AIL ENTRY                          F3B06060
       TNZ M13060          EXP GREATER THAN 1                           F3B06070
       CLA M1ABC           EXP EQUALS 1, COMPILE A CLA INSTR            F3B06080
       STO M1CW+1          AND PLACE IT IN OP CODE                      F3B06090
       MSE 100             TURN OFF SENSE LIGHT, ADJUST                 F3B06100
       NOP                 COUNT FOR NEXT AIL ENTRY, AND                F3B06110
       TXI M12021,1,-2     TRANSFER BACK FOR CHTG SEARCH                F3B06120
M13060 CLA M1CW+3          EXPONENT GREATER THAN 1                      F3B06130
       ANA M1CON+15        TEST IF TAG NEEDS CHANGING                   F3B06140
       TZE M13070          ARG TAGGED                                   F3B06150
       MSE 99              END OF CHTG TABLE                            F3B06160
       TSX M12500,4        TRANSFER BACK T0 CHTG TABLE                  F3B06170
       PSE 99              SEARCH                                       F3B06180
M13070 TSX CIT00,4         COMPILE FIRST INST                           F3B06190
       HTR M1CW            LOCATION OF INTERNAL FORMULA NO              F3B06200
       HTR M1ABC+1         LOCATION OF LDQ INSTRUCTION                  F3B06210
       HTR M1CW+2          LOCATION OF ARGUMENT                         F3B06220
       HTR M1CW+3          TAG                                          F3B06230
M13080 CLA AIL,1           VALUE OF EXPONENT                            F3B06240
       SUB M1CON+7         SUBTRACT 2                                   F3B06250
       TZE M13115          EXPONENT EQUAL TO 2                          F3B06260
       STD CCOUNT          EXP-2 TO COUNT                               F3B06270
       MSE 100             ARG FIXED OR FLOATING                        F3B06280
       TRA M13300          FLOATING ARGUMENT                            F3B06290
       PSE 100                                                          F3B06300
       REM FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2      F3B06310
M13090 TSX CIT00,4         COMPILE INSTRUCTIONS FOR FIXED ARG.          F3B06320
       HTR M1CON           FOR THE EXPON.                               F3B06330
       HTR M1ABC+2         ENTIAL ROUTINE. THE LOCATION                 F3B06340
       HTR M1CW+2          OF THE ARGUMENT HAS ALREADY                  F3B06350
       HTR M1CW+3          BEEN CONSIDERED, AND TH LOOP                 F3B06360
       TSX CIT00,4         WILL COMPILE N-2 PAIRS OF                    F3B06370
       HTR M1CON           MPY AND LRS INSTRUCTIONS                     F3B06380
       HTR M1ABC+3                                                      F3B06390
       HTR M1CON                                                        F3B06400
       HTR M1CON+11                                                     F3B06410
       LXD CCOUNT,4        LOAD EXPONENT -2 IN IR 4 AND                 F3B06420
M13110 TXI M13110+1,4,-1   COMPILE N-2 PAIRS OF INSTRUCTIONS            F3B06430
       SXD CCOUNT,4        RESTORE CCOUNT DURING LOOP                   F3B06440
       TXH M13090,4                                                     F3B06450
M13115 MSE 100             ARG FIXED OR FL0ATING                        F3B06460
       TRA M13330          FLOATING ARGUMENT                            F3B06470
       TSX CIT00,4         COMPILE LAST 2 INST FOR                      F3B06480
       HTR M1CON           EXP GREATER OR EQUAL 2, IN WHICH             F3B06490
       HTR M1ABC+2         CASE WE MUST COMPILE ONLY ONE                F3B06500
       HTR M1CW+2          PAIR OF INSTRUCTIONS                         F3B06510
       HTR M1CW+3                                                       F3B06520
       TSX CIT00,4                                                      F3B06530
       HTR M1CON                                                        F3B06540
       HTR M1ABC+4                                                      F3B06550
       HTR M1CON                                                        F3B06560
       HTR M1CON+10                                                     F3B06570
       TXI M12035,1,-2     BACK T0 CONTINUE AIL ROUTINES                F3B06580
       REM ARG IN AC, FIXED OR FLOATING                                 F3B06590
M13200 CLA AIL,1           TEST TO SEE IF EXPONENT                      F3B06600
       SUB M1CON+6         EQUALS 1, IF YES, TRANSFER                   F3B06610
       TNZ M13210          BACK TO PICK UP NEXT RECORD                  F3B06620
       MSE 100             IF NO, CONTINUE TO                           F3B06630
       NOP                 COMPILE PROPER INSTRUCTIONS                  F3B06640
       TXI M12035,1,-2                                                  F3B06650
M13210 CLA M1ABC+21        EXP GREATER THAN 1,0                         F3B06660
       STO M1CW+2          STORE VALUE OF EXPONENT IN INSTR. AREA       F3B06670
       TSX CIT00,4         COMPILE FIRST INST                           F3B06680
       HTR M1CW            CALLING SEQUENCE FOR ARG-                    F3B06690
       HTR M1ABC+5         UMENT IN ACC, COMPILE                        F3B06700
       HTR M1CW+2          A STO INSTRUCTION, AND CONTINUE              F3B06710
       HTR M1CW+3          AS IF IT WERE STORED INITIALLY               F3B06720
       TRA M13070                                                       F3B06730
       REM ARG IN MQ, FIXED OR FL0ATING                                 F3B06740
M13250 CLA AIL,1           VALUE OF EXPONENT AND TEST TO                F3806750
       SUB M1CON+6         SEE IF EXPONENT = 1, IF IT IS                F3B06760
       TNZ M13265          EQUAL TO ONE, WE KNOW THAT                   F3B06770
       TSX CIT00,4         THE VALUE OF THE                             F3B06780
       HTR M1CW            ARGUMENT IS RETAINED AS THE                  F3B06790
       HTR M1ABC+13        ANSWER.                                      F3B06800
       HTR M1CON                                                        F3B06810
       HTR M1CON                                                        F3B06820
       TSX CIT00,4                                                      F3B06830
       HTR M1CON                                                        F3B06840
       HTR M1ABC+6                                                      F3B06850
       HTR M1CON                                                        F3B06860
       HTR M1CON+12                                                     F3B06870
       MSE 100             TURN OF SENSE LIGHT                          F3B06880
       NOP                                                              F3B06890
       TXI M12035,1,-2     BACK T0 AIL ROUTINE                          F3B06900
M13265 CLA M1ABC+21        EXP GREATER 1,                               F3B06910
       STO M1CW+2          PLACE 010000000000IN LOCATION POS.           F3B06920
       TSX CIT00,4         COMPILE FIRST INST                           F3B06930
       HTR M1CW            ZERO                                         F3B06940
       HTR M1ABC+7         COMPILE A STQ INSTRUCTION                    F3B06950
       HTR M1CW+2          AND THEN TRANSFER TO DETER-                  F3B06960
       HTR M1CW+3          MINE THE VALUE OF THE                        F3B06970
       TRA M13080          EXPONENT,                                    F3B06980
       REM FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2            F3B06990
M13300 TSX CIT00,4                                                      F3B07000
       HTR M1CON           INST COMPILING LOOP FOR FL0ATING             F3B07010
       HTR M1ABC+8         ARGUMENT, COMPILE A FMP                      F3B07020
       HTR M1CW+2          INSTRUCTION, AND A LRS INSTR-                F3B07030
       HTR M1CW+3          UCTION.                                      F3B07040
       TSX CIT00,4                                                      F3B07050
       HTR M1CON           ZERO, FOR INTERNAL FMLA. NO.                 F3B07060
       HTR M1ABC+3                                                      F3B07070
       HTR M1CON           PLACE 43 INDECREMENT OF                      F3B07080
       HTR M1CON+12        RELATIVE ADDRESS.                            F3B07090
       LXD CCOUNT,4        LOAD N-2 IN IR 4                             F3B07100
M13320 TXI M13320+1,4,-1   DECREASE COUNT BY 1                          F3B07110
       SXD CCOUNT,4        REPLACE CCOUNT                               F3B07120
       TXH M13300,4        BACK TO COMILE N-2 PRS. OF INST.             F3B07130
M13330 TSX CIT00,4         COMPILE LAST INST FOR                        F3B07140
       HTR M1CON           EXP GREATER OR EQUAL 2                       F3B07150
       HTR M1ABC+8                                                      F3B07160
       HTR M1CW+2                                                       F3B07170
       HTR M1CW+3                                                       F3B07180
       TXI M12035,1,-2     BACK TO STANDARD AIL ROUTINE                 F3B07190
M13500 LXD M1CON+11,4      SPECIAL OPS. LOAD COUNT OF 22 IN IR 4        F3B07200
       CLA AIL,1           COMPARE SPECIAL OP. FUNCTION NAME            F3B07210
M13503 CAS M1D+18,4        IS THIRD WORD OF 1ST AIL ENTRY               F3807220
       TRA 0P1-2           NEW ROUTINE HANDLING ADD. SUBROUTINES        F3B07230
       TRA M13510          INCONSTANT AREA                              F3807240
       TRA 0P1-2           NEW ROUTINE HANDLING ADD. SUBROUTINES        F3B07250
M13510 SXD CCELL,4         IRC TO CCELL                                 F3B07260
       TXI M13510+2,1,-2   DECREASE CONTENTS OF IR 1 BY 2               F3B07270
       PXD 0,1             END OF AIL REC                               F3B07280
       CAS M1ALWN          2 IS COMP, OF NO. OF WORDS OF CUR-           F3B07290
       TRA M13520          RENT AIL RECORD                              F3B07300
       TSX M10210,4        TO GET NEXT AIL RECORD                       F3B07310
       TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B07320
M13520 LXD CCELL,4                                                      F3B07330
M13525 TRA M13525+19,4     CHOOSE APPROPRIATE SPECIAL OP BRANCH         F3B07340
       TXI M13550,1,-2     (XABS)                                       F3807350
       TXI M13550,1,-2     (ABS)                                        F3B07360
       TXI M13600,1,-2     (XINT)                                       F3B07370
       TXI M13595,1,-2     (INT)                                        F3B07380
       TXI M13600,1,-2     (XFIX)                                       F3B07390
       TXI M13900,1,-2     (FLDAT)                                      F3B07400
       TXI M13680,1,-2     (XMOD)                                       F3B07410
       TXI M13681,1,-2     (MOD)                                        F3B07420
       TXI M13681,1,-2     (XSIGN)                                      F3B07430
       TXI M13681,1,-2     (SIGN)                                       F3807440
       TXI M13681,1,-2     (XMAX0 )                                     F3B07450
       TXI M13681,1,-2     (MAX1 0                                      F3B07460
       TXI M13680,1,-2     (XMAX1B)                                     F3B07470
       TXI M13680,1,-2     (MAX0B)                                      F3B07480
       TXI M13681,1,-2     (XMIN0B)                                     F3807490
       TXI M13681,1,-2     (MIN1B0)                                     F3807500
       TXI M13680,1,-2     (XMIN1B)                                     F3B07510
       TXI M13680,1,-2     (MINOB0)                                     F3B07520
       REM XABS, ABS BRANCH                                             F3B07530
M13550 TSX ERROR1+1,4      INFO ON LOC OF ARG, CHECK FOR ALL 1S         F3B07540
       STO M1CW+2          TO M1CW+2                                    F3B07550
       TXI M13555,1,-1     INCREMENT IR 1.  .                           F3B07560
M13555 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B07570
       STO M1CW+3          TO M1CW+3                                    F3B07580
       CLA M1CW+2          LOCATION OF ARGUMENT                         F3B07590
       SUB M1ABC+20        SUBTRACT PLUS SIGN                           F3B07600
       TZE M13575          ARG IN AC                                    F3B07610
       CLA M1CW+2          LOCATION OF ARGUMENT                         F3B07620
       SUB M1ABC+18        ONE ASTERISK                                 F3B07630
       TZE M13580          ARG IN MQ                                    F3B07640
       REM ARG STORED                                                   F3B07650
       CLA M1CW+3          RELATIVE ADDRESS AND TAG (IF ANY)            F3B07660
       ANA M1CON+15        ARG TAGGED,                                  F3B07670
       TZE M13570          ARG NOT TAGGED                               F3B07680
       MSE 99              END OF CHTG TABLE                            F3B07690
       TSX M12500,4        CHANGE TAG TABLE SEARCH                      F3B07700
       PSE 99                                                           F3B07710
M13570 TSX CIT00,4         COMPILE FIRST INST                           F3B07720
       HTR M1CW            INTERNAL FMLA NO.                            F3B07730
       HTR M1ABC           COMPILE ACLA INSTRUCTION                     F3B07740
       HTR M1CW+2                                                       F3B07750
       HTR M1CW+3                                                       F3B07760
       REM ARG IN AC,(STORED)                                           F3B07770
M13575 TSX CIT00,4         COMPILE FIRST (SECOND) INST                  F3B07780
       HTR M1CON           ZERO                                         F3B07790
       HTR M1ABC+9         SSP                                          F3B07800
       HTR M1CON           ZERO                                         F3B07810
       HTR M1CON           ZERO                                         F3B07820
       TXI M12035,1,-1     AIL ROUTINE                                  F3B07830
       REM ARG IN MQ                                                    F3B07840
M13580 CLA M1ABC+21        010000000000                                 F3B07850
       STO M1CW+2          LOCATION OF ARG                              F3B07860
       TSX CIT00,4         COMPILE FIRST INST                           F3B07870
       HTR M1CW            INT. FMLA NO.                                F3B07880
       HTR M1ABC+7         STQ                                          F3B07890
       HTR M1CW+2                                                       F3B07900
       HTR M1CW+3                                                       F3B07910
       TRA M13570          COMPILE INSTRUCTION AS IF STORED             F3B07920
       REM XFIX, XINT, INT BRANCH                                       F3B07930
M13595 PSE 100             FLOATING PT                                  F3B07940
M13600 TSX ERROR1+1,4              INFO ON LOC OF ARG                   F3B07950
       STO M1CW+2          TO M1CW+2                                    F3B07960
       TXI M13605,1,-1                                                  F3B07970
M13605 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B07980
       STO M1CW+3          TO M1CW+3                                    F3807990
       CLA M1CW+2          LOCATION OF ARG.                             F3B08000
       SUB M1ABC+20        PLUS SIGN                                    F3B08010
       TZE M13630          ARG IN AC                                    F3B08020
       CLA M1CW+2          LOCATION OF ARG.                             F3B08030
       SUB M1ABC+18        ASTERISK                                     F3B08040
       TZE M13670          ARG IN MQ                                    F3B08050
       REM ARG STORED                                                   F3B08060
       CLA M1CW+3          4TH WORD                                     F3B08070
       ANA M1CON+15        ARG TAGGED                                   F3B08080
       TZE M13620          NOT TAGGED                                   F3808090
       MSE 99              END OF CHTG TABLE                            F3808100
       TSX M12500,4        CHTG TABLE SEARCH                            F3808110
       PSE 99                                                           F3B08120
M13620 TSX CIT00,4         COMPILE FIRST INST                           F3B08130
       HTR M1CW            INT. FMLA NO. IF ANY.                        F3B08140
       HTR M1ABC           CLA INSTRUCTION                              F3808150
       HTR M1CW+2                                                       F3808160
       HTR M1CW+3                                                       F3B08170
       REM ARG IN AC(STORED)                                            F3B08180
M13630 TSX CIT00,4         COMPILE FIRST (SECOND) INST                  F3808190
       HTR M1CON           ZERO                                         F3808200
       HTR M1ABC+10        UFA OP CODE                                  F3B08210
       HTR M1ABC+22        060000000000                                 F3808220
       HTR M1CON           ZERO                                         F3808230
       MSE 100             TEST FOR FL0ATING PT.                        F3808240
       TRA M13640          XINT                                         F3808250
       TRA M13660          INT                                          F3808260
       REM XFIX, XINT, ARG STORED, IN AC, IN MQ                         F3808270
M13640 TSX CIT00,4         COMPILE 4 INST                               F3808280
       HTR M1CON           ZERO                                         F3B08290
       HTR M1ABC+3         LRS INSTRUCTION                              F3B08300
       HTR M1CON           ZERO                                         F3808310
       HTR M1CON           ZERO                                         F3B08320
       TSX CIT00,4                                                      F3808330
       HTR M1CON                                                        F3B08340
       HTR M1ABC+11        ANA                                          F3B08350
       HTR M1ABC+22        060000000000                                 F3808360
       HTR M1CON+6                                                      F3B08370
       TSX CIT00,4         +000001000000                                F3B08380
       HTR M1CON                                                        F3B08390
       HTR M1ABC+6         LLS                                          F3B08400
       HTR M1CON                                                        F3B08410
       HTR M1CON                                                        F3808420
       TSX CIT00,4                                                      F3B08430
       HTR M1CON                                                        F3B08440
       HTR M1ABC+4         ALS                                          F3B08430
       HTR M1CON                                                        F3B08450
       HTR M1CON+11        +000022000000                                F3808470
       TXI M12035,1,-1     CONTINUE WITH ROUTINE                        F3B08480
       REM INT, ARG STORED, IN AC, IN MQ                                F3B08490
M13660 TSX CIT00,4         COMPILE 1 INST                               F3B08500
       HTR M1CON                                                        F3B085I0
       HTR M1ABC+12        FAD                                          F3B08520
       HTR M1ABC+22        060000000000                                 F3B08530
       HTR M1CON           ZERO                                         F3B08540
       TXI M12035,1,-1     CONTINUE WITH AIL ROUTINE                    F3B08550
       REM XFIX, XINT, INT, ARG IN MQ                                   F3B08560
M13670 CLA M1ABC+21        COMPILE FIRST INST                           F3B08570
       STO M1CW+2          010000000000                                 F3B08580
       TSX CIT00,4                                                      F3B08590
       HTR M1CW            INT, FMLA NO.                                F3B08600
       HTR M1ABC+7         STQ                                          F3B08610
       HTR M1CW+2                                                       F3B08620
       HTR M1CW+3                                                       F3B08630
       TRA M13620          TRANSFER TO CONTINUE AS STORED               F3B08640
       REM ALL MUTIVARIATE FUNCTIONS                                    F3B08650
M13680 PSE 100             PLACE SENSE SW. ON FOR FIXPT,                F3B08660
M13681 CLA AIL-2,1         TEST INTERNAL FORMULA NO,                    F3B08670
       SUB M1CON+17        -377777777777, SHOULD BE AT                  F3B08680
       TZE ERROR1          LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS.   F3B08690
       CLA AIL,1           LOCATION OF ARGUMENT                         F3B08700
RET3   STO M1CW+2          LOCATION OF ARGUMENT                         F3B08710
       TXI M13685,1,-1     ADJUST COUNT IN IR 1,                        F3B08720
M13685 CLA AIL,1           REL ADD + TAG OF                             F3B08730
       STO M1CW+3          FIRST ARG TO M1CW+3                          F3B08740
       TXI M13690,1,-1                                                  F3B08750
M13690 PXD 0,1             END OF AIL REC                               F3B08760
       CAS M1ALWN          2S COMPLIMENT OF NO. OF WORDS                F3B08770
       TRA M13700          IN AIL RECORD                                F3B08780
       TSX M10210,4        BRING IN NEXT AIL REC.                       F3B08790
       TSX 4,4             N0 OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3B08800
M13700 CLA M1CW+3          REL. ADDRESS + TAG, IF ANY                   F3B08810
       ANA M1CON+15        +000000002000                                F3B08820
       TZE M13710          FIRST ARG TAGGED                             F3B08830
       MSE 99              END OF CHTG TABLE                            F3B08840
       TSX M12500,4        CHTG TABLE SEARCH                            F3B08850
       PSE 99                                                           F3B08860
M13710 CLA M1CON+9         SIGN, MODULO OR MAX, MIN                     F3B08870
       CAS CCELL           COMPARE TO 10                                F3B08880
       NOP                                                              F3B08890
       TRA M13770          MAX OR MIN BRANCH                            F3B08900
       CLA M1CON+5         SIGN OR MODULO, +000012000000                F3B08910
       CAS CCELL                                                        F3B08920
       NOP                                                              F3B08930
       TRA M13950          SIGN BRANCH                                  F3B08940
       MSE 100             XMOD OR MOD                                  F3B08950
       TRA M13735          FL0ATING PT., MOD BRANCH                     F3B08960
       REM XM0D BRANCH                                                  F3B08970
       TSX CIT00,4         COMPILE 3 INST, FOR MULTIVARIATE             F3B08980
       HTR M1CW            XMOD.                                        F3B08990
       HTR M1ABC+13        CLM                                          F3B09000
       HTR M1CON                                                        F3B09010
       HTR M1CON                                                        F3B09020
       TSX CIT00,4                                                      F3B09030
       HTR M1CON                                                        F3B09040
       HTR M1ABC+1         LDQ                                          F3B09050
       HTR M1CW+2          A                                            F3B09060
       HTR M1CW+3                                                       F3B09070
       TSX CIT00,4                                                      F3B09080
       HTR M1CON                                                        F3B09090
       HTR M1ABC+6         LLS                                          F3B09100
       HTR M1CON                                                        F3B09110
       HTR M1CON                                                        F3B09120
       CLA M1CON           ZERO, T0 REPLACE 1,S.                        F3B09130
       STO M1CW            INTERNAL FMLA NO.                            F3B09140
       CLA M1ABC+14        DVP OP CODE                                  F3B09150
       STO M1CW+1                                                       F3B09160
       TXI M13725,1,-2     DECREASE IR 1 BY 2                           F3B09170
M13725 TSX ERROR1+1,4      CHECK FOR END OF CALLING SEQUENCE            F3B09180
       STO M1CW+2          SYMBOLIC ADDRESS OF 2ND ARGUM.               F3B09190
       TXI M13730,1,-1                                                  F3B09200
M13730 CLA AIL,1           REL ADD AND TAG 0,                           F3B09210
       STO M1CW+3          SECOND ARG TO M1CW+3                         F3B09220
       TXI M12022,1,-1     BACK T0 END OF AIL ROUTINE                   F3B09230
       REM MOD BRANCH                                                   F3B09240
M13735 TSX CIT00,4         COMPILE FIRST INST                           F3B09250
       HTR M1CW                                                         F3B09260
       HTR M1ABC+27        CLS A                                        F3B09270
       HTR M1CW+2                                                       F3B09280
       HTR M1CW+3                                                       F3B09290
       CLA M1CW+2          SAVE FIRST ARG IN 3RD WORD                   F3B09300
       STO 3WD                                                          F3B09310
       CLA M1CW+3          SAVE REL ADD AND TAG IN 4WD                  F3B09320
       STO 4WD                                                          F3B09330
       TXI M13741,1,-2                                                  F3B09340
M13741 TSX ERROR1+1,4      CHECK THAT NEXT WORD IS LAST ARG.            F3B09350
       STO M1CW+2          SYMBOLIC AD OF 2ND ARG.                      F3B09360
       TXI M13745,1,-1                                                  F3B09370
M13745 CLA AIL,1           REL ADD AND TAG OF                           F3B09380
       STO M1CW+3          SECOND ARG T0 M1CW+3                         F3B09390
       ANA M1CON+15        TEST IF TAGGED                               F3B09400
       TZE M13755          SECOND ARG TAGGED                            F3B09410
       MSE 99              END OF CHTG TABLE                            F3B09420
       TSX M12500,4        BACK TO AIL ROUTINE                          F3B09430
       PSE 99                                                           F3B09440
M13755 TSX CIT00,4         COMPILE LAST 9 INSTS                         F3B09450
       HTR M1CON                                                        F3B09460
       HTR M1ABC+15        FDP B                                        F3B09470
       HTR M1CW+2                                                       F3B09480
       HTR M1CW+3                                                       F3B09490
       TSX CIT00,4                                                      F3B09500
       HTR M1CON                                                        F3B09510
       HTR M1ABC+7         STQ                                          F3B09520
       HTR M1ABC+21        010000000000                                 F3B09530
       HTR M1CON                                                        F3B09540
       TSX CIT00,4                                                      F3B09550
       HTR M1CON                                                        F3B07560
       HTR M1ABC           CLA                                          F3B09570
       HTR M1ABC+21        010000000000                                 F3B09580
       HTR M1CON                                                        F3B09590
       TSX CIT00,4                                                      F3B09600
       HTR M1CON                                                        F3B09610
       HTR M1ABC+10        UFA                                          F3B09620
       HTR M1ABC+22        060000000000                                 F3B09630
       HTR M1CON                                                        F3B09640
       TSX CIT00,4                                                      F3B09650
       HTR M1CON                                                        F3B09660
       HTR M1ABC+12        FAD                                          F3B09670
       HTR M1ABC+22        060000000000                                 F3B09680
       HTR M1CON                                                        F3B09690
       TSX CIT00,4                                                      F3B09700
       HTR M1CON                                                        F3B09710
       HTR M1ABC+5         STO                                          F3B09720
       HTR M1ABC+21        060000000000                                 F3B09730
       HTR M1CON                                                        F3B09740
       TSX CIT00,4                                                      F3B09750
       HTR M1CON                                                        F3B09760
       HTR M1ABC+1         LDQ                                          F3B09770
       HTR M1ABC+21        060000000000                                 F3B09780
       HTR M1CON                                                        F3B09790
       TSX CIT00,4                                                      F3B09800
       HTR M1CON                                                        F3B09810
       HTR M1ABC+8         FMP                                          F3B09820
       HTR M1CW+2          B                                            F3B09830
       HTR M1CW+3                                                       F3B09840
       TSX CIT00,4                                                      F3B09850
       HTR M1CON                                                        F3B09860
       HTR M1ABC+12        FAD                                          F3B09870
       HTR 3WD             A                                            F3B09880
       HTR 4WD                                                          F3B09890
       TXI M12035,1,-1     AIL ROUTINE                                  F3B09900
       REM MAX, MIN BRANCH                                              F3B09910
M13770 CLA M1CON+8         +000004000000                                F3B09920
       CAS CCELL           FOR MIN BRANCH                               F3B09930
       NOP                                                              F3B09940
       TRA M13855          MIN BRANCH                                   F3B09950
       REM ALL MAX ROUTINES                                             F3B09960
       TSX CIT00,4         COMPILE FIRST INST                           F3B09970
       HTR M1CW                                                         F3B09980
       HTR M1ABC           CLA A1                                       F3B09990
       HTR M1CW+2          SYMBOlIC ADDRESS OF FIRST ARGUHENT           F3B10000
       HTR M1CW+3          RELATIVE ADDRESS + TAG, IF ANY               F3B10010
M13780 CLA AIL,1           END MARK, IF ANY, TO ENDT, THIS WILL         F3B10020
       STO ENDT            BE ALL 1S IF END.                            F3B10030
       TXI M13785,1,-2                                                  F3B10040
M13785 CLA AIL,1           SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N F3B10050
       STO M1CW+2          TO M1CW+2                                    F3B10060
       TXI M13790,1,-1                                                  F3B10070
M13790 CLA AIL,1           REL ADD AND TAG OF                           F3B10080
       STO M1CW+3          ITH ARG T0 M1CW+3                            F3B10090
       ANA M1CON+15        TEST IF ITHARGUMENT TAGGED                   F3B10100
       TZE M13800          ITH ARG NOT TAGGED                           F3B10110
       MSE 99              END OF CHTG TABLE                            F3B10120
       TSX M12500,4        CHTG TABLE SEARCH                            F3B10)30
       PSE 99                                                           F3B10140
M13800 CLA M1CON+8         000004000000                                 F3B10150
       CAS CCELL           COMPARE FOR MINIMUM BR.                      F3B10160
       NOP                                                              F3B10170
       TRA M13860          MIN BRANCH                                   F3B10180
       TSX CIT00,4         COMPILE 3 INSTRUCTIONS FOR                   F3B10190
       HTR M1CON           ITH ARG                                      F3810200
       HTR M1ABC+1         LDQ                                          F3B10210
       HTR M1CW+2          ITH ARGUMENT I=2....,N                       F3B10220
       HTR M1CW+3                                                       F3B10230
       TSX CIT00,4                                                      F3B10240
       HTR M1CON                                                        F3B10250
       HTR M1ABC+16        TLQ                                          F3810260
       HTR M1ABC+24        +170000000000                                F3B10270
       HTR M1CON+7         +000002000000                                F3810280
       TSX CIT00,4                                                      F3B10290
       HTR M1CON                                                        F3B10300
       HTR M1ABC           CLA AI                                       F3B10310
       HTR M1CW+2                                                       F3B10320
       HTR M1CW+3                                                       F3B10330
       CLA ENDT            I=N                                          F3B10340
       SUB M1CON+17        -377777777777                                F3B10350
       TZE M13830          LAST ARGUMENT                                F3B10360
       TXI M13820,1,-1                                                  F3B10370
M13820 PXD 0,1             END OF AIL REC                               F3B10380
       CAS M1ALWN          2S COMPL. OF NO. OF WORS OF AIL REC          F3810390
       TRA M13780          TO COMPILE INSTR. FOR ALL ARGUMENTS          F3810400
       TSX M10210,4        PACK TO READ NEXT AIL RECORD                 F3810410
       TSX 4,4             NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4   F3810420
       TRA M13780                                                       F3810430
M13830 MSE 100             TEST FOR FIXED PT AND TURN OFF SW.           F3B10440
       TXI M12035,1,-1     OUT FOR XMAX0, MAX1, XMIN0, MIN1             F3810450
       CLA CCELL           NO. OF FUNCTION FIXED MAX.                   F3810460
       ARS 18                                                           F3B10470
       LBT                 TEST FOR FLOATING MAX OR MIN                 F3B10480
       TRA M13630          XMAX1, XMIN1, FIXED MIX OR MIN               F3810490
       TSX CIT00,4         COMPILE LAST 3 INSTRUCTIONS                  F3B10500
       HTR M1CON           FOR MAX0, MIN0                               F3810510
       HTR M1ABC+3         LRS                                          F3B10520
       HTR M1CON                                                        F3810530
       HTR M1CON+11        18                                           F3B10540
       TSX CIT00,4                                                      F3B10550
       HTR M1CON                                                        F3B10560
       HTR M1ABC+23        ORA                                          F3B10570
       HTR M1ABC+22        06000D000000                                 F3B10580
       HTR M1CON                                                        F3810590
       TSX CIT00,4                                                      F3B10600
       HTR M1CON                                                        F3810610
       HTR M1ABC+12        FAD                                          F3B10620
       HTR M1ABC+22        060000000000                                 F3B10630
       HTR M1CON                                                        F3810640
       TXI M12035,1,-1     BACK TO END OF AIL ROUTINE                   F3B10650
       REM ALL MIN ROUTINE COMPILE FIRST INST                           F3B10660
M13855 TSX CIT00,4                 COMPILE FIRST INST                   F3B10670
       HTR M1CW                                                         F3810680
       HTR M1ABC+1         LDQ A1                                       F3B10690
       HTR M1CW+2                                                       F3810700
       HTR M1CW+3                                                       F3B10710
       TRA M13780          TO STORE NEEDED INFORMATION                  F3810720
M13860 TSX CIT00,4         COMPILE 3 INST FOR                           F3B10730
       HTR M1CON           ITH ARG                                      F3B10740
       HTR M1ABC           CLA A2....N                                  F3B10750
       HTR M1CW+2                                                       F3810760
       HTR M1CW+3                                                       F3810770
       TSX CIT00,4                                                      F3810780
       HTR M1CON                                                        F3B10790
       HTR M1ABC+16        TLQ                                          F3B10800
       HTR M1ABC+24        +000002000000                                F3B10810
       HTR M1CON+7         +170000000000                                F3B10820
       TSX CIT00,4                                                      F3B10830
       HTR M1CON                                                        F3810840
       HTR M1ABC+1         LDQ A2....N                                  F3B10850
       HTR M1CW+2                                                       F3B10860
       HTR M1CW+3                                                       F3B10870
       CLA ENDT            I=N                                          F3B10880
       SUB M1CON+17        -377777777777                                F3B10890
       TZE M13880          LAST ARGUMENT                                F3B10900
       TXI M13820,1,-1     TO TEST IF END OF AIL RECORD                 F3B10910
M13880 TSX CIT00,4         COMPILE TWO INST.                            F3B10920
       HTR M1CON                                                        F3B10930
       HTR M1ABC+7         STQ                                          F3B10940
       HTR M1ABC+21        010000000000                                 F3B10950
       HTR M1CON                                                        F3B10960
       TSX CIT00,4                                                      F3B10970
       HTR M1CON                                                        F3B10980
       HTR M1ABC           CLA                                          F3B10990
       HTR M1ABC+21        010000000000                                 F3B11000
       HTR M1CON                                                        F3B11010
       TRA M13830          TEST SW, 4 AND GO TO VARIOUS ROUTES          F3B11020
       REM FLOAT BRANCH                                                 F3B11030
M13900 TSX ERROR1+1,4      TO TEST IF ONLY ONE ARGUMENT                 F3B11040
       STO M1CW+2          SYMBOLIC LOCATION OF ARGUMENT                F3B11050
       TXI M13905,1,-1                                                  F3B11060
M13905 CLA AIL,1           REL ADD AND TAG, IF ANY,                     F3B11070
       STO M1CW+3          TO M1CW+3                                    F3B11080
       CLA M1CW+2                                                       F3B11090
       SUB M1ABC+20        PLUS SIGN                                    F3B11100
       TZE M13915          ARG IN AC                                    F3B11110
       CLA M1CW+2                                                       F3B11120
       SUB M1ABC+18        ASTERISK                                     F3B11130
       TZE M13920          ARG IN MQ                                    F3B11140
       CLA M1CW+3          RELATIVE ADDRESS AND TAG, IF ANY             F3B11150
       ANA M1CON+15                                                     F3B11160
       TZE M13910          ARG NOT TAGGED                               F3811170
       MSE 99                                                           F3B11190
       TSX M12500,4        CHTG TABLE SEARCH                            F3B11190
       PSE 99                                                           F3B11200
M13910 TSX CIT00,4                                                      F3B11210
       HTR M1CW                                                         F3B11220
       HTR M1ABC           CLA A                                        F3B11230
       HTR M1CW+2                                                       F3811240
       HTR M1CW+3                                                       F3811250
       REM ARG IN AC (STORED)                                           F3B11260
M13915 TRA M13830+6        TO COMILE 3 INSTR. AS MAX OR MIN             F3B11270
       REM ARG IN MQ                                                    F3B11280
M13920 CLA M1ABC+21        010000000000                                 F3B11290
       STO M1CW+2          SYMBOLIC LOCATION                            F3B11300
       TSX CIT00,4                                                      F3B11320
       HTR M1CW                                                         F3B11330
       HTR M1ABC+7         STQ                                          F3B11340
       HTR M1CW+2                                                       F3B11350
       HTR M1CW+3                                                       F3B11360
       TRA M13910          TO COMPILE A CLA INSTRUCTION                 F3B11370
       REM XSIGN, SIGN BRANCH                                           F3B11380
M13950 TSX CIT00,4                                                      F3B11390
       HTR M1CW                                                         F3B11400
       HTR M1ABC           CLA A1                                       F3B11410
       HTR M1CW+2                                                       F3B11420
       HTR M1CW+3                                                       F3B11430
       TXI M13955,1,-2     DECREASE IR 1 BY -2                          F3B11440
M13955 TSX ERROR1+1,4      TEST IF ONLY 2 ARGUMENTS                     F3B11450
       STO M1CW+2          SYMBOLIC ADDRESS.                            F3B11460
       TXI M13960,1,-1                                                  F3B11470
M13960 CLA AIL,1           REL ADD AND TAG, IF ANY, TO                  F3B11480
       STO M1CW+3          M1CW+3                                       F3B11490
       ANA M1CON+15                ARG TAGGED                           F3B11500
       TZE M13965          ARG NOT TAGGED                               F3B11510
       MSE 99                                                           F3B11520
       TSX M12500,4        BACK T0 CHTG TABLE SEARCH                    F3B11530
       PSE 99                                                           F3B11540
M13965 TSX CIT00,4                                                      F3B11550
       HTR M1CON                                                        F3B11560
       HTR M1ABC+1         LDQ A2                                       F3B11570
       HTR M1CW+2                                                       F3B11580
       HTR M1CW+3                                                       F3B11590
       TSX CIT00,4                                                      F3B11600
       HTR M1CON                                                        F3B11610
       HTR M1ABC+6         LLS                                          F3B11620
       HTR M1CON                                                        F3B11630
       HTR M1CON                                                        F3B11640
       TXI M12035,1,-1     AIL ROUTINE                                  F3B11650
ERROR1 TSX 4,4             A MULT1 VARIATE FN. HAS ONLY 1 VARIABLE      F3B11660
ERR1   CLA AIL-2,1         INT. FORMULA NO. OF ARGURMENT                F3B11670
       SUB M1CON+17        -377777777777                                F3B11680
       TNZ ERROR2          SHOULD BE ALL 1S, FOR PARTICULAR ROUTINE     F3B11690
       CLA AIL,1           LOCATION OF ARGUMENT                         F3B11700
       TRA 1,4             BACK TO CONTINUE                             F3B11710
ERROR2 TSX 4,4             A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT    F3B11720
M1ECTR DEC 5,6,0,0                                                      F3B11730
M1CON  DEC 0,1,2,3,4,10B17,1B17,2B17,4B17,8B17,17B17,18B17,35B17        F3B11740
       OCT 77777000000,77777,2000,370,777777777777,1000001,312,314      F3B11750
M1ABC  BCD 7CLA000LDQ000MPY000LRS000ALS000STO000LLS000                  F3B11760
       BCD 7STQ00OFMP000SSP000UFA000ANA00OFAD000CLM000                  F3B11770
       BCD 7DVP00OFDP000TLQ000RTB000*000000*0000+00000                  F3B11780
       BCD 3100000600000ORA000                                          F3B11790
       OCT 170000000000                                                 F3B11800
       BCD 3SXD000WTB000CLS000                                          F3B11810
M1D    BCD 7XABS  ABS   XINT  INT   XFIX  FLOAT XMOD                    F3B11820
       BCD 4MOD   XSIGN SIGN  XMAX0                                     F3B11830
       BCD 7MAX1  XMAX1 MAX0  XMIN0 MIN1  XMIN1 MIN0                    F3B11840
COMBOX      TAG OR 1NT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT         F3B11850
CHTGL       2S COMP OF NO OF WORDS IN CHTG TABLE                        F3B11860
CHTGE1      2S COMP OF CUR. ENTRY POINT IN CHTG TABLE                   F3B11870
CHTGE2      2S COMP OF NEXT ENTRY POINT IN CHTG TABLE                   F3B11880
CHTGFN      INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK           F3B11890
SXTXL       LENGTH OF SXTX TABLE                                        F3B11900
SXLOC       LOCATION WORD OF CURRENT DO INST                            F3B11910
CBOX        IRC DURING CHTG TABLE SEARCH, SXTX TABLE SEARCH             F3B11920
TAGB0X      TAG OF CUR AIL INST DURING CHTG TABLE SEARCH                F3B11930
M1DOWN      2S COMP OF N0 OF WORDS IN CUR DO REC                        F3B11940
M1ALWN      2S COMP OF N0 OF WORDS IN CUR AIL REC                       F3B11950
M1TRC       NO OF REC READS                                             F3B11960
M1DOFN      INT FMLA NO OF CUR BLOCK OF DO INST                         F3B11970
M1ALFN      INT FMLA NO OF CUR BLOCK OF AIL INST                        F3B11980
CCOUNT      COUNT NO OF PAIRS OF MPY,LRS INST FOR EXP ROUTINE           F3B11990
CCELL       IND SPECIAL OP ROUTINE                                      F3B12000
ENDT        IND APPEARANCE OF END MARK IN MAX,MIN ROUTINES              F3B12010
E1C         CELL FOR SAVING MQ                                          F3B12020
E2C         CELL FOR SAVING IRA                                         F3B12030
E3C         CELL FOR SAVING IRB                                         F3B12040
BB0X        2S COMP OF NO OF WORDS  ALREADY ENTERED IN BLOCK            F3B12050
3WD         TEHP STORAGE FOR THID WD OF COMPILED INST                   F3B12060
4WD         TEHP STORAGE FORF0URTH WD OF COMPILED INST                  F3B12070
M1CW   BSS 4 FOUR WORD INST SPACE FOR COMPILING                         F3B12080
       PZE  LENGTH OF FORTAG TABLE                                      F3B12090
FORTAG BSS 1500 AIL,DO,CIB LATER SHARE THIS BLOCK                       F3B12100
UCHTG  BSS 300                                                          F3B12110
ERAS   BSS 2  ORIGEN + SXTX LENGTH, SXTX, CHTG LENGTH                   F3B12120
CHTG   BSS 600                                                          F3B12130
AIL    SYN FORTAG                                                       F3B12140
DO     SYN FORTAG+100                                                   F3B12150
CIB    SYN FORTAG+200                                                   F3B12160
SXTX   SYN FORTAG+300                                                   F3B12170
 0P1   SYN 3643                                                                 
       END 24                                                           F3B13420
       REM    MASTER RECORD CARD = FN058                                        
       REM THE FOLLOWING PROGRAM CONSTITUTES THE SECOND SECTION OF THE  F3B00010
       REM MERGE. IT PREPARES THE TIFGO FILE OF COMPILED INSTRUCTIONS   F3B00020
       REM - I.E., THE INSTRUCTIONS WHICH ARE NEEDED TO COMPLETE THE    F3800030
       REM TRANSLATION OF CONTR0L FORMULAS AS WELL AS THOSE WHICH BECOMEF3B00040
       REM NECESSARY AS A RESULT OF THE INTERRELATION BETWEEN CONTROL   F3B00050
       REM FORMULAS AND DO FORMULAS - FOR LATER MERGING WITH THE FILE OFF3B00060
       REM INSTRUCTIONS CREATED IN THE FIRST SECTION OF THE MERGE       F3B00070
       ORG 24                                                           F3B00080
       REM POSITIONING OF TAPE 2, TAPE 3, TAPE 4                        F3B00090
M20000 LXA M2CON,4         PLACE A ZERO IN IR 4                         F3B00100
CDR1   TXI M20000+2,4,11   ADD 13 FOR SPACING TAPE TO TIFGO TABLE       F3B00110
       RDS 146             POSITION TAPE 2 TO TIFGO TABLE, BY SPACING   F3B00120
       TIX M20000+2,4,1    OVER 7 RECORDS                               F3B00130
       REW 147             REWIND TAPE 3                                F3B00140
       REW 148             REWIN0 TAPE 4                                F3B00150
       REM PROGRAM TO READ TRASTO FROM DRUM                             F3B00160
       LXA M2ECTR,4        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B00170
 RDRA2 RDR 3               SELECT DRUM 3                                F3B00180
       LDA O456            LOCATE DRUM ADDRESS OF TRASTO                F3B00190
       CPY TRSWC           WORD COUNT                                   F3B00200
       CPY WCCHS           CHECK SUM                                    F3B00210
       CLA TRSWC           DOES WORD COUNT AGREE                        F3B00220
       SUB WCCHS           WITH ITS CHECK SUM                           F3B00230
       TZE RDRA1           YES                                          F3B00240
       TIX RDRA2,4,1       NO, TRY 4 MORE TIMES                         F3B00250
       TSX 4,4             WORD COUNT MOT EQUAL TO CHECK SUM            F3B00260
 RDRA1 CLA TRSWC           ARE THERE ENTRIES IN TRASTO                  F3B00270
       TZE RTT00           NO                                           F3B00280
       ADD ORTRST          INITIAL LOCATION OF TRASTO WORK AREA         F3B00290
       STA RDRB1           INITIALIZE ADDRESSES OF CPY INSTR.           F3B00300
       STA RDRB2                                                        F3B00310
       STA RDRB5                                                        F3B00320
       LXA M2ECTR,4        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B00330
RDRA3  RDR 3               SELECT DRUM 3                                F3B00340
       LXA TRSWC,1         PLACE WORD COUNT IN IR 1                     F3B00350
       LDA O460            INITIAL DRUM ADDRESS                         F3B00360
 RDRB1 CPY 0,1             AND COPY ALL OF THE TRASTO                   F3B00370
       TIX RDRB1,1,1       ENTRIES.                                     F3B00380
       CLM                 CLEAR ACC.                                   F3B00390
       LXA TRSWC,1         NEW WORD COUNT IN IR 1                       F3B00400
RDRB3  TXL RDRB4,1,0       CHECK COUNT DURING LOOP                      F3B00410
       LXA L(3),2          PLACE COUNT OF 3 IN IR 2 IN ORDER TO         F3B00420
 RDRB2 ACL 0,1             ADD LOGICALLY EVERYTHREE TRASTO              F3B00430
       TNX RDRB4,1,1       WORDS, COUNT ALL ENTRIES                     F3B00440
       TIX RDRB2,2,1       IR 2 USED TO COUNT EVERY THREE               F3B00450
       TXI RDRB3,1,-1      WORDS, SKIP OVER 4TH WORD.                   F3B00460
 RDRB4 SLW CHS1            AFTER ALL WORDS ARE COUNTED                  F3B00470
       CLM                 CLEAR ACC                                    F3B00480
       LXA TRSWC,1         WORD COUNT OF TRASTO ENTRIES                 F3B00490
       TXI RDRB5,1,-3      ADD OLD CHECKS SUMS, AND                     F3B00500
 RDRB5 ACL 0,1             ACCUMULATE SUM LOGICALLY                     F3B00510
       TIX RDRB5,1,4                                                    F3B00520
       SLW CHS2                                                         F3B00530
       CLA CHS1            COMPUTED CHECK SUM.                          F3B00540
       SUB CHS2            DO CHECK SUMS MATCH                          F3B00550
       TZE STRS            YES                                          F3B00560
       TIX RDRA3,4,1       IF THE SUMS DONT AGREE, TRY  4 MORE TIMES    F3B00570
COR3   TSX 4,4             CHECK SUMS INCORRECT AFTER 5 TRIES           F3B00580
       REM PROGRAM TO SORT TRASTO ENTRIES BY TYPE                       F3B00590
STRS   CLA TRSWC           INITIALIZATION OF ALL MODIFIED ADDRESSES     F3B00600
       ADD TRSORG                                                       F3B00610
       STA A4                                                           F3B00620
       STA A1                                                           F3B00630
       STA A3                                                           F3B00640
       STA B1                                                           F3B00650
       STA B5                                                           F3B00660
       STA C3                                                           F3B00670
       STA D2                                                           F3B00680
       STA D3                                                           F3B00690
       STA E2                                                           F3B00700
       STA E4                                                           F3B00710
       STA F3                                                           F3B00720
       SXD 1BOX,0          CLEAR DECREMENT OF WORK AREA                 F3B00730
       SXD 2BOX,0                                                       F3B00740
       SXD 3BOX,0                                                       F3B00750
       SXD 4BOX,0                                                       F3B00760
       SXD 5BOX,0                                                       F3B00770
       SXD 6BOX,0                                                       F3B00780
       LXA TRSWC,1         WORD COUNT IN IR 1                           F3B00790
       TXI A4,1,-2                                                      F3B00800
 A4    CLA 0,1             OBTAIN WORD 3, AND SEPARATE TYPES            F3B00810
       TMI D1              ENTRY IS TYPE 4,5 OR 6, 3RD WD, MINUS        F3B00820
       REM ENTRY IS TYPE 1, 2, OR 3                                     F3B00830
       TXI A1,1,2          RESTORE LOOP COUNT                           F3B00840
 A1    CLA 0,1             OBTAIN WORD 1                                F3B00850
       TPL B2              ENTRY IS TYPE 1 OR 2                         P3B0D890
       REM ENTRY IS TYPE 3                                              F3B00870
       LXA L(4),4          MINUS IN FIRST AND THIRD WDS.                F3B00880
       LXD 3BOX,2          PLACE A COUNT OF 4 IN IR 4,                  F3B00890
 A3    CAL 0,1             CLEAR IR 2, AND GET 1ST WD. IN ACC           F3B00900
       SLW TYPE3,2         PLACE IN PROPER MEMORY LOC.                  F3B00910
       TXI A2,2,-1         SUB. 1 FROM IR 2, LOOP BACK                  F3B00920
 A2    SXD 3BOX,2          TO GET 4 WORDS IN PROPER LOC.                F3B00930
       TNX PACK,1,1        EXIT FOR END OF TRASTO                       F3B00940
       TIX A3,4,1                                                       F3B00950
       TXI A4,1,-2         PICK UP NEXT TRASTO ENTRY                    F3B00960
       REM ENTRY IS TYPE 1 OR 2                                         F3B00970
 B2    TXI B1,1,-1                                                      F3B00980
 B1    CAL 0,1             OBTAIN WORD 2                                F3B00990
       ANA MASK            EXAMINE PREFIX, IF TYPE 2 HAS MINUS SIGN     F3B01000
       TZE C1              ENTRY IS TYPE 1                              F3B01010
       REM ENTRY IS TYPE 2                                              F3B01020
       TXI B3,1,1          RESTORE COUNT TO GET WORD 1                  F3B01030
 B3    LXA L(4),4          COUNT 4 IN IR 4                              F3B01040
       LXD 2BOX,2          CLEAR IR 2                                   F3B01050
 B5    CAL 0,1             1ST WORD                                     F3B01060
       SLW TYPE2,2         PROPER OUTPUT AREA                           F3B01070
       TXI B4,2,-1         DECREASE COUNT IN IR 2 BY -1                 F3B01080
 B4    SXD 2BOX,2          PLACE COUNT IN PROPER PLACE                  F3B01090
       TNX PACK,1,1        EXIT                                         F3B01100
       TIX B5,4,1                                                       F3B01110
       TXI A4,1,-2         TRANSFER BACK TO SORT NEXT ENTRY             F3B01120
       REM ENTRY IS TYPE 1                                              F3B01130
 C1    TXI C2,1,1          RESTORE COUNT TO GET WD 1.                   F3B01140
 C2    LXA L(4),4                                                       F3B01150
       LXD 1BOX,2                                                       F3B01160
 C3    CAL 0,1                                                          F3B01170
       SLW TYPE1,2         STORE IN PROPER MEMORY P0SITION              F3B01180
       TXI C4,2,-1                                                      F3B01190
 C4    SXD 1BOX,2          SAVE COUNT OF TYPE 1 ENTRY                   F3B01200
       TNX PACK,1,1        EXIT                                         F3B01210
       TIX C3,4,1                                                       F3B01220
       TXI A4,1,-2         BACK FOR NEXT ENTRY                          F3B01230
       REM ENTRY IS TYPE 4, 5 OR 6                                      F3B01240
 D1    TXI D2,1,2                                                       F3B01250
 D2    CLA 0,1             OBTAIN WORD 1                                F3B01260
       TPL E1              ENTRY IS TYPE 4 OR 6                         F3B01270
       REM ENTRY IS TYPE 5                                              F3B01280
       LXA L(4),4                                                       F3B01290
       LXD 5BOX,2          COUNT OF ENTRIES FOR TYPE 5                  F3B01300
 D3    CAL 0,1                                                          F3B01310
       SLW TYPE5,2         STORE IN PROPER MEMORY POS.                  F3B01320
       TXI D4,2,-1                                                      F3B01330
 D4    SXD 5BOX,2          SAVE COUNT FOR TYPE 1 ENTRY                  F3B01340
       TNX PACK,1,1        EXIT                                         F3B01350
       TIX D3,4,1                                                       F3B01360
       TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRY                     F3B01370
       REM ENTRY IS TYPE 4 OR 6                                         F3B01380
 E1    TXI E2,1,-1                                                      F3B01390
 E2    CAL 0,1             OBTAIN WORD 2                                F3B01400
       ANA MASK            TEST IF MINUS                                F3B01410
       TZE F1              ENTRY IS TYPE 4                              F3B01420
       REM ENTRY IS TYPE 6                                              F3B01430
       TXI E3,1,1          RESTORE COUNT TO GET WORD 1                  F3B01440
 E3    LXA L(4),4                                                       F3B01450
       LXD 6BOX,2                                                       F2B01460
 E4    CAL 0,1                                                          F3B01470
       SLW TYPE6,2         STORE IN PROPER MEMORY POS                   F3B01480
       TXI E5,2,-1                                                      F3B01490
 E5    SXD 6BOX,2          SAVE COUNT FOR TYPE 6 ENTRY                  F3B01500
       TNX PACK,1,1        EXIT                                         F3B01510
       TIX E4,4,1                                                       F3B01520
       TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRY                     F3B01530
       REM ENTRY IS TYPE 4                                              F3B01540
 F1    TXI F2,1,1                                                       F3B01550
 F2    LXA L(4),4                                                       F3B01560
       LXD 4BOX,2                                                       F3B01570
 F3    CAL 0,1                                                          F3B01580
       SLW TYPE4,2         STORE IN PROPER MEMORY POS                   F3B01590
       TXI F4,2,-1                                                      F3B01600
 F4    SXD 4BOX,2          SAVE COUNT FOR TYPE 4 ENTRY                  F3B01610
       TNX PACK,1,1        EXIT                                         F3B01620
       TIX F3,4,1                                                       F3B01630
       TXI A4,1,-2         OBTAIN NEXT TRASTO ENTRIES                   F3B01640
       REM TYPE 2 TO TRASTO                                             F3B01650
 PACK  LXD 1BOX,1          PACK TRASTO ENTRIES T0 GETHER                F3B01660
       LXD 2BOX,4          IN MEMORY IN ORDER OF TYPES 1 THRU           F3B01670
       TXL H5,4,0          6.                                           F3B01680
       LXD L(0),2                                                       F3B01690
 G4    CAL TYPE2,2                                                      F3B01700
       SLW TYPE1,1                                                      F3801710
       TXI G1,1,-1                                                      F3B01720
 G1    TXI G2,2,-1                                                      F3801730
 G2    TXI G3,4,1                                                       F3B01740
 G3    TXH G4,4,0          INDEX C REDUCES T0 ZERO                      F3B01750
       REM TYPE 3 TO TRASTO                                             F3B01760
 H5    LXD 3BOX,2                                                       F3B01770
       TXL I5,2,0                                                       F3B01780
 H4    CAL TYPE3,4                                                      F3B01790
       SLW TYPE1,1                                                      F3B01800
       TXI H1,1,-1                                                      F3B01810
 H1    TXI H2,4,-1                                                      F3B01820
 H2    TXI H3,2,1                                                       F3B01830
 H3    TXH H4,2,0                                                       F3B01840
       REM TYPE 4 TO TRASTO                                             F3B01850
 I5    LXD 4BOX,4                                                       F3801860
       TXL J5,4,0                                       -               F3B01870
 I4    CAL TYPE4,2                                                      F3B01880
       SLW TYPE1,1                                                      F3B01890
       TXI I1,1,-1                                                      F3B01900
 I1    TXI I2,2,-1                                                      F3B01910
 I2    TXI I3,4,1                                                       F3B01920
 I3    TXH I4,4,0                                                       F3B01930
       REM TYPE 5 TO TRASTO                                             F3B01940
 J5    LXD 5BOX,2                                                       F3D01950
       TXL K5,2,0                                                       F3B01960
 J4    CAL TYPE5,4                                                      F3B01970
       SLW TYPE1,1                                                      F3B01980
       TXI J1,1,-1                                                      F3B01990
 J1    TXI J2,4,-1                                                      F3B02000
 J2    TXI J3,2,1                                                       F3B02010
 J3    TXH J4,2,0                                                       F3B02020
       REM TYPE 6 TO TRASTO                                             F3B02030
 K5    LXD 6BOX,4                                                       F3B02040
       TXL CALL,4,0                                                     F3B02050
 K4    CAL TYPE6,2                                                      F3B02060
       SLW TYPE1,1                                                      F3B02070
       TXI K1,1,-1                                                      F3B02080
 K1    TXI K2,2,-1                                                      F3B02090
 K2    TXI K3,4,1                                                       F3B02100
 K3    TXH K4,4,0                                                       F3B02110
       REM PROGRAM TO READ TIFGO TABLE                                  F3B02120
 RTT00 RTT                 TURN OFF TAPE CHECK INDICATOR AND LITES      F3B02130
CALL   SYN RTT00                                                        F3B02140
       NOP                                                              F3B02150
       LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02160
 RTTD3 RTB 2               SELECT TAPE 2 T0 READ TIFGO                  F3B02170
       CPY TIFGO-1                                                      F3B02180
       CLA TIFGO-1         IDENTIFICATION FOR TIFGO TABLE               F3B02190
       SUB L(2)            IS TABLE CALLED FOR                          F3B02200
       TZE RTTD1           YES                                          F3B02210
       TSX 4,4             NOT TIFGO FILE                               F3B02220
 RTTD1 CPY TIFGO-1         GET WORD COUNT                               F3B02230
       LXA L(0),1                                                       F3B02240
       CLA TIFGO-1         TEST WD. COUNT                               F3B02250
       TZE RTTD5           NO TIFGO ENTRIES                             F3B02260
 RTTD2 CPY TIFGO,1         COPY                                         F3B02270
       TXI RTTD2,1,-1      LOOP                                         F3B02280
       TSX 4,4             EOF INCORRECT                                F3B02290
       IOD                 EOR                                          F3B02300
 RTTD5 RTT                 IS TAPE CHECK ON                             F3B02310
       TRA RTTD4           YES                                          F3B02320
       SXD TIFGO-1,1       NO                                           F3B02330
       TRA RTTE1           TO READ TRAD TABLE                           F3B02340
 RTTD4 BST 2                                                            F3B02350
       TIX RTTD3,2,1                                                    F3B02360
COR4   TSX 4,4             ERROR READING TIFGO TABLE AFTER 5 TRIES      F3B02370
       REM PROGRAM T0 READ TRAD TABLE                                   F3B02380
RTTE1  LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02390
 RTTE5 RTB 2               READ TRAD TABLE FROM TAPE 2                  F3B02400
       CPY TRAD-1          IDENTIFICATION NUMBER                        F3B02410
       CLA TRAD-1                                                       F3B02420
       SUB L(3)            IS TABLE CALLED FOR                          F3B02430
       TZE RTTE2           YES                                          F3B02440
       TSX 4,4             TRAD TABLE NOT CALLED FOR                    F3B02450
 RTTE2 CPY TRAD-1          GET WORD COUNT                               F3B02460
       CLA TRAD-1          TEST WORD COUNT FOR NUMBER OF ENTRIES        F3B02470
       TZE RTTE6                                                        F3B02480
       LXA L(0),1                                                       F3B02490
 RTTE3 CPY TRAD,1          COPY TRAD ENTRIES AND GET 2S COMP.           F3B02500
       TXI RTTE3,1,-1      OF NUMBER OF ENTRIES.                        F3B02510
       TSX 4,4             EOF INCORRECT                                F3B02520
       IOD                 EOR                                          F3B02530
 RTTE6 RTT                 IS TAPE CHECK ON                             F3B02540
       TRA RTTE4           YES                                          F3B02550
       TRA RTTC0           NO                                           F3B02560
 RTTE4 BST 2               ERROR ROUTINE FOR READING TRAD               F3B02570
       TIX RTTE5,2,1       ENTRIES                                      F3B02580
COR5   TSX 4,4             AFTER 5 TRIES                                F3B02590
       REM PROGRAM T0 READ TRALEV                                       F3B02600
 RTTC0 CLM                 CLEAR ACCUMULATOR                            F3B02610
       SLW TRALEV-1        SET WORD PRECEDING ENTRIES T0 ZERO           F3B02620
RTTC4  LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02630
 RTTC2 RTB 4               READ TRALEV ENTRIES FROM TP. 4               F3B02640
       CPY TRALEV          IDENTIFICATION                               F3B02650
       RTT                 IS TAPE CHECK ON                             F3B02660
       TRA RTTC1           YES                                          F3B02670
       TRA RTTC3           NO                                           F3B02680
 RTTC1 BST 4               ERROR ROUTINE FOR READING TRALEV             F3B02690
       TIX RTTC2,2,1                                                    F3B02700
COR6   TSX 4,4             AFTER 5 TRIES                                F3B02710
 RTTC3 CLA TRALEV          IS TRALEV EMPTY                              F3B02720
       TZE OUT             YES                                          F3B02730
       LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02740
 RTTA3 LXD M2CON+9,1       RESET IR 1 T0 ALL ONES                       F3B02750
 RTTA1 CPY TRALEV,1        COPY LOOP. ADD COUNT TO READ ADDRESS         F3B02760
       TXI RTTA1,1,-1                                                   F3B02770
       TSX 4,4             EOF INCORRECT                                F3B02780
       IOD                 EOR                                          F3B02790
       RTT                 IS TAPE CHECK ON                             F3B02800
       TRA RTTA2           YES                                          F3B02810
       TRA RTTB1           NO                                           F3B02820
 RTTA2 BST 4               BACKSPACE TAPE 4                             F3B02830
       RTB 4               READ AGAIN                                   F3B02840
       CPY TRALEV          GET WORD COUNT                               F3B02850
       TIX RTTA3,2,1       TRY AGAIN T0 READ IN ENTRIES                 F3B02860
COR7   TSX 4,4             ERROR READING TAPE 4                         F3B02870
 RTTB1 SXD RTTB4,1         SAVE WORD COUNT OF FIRST RECORD, 2S COMP,    F3B02880
       LXA M2ECTR,2        LOAD COUNT OF 5 FOR ERROR ROUTINE            F3B02890
 RTTB5 RTB 4                                                            F3B02900
       LXD RTTB4,1         REPLACE COUNT IN IR 1 OF FIRST RECORD        F3B02910
 RTTB2 CPY TRALEV,1        COPY SECOND RECORD ETC, IN PROPER PLACE      F3B02920
       TXI RTTB2,1,-1      SUBTRACT 1 FROM COUNT                        F3B02930
       TRA RTTB6           EOF                                          F3B02940
       IOD                 EOR                                          F3B02950
       RTT                 IS TAPE CHECK ON                             F3B02960
 RTTB4 TXL RTTB3,1         YES, COMPARE TO WORD COUNT OF FIRST          F3B02970
       TRA RTTB6           RECORD, NO.                                  F3B02980
 RTTB3 BST 4                                                            F3B02990
       TIX RTTB5,2,1                                                    F3B03000
COR8   TSX 4,4             ERROR TRYING T0 READ TRALEV FROM TAPE 4      F3B03010
 RTTB6 SXD TRALEV-1,1      SAVE TRALEV WORD COUNT                       F3B03020
 OUT   CLA TRSWC           TIFGO WORD COUNT.                            F3BD3030
       COM                                                              F3B03040
       ADD M2CON+1         2S COMPLIMENT OF WORD COUNT                  F3B03050
       PAX 0,1             IN IR 1                                      F3B03060
       SXD CTRSWC,1        SAVE WORD COUNT                              F3B03070
       LXD M2CON+16,1      PLACE 5 IN IR 1                              F3B03080
 RDS   RDS 146             MOVE UP TAPE 2, 3 FILES TO TIFGO             F3B03090
 CPY   CPY M2CW+4          FILE                                         F3B03100
       TRA CPY                                                          F3B03110
       TRA TIX             END OF RECORD                                F3B03120
       TRA RDS                                                          F3B03130
TIX    TIX RDS,1,1                                                      F3B03140
 REW   REW 148             TAPE.4 REWOUND                               F3B03150
       CLM                 SET ACC. TO ZERO                             F3B03160
       SLW TIFFN           REPLACE INDEX COUNTERS                       F3B03170
       SLW CTRAST          CELLS TO ZEROS                               F3B03180
       SLW ETRAL                                                        F3B03190
       SLW LEVN0                                                        F3B03200
       SLW CBOX                                                         F3B03210
       SLW BBOX                                                         F3B03220
       SLW L0X                                                          F3B03230
       SLW ASN0                                                         F3B03240
       SLW EASC0                                                        F3B03250
       SLW ETRAST                                                       F3B03260
       SLW NETRAL                                                       F3B03270
       SLW TFRC0                                                        F3B03280
       LXA M2CON,1         INITIALIZE IR 1 TO ZERO                      F3B03290
       REM M2 MAIN PROGRAM-        TIFGO FMLA NO NOT IN                 F3B03300
       REM TRALEV                                                       F3B03310
M21000 PXD 0,1             TEST T0 SEE IF AT END OF TIFGO               F3B03320
       SUB TIFGO-1         N0. OF TIFGO ENTRIES                         F3B03330
       TZE M21900          END OF TIFGO                                 F3B03340
       CLA TIFGO,1         FIRST WD. OF TIFGO ENTRY,                    F3B03350
       STD TIFFN           SAVE INTERNAL FMLA. NO.                      F3B03360
       TMI M21010          SIGNIFIES AN IF                              F3B03370
       ANA M2CON+10        TEST DIFFERTENT TYPES                        F3B03380
       SUB M2CON+4                                                      F3B03390
       TZE M21600          TIFGO ENTRY AN ASSIGN                        F3B03400
M21010 CLA ETRAL           DETERMINE CURRENT TIFGO ENTRY                F3B03410
       SUB TRALEV-1        FOR CORRESPONDING TRALEV ENTRY               F3B03420
       TZE M21020          END OF TRALEV                                F3B03430
       LXD ETRAL,2         IR 2, CURRENT TRALEV ENTRY                   F3B03440
       CLA TRALEV,2        TRALEV, FMLA WD.                             F3B03450
       ADD TIFFN           TIFGO FMLA NO.                               F3803460
       TZE M22000          T1FG0 ENTRY IN TRALEV                        F3B03470
M21020 CLA TIFGO,1                                                      F3B03480
       TMI M21800          TIFGO ENTRY AN IF(E)                         F3B03490
       ANA M2CON+10                                                     F3B03500
       TZE M21030          TIFGO ENTRY A GO TO A                        F3B03510
       CAS M2CON+3                                                      F3B03520
       TXI M21500,1,-1     TIFGO ENTRY AN IF OVERFLOW                   F3B03530
       TXI M21400,1,-1     TIFGO ENTRY AN IF DIVCK                      F3B03540
       CAS M2CON+2                                                      F3B03550
       TXI M21300,1,-1     TIFGO ENTRY AN IF SENSE                      F3B03560
       TXI M21100,1,-1     TIFGO ENTRY A GO TO (A),1                    F3B03570
       TXI M21000,1,-2     TIFGO ENTRY A GO TO N(A)                     F3B03580
       REM TIFGO ENTRY A GO TO A                                        F3B03590
M21030 TXI M21030+1,1,-1                                                F3B03600
       CLA TIFGO,1         2ND WORD BETA IN ADDRESS                     F3B03610
       ALS 18              SHIFT TO DECREMENT                           F3B03620
       STO M2CW+2          3RD WD OF INSTRUCTION AREA                   F3B03630
       TSX CIT200,4        COMPILE INSTRUCTION                          F3B03640
       HTR TIFFN           ALPHA                                        F3B03650
       HTR M2ABC           TRA                                          F3B03660
       HTR M2CW+2          BETA                                         F3B03670
       HTR M2CON           0                                            F3B03680
       TXI M21000,1,-1                                                  F3B03690
       REM TIFGO ENTRY A GO TO (A),I                                    F3B03700
M21100 CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B03710
       PAX 0,2             CTRAD U  IN IR 2                             F3B03720
       SXD L0X,2           SAVE CTRAD U IN INDEX CELL DECR.             F3B03730
       ANA M2CON+9         SAVE CTRAD 1 IN ACCUMULATOR                  F3B03740
       ADD M2CON+7         ADD ONE, CTRAD 1+I                           F3803750
       SUB L0X             CTRAD U                                      F3B03760
       STO M2CW+3          4TH WD OF INSTRUCTION                        F3B03770
M21110 TSX CIT200,4        COMP1LE                                      F3B03780
       HTR TIFFN           ALPHA                                        F3B03790
       HTR M2CON           ZERO                                         F3B03800
       HTR TIFFN           ALPHA                                        F3B03810
       HTR M2CW+3          NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2        F3B03820
       TXI M21120,2,1      STEP UP COUNT TO NEXT TRAD ENTRY             F3B03830
M21120 CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B03840
       STD M21140          STORE IN TXL INSTRUCTION                     F3B03850
M21125 CLA TRAD+250,2      BRING IN NEXT TRAD ENTRY                     F3B03860
       ALS 18              PUT BETA1 IN DECREMENT                       F3B03870
       STO M2CW+2          3RD WD. OF CIT                               F3B03880
       TSX CIT200,4        COMPILE                                      F3B03890
       HTR M2CON           ZERO                                         F3B03900
       HTR M2ABC           TRA                                          F3B03910
       HTR M2CW+2          TRAD BI                                      F3B03920
       HTR M2CON           ZERO                                         F3B03930
       TXI M21140,2,1      STEP UP TRAD ENTRY                           F3B03940
M21140 TXL M21125,2        TEST IF LAST TRAD ENTRY, NO                  F3B03950
       TXI M21000,1,-1     BACK TO NEXT TIFGO.                          F3B03960
       REM TIFGO ENTRY AN IF SENSE                                      F3B03970
M21300 TSX CIT200,4        COMPILE                                      F3B03980
       HTR TIFFN           ALPHA                                        F3B03990
       HTR M2CON           ZERO                                         F3B04000
       HTR M2CON           ZERO                                         F3B04010
       HTR M2CON           ZERO                                         F3B04020
       CLA TIFGO,1         2ND. WORD OF TIFGO ENTRY                     F3B04030
       ANA M2CON+10        SAVE ADDRESS, BETA 2                         F3B04040
       ALS 18              SHIFT TO DECREMENT                           F3B04050
       LXA M2CON+2,2       LOAD 2 IN IR 2, 2 SETS OF 1NSTRUCTION        F3B04060
M21310 STO M2CW+2          STORE BETA 2 IN 3RD WD.                      F3B04070
       TSX CIT200,4        COMPILE                                      F3B04080
       HTR M2CON           ZERO                                         F3B04090
       HTR M2ABC           TRA                                          F3B04100
       HTR M2CW+2          BETA 2, BETA 1                               F38D411D
       HTR M2CON           ZERO                                         F3B04120
       CLA TIFGO,1         2ND WORD                                     F3B04130
       ANA M2CON+9         SAVE DECREMENT                               F3B04140
       TIX M21310,2,1      COMPILE SECOND TRA                           F3B04150
       TXI M21000,1,-1     BACK T0 OBTAIN NEXT TIFGO                    F3B04160
       REM TIFGO ENTRY AN IF DIV CK                                     F3B04170
M21400 TSX CIT200,4        COMPILE                                      F3B04180
       HTR TIFFN           ALPHA                                        F3B04190
       HTR M2CON           ZERO                                         F3B04200
       HTR M2CON           ZERO                                         F3B04210
       HTR M2CON           ZERO                                         F3B04220
       CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B04230
       ANA M2CON+9         SAVE DECREMENT                               F3B04240
       LXA M2CON+2,2       COUNT OF 2 IN IR 2                           F3B04250
M21410 STO M2CW+2          COMPILE                                      F3B04260
       TSX CIT200,4        COMPILE                                      F3B04270
       HTR M2CON           ZERO                                         F3B04280
       HTR M2ABC           TRA                                          F3B04290
       HTR M2CW+2          BETA1,                                       F3B04300
       HTR M2CON           ZERO                                         F3B04310
       CLA TIFGO,1         2ND WORD                                     F3B04320
       ANA M2CON+10        SAVE BETA 2                                  F3B04330
       ALS 18              PLACE IN DECREMENT                           F3B04340
       TIX M21410,2,1      COMPILE 2ND TRA INSTR,                       F3B04350
       TXI M21000,1,-1     BACK TO GET NEXT TIFGO                       F3B04360
       REM TIFGO ENTRY AN IF OVERFLOW                                   F3B04370
M21500 CLA TIFGO,1         2ND WORD 0F TIFGO ENTRY                      F3B04380
       ANA M2CON+9         SAVE DECREMENT                               F3B04390
       STO M2CW+2          3RD WORD, BETA 1                             F3B04400
       TSX CIT200,4        COMPILE                                      F3B04410
       HTR TIFFN           ALPHA                                        F3B04420
       HTR M2CON           ZERO                                         F3B04430
       HTR M2CW+2          BETA 1                                       F3B04440
       HTR M2CON           ZERO                                         F3B04450
       CLA TIFGO,1         2ND WORD OF TIFGO ENTRY                      F3B04460
       ANA M2CON+10        SAVE BETA 2                                  F3B04470
       ALS 18              SHIFT TO DECREMENT                           F3B04480
       STO M2CW+2          3RD WORD OF COMPILED INSTRUCTIONS            F3B04490
M21515 TSX CIT200,4        COMPILE                                      F3B04500
       HTR M2CON           ZERO                                         F3B04510
       HTR M2ABC           TRA                                          F3B04520
       HTR M2CW+2          BETA 2                                       F3B04530
       HTR M2CON           ZERO                                         F3B04540
       TXI M21000,1,-1     BACK TO NEXT TIFGO ENTRY                     F3B04550
       REM TIFGO ENTRY AN IF (E)                                        F3B04560
M21800 ANA M2CON+10        SAVE ADDRESS OF 1ST WD, BETA 1               F3B04570
       ALS 18              PLACE IN DECREMENT                           F3B04580
       STO M2CW+2          3RD WORD OF CIT                              F3B04590
       TSX CIT200,4        COMPILE                                      F3B04600
       HTR TIFFN           ALPHA                                        F3B04610
       HTR M2CON           ZERO                                         F3B04620
       HTR M2CON           ZERO                                         F3B04630
       HTR M2CON           ZERO                                         F3B04640
       TXI M21810,1,-1     STEP COUNT FOR 2ND TIFGO WORD                F3B04650
M21810 CLA TIFGO,1         2ND WD. OF TIFGO ENTRY                       F3B04660
       ANA M2CON+9         SAVE DECREMENT BETA 2                        F3804670
       STO M2CW+4          5TH WD.                                      F3B04680
       CLA TIFFN           ALPHA                                        F3B04690
       ORA M2CON+5         10(8) INSTR. NO. WITHIN INTERNAL FMLANO.     F3B04700
       STO M2CW            INTERNAL FMLA NO.                            F3B04710
       TSX CIT200,4        COMPILE                                      F3B04720
       HTR M2CW                                                         F3B04730
       HTR M2ABC+1         TZE                                          F3B04740
       HTR M2CW+4          BETA 2 C(M2CW+4)                             F3B04750
       HTR M2CON           ZERO                                         F3B04760
       CLA TIFGO,1         2ND WORD 0F TIFGO ENTRY                      F3B04770
       ANA M2CON+10        SAVE ADDRESS, BETA 3                         F3B04780
       ALS 18              SHIFT TO DECREMENT                           F3B04790
       STO M2CW+4          STORE BETA 3                                 F3B04800
       TSX CIT200,4        COMPILE                                      F3B04810
       HTR M2CON           ZERO                                         F3804820
       HTR M2ABC+2         TPL                                          F3B04830
       HTR M2CW+4          BETA 3 C(M2CW+4)                             F3B04840
       HTR M2CON           ZERO                                         F3B04850
       TRA M21515          TR. TO COMPILE TRA TO BETA 1                 F3B04860
       REM TIFGO ENTRY AN ASSIGN                                        F3B04870
M21600 CLA ASN0            CURRENT ASSIGN NO.                           F3B04880
       STO M2CW+3          4TH WORD OF CIT                              F3B04890
       ADD M2CON+7         +000001000000                                F3B04900
       STO ASN0            REPLACE ASSIGN NO.                           F3B04910
       TSX CIT200,4        COMPILE                                      F3B04920
       HTR TIFFN           ALPHA                                        F3B04930
       HTR M2CON           ZERO                                         F3B04940
       HTR M2CON+11        +030000000000                                F3B04950
       HTR M2CW+3          CURRENT ASSIGN NO.                           F3B04960
M21610 TXI M21610+1,1,-1                                                F3B04970
       CLA TIFGO,1         2ND WD. OF TIFGO ENTRY                       F3B04980
       ALS 18              PLACE BETA IN DECREMENT                      F3B04990
       LXD EASC0,2         CURRENT ASC0 ENTRY PT. IN IR 2               F3B05000
       STO ASC0,2          STORE BETA IN PROPER ASC0 LOC                F3B05010
       TXI M21620,2,-1     STEP COUNT FOR NEXT ASC0 ENTRY               F3B05020
M21620 SXD EASC0,2         PT. AND STORE                                F3B03030
       TXI M21000,1,-1     BACK FOR NEXT TIFGO                          F3B05040
       REM M2 TERMINAL ROUTINE                                          F3B05050
M21900 LXD BBOX,2          2S COMPL. OF NO OF WDS IN BLOCK              F3B05060
       LXD TFRC0,4                                                      F3B05070
       TXI M21900+3,4,3    STEP UP BLOCK COUNT BY 3                     F3B05080
       TXL M21920,2,0      TEST IF AT END OF BLOCK                      F3B05090
       WRS 146             SELECT TAPE 2                                F3B05100
       TXI M21910-1,4,1    STEPUP IR 4 BY 1                             F3B05110
       LXD M2CON,1         ZEROS IN IR 1                                F3B05120
M21910 CPY CIB2,1          WRITE REMAINING CITS                         F3B05130
       TXI M21910+2,1,-1   DECREASE COUNT IN IR 1                       F3B05140
       TXI M21910+3,2,1    INCREASE COUNT IN IR 2                       F3B05150
       TXH M21910,2,1      TEST 1F AT END                               F3B05160
M21920 WEF 146             WRITE END OF FILE                            F3B05170
       BST 146                                                          F3B05180
       TIX M21920+1,4,1                                                 F3B05190
M21925 RDS 146             POSITION TAPE 2 AT BEGINNING                 F3B05200
       CPY M2CW+4          OF TIFGO FILE                                F3B05210
       TRA M21925+1        BACK TO READ LOOP                            F3B05220
       TRA M22000-2                                                     F3B05230
       TRA M21925                                                       F3B05240
       RTB 1                                                            F3B05250
       TRA 4                                                            F3B05260
       REM M2-MAIN PROGRAM-TIFGO FMLA NO IN                             F3B05270
       REM TRALEV                                                       F3B05280
M22000 TXI M22000+1,2,-1   UPDATE TRALEV ENTRY                          F3B05290
       SXD ETRAL,2         POINT, SAVE IN PROPER CELL                   F3B05300
       LXD M2CON,2         RESET IR 2 WITH ZERO                         F3B05310
       TSX M22700,4        TRASTO FMLA NO SEARCH, M2 SUBROUTINE         F3B05320
       TRA M22006          CUR TIFGO FMLA NO NOT IN TRASTO              F3B05330
       TRA M22015          CUR TIFGO FMLA NO IN TRASTO                  F3B05340
M22006 LXD ETRAL,2         2S COMPL. 0F TRALEV ENTRY PT. COUNT          F3B053S0
       CLA TRALEV,2        TRALEV ENTRY                                 F3B05360
       TMI M22013          IS IT START OF NEXT ENTRY 2                  F3B05370
       PXD 0,2             TRALEV ENTRY PT CT. IN ACC                   F3B05380
       SUB TRALEV-1        TRALEV WORD COUNT                            F3B05390
       TZE M22013          IS IT END OF TRALEV TABLE, YES               F3B05400
       TXI M22006+1,2,-1   NO, UPDATE TRALEV TABLE                      F3B05410
M22013 SXD ETRAL,2         START OF NEXT ENTRY, SAVE COUNT              F3B05420
       TRA M21020          OF TRALEV, BACK TO COMPILE INSTR.            F3B05430
M22015 SXD ETRAST,2        SAVE TRASTO ENTRY PT.                        F3B05440
       CLA M2CON           INITIALIZE ADDC0                             F3B05450
       STO ADDCO                                                        F3B05460
       CLA TIFGO,1         OBTAIN TIFGO TYPE, TRANSFER TO ROUTINES      F3B05470
       TMI M22600          IF(E)                                        F3B05480
       ANA M2CON+10                                                     F3B05490
       TZE M22020          GO TO A                                      F3B05500
       CAS M2CON+3                                                      F3B05510
       TXI M22500,1,-1     IF OVERFLOW                                  F3B05520
       TXI M22400,1,-1     IF DIV CK                                    F3B05530
       CAS M2CON+2                                                      F3B05540
       TXI M22300,1,-1     IF SENSE                                     F3B05550
       TXI M22200,1,-1     GO TO (A),1                                  F3B05560
       TXI M22100,1,-1     GO TO N (A)                                  F3B05570
       REM TIFGO ENTRY A GO TO A                                        F3B05580
M22020 CLA TIFFN           CURRENT TIFGO FMLA NO.                       F3B05590
PAT1   STO M2CW                                                         F3B05600
PAT2   CLA M2CON+5         +10,INCREMENT                                F3B05610
PAT3   STO CLOC            FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK      F3B05620
M22022 TSX M22750,4        TRASTO LEV.NO.SEARCH                         F3B05630
       TSX M22800,4        CUR.TIFGO LEV.NO.IN TRASTO                   F3B05640
       LXD CTRAST,2        CUR.TIFGO NO.NOT IN TRASTO                   F3B05630
M22025 TXI M22025+1,2,-4   UP0ATE TRASTO ENTRY POINT                    F3B05660
       TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B05670
       TRA M22035          TIFGO FMLA NO.NOT AGAIN FOUND                F3B05680
       CLA ADDCO           TIFGO FMLA NO AGAIN FOUND                    F3B05600
       TZE M22022          TIFGO ENTRY NOT YET FOUND IN TRASTO          F3B05700
       CLA M2CON           TIFGO ENTRY ALREADY FOUND IN TRASTO          F3B05710
       STO M2CW            ADJUST LOCATION WORD TO ZERO                 F3B05720
       TRA M22022          BACK TO LEVEL NO. SEARCH                     F3B05730
M22035 CLA ADDCO           NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO   F3B05740
       TZE M22040          TIFGO ENTRY NEVER FOUND IN TRASTO            F3B0S730
       CLA M2CON+13        TIFGO ENTRY FOUND IN TRASTO                  F3B05760
       STO M2CW            +170000000000 , NEW. LOC. WORD               F3B05770
M22040 CLA TIFGO+1,1       TIFGO BETA                                   F3B05780
       ALS 18              PUT INTO DECREMENT                           F3B05790
       STO M2CW+2          3RD WORD                                     F3B05800
       TSX CIT200,4        COMPILE FINAL INSTRUCTION                    F3B05810
       HTR M2CW            17(8)                                        F3B05820
       HTR M2ABC           TRA                                          F3B05830
       HTR M2CW+2          BETA                                         F3B05840
       HTR M2CON           ZERO                                         F3B05850
       LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B05860
M22050 TXI M22050+1,2,-1                                                F3B05870
       SXD ETRAL,2         UPDATE TRALEV TO NEXT ENTRY                  F3B05880
       TXI M21000,1,-2     BACK TO TEST AGAIN.                          F3B05890
       REM TIFGO ENTRY A GO TO N (A)                                    F3B05900
M22100 CLA TIFFN           CURRENT TIFGO ALPHA                          F3B05910
       CHS                 MAKE LOCATION WORD POSITIVE                  F3B05920
PAT5   STO M2CW                                                         F3B05930
PAT6   CLA M2CON+5         +10                                          F3B05940
PAT7   STO CLOC            SAVE INCREMENT                               F3B05930
M22105 TSX M22750,4        TRASTO LEV NO SEARCH                         F3B05960
       TSX M22800,4        CUR TIFGO LEV NO.IN TRASTO                   F3B05970
       LXD CTRAST,2        CUR TIFGQ LEV NO NOT IN TRASTO               F3B05980
M22110 TXI M22110+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B05990
       TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B06000
       TRA M22120          TIFGO FMLA NO.NOT AGAIN FOUND                F3B06010
       CLA ADDCO           TIFGO FMLA NO.AGAIN FOUND                    F3B06020
       TZE M22105          TIFGO ENTRY NOT YET FOUND IN TRASTO          F3B06030
       CLA M2CON           T1FG0 ENTRY ALREADY FOUND IN TRASTO          F3B06040
       STO M2CW            ADJUST LOCATION WROD TO ZERO                 F3B06030
       TRA M22105          BACK TO LEVEL NO. SEARCH                     F3806060
M22120 LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B06070
       CLA TRALEV,2        BEGINNING OF TRALEV BLOCK                    F3B06080
       TMI M22130                                                       F3B06090
       PXD 0,2             TEST IF END OF TRALEV                        F3B06100
       SUB TRALEV-1                                                     F3B06110
       TZE M22130                                                       F3B06120
       TXI M22120+1,2,-1   SPACE OVER TO NEXT ENTRY                     F3806130
M22130 SXD ETRAL,2                                                      F3B06140
       TXI M21000,1,-1                                                  F3B061S0
       REM TIFGO ENTRY A GO TO (A),1                                    F3B06160
M22200 CLA TIFGO,1         COMPUTE N+1 (CTRAD1- CTRAD2+1)               F3806170
       PAX 0,2             STORE IN M2CW+3                              F3B06180
       SXD L0X,2           STORE COMPILING FIRST                        F3B06100
       ANA M2CON+9         INSTRUCTION                                  F3806200
       ADD M2CON+7                                                      F3B06210
       SUB L0X                                                          F3806220
       STO M2CW+3                                                       F3806230
       COM                 COMPUTE 2S COMP OF                           F3B06240
       ADD M2CON+8         N-1 IN ORDER TO                              F3806230
       STD M22220          OBTAIN TRALEV ENTRY                          F3B06260
       LXD ETRAL,2         POINT FOR LAST ADDRESS                       F3B06270
       SXD M22240+1,2                                                   F3B06280
       SXD M22275+1,2                                                   F3806290
M22220 TXI M22220+1,2                                                   F3806300
       SXD NETRAL,2        TRALEV. ENTRY PT. FOR LAST ADDRESS           F3B06310
       SXD ETRAL,2         CURRENT TRALEV ENTRY PT.                     F3806320
       TSX CIT200,4        COMPILE FIRST INSTRUCTION                    F3B06330
       HTR TIFFN           ALPHA                                        F3806340
       HTR M2CON           ZERO                                         F3B06350
       HTR TIFFN           ALPHA                                        F3B06360
       HTR M2CW+3          NO. OF ADDRESS IN TRAD                       F3B06370
M22225 TSX M22750,4        TRASTO LEVEL NO SEARCH                       F3B06380
       TSX M23000,4        COR TIFGO LEV NO IN TRASTO                   F3B06390
       LXD CTRAST,2        CUR TIFGO LEV NO NOT IN TRASTO               F3806400
M22230 TXI M22230+1,2,-4   UPDATE TRASTD ENTRY POINT                    F3B06410
       TSX M22700,4        TRASTO FMLA NO.SEARCH                        F3B06420
       TSX M23050,4        TIFGO FMLA NO.NOT AGAIN FOUND                F3B06430
       TRA M22225          TIFGO FMLA NO AGAIN FOUND                    F3B06440
M22233 CLA ETRAST          RESET CTRAST CELL FOR                        F3B06430
       STO CTRAST          TRASTO LEV NO SEARCH                         F3B06460
       LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B06470
       TXI M22240-1,2,1                                                 F3B06480
       SXD ETRAL,2                                                      F3B06490
M22240 TXL M22240+2,2,0                                                 F3B06500
       TXL M22225,2                                                     F3B06510
       CLA ADDCO                                                        F3B06520
       TZE M22275+2        TIFGO ENTRY NEVER FOUND IN TRASTO            F3B06530
       LXD NETRAL,2        RESET ETRAL FOR SECOND                       F3B06540
       SXD ETRAL,2         PASS THROUGH TRASTO                          F3B06550
       CLA M2CON+5         1NITIALIZE LOCATION                          F3B06560
       STO CLOC            COUNTER                                      F3B06570
       STO M2CW            SET LOCATION WORD FOR FIRST                  F3B06580
M22245 CLA TIFFN           TRASTO INSERT                                F3B06590
       ORS M2CW                                                         F3B06600
       CLA M2CON           INITIALIZE ADDC0 FOR                         F3B06610
       STO ADDCO           TRASTO LEV.NO.SEARCH AND TRANSFER TO PERFORM F3B06620
M22250 TSX M22750,4        TRASTO LEV.NO.SEARCH                         F3B06630
       TSX M22800,4        CUR TIFGO LEV NO FOUND                       F3B06640
       LXD CTRAST,2        CUR TIFGO NO.NOT FOUND                       F3B06650
M22255 TXI M22255+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B06660
       TSX M22700,4        TRASTO FMLA NO.SEARCH                        F3B06670
       TRA M22263          TIFGO FMLA NO.NOT AGAIN FOUND                F3B06680
       CLA ADDCO           TIFGO FMLA NO.AGAIN FOUND                    F3B06690
       TZE M22250          CUR TIFGO ADD NOT YET FOUND IN TRASTO        F3B06700
       CLA M2CON           CURT1FG0 ADD ALREADY FOUND IN TRASTO         F3B06710
       STO M2CW            ADJUST LOCATION WORD                         F3B06720
       TRA M22250                                                       F3B06730
M22263 CLA ADDCO                                                        F3B06740
       TZE M22270          CUR. TIFGO NEVER FQUND IN TRASTO             F3B06750
       TSX M23075,4        CUR. TIFGO ADD. FOUND IN.TRASTO              F3B06760
       CLA CLOC            UPDATE LOCATION WORD FOR NEXT ENTRY          F3B06770
       ADD M2CON+5         BLOCK OF TRASTO UNSERTS                      F3B06780
       STO CLOC                                                         F3B06790
       STO M2CW                                                         F3B06800
M22270 CLA ETRAST          RESET CTRAST FOR TRASTO                      F3B06810
       STO CTRAST          LEV. Ni. SEARCH                              F3B06820
       LXD ETRAL,2         UPDATE TRALEV ENTRT PiINT                    F3B06830
       TXI M22275-1,2,1                                                 F3B06840
       SXD ETRAL,2                                                      F3B06850
M22275 TXL M22275+2,2,0                                                 F3B06860
       TXL M22245,2                                                     F3B06870
       LXD NETRAL,2        UPDATE TRALEV ENTRY POINT                    F3806880
       TXI M22280,2,-1     FOR NEXT TIFGO ENTRY                         F3B06890
M22280 SXD ETRAL,2                                                      F3B06900
       TXI M21000,1,-1     BACK TO NEXT TIFGO                           F3B06910
       REM TIFGO ENTRY AN IF SENSE                                      F3B06920
M22300 LXD ETRAL,2         UPDATE TRALEV                                F3B06930
       SXD M22240+1,2                                                   F3B06940
       SXD M22275+1,2                                                   F3B06950
M22303 TXI M22303+1,2,-1                                                F3B06960
       SXD NETRAL,2                                                     F3B06970
       SXD ETRAL,2                                                      F3B06980
       TSX CIT200,4        COMPILE INFO. INSTRUCTION                    F3B06990
       HTR TIFFN           ALPHA                                        F3B07000
       HTR M2CON           ZERO                                         F3B07010
       HTR M2CON           ZERO                                         F3B07020
       HTR M2CON           ZERO                                         F3B07030
       TRA M22225          TRASTO LEVEL NO. SEARCH                      F3B07040
       REM TIFGO ENTRY AN IF DIV CK                                     F3B07050
M22400 LXD ETRAL,2         UPDATE TRALEV                                F3B07060
       TXI M22400+2,2,-2                                                F3B07070
       SXD M22425+1,2                                                   F3B07080
       SXD M22465+1,2                                                   F3B07090
       TSX CIT200,4        COMPILE INFO. INSTRUCTION                    F3B07100
       HTR TIFFN           ALPHA                                        F3B07110
       HTR M2CON           ZERO                                         F3B07120
       HTR M2CON           ZERO                                         F3B07130
       HTR M2CON           ZERO                                         F3B07140
M22410 TSX M22750,4        TRASTO LEVEL NO SEARCH                       F3B07150
       TSX M23000,4        CUR. TIFGO LEVEL NO. IN TRASTO               F3B07160
       LXD CTRAST,2        CUR. TIFGO LEVEL NO. NOT IN TRASTO           F3B07170
M22415 TXI M22415+1,2,-4   UPDATE TRASTO ENTRY POINT                    F3B07180
       TSX M22700,4        TRASTO FMLA. NO. SEARCH                      F3B07190
       TSX M23050,4        TIFGO FMLA. NO NOT AGAIN FOUND               F3B07200
       TRA M22410          TIFGO FMLA. NO. AGAIN FOUND                  F3B07210
M22420 CLA ETRAST          RESET CTRAST CELL FOR                        F3B07220
       STO CTRAST          TRASTO LEVEL NO. SEARCH                      F3B07230
       LXD ETRAL,2         UPDATE TRALEV ENTRY POINT                    F3B07240
       TXI M22425,2,-1                                                  F3B07250
M22425 SXD ETRAL,2                                                      F3B07260
       TXH M22410,2                                                     F3B07270
       CLA ADDCO                                                        F3B07280
       TZE M22465+2        TIFGO ENTRY NEVER FOUND IN TRASTO            F3B07290
       TXI M22430,2,2      RESET ETRAL FOR SECOND                       F3B07300
M22430 SXD ETRAL,2         PASS THROUGH TREASTO                         F3B07310
       CLA M2CON+5                 INITIALIZE LOCATION                  F3B07320
       STO CLOC                    COUNTER                              F3B07330
       STO M2CW                    SET LOCATION WORD FOR                F3B07340
M22435 CLA TIFFN                   FIRST TRASTO INSERT                  F3B07330
       ORS M2CW                                                         F3B07360
       CLA M2CON                   INITIALIZE ADDC0 FOR                 F3B07370
       STO ADDCO                   TRASTO LEV NO SEARCH                 F3B07380
M22440 TSX M22750,4                TRASTO LEV NO SEARCH                 F3B07390
       TSX M22800,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B07400
       LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07410
M22445 TXI M22445+1,2,-4           UPDATE TRASTO ENTRY POINT            F3807420
       TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07430
       TRA M22455                  TIFGO FMLA NO NOT AGAIN FOUND        F3B07440
       CLA ADDCO                   TIFGO FMLA NO AGAIN FOUND            F3B07450
       TZE M22440                  CUR TIFGO ADD NOT YET FOUND IN TRASTOF3807460
       CLA M2CON                   CUR TIFGO ENTRY ALREADY FOUND IN TRASF3B07470
       STO M2CW                    ADJUST LOCATION WORD                 F3B07480
       TRA M22440          TRASTO LEV. NO, SEARCH                       F3B07490
M22455 CLA ADDCO                                                        F3B07500
       TZE M22460                  CUR TIFGO ADD NEVER FOUND IN TRASTO  F3807510
       TSX M23075,4                CUR TIFG0 ADD FOUND IN TRASTO        F3B07520
       CLA CLOC                    UPDATE LOCATION WORD FOR             F3B07530
       ADD M2CON+5                 NEXT BLOCK OF TRASTO INSERTS         F3B07540
       STO CLOC                                                         F3B07550
       STO M2CW                                                         F3B07560
M22460 CLA ETRAST                  RESET CTRAST FOR TRASTO LEV          F3B07570
       STO CTRAST                  NO SEARCH                            F3B07580
       LXD ETRAL,2                 UPDATE TRALEV ENTRY                  F3B07590
       TXI M22465,2,-1             POINT                                F3B07600
M22465 SXD ETRAL,2                                                      F3B07610
       TXH M22435,2        TEST END OF TRALEV ENTRIES .                 F3B07620
       TXI M21000,1,-1     NEXT TIFGO.                                  F3B07630
       REM TIFGO ENTRY AN IF OVERFLOW                                   F3B07640
M22500 LXD ETRAL,2         INITIALIZE AND RECORD END OF                 F3B07650
       TXI M22500+2,2,-2   TRALEV ENTRY                                 F3B07660
       SXD M22425+1,2                                                   F3B07670
       SXD M22465+1,2                                                   F3B07680
M22505 TSX M22750,4                TRASTO LEV NO SEARCH                 F3B07690
COR12  TSX M23025,4                                                     F3B07700
       LXD CTRAST,2                CUR TIFGO LEV NO NOT IN TRASTO       F3B07710
M22510 TXI M22510+1,2,-4           UPDATE TRASTO ENTRY POINT            F3B07720
       TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07730
       TSX M23060,4                TRASTO FMLA NO NOT AGAIN FOUND       F3B07740
       TRA M22505                  TRASTO FMLA NO AGAIN FOUND           F3B07750
       TRA M22420          CONTINUE AS IN DVCH.                         F3B07760
       REM TIFGO ENTRY AN IF (E)                                        F3B07770
M22600 LXD ETRAL,2         PERMUTE WDS. OF THIS TRALEV ENTRY            F3B07780
       CLA TRALEV,2        SO THAT                                      F3B07790
       STO SAVE            A1, A2, A3, BECOMES A2, A3, A1               F3B07800
       CLA TRALEV+1,2              A2 FIRST                             F3B07810
       STO TRALEV,2                                                     F3B07820
       CLA TRALEV+2,2              A3 SECOND                            F3B07830
       STO TRALEV+1,2                                                   F3B07840
       CLA SAVE                    A1 THIRD                             F3B07850
       STO TRALEV+2,2                                                   F3B07860
M22610 TXI M22610+1,2,-3                                                F3B07870
       SXD M22465+1,2                                                   F3B07880
       TSX CIT200,4                COMPILE INFO INSTRUCTION             F3B07890
       HTR TIFFN           ALPHA                                        F3B07900
       HTR M2CON           ZERO                                         F3B07910
       HTR M2CON           ZERO                                         F3B07920
       HTR M2CON           ZERO                                         F3B07930
M22620 TSX M22750,4                TRASTQ LEV NO SEARCH                 F3B07940
       TSX M23035,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B07930
       LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07960
M22625 TXI M22625+1,2,-4           UPDATE TRASTO ENTRY POINT            F3B07970
       TSX M22700,4                TRASTO FMLA NO SEARCH                F3B07980
       TSX M23065,4                TRASTO FMLA NO NOT AGAIN FOUND       F3B07990
       TRA M22620                  TRASTO FMLA NO AGAIN FOUND           F3B08000
M22630 CLA ETRAST                  RESET CTRAST CELL FOR                F3B08010
       STO CTRAST                  TRASTO LEV NO SEARCH                 F3B08020
       LXD ETRAL,2                 UPDATE TRALEV                        F3B08030
       TXI M22635,2,-1             ENTRY POINT                          F3B08040
M22635 SXD ETRAL,2                                                      F3B08050
M22640 TSX M22750,4                TRASTO LEVEL NO SEARCH               F3B08060
       TSX M23040,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B08070
       LXD CTRAST,4                CUR TIFGO LEV N0 NOT FOUND IN TRASTO F3B08080
       TXI M22645,2,-4             UPDATE TRASTO ENTRY POINT            F3B08090
M22645 TSX M22700,4                TRASTO FMLA NO SEARCH                F3B08100
       TSX M23070,4                TIFGO FMLA NO NOT AGAIN FOUND        F3B08110
       TRA M22640                  TIFGO FMLA NO AGAIN FOUND            F3B08120
M22650 CLA ETRAST                  RESET CTRAST CELL FOR                F3B08130
       STO CTRAST                  TRASTO LEV NO SEARCH                 F3B08140
       LXD ETRAL,2                                                      F3B08150
       TXI M22655,2,-1             UPDATE TRALEV                        F3B08160
M22655 SXD ETRAL,2                 ENTRY POINT                          F3B08170
       CLA ADDCO                   SET ADDC0 FOR                        F3B08180
       ADD M2CON+5                 TRA ADDRESS                          F3B08190
       STO ADDCO                                                        F3B08200
M22660 TSX M22750,4                TRASTQ LEV NO SEARCH                 F3B08210
       TSX M23000,4                CUR TIFGO LEV NO FOUND IN TRASTO     F3B08220
       LXD CTRAST,2                CUR TIFGO LEV NO NOT FOUND IN TRASTO F3808230
       TXI M22663,2,-4             UPDATE TRASTO ENTRY POINT            F3B08240
M22663 TSX M22700,4                TRASTO FMLA NO SEARCH                F3B08250
       TSX M23050,4                TIFGO FMLA NO NOT AGAIN FOUND        F3B08260
       TRA M22660                  TIFO FMLA NO AGAIN FOUND             F3B08270
       LXD ETRAL,2                                                      F3B08280
       TXI M22670,2,-1             UPDATE TRALEV ENTRY POINT            F3B08290
M22670 SXD ETRAL,2                 FOR NEXT TIFGO ENTRY                 F3B08300
       CLA ADDCO                                                        F3B08310
       SUB M2CON+5                                                      F3B08320
COR13  TZE M21030-1                                                     F3B08330
       TXI M22675,2,3              RESET ETRAL FOR                      F3B08340
M22675 SXD ETRAL,2                 SECOND PASS THROUGH TRASTO           F3B08350
       CLA ETRAST                  RESET CTRAST FOR SECOND              F3B08360
       STO CTRAST                  PASS THROUGH TRASTO                  F3B08370
       CLA M2CON+6                 INITIALIZE LOCATION                  F3B08380
       TXI M22435-2,1,-1                                                F3B08390
       REM M2 CLOSED SUBROUTINES                                        F3B08400
       REM TRASTO FMLA NO SEARCH                                        F3B08410
M22700 PXD 0,2             PLACE COUNT 0F TRALEV ENTRY IN AC.           F3B08420
       SUB TRASTO-1        TRASTO WORD COUNT                            F3B08430
       TZE 1,4             EQUAL. TR BACK                               F3B08440
       CLA TRASTO,2        TRASTO ENTRY                                 F3B08450
       ANA M2CON+10        SAVE DECREMENT                               F3B08460
       ALS 18              SHIFT B TO DECREMENT PORTION                 F3B08470
       CAS TIFFN           CURRENT TIFGO FMLA. NO.                      F3B08480
       TRA M22710          TRASTO GREATER THAN TIFGO                    F3B08490
       TRA M22715          TRASTO EQUAL TO TIFGO FMLA NO                F3B08500
       TXI M22700,2,-4     TRAS TO LESS THAN TIFGO, BACK TO BRING NEXT  F3B08510
M22710 CLA TRASTO,2        TRASTO ENTRY                                 F3B08520
       ANA M2CON+9         MASK OUT ADDRESS                             F3B08530
       CAS TIFFN           INTERNAL FORMULA NO. ALPHA                   F3B08540
       TXI M22700,2,-4     TRASTO                                       F3B08550
       TXI M22700,2,-4                                                  F3B08560
M22715 SXD CTRAST,2                                                     F3B08570
       TRA 2,4             TRASTO NOT FOUND                             F3B08580
       REM TRASTO LEVEL NO SEARCH                                       F3B08590
M22750 SXD CBOX,4          TR COUNT STORED FOR LINKAGE                  F3B08600
       LXD ETRAL,2         CURRENT TRALEV ENTRY PT. IN IR 2             F3B08610
       CLA TRALEV,2        LOAD TRALEV WORD                             F3B08620
       STA LEVN0           CURRENT LEVEL NO.                            F3B08630
       LXD CTRAST,2        CURRENT TRASTO ENTRY PT.                     F3B08640
       CLA TWOL            TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD  F3808630
       TZE M22770          TYPE 2                                       F3B08660
       CLA CTRAST          CURRENT TRASTO ENTRY PT.                     F3B08670
       TNZ M22760                                                       F3B08680
       CLA ONEL            TYPE 1                                       F3B08690
       TZE M22787                                                       F3B08700
       TRA M22770                                                       F3B08710
M22760 CLA ONEL            TEST TYPE 1                                  F3B08720
       TNZ M22767                                                       F3808730
M22762 ADD TWOL            NO. OF TYPE 2                                F3B08740
       PDX 0,4                                                          F3B08750
       PXD 0,4                                                          F3B08760
       CAS CTRAST          COMPARE                                      F3B08770
       TRA M22770                                                       F3B08780
       TRA M22770                                                       F3B08790
       TRA M22787                                                       F3B08800
M22767 CAS CTRAST                                                       F3B08810
       TRA M22762                                                       F3B08820
       TRA M22762                                                       F3B08830
M22770 CLA TRASTO+1,2      LEVEL NOS.                                   F3B08840
       ANA M2CON+10        SAVE ADDRESS, TEST UPPER LEVEL               F3B08850
       CAS LEVN0           COMPARE TO CURRENT TIFGO LEVEL NO,           F3808860
       TRA M22777          LESS THAN                                    F3B08870
       TRA M22795                                                       F3B08880
       TRA M22795                                                       F3B08890
M22777 CLA TRASTO+1,2      LEVEL NOS.                                   F3B08900
       ANA M2CON+9         SAVE DECREMENT                               F3B08910
       ARS 18    -         PLACE IN ADDRESS                             F3B08920
       CAS LEVN0           CURRENT TIFGO LEVEL NO.                      F3B08930
       TRA M22795          EXIT, NOT FOUND                              F3B08940
       TRA M22783          EQUAL TO OR GREATER THAN                     F3B08930
M22783 CLA ADDCO           NO. OF TIMES TIFGO APPEARS                   F3808960
       ADD M2CON+5         ADD 10(8) INCREMENT                          F3B08970
       STO ADDCO           RESTORE                                      F3B08980
       LXD CBOX,4          RESTORE LINKAGE, LEVEL NO.                   F3B08990
       TRA 1,4             FOUND.                                       F3B09000
M22787 CLA TRASTO+2,2      TAGS, WORD 3, TYPE 2 LEVEL NO.               F3B09010
       ANA M2CON+9         SAVE DECREMENT                               F3B09020
       ARS 18              SHIFT TO ADDRESS                             F3B09030
       CAS LEVN0           COMPARE LEVEL NO.                            F3B09040
       TRA M22783                                                       F3B09050
       TRA M22795                                                       F3809060
M22795 LXD CBOX,4                                                       F3B09070
       TRA 2,4             NOT FOUND, BACK TO MAIN ROUTINE              F3B09080
       REM INDEXING INSTRUCTION COMPILER                                F3B09090
M22800 SXD CBOX,4          SAVE COUNT IN 4 FOR LINKAGE                  F3B09100
       LXD M2CON,2         PLACE ZERO IN IR 2                           F3B09110
       CLA CTRAST          CURRENT TRASTO ENTRY POINT                   F3B09120
       TNZ M22810                                                       F3B09130
M22805 CLA ONEL,2          LENGTH OF TYPE 1 ENTRY ETC.                  F3B09140
       TNZ M22819,2        ENTRIES EXIST                                F3B09150
       TXI M22805,2,-1     GET NEXT TYPE ENTRY                          F3B09160
M22810 CLA M2CON           ZERO IN ACC.                                 F3B09170
       ADD ONEL,2          LENGTH OF TYPE 1 ENTRY ETC                   F3B09180
       PDX 0,4             PLACE THIS RESULT INIR 4                     F3B09190
       PXD 0,4             PUT BACK IN ACC., CLEARING ADDRESS           F3B09200
       TZE M22813                                                       F3B09210
       SUB CTRAST          CURRENT TRASTO ENTRY POINT                   F3B09220
       TMI M22819,2        PROPER TYPE                                  F3B09230
       ADD CTRAST                                                       F3B09240
M22813 TXI M22810+1,2,-1   SORT ACCORDING TO TYPE                       F3B09250
M22819 TRA M22825                  TYPE I INSERTS                       F3B09260
       TRA M22850                  TYPE II INSERTS                      F3B09270
       TRA M22875                  TYPE III INSERTS                     F3B09280
       TRA M22900                  TYPE IV INSERTS                      F3B09290
       TRA M22925                  TYPE V INSERTS                       F3B09300
       TRA M22950                  TYPE VI INSERTS                      F3B09310
M22825 LXD CTRAST,2                TYPE I INSERTS                       F3B09320
       CLA TRASTO+2,2      3RD WRD 0F TRASTO ENTRY                      F3B09330
       LRS 18              ADDRESS PORTION IN MQ                        F3B09340
       STO M2CW+3          DECREMENT, T1, IN 4TH WORD                   F3B09350
       CAL M2CON+12        +140000000000                                F3B09360
       SLW M2CW+2          SYMBOLIC ADDRESS                             F3B09370
       LLS 18              PUT BACK T2 IN ACC                           F3B09380
       ORS M2CW+2          PUT 1N ADDRESS PART OF 3RD WD                F3B09390
       TSX CIT200,4        COMPILE INSTRUCTIONS                         F3B09400
       HTR M2CW            INT. FMLA NO. IF ANY                         F3B09410
       HTR M2ABC+3         SXD                                          F3B09420
       HTR M2CW+2          +140000000000, T2                            F3B09430
       HTR M2CW+3          T1                                           F3B09440
       STO M2CW+3          PUT T2 IN 4TH WRD.                           F3B09450
       TSX CIT200,4        COMPILE                                      F3B09460
       HTR M2CON           ZERO                                         F3B09470
       HTR M2ABC+4         LXD                                          F3B09480
       HTR M2CW+2          14(8),T2                                     F3B09490
       HTR M2CW+3          T2                                           F3B09500
M22848 LXD CBOX,4          RESTORE LINKAGE                              F3B09510
       TRA 1,4             BACK TO MAIN ROUTINE                         F3B09520
M22850 LXD CTRAST,2                TYPE II INSERTS                      F3B09530
       CAL TRASTO+1,2      2ND WORD OF TRASTO ENTRY                     F3B09540
       SLW M2CW+2          SAVE IN 3RD WORD FOR COMPILER                F3B09550
       CAL TRASTO+2,2      3RD WD OF ENTRY                              F3B09560
       ANA M2CON+10        SAVE ADDRESS                                 F3B09570
       SLW M2CW+3          STORE IN 4TH WD                              F3B09580
       TSX CIT200,4        COMPILER                                     F3B09590
       HTR M2CW            INTERNAL FMLA NO., IF ANY                    F3B09600
       HTR M2ABC+5         PXD                                          F3B09610
       HTR M2CON           ZERO                                         F3B09620
       HTR M2CW+3          ZERO,T1                                      F3B09630
       TSX CIT200,4        COMPILER                                     F3B09640
       HTR M2CON           ZERO                                         F3B09650
       HTR M2ABC+6         STO                                          F3B09660
       HTR M2CW+2          S(BCD)                                       F3B09670
       HTR M2CON           ZERO                                         F3B09680
       TRA M22848          TO RESTORE LINKAGE                           F3B09690
M22875 LXD CTRAST,2                TYPE III INSERTS                     F3B09700
       CLA TRASTO+2,2      3RD WRD OF TRASTO ENTRY                      F3B09710
       LRS 18              SHIFT N T0 MG                                F3B09720
       ADD M2CON+7         1 T0 ADDRESS FOR SIGN                        F3B09730
       STO M2CW+3          4TH WORD                                     F3B09740
       CLM                 CLEAR ACC                                    F3B09750
       LLS 18              PUT N BACK IN ACC.                           F3B09760
       COM                 COMPLIMENT                                   F3B09770
       ADD M2CON+1         ADD ONE, 2 S COMPLIMENT                      F3B09780
       ANA M2CON+10        SAVE ADDRESS                                 F3B09790
       STO M2CW+1          2ND WORD OF COMPILER                         F3B09800
       CAL M2ABC+7         TXI                                          F3B09810
       ORS M2CW+1          IN DECREMENT                                 F3B09820
       TSX CIT200,4        COMPILER                                     F3B09830
       HTR M2CW                                                         F3B09840
       HTR M2CW+1          TXI, N(COMP)                                 F3B09850
       HTR M2CON+13        +170000000000                                F3B09860
       HTR M2CW+3          1,                                           F3B09870
       TRA M22848          RESTORE LINKAGE                              F3B09880
M22900 LXD CTRAST,2                TYPE IV INSERT                       F3B09890
       CLA TRASTO+2,2      3RD WRD 0F TRASTO ENTRY                      F3B09900
       CHS                 CHANGE SIGN TO PLUS                          F3B09910
       LRS 18              T1, T0 ADDRESS. T2 TO M2                     F3B09920
COR14  NOP                                                              F3B09930
PAT9   STO M2CW+3                                                       F3B09940
PAT10  CLA CLOC            INCREMENT FOR LOC WD OF 1ST ENTRY            F3B09950
PAT11  ADD M2CON+5         ADD 10                                       F3B09960
PAT12  STO CLOC            RESTORE WITH NEW INCREMENT                   F3B09970
PAT13  STO M2CW+2          ALS 0 PLACE IN 3RD WD OF COMPILER            F3B09980
PAT14  CLA TRSWC           WORD COUNT                                   F3B09990
PAT15  ORS M2CW+2          SAVE IN DECREMENT OF 3RD WD                  F3B10000
RET3   TSX CIT200,4        COMPILER                                     F3B10010
       HTR M2CW                                                         F3B10020
       HTR M2ABC+3         SXD                                          F3B10030
COR16  HTR M2CW+2          WORD COUNT, INCREMENTED LOC WD               F3B10040
       HTR M2CW+3          T1                                           F3B10050
       CLA TRASTO+2,2      3RD WORD OF TRASTO ENTRY                     F3B10060
       ANA M2CON+10        SAVE ADDRESS                                 F3B10070
       ADD M2CON+7         1 TO ADDRESS FOR C                           F3B10080
       STO M2CW+3          4TH WORD                                     F3B10090
       TSX CIT200,4        COMPILER                                     F3B10100
COR17  HTR M2CW+2          LOC WORD                                     F3B10110
       HTR M2ABC+8         TIX                                          F3B10120
       HTR M2CON+13        17(8)                                        F3B10130
       HTR M2CW+3          1T2                                          F3B10140
       TRA M22848          BACK TO RESTORE LINKAGE                      F3B10150
M22925 LXD CTRAST,2                TYPE V INSERTS                       F3B10160
       CLA TRASTO+2,2      3RD WORD                                     F3B10170
       CHS                 CHANGE SIGN TO PLUS                          F3B10180
       LRS 18              SHIFT T TO ADDRESS, N TO MQ                  F3B10190
       ADD M2CON+7         1 FOR SIGN                                   F3B10200
       STO M2CW+3          4TH WRD. FOR COMPILER                        F3B10210
       CAL M2ABC+7         TXI                                          F3B10220
       ARS 18              SHIFT TO ADDRESS PORTION                     F3B10230
       LLS 18              CONTENTS OF MQ                               F3B10240
       SLW M2CW+1          1 TXI, N                                     F3B10250
       TSX CIT200,4        COMPILER                                     F3B10260
       HTR M2CW                                                         F3B10270
       HTR M2CW+1          TXI, N                                       F3B10280
       HTR M2CON+13        17(8)                                        F3B10290
       HTR M2CW+3          1,T                                          F3B10300
       TRA M22848          RESTORE LINKAGE                              F3B10310
M22950 LXD CTRAST,2                TYPE VI INSERTS                      F3B10320
       CLA TRASTO+2,2      3RD WORD 0F TRASTO ENTRY                     F3B10330
       CHS                                                              F3B10340
       ORA M2CON+14        +120000000000                                F3B10350
       STO M2CW+2          3RD WD OF COMPILER                           F3B10360
       CLA M2CON+3         +000000000004                                F3B10370
COR18  ORA COR28           +000004                                      F3B10380
       STO M2CW+4          5TH WORD                                     F3B10390
       TSX CIT200,4        COMPILER                                     F3B10400
       HTR M2CW                                                         F3B10410
       HTR M2ABC+3         SXD                                          F3B10420
       HTR M2CON+15        60000000000                                  F3B10430
       HTR M2CW+4          4,4                                          F3B10440
       TSX CIT200,4        COMPILER                                     F3B10450
       HTR M2CON           ZERO                                         F3B10460
       HTR M2ABC+9         TSX                                          F3B10470
       HTR M2CW+2          12(8),T                                      F3B10480
       HTR M2CON+3         ZERO,4                                       F3B10490
       CLS TRASTO+2,2      3RD WORD                                     F3B10500
       STO M2CW+3          4TH WD OF COMPILER                           F3B10510
       ORA M2CON+12        14 IN DECREMENT                              F3B10520
       STO M2CW+2          3RD WD, SAVE T                               F3B10530
       TSX CIT200,4        COMPILER                                     F3B10540
       HTR M2CON           ZERO                                         F3B10550
       HTR M2ABC+4         LXP                                          F3B10560
       HTR M2CW+2          14(8),T                                      F3B10570
       HTR M2CW+3          ZERO,T                                       F3B10580
       TSX CIT200,4        COMPILER                                     F3B10590
       HTR M2CON           ZERO                                         F3B10600
       HTR M2ABC+10        LXD                                          F3B10610
       HTR M2CON+15        6(8)                                         F3B10620
       HTR M2CW+4          5   4                                        F3B10630
       TRA M22848          BACK TO RESTORE LINKAGE                      F3B10640
       REM INITIAL TRANSFER COMPILERS FOR TIFGO ENTRIES                 F3B10650
       REM WHEN A TRASTO ENTRY IS ASSOCIATED WITH                       F3B10660
       REM THE TRANSFER ADDRESS                                         F3B10670
       REM TRANSFER WITH LOCATION 0                                     F3B10680
M23000 SXD ADD6+3,4        SAVE CONTENTS 0F IR4 FOR LINKAGE             F3B10690
       CLA TIFFN           CURRENT TIF60 FMLA. NO. IN DECR.             F3B10700
       STO M2CW+2          3RD WORD                                     F3B10710
       CLA ADDCO           8 TIMES N0, 0F TIMES ADDRESS )S IN TRASTO    F3B10720
       ORS M2CW+2          PLACE IN ADDRESS                             F3B10730
       TSX CIT200,4        COMPILER                                     F3B10740
       HTR M2CON           ZERO                                         F3B10750
       HTR M2ABC           TRA                                          F3B10760
       HTR M2CW+2          TIFEN, ADDC0                                 F3B10770
       HTR M2CON           ZERO                                         F3B10780
COR20  TRA PAT17                                                        F3B10790
       TRA 6,4             BACK TO MAIN ROUTINE                         F3B10800
       REM INFO INSTRUCTION FOR IF OVERFLOW                             F3B10810
M23025 SXD ADD6+3,4        SAVE LINKAGE                                 F3B10820
       CLA TIFFN           TIFGO FMLA NO.                               F3B10830
       STO M2CW+2          3RD WD.                                      F3B10840
       CLA ADDCO           COUNT                                        F3B10850
       ORS M2CW+2          ADDRESS                                      F3B10860
       TSX CIT200,4        COMPILER                                     F3B10870
       HTR TIFFN           TIFGO FMLA NO.                               F3B10880
       HTR M2CON           ZERO                                         F3B10890
       HTR M2CW+2          TIFFN, ADDC0                                 F3B10900
       HTR M2CON                                                        F3B10910
COR22  TRA PAT17                                                        F3B10920
       TRA 6,4                                                          F3B10930
       REM TRANSFER ON ZERO WITH LOCATION FMLA NO + 8                   F3B10940
M23035 SXD ADD6+3,4                                                     F3B10950
       CLA TIFFN                                                        F3B10960
       STO M2CW            INT.FMLA NO                                  F3B10970
       STO M2CW+2          3RD WD                                       F3B10980
       CLA ADDCO           COUNT                                        F3B10990
       ORS M2CW            ADDRESS OF FIRST WD.                         F3B1100D
       ADD M2CON+5         ADD 10                                       F3B11010
       ORS M2CW+2          ADD 10 TO COUNT                              F3B11020
       TSX CIT200,4        COMPILER                                     F3B11030
       HTR M2CW            INT FMLAN0, ADDC0                            F3B11040
       HTR M2ABC+1         TZE                                          F3B11050
       HTR M2CW+2          INT. FMLA NO., ADDC0+10                      F3B11060
       HTR M2CON           ZERO                                         F3B11070
COR24  TRA PAT17                                                        F3B11080
       TRA 6,4                                                          F3B11090
       REM TRANSFER ON PLUS WITH LOCATION 0                             F3B11100
M23040 SXD ADD6+3,4        SAVE LINKAGE                                 F3B11110
       CLA TIFFN           TIFGO INT. FMLA NO.                          F3B11120
       STO M2CW+2          3RD WD                                       F3B11130
       CLA ADDCO                                                        F3B11140
       ADD M2CON+5         10 TO ADDC0                                  F3B11150
       ORS M2CW+2          IN ADDRESS OF 3RD WD                         F3B11160
       TSX CIT200,4        COMPILER                                     F3B11170
       HTR M2CON           ZERO                                         F3B11180
       HTR M2ABC+2         TPL                                          F3B11190
       HTR M2CW+2          TIFFN, ADDC0+10                              F3B11200
       HTR M2CON           ZERO                                         F3B11210
COR26  TRA PAT17                                                        F3B11220
       TRA 6,4                                                          F3B11230
       REM INITIAL TRANSFER COMPILERS FOR TIFGO                         F3B11240
       REM ENTRIES WHEN THERE IS NO TRASTO ENTRY                        F3B11250
       REM FOR THE TRANSFER ADDRESS                                     F3B11260
       REM TRANSFER WITH LOCATION 0                                     F3B11270
M23050 SXD CBOX,4          SAVE LINKAGE                                 F3B11280
       LXD ETRAL,2         IN IRZ CURRENT TRALEV ENTRY PT,              F3B11290
       CLA TRALEV,2        CURRENT TRALEV ENTRY                         F3B11300
       ANA M2CON+9         SAVE DECREMENT, OF TRAVEV ENTRY              F3B11310
       STO M2CW+2          SRD WORD                                     F3B11320
       TSX CIT200,4        COMPILER                                     F3B11330
       HTR M2CON           ZERO                                         F3B11340
       HTR M2ABC           TRA                                          F3B11350
       HTR M2CW+2          AI                                           F3B11360
       HTR M2CON           ZERO                                         F3B11370
       LXD CBOX,4          RESTORE LINKAGE                              F3B11380
       TRA 2,4                                                          F3B11390
       REM INFO INSTRUCTION FOR IF OVERFLOW                             F3B11400
M23060 SXD CBOX,4          SAVE LINKAGE                                 F3B11410
       LXD ETRAL,2         CURRENT TRALEV ENTRY DT.                     F3B11420
       CLA TRALEV,2        TRALEV ENTRY                                 F3B11430
       ANA M2CON+9         SAVE DECREMENT                               F3B11440
       STO M2CW+2          3RD WD                                       F3B114S0
       TSX CIT200,4        COMPILER                                     F3B11460
       HTR TIFFN           TIFGO INT. FMLA NO                           F3B11470
       HTR M2CON           ZERO                                         F3B11480
       HTR M2CW+2          AI                                           F3B11490
       HTR M2CON           ZERO                                         F3B11500
       LXD CBOX,4          RESTORE LINKAGE                              F3B11510
       TRA 2,4                                                          F3B11520
       REM TRANSFER ON ZERO WITH LOCATION FMLA NO + 8                   F3B11530
M23065 SXD CBOX,4          SAVE LINKAGE                                 F3B11540
       LXD ETRAL,2         CURRENT TRALEV ENTRY PT                      F3B11550
       CLA TRALEV,2        SAVE DECREMENT OF TRALEV                     F3B11560
       ANA M2CON+9         ENTRY                                        F3B11570
       STO M2CW+2                                                       F3B11580
       CLA TIFFN           TIFGO FMLA NO.                               F3B11590
       STO M2CW                                                         F3B11600
       CLA M2CON+5         10 (8)                                       F3B11610
       ORS M2CW            ADD TO ADDRESS                               F3B11620
       TSX CIT200,4                                                     F3B11630
       HTR M2CW            T1FFN+10(8)                                  F3B11640
       HTR M2ABC+1         TZE                                          F3B11650
       HTR M2CW+2          AI                                           F3B11660
       HTR M2CON           ZERO                                         F3B11670
       LXD CBOX,4                                                       F3B11680
       TRA 2,4                                                          F3B11690
       REM TRANSFER ON PLUS WITH LOCATION 0                             F3B11700
M23070 SXD CBOX,4          SAVE LINKAGE                                 F3B11710
       LXD ETRAL,2                                                      F3B11720
       CLA TRALEV,2                                                     F3B11730
       ANA M2CON+9         DECREMENT OF TRALEV ENTRY                    F3B11740
       STO M2CW+2                                                       F3B11750
       TSX CIT200,4                                                     F3B11760
       HTR M2CON           ZERO                                         F3B11770
       HTR M2ABC+2         TPL                                          F3B11780
       HTR M2CW+2          AI                                           F3B11790
       HTR M2CON           ZERO                                         F3B11800
       LXD CBOX,4                                                       F3B11810
       TRA 2,4                                                          F3B11820
       REM FINAL TRANSFER COMPILER FOR TIFGO                            F3B11830
       REM ENTRIES WHEN A TRASTO ENTRY IS ASSOCIATED                    F3B11840
       REM WITH THE TRANSFER ADDRESS                                    F3B11850
M23075 SXD CBOX,4          SAVE LINKAGE                                 F3B11860
       LXD ETRAL,2                                                      F3B11870
       CLA TRALEV,2                                                     F3B11880
       ANA M2CON+9         SAVE DECREMENT OF TRALEV                     F3B11890
       STO M2CW+2          ENTRY                                        F3B11900
       TSX CIT200,4                                                     F3B11910
       HTR M2CON+13        +170000000000                                F3B11920
       HTR M2ABC           TRA                                          F3B11930
       HTR M2CW+2          AI                                           F3B11940
       HTR M2CON           ZERO                                         F3B11950
       LXD CBOX,4                                                       F3B11960
       TRA 1,4                                                          F3B11970
       REM M2 COMPILER CIT200                                           F3B11980
CIT200 STO E1C2            SAVE AC                                      F3B11990
       STQ E2C2            SAVE MQ                                      F3B12000
       SXD E3C2,1          SAVE IR 1                                    F3B12010
       SXD E4C2,2          SAVE IR 2                                    F3B12020
       LXD BBOX,2          2 S COMP. OF NO. OF WDS. IN BLOCK            F3B12030
       TXH CIT204,2,-100   COMPARE TO 100.                              F3B12040
       TXL CIT204,2,0      LAST ENTRY                                   F3B12050
       WRS 146             SELECT TAPE 2                                F3B12060
       CLA TFRC0           TIFGO FILE REC. COUNT                        F3B12070
       ADD M2CON+7         ADD 1 TO DECREMENT                           F3B12080
       STO TFRC0           TIFGO FILE REC. COUNT                        F3B12090
       LXA M2CON,1         ZERO IN IR 1                                 F3B12100
CIT201 CPY CIB2,1          OUTPUT AREA                                  F3B12110
       TXI CIT202,1,-1     SET COUNT FOR NEXT WORD                      F3B12120
CIT202 TXI CIT203,2,1      SET UP COUNT OF BLOCK                        F3B12130
CIT203 TXH CIT201,2,1      BACK T0 CONTINUE WRITING                     F3B12140
CIT204 LXA M2CON+3,1       COUNT 0F 4 IN IR 1                           F3B12150
       CLA M2CON+1         1 IN ACC                                     F3B12160
       STA CIT205          TO GET NEXT ENTRY                            F3B12170
CIT205 CLA 0,4             ADDRESS OF NEXT ENTRY                        F3B12180
       STA CIT206                                                       F3B12190
CIT206 CLA                 NEXT ENTRY                                   F3B12200
       STO CIB2,2          OUTPUT AREA                                  F3B12210
       CLA CIT205          ADDRESS                                      F3B12220
       ADD M2CON+1         ONE                                          F3B12230
       STA CIT205          RESTORE ADDRESS                              F3B12240
       TXI CIT207,2,-1     DECREASE BLOCK COUNT                         F3B12250
CIT207 TIX CIT205,1,1      GET NEXT ENTRY                               F3BI2260
       SXD BBOX,2          SAVE COUNT                                   F3B12270
       CLA E1C2            RESTORE AC                                   F3B12280
       LDQ E2C2            RESTORE MQ                                   F3B12290
       LXD E3C2,1          RESTORE IR 1                                 F3B12300
       LXD E4C2,2          RESTORE IR 2                                 F3B12310
       TRA 5,4             BACK TO MAIN ROUTINE                         F3B12320
ADD1   SXD ADD4,4          SAVE LINKAGE                                 F3B12330
ADD2   LXD CTRAST,2        CURRENT TRASTO ENTRY POINT                   F3B12340
       CLA TRASTO+2,2      3RD WD OF TRASTO ENTRY                       F3B12330
       TPL ADD3            SORT OUT TYPES 1,2,3                         F3B12360
       CLA TRASTO+1,2      TYPES 4,5,6. TEST 2ND WD                     F3B12370
       TMI ADD3            TYPE 2                                       F3B12380
       CLA TRASTO,2        1ST WORD                                     F3B12390
       TMI ADD3            TYPE 3                                       F3B12400
       CLA ADDCO           COUNT TIMES 8                                F3B12410
       ADD M2CON+5         ADD ONE                                      F3B12420
       STO ADDCO           RESTORE NEW COUNT                            F3B12430
ADD3   TXI ADD3+1,2,-4     SKIP TO NEXT ENTRY                           F3B12440
       TSX M22700,4        TRASTO FMLA NO SEARCH                        F3B12450
       TRA ADD5                                                         F3B12460
       TSX M22750,4        TRASTO LEVEL NO SEA RCH                      F3B12470
ADD4   TXL ADD6,0                                                       F3B12480
       LXD CTRAST,2        END                                          F3B12490
       TXI ADD3+1,2,-4     BACK FOR NEXT ENTRY                          F3B12500
ADD5   LXD ADD4,4                                                       F3B12510
       TRA 1,4             BACK TO MAIN ROUTINE, VIA PAT 18             F3B12520
ADD6   CLA ADDCO                                                        F3B12530
       SUB M2CON+5                                                      F3B12540
       STO ADDCO                                                        F3B12550
       TXL ADD2,0                                                       F3B12560
PAT17  TSX ADD1,4                                                       F3B12570
PAT18  LXD ADD6+3,4                                                     F3B12580
PAT19  TRA 6,4                                                          F3B12590
 M2CON DEC 0,1,2,4,6,8,16,1B17,3B17                                     F3B12600
       OCT 77777000000,77777,50000000000,140000000000                   F3B12610
COR27  OCT 170000000000,120000000000,60000000000,3000000                F3B12620
 M2ABC BCD 6TRA000TZE000TPL000SXD000LXP000PXD000                        F3B12630
       BCD 5STO000TXI000TIX000TSX000LXD000                              F3B12640
M2ECTR DEC 5                                                            F3B12650
 L(0)  SYN M2CON                                                        F3B12660
 L(2)  SYN M2CON+2                                                      F3B12670
 L(4)  SYN M2CON+3                                                      F3B12680
 L(3)  DEC 3                                                            F3B12690
CBOX   SYN L(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGEF3B12700
 O456  OCT 456                                                          F3B12710
L0X    SYN O456 LOWER INDEX FOR TRAD IN DECR FIELD                      F3B12720
TRSORG     TRASTO                                                       F3B12730
ORTRST SYN TRSORG                                                       F3B12740
ADDCO  SYN TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE   F3B127S0
       REM        CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD  F3B12760
COR28  OCT 4000000                                                      F3B12770
 MASK  OCT -200000000000                                                F3B12780
 O460  OCT 460                                                          F3B12790
1BOX                                                                    F3B12800
2BOX                                                                    F3B12810
3BOX                                                                    F3B12820
4BOX                                                                    F3B12830
5BOX                                                                    F3B12840
6BOX                                                                    F3B12850
ONEL   SYN 1BOX                 TWOS COMPS                              F3B12860
TWOL   SYN ONEL+1               OF THE LENGTHS                          F3B12870
THREEL SYN ONEL+2               OF VARIOUS TYPES                        F3B12880
F0URL  SYN ONEL+3               OF ENTRY BLOCKS                         F3B12890
FIVEL  SYN ONEL+4               IN TRASTO                               F3B12900
SIXL   SYN ONEL+5               IN DECREMENT FIELD                      F3B12910
 TRSWC                         WORD COUNT                               F3B12920
TIFFN  SYN TRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD                    F3B12930
WCCHS                                                                   F3B12940
CTRAST SYN WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP)    F3B12950
CHS1                                                                    F3B12960
ETRAL  SYN CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP)     F3B12970
CHS2                                                                    F3B12980
LEVN0  SYN CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESSF3B12990
E1C2                            CELL FOR SAVING AC                      F3B13000
E2C2                            CELL FOR SAVING MQ                      F3B13010
E3C2                            CELL FOR SAVING IRA IN DEC FIELD        F3B13020
E4C2                            CELL FOR SAVING IRB IN DEC FIELD        F3B13030
BBOX        TWOS COMP OF NO OF WDS ALREADY ENTERED IN BLOCK             F3B13040
ETRAST      TRASTO ENTRY POINT FOR INITIAL TIFGO FMLA NO MATCH IN DEC   F3B13050
NETRAL      TRALEV ENTRY POINT FOR LAST ADD IN DEC FIELD(TWOS COMP)     F3B13060
CLOC        INCREMENT FOR LOC WD OF FIRST INST IN CUR BLOCK             F3B13070
       REM    0F TRASTO INSERTIONS (IN ADDR FIELD)                      F3B13080
SAVE        TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E)              F3B13090
M2CW   BSS 5 FOUR WORD INSTRUCTION STORAGE                              F3B13100
CTRSWC                                                                  F3B13110
TRASTO BSS 400                                                          F3B13120
 TYPE1 SYN TRASTO                                                       F3B13130
 TYPE2 BSS 400                                                          F3B13140
 TYPE3 BSS 400                                                          F3B13150
 TYPE4 BSS 400                                                          F3B13160
 TYPE5 BSS 400                                                          F3B13170
 TYPE6 BSS 400                                                          F3B13180
TRALEV SYN TYPE2+1                                                      F3B13190
 TIFGO SYN TYPE2+1202                                                   F3B13200
CIB2   SYN TYPE2+1802                                                   F3B13210
TRAD   SYN CIB2+101                                                     F3B13220
       ORG 3794                                                         F3B13230
 TFRC0 BSS 1                                                            F3B13240
EASC0  BSS 1 CURRENT ASC0 ENTRY POINT IN DECR FIELD (TWOS COMP)         F3B13250
ASN0   BSS 1  ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD                 F3B13260
 ASC0  BSS 300                                                          F3B13270
       END 24                                                           F3B13280
       REM    MASTER RECORD CARD = FN060                                        
       REM THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION OF THE   F3B00010
       REM MERGE.  IT MERGES THE FILE 0F INSTRUCTIONS PREPARED BY THE   F3B00020
       REM FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION.  F3B00030
       REM IN ADDITION TO MERGING THESE TWO FILES, IT INSERTS IN THEIR  F3B00040
       REM PROPER P0SITION THE INDEXING INSTRUCTIONS NECESSITATED BY THEF3B000S0
       REM APPEARANCE 0F RELATIVE CONSTANTS.                            F3B00060
       ORG 24                                                           F3B00070
       REM READ TSXCOM INTO HIGH SPEED STORAGE                          F3B00080
M30000 LXA M3ECTR,4        ERORR COUNT IN IR 4                          F3B00090
       RDS 195             SELECT DRUM 3                                F3B00100
       LDA L(704)          DRUM ADDRESS                                 F3B00110
       CPY TSXCOM-2        WORD COUNT OF TSXCOM TABLE                   F3B00120
       CPY TSXCOM-1        CHECK SUM OF WORD COUNT                      F3B00130
       CLA TSXCOM-2        WD. COUNT                                    F3B00140
       SUB TSXCOM-1        CHECK SUM                                    F3B00150
       TZE M30010          EQUAL                                        F3B00160
       TIX M30000+1,4      NOT EQUAL, TRY 4 MORE TIMES                  F3B00170
       TSX 4,4             WORD COUNT NOT EQUAL TO CHECK SUM            F3B00180
M30010 LXA M3ECTR,4        ERROR COUNT IN IR4                           F3B00190
       CLA TSXCOM-2        WORD COUNT                                   F3B00200
       ARS 18              PLACE IN ADDRESS                             F3B00210
       TZE M30050          NO TSX INSTRUCTION                           F3B00220
       PAX 0,3             PLACE WORD COUNT IN IR 1 AND 2               F3B00230
       ADD L(1)            ADD ONE TO WORD COUNT                        F3B00240
       ADD M30025          INIT1AL ADDRESS                              F3B00250
       STA M30020                                                       F3B00260
       RDS 195             SELECT DRUM 3                                F3B00270
       LDA L(706)          DRUM ADDRESS                                 F3B00280
       TXI M30020,1,1      INCCREMENT 8B 1                              F3B00290
M30020 CPY 0,1             TSXCOM TABLE INTO STOORAGE                   F3B00300
       TIX M30020,1,1      COPY LOOP                                    F3B00310
       LXA L(0),1                                                       F3B00320
       CAL L(0)            ZEROS IN ACC.                                F3B00330
M30025 ACL TSXCOM,1        COMPUTE NEW CHECK SUMS AND COMPARE           F3B00340
       TXI M30025+2,1,-1   TO GIVEN CHECK SUM                           F3B00350
       TIX M30025,2,1                                                   F3B00360
       SXD TSXCOM-1,1                                                   F3B00370
       SLW TSXCOM-2                                                     F3B00380
       CLA TSXCOM-2                                                     F3B00390
       SUB TSXCOM,1                                                     F3B00400
       TZE M30050          END.  CHECK SUMS AGREE                       F3B00410
       TIX M30010+1,4,1    NOT EQUAL) BACK TO TRY 4 MORE T IMES         F3B00420
       TSX 4,4             READ DRUM 3 MORE TIMES                       F3B00430
M30050 TRA TSXPT1                                                       F3B00440
       REM PROGRAM FOR PART 3 OF MERGE                                  F3B00450
       TSX READTF,C        INITIALIZE TIFGO FILE BUFFER                 F3B00460
       TSX READFF,C        FIRST FILE BUFFERS                           F3B00470
       MSE 98              IS TIFGO FILE  USED UP                       F3B00480
       TRA C4              NO                                           F3B00490
       TRA G1              YES, GO TO END 0F TIFGO ROUTINE              F3B00500
 C4    CLA 3794            TIFGO RECORD COUNT                           F3B00510
       ADD L(1D)           ADD ONE TO DECREMENT                         F3B00520
       STO 3794            NEW TIFGO RECORD COUNT                       F3B00530
 C6    CLA FFLBUF,A        OBTAIN ALPHA FOR NEXT CIT IN IST FILE BUFFER F3B00340
       STD FFLCFN                                                       F3B00550
       CLA TFGBUF,B        OBTAIN  FOR NEXT CIT AND SAVE IN             F3B00560
       ANA MASK            TIFGO BUFFER                                 F3B00570
       STD TFGCFN                                                       F3B00580
       CAS FFLCFN          COMPARE FIRST FILE T0 TIFGO FILE             F3B00590
       TRA E1                  ALPHA LESS THAN BETA                     F3B00600
       TRA J1                  ALPHA EQUALS BETA                        F3B00610
       REM                     ALPHA GREATER THAN BETA                  F3B00620
 C5    LXA L(4),C              COMPILE  THIS TIFGO FILE INSTRUCTION     F3B00630
 C2    CLA TFGBUF,B        SET UP FOR WORDS                             F3B00640
       STO TFGCOM+4,C                                                   F3B00650
       TXI C1,B,-1                                                      F3B00660
 C1    TIX C2,C,1                                                       F3B00670
       TSX CIT00,C         COMPILER                                     F3B00680
       HTR TFGCOM                                                       F3B00690
       HTR TFGCOM+1                                                     F3B00700
       HTR TFGCOM+2                                                     F3B00710
       HTR TFGCOM+3                                                     F3B00720
       PXD 0,B                 COMPARE WORD COUNT                       F3B00730
       CAS TFGWC               WITH BUFFER SIZE                         F3B00740
       TRA C7              WORD COUNT LESS THAN BUFFER SSIZE            F3B00750
       TRA C3                  WC EQUALS BS                             F3B00760
       TSX 4,4             WORD COUNT INCORRECT                         F3B00770
 C3    TSX READTF,C        READ TIFGO FILE INTO BUFFER                  F3B00780
       MSE 98                  IS TIFGO FILE USED UP                    F3B00790
       TRA C7                  NO    TEST LOCATION WD OF NEXT ENTRY     F3B00800
       TRA G1                  YES GO TO END OF TIFGO F1LE ROUTINE      F3B00810
 C7    CLA TFGBUF,B        WORD COUNT LESS THAN BUFFER SIZE             F3B00820
       ANA 2BIT                IS LOCATION WORD SPECIAL                 F3B00830
       TNZ C5                  YES  BACK TO COMPILE NEXT ENTRY          F3B00840
       CLA TFGBUF,B            NO                                       F3B00850
       ANA MASK                DOES NEXT INSTRUCTION IN TIFGO FILE      F3B00860
       CAS TFGCFN              BELONG TO CURRENT COMPILED BLOCK         F3B00870
       TRA C6                  NO                                       F3B00880
       NOP                     YES                                      F3B00890
       TRA C5                  YES                                      F3B00900
       REM END OF TIFGO FILE RDUTINE                                    F3B00910
 G1    MSE 97                  IS FIRST FILE USED UP.  TEST SWITCH      F3B00920
       TRA G2                          NO                               F3B00930
       TRA OUT                 YES   GO TO TERMINAL ROUT INE            F3B00940
 G2    CLA FFLBUF,A        ENTRY IN FIRST FILE BUFFER                   F3B00950
       STD FFLCFN          STORE INTERNAL FORMULA NO. FOR ENTRY         F3B00960
 G5    LXA L(4),C              COMPILE                                  F3B00970
 G4    CLA FFLBUF,A            FIRST                                    F3B00980
       STO FFLCOM+4,C          FILE                                     F3B00990
       TXI G3,A,-1             INSTRUCTION                              F3B01000
 G3    TIX G4,C,1                                                       F3B01010
       TSX CIT00,C         COMPILER                                     F3B01020
       HTR FFLCOM                                                       F3B01030
       HTR FFLCOM+1                                                     F3B01040
       HTR FFLCOM+2                                                     F3B01050
       HTR FFLCOM+3                                                     F3B01060
       PXD 0,A                 COMPARE WORD COUNT WITH BUFFER SIZE      F3B01070
       CAS FFLWC           TO TEST IF FIRST FILE IS NOW EMPPTY          F3B01080
       TRA G8              WORD COUNT LES THAN BUFFER SIZE              F3B01090
       TRA G7                  WC EQUALS BS                             F3B01100
       TSX 4,4             WORD COUNT INCORRECT                         F3B01110
 G7    TSX READFF,C                                                     F3B01120
       MSE 97              TEST IF FIRST FILE IS USED UP                F3B01130
       TRA G8              NO                                           F3B01140
       TSX M31000,C        YES, GO TO TSX COM TABLE SEARCH              F3B01150
       TRA OUT             TERMINAL ROUTINE                             F3B01160
 G8    CLA FFLBUF,A        TEST IF NEXT FIRST FILE ENTRY                F3B01170
       TZE G5              BELONGS TOSAME BLOCK OF INSTRUCTIQNS         F3B01180
       TSX M31000,C        NO                                           F3B01190
 G9    CLA FFLBUF,A        TEST IF NEXT FIRST FILE ALPHA                F3B01200
       ANA MASK            IS GREATER THAN PREVIOUS ONE                 F3B01210
       CAS FFLCFN          INTERNAL FORMULA NUMBER                      F3B01220
       TRA G2              YES, BACK TO COMPILE NEXT INSTRUCTION        F3B01230
       NOP                                                              F3B01240
       LXA L(4),C          NO, COMPILE THIS INSTRUCTION                 F3B01230
 G10   CLA FFLBUF,A        ENTRY IN FIRST FILE BUFFER, SET              F3B01260
       STO FFLCOM+4,C      UP FOUR WORDS OF ENTRY                       F3B01270
       TXI G11,A,-1        STEP UP IR COUNTS                            F3B01280
 G11   TIX G10,C,1                                                      F3B01290
       TSX CIT00,C         COMPILER                                     F3B01300
       HTR FFLCOM                                                       F3B01310
       HTR FFLCOM+1                                                     F3B01320
       HTR FFLCOM+2                                                     F3B01330
       HTR FFLCOM+3                                                     F3B01340
       PXD 0,A             TEST IF FIRS T FILE BUFFER                   F3B01350
       CAS FFLWC           IS EMPTY                                     F3B01360
       TRA G9              NO                                           F3B01370
       TRA G12             YES                                          F3B01380
       TSX 4,4             WORD COUNT INCORRECT                         F3B01390
 G12   TSX READFF,C        READ IN TO REFILL BUFFER                     F3B01400
       MSE 97              TEST IF AT END OF FIRST FILE                 F3B01410
       TRA G9                                                           F3B01420
       TRA OUT             TERMINAL ROUTINE                             F3B01430
       REM                     ALPHA LESS THAN BETA                     F3B01440
 E1    LXA L(4),C              COMPILE                                  F3B01450
 E3    CLA FFLBUF,A            FIRST                                    F3B01460
       STO FFLCOM+4,C          FILE                                     F3B01470
       TXI E2,A,-1             INSTRUCTION SET UP F0UR WORDS            F3B01480
 E2    TIX E3,C,1                                                       F3B01490
       TSX CIT00,C        COMPILER                                      F3B01500
       HTR FFLCOM                                                       F3B01510
       HTR FFLCOM+1                                                     F3B01520
       HTR FFLCOM+2                                                     F3B01530
       HTR FFLCOM+3                                                     F3B01540
       PXD 0,A                 COMPARE WORD COUNT                       F3B01550
       CAS FFLWC               WITH BUFFER SIZE                         F3B01560
       TRA F1                  WC LESS THAN BS                          F3B01570
       TRA E4                  WC EQUALS BS                             F3B01580
       TSX 4,4             WORD COUNT INCORRECT                         F3B01590
 E4    TSX READFF,C        READ FIRST FILE                              F3B01600
       MSE 97                  IS FIRST FILE USED UP                    F3B01610
       TRA F1                  NO                                       F3B01620
       TRA H1                  YES                                      F3B01630
 F1    CLA FFLBUF,A            DOES NEXT INSTRUCTION IN                 F3B01640
       TZE E1                  FIRST FILE HAVE ZERO LOC WORD            F3B01650
       TSX M31000,C        TSX COM TABLE SEARCH                         F3B01660
 F2    CLA FFLBUF,A        TEST KF PRESENT ALPHA IS                     F3B01670
       ANA MASK            GREATER THAN ALPHA OF                        F3B01680
       CAS FFLCFN          PREVIOUS CIT                                 F3B01690
       TRA C6              NEXT INTERNAL FORMULA NO.                    F3B01700
       NOP                                                              F3B01710
       LXA L(4),C                                                       F3B01720
 F3    CLA FFLBUF,A        PREPARE TO COMPILE THIS INSTRUCTION          F3B01730
       STO FFLCOM+4,C      SET UP FOUR WORDS                            F3B01740
       TXI F4,A,-1                                                      F3B01750
 F4    TIX F3,C,1                                                       F3B01760
       TSX CIT00,C         COMPILER                                     F3B01770
       HTR FFLCOM                                                       F3B01780
       HTR FFLCOM+1                                                     F3B01790
       HTR FFLCOM+2                                                     F3B01800
       HTR FFLCOM+3                                                     F3B01810
       PXD 0,A             COUNT OF POSITION OM FIRST FILE              F3B01820
       CAS FFLWC           TEST IF FIRST FILE BUFFER                    F3B01830
       TRA F2              IS EMPTY                                     F3B01840
       TRA F5              NO, GET NEXT CIT ENTRY                       F3B01850
       TSX 4,4             WORD COUNT INCORRECT                         F3B01860
 F5    TSX READFF,C        READ FIRST FILE                              F3B01870
       MSE 97              TEST IF AT END OF FIRST FILE                 F3B01880
       TRA F2              BACK TO GET  NEXT FIRST FILE ENTRY           F3B01890
       TRA H0                                                           F3B01900
       REM END OF FIRST FILE ROUTINE                                    F3B01910
 H1    TSX M31000,C        READ TIFGO FILE                              F3B01920
 H0    MSE 98              END OF TIFGO FILE                            F3B01930
       TRA H2              NO                                           F3B01940
       TRA OUT             YES, TO TERMINAL ROUTINE                     F3B01950
 H2    LXA L(4),C              COMPILE                                  F3B01960
 H4    CLA TFGBUF,B            TIFGO                                    F3B01970
       STO TFGCOM+4,C          FILE                                     F3B01980
       TXI H3,B,-1             INSTRUCTION                              F3B01990
 H3    TIX H4,C,1                                                       F3B02000
       TSX CIT00,C         COMPILER                                     F3B02010
       HTR TFGCOM                                                       F3B02020
       HTR TFGCOM+1                                                     F3B02030
       HTR TFGCOM+2                                                     F3B02040
       HTR TFGCOM+3                                                     F3B02050
       PXD 0,B                 COMPARE WORD COUNT                       F3B02060
       CAS TFGWC               WITH BUFFER SIZE                         F3B02070
       TRA H2                  WC LESS THAN BS                          F3B02080
       TRA H5                  WC EQUALS BS                             F3B02090
       TSX 4,4             WORD COUNT INCORRECT                         F3B02100
 H5    TSX READTF,C        BUFFER NOW EMPTY, READ NEXT BLOCK            F3B02110
       TRA H0                                                           F3B02120
       REM                     ALPHA EQUALS BETA                        F3B02130
 J1    CLA TFGBUF,B        TEST IF LOC. WORD OF TIFGO FILE IS           F3B02140
       TPL L1              MINUS NO                                     F3B02150
       REM                 BETA IS MINUS , YES                          F3B02160
       SSP                                                              F3B02170
       STO TFGBUF,B        SAVE LOCATION WORD                           F3B02180
       ADD L(370)          370(8) TO LOC. WORD OF FIRST FILE            F3B02190
       STO FFLBUF,A        SAVE NEW LOCATION                            F3B02200
 J4    LXA L(4),C              COMPILE                                  F3B02210
 J3    CLA TFGBUF,B            TIFGO                                    F3B02220
       STO TFGCOM+4,C          FILE                                     F3B02230
       TXI J2,B,-1             INSTRUCTION                              F3B02240
 J2    TIX J3,C,1          RESET IR 4                                   F3B02250
       TSX CIT00,C         COMPILER                                     F3B02260
       HTR TFGCOM                                                       F3B02270
       HTR TFGCOM+1                                                     F3802280
       HTR TFGCOM+2                                                     F3B02290
       HTR TFGCOM+3                                                     F3B02300
       PXD 0,B                 COMPARE WORD COUNT                       F3B02310
       CAS TFGWC               WITH BUFFER S1ZE                         F3B02320
       TRA K3                  WC LESS THAN BS                          F3B02330
       TRA K1                  WC EQUALS BS                             F3B02340
       TSX 4,4             WORD COUNT INCORRECT                         F3B02350
 K1    TSX READTF,C                                                     F3B02360
       MSE 98                  IS TIFGO FILE USED UP                    F3B02370
       TRA K3                  NO                                       F3B02380
       TRA G1                  YES                                      F3B02390
 K3    CLA TFGBUF,B            DOES NEXT INSTRUCTION IN                 F3B02400
       ANA MASK                TIFGO FILE BELONG TO CURRENT             F3B02410
       CAS TFGCFN              COMPILED BLOCK                           F3B02420
       TRA E1                  NO                                       F3B02430
       NOP                     YES                                      F3B02440
       TRA J4                  YES                                      F3B02450
       REM                     BETA IS PLUS                             F3B02460
 L1    LXA L(4),C              OR TIFGO FILE                            F3B02470
 L2    CAL TFGBUF,B            WITH FIRST FILE                          F3B02480
       ORS FFLBUF,A            INSTRUCTION                              F3B02490
       TXI L8,A,-1         RESET IR COUNTS                              F3B02500
 L8    TXI L3,B,-1                                                      F3B02510
 L3    TIX L2,C,1                                                       F3B02520
       TXI L5,A,4                                                       F3B02530
 L5    LXA L(4),C              COMPILE                                  F3B02540
 L7    CLA FFLBUF,A            FIRST                                    F3B02530
       STO FFLCOM+4,C          FILE                                     F3B02560
       TXI L6,A,-1             INSTRUCTION                              F3B02570
 L6    TIX L7,C,1                                                       F3B02580
       TSX CIT00,C                                                      F3B02590
       HTR FFLCOM                                                       F3B02600
       HTR FFLCOM+1                                                     F3B02610
       HTR FFLCOM+2                                                     F3B02620
       HTR FFLCOM+3                                                     F3B02630
       PXD 0,A                 COMPARE WORD COUNT                       F3B02640
       CAS FFLWC               WITH BUFFER SIZE                         F3B02650
       TRA M3                  WC LESS THAN BS                          F3B02660
       TRA M1                  WC EQUALS BS                             F3B02670
       TSX 4,4             WORD COUNT INCORRECT                         F3B02680
 M1    TSX READFF,C                                                     F3B02690
       MSE 97                  IS FIRST FILE USED UP                    F3B02700
       TRA M3                  NO                                       F3B02710
COR1   TRA H3+6                                                         F3B02720
 M3    CLA FFLBUF,A            DOES NEXT INSTRUCTION IN                 F3B02730
       ANA MASK                FIRST FILE BELONG TO CURRENT             F3B02740
       CAS FFLCFN              COMPILED BLOCK                           F3B02750
       TRA M4                  NO                                       F3B02760
       NOP                     YES                                      F3B02770
       TRA L5                  YES                                      F3B02780
M4     PXD 0,2             TEST IF TIFGO FILE BUFFER IS EMPTY           F3B02790
       CAS TFGWC                                                        F3B02800
       TRA C7                                                           F3B02810
       TRA C3                                                           F3B02820
       TSX 4,4             WORD COUNT INCORRECT                         F3B02830
       REM M3 TERMINAL ROUTINE                                          F3B02840
 OUT   LXD BBOX,1          2S C OMPLIMENT OF NO. OF WORDS               F3B02850
PAT1   CLA CIB-3,1         ENTERED IN BLICK                             F3B02860
PAT2   SUB L(TRA)          TEST IF TRA INSTRUCTION                      F3B02870
PAT3   TZE RTN             YES                                          F3B02880
COR2   TRA PAT4            NO                                           F3B02890
RET1   SXD N2,1            SAVE INDEX REG. NO. IN COMPARE INSTR.        F3B02900
       LXA L(0),1          INITIALIZE IR 1 T0 1                         F3B02910
 N1    CPY CIB,1           REMAINDER OF                                 F3B02920
       TXI N2,1,-1             INSTRUCTIONS IN BUFFER                   F3B02930
 N2    TXH N1,1            TEST IF AT END OF BUFFER                     F3B02940
       WEF 4               YES, WRITE END OF FILE                       F3B02950
M32000 LXD 3794,4   WRITE DO FILE C + FORTRAN FUNCTION FILE AS 2ND FILE F3B02960
       TXI M32005,4,3      POSITION TAPE 2 T0 READ DO FILE C            F3B02970
M32005 BST 146                                                          F3B02980
       TIX M32005,4,1                                                   F3B02990
       RDS 146             READ DO FILE C INTO STORAGE                  F3B03000
       CPY 3795                                                         F3B03010
       LXA 3795,4          WORD COUNT                                   F3B03020
       TXI BST,4,4                                                      F3B03030
BST    BST 146             BACK T0 FIRST WD.                            F3B03040
       TIX BST,4,1                                                      F3B03050
       RDS 146             PAST IDENTIFICATION COUNT                    F3B03060
       RDS 146             WORD COUNT                                   F3B030T0
       WRS 148             ZERO ON TAPE 4                               F3B03080
       CPY L(0)                                                         F3B03090
       CLA L(0)            RESTORE BBOX TO ZERO                         F3B03100
       STO BBOX                                                         F3B03110
       PSE 96              TURN OFF ALL SENSE SWITCHES                  F3B03120
READ   TSX READTF,4        TREAD TIFGO FILE                             F3B03130
       MSE 98              TEST IF AT END OF TIFGO FILE                 F3B03140
       TRA COMP            NO                                           F3B03150
       TRA FREAD           YES                                          F3B03160
COMP   LXA L(4),4          4 IN IR 4                                    F3B03170
       CLA TFGBUF,2        SET UP FOUR WORDS FOR COMPILATION            F3B03180
       STO TFGCOM+4,4                                                   F3B03190
       TXI COMP1,2,-1                                                   F3B03200
COMP1  TIX COMP+1,4,1                                                   F3B03210
       TSX CIT00,4         COMPILER                                     F3B03220
       HTR TFGCOM                                                       F3B03230
       HTR TFGCOM+1                                                     F3B03240
       HTR TFGCOM+2                                                     F3B03250
       HTR TFGCOM+3                                                     F3B03260
       PXD 0,2             COUNT OF TIFGO                               F3B03270
       CAS TFGWC           COMPARE TO CURRENT FMLA. NO.                 F3B03280
       TRA COMP            LESS THAN, COMPILE ENTRIESP                  F3B03290
       TRA READ            EQUAL TO.  READ NEXT ENTRY                   F3B03300
       TSX 4,4             WORD COUNT INCORRECT                         F3B03310
FREAD  TSX READFF,4        READ FIRST FILE                              F3B03320
       MSE 97              TEST IF AT END OF FIRST FILE                 F3B03330
       TRA FCOMP           NO                                           F3B03340
       TRA WRITE           YES                                          F3B03350
FCOMP  LXA L(4),4          SET UP COUNT AND F0UR WORSD OF ENTRY         F3B03360
       CLA FFLBUF,1                                                     F3B03370
       STO FFLCOM+4,4                                                   F3B03380
       TXI FCOMP1,1,-1                                                  F3B03390
FCOMP1 TIX FCOMP+1,4,1                                                  F3B03400
       TSX CIT00,4         COMPILER                                     F3B03410
       HTR FFLCOM                                                       F3B03420
       HTR FFLCOM+1                                                     F3B03430
       HTR FFLCOM+2                                                     F3B03440
       HTR FFLCOM+3                                                     F3B03450
       PXD 0,1             CHECK WORD COUNT                             F3B03460
       CAS FFLWC           AND COMPARE TO FIRST FILE WORD COUNT         F3B03470
       TRA FCOMP                                                        F3B03480
       TRA FREAD                                                        F3B03490
       TSX 4,4             WORD COUNT INCORRECT                         F3B03500
WRITE  LXD BBOX,1          TWOS COMPLIMENT OF NO. OF ENTRIES            F3B03510
       TXL WRITE2+1,1,0                                                 F3B03520
       WRS 148             SELECT TAPE 4                                F3B03530
       SXD WRITE2,1                                                     F3B03540
       LXA L(0),1                                                       F3B03550
WRITE1 CPY CIB,1           REMAINDER OF BUFFER ONTO TAPE 4              F3B03560
       TXI WRITE2,1,-1                                                  F3B03570
WRITE2 TXH WRITE1,1                                                     F3B03580
       WEF 148                                                          F3B03590
       LXA 3795,4                                                       F3B03600
       TXI P0S,4,3                                                      F3B03610
P0S    BST 146             BACKSPACE OVER DO FILE C                     F3B03620
       TIX P0S,4,1                                                      F3B03630
M32010 RDS 146                     WRITE ASC0 0VER DO FILE C ON TAPE 2  F3B03640
       RDS 146                                                       .  F3B03650
       WRS 146             SELECT TAPE 2                                F3B03660
       CPY 3796            COPY ASC0 OVER DOFILE C                      F3B03670
       CLA 3796                                                         F3B03680
       TZE M32030-1        NO ASC0 ENTRIES                              F3B03690
       PDX 0,1             NUMBER OF ASC0 ENTRIES IN IR 1               F3803700
       ARS 18              SHIFT WORD COUNT                             F3B03710
       ADD M32020          INITIAL ADDRESS                              F3B03720
       STA M32020          INITIALIZE COPY ADDRESS                      F3803730
M32020 CPY 3797,1          ASC0 TABLR                                   F3B03740
       TIX M32020,1,1                                                   F3B03750
       WEF 146             END OF FILE AFTER ASC0 TABLE                 F3B03760
M32030 LXA M3ECTR,4        ERROR COUNT                                  F3B03770
       RDS 194             READ FIXCON INTO STORAGE                     F3B03780
       CPY FIXCON-2        DRUM CHECK SUM CHCHECKING                    F3B03790
       CPY FIXCON-1                                                     F3B03800
       CLA FIXCON-2        WORD COUNT                                   F3B03810
       SUB FIXCON-1        CHECK SUM                                    F3B03820
       TZE M32040          CORRECTP                                     F3B03830
       TIX M32030+1,4,1    TRY 4 MORE TIMES                             F3B03840
       TSX 4,4             WORD COUNT INCORRECT                         F3B03850
M32040 LXA M3ECTR,4        ERROR COUNT                                  F3B03860
       CLA FIXCON-2        WORD COUNT                                   F3B03870
       TZE M32065          NO FIXCON ENTRIES                            F3B03880
       PAX 0,3             INITIALIZE WORD COUNT                        F3B03890
       ADD M32055          INITIAL ADDRESS                              F3B03900
       STA M32050                                                       F3B03910
       RDS 194                                                          F3B03920
       LDA L(2)            READ DRUM 2 FOR FIXCON TABLE                 F3B03930
M32050 CPY 0,1                                                          F3B03940
       TIX M32050,1,1                                                   F3B03950
       LXA L(0),1          SET IR 1 TO ZERO                             F3B03960
M32055 CLA FIXCON,1        FIRST ENTRY                                  F3B03970
       SUB FIXCON+1,1      CHECK SUM                                    F3B03980
       TZE M32060          CORRECT                                      F3B03990
       TIX M32040+1,4,1    TRY 4 MORE TIMES                             F3B04000
       TSX 4,4             WORD COUNT INCORRECT                         F3B04010
M32060 TXI M32060+1,1,-2   SKIP OVER CHECK SUM                          F3B04020
       TIX M32055,2,2      NEXT ENTRY                                   F3B04030
       SXD M32070+2,1      END OF TABLE COUNT                           F3B04040
       LXA L(0),2          RESET IR 2 TO ZERO                           F3B04050
M32065 WRS 146                 WRITE FIXCON ON TAPE 2                   F3B04060
       CLA FIXCON-2                                                     F3B04070
       ARS 1               SET UP FIX CON ENTRIES WHITHOUT              F3B04080
       STO FIXCON-2        CHECK SUMS FOR WRITING OUT ON TAPE 2         F3B04090
       CPY FIXCON-2                                                     F3B04100
       TZE M32075          NO FIXCON ENTRY                              F3B04110
M32070 CPY FIXCON,2                                                     F3B04120
       TXI M32070+2,2,-2                                                F3B04130
       TXH M32070,2                                                     F3B04140
M32075 WEF 146             WRITE END OF FILE AFTER FIXCON               F3B04150
       LXA L(4),4                                                       F3B04160
       BST 146             BACKSPACE TAPE 2 FOR SECTION 4               F3B04170
       TIX M32075+2,4,1                                                 F3B04180
       PSE 96              TURN OFF ALL SENSE SWITCHES                  F3B04190
       RTB 1                                                            F3B04200
       TRA 4                                                            F3B04210
       REM M3 CLOSED SU8ROUTINES                                        F3B04220
       REM SUBROUTINE FOR READING A RECORD OF TIFGO FILE                F3804230
READTF SXD E3M3,A          SAVE LINKAGE IN IR 1                         F3B04240
       LXA M3ECTR,1        ERROR COUNT                                  F3B04250
M3B3   RDS 146             TAPE 2 TO READ TIFGO FILE                    F3B04260
       LXA L(0),B          RESET IR2 TO ZERO                            F3B04270
M3B1   CPY TFGBUF,B        COPY TIFGO FILE FROM TAPE INTO BUFFER        F3B04280
       TXI M3B1,B,-1       SET UP COUNT                                 F3B04290
       TRA M3B4                EOF                                      F3B04300
       WRS 219             EOR) ON TAPE 3                               F3B04310
       RTT                 IS TAPE CHECK INDICATOR ON                   F3B04320
       TRA M3B2                YES                                      F3B04330
       SXD TFGWC,B             NO                                       F3B04340
       LXA L(0),B          RESET INDEX OF TIFGO BUFFER                  F3B04350
       LXD E3M3,A          RESTORE INDEX OF FIRST FILE BUFFER           F3B04360
       TRA 1,C             EXIR. BACK TO MAIN ROUTINE                   F3B04370
M3B2   BST 146                                                          F3B04380
       TIX M3B3,A,1        ERROR ROUTINE                                F3B04390
       TSX 4,4             ERROR READING TAPE 2. TIFGO FILE             F3B04400
M3B4   PSE 98              INDICATE END OF TIFGO FILE                   F3B04410
       LXD E3M3,A          RESTORE INDEX OF FIRST FILE BUFFER           F3B04420
       TRA 1,C             TRANSFER TO MAIN ROUTINE                     F3B04430
       REM SU8ROUTINE FOR READING A RECORD OF FIRST FILE                F3B04440
READFF SXD E2M3,B          SAVE COUNT IN IR 2 FOR LINKAGE               F3B04450
       LXA M3ECTR,B        ERROR COUNT                                  F3B04460
M3A3   RDS 147             READ FIRST FILE FROM TAPE 3                  F3B04470
       LXA L(0),A          INITIALIZE IR1 TO ZERO                       F3B04480
M3A1   CPY FFLBUF,A        COPY FIRST FILE INTO BUFFER                  F3B04490
       TXI M3A1,A,-1                                                    F3B04500
       TRA M3A4            EOF                                          F3B04510
       WRS 219             EOR DELAY 704  TO MAKE TAPE TEST             F3B04520
       RTT                                                              F3B04530
       TRA M3A2            ERROR ROUTINE                                F3B04540
       SXD FFLWC,A         SAVE LOCAT0N WORD OF FIRST FILE              F3B04550
       LXA L(0),A          RESET INDEX OF FIRST F1LE BUFFER             F3B04560
       LXD E2M3,B          RESTORE INDEX OF TIFGO FILE BUFFER           F3B04570
       TRA 1,C                                                          F3B04580
M3A2   BST 147             BACKSPACE TAPE 3 TO TRY AGAIN                F3B04590
       TIX M3A3,B,1                                                     F3B04600
       TSX 4,4             ERROR READING FIRST FILE FROM TAPE 3         F3B04610
M3A4   PSE 97              INDICATE END DF FIRST FILE                   F3B04620
       LXD E2M3,B          RESTORE INDEX OF TIFGO FILE BUFFER           F3B04630
       TRA 1,C                                                          F3B04640
       REM TSXCOM TABLE SEARCH                                          F3B04650
M31000 SXD E3M3,1          SAVE LINKAGE OF FIRST FILE BUFFER            F3B04660
       SXD E2M3,4          SAVE LINKAGE FROMT TSX INSTR.                F3B04670
       STZ DUP             REINITIALIZE HTE INSTR.                      F3B04680
M31005 CLA TSXCOM-2        TEST WORD COUNT OF CHECK SUM                 F3B04690
       SUB TSXCOM-1                                                     F3B04700
       TZE M31080          CHECK SUM EQUALS WORD COUNT                  F3B04710
       LXD TSXCOM-2,1      WORD COUNT IN IR1                            F3B04720
       CLA TSXCOM,1        FIRST ENTRY                                  F3B04730
       ANA MASK            SAVE DECREMENT, INTERNAL FMLA. NO.           F3B04740
       SUB FFLCFN          FIRST FILE LOCATION NO.                      F3B04750
       TNZ M31080          NOT EQUAL.  NO TSXCOM ENTRY                  F3B04760
       REM CUR FIRST FILE FMLA NO APPEARS IN TSXCOM                     F3B04770
M31015 CAL TSXCOM+1,1                                                   F3B04780
       ANA PMASK           SAVE SIGN OF SECOND WD. OF ENTRY             F3B04700
CQR3   TZE CIT07+6         TYPE 1 ENTRY NEGATIVE                        F3B04800
       CLA TSXCOM,1        TYPE 2 ENTRY                                 F3B04810
       ANA AMASK           SAVE ADDRESS AND STORE IN                    F3B04820
       STO FFLCOM+3        4TH WORD OF FIRST FILE COMPILER              F3B04830
       CLA TSXCOM+1,1      SECOND WORD OF ENTRY                         F3B04840
       STO FFLCOM+2        3RD. WORD OF COMPILER                        F3B04850
       TSX CIT00,4         COMPILE INSTRUCTION-4                        F3B04860
       HTR L(0)            ZERO                                         F3B04870
       HTR L(LXD)          LXD INSTRUCTION                              F3B04880
       HTR FFLCOM+2                                                     F3B04890
       HTR FFLCOM+3                                                     F3B04900
       TXI M31030,1,-2     STEP UP COUNT FOR NEXT TSXCOM ENTRY          F3B04910
M31030 SXD TSXCOM-2,1      SAVE NEW WORD COUNT                          F3B04920
       TRA M31005          BACK TO SEARCH REMAING ENTRIES               F3B04930
M31035 TSX CIT00,4             TYPE I ENTRY                             F3B04940
       HTR L(0)            ZERO                                         F3B04950
       HTR L(SXD)          SXD                                          F3B04960
       HTR L(6H)           +060000000000                                F3B04970
       HTR L(5.4)          000004000004                                 F3B04980
       CLA TSXCOM+1,1      SECOND WORD OF ENTRY                         F3B04990
       ANA AMASK           SAVE ADDRESS                                 F3805000
       ORA L(10H)          ADD 120000000000                             F3B05010
       STO FFLCOM+2        IN 3RD. WORD OF COMPILER                     F3B05020
       TSX CIT00,4         FOR NEXT INSTRUCTION                         F3B05030
       HTR L(0)            ZERO                                         F3B05040
       HTR L(TSX)          TSX                                          F3B05050
       HTR FFLCOM+2        12(8) PLUS ADDRESS                           F3805060
       HTR L(4)            +000000000004                                F3B05070
M31050 CLA TSXCOM+1,1      SECOND WORD                                  F3B05080
       ANA AMASK           SAVE ADDRESS                                 F3B05000
       STO FFLCOM+3        STORE IN 4TH. WORD OF COMPILED INSTR.        F3805100
       ORA L(12H)          ADD 12(8) AND DTORE IN 3RD.                  F3B05110
       STO FFLCOM+2        WORD OF INSTRUCTION IN COMPILER              F3805120
       TSX CIT00,4                                                      F3B05130
       HTR L(0)            ZERO                                         F3B05140
       HTR L(LXP)          LXP                                          F3B05150
       HTR FFLCOM+2        12(8) PLUS ADDDRESS                          F3B05160
       HTR FFLCOM+3        ADDRESS                                      F3B05170
       TXI M31063-1,1,-2   RESET IR1 FOR NEXT ENTRY                     F3B05180
       SXD TSXCOM-2,1      SAVE WORD COUNT                              F3B05190
M31063 TSX CIT00,4       COMPILE INSTRUCTION                            F3B05200
       HTR L(0)            ZERO000000000                                F3B05210
       HTR L(LXD)          LXD                                          F3B05220
       HTR L(6H)           +060000000000                                F3B05230
       HTR L(5.4)          000004000004                                 F3B05240
       TRA M31005          CONT1 UE TABLE SEARCH                        F3B05230
M31080 LXD E3M3,1          END OF TSXCOM TABLE SEARCH                   F3B05260
       LXD E2M3,4          RESTORE IR COUNTS FROM LINKAGE               F3805270
       TRA 1,4             AND GO BACK TO MAIN ROUTINE                  F3805280
       REM COMPILING ROUTINE,CIT00                                      F3B05290
CIT00  STQ E1C             SAVE CONTENTS OF MQ                          F3B05300
       SXD E2C,1           SAVE CONTENTS OF IR1                         F3B03310
       SXD E3C,2           SAVE CONTENTS OF IR12                        F3B05320
       LXD BBOX,2          2S COMPLIMENT OF NO. OF WORDS OF ENTRY       F3B05330
       TXH CIT04,2,-100    TEST IF LESS THAN 100 AND GREATER            F3B05340
       TXL CIT04,2,0       THAN ZERO . IF SO. COMPILE INSTRUCTION       F3B033S0
       WRS 148                                                          F3B05360
       LXA M1CON,1         SET COUNT IN IR 1 T0 ZERO                    F3B05370
CIT01  CPY CIB,1           REFILL BUFFER                                F3B05380
       TXI CIT02,1,-1      RESET COUNTS FOR FIRST ENTRY IN BUFFER       F3B05390
CIT02  TXI CIT03,2,1                                                    F3B05400
CIT03  TXH CIT01,2,1                                                    F3B05410
CIT04  LXA M1CON+4,1       COUNT OF 4 IN IR1                            F3B05420
       CLA M1CON+1                                                      F3B05430
       STA CIT05                                                        F3B05440
CIT05  CLA 0,4             LINKAGE FROM MAIN ROUTINE PLUS 1             F3B05430
       STA CIT06                                                        F3B05460
CIT06  CLA                 FIRST PARAMETER. 2ND.) 3RD.) AND4TH.         F3B03470
       STO CIB,2           AND STORE IN PROPER OUTPUT AREA              F3B05480
       CLA CIT05                                                        F3B05490
       ADD M1CON+1                                                      F3B05500
       STA CIT05           TO GET NEXT WORD                             F3B05310
       TXI CIT07,2,-1      DECREASE COUNT IN IR1 AND 2 BY ONE           F3B05520
CIT07  TIX CIT05,1,1                                                    F3B05530
       SXD BBOX,2          SAVE COUNT OF CIB BUFFER                     F3B05540
       LDQ E1C             REDTORE MQ                                   F3B05550
       LXD E2C,1           RESTORE IR 1                                 F3B05560
       LXD E3C,2           RESTORE IR2                                  F3B05570
       TRA 3,4             BACK TO MAIN ROUTINE                         F3B05580
       CLA TSXCOM+1,1                                                   F3B05590
       CAS DUP                                                          F3B05600
       TRA DIF                                                          F3B05610
       TXI M31030,1,-2                                                  F3B05620
DIF    STO DUP                                                          F3B05630
       TRA M31035                                                       F3B05640
DUP    HTR                                                              F3B05650
PAT4   TSX CIT00,4         COMPILER FOR LOAD BUTTON SEQUENCE            F3B05660
PAT5   HTR ZERO                                                         F3B05670
PAT6   HTR L(RCD)          RCD                                          F3B05680
PAT7   HTR ZERO                                                         F3B05690
PAT8   HTR ZERO                                                         F3B05700
PAT9   TSX CIT00,4         COMPILE INSTRUCTION                          F3B05710
PAT10  HTR ZERO                                                         F3B05720
PAT11  HTR L(CPY)          CPY                                          F3B05730
PAT12  HTR ZERO                                                         F3B05740
PAT13  HTR ZERO                                                         F3B05750
PAT14  TSX CIT00,4                                                      F3B05760
PAT15  HTR ZERO                                                         F3B05770
PAT16  HTR L(XIT)          XIT                                          F3B05780
PAT17  HTR L(15H)          +170000000000                                F3B05790
PAT18  HTR L(2D)           000002000000                                 F3B05800
PAT19  TSX CIT00,4                                                      F3B05810
PAT20  HTR ZERO                                                         F3B05820
PAT21  HTR L(HPR)          HPR                                          F3B05830
PAT22  HTR ZERO                                                         F3B05840
PAT23  HTR L(7M)           7 PLUS LOC. NO. OF RCD INSTR.                F3B05850
PAT24  TSX CIT00,4                                                      F3B05860
PAT25  HTR ZERO                                                         F3B05870
PAT26  HTR L(CPY)          CPY                                          F3B05880
PAT27  HTR ZERO                                                         F3B05890
PAT28  HTR ONED            000000000001                                 F3B03900
PAT29  TSX CIT00,4                                                      F3B05910
PAT30  HTR ZERO                                                         F3B05920
PAT31  HTR L(XIT)          XIT                                          F3B05930
PAT32  HTR ZERO                                                         F3B05940
PAT33  HTR ZERO                                                         F3B05950
PAT34  TSX CIT00,4                                                      F3B05960
PAT35  HTR L(LOC)          +003777000370                                F3B05970
PAT36  HTR L(HPR)          HPR                                          F3B05980
PAT37  HTR ZERO                                                         F3B05990
PAT38  HTR L(1.7)          000001000007                                 F3B06000
PAT39  TSX CIT00,4                                                      F3B06010
PAT40  HTR ZERO                                                         F3B06020
PAT41  HTR L(TRA)          TRA TO FINAL HALT                            F3B06030
PAT42  HTR L(LOC)                                                       F3B06040
PAT43  HTR ZERO                                                         F3B06050
PAT44  LXD BBOX,1          RESTORE COUNT IN IR1                         F3B06060
RTN    WRS 148                                                          F3B06070
PAT46  TRA RET1            BACK TO COMPLETE TERMINAL ROUTINE            F3B06080
       REM WORKING STORAGE AND CONSTANTS                                F3B06090
 A     EQU 1                                                            F3B06100
 B     EQU 2                                                            F3B06110
 C     EQU 4                                                            F3B06120
 L(0)  DEC 0                                                            F3B06130
 M1CON SYN L(0)                                                         F3B06140
 L(1)  DEC 1                                                            F3B06150
L(2)   DEC 2                                                            F3B06160
 L(3)  DEC 3                                                            F3B06170
 L(4)  DEC 4                                                            F3B06180
 L(8)  DEC 8                                                            F3B06190
L(704) DEC 704                                                          F3B06200
L(706) DEC 706                                                          F3B06210
L(1D)  DEC 1B17                                                         F3B06220
L(6H)  OCT 60000000000                                                  F3B06230
L(10H) OCT 120000000000                                                 F3B06240
L(12H) OCT 140000000000                                                 F3B06250
L(5.4) OCT 4000004                                                      F3B06260
L(LXD) BCD 1LXD000                                                      F3B06270
L(SXD) BCD 1SXD000                                                      F3B06280
L(TSX) BCD 1TSX000                                                      F3B06290
L(LXP) BCD 1LXP000                                                      F3B06300
 MASK  OCT 77777000000                                                  F3B06310
 AMASK OCT 77777                                                        F3B06320
 2BIT  OCT 100000000000                                                 F3B06330
 PMASK OCT 700000000000                                                 F3806340
L(RCD) BCD 1RCD000                                                      F3B06330
L(CPY) BCD 1CPY000                                                      F3B06360
L(XIT) BCD 1XIT000                                                      F3806370
L(HPR) BCD 1HPR000                                                      F3B06380
L(TRA) BCD 1TRA000                                                      F3B06300
L(15H) OCT 170000000000                                                 F3B06400
L(LOC) OCT 3777000370                                                   F3B06410
ZERO   PZE                                                              F3B06420
ONED   DEC 1B17                                                         F3B06430
L(2D)  DEC 2B17                                                         F3B06440
L(7M)  DEC 7                                                            F3B06450
L(1.7) OCT 1000007                                                      F3B06460
M3ECTR DEC 5                                                            F3B06470
L(370) OCT 370                                                          F3B06475
E1C         CELL FOR SAVING MQ                                          F3B06480
E2C         CELL FOR SAVING IRA                                         F3B06490
E3C         CELL FOR SAVING IRB                                         F3B06500
BBOX        2S COMP OF NO OF WORDS  ALREADY ENTERED IN BLOCK            F3B06510
E2M3                                                                    F3B06520
E3M3                                                                    F3B06530
       REM SENSE LITE 98 ON FOR END OF TIFGO FILE                       F3B06540
TFGWC                           TIFGO WORD COUNT                        F3B06530
TFGCFN      CURRENT FORMULA NUM FOR TIFGO INSTRUCTION                   F3806560
TFGCOM BSS 4                   TIFGO COMPILER                           F3806570
       REM SENSE LITE 97 ON FOR END OF FIRST FILE                       F3B06580
FFLWC                           FIRST FILE WORD COUNT                   F3B06590
FFLCFN      CURRENT FORMULA NUM FOR FIRST FILE INSTR                    F3B06600
FFLCOM BSS 4                   FIRST FILE COMPILER                      F3B06610
       PZE                                                              F3B06620
       PZE                                                              F3B06630
TSXCOM BSS 502                                                          F3B06640
FIXCON SYN TSXCOM                                                       F3B06650
TFGBUF BSS 100                 TIFGO BUFFER                             F3B06660
FFLBUF BSS 100                 FIRST FILE BUFFER                        F3B06670
 CIB   BSS 100                                                          F3B06680
       ORG 1467                                                         F3B06681
TSXPT1 SLW TSXCOM-2                                                     F3B06682
       TSX READTF,4                                                     F3B06683
       TSX READFF,4                                                     F3B06684
       MSE 97                                                           F3B06685
       TRA TSXPT2                                                       F3B06686
       PSE 97                                                           F3B06687
       TRA M30050+3                                                     F3B06688
TSXPT2 CLA TSXCOM                                                       F3B06689
       CAS FFLBUF                                                       F3B06690
       TRA M30050+3                                                     F3B06691
       TRA M30050+3                                                     F3B06692
       CLA TSXCOM                                                       F3B06693
       STD FFLCFN                                                       F3B06694
       TSX M31000,4                                                     F3B06695
       TRA M30050+3                                                     F3B06696
       END 24                                                           F3B06700
       REM 704 FORTRAN II, 4-1-6-2 SYSTEM                               F4400010                        
       REM SECTION 4 - FLOW ANALYSIS                                    F4400020
       REM ROBERT C. BRILL - NOVEMBER 13, 1958                          F4400030
       REM                                                              F4400040
       REM NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2    F4400050
       REM SYSTEM TAPE.  TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM    F4400060
       REM TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING.             F4400070
       REM      IN RECORD F0730000, LOCATI0N 77, CHANGE                 F4400080
       REM           000674000000 TO 003140000000                       F4400090
       REM      IN RECORD F0730000, LOCATI0N 632, CHANGE                F4400100
       REM           000000000215 TO 000000001037                       F4400110
       REM                                                              F4400120
       REM                                                              F4400130
       REM DEFINITI0N STATEMENTS                                        F4400140
BBBB.J SYN 141                       THESE FIRST TWO DEFINITI0NS MAKE   F4400150
BBSIZE SYN 444                          THE PROGRAM COMPATIBLE WITH     F4400160
       REM                              SECTI0N 5 (TAG ANALYSIS).  THEIRF4400170
       REM                              VALUES ARE THOSE OF PREDL (BLOCKF4400180
       REM                              LENGTH OF PRED TABLE) AND 6*BBBLF4400190
       REM                              (BLOCK LENGTH OF BB TABLE) RES- F4400200
       REM                              PECT1VELY, AS GIVEN IN THE      F4400210
       REM                              SECTI0N 5 LISTING.              F4400220
NOINS  SYN 2200                      BLOCK LENGTH OF COMPILED           F4400230
       REM                              INSTRUCTION TABLE (CIT)-PART 1  F4400240
ZINSTM SYN 300                       SAME AS PREVIOUS - PART 2          F4400230
ZINSTR SYN 100                       SAME AS PREVIOUS - PART 6          F4400260
ZBB    SYN 700                       LENGTH OF BB LIST                  F4400270
ZTIFRD SYN 200                       8LOCK LENGTH OF TIFRD              F4400280
XFRET= SYN 1000                      TABLE LENGTH AND DRUM ADD FOR FRET F4400290
ZFRET= SYN 250                       BLOCK LENGTH OF FRET               F4400300
XSET   SYN 400                       LENGTH OF SET TABLE                F4400310
ZSET   SYN 200                       BLOCK LENGTH OF SET TABLE          F4400320
ZNLIST SYN 25                        LENGTH 0F NLIST                    F4400330
XTRA   SYN 2800                      LENGTH 0F TRA TABLE                F4400340
ZTRA   SYN 700                       BLOCK LENGTH OF TRA TA8LE          F4400350
ZTAG   SYN 15                        BLOCK LENGTH OF TAGLIST h          F4400360
XXXXXX SYN 0                         THE APPEARANCE OF THIS SYMBOL IN   F4400370
       REM                              THE LISTING INDICATES THAT ITS  F4400380
       REM                              VALUE IS SET BY THE PROGRAM.    F4400390
RDFORT SYN 4                         A TSX RDFORT,4 CALLS IN THE DIAG-  F4400400
       REM                              NOSTIC ROUTINE. A RDS SYSTAP    F4400410
       REM                              FOLL0WED BY A TRA RDFORT CALLS  F4400420
       REM                              IN THE NEXT RECORD OF THE       F4400430
       REM                              FORTRAN PROGRAM.                F4400440
BBOX.= SYN 4092                      THE FOLL0WING ARE THE ADDRESSES    F4400450
DOBOX= SYN 4093                         OF SPECIAL COUNTERS             F4400460
SSBOX= SYN 4094                                                         F4400470
TTBOX= SYN 4095                                                         F4400480
SUCCBX SYN 4093                                                         F4400490
PREDBX SYN 4094                                                         F4400500
BBTBOX SYN 4095                                                         F4400510
SYSTAP SYN 145                       FORTRAN SYSTEM TAPE (LOGICAL 1)    F4400520
TBLTAP SYN 146                       TIFGO, TRAD, FRET, AND DOTAG       F4400530
       REM                              TAPE (LOGICAL 2)                F4400540
TAGTAP SYN 147                       TAGLIST TAPE (LOGICAL 3)           F4400550
BLT    SYN 147                       BBLIST TAPE (LOGICAL 3)            F4400560
INSTTP SYN 148                       CIT TAPE (L0GICAL 4)               F4400370
TIFDRM SYN 193                       TIFRD DRUM (L0GICAL 1)             F4400380
DOCRDR SYN 193                       DOCARE DRUM (LOGICAL 1)            F4400300
DODRUM SYN 193                       DOLIST DRUM (LOGICAL 1)            F4400600
TRADRM SYN 193                       INITIAL TRA TABLE DRUM (LOGICAL 1) F4400610
FRTDRM SYN 194                       FRET DRUM (LOGICAL 2)              F4400620
BBLDRM SYN 195                       BBLIST DRUM (LOGICAL 3)            F4400630
SETDRM SYN 195                       SET DRUM (LOGICAL 3)               F4400640
TIFADD SYN 1000                      DRUM ADDRESS FOR TIFRD             F4400630
DOADDR SYN 1720                      DRUM ADDRESS FOR DO LIST           F4400660
BBLADD SYN 1200                      DRUM ADDRESS FOR BB LIST           F4400670
FRTADD SYN 1000                      DRUM ADDRESS FOR FRET              F4400680
SETADD SYN 701                       DRUM ADDRESS FOR SET TABLE         F4400690
BBLIST SYN 4091                      THE FOLLOWING ARE THE BASE         F4400700
DOLIST SYN BBLIST-ZBB+1                 ADDRESSES OF ALL TABLES         F4400710
INST.A SYN DOLIST-300                                                   F4400720
TIFRD  SYN DOLIST-300                                                   F4400730
TRAD.= SYN TIFRD-1100                                                   F4400740
FRET.= SYN DOLIST-301                                                   F4400750
DVFQ.= SYN FRET.=                                                       F4400760
DOTAG  SYN DVFQ.=-301-600                                               F4400770
DOCARE SYN DOTAG                                                        F4400780
TRA..M SYN DOLIST-300                                                   F4400790
SET..M SYN TRA..M-ZTRA-4                                                F4400800
TIFRDM SYN SET..M-200                                                   F4400810
INST.M SYN TIFRDM-201                                                   F4400820
SETLOC SYN BBLIST+1                                                     F4400830
TRATBL SYN BBLIST                                                       F4400840
BBTABL SYN TRATBL-2800                                                  F4400850
FIXDOS SYN BBTABL+1                                                     F4400860
NLIST  SYN BBTABL-ZBB-3                                                 F4400870
FRET   SYN NLIST-26                                                     F4400880
SETTAB SYN NLIST-25-1                                                   F4400890
SNSLT  SYN NLIST+100                                                    F4400900
DOBLOK SYN BBTABL-ZBB+1                                                 F4400910
LCNTR  SYN DOBLOK-300-1                                                 F4400920
TAG    SYN BBLIST-ZBB+1                                                 F4400930
INST.R SYN TAG-15-1                                                     F4400940
BBTAGS SYN INST.R-100                                                   F4400950
INSTA  SYN INST.A                                                       F4400960
INSTM  SYN INST.M                                                       F4400970
INSTR  SYN INST.R                                                       F4400980
PRED   SYN TRATBL                                                       F4400990
SETM   SYN SET..M                                                       F4401000
TRAM   SYN TRA..M                                                       F4401010
BGINS  SYN INSTA-NOINS               END OF INST. BLOCK (PART 1)        F4401020
FRETN= SYN FRET.=-1000               BEGINNING OF FRET (PART 1)         F4401030
NDTRA  SYN TRAM-700                  END OF TRA TABLE BLOCK (PART 2)    F4401040
NDINS  SYN INSTM-300                 END OF INST. BLOCK (PART 2)        F4401030
NTIFR  SYN TIFRDM-200                EN0 OF TIFRD 8LOCK (PART 2)        F4401060
NDSET  SYN SETLOC-ZSET               END OF SET BLOCK (PART 3)          F4401070
       REM                                                              F4401080
       REM                                                              F4401090
       REM  SECTION 4 - PART 1 OF 6                                     F4410010
       REM                                                              F4410020
       REM  FORTRAN EDITOR INFORMATION                                  F4410030
       REM     MASTER RECORD CARD = F0620000                            F4410040
       REM     ENTRY POINT = 112                                        F4410050
       REM     FIRST LOCATION = 30                                      F4410060
       REM     LAST LOCATION = 1327                                     F4410070
       REM                                                              F4410080
       REM                                                              F4410090
       ORG 24                                                           F4410100
       REM CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES       F4410110
       REM THROUGHOUT SECTION 4.)                                       F4410120
ERRBX  DEC 0                         COUNTER FOR READING ERRORS         F4410130
LA1    DEC 1                                                            F4410140
MINUS4 DEC -4                                                           F4410150
L0...= DEC 0                                                            F4410160
L5...= DEC 5                                                            F4410170
TIFLAB DEC 2                                                            F4410180
TRALAB DEC 3                                                            F4410190
FRELAB DEC 7                                                            F4410200
LD1..= HTR 0,0,1                                                        F4410210
LZTIF=     ZTIFRD                                                       F4410220
LZTF2=     ZTIFRD+2                                                     F4410230
LAZFT=     ZFRET=                                                       F4410240
LAFT2=     ZFRET=+2                                                     F4410250
LZTR4=     ZTRA+4                                                       F4410260
FRETY=     FRTADD                    DRUM ADDRESS FOR FRET              F4410270
Y          TIFADD                    DRUM ADDRESS FOR TIFRD             F4410280
LXFRT=     0,0,XFRET=                                                   F4410290
OCTAL  OCT 170000000000                                                 F4410300
ENDMK= OCT 377777777777                                                 F4410310
TAGMRK OCT 700000                                                       F4410320
OPMSK= OCT 77777000000                                                  F4410330
PSEMK= OCT 60000000                                                     F4410340
PSTMK= OCT 70000000                                                     F4410350
TGMSK= OCT 777777                                                       F4410360
NMASK= OCT -300000000000                                                F4410370
1STLT= OCT -370000000000                                                F4410380
1STT.= OCT -230000000000                                                F4410390
LNOP.= NOP                           PROGRAM CONSTANT                   F4410400
LTRA.= OCT 35121000000               TRA                                F4410410
       OCT 1146000000                TSX-TRA                            F4410420
       OCT 454000000                 TXL-TSX                            F4410430
LTROP= OCT 162000000                 TZE-TXL                            F4410440
       OCT 42363000000               DCT                                F4410450
       OCT -24000000000              RTT-DCT                            F4410460
       OCT 27642000000               MSE-RTT                            F4410470
LPCOP= OCT 30000000000               PSE-MSE                            F4410480
LTPL.= OCT 34743000000                                                  F4410490
LTRAA  TRA AA+1                                                         F4410500
LOUT   TRA STTIF=                                                       F4410510
LBEG   TRA BEGCLA                                                       F4410520
LXRDN  TRA AA+1                                                         F4410530
LMPY   TRA MPY                                                          F4410540
LSTQ   TRA STQDTG                                                       F4410550
CONSTA OCT 2000000000                                                   F4410560
CNST2A TIX CLAB,1,0                                                     F4410570
ERAS1=                                                                  F4410580
ERAS2=                                                                  F4410590
ERAS3=                                                                  F4410600
FRTBX= SYN ERAS3=                                                       F4410610
OPCD                                                                    F4410620
DVFQB= HTR 0,0,1                                                        F4410630
       REM                                                              F4410640
       REM THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST     F4410650
       REM KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE    F4410660
       REM FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM. F4410670
PASS1  REW INSTTP                                                       F4410680
       CLA ENDMK=                                                       F4410690
       STO BBLIST                    STORE MARK FOR END OF B B LIST     F4410700
       PXD                                                              F4410710
       STO BBOX.=                                                       F4410720
       STO DOBOX=                                                       F4410730
       STO SSBOX=                                                       F4410740
       STO TTBOX=                                                       F4410750
       CLA LBEG                                                         F4410760
       STA XRDIN                     SET EXIT ADDRESS                   F4410770
       TRA RDINSA                    TRANSFER TO ROUTINE TO READ IN 1ST F4410780
       REM                              BLOCK OF COMPILED INSTRUCTIONS  F4410790
BEGCLA CLA LXRDN                     RESTORE USUAL EXIT ADDRESS         F4410800
       STA XRDIN                                                        F4410810
       LXA LA1,2                     INITIALIZE INDEX REGISTERS         F4410820
       LXA LA1,1                                                        F4410830
LD12.= TXI LD12.=+1,1,12                                                F4410840
       CLA INST.A,1                  PUT INSTRUCTION NUMBER OF FIRST    F4410850
       TSX STB,4                        INSTRUCTION IN BBLIST           F4410860
AA     TIX RDINSA,1,NOINS            TEST FOR END OF INSTRUCTION BLOCK  F4410870
       CLA INST.A,1                  IF THERE IS NO LOCATION SYMBOL,    F4410880
       TZE OTHER                       THIS INST. NEED NOT BE CONSIDEREDF4410890
       CAL INST.A-1,1                                                   F4410900
       STD OPCD                                                         F4410910
       ANA 1STLT=                    IF FIRST LETTER IS A T,GO TO TRCS  F4410920
       SLW ERAS1=                                                       F4410930
       CLA ERAS1=                                                       F4410940
       SUB 1STT.=                                                       F4410950
       TZE TRCS                                                         F4410960
       CLA OPCD                                                         F4410970
       LXD LD4..=,4                  FOUR INTO INDEX REGISTER C         F4410980
PSUB   SUB LPCOP=+1,4                LOOK FOR A TEST INSTRUCTION        F4410990
       TZE PTRA+1,4                  THIS IS A TEST                     F4411000
       TIX PSUB,4,1                                                     F4411010
OTHER  TXI AA,1,4                    NO TRANSFER EXISTS                 F4411020
       TRA TSTCS                     DCT                                F4411030
       TRA TSTCS                     RTT                                F4411040
       TRA TSTCS                     MSE                                F4411050
PTRA   TRA PSECS                     PSE                                F4411060
TRCS   CLA OPCD                      FIND WHAT KIND OF TRANSFER THIS IS F4411070
       LXD LD4..=,4                  FOUR INTO INDEX REGISTER C         F4411080
P2SUB  SUB LTROP=+1,4                                                   F4411090
       TZE P2TRA+1,4                 HAVE FOUND TYPE OF TRANSFER        F4411100
       TIX P2SUB,4,1                 NOT FOUND YET                      F4411110
       CLA INST.A-2,1                IS THIS A TRANSFER WITH A SYMBOLIC F4411120
       SUB OCTAL                        ADDRESS = SPECIAL MARK          F4411130
       TZE OTHER                     YES,IGNORE AS NOT REAL TRANSFER    F4411140
       CLA INST.A,1                                                     F4411150
       SUB INST.A-2,1                                                   F4411160
       TZE OTHER                                                        F4411170
2WYTR  CLA INSTA-2,1                 IS  A CONDITONAL TRANSFER, PUT ITS F4411180
       TSX STB,4                        ADDRESS AND THE ADDRESS OF THE  F4411190
       CLA INST.A-6,1                   NEXT INSTRUCTION IN THE BASIC   F4411200
       TSX STB,4                        BLOCK LIST                      F4411210
       TXI AA,1,8                    LOOK AT NEXT INSTRUCTION           F4411220
       TRA TRACSA                    TRA IS THE OPERATION CODE          F4411230
       TRA OTHER                     TSX                                F4411240
       TRA DOCSA                     TXL                                F4411250
P2TRA  TRA IF3CSA                    TZE                                F4411260
TRACSA CLA INSTA-3,1                 IS INSTRUCTION TAGGED              F4411270
       ANA TGMSK=                                                       F4411280
       TNZ GOTOVA                    YES,IS A GO TO VECTOR              F4411290
       CAL INST.A-2,1                TEST FOR A GO TO N                 F4411300
       ANA NMASK=                    IS ADDRESS IN N-BLOCK              F4411310
       TNZ OTHER                     YES,THIS IS A GO TO N,IGNORE NOW   F4411320
       CLA INST.A-2,1                NOT TAGGED,IS A STRAIGHT TRANSFER  F4411330
       TSX STB,4                     STORE ADDRESS IN BASIC BLOCK LIST  F4411340
       TXI AA,1,4                    LOOK AT NEXT INSTRUCTION           F4411350
GOTOVA CLA INST.A-3,1                THIS IS A GO TO VECTOR             F4411360
       PDX 0,4                                                          F4411370
SELF1  TIX SELF1+1,4,1               PUT NUMBER OF BRANCHES INTO IR C   F4411380
LD4..= TXI 4TIX,1,4                  SET FOR NEXT INSTRUCTION           F4411390
4TIX   TIX RDIN,1,NOINS              READ IN MORE INSTRUCTIONS IF NEEDEDF4411400
       CLA INST.A-2,1                GET ADDRESS OF THIS INSTRUCTION    F4411410
       SXD ERAS2=,4                  SAVE IN0EX REGISTER C              F4411420
       TSX STB,4                     PUT ADDRESS IN BASIC BLOCK LIST    F4411430
       LXD ERAS2=,4                  RESTORE INDEX REGISTER C           F4411440
       TIX LD4..=,4,1                HAVE ALL BRANCHES BEEN DONE        F4411450
       TXI AA,1,4                    YES,LOOK AT NEXT INSTRUCTION       F4411460
DOCSA  LXD DOBOX=,4                  THIS IS THE END OF A DO            F4411470
SELF2  TXI SELF2+1,4,2               SET DOLIST ADORESS FOR NEXT ENTRY  F4411480
       CLA INST.A,1                  PUT LOCA,ION OF TRANSFER AND       F4411490
       STO DOLIST+1,4                ADDRESS 0F TRANSFER INTO 0O LIST   F4411500
       CLA INST.A-2,1                                                   F4411510
       STO DOLIST,4                                                     F4411520
       SXD DOBOX=,4                  STORE DO LIST ADDRESS              F4411530
       TSX STB,4                     PUT ADDRESS OF TRA BACK IN TRA TABLF4411540
       CLA INST.A-4,1                                                   F4411550
       TSX STB,4                     PUT LOC OF NEXT INST. IN TRA       F4411560
       TXI AA,1,4                    LOOK AT NEXT INST.                 F4411570
IF3CSA CLA INST.A-5,1                THIS INSTRUCTION IS A TZE          F4411580
       ANA OPMSK=                                                       F4411590
       SUB LTPL.=                    IS IT FOLLOWED BY BOTH A TPL AND   F4411600
       TNZ 2WYTR                        A TRA, IF NOT, TREAT IT AS A    F4411610
       CLA INST.A-9,1                   TWO-WAY TRANSFER                F4411620
       ANA OPMSK=                                                       F4411630
       SUB LTRA.=                                                       F4411640
       TNZ 2WYTR                                                        F4411650
       CLA INST.A-2,1                PUT ADDRESSES OF THE THREE BRANCHESF4411660
       TSX STB,4                        INTO THE BASIC BLOCK LIST       F4411670
       CLA INST.A-6,1                                                   F4411680
       TSX STB,4                                                        F4411690
       CLA INST.A-10,1                                                  F4411700
       TSX STB,4                                                        F4411710
       TXI AA,1,12                   LOOK AT INSTRUCTION AFTER THESE 3. F4411720
PSECS  CLA INSTA-3,1                 INSTRUCTION IS A PSE               F4411730
       ANA PSTMK=                                                       F4411740
       SUB PSEMK=                                                       F4411750
       TNZ OTHER                     NOT A SKIP, LOOK AT NEXT INST.     F4411760
TSTCS  CLA INSTA-5,1                 THIS IS A TEST INSTRUCTION         F4411770
       ANA OPMSK=                    IS IT FOLLOWED BY A TRA            F4411780
       SUB LTRA.=                                                       F4411790
       TNZ OTHER                     NO,GO TO NEXT INSTRUCTION          F4411800
       CLA INST.A-6,1                YES, IS USED FOR SKIPPING          F4411810
       TSX STB,4                                                        F4411820
       CLA INST.A-9,1                IS TEST INSTRUCTION FOLLOWED BY    F4411830
       ANA OPMSK=                       TWO TRAS                        F4411840
       SUB LTRA.=                                                       F4411850
       TNZ SLOC                      NO, STORE LOCATION OF 2ND INST.    F4411860
       CLA INST.A-10,1               YES,STORE ADDRESS OF 2ND TRA       F4411870
       TSX STB,4                                                        F4411880
       TXI AA,1,12                   DO INSTRUCTION AFTER 2ND TRA NEXT  F4411890
SLOC   CLA INSTA-8,1                 STORE LOCATION OF 2ND INSTRUCTION  F4411900
       TSX STB,4                        AFTER TEST                      F4411910
       TXI AA,1,8                    LOOK AT 2ND INSTRUCTION AFTER TEST F4411920
       REM                                                              F4411930
       REM THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO     F4411940
       REM STORAGE FROM TAPE 4, FILE 1.                                 F4411950
RDIN   CLA LNOP.=                    STORE EXIT ADDRESS FROM RDINS      F4411960
       STO XRDIN                                                        F4411970
RDINSA CLA MINUS4                    INITIALIZE ERROR BOX               F4411980
       STO ERRBX                                                        F4411990
RDSEL  RDS INSTTP                    SELECT INSTRUCTION TAPE            F4412000
       SXD ERAS1=,1                                                     F4412010
       LXD LD12.=,1                                                     F4412020
RCLA   CLA BGINS,1                   MOVE EXTRA INSTRUCTIONS            F4412030
       STO INST.A,1                                                     F4412040
       TIX RCLA,1,1                                                     F4412050
       SXD ERAS2=,1                  SAVE INDEX IN CASE OF ERROR        F4412060
RCPY   CPY INSTA-12,1                READ IN BLOCK OF INSTRUCTIONS      F4412070
       TXI RCPY,1,1                                                     F4412080
       TXI RDEND,1,-1                END OF FILE                        F4412090
TPTST  WRS 219                       TEST FOR TAPE ERROR                F4412100
       RTT                                                              F4412110
       TRA RDERR                     ERROR                              F4412120
       CLA MINUS4                    INITIALIZE ERROR BOX               F4412130
       STO ERRBX                                                        F4412140
LNOINS TXH XRDIN-1,1,NOINS           END OF RECORD--SEE IF IT IS END OF F4412150
       RDS INSTTP                       BLOCK GOING INTO STORAGE        F4412160
       TRA RCPY-1                    READ NEXT BLOCK                    F4412170
RDEND  PXD 0,1                       STORE NUMBER OF REMAINING INSTRUC- F4412180
       ADD LD12.=                       TIONS FOR TEST                  F4412190
       STD AA                                                           F4412200
       CLA LOUT                      STORE FINAL EXIT ADDRESS.          F4412210
       STA AA                                                           F4412220
       LXD ERAS1=,1                  NO ERROR,RESTORE INDEX REGISTER    F4412230
XRDIN  TRA AA+1                      RETURN TO MAIN ROUTINE             F4412240
RDIN2  CLA LTRAA                     RESTORE USUAL EXIT ADDRESS IN RDINSF4412250
       STO XRDIN                                                        F4412260
       TRA 4TIX+1                    RETURN TO MAIN ROUTINE             F4412270
RDERR  CLA ERRBX                                                        F4412280
SKIP1  TMI SKIP1+2                   HAVE 5 TRIES AT READING BEEN MADE  F4412290
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4412300
       ADD LA1                          NO, TRY READING AGAIN           F4412310
       STO ERRBX                                                        F4412320
       BST INSTTP                                                       F4412330
       LXD ERAS2=,1                  RESET INDEX REGISTER               F4412340
       TRA LNOINS+1                      AND TRY TO READ AGAIN          F4412350
       REM                                                              F4412360
       REM THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS,   F4412370
       REM THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH     F4412380
       REM BASIC BLOCK                                                  F4412390
STB    STO ERAS3=                                                       F4412400
       SXD ERAS1=,1                                                     F4412410
       PXD 0,2                                                          F4412420
       STD BTXH                                                         F4412430
       STD BTXL                                                         F4412440
       STD PLACEA                                                       F4412450
       ARS 1                                                            F4412460
       FAD L0...=                                                       F4412470
       ARS 27                                                           F4412480
       SUB LD1..=                                                       F4412490
       STA ARS                                                          F4412500
       CLA CONSTA                                                       F4412510
ARS    ARS                                                              F4412520
       LDQ CNST2A                                                       F4412530
       PDX 0,1                                                          F4412540
ARSB   ARS 1                                                            F4412550
       STD TXIBB                                                        F4412560
       STD TIXBB                                                        F4412570
       CLA ERAS3=                                                       F4412580
PLACEA TXH TIXBB,1,XXXXXX                                               F4412590
       CAS BBLIST+1,1                                                   F4412600
TXIBB  TXI CLAB,1                                                       F4412610
       TRA BOUT                                                         F4412620
TIXBB  TIX CLAB,1                                                       F4412630
CLAB   CLA TIXBB                                                        F4412640
       TLQ ARSB                                                         F4412650
       CLA ERAS3=                    X WAS NOT FOUND, ENTER IT          F4412660
       TXH BTSX,2,ZBB-1              TEST FOR OVERFLOW OF BBLIST        F4412670
       LDQ BBLIST+1,1                                                   F4412680
       TLQ TXI2                                                         F4412690
       TRA BLDQ+1                                                       F4412700
TXI2   TXI BLDQ,1,1                                                     F4412710
BLDQ   LDQ BBLIST+1,1                X SHOULD BE ENTERED HERE, SAVE NEXTF4412720
       STO BBLIST+1,1                  ENTRY AND STORE X                F4412730
       TXI BTXH,1,1                  IS THIS LAST ENTRY IN TABLE.       F4412740
BTXH   TXH BSTQ,1                    YES, TRANSFER                      F4412750
       CLA BBLIST+1,1                NO, SHIFT NEXT ENTRY               F4412760
       STQ BBLIST+1,1                                                   F4412770
       TXI BTXL,1,1                                                     F4412780
BTXL   TXL BLDQ,1                    IS THIS LAST ENTRY IN TABLE        F4412790
       STO BBLIST+1,1                YES, STORE LAST ENTRY              F4412800
       TXI BOUT,2,1                                                     F4412810
BSTQ   STQ BBLIST+1,1                STORE LAST ENTRY                   F4412820
       TXI BOUT,2,1                                                     F4412830
BOUT   LXD ERAS1=,1                  RESTORE INDEX REGISTER             F4412840
       TRA 1,4                       TRANSFER BACK.                     F4412850
BTSX   TSX RDFORT,4                  BBLIST IS FULL WITHOUT THIS ENTRY  F4412860
       REM                                                              F4412670
       REM THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6,      F4412880
       REM ELIMINATING UNWANTED PARTS OF TIFGO.                         F4412890
STTIF= CLA MINUS4                    INITIALIZE ERROR BOX               F4412900
       STO ERRBX                                                        F4412910
       BST TBLTAP                    POSITION TAPE4TO READ TIFGO        F4412920
       BST TBLTAP                                                       F4412930
       RDS TBLTAP                                                       F4412940
       CPY ERAS1=                    GET NO. OF RECORDS IN DOTAG        F4412950
       LXD ERAS1=,1                  BACKSPACE OVER COUNT, END FILE,    F4412960
TXITF  TXI TXITF+1,1,12                 IXTAG, END FILE, 9 TABLES       F4412970
BSTA   BST TBLTAP                                                       F4412980
SELF3  TIX SELF3-1,1,1                                                  F4412990
       RDS TBLTAP                                                       F4413000
       CPY ERAS2=                    COPY TABLE NUMBER                  F4413010
       CPY ERAS1=                    COPY NO OF WORDS IN TABLE          F4413020
CPYTF  CPY TIFRD,1                   COPY WORD 0F TIFGO                 F4413030
       TRA CLATFA                    REGULAR EXIT FROM COPY             F4413040
       TSX RDFORT,4                  END OF FILE SHOULD NOT OCCUR       F4413050
       TXI CHECK,1,-1                END OF RECORD - GIVE RTT, SET INDEXF4413060
CLATFA CLA TIFRD,1                   LOOK AT THIS WORD OF TIFGO         F4413070
       TMI CPYTF-1                   -,MEANS AN IF, GIVE 2ND COPY,IGNOREF4413080
       ANA TGMSK=                    IS THIS A GO TO N ENTRY            F4413090
       SUB LA1                                                          F4413100
       CPY TIFRD-1,1                 COPY SECOND WORD OF ENTRY          F4413110
       TZE GOTONA                    THIS IS A GO TO N ENTRY            F4413120
       SUB L5...=                    NOT A GO TO N--IS IT AN ASSIGN     F4413130
       TNZ CPYTF                     NO, LOOK AT NEXT ENTRY, DONT SAVE  F4413140
ASSN   TXI CPYTF,1,2                 AN ASSIGN,KEEP ENTRY IN TIFRD      F4413150
GOTONA CLA TIFRD-1,1                 A GO TO N, SAVE ENTRY AND ALSO     F4413160
       STD ERAS1=                       LEAVE ENOUGH SPACE FOR CORRES-  F4413170
       PAX 0,4                          PONDING ENTRIES IN TRAD         F4413180
       PXD 0,4                                                          F4413190
       SUB ERAS1=                                                       F4413200
SELF4  STD SELF4+1                                                      F4413210
       TXI ASSN,1,XXXXXX             LOOK AT NEXT ENTRY IN TIFRD        F4413220
CHECK  IOD                           TEST FOR TAPE ERROR                F4413230
       RTT                                                              F4413240
       TRA ERRORA                    ERROR                              F4413250
       CLA ERAS2=                    CHECK FOR POSITIONING OF TAPE      F4413260
       SUB TIFLAB                                                       F4413270
       TNZ BADPOS                                                       F4413280
       PXD 0,1                       SAVE LENGTH OF TABLE FOR TESTS     F4413290
       STD ABOX                                                         F4413300
       ARS 18                                                           F4413310
       STO ERAS2=                                                       F4413320
       TNZ RDTRAD-2                  TIFGO IS NOT EMPTY                 F4413330
RDS6   RDS TBLTAP                                                       F4413340
       TXI RDS6+2,2,-1               NO ENTRIES IN TIFGO-SKIP PROCESSINGF4413850
       SXD BBOX.=,2                                                     F4413360
       TRA LXA6                                                         F4413370
ERRORA CLA ERRBX                                                        F4413380
SKIP2  TMI SKIP2+2                   HAVE 5 TRIES AT READING BEEN MADE  F4413390
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4413400
       ADD LA1                          NO, TRY READING AGAIN           F4413410
       STO ERRBX                                                        F4413420
       LXD LD1..=,1                  RESET INDEX REGISTER               F4413430
       TRA BSTA                                                         F4413440
BADPOS TSX RDFORT,4                  TAPE POSITIONED INCORRECTLY        F4413450
       REM                                                              F4413460
       REM THIS ROUTINE READS TRAD FROM TAPE 2, FILE 5, RECORD 7, AND   F4413470
       REM ENTERS ALL WORDS OF TRAD INTO THE BASIC BLOCK LIST.          F4413480
       CLA MINUS4                    INITIALIZE ERROR BOX               F4413490
       STO ERRBX                                                        F4413500
RDTRAD LXA LA1,1                     SET INDEX                          F4413510
       RDS TBLTAP                                                       F4413520
       CPY ERAS1=                    COPY TABLE NUMBER                  F4413530
       CPY TRAD.=+1,1                COPY NUMBER OF WORDS AND TABLE     F4413540
SELF5  TXI SELF5-1,1,-1              COPY NEXT WORD                     F4413550
       TSX RDFORT,4                  END OF FILE SHOULD NOT OCCUR       F4413560
       IOD                           END OF RECORD--TEST FOR ERROR      F4413570
       RTT                                                              F4413580
       TRA ERR2TD                    ERROR                              F4413590
       CLA ERAS1=                    CHECK FOR POSITIONING OF TAPE      F4413600
       SUB TRALAB                                                       F4413610
       TNZ BADPOS                                                       F4413620
TXLTRD TXL TXITRD,1,0                ALL OF TRAD NOW IN BASIC BLOCK LISTF4413630
       CLA TRAD.=,1                  NO ERROR--ENTER IN BASIC BLOCK LISTF4413640
       ALS 18                        SHIFT WORD OF TRAO                 F4413650
       STO TRAD.=,1                                                     F4413660
       TSX STB,4                                                        F4413670
       TXI TXLTRD,1,1                SET FOR NEXT WORD IN TRAD          F4413680
ERR2TD CLA ERRBX                                                        F4413690
SKIP3  TMI SKIP3+2                   HAVE 5 TRIES AT READING BEEN MADE  F4413700
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4413710
       ADD LA1                          NO, TRY READING AGAIN           F4413720
       STO ERRBX                                                        F4413730
       BST TBLTAP                                                       F4413740
       TRA RDTRAD                                                       F4413750
TXITRD TXI TXITRD+1,2,-1                                                F4413760
       SXD BBOX.=,2                  SAVE LENGTH OF BB TABLE            F4413770
       REM                                                              F4413780
       REM THIS COMBINES TIFGO AND TRAD INTO TIFRD                      F4413790
CMBNE  LXA LA1,1                     COMBINE TRAD WITH TIFGO            F4413800
CLATF  CLA TIFRD,1                   LOOK FOR A GO TO N ENTRY IN TIFRD  F4413810
       ANA TGMSK=                                                       F4413820
       SUB LA1                                                          F4413830
       TZE GOTN2                                                        F4413840
       TXI ABOX,1,2                                                     F4413850
ABOX   TNX CLATF,1                   IS THIS END OF TIFRD               F4413860
       TRA CLAER                     YES, STORE TIFRD ON DRUM           F4413870
GOTN2  CLA TIFRD-1,1                 GO TO N, PUT IN ENTRIES FROM TRAD  F4413880
       PDX 0,2                       SET INDEX FOR FIRST WORD           F4413890
       ALS 18                                                           F4413900
       STD TXH                       STORE INDEX FOR LAST WORD          F4413910
CLATR  CLA TRAD.=+251,2              STORE WORD FROM TRAD INTO TIFRD    F4413920
       SSM                                                              F4413930
       STO TIFRD-2,1                                                    F4413940
       TXI TXIA,2,-1                 SET INDEX FOR TRAD                 F4413950
TXIA   TXI TXH,1,1                   SET INDEX FOR TIFRD                F4413960
TXH    TXH CLATR,2                   CHECK FOR LAST WORD FOR THIS GO TO F4413970
       TXI ABOX,1,2                  SET FOR NEXT ENTRY IN TIFRD        F4413980
       REM                                                              F4413990
       REM THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS.  F4414000
CLAER  CLA ERAS2=                    HOW MANY WORDS ARE LEFT TO COPY    F4414010
       TMI RFRET                     NONE                               F4414020
       SUB LZTIF=                                                       F4414030
TMI    TMI LXA6                      ONLY A PARTIAL BLOCK               F4414040
       LXA LZTIF=,1                  FULL                               F4414050
       STO ERAS2=                    STORE NO OF WORDS LEFT AFTER THIS  F4414060
WRSTIF WRS TIFDRM                                                       F4414070
       PXD 0,1                       PUT LENGTH OF BLOCK IN ACCUMULATOR F4414080
       STO ERAS3=                      AND IN ERAS3=                    F4414090
ACLF   ACL TIFRD,1                   COMPUTE CHECKSUM                   F4414100
       TIX ACLF,1,1                                                     F4414110
       SLW ERAS1=                    STORE CHECK SUM                    F4414120
       LDA Y                         LOCATE DRUM ADDRESS                F4414130
       LXD ERAS3=,1                  SET INDEX                          F4414140
       CPY ERAS3=                    COPY NO OF WORDS IN BLOCK          F4414150
CPY7FT CPY TIFRD,1                   COPY TABLE                         F4414160
SELF9  TIX SELF9-1,1,1                                                  F4414170
       CPY ERAS1=                    COPY CHECK SUM                     F4414180
       CAL ACLF                      SET ADDRESSES FOR COMPUTING        F4414190
       SUB LZTIF=                       CHECK SUM AND COPY              F4414200
STA6   STA ACLF                                                         F4414210
       STA CPY7FT                                                       F4414220
       CLA Y                         SET DRUM ADDRESS                   F4414230
       ADD LZTF2=                                                       F4414240
       STA Y                                                            F4414250
       TRA CLAER                     DO NEXT BLOCK                      F4414260
LXA6   LXA ERAS2=,1                  PUT LENGTH IN INDEX                F4414270
       CLS L0...=                    PUT MINUS IN ERAS2= AS LENGTH LEFT F4414280
       STO ERAS2=                                                       F4414290
       TRA WRSTIF                    TRA TO WRITE BLOCK AND COMPUTE CKSMF4414300
       REM                                                              F4414310
       REM THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND  F4414320
       REM CHANGES FREQUENCIES TO PROBABILITIES.                        F4414330
RFRET  CLA MINUS4                    INITIALIZE ERROR BOX               F4414340
       STO ERRBX                                                        F4414350
       LXA L5...=,4                  SPACE TO FRET                      F4414360
RDSFTP RDS TBLTAP                                                       F4414370
       TIX RDSFTP,4,1                                                   F4414380
       CPY ERAS2=                    COPY TABLE NUMBER                  F4414390
RDINF  CPY ERAS1=                    COPY NUMBER OF WORDS IN TABLE      F4414400
       LXD ERAS1=,2                  PUT NUMBER OF WORDS INTO INDEX B   F4414410
       TXL EMPTY,2,0                                                    F4414420
       LXA LA1,1                     INITIALIZE INDEX REGISTERS A AND C F4414430
       LXD LXFRT=,4                                                     F4414440
CPYF   CPY FRET.=,4                  COPY WORDS INTO STORAGE            F4414450
       CLA FRET.=,4                  IS THIS WORD THE FORMULA NUMBER OF F4414460
       TMI TNX                          A NEW ENTRY--YES, TRANSFER      F4414470
ADD    ADD FRET.=-1,4                NO, ADD THIS FREQUENCY TO PREVIOUS F4414480
       STO FRET.=,4                     SUM TO GET CUMULATIVE FREQUENCY F4414490
       TNX ALDNE,2,1                 IS TABLE ALL COPIED                F4414500
       TXI CPYF,4,-1                 NO,COPY NEXT WORD                  F4414510
TNX    TNX ERRFN,2,1                 THIS IS FORM. NO,--SHOUL0NT END TABF4414520
SELF10 TXI SELF10+1,4,-1             INDEX PLACE IN STORAGE             F4414530
CPY3FT CPY FRET.=,4                  COPY FIRST FREQUENCY IN ENTRY      F4414540
       TNX DOEND,2,1                 TEST FOR END OF TABLE ON TAPE      F4414550
SELF11 TXI SELF11+1,4,-1             INDEX PLACE IN STORAGE             F4414560
       CPY FRET.=,4                  COPY NEXT WORD-- IS IT NEXT FREQ ORF4414570
       CLA FRET.=,4                     IS IT NEW FORMULA NUMBER        F4414580
       TPL ADD                       NEXT FREQUENCY,GO TO ADD           F4414590
DOCSFT CLA FRET.=-2,4                NEW FORMULA NUMBER,ENTRY JUST      F4414600
       STO DVFQ.=,1                     COPIED WAS FOR A DO, MOVE TO    F4414610
       CLA FRET.=-1,4                   DVFQ                            F4414620
       STO DVFQ.=-1,1                                                   F4414630
       TXI CLAFT,1,2                 INDEX POSITION IN DVFQ TABLE       F4414640
CLAFT  CLA FRET.=,4                  PUT NEW FORMULA INTO FRET IN PLACE F4414650
       STO FRET.=-2,4                   OF ENTRY JUST MOVED             F4414660
       TNX ERRFN,2,1                 THIS SHOULD BE END ONLY IF WAS DOCSF4414670
       TXI CPY3FT,4,1                COPY NEXT WORD                     F4414680
DOEND  CLA ADD+2                     THIS DO ENTRY IS END OF TABLE      F4414690
       STA CLAFT+2                   RESTORE ADDRESS                    F4414700
       TRA DOCSFT                    ERROR EXIT                         F4414710
ERRFN  TSX RDFORT,4                  THE TAPE RECORD ENDS WITH A FORMULAF4414720
       CLA TNX                          NUMBER WITH NO FREQUENCIES      F4414730
       STA CLAFT+2                   RESTORE ADDRESS                    F4414740
ERRORF CLA ERRBX                                                        F4414750
SKIP4  TMI SKIP4+2                   HAVE 5 TRIES AT READING BEEN MADE  F4414760
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4414770
       ADD LA1                          NO, TRY READING AGAIN           F4414780
       STO ERRBX                                                        F4414790
       BST TBLTAP                                                       F4414800
       RDS TBLTAP                    SET TO READ FRET AGAIN.            F4414810
       TRA RDSFTP+2                  TRY AGAIN                          F4414820
ALDNE  IOD                                                              F4414830
       RTT                           TEST FOR TAPE ERROR                F4414840
       TRA ERRORF                    ERROR                              F4414850
       CLA ERAS2=                    CHECK FOR POSITIONING OF TAPE      F4414860
       SUB FRELAB                                                       F4414870
       TNZ BADPOS                                                       F4414880
       TXI CONTN,4,-1                                                   F4414890
CONTN  SXD DVFTST,1                  SAVE LENGTH OF DVFQ TABLE          F4414900
       SXD FRTBX=,4                  SAVE LENGTH OF FRET TABLE IN STOR. F4414910
       TXI CLA1,4,1                                                     F4414920
CLA1   CLA FRET.=,4                  TAKE TOTAL FREQ OF ENTRY (LAST WD) F4414930
       STO ERAS1=                    STORE AS DIVISOR                   F4414940
       CLA ENDMK=                    STORE HIGHEST NO AS TOTAL PROB.    F4414950
       STO FRET.=,4                                                     F4414960
       TXI CLAD,4,1                  INDEX PLACE IN FRET                F4414970
CLAD   CLA FRET.=,4                  LOOK AT NEXT WORD                  F4414980
       TMI NEWFM                     FORMULA NUMBER--END OF THIS ENTRY  F4414990
       LDQ L0...=                    ANOTHER CUMULATIVE FREQUENCY       F4415000
       DVP ERAS1=                    DIVIDE BY TOTAL FREQUENCY TO GET   F4415010
       DCT                             CUMULATIVE PROBABILITY           F4415020
       LDQ ENDMK=                                                       F4415030
       STQ FRET.=,4                                                     F4415040
       TXI CLAD,4,1                  LOOK AT NEXT WORD                  F4415050
NEWFM  TXI NEWFM+1,4,1               IS THIS END OF TABLE               F4415060
       TNX CLA1,4,XFRET=             NO--LOOK AT  NEXT ENTRY            F4415070
       REM                                                              F4415080
       REM THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS    F4415090
DONE   CLS FRTBX=                                                       F4415100
       ADD LXFRT=                                                       F4415110
       PDX 0,4                       PUT NO. OF WORDS IN FRET INTO INDEXF4415120
LZFRT= TNX LSTBLK,4,ZFRET=           IS THERE ONLY A PARTIAL BLOCK LEFT F4415130
       LXD LZFRT=,3                  NO, FULL BLOCK--SET INDEX REGS.    F4415140
       CLA LAZFT=                    GET LENGTH OF BLOCK                F4415150
ADM    ADM ACLA                      SET ADDRESSES FOR BLOCK            F4415160
       STA ACLA                                                         F4415170
       STA CPYFT                                                        F4415180
       WRS FRTDRM                    SELECT DRUM                        F4415190
       PXD 0,2                                                          F4415200
       STO ERAS2=                    STORE LENGTH OF BLOCK              F4415210
ACLA   ACL FRETN=,2                  FIND CHECKSUM                      F4415220
       TIX ACLA,2,1                                                     F4415230
       SLW ERAS1=                    STORE CHECKSUM                     F4415240
       LDA FRETY=                                                       F4415250
       CPY ERAS2=                    COPY NO OF WORDS IN BLOCK          F4415260
CPYFT  CPY FRETN=,1                  COPY BLOCK                         F4415270
       TIX CPYFT,1,1                                                    F4415280
       CPY ERAS1=                    COPY CHECK SUM                     F4415290
       TXH OUTA,4,XFRET=             IS THIS END OF TABLE               F4415300
       CLA FRETY=                    NO,SET DRUM ADDRESS FOR NEXT BLOCK F4415310
       ADD LAFT2=                                                       F4415320
       STA FRETY=                                                       F4415330
       TRA LZFRT=                    DO NEXT BLOCK                      F4415340
LSTBLK PXD 0,4                       ONLY A PARTIAL BLOCK LEFT          F4415350
       PDX 0,3                       LENGTH OF BLOCK INTO INDICES       F4415360
       ARS 18                                                           F4415370
       TXI ADM,4,XFRET=                                                 F4415380
EMPTY  WRS FRTDRM                                                       F4415390
       LDA FRETY=                                                       F4415400
OUTA   CPY L0...=                                                       F4415410
       REW INSTTP                    REWIND COMPILED INSTRUCTION TAPE   F4415420
       REM                                                              F4415430
       REM THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS   F4415440
SRTDO  LXD DOBOX=,1                  PUT TOTAL LNGTH OF DOLIST IN ERAS2=F4415450
       TXL CLTRA=-3,1,0              IF NO DOS, OMIT ROUTINES WITH DOS  F4415460
       SXD ERAS2=,1                                                     F4415470
CLADO  CLA DOLIST,1                  TAKE LAST ENTRY NOT ALREADY SORTED F4415480
       LDQ DOLIST+1,1                PUT ADDRESS IN AC, LOC IN MQ       F4415490
TXLDO  TXL STOREA,1,2                IS THERE ANOTHER ENTRY TO BE       F4415580
       REM                              COMPARED                        F4415510
       CAS DOLIST+2,1                YES, COMPARE ADDRESSES             F4415520
       TXI TXLDO,1,-2                STORED ADDRESS SMALLER, LOOK AT    F4415530
       REM                              NEXT WORD                       F4415540
       TRA COMPR                     ADDRESSES ARE EQUAL, COMPARE LOCATNF4415550
       STO ERAS1=                    STORED ADDRESS LARGER, EXCHANGE    F4415560
       CLA DOLIST+3,1                   ENTRIES                         F4415570
STQDO  STQ DOLIST+3,1                                                   F4415580
       LDQ ERAS1=                                                       F4415590
       STO ERAS1=                                                       F4415600
       CLA DOLIST+2,1                                                   F4415610
       STQ DOLIST+2,1                                                   F4415620
       LDQ ERAS1=                                                       F4415630
       TXI TXLDO,1,-2                                                   F4415640
COMPR  STO ERAS1=                    ADDRESSES EQUAL,COMPARE LOCATIONS  F4415650
       CLA DOLIST+3,1                                                   F4415660
       TLQ CLA2                      STORED LARGER,DO NOT EXCHANGE      F4415670
       TRA STQDO                     STORED LOC SMALLER, EXCHANGE       F4415680
CLA2   CLA ERAS1=                    RESTORE ACCUMULATOR                F4415690
       TXI TXLDO,1,-2                                                   F4415700
STOREA LXD ERAS2=,1                  NOW HAVE HIGHEST OF ENTRIES NOT    F4415710
       STO DOLIST,1                     PREVIOUSLY SORTED, STORE JUST   F4415720
       STQ DOLIST+1,1                   BEFORE THOSE ALREADY SORTED AND F4415730
SELF13 TXI SELF13+1,1,-2                SET INDEX TO AVOID THIS ENTRY ASF4415740
       SXD ERAS2=,1                     ALREADY SORTED, LOOK FOR HIGHESTF4415750
       TXH CLADO,1,2                    ENTRY OF THOSE NOT YET SORTED.  F4415760
       REM                           TABLE IS ENTIRELY SORTED NOW.      F4415770
       REM                                                              F4415780
       REM THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS IN THE DO LIST F4415790
       REM BY BASIC BLOCK NUMBERS                                       F4415800
       LXA L0...=,2                  INITIALIZE INDEX REGISTERS         F4415810
       CLA DOBOX=                    PUT NUMBER OF WORDS IN LIST INTO   F4415820
       STD TIXDO                        DECREMENT OF TIX FOR COMPARISON F4415830
       LXA LA1,1                                                        F4415840
TIXDO  TIX RDDOT,1                   HAVE ALL ENTRIES BEEN DONE         F4415850
       CLA DOLIST-1,1                ADD INST NO TO BE CHANGED (ADDR)   F4415860
LDQ    CAS BBLIST,2                  COMPARE TO INST NO OF BEG OF BB    F4415870
       TXI LDQ,2,1                   BEG BB LESS, TRY NEXT              F4415880
       TRA LDQ+4                     BEG. B.B. EQUAL,FOUND              F4415890
       TXI LDQ+4,2,-1                BEG B B GREATER, PREVIOUS BB IS IT F4415900
LOQP4  PXD 0,2                       PUT B B NO IN DECREMENT            F4415910
       STO DOLIST-1,1                REPLACE INSTR NO IN DO LIST        F4415920
       CLA DOLIST,1                  ADD INSTR NO OF LOC OF TXL         F4415930
       CAS BBLIST,2                  COMPARE TO BB OF ADDR FIRST        F4415940
SELF14 TXI SELF14-1,2,1              TOO SMALL--TRY NEXT                F4415950
SELF15 TRA SELF15+2                  EQUAL--FOUND                       F4415960
SELF16 TXI SELF16+1,2,-1             TOO LARGE, WAS ONE PREVIOUS        F4415970
CASP4  PXD 0,2                       PUT BB NO INTO DOLIST IN PLACE OF  F4415980
       STO DOLIST,1                    INSTRUCTION NUMBER               F4415990
       CLA DOLIST-1,1                PUT BB NO OF ADDRESS OF THIS DO    F4416000
       PDX 0,2                          INTO IR B TO START COMPARISON   F4416010
       TXI TIXDO,1,2                 DO NEXT ENTRY                      F4416020
       REM                                                              F4416030
       REM THIS ROUTINE READS DOCARE FROM DRUM 1                        F4416040
RDDOT  CLA MINUS4                    INITIALIZE ERROR BOX               F4416050
       STO ERRBX                                                        F4416060
RDSDOT RDS DOCRDR                    SELECT DOCARE DRUM                 F4416070
       LXA L0...=,1                  ZERO INTO I.R.A                    F4416080
       CPY ERAS1=                                                       F4416090
       LXA ERAS1=,4                                                     F4416100
       CPY ERAS2=                                                       F4416110
       TNX CLAE,4,2                  TEST FOR EMPTY TABLE               F4416120
CPYDOT CPY DOCARE,1                  COPY TABLE                         F4416130
SELF17 TXI SELF17+1,1,1                                                 F4416140
       CPY DOCARE+101,1              COPY CHECKSUMS                     F4416150
       TIX CPYDOT,4,2                TEST FOR END                       F4416160
       SXD ERAS3=,1                  SAVE INDEX                         F4416170
       LXD ERAS3=,2                                                     F4416180
       CAL ERAS1=                                                       F4416190
       ACL DOCARE+1,1                                                   F4416200
SELF18 TIX SELF18-1,1,1              SUM ENTRIES                        F4416210
       SLW ERAS1=                                                       F4416220
       CAL ERAS2=                                                       F4416230
ACLB   ACL DOCARE+101,2              SUM CHECKS                         F4416240
       TIX ACLB,2,1                                                     F4416250
       SLW ERAS2=                                                       F4416260
CHSMCR CLA ERAS2=                                                       F4416270
       SUB ERAS1=                                                       F4416280
       TZE RDDTG                     NO ERROR-DO NEXT PART OF PROGRAM   F4416290
       CLA ERRBX                                                        F4416300
SKIP5  TMI SKIP5+2                   HAVE 5 TRIES AT READING BEEN MADE  F4416310
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4416320
       ADD LA1                          NO, TRY READING AGAIN           F4416330
       STO ERRBX                                                        F4416340
       TRA RDSDOT                                                       F4416350
CLAE   STZ ERAS3=                    SET SIGNAL FOR EMPTY DOCARE        F4416360
       TRA CHSMCR                                                       F4416370
       REM                                                              F4416380
       REM THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES  F4416390
       REM IT                                                           F4416400
RDDTG  RDS TBLTAP                                                       F4416410
       RDS TBLTAP                                                       F4416420
       RDS TBLTAP                                                       F4416430
       CLA MINUS4                    INITIALIZE ERROR BOX               F4416440
       STO ERRBX                                                        F4416450
       LXD OPMSK=,1                  COMPLEMENT OF ONE INTO IR A        F4416460
RDSDTG RDS TBLTAP                                                       F4416470
CPY1D  CPY DOTAG,1                   COPY RECORD SAVING ONLY THOSE      F4416480
       TRA CPY2D                        PARTS TO BE USED                F4416490
       TRA NTRDO=                    END OF FILE--ALL COPIED            F4416500
       TRA TESTDT                    END OF RECORD--TEST FOR ERROR      F4416510
CPY2D  CPY ERAS1=                                                       F4416520
       CPY ERAS1=                                                       F4416530
       CPY ERAS1=                                                       F4416540
       CPY DOTAG+1,1                                                    F4416550
       CPY DOTAG+2,1                                                    F4416560
       CPY DOTAG+3,1                                                    F4416570
       CPY ERAS1=                                                       F4416580
       CPY ERAS1=                                                       F4416590
       TXI CPY1D,1,-4                SET FOR NEXT ENTRY                 F4416600
TESTDT RTT       4                   TEST REDUNDANCY                    F4416610
       TRA ERR2DT                                                       F4416620
       SXD DTGBX,1                   SAVE LENGTH OF TABLE SO FAR        F4416630
       TRA RDSDTG                    COPY NEXT RECORD                   F4416640
ERR2DT CLA ERRBX                                                        F4416650
SKIP6  TMI SKIP6+2                   HAVE 5 TRIES AT READING BEEN MADE  F4416660
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4416670
       ADD LA1                          NO, TRY READING AGAIN           F4416680
       STO ERRBX                                                        F4416690
       BST TBLTAP                                                       F4416700
       LXD DTGBX,1                   SET INDEX TO READ LAST RECORD AGAINF4416710
       TRA RDSDTG                                                       F4416720
       REM                                                              F4416730
       REM THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLISTF4416740
NTRDO= LXD OPMSK=,1                  C0MPLEMENT OF ONE INTO I R A       F4416750
       LXA LA1,2                     ONE INTO IR B                      F4416760
       LXA L0...=,4                  ZERO INTO INDEX C                  F4416770
       CLA DTGBX                                                        F4416780
       STD DTGBX2                    PUT LENGTH OF DOTAG IN FOR TEST    F4416790
       PXD                                                              F4416800
       STO ERAS1=                                                       F4416810
       STO ERAS2=                    CLEAR ERAS1= AND ERAS2=            F4416820
       TRA NXTDO+2                                                      F4416830
NXTDO  TXI NXTDO+1,2,2                                                  F4416840
       TXI DTGBX,1,-4                SET FOR NEXT ENTRY                 F4416850
DTGBX  TXL CLTRA=,1,-1               IS DOTAG FINISHED--IF SO EXIT      F4416860
CLADT  CLA DOTAG+3,1                 LOOK FOR INDICAT1ON OF AN IF       F4416870
       TPL STF+2                     TRANSFER IF DO HAS NO IF           F4416880
STF    CLA TAGMRK                    STORE IF INDICATION IN DOLIST      F4416890
       ORS DOLIST-1,2                                                   F4416900
       CLA DOTAG,1                                                      F4416910
       ANA TAGMRK                    LOOK FOR INDICATION OF VARIABLE    F4416920
       REM                              NO 0F TIMES IN LOOP             F4416930
       TNZ VRBLN                     VARIABLE,GET FROM DVFQ             F4416940
       CLA DOTAG+2,1                 GET (N2-N1+N3) AND PUT IN MQ       F4416950
       STA ERAS1=                                                       F4416960
       PXD                           CLEAR ACCUMULATOR                  F4416970
       LDQ ERAS1=                    DIVIDE (N2-N1+N3) BY N3 TO GET     F4416980
       DVP DOTAG+1,1                    NUMBER OF TIMES IN DO LOOP      F4416990
       DCT                                                              F4417000
       TSX RDFORT,4                  BAD DIVIDE                         F4417010
STQDTG STQ ERAS1=                                                       F4417020
       CLA ERAS1=                    SHIFT TO AC                        F4417030
       STA DOLIST,2                  TEST FOR END                       F4417040
NDDOT  LXD ERAS3=,4                                                     F4417050
       CLA DOTAG+4,1                 DOES NEXT ENTRY IN DOTAG CORRESPONDF4417060
DDCAS  CAS DOCARE+1,4                     TO A TXL                      F4417070
       TRA DDTIX                                                        F4417080
       TXI DTGBX2,1,-4               NO-SET FOR NEXT ENTRY AND SAME TXL F4417090
DDTIX  TIX DDCAS,4,1                                                    F4417100
       TRA NXTDO                     YES-LOOK AT NEXT TXL AND NEXT ENTRYF4417110
DTGBX2 TXL CLTRA=,1                  TEST FOR END                       F4417120
       CLA DOTAG,1                   DOES THIS ENTRY HAVE A VARIABLE NO.F4417130
       ANA TAGMRK                       OF TIMES IN LOOP                F4417140
       TNZ VBLN2                     YES,GET NO. FROM DVFQ              F4417150
       CLA DOTAG+2,1                 NO,GET N2-N1+N3                    F4417160
       STA ERAS2=                    AND PUT IN MQ                      F4417170
       PXD 0,0                       CLEAR AC                           F4417180
       LDQ ERAS2=                    DIV N2-N1+N3 BY N3 TO GET NO. OF   F4417190
       DVP DOTAG+1,1                    TIMES IN THIS DO                F4417200
       DCT                                                              F4417210
       TSX RDFORT,4                  BAD DIVIDE                         F4417220
MPY    MPY ERAS1=                                                       F4417230
       TRA STQDTG                                                       F4417240
VBLN2  CLA LMPY                      SET EXIT ADDRESS                   F4417250
       TRA VRBLN+1                                                      F4417260
VRBLN  CLA LSTQ                      SET EXIT ADDRESS                   F4417270
       STA EXIT                                                         F4417280
       CLA DOTAG,1                   GET FORMULA NUMBER OF DO           F4417290
       ARS 18                                                           F4417300
       SSM                                                              F4417310
       LXD DVFQB=,4                                                     F4417320
DVFTST TXH LDQ5,4                    TEST FOR END OF DVFQ               F4417330
       CAS DVFQ.=,4                  COMPARE TO FORMULA NO. IN DVFQ     F4417340
       TXI DVFTST,4,2                DVFQ TOO SMALL, TRY NEXT           F4417350
       TXI ENTER,4,2                 EQUAL--SET INDEX FOR NEXT SEARCH   F4417360
LDQ5   LDQ L5...=                    FREQ NOT IN DVFQ, TAKE 5 AS FREQ   F4417370
       TRA ENTER+1                                                      F4417380
ENTER  LDQ DVFQ.=+1,4                                                   F4417390
       SXD DVFQB=,4                                                     F4417400
EXIT   TRA                           RETURN TO MAIN PART OF THIS ROUTINEF4417410
       LXD LD4..=,4                  READ DOTAG                         F4417420
RDSP   RDS TBLTAP                    FIND BEGINNING OF DOTAG            F4417430
       TIX RDSP,4,1                                                     F4417440
       REM                                                              F4417450
       REM THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL       F4417460
       REM COUNTERS TO ZERO                                             F4417470
CLTRA= LDQ LA1                                                          F4417480
       PXD 0,0                                                          F4417490
       STO NLIST-1                   STORE ENDMARK FOR N-LIST           F4417500
       LXA LZTR4=,1                                                     F4417510
       STO TRAM+1,1                                                     F4417520
       STQ TRAM,1                                                       F4417530
SELF26 TIX SELF26-2,1,2                                                 F4417540
       LXD DOBOX=,1                                                     F4417550
       CLA OPMSK=                                                       F4417560
       STO DOLIST-1,1                STORE ENDMARK FOR DOLIST           F4417570
       RDS SYSTAP                                                       F4417580
       STZ NLIST                     CLEAR DUMMY SENSE LIGHTS.          F4417590
       STZ NLIST+1                                                      F4417600
       STZ NLIST+2                                                      F4417610
       STZ NLIST+3                                                      F4417620
       TRA RDFORT                                                       F4417630
       REM                                                              F4417640
       REM                                                              F4417650
       REM SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2)                    F4420010
       REM                                                              F4420020
       REM FORTRAN EDITOR INFORMATION                                   F4420030
       REM    MASTER RECORD CARD = F0640000                             F4420040
       REM    ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER -    F4420050
       REM                    1 TO CS - IN ORDER TO READ IN NEXT RECORD)F4420060
       REM    FIRST LOCATION = 33                                       F4420070
       REM    LAST LOCATION = 1104                                      F4420080
       REM                                                              F4420090
       ORG 27                                                           F4420100
       REM CONSTANTS AND VARIABLES                                      F4420110
L0M    HTR 0                                                            F4420120
L6M    HTR 6                                                            F4420130
LD1M   HTR 0,0,1                                                        F4420140
LD3    HTR 0,0,3                                                        F4420150
LD7M   HTR 0,0,7                                                        F4420160
SETYM      SETADD                    DRUM ADDRESS FOR SET TABLE         F4420170
TIFY       TIFADD                    DRUM ADDRESS FOR TIFRD             F4420180
LZSET1     ZSET+1                                                       F4420190
LZTIF2     ZTIFRD+2                                                     F4420200
LXTRA      0,0,XTRA                                                     F4420210
LZTRA      0,0,ZTRA                                                     F4420220
LXSET      0,0,XSET                                                     F4420230
LZSET      0,0,ZSET                                                     F4420240
LNLST      0,0,-NLIST                ADDRESS OF N                       F4420250
LDSAN      0,0,-NLIST-4              ADDRESS OF SENSE LIGHT             F4420260
LFXDN      RDTIF-1                   LAST LOCATION IN FIXDO LIST        F4420270
LCOUT  TRA OUTB                      TRANSFER TO EXIT ROUTINE           F4420280
TRNOM  TRA NOMOR                                                        F4420290
CNST2M TIX C3CLA,4,0                 TO TEXT FOR END OF LOOKUP          F4420300
CONSTM OCT 2000000000                                                   F4420310
ADRMK  OCT 77777                                                        F4420320
DECMKM OCT 77777000000                                                  F4420330
PFXMKM OCT -300000000000                                                F4420340
IFMSK  OCT 700000                                                       F4420350
XXPSX  OCT 770000000                                                    F4420360
XX14X  OCT 140000000                                                    F4420370
XX16X  OCT 160000000                                                    F4420380
XX360  OCT 360000000                                                    F4420390
FSTLT  OCT -370000000000                                                F4420400
FSTT   OCT -230000000000                                                F4420410
0CTALM OCT 170000000000                                                 F4420420
ENDMKM OCT 377777777777                                                 F4420430
GTNCD  OCT -100000000000                                                F4420440
CRTCD  OCT 300000000000                                                 F4420450
LPSE   OCT 76225000000                                                  F4420460
LTPL   OCT 34743000000                                                  F4420470
LTRA   OCT 35121000000               TRA                                F4420480
       OCT 1622000000                TXL-TRA                            F4420490
LTROP  OCT -372000000                TTR-TXL                            F4420500
       OCT 35121000000               TRA                                F4420510
       OCT 41104000000               PSE-TRA                            F4420520
       OCT -33642000000              DCT-PSE                            F4420530
       OCT -24000000000              RTT-DCT                            F4420540
       OCT 27642000000               MSE-RTT                            F4420550
       OCT -7100000000               TZE-MSE                            F4420560
       OCT -32154000000              HPR-TZE                            F4420570
LNTOP  OCT 31316000000               TSX-HPR                            F4420580
SBOX   OCT 1000000                                                      F4420590
SPBOX  OCT -1000000                                                     F4420600
TBOX   OCT 1000000                                                      F4420610
TPBOX  OCT -1000000                                                     F4420620
PBOX       0,0,ZTIFRD+2                                                 F4420630
BBOX                                                                    F4420640
MBOX       0                                                            F4420650
ACBOX      0                                                            F4420660
OUTBX      0                                                            F4420670
ENTBX      0                                                            F4420680
XBOX                                 SAVE POWER OF 2                    F4420690
ERAS1M     0                                                            F4420700
ERAS2M     0                                                            F4420710
ERAS3M                                                                  F4420720
       REM                                                              F4420730
       REM THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED          F4420740
       REM INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND    F4420750
       REM TIFRD.  IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN F4420760
       REM THE SIMULATION PROGRAM.                                      F4420770
BEGBB  TXI BEGBB+1,2,1               SET FOR NEXT BASIC BLOCK           F4420780
       CLA SBOX                                                         F4420790
       ADD SPBOX                                                        F4420800
       ARS 18                        PUT SET TABLE ADDRESS INTO BB TABLEF4420810
       ADD TBOX                                                         F4420820
       ADD TPBOX                                                        F4420830
       STO BBTABL,2                  PUT TRA TABLE ADDRESS INTO BB TABLEF4420840
       LXD TBOX,4                                                       F4420850
       TNX FNDAS,4,ZTRA              IS BLOCK OF TRA TABLE FULL         F4420860
       SXD TBOX,4                    SAVE NEW INDEX FOR TRA             F4420870
       TSX WRTRA,4                   WRITE TRA BLOCK ON DRUM            F4420880
FNDAS  TNX 2FNDS,1,ZINSTM            IS BLOCK OF INSTRUCTIONS ALL USED  F4420890
       TSX RDINSM,4                  YES, READ IN NEXT BLOCK            F4420900
2FNDS  CLA INSTM,1                   IF THERE IS NO LOCATI0N SYMBOL,    F4420910
       TZE TR3S+1                       THIS CANT BE A SET OR AN ENDING F4420920
       REM                              OTHER THAN A CERTAINTY CASE     F4420930
       LXD PBOX,4                    CHANGE, LOOK AT ASSIGN ENTRY       F4420940
2TNX   TNX BADD,4,ZTIFRD             IS BLOCK OF TIFRD ALL USED         F4420950
       SXD PBOX,4                    YES, READ IN MORE                  F4420960
       TSX RDTIF,4                                                      F4420970
       LXD PBOX,4                                                       F4420980
       CLA INST.M,1                  COMPARE FORMULA NO. TO ASSIGN      F4420990
BADD   ADD L6M                          LIST.                           F4421000
       SUB TIFRDM,4                                                     F4421010
       TZE ASNCS                                                        F4421020
2CLA   CLA INSTM-1,1                 NOT AN ASSIGN                      F4421030
       ANA DECMKM                    TEST FOR A SET SENSE LIGHT         F4421040
       SUB LPSE                                                         F4421050
       TNZ TSTTR                     NOT A PSE, LOOK FOR A TRANSFER     F4421060
       CLA INST.M-3,1                LOOK AT ADDRESS OF PSE FOR SET     F4421070
       ANA XXPSX                                                        F4421080
       SUB XX14X                                                        F4421090
       TZE STSLT                     IT IS A SET SENSE LIGHT            F4421100
       CLA INSTM-4,1                 NOT A SET SENSE LIGHT, SEE IF NEXT F4421110
       SUB BBLIST-1,2                   INSTRUCTION STARTS A BB         F4421120
       TZE CRTCS                     YES, IS A CERTAINTY CASE           F4421130
       TRA IF2PS                     NO, IS A PSE CASE.                 F4421140
STSLT  LXD SBOX,4                    LOAD INDEX FOR SET TABLE           F4421150
       TNX 3CLA,4,ZSET               IF SET BLOCK IS FULL, PUT ON DRUM  F4421160
       SXD SBOX,4                    SAVE INDEX                         F4421170
       TSX WRSET,4                   GO TO DRUM ROUTINE                 F4421180
       LXD SBOX,4                    RESTORE INDEX                      F4421190
3CLA   CLA INSTM-3,1                 LOOK AT RELATIVE ADDRESS OF PSE    F4421200
       ANA LD7M                      FIND NO OF SENSE LIGHT             F4421210
       TZE SLSOF                     IF ZERO TURN ALL LIGHTS OFF        F4421220
       ADD LDSAN                     NOT ZERO, ADD ADDRESS OF FIRST     F4421230
       ADD LA1                       ADD ONE FOR SENSE LIGHT ON         F4421240
       STO SET..M,4                  STORE SET ENTRY                    F4421250
       TXI TR3S,4,1                  INDEX FOR NEXT SET ENTRY           F4421260
SLSOF  SXD BBOX,2                    SAVE INDEX B                       F4421270
       LXD LD4,2                                                        F4421280
       CLA LDSAN                     PUT ENTRIES IN SET TABLE TO TURN   F4421290
3ADD   ADD LD1M                         OFF ALL SENSE LIGHTS            F4421300
       TNX 4STO,4,ZSET               IS BLOCK OF SETS FULL              F4421310
       SXD SBOX,4                    YES, SAVE INDEX C                  F4421320
       TSX WRSET,4                   WRITE BLOCK ON DRUM                F4421330
       LXD SBOX,4                    RESTORE INDEX C                    F4421340
4STO   STO SETM,4                                                       F4421350
       TXI 3TIX,4,1                  SET FOR NEXT ENTRY IN TABLE        F4421360
3TIX   TIX 3ADD,2,1                  ARE ALL SETS DONE                  F4421370
       LXD BBOX,2                    YES, RESTORE INDEX B               F4421380
TR3S   SXD SBOX,4                    STORE SET TABLE INDEX              F4421390
       CLA INST.M-4,1                TEST THIS FOR END OF A BASIC BLOCK F4421400
       SUB BBLIST-1,2                (CANT BE A TRANSFER, SKIP, ETC.)   F4421410
       TZE CRTCS                     END OF BB MUST BE A CERTAINTY CASE F4421420
TXFAS  TXI FNDAS,1,4                 NOT END OF BB, LOOK AT NEXT INSTR. F4421430
ASNCS  SXD PBOX,4                    SAVE INDEX FOR TIFRD               F4421440
       CLA INST.M-6,1                PUT ADDRESS (=N) OF STA INTO AC    F4421450
       TSX SRCHN,4                   SEARCH N-LIST FOR N                F4421460
       ADD LNLST                     PUT INDEX FOR N IN SET TABLE       F4421470
       LXD SBOX,4                    PUT SET TABLE ADDRESS INTO INDEX   F4421480
       TNX 4STD,4,ZSET               IS SET BLOCK FULL                  F4421490
       SXD SBOX,4                    YES,SAVE INDEX                     F4421500
       TSX WRSET,4                   PUT BLOCK ON DRUM                  F4421510
       LXD SBOX,4                    RESTORE INDEX                      F4421520
4STD   STO SETM,4                    STORE ADDRESS OF N BEING SET       F4421530
       SXD SBOX,4                    SAVE INDEX                         F4421540
       LXD PBOX,4                    SET FOR TIFRD                      F4421550
       CLA TIFRDM-1,4                GET VALUE TO ASSIGN TO N FROM TIFRDF4421560
       ALS 18                                                           F4421570
LD2    TXI LD2+1,4,2                 SET INDEX FOR NEXT ENTRY IN TIFRD  F4421580
       SXD PBOX,4                    SAVE TIFRD INDEX                   F4421590
       TSX FNDBB,4                   CHANGE VALUE FOR N TO BASIC BLOCK  F4421600
       LXD SBOX,4                       NUMBER, PUT SET ADDRESS IN INDEXF4421610
       ARS 18                           AND PUT VALUE N IS TO BE GIVEN  F4421620
       STA SET..M,4                     INTO TABLE ENTRY                F4421630
       TXI 4TXII,4,1                 SET INDEX FOR NEXT ENTRY IN TABLE  F4421640
4TXII  TXI TR3S,1,4                  SINCE THIS INSTRUCTION IS A CLA ANDF4421650
       REM                             IS FOLL0WED BY A STA, IT CANNOT  F4421660
       REM                             BE THE END OF A BASIC BLOCK.     F4421670
       REM                             ALSO THE STA CANNOT BE AN        F4421680
       REM                             ASSIGN, PSE, TRANSFER, OR SKIP.  F4421690
       REM                             IT CAN ONLY BE A CERTAINTY CASE  F4421700
       REM                             OR INNOCUOUS.                    F4421710
TSTTR  CLA INSTM-4,1                 IS THIS LAST INSTRUCTION IN A BB   F4421720
       SUB BBLIST-1,2                                                   F4421730
       TZE ENDBB                     YES,LOOK FOR TYPE OF ENDING        F4421740
       LXD LD8,4                     NO, CHECK FOR ENDING OF GROUP OF   F4421750
       CAL INST.M-1,1                   INSTRUCTIONS                    F4421760
       ANA DECMKM                    LOOK AT OP CODE                    F4421770
SUBP   SUB LNTOP+1,4                 COMPARE TO OP CODES OF POSSIBLE    F4421780
       TZE TRTIN+1,4                    ENDINGS--TRANSFER WHEN FOUND    F4421790
       TIX SUBP,4,1                  TRY NEXT POSSIBILITY               F4421800
       CAL INST.M-1,1                NOT FOUND--LOOK FOR A CONDITIONAL  F4421810
6ANA   ANA FSTLT                        TRANSFER                        F4421820
       SLW ERAS1M                                                       F4421830
       CLA ERAS1M                                                       F4421840
       SUB FSTT                                                         F4421850
       TZE CNDTR                     IS A CONDITIONAL TRANSFER          F4421860
LD4    TXI FNDAS,1,4                 NOT AN END OF BB, LOOK AT NEXT INSTF4421870
       TRA GOTOVM                    TRA IS THE OPERATI0N CODE          F4421880
       TRA IF2PS                     PSE                                F4421690
       TRA IF2CS                     DCT                                F4421900
       TRA IF2CS                     RTT                                F4421910
       TRA MSECSM                    MSE                                F4421920
       TRA IF3CSM                    TZE                                F4421930
       TRA HPRCS                     HPR                                F4421940
TRTIN  TXI FNDAS,1,4                 TSX IS OP CODE                     F4421950
       TRA TRACSM                    TRA IS THE OPERATION CODE          F4421960
       TRA DOCSM                     TXL                                F4421970
TRTTR  TRA TRACSM+3                  TTR                                F4421980
ENDBB  LXD LD3,4                     SET INDEX                          F4421990
       CLA INST.M-1,1                THIS INST ENDS A BASIC BLOCK--LOOK F4422000
       ANA DECMKM                       AT OP CODE FOR TYPE OF ENDING   F4422010
6SUB   SUB LTROP+1,4                 C0MPARE TO POSSIBLE OP CODE        F4422020
       TZE TRTTR+1,4                 TRANSFER IF FOUND                  F4422030
       TIX 6SUB,4,1                  TRY NEXT POSSIBILITY               F4422040
CRTCS  TSX ENTB2,4                   NOT A CONDITIONAL TRANSFER--IT IS  F4422050
       REM                              A CERTAINTY CASE DUE TO AN ENTRYF4422060
6CLA   CAL CRTCD                     PUT CERTAINTY CODE IN BB TABLE     F4422070
       STP BBTABL,2                                                     F4422080
       TXI BEGBB,1,4                 LOOK AT NEXT INSTR--BEG OF A BB.   F4422090
TRACSM CAL INSTM-2,1                 OP CODE IS TRA--SEE IF ADDRESS IS  F4422100
       ANA PFXMKM                       IN PROGRAM(UNCONDITIONAL TRA) ORF4422110
       TNZ GOTONM                       IN N LIST (GO TO N)             F4422120
       CLA INST.M-2,1                GET INSTR OF ADDRESS               F4422130
       TSX ENTRB,4                   ENTER IN TRA TABLE                 F4422140
       CAL CRTCD                     STORE CERTAINTY CODE IN BB TABLE   F4422150
       STP BBTABL,2                                                     F4422160
       TXI BEGBB,1,4                 LOOK AT NEXT INST.--NEW B.B.       F4422170
GOTONM CAL GTNCD                     IS A GO TO N                       F4422180
       STP BBTABL,2                  STORE GO TO N CODE IN BB TABLE     F4422190
       CLA INST.M-2,1                PUT N INTO AC                      F4422200
       TSX SRCHN,4                   FIND LOCATION 0F N IN N-LIST       F4422210
       LXD TBOX,4                                                       F4422220
       STD TRA..M,4                  PUT N-LIST ADDRESS IN TRA TABLE    F4422230
       LXD PBOX,4                    PUT TIFRD ADDRESS INTO INDEX       F4422240
7TNX   TNX BCLA,4,ZTIFRD             IS TIFRD BLOCK USED                F4422250
       SXD PBOX,4                    YES, SAVE INDEX                    F4422260
       TSX RDTIF,4                   READ IN NEXT BLOCK 0F TIFRD        F4422270
       LXD PBOX,4                    RESTORE INDEX                      F4422280
BCLA   CLA INSTM,1                   COMPARE FORMULA NUMBER OF INSTR. TOF4422290
       ANA DECMKM                       THAT OF NEXT ENTRY IN TIFRD     F4422300
       ADD LA1                                                          F4422310
       SUB TIFRDM,4                                                     F4422320
8ATZE  TZE 8TXI                      ENTRY FOUND                        F4422330
       TSX RDFORT,4                  NO ENTRY FOUND IN TIFRD FOR GO TO NF4422340
8TXI   TXI 8TXI+1,4,2                SET FOR N-WORDS IN TIFRD           F4422350
8TNX   TNX 8CLA,4,ZTIFRD             SEE IF TIFRD BLOCK IS ALL USED     F4422360
       SXD PBOX,4                    YES SAVE INDEX                     F4422370
       TSX RDTIF,4                   READ IN NEXT BLOCK                 F4422380
       LXD PBOX,4                    RESTORE INDEX                      F4422390
8CLA   CLA TIFRDM,4                  GET NEXT VALUE ON N FROM TIFRD     F4422400
       TPL 8ATRB                     PLUS INDICATES NO MORE VALUES FOR NF4422410
       SSP                           ELIMINATE MINUS SIGN               F4422420
       SXD PBOX,4                    SAVE TIFRD INDEX                   F4422430
       LXD TBOX,4                    GET TRA TABLE INDEX                F4422440
       TNX 8ATSX,4,ZTRA              IS BLOCK OF TRA TABLE FULL         F4422450
       SXD TBOX,4                    YES SAVE INDEX                     F4422460
       TSX WRTRA,4                   WRITE BLOCK ON DRUM                F4422470
8ATSX  TSX ENTRB,4                   ENTER TRANSFER IN TRA TABLE        F4422480
       LXD PBOX,4                    RESTORE INDEX FOR TIFRD            F4422490
       TXI 8TXI+1,4,1                SET FOR NEXT WORD                  F4422500
8ATRB  SXD PBOX,4                    SAVE TIFRD INDEX                   F4422510
       TXI BEGBB,1,4                 SET FOR NEXT INSTR AND NEXT BB.    F4422520
DOCSM  CLA INSTM-2,1                 THIS IS A DO CASE                  F4422530
       TSX ENTRB,4                   ENTER ADDRESS OF TRA BACK          F4422540
       TSX ENTB2,4                   ENTER TRA TO NEXT INSTR            F4422550
       SXD BBOX,2                    SAVE INDEX                         F4422560
       LXD LD1M,2                    LOOK AT DOLIST ENTRY FOR           F4422570
       LXD TBOX,4                       THIS DO                         F4422580
9CLAT  CLA DOLIST,2                  COMPARE LOCATION IN DO LIST TO     F4422590
       ANA DECMKM                       THIS BASIC BLOCK                F4422600
       SUB BBOX                                                         F4422610
       TZE CLAR                                                         F4422620
       TXI 9CLAT,2,2                 NOT FOUND--TRY NEXT                F4422630
CLAR   CLA DOLIST-1,2                LOOK AT ADDRESS WORD IN DO LIST    F4422640
       ANA IFMSK                     SEE IF DO HAS AN IF                F4422650
       TZE DONOIF                    NO IF--TRANSFER                    F4422660
       CLA DOLIST,2                  DO WITH IF-PUT LOOP COUNT IN       F4422670
       ALS 18                           TRANSFER TABLE                  F4422680
DWFCD  STD TRAM+4,4                                                     F4422690
       CAL DWFCD                     GET CODE FOR DO WITH IF            F4422700
DOLXD  LXD BBOX,2                    RESTORE INDEX FOR BB TABLE         F4422710
       STP BBTABL,2                  STORE CODE FOR ENDING IN BB TABLE  F4422720
       TXI BEGBB,1,4                 DO NEXT INSTR.--NEXT BASIC BLOCK   F4422730
DONOIF CAL DONOIF                    GET CODE FOR DO WITHOUT IF         F4422740
       TRA DOLXD                     STORE CODE IN B B TABLE            F4422750
CNDTR  CLA INSTM-2,1                 THE OP CODE IS A CONDITIONAL TRA   F4422760
       SUB 0CTALM                       SEE IF THIS IS A REAL TRANSFER  F4422770
       TZE TXFAS                     NO-- IT IS NOT ANYTHING            F4422780
       CLA INST.M,1                                                     F4422790
       SUB INST.M-2,1                                                   F4422800
       TZE TXFAS                                                        F4422810
       CLA INST.M-2,1                PUT ADDRESS OF TRA IN TRA TABLE    F4422820
       TSX ENTRB,4                                                      F4422830
       CLA INST.M-6,1                PUT NEXT TRA ADDRESS IN TRA TABLE  F4422840
       TSX ENTRB,4                                                      F4422850
       CLA INST.M,1                                                     F4422860
11LXD  LXD TBOX,4                                                       F4422870
       STD TRA..M+4,4                                                   F4422880
11CAL  CAL PBYCDM                    PUT PROBABILITY CODE IN BB TABLE   F4422690
       STP BBTABL,2                                                     F4422900
       CLA LD2                       PUT NO. OF CASES (=2) IN TRA TABLE F4422910
       STD TRA..M+2,4                                                   F4422920
       SXD TBOX,4                    SAVE TRA INDEX                     F4422930
       TXI BEGBB,1,8                 DO NEXT INSTRUCTION                F4422940
GOTOVM CLA INSTM-3,1                 THIS IS A GO TO VECTOR             F4422950
       PDX 0,4                                                          F4422960
       TIX OK,4,1                    CHECK NO. OF BRANCHES              F4422970
       TSX RDFORT,4                  NONE, PART OF PROGRAM NOT          F4422980
       REM                             TRANSFERED TO                    F4422990
OK     TXH ONEVCT+1,4,1              TEST FOR ONLY 0OE BRANCH           F4423000
ONEVCT TXI TRACSM+3,1,4              ONLY ONE BRANCH--A CERTAINTY CASE  F4423010
       PXD 0,4                       MORE THAN ONE--STANDARD CASE       F4423020
       LXD TBOX,4                    SET INDEX FOR TRA TABLE ADDRESS    F4423030
       STD TRA..M-2,4                PUT NO. INTO TRA TABLE             F4423040
       STD MBOX                      SAVE NO. TO TEST IF VECTOR IS DONE F4423050
       CAL PBYCDM                                                       F4423060
       STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423070
       CLA INST.M,1                                                     F4423080
       STD TRA..M,4                  PUT FORMULA NUMBER INT0 TRA TABLE  F4423090
13TIX  TNX 13CLA,1,ZINSTM            IS BLOCK OF INSTRUCTIONS ALL USED  F4423100
       TSX RDINSM,4                  READ IN NEXT BLOCK                 F4423110
13CLA  CLA INSTM-6,1                 ENTER ADDRESS OF ONE TRANSFER      F4423120
       TSX ENTRB,4                        INTO TRA TABLE.               F4423130
       LXD MBOX,4                    HAVE ALL BRANCHES OF VECTOR BEEN   F4423140
PBYCDM TIX 13SXD,4,1                    ENTERED                         F4423150
13ON   TXI BEGBB,1,8                 YES, GO TO NEXT BB--NEXT INST.     F4423160
13SXD  SXD MBOX,4                    NO,SAVE COUNT AND ENTER NEXT       F4423170
       LXD TBOX,4                    PUT TRA TABLE ADDRESS IN INDEX     F4423180
STPCD  TNX 13TXIM,4,ZTRA             HAS THIS BLOCK OF TRA BEEN FILLED  F4423190
       SXD TBOX,4                    YES,SAVE TRA INDEX                 F4423200
       TSX WRTRA,4                   WRITE BLOCK OF TRA ON DRUM         F4423210
13TXIM TXI 13TIX,1,4                 SET INST. INDEX AND DO NEXT BRANCH F4423220
IF2PS  CLA INSTM-3,1                 THIS IS A PSE, LOOK AT ADDRESS TO  F4423230
       ANA XXPSX                        SEE IF IT IS 164-166            F4423240
       SUB XX16X                                                        F4423250
       TZE PSTCS                     YES, IT IS A TEST                  F4423260
       CLA INST.M-3,1                                                   F4423270
       ANA DECMKM                    NO, SEE IF ADDR IS 360             F4423280
       SUB XX360                                                        F4423290
       TNZ TXFAS                     NO,THIS IS NOT A BB END            F4423300
PSTCS  CAL PBYCDM                    THIS IS A PSE TEST INSTRUCTION     F4423310
       STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423320
       LXD TBOX,4                    SET INDEX FOR TRA TABLE ADDRESS    F4423330
       CLA INST.M,1                  PUT FORMULA NUMBER IN TRA TABLE    F4423340
       STD TRA..M,4                                                     F4423350
       CLA LD2                       PUT NO. OF CASES(=2) IN TRA TABLE  F4423360
       STD TRA..M-2,4                                                   F4423370
SNSCS  CLA INSTM-10,1                PUT ADDRESS FOR ON INTO TRA TABLE  F4423380
       TSX ENTRB,4                                                      F4423390
       CLA INST.M-6,1                PUT OFF ADDRESS INTO TRA TABLE     F4423400
       TSX ENTRB,4                                                      F4423410
MSECD  TXI BEGBB,1,12                DO NEXT BB.                        F4423420
MSECSM CAL MSECD                     THIS IS A MSE TEST                 F4423430
       STP BBTABL,2                  STORE MSE CODE IN BBTABL           F4423440
       CLA INST.M-3,1                LOOK AT ADDRESS OF MSE             F4423450
       LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423460
       STD TRA..M,4                  PUT NO. OF SENSE LIGHT IN TRA TABLEF4423470
       TRA SNSCS                     PUT ADDRESSES IN TRA TABLE         F4423480
IF2CS  CAL PBYCDM                    THIS IS A TWO-WAY TEST INSTRUCTION F4423490
       STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423500
       LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423510
       CLA INST.M,1                  PUT FORMULA NUMBER IN TRA TABLE    F4423520
       STD TRA..M,4                                                     F4423530
       CLA LD2                       PUT NO OF CASES (=2) IN TRA TABLE  F4423540
       STD TRA..M-2,4                                                   F4423550
       CLA INST.M-6,1                PUT ADDRESSES IN TRA TABLE         F4423560
       TSX ENTRB,4                   =ON- ADDRESS                       F4423570
       CLA INST.M-10,1               -OFF - ADDRESS                     F4423580
       TSX ENTRB,4                                                      F4423590
LD12M  TXI BEGBB,1,12                DO NEXT BB                         F4423600
IF3CSM CLA INST.M-5,1                THIS IS A TZE, NOT END OF A BB.    F4423610
       ANA DECMKM                    CHECK TO SEE IF IT IS FOLLOWED BY AF4423620
       SUB LTPL                         TPL AND A TRA, IF NOT THERE HAS F4423630
       TZE 16CLA                        BEEN AN ERROR                   F4423640
IFTSX  TSX RDFORT,4                  ERROR                              F4423650
16CLA  CLA INSTM-9,1                 CHECK FOR TRA                      F4423660
       ANA DECMKM                                                       F4423670
       SUB LTRA                                                         F4423680
       TNZ IFTSX                     ERROR                              F4423690
16CAL  CAL PBYCDM                    NO ERROR                           F4423700
       STP BBTABL,2                  PUT PROBABILITY CODE IN BB TABLE   F4423710
       LXD TBOX,4                    SET INDEX FOR TRA TABLE            F4423720
       CLA INST.M,1                  PUT FORMULA NO. IN TRA TABLE       F4423730
       STD TRA..M,4                                                     F4423740
       CLA LD3                       PUT N0. OF CASES (=3) IN TRA TABLE F4423750
       STD TRA..M-2,4                                                   F4423760
       CLA INST.M-6,1                PUT ADDRESSES OF BRANCHES INTO     F4423770
       TSX ENTRB,4                      TRA TABLE                       F4423780
       CLA INST.M-2,1                                                   F4423790
       TSX ENTRB,4                                                      F4423800
       CLA INST.M-10,1                                                  F4423810
       TSX ENTRB,4                                                      F4423820
       TXI BEGBB,1,12                DO NEXT BB.                        F4423830
HPRCS  CAL INSTM-5,1                 TEST FOR PAUSE(INNOCUOUS) OR A STOPF4423840
       ANA DECMKM                                                       F4423850
       SUB LTRA                      IS HPR FOLLOWED BY TRA             F4423860
       TNZ LD4                       NO-IGNORE-- IS A PAUSE             F4423870
       CLA INST.M-6,1                DOES TRA GO BACK TO HPR            F4423880
       SUB INST.M,1                                                     F4423890
       TNZ LD4                       NO-- HPR IS A PAUSE--IGNORE        F4423900
       CAL STPCD                     THIS IS A STOP--PUT STOP CODE IN   F4423910
       STP BBTABL,2                     BB TABLE AND NO ENTRY IN TRATBL F4423920
LD8    TXI BEGBB,1,8                 DO NEXT BASIC BLOCK                F4423930
OUTB   SXD BBOX,2                    SAVE LENGTH OF BB TABLE            F4423940
       CLS C5STD                     GET ADDRESS IN FXDO LIST           F44.3950
       SUB LA1                                                          F4423960
       STA STOREB                                                       F4423970
STOREB STO XXXXXX                                                       F4423980
       CLA BBTABL,2                  LOOK AT LAST ENTRY IN BB TABLE     F4423990
       STD TTBOX=                    PUT LENGTH OF TRA TABLE IN TTBOX   F4424000
       ALS 18                                                           F4424010
       STD SSBOX=                    PUT LENGTH OF SET TABLE IN SS BOX  F4424020
       PXD 0,0                                                          F4424030
       STO BBTABL-1,2                                                   F4424040
       TSX WRTRA,4                   WRITE LAST BLOCK OF TRAS ON DRUM   F4424050
       TSX WRSET,4                   WRITE LAST BLOCK OF SETS ON DRUM   F4424060
       RDS SYSTAP                                                       F4424070
       TRA RDFORT                    DO NEXT BLOCK OF PROGRAM           F4424080
       REM                                                              F4424090
       REM THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS F4424100
       REM IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION  F4424110
       REM FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF   F4424120
       REM THE ACCUMULATOR                                              F4424130
SRCHN  SXD ERAS1M,4                  SAVE INDEX TO RETURN               F4424140
       LXD LD1M,4                    SET INDEX                          F4424150
       STO ACBOX                     SAVE AC                            F4424160
CLANN  CLA NLIST,4                   LOOK AT ENTRY IN N-LIST            F4424170
       TZE ENTRN                     END OF LIST REACHED, N NOT FOUND   F4424180
       SUB ACBOX                     COMPARE TO N TO BE FOUND           F4424190
       TZE NFOUN                     N HAS BEEN FOUND                   F4424200
       TXI CLANN,4,1                 NOT FOUND YET, TRY NEXT ENTRY      F4424210
ENTRN  TNX C1CLA,4,ZNLIST            TEST FOR OVERFLOW OF N-LIST        F4424220
       TSX RDFORT,4                  N-LIST HAS OVERFLOWED              F4424230
C1CLA  CLA ACBOX                     STORE N IN N-LIST                  F4424240
       STO NLIST,4                                                      F4424250
       PXD                           STORE ZERO IN LOCATION AFTER LAST  F4424260
       STO NLIST-1,4                    ENTRY IN N-LIST                 F4424270
NFOUN  PXD 0,4                       PUT INDEX FOR N INTO AC            F4424280
       LXD ERAS1M,4                  RESTORE INDEX FOR TRA BACK         F4424290
       TRA 1,4                       TRANSFER BACK                      F4424300
       REM                                                              F4424310
       REM THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE    F4424320
       REM ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS   F4424330
       REM THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A    F4424340
       REM TRANSFER TO THE BEGINNING OF A 0O WITH AN IF.  IT RETURNS TO F4424350
       REM THE LOCATION FOLLOWING THE TSX TO IT.                        F4424360
ENTRB  SXD ENTBX,4                   SAVE INDEX                         F4424370
       TSX FNDBB,4                   CHANGE INSTRUCTION NUMBER TO BB NO.F4424380
       LXD TBOX,4                                                       F4424390
       STD TRA..M-1,4                ENTER IN TRA TABLE                 F4424400
       TXI C2SXD,4,2                 SET FOR NEXT ENTRY IN TRA TABLE    F4424410
C2SXD  SXD TBOX,4                                                       F4424420
       LXD ENTBX,4                   G0 TO TSTAD WITH ADDRESS SET TO GO F4424430
       TRA TSTAD                        BACK TO MAIN ROUTINE            F4424440
       REM                                                              F4424450
       REM THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A        F4424460
       REM TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY    F4424470
       REM AFTER THE LOCATION OF THE TRANSFER                           F4424480
ENTB2  SXD ENTBX,4                   SAVE INDEX                         F4424490
       PXD 0,2                       PUT THIS BASIC BLOCK NO. INTO AC   F4424500
       ADD LD1M                      ADD ONE                            F4424510
       TRA ENTRB+2                   ENTER AND TEST THIS ADDRESS        F4424520
       REM                                                              F4424530
       REM THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC)   F4424540
       REM TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY   F4424550
       REM OPTIMAL TABLE LOOKUP                                         F4424560
FNDBB  STO ACBOX                     SAVE NUMBER BEING LOOKED FOR       F4424570
       SXD OUTBX,4                   SAVE EXIT INDEX                    F4424580
       LDQ CNST2M                    SET UP TEST FOR END                F4424590
       LXD L0M,4                     START LOOK UP                      F4424600
       CLA XBOX                                                         F4424610
C3ARS  ARS 1                                                            F4424620
       STD C3TXI                                                        F4424630
       STD C3TIX                                                        F4424640
       CLA ACBOX                                                        F4424650
PLACEM TXH C3TIX,4                                                      F4424660
       CAS BBLIST,4                                                     F4424670
C3TXI  TXI C3CLA,4                                                      F4424680
       TRA C3FND                                                        F4424690
C3TIX  TIX C3CLA,4,XXXXXX                                               F4424700
C3CLA  CLA C3TIX                                                        F4424710
       TLQ C3ARS                                                        F4424720
       TSX RDFORT,4                  FL0W ERROR                         F4424730
C3FND  PXD 0,4                                                          F4424740
       LXD OUTBX,4                                                      F4424750
       TRA 1,4                       RETURN                             F4424760
       REM                                                              F4424770
       REM THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO   F4424780
       REM AND MAKES A SET ENTRY FOR THE DO.                            F4424790
TSTAD  SXD ERAS1M,1                  SAVE INDEX REGISTER FOR TRA BACK   F4424800
       SXD OUTBX,4                                                      F4424810
       LXD SBOX,1                                                       F4424820
       STO ACBOX                     SAVE ADDRESS BEING TESTED          F4424830
       LXD LD1M,4                    COMPARE TO DO LIST                 F4424840
C4CLA  CLA ACBOX                     PUT ADDRESS BEING TESTED INTO AC   F4424850
       ORA IFMSK                     WITH AN IF MARK                    F4424860
C4CAS  CAS DOLIST-1,4                COMPARE TO DO LIST                 F4424870
       TXI C4CAS,4,2                 ENTRY SMALLER,OR EQUAL BUT W. NO IFF4424880
       TRA FXDO                      ENTRY EQUAL, HAS IF                F4424890
       SXD SBOX,1                    ENTRY LARGER, TEST FINISHED.       F4424900
       LXD ERAS1M,1                  SAVE SET INDEX AN0 RESTORE INDEX   F4424910
       LXD OUTBX,4                      REGISTERS.                      F4424920
       TRA 1,4                       RETURN TO MAIN ROUTINE             F4424930
FXDO   PXD 0,2                       SEE IF TRA IS IN OR OUT OF RANGE   F4424940
       ORA IFMSK                        OF THIS DO                      F4424950
       SUB DOLIST-1,4                                                   F4424960
       TMI C4ENT                     TR BEFORE BEG OF DO,MAKE SET ENTRY F4424970
       PXD 0,2                       TR AFTER BEG OF DO, SEE IF IN DO.  F4424980
       CAS DOLIST,4                  COMPARE TO END OF DO.              F4424990
       TRA C4ENT                     TR. AFTER DO, ENTER SET            F4425000
       TXI C4CLA,4,2                 TR. AT END OF DO--NO SET           F4425010
       TXI C4CLA,4,2                 TR. IN RANGE OF DO--NO SET         F4425020
C4ENT  CLA DOLIST,4                  ENTER SET FOR DO.                  F4425030
       TNX C4STD,1,ZSET              IS BLOCK OF SET TABLE FULL         F4425040
       TSX WRSET,4                   YES, WRITE BLOCK ON DRUM           F4425050
C4STD  STO SETM,1                    STORE BB NO. IN SET TABLE          F4425060
       CLA LA1                                                          F4425070
       STA SETM,1                    STORE 1 INTO SET LIST              F4425080
       CLA C5STD                     MODIFY ADDRESS IN FIX DO LIST FOR  F4425090
       ADD LA1                           NEXT ENTRY                     F4425100
       STA C5STD                                                        F4425110
       ANA ADRMK                                                        F4425120
       SUB LFXDN                     IS FIXDO LIST FULL                 F4425130
       TMI C5STD-1                   NO CONTINUE TESTING                F4425140
       TSX RDFORT,4                  FIXDOS FULL                        F4425150
       PXD 0,1                                                          F4425160
C5STD  STO FIXDOS-1                  STORE SET ADDRESS IN FIX DO LIST   F4425170
C5TXI  TXI C5TXI+1,1,1               SET FOR NEXT ENTRY IN SET LIST     F4425180
       TXI C4CLA,4,2                 SET DO LIST INDEX, CONTINUE TEST   F4425190
       REM                                                              F4425200
       REM THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS    F4425210
       REM INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE        F4425220
       REM BEGINNING OF THE BLOCK                                       F4425230
RDINSM SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4425240
       CLA MINUS4                    INITIALIZE ERROR BOX               F4425250
       STO ERRBX                                                        F4425260
       SXD BBOX,2                    SAVE INDEX                         F4425270
       LXD LD12M,4                   SHIFT EXTRA INSTRUCTIONS FROM END  F4425280
D1CLA  CLA NDINS,4                      OF BLOCK FOR BEGINNING          F4425290
       STO INST.M,4                                                     F4425300
       TIX D1CLA,4,1                 IS BLOCK SH1FTED                   F4425310
D1RDS  RDS INSTTP                    SLLECT 1NSTRUCTION TAPE            F4425320
       LXD LD3,2                     YES, SET INDEX FOR NO. OF RECORDS  F4425330
D1CPY  CPY INSTM-12,4                COPY BLOCK OF INSTRUCTIONS         F4425340
       TXI D1CPY,4,1                 SET FOR NEXT WORD                  F4425350
       TRA D2END                     END OF FILE                        F4425360
       TNX D1BCK,2,1                 END OF RECORD--IS IT END OF 3RD RECF4425370
       RDS INSTTP                    NO, READ NEXT RECORD.              F4425380
       TRA D1CPY                                                        F4425390
D1BCK  WRS 219                       TEST EOR TAPE ERROR                E4425400
       RTT                                                              F4425410
       TRA INERR                     ERROR                              F4425420
       TXH D1XX,4,ZINSTM-1           IF 3RD RECORD FULL--NOT END OF F1LEF4425430
D2END  PXD 0,4                       REACHED END OF INSTRUCTIONS,       F4425440
       ADD LD8                          PUT TEST FOR LAST 1NSTRUCTION   F4425450
       STD FNDAS                        INTO MAIN ROUT1NE               F4425460
       CLA LCOUT                     PUT ADDRESS OF FINAL EXIT INTO MAINF4425470
       STO FNDAS+1                      ROUTINE.                        F4425480
       CLA ENDMKM                                                       F4425490
       STO INST.M-12,4                                                  F4425500
D1XX   LXD OUTBX,4                   NO ERROR, RESTORE INDEX REGISTERS  F4425510
       LXD BBOX,2                                                       F4425520
       TRA 1,4                       RETURN TO MAIN ROUT1NE             F4425530
INERR  CLA ERRBX                                                        F4425540
SKIP7  TMI SKIP7+2                   HAVE 5 TRIES AT READING BEEN MADE  F4425550
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4425560
       ADD LA1                          NO, TRY READING AGA1N           F4425570
       STO ERRBX                                                        F4425580
D2BST  BST INSTTP                    BACKSPACE OVER RECOROS JUST REAO   F4425590
       TXI D2TIX,2,1                                                    F4425600
D2TIX  TNX D2BST,2,3                                                    F4425610
       TRA D1RDS                     TAPE BACKSPACED--TRY TO READ AGAIN F4425620
       REM                                                              F4425630
       REM THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3.               F4425640
WRSET  SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4425650
       STO ACBOX                     SAVE CONTENTS OF AC                F4425660
D7CLA  CLA SPBOX                     SET SP BOX FOR NEXT BLOCK          F4425670
       ADD LZSET                                                        F4425680
       STO SPBOX                                                        F4425690
       SUB LXSET                                                        F4425700
       TMI STWRS                     NO OVERFLOW --CONTINLE             F4425710
       TSX RDFORT,4                  SET TABLE HAS OVERFLOWED.          F4425720
STWRS  WRS SETDRM                    SELECT DRUM                        F4425730
       PXD 0,0                       CLEAR AC                           F4425740
       LXD LZSET,4                   SET INDEX FOR COMPUTING CHECKSUM   F4425750
D6ACL  ACL SETM,4                    COMPUTE CHECK SUM                  F4425760
       TIX D6ACL,4,1                                                    F4425770
       SLW ERAS1M                    STORE CHECK SUM                    F4425780
       LDA SETYM                     LOCATE DRUM ADDRESS                F4425790
       LXD LZSET,4                   SET INOEX EOR COPY1NG              F4425800
D6CPY  CPY SETM,4                    COPY BLOCK                         F4425810
       TIX D6CPY,4,1                                                    F4425820
       CPY ERAS1M                    COPY CHECK SUM                     F4425830
       CLA SETYM                     SET DRUM ADDRESS FOR NEXT BLOCK    F4425840
       ADD LZSET1                                                       F4425850
       STO SETYM                                                        F4425860
       LXD OUTBX,4                   RESTORE INDEX REGISTER             F4425870
       CLA ACBOX                                                        F4425880
       TRA 1,4                                                          F4425890
       REM                                                              F4425900
       REM THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST                  F4425910
PASS2  LXD LD12M,1                   INITIALIZE INDEX REGISTERS         F4425920
1TXI   TXI 1TXI+1,1,ZINSTM+1                                            F4425930
       CLA BBOX.=                    GET LENGTH OF BBLIST               F4425940
       STD PLACEM                    PUT LENGTH INTO TEST               F4425950
       ARS 1                                                            F4425960
       FAD L0M                       FIND LEAST POWER OF 2 NOT LESS THANF4425970
       ARS 27                           LENGTH OF TABLE                 F4425980
       SUB LD1M                                                         F4425990
       STA ARSX                                                         F4426000
       CLA CONSTM                                                       F4426010
ARSX   ARS                                                              F4426020
       STO XBOX                                                         F4426030
       CLA DOBOX=                    IF THERE ARE NO DOS, DO NOT TEST   F4426040
       TNZ TRAQ-1                        FOR A TRANSFER TO A DO         F4426050
       CLA FXDO-1                                                       F4426060
       STO TSTAD                                                        F4426070
       LXA ADRMK,2                                                      F4426080
TRAQ   TRA BEGBB                                                        F4426090
       REM                                                              F4426100
       REM                                                              F4426110
       REM SECTION 4 - PART 2 QF 6 I2ND RECORD OF 2)                    F4426120
       REM                                                              F4426130
       REM FORTRAN EDITOR INFORMATION                                   F4426140
       REM    MASTER RECORD CARD = F0650000                             F4426150
       REM    ENTRY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD)      F4426160
       REM    FIRST LOCATION = 3064                                     F4426170
       REM    LAST LOCATION = 3210                                      F4426180
       REM                                                              F4426190
       REM                                                              F4426200
       ORG 1588                                                         F4426210
       REM THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM   F4426220
       REM DRUM 1.                                                      F4426230
RDTIF  SXD OUTBX,4                   SAVE INDEX FOR RETURN              F4426240
       SXD ERAS1M,2                  SAVE INDEX                         F4426250
       CLA MINUS4                    INITIALIZE ERROR BOX               F4426260
       STO ERRBX                                                        F4426270
       CLA NTIFR-1                   MOVE EXTRA WORD FROM END OF BLOCK  F4426280
       STO TIFRDM-1                     TO BEGINNING                    F4426290
TFRDS  RDS TIFDRM                    SELECT DRUM                        F4426300
       LDA TIFY                      LOCATE DRUM ADDRESS                F4426310
       CPY ERAS2M                    COPY LENGTH OF BLOCK               F4426320
       LXD ERAS2M,6                  SET INDEX FOR COUNT                F4426330
D2CPY  CPY TIFRDM-1,4                READ IN BLOCK OF TIFRD             F4426340
       TIX D2CPY,4,1                 TEST FOR END OF BLOCK              F4426350
       CPY ERAS3M                    COPY CHECK SUM                     F4426360
       CAL ERAS2M                                                       F4426370
       TZE LSTBLT                    TIFGO IS EMPTY                     F4426380
D3ACL  ACL TIFRDM-1,2                COMPUTE CHECKSUM                   F4426390
       TIX D3ACL,2,1                                                    F4426400
       SLW ACBOX                                                        F4426410
       CLA ACBOX                                                        F4426420
       SUB ERAS3M                    C0MPARE CHECK SUMS                 F4426430
       TNZ TFERR                     NOT EQUAL,ERROR                    F4426440
       LXD ERAS2M,4                  WAS THIS A FULL BLOCK              F4426450
       TNX LSTBLT,4,ZTIFRD-1         NO--WAS LAST BLOCK                 F4426460
       CLA TIFY                      THIS WAS A FULL BLOCK, SET DRUM    F4426470
       ADD LZTIF2                       ADDRESS FOR NEXT BLOCK          F4426480
       STA TIFY                                                         F4426490
TFLXD  LXD ERAS1M,2                  RESTORE INDEX REGISTER             F4426500
       LXD OUTBX,4                                                      F4426510
       TRA 1,4                       RETURN TO MAIN ROUT1NE             F4426520
LSTBLT CLA TRNOM                     END OF TIFGO--PREVENT FURTHER      F4426530
       STO RDTIF+1                      ATTEMPTS TO READ IN             F4426540
       CLA ERAS2M                    PUT NUMBER OF WORDS IN THIS BLOCK  F4426550
       ADD LD1M                         INTO COMPARISONS                F4426560
       STD 2TNX                                                         F4426570
       STD 7TNX                                                         F4426580
       STD 8TNX                                                         F4426590
       TRA TFLXD                     RESTORE INDEX REGISTERS AND EXIT.  F4426600
NOMOR  CLA TRTSX                     TIFRD IS ALL USED - STORE A TSX    F4426610
       STO RDTIF                                                        F4426620
       CLA TR2CL                                                        F4426630
       STO 2TNX-1                                                       F4426640
       LXD PBOX,4                                                       F4426650
       STZ TIFRDM,4                                                     F4426660
       TRA TFLXD+1                                                      F4426670
TR2CL  TRA 2CLA                                                         F4426680
TFERR  CLA ERRBX                                                        F4426690
SKIP8  TMI SKIP8+2                   HAVE 5 TRIES AT READING BEEN MADE  F4426700
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4426710
       ADD LA1                          NO, TRY READING AGAIN           F4426720
       STO ERRBX                                                        F4426730
       TRA TFRDS                                                        F4426740
       REM                                                              F4426750
       REM THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM     F4426760
       REM WITH CHECK SUM                                               F4426770
WRTRA  SXD OUTBX,4                   SAVE INDFX FOR RETURN              F4426780
       STO ACBOX                     SAVE CONTENTS OF THE AC            F4426790
TRCLA  CLA TPBOX                     SET TP BOX FOR NEXT BLOCK          F4426800
       ADD LZTRA                                                        F4426810
       STO TPBOX                                                        F4426820
       SUB LXTRA                                                        F4426830
       TMI TRWRS                     NO OVERFLOW--CONTINUE              F4426840
TRTSX  TSX RDFORT,4                  THE TRA TABLE HAS OVERFLOWED       F4426850
TRWRS  WRS TRADRM                    SELECT DRUM                        F4426860
       LXD LZTRA,4                   SET INDEX                          F4426870
       PXD 0,0                       CLEAR AC                           F4426880
D4ACL  ACL TRAM,4                    COMPUTE CHECKSUM                   F4426890
       TIX D4ACL,4,1                                                    F4426900
       SLW ERAS1M                    STORE CHECK SUM                    F4426910
       LXD LZTRA,4                   SET INDEX FOR COPYING              F4426920
D4CPY  CPY TRAM,4                    COPY BLOCK                         F4426930
       TIX D4CPY,4,1                                                    F4426940
       CPY ERAS1M                    COPY CHECK SUM                     F4426950
       LXD LD4,4                                                        F4426960
D5CLA  CLA NDTRA,4                   SHIFT EXTRA ENTRIES FROM THE  END  F4426970
       STO TRA..M,4                     TO THE BEGINNING OF BLOCK       F4426980
       TIX D5CLA,4,1                                                    F4426990
       LXD LZTRA,4                   SET INDEX                          F4427000
       PXD 0,0                                                          F4427010
       LDQ LA1                                                          F4427020
D5ST2  STO TRAM-3,4                  INITIALIZE TRA TABLE               F4427030
       STQ TRA..M-4,4                                                   F4427040
       TIX D5ST2,4,2                                                    F4427050
       CLA TRWRS                     SET ADDRESS FOR NEXT BLOCK         F4427060
       ADD LA1                                                          F4427070
       STA TRWRS                                                        F4427080
TRLXD  LXD OUTBX,4                   RESTORE INDEX REGISTERS            F4427090
       CLA ACBOX                     RESTORE CONTENTS OF AC             F4427100
       TRA 1,4                       RETURN TO MAIN ROUTINE             F4427110
       REM                                                              F4427120
       REM                                                              F4427130
       REM    SECTION 4 - PART 3 OF 6                                   F4430010
       REM                                                              F4430020
       REM   FORTRAN EDITOR INFORMATION                                 F4430030
       REM      MASTER RECORD CARD = F0670000                           F4430040
       REM      ENTRY POINT = 111                                       F4430050
       REM      FIRST LOCATION = 33                                     F4430060
       REM      LAST LOCATION = 437                                     F4430070
       REM                                                              F4430080
       REM                                                              F4430090
       ORG 27                                                           F4430100
       REM  CONSTANTS AND VARIABLES                                     F4430110
ZERO       0                                                            F4430120
LD1N       0,0,1                                                        F4430130
LD7N       0,0,-TRATBL+2                                                F4430140
PBYCDN OCT 200000000000                                                 F4430150
PFXMKN OCT -300000000000                                                F4430160
ENDMKN OCT 377777777777                                                 F4430170
LAZST      ZSET                                                         F4430180
LZST1      ZSET+1                                                       F4430190
LZFR1      ZFRET=+2                                                     F4430200
LAZTR      ZTRA                                                         F4430210
LZSETN     0,0,ZSET                                                     F4430220
LZTRAN     0,0,ZTRA                                                     F4430230
WSETY      SETADD                    DRUM ADDRESS FOR SET TABLE         F4430240
FRETY      FRTADD                    DRUM ADDRESS FOR FRET              F4430250
BBLYN      BBLADD                    DRUM ADDRESS FOR BB LIST           F4430260
DOYN       DOADDR                    DRUM ADDRESS FOR DO LIST           F4430270
TRBCK  TRA CLAFN                                                        F4430280
LFXST      FXSET                                                        F4430290
ERAS1N                                                                  F4430300
ERAS2N                                                                  F4430310
ERAS3N                                                                  F4430320
ERAS4N                                                                  F4430330
ERAS5N                                                                  F4430340
       REM                                                              F4430350
       REM THIS ROUTINE READS THE SET TABLE FROM DRUM 3.                F4430360
RDSET  CLA MINUS4                    INITIALIZE ERROR BOX               F4430370
       STO ERRBX                                                        F4430380
16WRS  RDS SETDRM                                                       F4430390
       LDA WSETY                     LOCATE DRUM ADDRESS                F4430400
       LXD SSBOX=,3                  SET INDEX REGISTERS                F4430410
16CPY  CPY SETTAB+1,1                COPY TABLE                         F4430420
       TIX 16CPY,1,1                                                    F4430430
       CPY ERAS1N                    COPY CHECK SUM                     F4430440
       PXD 0,0                       CLEAR AC                           F4430450
16ACL  ACL SETTAB+1,2                COMPUTE CHECK SUM                  F4430460
       TIX 16ACL,2,1                                                    F4430470
       SLW ERAS2N                    STORE CHECK SUM                    F4430480
       CLA ERAS2N                    COMPARE CHECK SUMS                 F4430490
       SUB ERAS1N                                                       F4430500
       TZE READ4                     IF NO ERROR-READ IN NEXT PROGRAM   F4430510
17ERR  CLA ERRBX                                                        F4430520
SKIP9  TMI SKIP9+2                   HAVE 5 TRIES AT READING BEEN MA0E  F4430530
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4430540
       ADD LA1                          NO, TRY READING AGAIN           F4430550
       STO ERRBX                                                        F4430560
       TRA 16WRS                     TRY AGAIN                          F4430570
READ4  RDS SYSTAP                                                       F4430580
       TRA RDFORT                                                       F4430590
       REM                                                              F4430600
       REM THIS ROUTINE WRITES THE BBLIST ON DRUM 3                     F4430610
LXD    LXD BBOX.=,3                  PUT BASIC BLOCK LIST ON DRUM       F4430620
       PXD 0,0                                                          F4430630
       WRS BBLDRM                                                       F4430640
       ACL BBLIST,1                  COMPUTE CHECK SUM                  F4430650
SELF30 TIX SELF30-1,1,1                                                 F4430660
       ACL BBLIST                                                       F4430670
       SLW ERAS1N                    STORE CHECK SUM                    F4430680
       LDA BBLYN                                                        F4430690
       CPY BBLIST,2                  COPY LIST                          F4430700
SELF31 TIX SELF31-1,2,1                                                 F4430710
       CPY BBLIST                    COPY LAST WORD IN LIST             F4430720
       CPY ERAS1N                    COPY CHECK SUM                     F4430730
       REM                                                              F4430740
       REM THIS ROUTINE WRITES DOLIST ON DRUM 1.                        F4430750
       LXD DOBOX=,3                  COPY DO LIST ONTO DRUM             F4430760
       PXD 0,0                                                          F4430770
       WRS DODRUM                    SELECT DRUM                        F4430780
2ACL   ACL DOLIST,1                  COMPUTE CHECK SUM                  F4430790
       TIX 2ACL,1,1                                                     F4430800
       SLW ERAS1N                    STORE CHECK SUM                    F4430810
       LDA DOYN                                                         F4430820
2CPY   CPY DOLIST,2                  COPY TABLE                         F4430830
       TIX 2CPY,2,1                                                     F4430840
       CPY ERAS1N                    COPY CHECK SUM                     F4430850
       REM                                                              F4430860
       REM THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM     F4430870
4PXD   CLA MINUS4                    INITIALIZE ERROR BOX               F4430880
       STO ERRBX                                                        F4430890
4WRS   RDS SETDRM                                                       F4430900
       LDA WSETY                                                        F4430910
       LXD LZSETN,3                                                     F4430920
4CPY   CPY SETLOC,1                  COPY BLOCK                         F4430930
       TIX 4CPY,1,1                                                     F4430940
       CPY ERAS1N                    COPY CHECK SUM                     F4430950
       PXD 0,0                       CLEAR AC                           F4430960
4ACL   ACL SETLOC,2                  COMPUTE CHECKSUM                   F4430970
       TIX 4ACL,2,1                                                     F4430980
       SLW ERAS2N                                                       F4430990
       CLA ERAS2N                                                       F4431000
       SUB ERAS1N                    COMPARE CHECK SUMS                 F4431010
4TZE   TZE TESTST                                                       F4431020
STERR  CLA ERRBX                                                        F4431030
SKIP10 TMI SKIP10+2                  HAVE 5 TRIES AT READING BEEN MADE  F4431040
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4431050
       ADD LA1                          NO, TRY READING AGAIN           F4431060
       STO ERRBX                                                        F4431070
       TRA 4WRS                      TRY AGAIN TO READ IN               F4431080
TESTST CLA SSBOX=                    IS THERE ANOTHER BLOCK ON DRUM     F4431090
       SUB LZSETN                                                       F4431100
       TMI FXSET                     NO OTHER-                          F4431110
6SET   CLA WSETY                     ANOTHER BLOCK-SET DRUM ADDRESS     F4431120
       ADD LZST1                                                        F4431130
       STO WSETY                                                        F4431140
5CLA   CLA 4CPY                      SET ADDRESSES FOR NEXT BLOCK       F4431150
       SUB LAZST                                                        F4431160
       STA 4CPY                                                         F4431170
       STA 4ACL                                                         F4431180
       CLA LFXST                                                        F4431190
       STA 4TZE                      STORE ADDRESS FOR NEXT ROUTINE     F4431200
       TRA 4PXD                      READ IN NEXT BLOCK                 F4431210
       REM                                                              F4431220
       REM THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS    F4431230
FXSET  LXA ZERO,1                    SET INDEX FOR FIX DO LIST          F4431240
CCLA   CLA FIXDOS,1                  GET ENTRY FROM FIXDO LIST          F4431250
       TMI WRTST                     ALL DONE IF MINUS                  F4431260
       PDX 0,4                       SET FOR ADDRESS IN SET TABLE       F4431270
       CLA SETLOC,4                  LOOK AT ENTRY IN SET TABLE         F4431280
       PDX 0,2                       SET FOR ADDRESS IN BASIC BLOCK TAB.F4431290
       CLA BBTABL,2                  GET ADDRESS IN TRA TABLE           F4431300
       ADD LD7N                      SET FOR CORE ADDRESS OF COUNTER    F4431310
       STD SETLOC,4                  PUT INTO SET TABLE                 F4431320
       TXI CCLA,1,-1                 LOOK AT NEXT ENTRY IN FIXDO LIST   F4431330
       REM                                                              F4431340
       REM THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM       F4431350
WRTST  LXD SSBOX=,3                  SET INDEX REGISTERS                F4431360
       WRS SETDRM                    SELECT DRUM                        F4431370
       PXD 0,0                                                          F4431380
7AACL  ACL SETLOC,1                  COMPUTE CHECK SUM                  F4431390
       TIX 7AACL,1,1                                                    F4431400
       SLW ERAS1N                    STORE CHECK SUM                    F4431410
       LDA WSETY                                                        F4431420
7ACPY  CPY SETLOC,2                  COPY TABLE                         F4431430
       TIX 7ACPY,2,1                                                    F4431440
       CPY ERAS1N                    COPY CHECK SUM                     F4431450
       REM                                                              F4431460
       REM  THIS ROUTINE READS THE TRA TABLE FROM THE DRUM              F4431470
RDTRA  CLA TTBOX=                                                       F4431480
       SUB LD1N                                                         F4431490
       STO ERAS3N                    INITIALIZE ERAS3N                  F4431500
8PXD   CLA MINUS4                    INITIALIZE ERROR BOX               F4431510
       TRA SKIP11+3                                                     F4431520
8WRS   RDS TRADRM                                                       F4431530
       LXD LZTRAN,3                  SET INDICES                        F4431540
8CPY   CPY TRATBL+1,1                COPY BLOCK OF TABLE                F4431550
       TIX 8CPY,1,1                                                     F4431560
       CPY ERAS1N                    COPY CHECK SUM                     F4431570
8ACL   ACL TRATBL+1,2                                                   F4431580
       TIX 8ACL,2,1                                                     F4431590
       SLW ERAS2N                                                       F4431600
       CLA ERAS2N                                                       F4431610
       SUB ERAS1N                    COMPARE CHECK SUMS                 F4431620
       TNZ TRERR                     IF NOT ZERO, HAS BEEN AN ERROR     F4431630
       CLA ERAS3N                    PUT NO OF WORDS COPIED IN AC       F4431640
       SUB LZTRAN                    ADD BLOCK JUST COPIED              F4431650
       TMI CLRNS                     MINUS MEANS ALL D0NE, CLEAR N LIST F4431660
       STO ERAS3N                    STORE NUMBER OF WORDS LEFT TO COPY F4431670
       CLA 8WRS                      NOT FINISHED--SET DRUM NUMBER FOR  F4431680
       ADD LA1                          NEXT BLOCK                      F4431690
       STA 8WRS                                                         F4431700
       CLA 8CPY                      SET ADDRESSES FOR NEXT BLOCK       F4431710
       SUB LAZTR                                                        F4431720
       STA 8CPY                                                         F4431730
       STA 8ACL                                                         F4431740
       TRA 8PXD                      COPY NEXT BLOCK                    F4431750
TRERR  CLA ERRBX                                                        F4431760
SKIP11 TMI SKIP11+2                  HAVE 5 TRIES AT READING BEEN MADE  F4431770
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4431780
       ADD LA1                          NO, TRY READING AGAIN           F4431790
       STO ERRBX                                                        F4431800
       PXD 0,0                       CLEAR AC                           F4431810
       TRA 8WRS                      TRY AGAIN                          F4431820
       REM                                                              F4431830
       REM THIS CLEARS THE LOCATION IN THE N-LIST                       F4431840
CLRNS  LDQ ZERO                                                         F4431850
       LXA LA1,4                                                        F4431860
CLANS  CLA NLIST,4                                                      F4431870
       TZE 11PXD                     END OF LIST-DO NEXT ROUTINE        F4431880
       STQ NLIST,4                   STORE ZERO IN N-LIST               F4431890
       TXI CLANS,4,1                 SET FOR NEXT WORD IN LIST          F4431900
       REM                                                              F4431910
       REM THIS ROUTINE READS FRET FROM DRUM 2                          F4431920
RDFRT  SXD ERAS4N,2                  SAVE INDEX REGISTERS               F4431930
       SXD ERAS5N,1                                                     F4431940
11PXD  CLA MINUS4                    INITIALIZE ERROR BOX               F4431950
       TRA SKIP12+3                                                     F4431960
11WRS  RDS FRTDRM                    SELECT DRUM                        F4431970
       LDA FRETY                     LOCATE DRUM ADDRESS                F4431980
       CPY ERAS2N                    COPY NO. 0F WORDS IN BLOCK         F4431990
       LXD ERAS2N,7                  SET INDEX REGISTERS                F4432000
11CPY  CPY FRET,1                    COPY BLOCK                         F4432010
       TIX 11CPY,1,1                                                    F4432020
       CPY ERAS1N                    COPY CHECK SUM                     F4432030
       CPY ERAS3N                    C0PY FIRST WORD OF NEXT BLOCK      F4432040
11ACL  ACL FRET,2                    COMPUTE CHECKSUM                   F4432050
       TIX 11ACL,2,1                                                    F4432060
       ACL ERAS2N                                                       F4432070
       SLW ERAS2N                                                       F4432080
       TXH 11CLA,4,0                 TEST FOR FRET EMPTY                F4432090
       CLA NOQFD                     IF EMPTY--PREVENT LOOKING AT IT    F4432100
       STA 13TXIN-1                                                     F4432110
       TRA FXTRA                     GO TO MAKE UP PROBABILITIES        F4432120
11CLA  CLA ERAS2N                    COMPARE CHECKSUMS                  F4432130
       SUB ERAS1N                                                       F4432140
       TNZ FQERR                     IF NOT ZERO--HAS BEEN AN ERROR     F4432150
12CLA  CLA FRETY                     SET DRUM ADDRESS FOR NEXT BLOCK    F4432160
       ADD LZFR1                                                        F4432170
       STO FRETY                                                        F4432180
       CLA ERAS3N                    TEST FOR END OF FRET               F4432190
       TNZ 12TRA-2                                                      F4432200
       CLA SKIP12+1                  STORE A TSX TO PREVENT READING     F4432210
       STO 11PXD+1                      IN MORE-THIS IS END OF TABLE    F4432220
       LXD ERAS5N,1                  RESTORE INDEX REGISTERS            F4432230
       LXD ERAS4N,2                                                     F4432240
12TRA  TRA FXTRA                     GO TO NEXT PART OF PROGRAM         F4432250
FQERR  CLA ERRBX                                                        F4432260
SKIP12 TMI SKIP12+2                  HAVE 5 TRIES AT READING BEEN MADE  F4432270
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4432280
       ADD LA1                          NO, TRY READING AGAIN           F4432290
       STO ERRBX                                                        F4432300
       PXD 0,0                                                          F4432310
       TRA 11WRS                     TRY AGAIN                          F4432320
       REM                                                              F4432330
       REM THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA  F4432340
       REM TABLE FROM THE FREQUENCY TABLE                               F4432350
FXTRA  LXD ZERO,2                    SET INDEX REGISTERS                F4432360
       CLA BBOX.=                    ADD LENGTH OF TABLE                F4432370
       SUB LD1N                                                         F4432380
       STD 13TXH                     STORE FOR COMPARISON               F4432390
13TXH  TXH RDSET,2                   HAS END OF TABLE BEEN REACHED      F4432400
       CAL BBTABL,2                  LOOK AT ENTRY IN BB TABLE          F4432410
       PDX 0,1                       GET ADDRESS IN TRA TABLE           F4432420
       ANA PFXMKN                    LOOK AT C0DE FOR ENDING            F4432430
       SUB PBYCDN                    IS IT A PROBABILITY CASE           F4432440
       TZE CLAT                      YES, GET PROBABILITIES             F4432450
13TXIN TXI 13TXH,2,1                 NO, GO TO NEXT BASIC BLOCK         F4432460
CLAT   CLA FRET,4                    IS FORMULA NO. IN TRA TABLE THE    F4432470
       ALS 18                           SAME AS IN FRET(FRET HAS - SIGN)F4432480
       ADD TRATBL,1                                                     F4432490
       TNZ NOQFD                     NO, NO FREQUENCY FOUND             F4432500
14TIX  TNX 14LXD,4,1                 SET FOR NEXT WORD                  F4432510
CLAFN  CLA FRET,4                    GET PROBABILITY FROM FRET          F4432520
       TMI 13TXIN                    MINUS INDICATES NEXT ENTRY IN FRET F4432530
       STO TRATBL,1                  PUT PROBABILITY IN TRA TABLE       F4432540
       TXI 14TIX,1,2                 SET FOR NEXT ENTRY IN TRA          F4432550
14LXD  CLA ERAS3N                    TEST FOR END OF LAST BLOCK         F4432560
       TNZ 14CLA                                                        F4432570
       CLA NOQFD                     END OF TABLE-PREVENT FURTHER       F4432580
       STA 13TXIN-1                     LOOKING AT FRET                 F4432590
       TXI 13TXH,2,1                 ALSO END OF ENTRY-LOOK AT NEXT BB. F4432600
14CLA  CLA TRBCK                     END OF BLOCK OF FRET--READ IN NEXT F4432610
       STA 12TRA                        BLOCK, SETTING ADDRESS FOR      F4432620
       TRA RDFRT                        RETURN                          F4432630
NOQFD  TMI NTENT                     FORM. NO. IN FRET IS LARGER, NOT   F4432640
       REM                              IN FRET                         F4432650
       TIX CLAQ,4,1                  FORM. NO. SMALLER, TRY NEXT ENTRY  F4432660
CLAQ   CLA FRET,4                    LOOK AT NEXT WORD IN FRET          F4432670
       TMI CLAT+1                    - MEANS NEW ENTRY, COMPARE TO TRA  F4432680
       TIX CLAQ,4,1                  KEEP LOOKING FOR BEG. OF NEXT ENTRYF4432690
       CLA ERAS3N                    END OF BLOCK REACHED               F4432700
       TZE NDTBL                     TEST FOR END OF TABLE              F4432710
       CLA CLAQ-1                    END OF BLOCK ONLY-STORE RETURN     F4432720
       STA 12TRA                        ADDRESS AND GO TO READ          F4432730
       TRA RDFRT                        IN NEXT BLOCK                   F4432740
NDTBL  CLA NOQFD                     END OF TABLE-PREVENT FURTHER       F4432750
       STA 13TXIN-1                     LOOKING AT FRET.                F4432760
NTENT  CLA TRATBL-2,1                NO ENTRY IN FRET--MAKE UP FREQS    F4432770
       SXD ERAS1N,4                  SAVE FRET ADDRESS                  F4432780
       PDX 0,4                       PUT NO. OF BRANCHES IN INDEX       F4432790
       CLA LD1N                      PUT TOTAL PROBABILITY IN AC        F4432800
       LDQ ZERO                      CLEAR MQ                           F4432810
       DVP TRATBL-2,1                DIVIDE BY NO. OF BRANCHES          F4432820
       DCT                                                              F4432830
       TSX RDFORT,4                  BAD DIVIDE                         F4432840
       STQ ERAS2N                    STORE PROBABILITY IN AC            F4432850
       PXD 0,0                       CLEAR AC                           F4432860
15ADD  ADD ERAS2N                    ADD PROB. OF BRANCH FOR CUMULATING F4432870
       STO TRATBL,1                     PROBABILITY AND STORE           F4432880
       TNX 15LXD,4,1                 IS THIS BASIC BLOCK DONE           F4432890
       TXI 15ADD,1,2                 NO, DO NEXT BRANCH                 F4432900
15LXD  LXD ERAS1N,4                  RESTORE INDEX                      F4432910
       CLA ENDMKN                                                       F4432920
       STO TRATBL,1                  STORE PROBABILITY IN LAST BRANCH   F4432930
       TXI 13TXH,2,1                 DO NEXT BASIC BLOCK.               F4432940
       REM                                                              F4432950
       REM                                                              F4432960
       REM SECTION 4 - PART 4 OF 6                                      F4440010
       REM                                                              F4440020
       REM FORTRAN EDITOR INFORMATION                                   F4440030
       REM    MASTER RECORD CARD = F0690000                             F4440040
       REM    ENTRY POINT = 42                                          F4440050
       REM    FIRST LOCATION = 33                                       F4440060
       REM     LAST LOCATION = 161                                      F4440070
       REM                                                              F4440080
       REM                                                              F4440090
       ORG 27                                                           F4440100
       REM CONSTANTS AND VARIABLES                                      F4440110
LD1P       0,0,1                                                        F4440120
DECMKP     0,0,-1                                                       F4440130
ADMK       -1,0,-1                                                      F4440140
BT2MK  OCT 100000000000                                                 F4440150
VISITS HTR 4000                      COUNTER FOR NUMBER OF VISITS       F4440160
RAND1  OCT 321702174347                                                 F4440170
RAND2  OCT 1                                                            F4440180
       REM                                                              F4440190
       REM THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM,     F4440200
       REM KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT F4440210
       REM EACH BRANCH POINT                                            F4440220
SIMUL  LXD LA1,1                     PUT ZERO IN I R A                  F4440230
       CAL TTBOX=                                                       F4440240
       ARS 12                        NUMBER OF STEPS IS NUMBER OF 2-WORDF4440250
       STO VISITS                       ENTRIES IN TRATBL TIMES 128     F4440260
INTOBB CLA VISITS                    COUNT NO. OF BASIC BLOCKS VISITED  F4440270
       SUB LA1                                                          F4440280
       TMI READ5                     HAVE FINISHED SIMULATION           F4440290
       STO VISITS                                                       F4440300
       CLA BBTABL,1                  GET ADDRESS OF SETS FOR THIS BB    F4440310
       ALS 18                                                           F4440320
       STD 1TXL                                                         F4440330
       CLA BBTABL-1,1                GET FIRST ADDRESS OF SETS FOR BB   F4440340
       PAX 0,2                                                          F4440350
1CLA   CLA SETTAB+1,2                LOOK AT ENTRY IN SET TABLE         F4440360
1TXL   TXL ON,2                      NO MORE SETS                       F4440370
       PDX 0,4                       PUT ADDRESS INTO INDEX             F4440380
       ALS 18                                                           F4440390
       STD 0,4                       DO THE SET                         F4440400
       TXI 1CLA,2,-1                 DO NEXT SET                        F4440410
ON     CAL BBTABL,1                                                     F4440420
       PDX 0,2                       PUT TRATBL ADDRESS IN INDEX        F4440430
       SUB BT2MK                                                        F4440440
       TMI DOWIF                     CODE IS 000, DO WITH IF            F4440450
       SUB BT2MK                                                        F4440460
       TMI MSECSE                    CODE IS 001--MSE CASE              F4440470
       SUB BT2MK                                                        F4440480
       TMI PRBYCS                    CODE IS 010--PROBABILITY           F4440490
       SUB BT2MK                                                        F4440500
       TMI ENTERP                    CODE IS 011--CERTAINTY             F4440510
       SUB BT2MK                                                        F4440520
       TMI TROUT                     CODE IS 100-- DO NO IF             F4440530
       SUB BT2MK                                                        F4440540
       TMI GOTONP                    CODE IS 101-GO TO N CASE           F4440550
STOPCS LXD LA1,1                     -10 IS A STOP-GO TO BB ZERO        F4440560
       TRA INTOBB                                                       F4440570
GOTONP CLA TRATBL,2                  THIS IS A GO TO N--GET ADDRESS OF  F4440580
       PDX 0,4                          N-CELL AND PUT IN INDEX         F4440590
       CLA BBTABL-1,1                SAVE END OF ENTRY IN TRA TABLE     F4440600
       STD TXLN                                                         F4440610
CLANT  CLA TRATBL-1,2                LOOK AT ENTRY IN TRAT              F4440620
       ANA DECMKP                    AND OUT ALL BUT VALUE FOR N IN TRATF4440630
       SUB NLIST,4                   IS THIS ENTRY FOR CURRENT VALUE    F4440640
       TZE ENTERP                    YES, ENTER                         F4440650
       TXI TXLN,2,2                  NO, LOOK AT NEXT ENTRY IN TRAT     F4440660
TXLN   TXL CLANT,2                   TEST FOR N NOT SET                 F4440670
       CAL BBTABL,1                                                     F4440680
       PDX 0,2                                                          F4440690
       TRA ENTERP                    ENTER TRA TO FIRST BRANCH GIVEN    F4440700
MSECSE CLA TRATBL,2                  THIS IS A MSE--GET ADDRESS OF SENSEF4440710
       PDX 0,4                          LIGHT CELL AND PUT IN INDEX     F4440720
       CLA SNSLT,4                   IS LIGHT ON OR OFF                 F4440730
       TZE MSETXI                    OFF--TAKE SECOND BRANCH            F4440740
       PXD 0,0                       ON--TURN OFF, TAKE FIRST BRANCH    F4440750
       STO SNSLT,4                                                      F4440760
       TRA ENTERP                    ENTER TRANSFER                     F4440770
MSETXI TXI ENTERP,2,2                ENTER TRANSFER                     F4440780
DOWIF  CLA TRATBL-2,2                THIS IS A DO WITH AN IF            F4440790
       ADD LD1P                      ADD ONE T0 LOOP COUNT              F4440800
       LDQ TRATBL,2                  COMPARE TO NO. OF TIMES IN LOOP    F4440810
       TLQ TROUT                     TRANSFER OUT--LOOP DONE            F4440820
       STD TRATBL-2,2                LOOP NOT DONE-STORE NEW COUNT      F4440830
       TRA ENTERP                    TAKE TRANSFER BACK                 F4440840
TROUT  TXI ENTERP,2,2                TAKE TRANSFER OUT                  F4440850
PRBYCS LDQ RAND1                     THIS IS A PROBABILITY CASE         F4440860
       MPY RAND2                     GENERATE A RANDOM NUMBER BY        F4440870
       STQ RAND2                        MULTIPLIC. AND SAVE THE RESULT  F4440880
COMP   CLA TRATBL,2                  COMPARE TO CUMULATIVE PROB IN TRA  F4440890
       TLQ ENTERP                    FOUND, TAKE TRANSFER               F4440900
       TXI COMP,2,2                  NOT FOUND--LOOK AT NEXT BRANCH     F4440910
ENTERP CLA TRATBL-1,2                THIS IS THE BRANCH TO BE TAKEN     F4440920
       PDX 0,1                       PUT NO. OF NEXT BASIC BLOCK IN IR AF4440930
       ADD LA1                       ADD 1 TO COUNTER FOR THIS TRANSFER F4440940
       STA TRATBL-1,2                STORE COUNT                        F4440950
       SUB TRATBL-1,2                TEST FOR OVERFLOW                  F4440960
       TZE INTOBB                    NO OVERFLOW, DO NEXT BB            F4440970
OVRFLO CLA ADMK                                                         F4440980
       STA TRATBL-1,2                STORE MAXIMUM COUNT                F4440990
       TRA INTOBB                                                       F4441000
READ5  RDS SYSTAP                                                       F4441010
       TRA RDFORT                                                       F4441020
       REM                                                              F4441030
       REM                                                              F4441040
       REM SECTION 4 - PART 5 OF 6                                      F4450010
       REM                                                              F4450020
       REM FORTRAN EDITOR INFORMATION                                   F4450030
       REM    MASTER RECORD CARD = F0710000                             F4450040
       REM    ENTRY POINT = 42                                          F4450050
       REM    FIRST LOCATION = 33                                       F4450060
       REM    LAST LOCATION = 205                                       F4450070
       REM                                                              F4450080
       REM                                                              F4450090
       ORG 27                                                           F4450100
       REM CONSTANTS AND VARIABLES                                      F4450110
TGMSK  OCT 700000                                                       F4450120
RTMSK  OCT 777777                                                       F4450130
CODMK  OCT -300000000000                                                F4450140
DOYY       DOADDR                                                       F4450150
MPYR1                                                                   F4450160
MPYR2                                                                   F4450170
BBBOX                                                                   F4450180
       REM                                                              F4450190
       REM THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM     F4450200
RDDOS  CLA MINUS4                    INITIALIZE ERROR BOX               F4450210
       STO ERRBX                                                        F4450220
RDSDOL RDS DODRUM                                                       F4450230
       LXD DOBOX=,3                                                     F4450240
       LDA DOYY                                                         F4450250
       TXL READ6,1,0                 IF NO DOS-GO TO TAG PASS           F4450260
       CPY DOBLOK,1                                                     F4450270
SELF32 TIX SELF32-1,1,1                                                 F4450280
       CPY MPYR2                                                        F4450290
       PXD                                                              F4450300
       ACL DOBLOK,2                                                     F4450310
SELF33 TIX SELF33-1,2,1                                                 F4450320
       SLW MPYR1                                                        F4450330
       CLA MPYR1                                                        F4450340
       SUB MPYR2                                                        F4450350
       TZE FXDOS                                                        F4450360
       CLA ERRBX                                                        F4450370
SKIP13 TMI SKIP13+2                  HAVE 5 TRIES AT READING BEEN MADE  F4450380
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4450390
       ADD LA1                          NO, TRY READING AGAIN           F4450400
       STO ERRBX                                                        F4450410
       TRA RDSDOL                                                       F4450420
       REM                                                              F4450430
       REM THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS      F4450440
       REM WITHOUT IFS                                                  F4450450
FXDOS  PXD                                                              F4450460
ZSTO   STO LCNTR,2                                                      F4450470
       TXH ZLXD,2,150                CLEAR L-C0UNTERS TO INITIALIZE     F4450480
       TXI ZSTO,2,1                                                     F4450490
ZLXD   LXD LA1,4                     SET INDEX REGISTER--0 IN IR C      F4450500
       LXA LA1,2                     ONE IN B                           F4450510
       CLA DOBOX=                    PUT LENGTH OF TNX TABLE IN 9TSTND  F4450520
       STD 9TSTND                                                       F4450530
LOOKDO CLA DOBLOK-1,2                LOOK AT ENTRY IN DO LIST           F4450540
       ANA TGMSK                     DOES THIS DO HAVE AN IF            F4450550
4TXI   TXI 4TXI+1,2,2                SET FOR NEXT ENTRY IN DO LIST      F4450560
       TNZ 9TSTND                    DO HAS IF-LOOK AT NEXT             F4450570
       CLA LA1                       NO IF-START FIXING COUNTERS        F4450580
       STO LCNTR,4                   PUT ONE IN COUNTER ZERO            F4450590
       TXI 4CLA,4,1                                                     F4450600
4CLA   CLA DOBLOK+1,2                                                   F4450610
       STD BBBOX                     STORE NO. OF THIS BB.              F4450620
       CLA DOBLOK+2,2                                                   F4450630
       STA LCNTR,4                   STORE NO. TIMES IN LOOP IN COUNTERSF4450640
NTHRDO CLA DOBLOK-1,2                IS THERE ANOTHER TXL TO THIS ADDR. F4450650
       SUB DOBLOK+1,2                                                   F4450660
       TNZ ENDBBQ                    NO, LOOK AT END OF THIS B.B.       F4450670
BEGDO  TXI CLANO-1,4,1               YES, INCREASE L BOX BY 1           F4450680
       TXI CLANO,2,2                 SET FOR NEXT ENTRY IN TNX LIST     F4450690
CLANO  CLA DOBLOK+2,2                GET NO. OF TIMES IN THIS DO        F4450700
       STA LCNTR,4 4                                                    F4450710
       LDQ LCNTR,4                   MULTIPLY NO OF TIMES IN THIS D0    F4450720
       MPY LCNTR+1,4                    BY NO. OF TIMES IN OUTER DOS    F4450730
       STQ LCNTR,4                   STORE IN COUNTER FOR THIS DO       F4450740
       TRA NTHRDO                    SEE IF THERE IS ANOTHER TNX TO THISF4450750
ENDBBQ LXD BBBOX,1                   THIS IS END 0F BB IN DO WITHOUT IF F4450760
       CLA BBTABL,1                  LOOK AT ENTRY ON BB TABLE          F4450770
       PDX 0,1                       GET ADDRESS IN TRA TABLE           F4450780
       ANA CODMK                     LOOK AT ENDING CODE                F4450790
       TZE ENDDO                     ZERO INDICATES DO ENDING           F4450800
       CLA TRATBL-1,1                A CERTAINTY CASE--LOOK AT TRATBL   F4450810
       ANA RTMSK                     GET COUNTER FROM TRA TABLE         F4450820
       STO MPYR1                                                        F4450830
       LDQ MPYR1                     MULTIPLY C0UNTER BY NUMBER OF TIMESF4450840
       MPY LCNTR,4                      THIS LOOP IS DONE               F4450850
       STQ MPYR1                                                        F4450860
       CLA MPYR1                                                        F4450870
       CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4450880
       CLA RTMSK                     COUNTER HAS OVERFLOWED             F4450890
       NOP                           NO OVERFLOW                        F4450900
       STA TRATBL-1,1                PUT ALL ONES IN C0UNTER            F4450910
6LXD   LXD BBBOX,1                                                      F4450920
       TXI NXTBB,1,1                 SET FOR NEXT BB--DOES IT BEGIN A DOF4450930
NXTBB  PXD 0,1                       LOOK AT NEXT BB                    F4450940
       STD BBBOX                     DOES THIS BB START A DO            F4450950
       SUB DOBLOK-1,2                COMPARE TO DO LIST                 F4450960
       TZE BEGDO                                                        F4450970
       TRA ENDBBQ                                                       F4450980
ENDDO  CLA TRATBL-3,1                THIS IS THE END 0F A DO WITHOUT IF F4450990
       ANA RTMSK                                                        F4451000
       STO MPYR1                                                        F4451010
       LDQ MPYR1                     MULTIPLY COUNTER BY TOTAL NO OF    F4451020
       MPY LCNTR,4                      TIMES IN LOOP                   F4451030
       STQ MPYR2                     STORE NO IN MPYR2                  F4451040
       LDQ MPYR1                     MULTIPLY COUNTER BY NO TIME DO IS  F4451050
       MPY LCNTR+1,4                    STARTED TO GET COUNTER OUT      F4451060
       STQ MPYR1                                                        F4451070
       CLA MPYR1                                                        F4451080
       CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4451090
       CLA RTMSK                     COUNTER HAS OVERFLOWED-USE MAX. NO.F4451100
       NOP                           NO OVERFLOW                        F4451110
       STA TRATBL-3,1                STORE NO TIMES OUT IN COUNTER OUT  F4451120
       CLS MPYR1                                                        F4451130
       ADD MPYR2                                                        F4451140
       CAS RTMSK                     TEST FOR COUNTER OVERFLOW          F4451150
       CLA RTMSK                     COUNTER HAS OVERFLOWED-USE MAX. NO.F4451160
       NOP                           NO OVERFLOW                        F4451170
       STA TRATBL-1,1                STORE NO TIMES BACK IN COUNT. BACK F4451180
       TXI 9TXL,4,-1                 DECREASE LEVEL COUNTER FOR DO DONE F4451190
9TXL   TXH 6LXD,4,0                  IS THIS THE END OF OUTER DO        F4451200
9TSTND TXL LOOKDO,2                  YES, IS IT END OF PROBLEM          F4451210
READ6  RDS SYSTAP                                                       F4451220
       TRA RDFORT                    YES, GO TO NEXT ROUTINE            F4451230
       REM                                                              F4451240
       REM                                                              F4451250
       REM  SECTION 4 - PART 6 OF 6                                     F4460010
       REM                                                              F4460020
       REM  FORTRAN EDITOR INFORMATION                                  F4460030
       REM     MASTER RECORD CARD = F0730000                            F4460040
       REM     ENTRY POINT = 100                                        F4460050
       REM     FIRST LOCATION = 33                                      F4460060
       REM     LAST LOCATION = 1021                                     F4460070
       REM                                                              F4460080
       REM                                                              F4460090
       ORG 27                                                           F4460100
       REM  CONSTANTS AND VARIABLES                                     F4460110
LOR                                                                     F4460120
LC1        -1                                                           F4460130
L5         5                                                            F4460140
L6R        6                                                            F4460150
L8         8                                                            F4460160
L2043      2043                                                         F4460170
L2047      2047                                                         F4460180
L2048      2048                                                         F4460190
LD1R       0,0,1                                                        F4460200
STMSK  OCT 777770                                                       F4460210
TAGMK  OCT 777777                                                       F4460220
TMARK  OCT 33000000                                                     F4460230
DECMKR OCT 77777000000                                                  F4460240
MASK   OCT 37777037777                                                  F4460250
14ONES OCT 377770000000                                                 F4460260
LZTAG      0,0,ZTAG                                                     F4460270
       REM  OPERATION CODES OF TYPES OF REFERENCES                      F4460280
       OCT 36721000000               LXA                                F4460290
       OCT 36731000000               TXI                                F4460300
       OCT 33167000000               TIX                                F4460310
       OCT 36747000000               LXP                                F4460320
       OCT 42524000000               DED                                F4460330
       OCT 36724000000               LXD                                F4460340
       OCT 72167000000               PAX                                F4460350
LCOPS  OCT 72467000000               PDX                                F4460360
BBLYR      BBLADD                                                       F4460370
BBTY                                                                    F4460380
LA301  WDR 1                                                            F4460390
LTRND  TRA NDDR                                                         F4460400
ERAS1R                                                                  F4460410
ERAS2R                                                                  F4460420
IINBX      1                                                            F4460430
INSX                                                                    F4460440
TGPBOX MZE 0,0,1                                                        F4460450
BLKNO      0,0,76                                                       F4460460
BLKSIZ                               LENGTH OF BLOCK TO BE STORED       F4460470
LENGTH                               TOTAL LENGTH OF TABLE LEFT TO STOREF4460480
BLKMAX     0,0,BBSIZE                     BB BLOCK SIZE IN CS           F4460490
       REM                                                              F4460500
       REM THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT   F4460510
       REM ON THE DRUM.                                                 F4460520
START  REW INSTTP                                                       F4460530
       CLA TTBOX=                                                       F4460540
       PDX 0,1                       PUT LENGTH OF TABLE IN INDEX       F4460550
       TXH ISPRED,1,0                                                   F4460560
NOPRED STO PREDBX                                                       F4460570
       STO SUCCBX                    THERE IS NO PRED TABLE-SPACE OVER  F4460660
       STA BBTABL-1                                                     F4460590
       STA BBTABL                                                       F4460600
       TRA RDBBL                                                        F4460610
ISPRED ARS 19                                                           F4460620
       STA TSX+1                     STORE LENGTH FOR PUTTING SUCCESSOR F4460630
       STA TSX2+1                       AND PREDECESSOR TABLES ON DRUM  F4460640
1LDQ   LDQ PRED+1,1                  MOVE SUCCESSOR ADDRESS FROM DECR.  F4460650
       CLA PRED+1,1                     TO ADDRESS PART OF ENTRY WORD   F4460660
       ALS 3                            AND COUNTER FROM ADDRESS TO     F4460670
       LGL 18                           BITS 1-14                       F4460680
       PBT                           TEST FOR OVERFLOW                  F4460690
       TRA 1STO                      NO OVERFLOW                        F4460700
       ORA 14ONES                    OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710
1STO   STO PRED+2,1                  STORE SHIFTED ENTRY                F4460720
       TIX 1LDQ,1,2                  DO NEXT ENTRY                      F4460730
TSX    TSX DRUM.J,4                                                     F4460740
       HTR                           NUMBER OF ENTRIES ON TABLE         F4460750
       HTR PRED                      CORE MEMORY ADDRESS OF LAST WORD   F4460760
       HTR 0                         DRUM ADDRESS AUTOMATICALLY SET FOR F4460770
       REM                              NEXT TRY                        F4460780
       CLA TSX+3                                                        F4460790
       STO TSX2+3                                                       F4460800
       STO SUCCBX                                                       F4460810
       REM                                                              F4460820
       REM THIS PUTS THE BASIC BLOCK NUMBER OF THE PREDECESSOR IN THE   F4460830
       REM TRA TABLE                                                    F4460840
       CLA BBOX.=                                                       F4460850
       SUB LD1R                                                         F4460860
       STD NBOXR                                                        F4460870
       LXA LOR,2                                                        F4460880
       LXD LD1R,1                    ONE INTO INDEX A                   F4460890
CLABB  CLA BBTABL-1,2                GET ADDRESS IN TRA TABLE           F4460900
       STD TXBB                                                         F4460910
       PXD 0,2                       PUT PRED NO IN TRA ENTRY           F4460920
       ARS 18                                                           F4460930
TXBB   TXH NBOXR-1,1                 TEST FOR END 0F TABLE              F4460940
1STD   STA PRED+1,1                                                     F4460950
       TXI TXBB,1,2                  SET FOR NEXT TRA                   F4460960
       TXI NBOXR,2,1                 SET FOR NEXT BASIC BLOCK           F4460970
NBOXR  TXL CLABB,2                   TEST FOR LAST BB                   F4460980
       REM                                                              F4460990
       REM THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE         F4461000
       REM PREDECESSOR TABLE                                            F4461010
2TXI   TXI 2TXI+1,1,-3               LAST ADDRESS IN PRED INTO I R A    F4461020
       TXL PRDBB,1,0                 TEST FOR ONLY ONE ENTRY IN PRED    F4461030
LXABB  PXD 0,1                                                          F4461040
       PDX 0,2                                                          F4461050
       CLA PRED-1,1                  TAKE ENTRIES FOR COMPARISON        F4461060
       LDQ PRED,1                    FIND LARGEST ELEMENT LEFT IN TABLE F4461070
2CAS   CAS PRED+1,2                                                     F4461080
       TRA 2TIX                                                         F4461090
       TRA 2TIX                                                         F4461100
       STQ ERAS1R                                                       F4461110
       LDQ PRED+1,2                  EXCHANGE ENTRIES-- STORAGE IS GREATF4461120
       STO PRED+1,2                                                     F4461130
       CLA ERAS1R                                                       F4461140
       STQ ERAS1R                                                       F4461150
       LDQ PRED+2,2                                                     F4461160
       STO PRED+2,2                                                     F4461170
       CLA ERAS1R                                                       F4461180
2TIX   TIX 2CAS,2,2                  TEST FOR END OF TABLE              F4461190
       STO PRED-1,1                  THIS IS LARGEST ENTRY NOT SORTED   F4461200
       STQ PRED,1                       YET, STORE AND CONTINUE SORT    F4461210
       TIX LXABB,1,2                 HAS ENTIRE TABLE BEEN SORTED YET   F4461220
       REM                                                              F4461230
       REM THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE  F4461240
       REM INTO THE BASIC BLOCK TABLE                                   F4461250
PRDBB  LXD BBOX.=,2                  PUT LAST BB ADDRESS INTO IR B      F4461260
       LXD TTBOX=,5                  PUT LAST PRED ADDRESS INTO A AND C F4461270
3PXD   PXD 0,4                       NEW BB                             F4461280
       ARS 18                                                           F4461290
       STA BBTABL,2                  PUT PRED ADDR IN BB TABLE          F4461300
3TXI   TXI 3TXI+1,4,-2               SET FOR NEXT ENTRY IN BB TABLE     F4461310
       TNX 3ENO,2,1                  IS THIS THE END OF THE TABLE       F4461320
       PXD 0,2                       PUT NEW BB NO IN AC FOR COMPARISON F4461330
CAS    CAS PRED+1,4                  COMPARE BB NO IN PRED TABLE TO BB  F4461340
       TRA 3PXD                         NO IN AC                        F4461350
       NOP                           EQUALITY NOT POSSIBLE              F4461360
       TIX CAS,4,2                                                      F4461370
       STA BBTABL-1                  PUT ZERO AS PRED FOR BB1           F4461380
3ENO   PXD 0,0                       PUT ZERO AS PRED ADDR INTO TABLE   F4461390
       STA BBTABL                       FOR BB ZERO                     F4461400
TSX2   TSX DRUM.J,4                  PUT PRED TABLE ON DRUM             F4461410
       HTR                                                              F4461420
       HTR PRED                      CORE MEMORY ADDRESS OF LAST WORD   F4461430
       HTR                            --DRUM ADDRESS                    F4461440
       CLA TSX2+3                                                       F4461450
       STO PREDBX                    SAVE DRUM ADDRESS                  F4461460
       REM                                                              F4461470
       REM THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO        F4461480
       REM CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND        F4461490
       REM SUCCESSOR TABLES                                             F4461500
SHFTBB LXD BBOX.=,2                  SET INDEX                          F4461510
       TXI CAL4,2,1                                                     F4461520
CAL4   CAL BBTABL+1,2                                                   F4461530
       ANA MASK                                                         F4461540
       ARS 1 ,                                                          F4461550
       STD BBTABL+1,2                                                   F4461560
       STA BBTABL+1,2                                                   F4461570
       TIX CAL4,2,1                                                     F4461580
       REM                                                              F4461590
       REM  THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM       F4461600
RDBBL  CLA MINUS4                    INITIALIZE ERROR BOX               F4461610
       TRA SKIP14+3                                                     F4461620
BRDS   RDS BBLDRM                                                       F4461630
       LDA BBLYR                                                        F4461640
       LXD BBOX.=,3                                                     F4461650
BCPY   CPY BBLIST,1                                                     F4461660
       TIX BCPY,1,1                                                     F4461670
       CPY BBLIST                                                       F4461680
       CPY ERAS1R                                                       F4461690
BACL   ACL BBLIST,2                                                     F4461700
       TIX BACL,2,1                                                     F4461710
       ACL BBLIST                                                       F4461720
       SLW ERAS2R                                                       F4461730
       CLA ERAS2R                                                       F4461740
       SUB ERAS1R                                                       F4461750
       TZE TAGPAS                                                       F4461760
       CLA ERRBX                                                        F4461770
SKIP14 TMI SKIP14+2                  HAVE 5 TRIES AT READING BEEN MADE  F4461780
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4461790
       ADD LA1                          NO, TRY READING AGAIN           F4461800
       STO ERRBX                                                        F4461810
       PXD                                                              F4461820
       TRA BRDS                                                         F4461830
       REM                                                              F4461840
       REM THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS        F4461850
TAGPAS LXA LOR,2                     INITIALIZE INDEX REGISTERS         F4461860
       LXA LA1,4                                                        F4461870
RDINSR CLA MINUS4                    INITIALIZE ERROR BOX               F4461880
       STO ERRBX                                                        F4461890
       LXA TAGMK,1                                                      F4461900
RDSIN  RDS INSTTP                                                       F4461910
CPYN   CPY INSTR-1,1                 COPY BLOCK                         F4461920
       TXI CPYN,1,1                                                     F4461930
       TRA OUTR                      END OF FILE-EXIT                   F4461940
ENDRC  RTT                                                              F4461950
       TRA ERRORR                                                       F4461960
1ALXD  SXD LZINS,1                   STORE LENGTH OF RECORD TO COMPARE  F4461970
       LXA LOR,1                     CONTINUE TAG PASS                  F4461980
       TRA LZINS+1                                                      F4461990
ERRORR CLA ERRBX                                                        F4462000
SKIP15 TMI SKIP15+2                  HAVE 5 TRIES AT READING BEEN MADE  F4462010
       TSX RDFORT,4                     YES, GO TO DIAGNOSTIC ROUTINE   F4462020
       ADD LA1                          NO, TRY READING AGAIN           F4462030
       STO ERRBX                                                        F4462040
       BST INSTTP                                                       F4462050
       TRA RDSIN-1                   TRY AGAIN TO READ IN RECORD.       F4462060
INTBB  PXD 0,4                       PUT TAG ADDR IN BB LIST            F4462070
       ADD TGPBOX                                                       F4462080
       ARS 18                                                           F4462090
       ORA TMARK                                                        F4462100
       STO BBTAGS,2                                                     F4462110
BGTXI  TXI BGTXI+1,2,1                                                  F4462120
       CAL INST.R-3,1                IS THIS THE INSTRUCTION TAGGED     F4462130
       ANA STMSK                                                        F4462140
       TZE TXINS                     NO                                 F4462150
       CLA INST.R-3,1                YES,                               F4462160
       ANA TAGMK                                                        F4462170
       SSM                           AND A MINUS FOR 1ST INST IN A BASICF4462180
       STO TAG,4                        BLOCK INTO TAG LIST             F4462190
TSTOP  SXD ERAS1R,2                  SAVE INDEX                         F4462200
       LXA L8,2                      SET FOR A COMPARISON               F4462210
       CLA INST.R-1,1                COMPARE OP CODE OF INSTRUCTION     F4462220
       ANA DECMKR                                                       F4462230
SUB    SUB LCOPS+1,2                 OP CODES OF TYPES 0F TAGGED INSTRS F4462240
       TZE TROPS+1,2                 TRANSFER WHEN FOUND                F4462250
       ADD LCOPS+1,2                 RESTORE ORIGINAL CODE TO AC        F4462260
       TIX SUB,2,1                   TRY NEXT COMPARISON                F4462270
LD5    TXI STOCD,2,5                 NOT FOUND-IS PASSIVE -WANT 6 IN IRBF4462280
       REM GET CODE FOR TYPE OF INSTRUCTION INTO INDEX                  F4462290
       TXI STOCD,2,-7                LXA--INDEX HAS 8, WANT 1           F4462300
       TXI STOCD,2,-2                TXI--INDEX HAS 7, WANT 5           F4462310
       TXI STOCD,2,-1                TIX--INDEX HAS 6, WANT 5           F4462320
       TXI STOCD,2,-3                LXP--INDEX HAS 5, WANT 2           F4462330
       TXI STOCD,2,-1                DED--INDEX HAS 4, WANT 3           F4462340
       TXI STOCD,2,-2                LXD--INDEX HAS 3, WANT 1           F4462350
       TXI STOCD,2,-1                PAX--INDEX HAS 2, WANT 1           F4462360
TROPS  TRA STOCD                     PDX--INDEX HAS 1, WANT 1           F4462370
STOCD  PXD 0,2                       STORE CODE FOR TYPE OF OPERATION INF4462380
       STD TAG,4                        TAG LIST                        F4462390
       LXD ERAS1R,2                                                     F4462400
       TXI TSTTG,4,1                 SET FOR NEXT WORD IN TAG LIST      F4462410
TSTTG  TNX TXINS,4,ZTAG              TEST FOR END OF BLOCK              F4462420
WRTAG  WRS TAGTAP                    END OF BLOCK--WRITE ON TAPE        F4462430
TGCPY  CPY TAG,4                                                        F4462440
TGTXI  TXI TGTXI+1,4,1                                                  F4462450
       TNX TGCPY,4,ZTAG                                                 F4462460
       CLA TGPBOX                                                       F4462470
       ADD LZTAG                                                        F4462480
TGSTO  STO TGPBOX                                                       F4462490
TXINS  TXI TXINS+1,1,4                                                  F4462500
LZINS  TIX RDINSR,1,ZINSTR                                              F4462510
       CLA INSTR,1                   IS THIS THE BEG OF A BASIC BLOCK   F4462520
       SUB BBLIST,2                                                     F4462530
       TZE INTBB                     YES                                F4462540
       CLA INST.R-3,1                NO, IS IT TAGGED                   F4462550
       ANA STMSK                                                        F4462560
       TZE TXINS                     NO                                 F4462570
       CLA INST.R-3,1                YES                                F4462580
       ANA TAGMK                                                        F4462590
       TRA TSTOP-1                                                      F4462600
OUTR   PXD 0,4                                                          F4462610
       ADD TGPBOX                                                       F4462620
       ARS 18                                                           F4462630
       ORA TMARK                                                        F4462640
       STO BBTAGS,2                                                     F4462650
       TXH WRTG2,4,1                                                    F4462660
       CLA TGPBOX                                                       F4462670
TPL    TPL FINAL                                                        F4462680
WRTG2  CLA TPL                                                          F4462690
       STO TGSTO                                                        F4462700
       LXA LA1,4                                                        F4462710
       TRA WRTAG                                                        F4462720
FINAL  CLA BBOX.=                                                       F4462730
       ADD LD1R                                                         F4462740
       STO BBOX.=                                                       F4462750
       CLA PREDBX                                                       F4462760
       STO BBTBOX                                                       F4462770
       CLA DECMKR                    WANT TXL TO HAVE BLK-1             F4462780
       STD TXLBBT                       LATER                           F4462790
       IOD                                                              F4462800
       LDQ BLKMAX                    COMPUTE NO. OF BB IN BLOCK         F4462810
       PXD                                                              F4462820
       DVP L6R                                                          F4462830
       DCT                                                              F4462840
       TSX RDFORT,4                  BAD DIVIDE                         F4462850
       STQ BLKNO                                                        F4462860
       LDQ BBOX.=                                                       F4462870
       MPY L6R                                                          F4462880
       STQ LENGTH                    STORE TOTAL LNGTH OF TABLE FOR DRUMF4462890
       LXD LA1,1                                                        F4462900
NXTBL  CLA BBTBOX                    COMPUTE WRS ADDRESSES              F4462910
       ANA L2047                                                        F4462920
       STA BBTY                      STORE DRUM ADDRESSES               F4462930
       CLA BBTBOX                                                       F4462940
       ARS 11                                                           F4462950
       ADD LA301                                                        F4462960
       STA WRS1                                                         F4462970
       ADD LA1                                                          F4462980
       STA NDWRS                                                        F4462990
       CLA LENGTH                                                       F4463000
       TZE OUT2                                                         F4463010
       TMI OUT2                      FORM NEW TABLE LENGTH              F4463020
       SUB BLKMAX                                                       F4463030
       STO LENGTH                    IS THIS A FULL BLOCK               F4463040
       TMI LSTBLR                    NO, PUT IN ACTUAL LENGTH           F4463050
       PXD                           YES, PUT IN FULL BLOCK LENGTH      F4463060
LSTBLR ADD BLKMAX                    FORM NEXT DRUM ADDRESS             F4463070
       ARS 18                                                           F4463080
       ADD BBTBOX                                                       F4463090
       ADD LA1                                                          F4463100
       STO BBTBOX                                                       F4463110
       LXA IINBX,4                   RESTORE INSTRUCTION REPLACED FOR   F4463120
       CLA INSX                         END OF PREVIOUS BLOCK           F4463130
       STO CPY1A,4                                                      F4463140
       CAL TXLBBT                    COMPUTE NEW TEST DECREMENTS FOR    F4463150
       ADD BLKNO                        TESTING END OF BLOCK--THE VALUE F4463160
       STD TXLBBT                       IS THE NUMBER OF THE LAST BASIC F4463170
       STD TXL2                         BLOCK WHICH WILL FIT IN THIS BLKF4463180
       STD TXL3                                                         F4463190
       ANA DECMKR                                                       F4463200
       ADD LD1R                      IS THIS LARGER THAN THE NUMBER OF  F4463210
       SUB BBOX.=                       THE LAST BASIC BLOCK            F4463220
       TMI COMB                      NO                                 F4463230
       CLA BBOX.=                    YES, TEST DECREMENT SHOULD BE      F4463240
       SUB LD1R                         NUMBER OF LAST BB INSTEAD       F4463250
       STD TXLBBT                                                       F4463260
       STD TXL2                                                         F4463270
       STD TXL3                                                         F4463280
COMB   CLA L2047                                                        F4463290
       SUB BBTY                      SET B FOR TEST FOR END OF DRUM     F4463300
       PAX 0,2                       NUMBER OF WORDS LEFT ON DRUM INTO BF4463310
       ADD LA1                                                          F4463320
       LRS 35                        ARRANGE CONNECTION TO 2ND LOOP     F4463330
       DVP L6R                       FIND OUT WHICH OF THE 6 WORDS IN   F4463340
       REM                              AN ENTRY WILL OCCUPY THE LAST   F4463350
       REM                              POSITION ON THE DRUM            F4463360
       DCT                                                              F4463370
       TSX RDFORT,4                  BAD DIVIDE                         F4463380
       SUB LA1                                                          F4463390
       TMI ZREM                      BREAK IS BETWEEN ENTRIES (PUT 5    F4463400
       REM                              INTO AC)                        F4463410
       TNZ FREM                      MORE THAN ONE WORD FITS (LEAVE     F4463420
       REM                              NO-I IN AC)                     F4463430
       CLA LC1                       EXACTLY 1 WORD FITS (PUT LC1 IN AC)F4463440
FREM   ALS 1                         GET ADDRESS OF INSTRUCTION TO BE   F4463450
       COM                              REPLACED BY TRA TO 2ND LOOP     F4463460
       STA IINBX                     SAVE ADDRESS 0F THIS ONE           F4463470
       LXA IINBX,4                                                      F4463480
       LDQ CPY1A,4                   REPLACE PROPER INSTRUCTION WITH A  F4463490
       REM                              TRANSFER TO TAKE CARE OF END    F4463500
       REM                              OF DRUM SITUATION               F4463510
       CLA LTRND                                                        F4463520
       STO CPY1A,4                   STORE A TRA NDDR                   F4463530
       STQ INSX                                                         F4463540
WRS1   WRS                           SELECT DRUM                        F4463550
       PXD                                                              F4463560
       TXL LDA1,2,0                  INDEX B HAS NO. OF WORDS LEFT ON   F4463570
       REM                              DRUM, ONLY 1 WORD FITS ON DRUM  F4463580
       TNX NOBK,2,6                  LESS THAN 6 WORDS FIT              F4463590
       LDA BBTY                      MAIN LOOP FOR STORING BB TABLE     F4463600
CPY1R  CPY BBTABL,1                  WRITE SIX WORDS OF ENTRY           F4463610
       ACL BBTABL,1                                                     F4463620
       CPY BBTAGS,1                                                     F4463630
       ACL BBTAGS,1                                                     F4463640
       CPY LOR                                                          F4463650
       SLW ERAS1R                                                       F4463660
       CPY LOR                                                          F4463670
       TXI CPY5,1,1                  INCREASE INDEX OF POSITION IN BBT  F4463680
CPY5   CPY LOR                                                          F4463690
       TNX CPY6C,2,6                 TEST FOR NEARING END OF DRUM       F4463700
CPY6   CPY LOR                          (LESS THAN 6 WORDS LEFT)        F4463710
TXLBBT TXL CPY1R,1                                                      F4463720
       CPY ERAS1R                    WHOLE BLOCK FITS, COPY CHECKSUM    F4463730
       TRA NXTBL                                                        F4463740
CPY6C  CPY LOR                                                          F4463750
TXL2   TXL CPY1A,1,XXXXXX                                               F4463760
       CPY ERAS1R                                                       F4463770
       TRA NXTBL                                                        F4463780
DUMM   HTR                           USED IN SWITCHING AT END OF BLOCK  F4463790
       REM ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY      F4463800
       REM TRANSFER TO SECOND DRUM.                                     F4463810
CPY1A  CPY BBTABL,1                                                     F4463820
       ACL BBTABL,1                                                     F4463830
CPY2A  CPY BBTAGS,1                                                     F4463840
       ACL BBTAGS,1                                                     F4463850
CPY3A  CPY LOR                                                          F4463860
       SLW ERAS1R                                                       F4463870
CPY4A  CPY LOR                                                          F4463880
       TXI CPY5A,1,1                                                    F4463890
CPY5A  CPY LOR                                                          F4463900
       NOP                                                              F4463910
CPY6A  CPY LOR                                                          F4463920
TXL3   TXL CPY1B,1,XXXXXX                                               F4463930
CPY7A  CPY ERAS1R                                                       F4463940
       TRA NXTBL                                                        F4463950
NOBK   LDA BBTY                                                         F4463960
       TRA CPY1A                                                        F4463970
NDDR   LXA L2048,2                   SELECT 2ND DRUM                    F4463980
NDWRS  WRS                                                              F4463990
       TRA CPY1R,4                                                      F4464000
LDA1   LDA BBTY                                                         F4464010
CPY1B  CPY BBTABL,1                                                     F4464020
       LXD LMLE,4                    PRESET RETURN TO MAIN LOOP         F4464030
LMLE   TXI NDDR,0,-1                                                    F4464040
ZREM   CLA L5                        IF DRUM ENDS WITH LAST WORD IN AN  F4464050
       TRA FREM                         ENTRY                           F4464060
       REM                                                              F4464070
       REM  THIS ROUTINE WRITES BBLIST ON TAPE 3.                       F4464080
OUT2   WEF BLT                                                          F4464090
       LXD BBOX.=,1                                                     F4464100
       CLA BBOX.=                                                       F4464110
       ARS 18                                                           F4464120
       STO BBOX.=                                                       F4464130
       LXD WBL2,2                                                       F4464140
       WRS BLT                                                          F4464150
WBL1   CPY BBOX.=,2                  WRITE BB LIST                      F4464160
WBL2   TXI WBL2+1,2,1                                                   F4464170
       TIX WBL1,1,1                                                     F4464180
       BST BLT                                                          F4464190
       BST BLT                                                          F4464200
       BST BLT                                                          F4464210
       RDS BLT                                                          F4464220
       LXA MINUS4,1                  MOVES KEYS FOR SECTION 5 IN        F4464230
KEYS   CLA 4096,1                       8-1-4-1 SYSTEM, DOES NOTHING IN F4464240
       STO 8192,1                       4-1-4-1 SYSTEM.                 F4464250
       TIX KEYS,1,1                                                     F4464260
       RDS SYSTAP                                                       F4464270
       TRA RDFORT                                                       F4464280
       REM                                                              F4464290
       REM THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS  F4464300
       REM BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON F4464310
       REM DRUM.  CALLING SEQUENCE IS,                                  F4464320
       REM       TSX DRUM,4                                             F4464330
       REM       HTR N             N IS NUMBER OF ENTRIES IN THE TABLE  F4464340
       REM       HTR A             A IS CM ADDRESS OF LAST ENTRY IN     F4464350
       REM                         TABLE                                F4464360
       REM       HTR D             D IS DRUM ADDRESS,0-8191             F4464370
       REM UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE    F4464380
       REM HTR D                                                        F4464390
       REM A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD.    F4464400
       REM A MUST BE GREATER THAN 1,N GETS REPLACED BY 0                F4464410
GP1..J HTR BBBB.J                    ADDRESS HAS B.                     F4464420
DRUM.J CLA 2,4                       SET ADDRESSES DEPENDENT ON INITIAL F4464430
       STA G7...J                       TABLE ADDRESS IN CORES          F4464440
       STA G22..J                                                       F4464450
       STA G17..J                                                       F4464460
       STA G33..J                                                       F4464470
       SUB TWOA.J                                                       F4464480
       STA G14..J                                                       F4464490
G1...J LXD GK6..J,1                  INITIALIZE INDEX 0F POSITION IN    F4464500
       SXD G8...J,1                     TABLE.                          F4464510
G2...J CLA 1,4                       FORM N-B                           F4464520
       SUB GP1..J                                                       F4464530
       TMI G3...J                    IS N LARGER THAN B                 F4464540
       STO 1,4                       YES STORE NEW N                    F4464550
       CLA GP1..J                    PREPARE TO TRANSFER B WORDS        F4464560
G4...J TZE 4,4                       IF NO WORDS LEFT,RETURN            F4464570
       STO GV2..J                                                       F4464580
       LXD G8...J,1                  CURRENT INDEX TO A                 F4464590
G5...J TXI G5...J+1,1,2              UP IT,IT LAGS BEHIND               F4464600
       SXD GV3..J,1                                                     F4464610
       ALS 19                                                           F4464620
       SUB G8...J                    THE TXL IS NEGATIVE                F4464630
       PDX 0,2                                                          F4464640
       SXD G8...J,2                  SET NEW END TEST                   F4464650
       CLA ZERO.J                                                       F4464660
G6...J TXI G6...J+1,1,2              CHECK                              F4464670
G7...J ACL TABLEJ,1                                                     F4464680
       TXH G31..J,2,4093             SUM.                               F4464690
G8...J TXL G6...J,1,SET..J                                              F4464700
G31..J SLW GV4..J                    STORE CHECK SUM                    F4464710
       CLA 3,4                       SPACE LEFT ON DRUM, NEGATIVE       F4464720
       ANA GK1..J                                                       F4464730
       SUB GK2..J                                                       F4464740
       ADD GV2..J                    WILL BLOCK FIT                     F4464750
       TMI G9...J                                                       F4464760
G20..J STO GV6..J                    NO,STO. AMOUNT LEFT OVER           F4464770
       SUB GV2..J                                                       F4464780
       SSP                           IN AC IS DRUM SPACE                F4464790
       STO GV2..J                                                       F4464800
       ALS 19                                                           F4464810
       ADD GV3..J                    FORM INITIALIZING INDEX            F4464820
       PDX 0,2                          FOR 2ND HALF                    F4464830
       LXD GV3..J,1                  LOAD BEFORE STORING BACK           F4464840
       SXD GV3..J,2                                                     F4464850
G30..J TXI G30..J+1,2,-2             END TEST IS 2 LESS                 F4464860
       SXD G23..J,2                                                     F4464870
       CLA GK4..J                    DRUM SELECTION ROUTINE             F4464880
       TSX G11..J,2                  ALS0 STORES SWITCH                 F4464890
       TRA G15..J                                                       F4464900
G24..J CLA 3,4                                                          F4464910
       SUB ONEA.J                                                       F4464920
       STO 3,4                       SET BLOCK LENGTH TO NO. OF         F4464930
       CLA GV6..J                       WORDS LEFT.                     F4464940
       STO GV2..J                                                       F4464950
       TRA G10..J                                                       F4464960
G9...J ADD ONEA.J                    DOES SUM CHECK FIT TOO             F4464970
       TMI G10..J                                                       F4464980
G19..J CLA GK3..J                    NO                                 F4464990
       TSX G11..J,2                                                     F4465000
       ADD ONEA.J                    ARRANGE TO PUT CK SUM              F4465010
       STA G25..J                       ON NEXT DRUM                    F4465020
       TRA G12..J                                                       F4465030
G25..J WRS SET..J                                                       F4465040
G26..J CPY GV4..J                    COPY CHECK SUM.                    F4465050
       TRA G2...J                                                       F4465060
G3...J LDQ ZERO.J                    RECORD THAT THERE ARE NO WORDS LEFTF4465070
       CLA 1,4                                                          F4465080
       STQ 1,4                                                          F4465090
       TRA G4...J                                                       F4465100
G10..J CLA G26..J                    SUM CK. FITS TOO                   F4465110
       TSX G11..J,2                                                     F4465120
G12..J CLA G8...J                                                       F4465130
       STD G23..J                    SET END TEST                       F4465140
       LXD GV3..J,1                                                     F4465150
G15..J CLA GV2..J                                                       F4465160
       LBT                           IS BLOCK LENGTH ODD                F4465170
       TRA G13..J                    NO                                 F4465180
       LDQ ONEA.J                                                       F4465190
       TLQ G32..J                    IS IT EQUAL TO ONE                 F4465200
       LDA GV5..J                    YES, TRANSFER THE SINGLE WORD      F4465210
G34..J TXI G34..J+1,1,2                                                 F4465220
G33..J CPY TABLEJ,1                                                     F4465230
       TRA G18..J                                                       F4465240
G32..J LDA GV5..J                    COPY WORDS 0NTO THE DRUM           F4465250
G27..J TXI G27..J+1,1,2                                                 F4465260
G22..J CPY TABLEJ,1                                                     F4465270
G14..J CPY TABLEJ-2,1                                                   F4465280
G16..J TXI G16..J+1,1,4                                                 F4465290
G17..J CPY TABLEJ,1                                                     F4465300
G23..J TXL G14..J,1                                                     F4465310
G18..J CPY GV4..J                    OR TRA G25 OR TRA G24              F4465320
       TRA G2...J                                                       F4465330
G13..J LDA GV5..J                                                       F4465340
       TRA G14..J                                                       F4465350
       REM                                                              F4465360
       REM DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS          F4465370
G11..J STO G18..J                    STORE SWITCH WORD.                 F4465380
       CLA 3,4                       PRESERVE DRUM ADDRESS              F4465390
       STO GV5..J                                                       F4465400
       ADD GV2..J                    FORM THE NEW DRUM ADDRESS          F4465410
       ADD ONEA.J                                                       F4465420
       STO 3,4                                                          F4465430
       CLA GV5..J                    SELECT THE DRUM                    F4465440
       ARS 11                                                           F4465450
       ADD GK5..J                                                       F4465460
       STO G21..J                                                       F4465470
G21..J WRS                                                              F4465480
       TRA 1,2                                                          F4465490
       REM                                                              F4465500
       REM FOLLOWING ARE THE CONSTANTS USED                             F4465510
GK1..J     2047                                                         F4465520
GK2..J     2048                                                         F4465530
GK3..J TRA G25..J                                                       F4465540
GK4..J TRA G24..J                                                       F4465550
ONEA.J     1                                                            F4465560
GK5..J WDR 1                                                            F4465570
TWOA.J     2                                                            F4465580
GK6..J     0,0,-4                                                       F4465590
ZERO.J                                                                  F4465600
       REM VARIABLES OR TEMPORARY STORAGE                               F4465610
GV2..J                               LENGTH OF BLOCK                    F4465620
GV3..J                               INDEX OF LAST WORD IN BLOCK        F4465630
GV4..J                               SUM CHECK                          F4465640
GV5..J                               OLD DRUM ADDRESS                   F4465650
GV6..J                               REMAINING BLOCK LENGTH             F4465660
TABLEJ SYN 0                                                            F4465670
SET..J SYN 0                                                            F4465680
       REM                                                              F4465690
       REM                                                              F4465700
       END                                                              F4465710
       REM 704 FORTRAN II, SECTION V, TAG ANALYS1S, 4-1-6-2             F5G00010
       REM DAVID STERNLIGHT      I.B.M. WORLD HEADQUARTERS  5 NOV 58.   F5G00020
       REM                    INTRODUCTION                              F5G00030
       REM THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM   F5G00040
       REM USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050
       REM REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON    F5G00060
       REM INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070
       REM INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE   F5G00080
       REM REPLACED.  THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090
       REM REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECIION5.F5G00100
       REM THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPIRG     F5G00110
       REM INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120
       REM 3 1NDEX REGISTERS CONTAIN THE PROPER 1RFORMATION AT ALL      F5G00130
       REM TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS.      F5G00140
       REM GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL    F5G00150
       REM MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND   F5G00160
       REM NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT  F5G00170
       REM CONCERN ABOUT WHAT IS WIPED OUT.   THE SKILLFUL PLACEMENT OF F5G00180
       REM THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5.            F5G00190
       REM THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS,   F5G00200
       REM PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210
       REM ED BY SECTION 4.  THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220
       REM BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION.     F5G00230
       REM SECTION 5 ANALYSES THE OBJECT PROGRAM BY START1NG WITH THE   F5G00240
       REM HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD    F5G00250
       REM ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS.  THE AREA FORM-F5G00260
       REM ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS  F5G00270
       REM CALLED A LOOPLIST.  THIS IS TREATED TO REDUCE THE NUMBER OF  F5G00280
       REM INDEX REGISTERS TO 3, IS THER CALLED A REGION, AND CAN ENTER F5G00290
       REM FUTURE LOOPLISTS.  THE LOOPLIST PROCESS IS CONTINUED,        F5G00300
       REM CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM  F5G00310
       REM BY THE INCLUSION OF ALREADY TREATED REGIONS IN  THE CURRENT  F5G00320
       REM LOOPLIST WHERE APPRORRIATE TO THE FLOW OF THE PROGRAM.  THESEF5G00330
       REM REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340
       REM END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350
       REM FINALLY THE ENT1RE PROGRAM HAS BEEN TREATED.  A FURTHER PRIN-F5G00360
       REM CIPLE USED BY SECT1ON 5 IS TO COMPILE THE UPDAT1NG SX,S AS   F5G00370
       REM LATE AS POSS1BLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,     F5G00380
       REM SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUERCY  F5G00390
       REM OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS  F5G00400
       REM OF THE SX.                                                   F5G00410
       REM LPLST IS FORMED IN CORES BV SECTION 5 PART 1.  IT SUMMARIZES F5G00420
       REM EACH NEW REGION TO BE TREATED.  PREFIX CODES ARE 2=OPAQUE    F5G00430
       REM REGION,  1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER   F5G00440
       REM FREE) AND PREFIX CODE 0=BASIC BLOCKS.  THE BB NUMBER         F5G00450
       REM IS CONTAINED IN THE DECREMENT OR ADDRESS.  77777 INDICATE.   F5G00460
       REM LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470
       REM OF REGION, SPECIFIED BY BB NUMBER.  000000 INDICATES NOTHING F5G00480
       REM INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR     F5G00490
       REM ADDRESS.  A WORD OF FULL BB,ENS, CALLED SENTINEL, TERMINATES F5G00500
       REM LPLST.  THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST   F5G00510
       REM BEFORE TREATMENT LIKE                                        F5G00520
       REM 277777 000014                                                F5G00530
       REM 000023 000000                                                F5G00540
       REM 100026 000033                                                F5G00550
       REM 200003 777777                                                F5G00560
       REM 777777 777777.                                               F5G00570
       REM THIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580
       REM BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM     F5G00590
       REM BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3,      F5G00600
       REM TERMINATING THIS LPLST.  WHEN TREATED, THIS ENTIRE LPLST     F5G00610
       REM BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS   F5G00620
       REM AND BB,S IN IT, WHICH WILL DISAPPEAR.                        F5G00630
       REM REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION.  PREFIX F5G00640
       REM INDICATES EXISTENCE IN REGION OF LX,S TO THE IR,S ,          F5G00650
       REM DECREMENT=FIRST BB NO. IN REGION,  TAG BITS=EMPTINESS        F5G00660
       REM THROUGHOUT REGION OF IR,S.                                   F5G00670
       REM      INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM.      F5G00680
       REM SUCC IS FIRST DRUM TABLE.  IT IS PREPARED BY SECTION 4,      F5G00690
       REM ORDERED ON BB NUMBER.  IT IS PING PONGED BETWEEN DRUM AND    F5G00700
       REM CORES BY THE SE6 ROUTINE.                                    F5G00710
       REM THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720
       REM IS TREATED.  BITS 1-14=FREQUENCY OF LINK,  ADDRESS=NO. OF    F5G00730
       REM SUCCESSOR BASIC BLOCK.                                       F5G00740
       REM PRED IS THE SECOND DRUM TABLE.  IT IS PREPARED BY SECTION 4. F5G00750
       REM PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760
       REM CORES BY THE SE5 R0UTINE.                                    F5G00770
       REM WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED.          F5G00780
       REM BITS 1-14=FREQUENCY OF LINK.  BITS 15-17 CALL FOR LX,S TO    F5G00790
       REM THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800
       REM PRIATE INDEX CELLS.  THESE SX,S WILL LATER BE COMPILED       F5G00810
       REM BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5.  THE ADDRESS    F5G00820
       REM CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK.          F5G00830
       REM BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4.   F5G00840
       REM THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850
       REM THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860
       REM WORD FORMAT FROM SECTION 4.  FIRST WORD DECR=STARTING POINT  F5G00870
       REM IN SUCC,  ADDRESS=STARTING POINT IN PRED OF ENTRIES          F5G00880
       REM REFERRING TO THIS BASIC BLOCK.  FIRST WORD PREFIX CONTAINS   F5G00890
       REM CODE DESCRIBING TYPE OF ENDING BB HAS.  CODING IS....        F5G00900
       REM 000=DO WITH AN IF,  001=MSE,  010=PROBABILITY BRANCH         F5G00910
       REM 011=CERTAINTY BRANCH,  100=DO WITHOUT AN IF,  101=GO TO N,   F5G00920
       REM 110=STOP.  SECOND WORD, BITS 12-17=PERMUTATION NUMBERS,      F5G00930
       REM INITIALIZED TO 33 BY SECTION 4.  ADDRESS=ORDINAL NUMBER OF   F5G00940
       REM FIRST TAGLIST ENTRY BELONGING TO THIS BB.  REMAINING WORDS   F5G00950
       REM INITIALIZED TO ZEROES BY SECTION 4.                          F5G00960
       REM IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE.  SECOND WORD  F5G00970
       REM BITS S-2 INDICATE IR ACTIVITY IN THIS BB.  PERMUTATION NOS.  F5G00980
       REM MAY UNDERGO CHANGE.  WORDS 3-5 RECORD ENTRY AND EXIT CONDS.  F5G00990
       REM FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS.      F5G01000
       REM WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO.           F5G01010
       REM ADDRESS=NUMBER OF NEXT BB IN REGION.                         F5G01020
       REM STAG IS THE F0URTH DRUM TABLE.  INITIALIZED TO ZEROES AT SEC.F5G01030
       REM 5 PART 1 START.  ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040
       REM IS MADE IN SECTI0N 5 PART 1 AN0 READ IN PART 4.  BITS S-8    F5G01050
       REM CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION,  BITS 9-17 F5G01060
       REM FOR AN LX FOLLOWING.  BITS 18-35 IN PAIRS SPECIFY THE INDEX  F5G01070
       REM REGISTER TAGLIST INSTRUCTION IS TO USE.  THUS PRED RECORDS   F5G01080
       REM INTER BB LX,S AND SX,S AND STAG RECORDS INTRA-BB LX,S AND    F5G01090
       REM SX,S.  STAG IS HANDLED BY THE SE4 ROUTINE.                   F5G01100
       REM CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD        F5G01110
       REM FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTION      F5G01120
       REM CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE       F5G01130
       REM SYMBOLIC ADDRESS, AS FOLLOWS,   BITS 24-26 CONTAIN TAU 1,2,  F5G01140
       REM OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150
       REM TAU TABLE.  NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160
       REM INDEX CELLS IS, TAU 1=G,  TAU 2=10, TAU 3=1G, AND THIS       F5G01170
       REM SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY.  THUS A       F5G01180
       REM TAGLIST ENTRY IN THE ADORESS OF 003005 BECOMES 1G5, THAT IS, F5G01190
       REM TAU 3, ENTRY 5.  THE INSTRUCTION CLASSES AS FOLLOWS,  IN DECRF5G01200
       REM L=LXA,LXD,PAX,PDX.   2=LXP.  3=DED.  4 IS UNUSED BUT AVAIL.  F5G01210
       REM FOR TNX.  5=ACTIVE INSTR LIKE TIX AND TXI.  6=PASSIVE INSTR. F5G01220
       REM A PASSIVE INSTR IS A TAGGED INSTR THAT 0OES NOT CHANGE THE   F5G01230
       REM CONTENTS OF THE INDEX REGISTER.  7=UNUSED BUT AVAIL. FOR TIX.F5G01240
       REM WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A      F5G01250
       REM TRANSFER, NOT AN ACTIVE TIX.  ACTIVE INSTRUCTIONS MAY        F5G01260
       REM BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q  F5G01270
       REM WHERE Q IS SOME CONSTANT.                                    F5G01280
       REM CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290
       REM IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS.                F5G01300
       REM GIVING DRUM TABLE LENGTHS.  TAPE TABLES USED FOR INPUT       F5G01310
       REM INCLUDE TAGLIST AND CIT.  INTERMEDIATE TABLES INCLUDE THE    F5G01320
       REM ABOVE AND STAG, LPLST, CMTAG, AND REG.  CMTAG IS A CORE      F5G01330
       REM BUFFER FOR TAGLIST.  THE DRUM TABLES ALSO APPEAR IN CORE     F5G01340
       REM IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN    F5G01350
       REM COMBINATION OF THE FACTORS OF LENGTH AND COMPLEXITY OF       F5G01360
       REM TRANSFER STRUCTURE.  OUTPUT TABLES INCLU0E CIT ON TAPE.      F5G01370
       REM TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE.  IT IS AF5G01380
       REM SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM INSTRUCTIONS    F5G01390
       REM RESULTING FROM SECTION 3.  EACH ENTRY IS ONE WORD.  THE      F5G01400
       REM PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS     F5G01410
       REM CONTAINS SYMBOLIC INDEX REGISTER,S NAME.                     F5G01420
       REM      BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM       F5G01430
       REM TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER       F5G01440
       REM COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING.      F5G01450
       REM IN ADDITION, SENSE SWITCH 4, WHEN DOWN, PROVIOES UP TO       F5G01460
       REM 20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT   F5G01470
       REM A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PR0GRAM          F5G01480
       REM EFFICIENCY.  THIS SENSE SWITCH HAS NO EFFECT ON SHORTER      F5G01490
       REM PROGRAMS.                                                    F5G01500
       REM      IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE,    F5G01510
       REM SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST   F5G01520
       REM BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED  F5G01530
       REM ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END  F5G01540
       REM OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED.         F5G01550
       REM IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN      F5G01560
       REM THE FOLLOWING PARAMETER LIST MUST BE CHANGED.                F5G01570
       REM              4-1-6-2 PARAMETER LIST                          F5G01580
 MSIZE EQU 4096              4-1-6-2 MEMORY SIZE                        F5G01590
   FP1 EQU 50                4-1-6-2 REG TABLE SIZE                     F5G01600
  S3P1 EQU 30                4-1-6-2 LPLST TABLE SIZE                   F5G01610
   STL EQU 50                4-1-6-2 STAG LENGTH                        F5G01620
       REM           FIXED PARAMETER LIST, INDEP. OF CORESIZE           F5G01670
  KEYS SYN MSIZE-4           CONSTANTS TO RELATE PROGRAM T0 TABLES      F5G01680
       REM ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLL0WED BY   F5G01690
       REM PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V.        F5G01700
       REM THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER 0F BBS,  F5G01710
       REM KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG.  F5G01720
INSTTP EQU 4                 COMPILED INST ON TAPE 4                    F5G01730
  TAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01740
 OTAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01750
   BLT EQU 3                 BLOCK LIST ON TAPE 3                       F5G01760
 ACTPE EQU 2                 ASSIGN CONSTANTS ON TAPE 2                 F5G01770
 RECNO EQU 1                 NO OF CIT RECORDS IN AT ONE TIME           F5G01780
 ZINST EQU RECNO*100         LENGTH 0F INST TABLE                       F5G01790
 LCLST EQU 100               LENGTH 0F OUTPUT BLOCK, COMPILED INSTR     F5G01800
  NSXD EQU 128               NO. OF SXD CASES IN SXD LIST               F5G01810
  PTL1 EQU 20                SPACE FOR PATCHES, PART 1                  F5G01811
  PTL2 EQU 41                SPACE FOR PATCHES, PART 2.                 F5G01812
  PTL3 EQU 42                SPACE FOR PATCHES, PART 3                  F5G01813
 PTL4  EQU 34                SPACE FOR PATCHES, PART 4.                 F5G01814
   SET EQU 0                 INITIAL DRUM ADDRESS                       F5G01820
     K EQU 0                 INITIAL DRUM ADDRESS                       F5G01830
       REM         EDITOR RECORD NO. 75                                 F5G01840
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G01850
       REM       NO DIAGN0STIC CALLER FOLLOWS                           F5G01870
       REM                   PART 1A                                    F5G01880
       REM OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N,           F5G01890
       REM INSTRUCTION COMPILATION.                                     F5G01900
       ORG 24                                                           F5G01910
       REM     ROUTINE T0 TRANSFER NEXT                                 F5G01920
       REM       PROGRAM PART                                           F5G01930
R      RTB 1  SKIP DIAGNOSTIC                                           F5G01940
       TRA 4   READ NEXT PROGRAM RECORD                                 F5G01950
       REM THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES   F5G01960
       REM SUCC, PRED, BBB, AND STAG.  THEY ARE ENTERED WITH THE WANTED F5G01970
       REM ITEM IN THE AC.  THEY LOAD IX1 FOR IMMEDIATE REFERENCE TO THEF5G01980
       REM STATED ITEM.  AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990
       REM THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES.  IF THE   F5G02000
       REM ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM        F5G02010
       REM MANIPULATION IS NECESSARY.                                   F5G02020
SE4    ALS 18                                                           F5G02030
       ANA SEK4                                                         F5G02040
       TSX SE21,2                                                       F5G02050
       REM  PARAMETERS FOR STAG TABLE                                   F5G02060
STAGP  HTR 0 N(0)                                                       F5G02070
       HTR 0 N(1)                                                       F5G02080
       HTR 0,0,STAGL N(S)                                               F5G02090
       HTR 0,0,SET N(L)                                                 F5G02100
       HTR 1 S                                                          F5G02110
       HTR SET D(0)                                                     F5G02120
       HTR STAG A                                                       F5G02130
       REM  PARAMETERS FOR SUCC. TABLE                                  F5G02140
SE6    ANA SEK4                                                         F5G02150
       TSX SE21,2                                                       F5G02160
 SUCCP HTR 0              N(0)                                          F5G02170
       OCT -1 NI1I                                                      F5G02180
       HTR 0,0,SUCCL N(S)                                               F5G02190
       HTR SET N(L)                                                     F5G02200
       HTR 1 S                                                          F5G02210
       HTR 0 D(0)                                                       F5G02220
       HTR SUCC A                                                       F5G02230
       REM   PARAMETERS FOR PRED. TABLE                                 F5G02240
SE5    ALS 18                                                           F5G02250
       ANA SEK4                                                         F5G02260
       TSX SE21,2                                                       F5G02270
 PREDP HTR 0              N(0)                                          F5G02280
       OCT -1 N(1)                                                      F5G02290
       HTR 0,0,PREDL N(S)                                               F5G02300
       HTR SET NIL)                                                     F5G02310
       HTR 1 S                                                          F5G02320
       HTR SET D(0)                                                     F5G02330
       HTR PRED A                                                       F5G02340
       REM   PARAMETERS FOR BBB TABLE                                   F5G02350
SE1    ALS 18 BB NO. IN ADDR.                                           F5G02360
SE     ANA SEK4 BB NO. IN DECR.                                         F5G02370
       TSX SE21,2                                                       F5G02380
 BBBP  HTR 0              N(0) IN DECR. 1ST BB IN CM                    F5G02390
       OCT -1 N(1) IN DECR,LAST BB IN CM +1                             F5G02400
       HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM                    F5G02410
       HTR SET N(L) IN DECR,NO. OF BBS                                  F5G02420
       HTR 6 S IN ADDR.,NO. OF WDS PER BB                               F5G02430
       HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR.                         F5G02440
       HTR BBB A IN AOOR.,INITIAL CM ADDR                               F5G02450
       REM   2 ED PARAMETER IS + OR - ACCORDING                         F5G02460
       REM   AS CM BLOCK IS FULL OR EMPTY                               F5G02470
       REM   SR FOR SHUFFLING TABLES TO AND FROM DRUM                   F5G02480
SE21   STO SEV2 STJ=S 1TEM NO.,X                                        F5G02490
       CAS 2,2 IS N .X CM                                               F5G02500
       TXH -,-,-                                                        F5G02510
       TXL SE42,0,-                                                     F5G02520
       TRA SE41 POSSIBLY                                                F5G02530
SE42   SXD SEV5,4 NO,STORE RETURN INDEX                                 F5G02540
       CLA 2,2                                                          F5G02550
       TMI SE35 IS CM BLOCK EMPTY                                       F5G02560
       TSX SE22,4 NO,FORM CHECK SUM                                     F5G02570
       CLA SE23                                                         F5G02580
       STA SE24 STORE                                                   F5G02590
       CLA SEV3 CHECK                                                   F5G02600
SE24   STO SET SUM                                                      F5G02610
       CLA SEK                                                          F5G02620
       TSX SE26,4                                                       F5G02630
SE35   CLA ZERO                                                         F5G02640
       LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S)                            F5G02650
       DVP 3,2                                                          F5G02660
       MPY 3,2                                                          F5G02670
       STQ 1,2 N(1)=MIN (N (0)+N(S),N(L))                               F5G02680
       CLA 1,2                                                          F5G02690
       ADD 3,2                                                          F5G02700
       LDQ 4,2                                                          F5G02710
       STQ 2,2                                                          F5G02720
       TLQ SE36                                                         F5G02730
       STO 2,2                                                          F5G02740
SE36   CLA SEK1 TRANSFER IN A                                           F5G02750
       TSX SE26,4 BLOCK OF THE TABLE                                    F5G02760
       TSX SE22,4 CHECK SUM                                             F5G02770
       CLA SE23 COMPARE                                                 F5G02780
       STA SE37 CHECK                                                   F5G02790
SE37   CLA SET SUMS                                                     F5G02800
       CAS SEV3                                                         F5G02810
SE45   TRA SE43                                                         F5G02820
       TRA SE40 AGREE                                                   F5G02830
SE43   LXD TPCT,4     REPEAT 5 TIMES                                    F5G02840
       TXI SE44,4,1                                                     F5G02850
SE44   SXD TPCT,4                                                       F5G02860
       TXL SE36,4,4           TRY AGAIN                                 F5G02870
       TSX 4,4      TRIEO 5 TIMES GO TO DIAGNOSTIC                      F5G02880
       REM NOTE ON TH1S 150 STOP.  THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890
       REM BY MACHINE ERROR.                                            F5G02900
       REM IF IX 2 CONTAINS       TABLE 1S  AND CHECK                   F5G02910
       REM 77744                  STAG      40                          F5G02920
       REM 77732                  SUCC      51         ALL              F5G02930
       REM 77721                  PRED      63        OCTAL             F5G02940
       REM 77707                  BBB       75                          F5G02950
       REM TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS             F5G02960
       REM THAN THE CONTENTS OF 306 OCTAL.  IF SO, SOURCE PROGRAM, RATH-F5G02970
       REM ER THAN MACHINE ERROR IS LIKELY.  THE ERROR COULD BE         F5G02980
       REM A.  TRANSFER TO A NON-EXECUTABLE INSTRUCTIOR.                F5G02990
       REM B.  UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM.           F5G03000
       REM C.  LAST STATEMENT OF A DO IS A TRANSFER.                    F5G03010
       REM D.  INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT.    F5G03020
 TPCT  HTR -                                                            F5G03030
SE40   SXD TPCT,0     RESET TARECOUNT                                   F5G03040
       LXD SEV5,4 RESTORE RETURN INDEX                                  F5G03050
       CLA SEV2 GET N AGANIN                                            F5G03060
       TRA SE41                                                         F5G03070
       REM  THE ITEM MIGHT BE IN STORAGE                                F5G03080
SE41   SUB 1,2 N-N(0)                                                   F5G03090
       TMI SE42 DOES IT LIE IN STORAGE                                  F5G03100
       LRS 35 YES,INDEX=                                                F5G03110
       MPY 5,2 COM((N-N(0).S)                                           F5G03120
       LLS 17                                                           F5G03130
       SUB SEK5                                                         F5G03140
       PAX 0,1                                                          F5G03150
       TRA 1,4                                                          F5G03160
       REM  DRUM TRANSFER SUBROUTINE PROPER                             F5G03170
SE26   SXD SEV4,4 STORE RETURN INDEX ANO ITEM NO. TO BE TRANSFERRED     F5G03180
       STO SE25 STORE READ-WRITE INDICATOR                              F5G03190
       LDQ 3,2 FORM                                                     F5G03200
       MPY 5,2 N(S)*S+1                                                 F5G03210
       LLS 17 ANO                                                       F5G03220
       ADD ONEA STORE                                                   F5G03230
       STO SEV1 IT                                                      F5G03240
       CLA ZERO FORM                                                    F5G03250
       LDQ 1,2 ((N(0)/N(S))                                             F5G03260
       DVP 3,2     (N(S)(S+1))                                          F5G03270
       MPY SEV1                                                         F5G03280
       STQ SEV1 INITIAL DRUM ADDRESS                                    F5G03290
       CLA 6,2 =D(0)+(N0N(S))$(N(S).S=1)                                F5G03300
       ADD SEV1                                                         F5G03310
       STO SEV7 SET LDA INSTRUCTIONS                                    F5G03320
       ALS 7 COMPUTE THE                                                F5G03330
       COM  DRUM SELECTION                                              F5G03340
       PDX 0,1 INDEX                                                    F5G03350
       TSX SE25,4 SELECT DRUM                                           F5G03360
       CLA 2,2                                                          F5G03370
       SUB 1,2 (N(1)-N(0))S                                             F5G03380
       LRS 53 INTO MQ                                                   F5G03390
       MPY 5,2                                                          F5G03400
       CLA SEV7 FORM NO. OF                                             F5G03410
       ANA SEK2 WORDS LEFT ON                                           F5G03420
       SUB SEK3 DRUM GROUP                                              F5G03430
       SSP                                                              F5G03440
       TLQ SE31 MUST BLOCK BE SPLIT                                     F5G03450
       PAX 0,4 YES                                                      F5G03460
       ADD 7,2 SET INDEX AND                                            F5G03470
       STA SE27 COMPUTE ADDRESS OF 1ST CPY                              F5G03480
       SUB 7,2 COMPUTE NO.                                              F5G03490
       STQ SEV1 OF WORDS IN                                             F5G03500
       SUB SEV1 2 ED TRANSFER                                           F5G03510
       SUB ONEA                                                         F5G03520
       SSP                                                              F5G03530
       STO SEV1                                                         F5G03540
       ADD SE27                                                         F5G03550
       STA SE29 SET 2 ED CPY                                            F5G03560
SE28   LDA SEV7                                                         F5G03570
SE27   CPY SET,4 TRANSFER                                               F5G03580
       TIX SE27,4,1 1ST BLOCK OF WORDS                                  F5G03590
       TIX SE30,1,1 DECREASE C(1) BY 1                                  F5G03600
SE30   TSX SE25,4 SELECT DRUM                                           F5G03610
       LXA SEV1,4                                                       F5G03620
SE29   CPY SET,4 TRANSFER                                               F5G03630
       TIX SE29,4,1 2 EDBLOCK                                           F5G03640
SE34   LXD SEV4,4                                                       F5G03650
       TRA 1,4 RETURN                                                   F5G03660
SE31   LLS 35 (N(1)-N(0)).S+1                                           F5G03670
       ADD ONEA WORDS ARE TO                                            F5G03680
       PAX 0,4 BE TRANSFERED                                            F5G03690
       ADD 7,2                                                          F5G03700
       STA SE32                                                         F5G03710
SE33   LDA SEV7                                                         F5G03720
SE32   CPY SET,4                                                        F5G03730
       TIX SE32,4,1                                                     F5G03740
       TRA SE34                                                         F5G03750
SE25   RDS 192,1 (OR WRS) DRUM                                          F5G03760
       TRA 1,4 SELECTION SUBROUTINE.                                    F5G03770
       REM  CHECK SUM SUBROUTINL                                        F5G03780
SE22   CLA 2,2                                                          F5G03790
       SUB 1,2 COMPUTE                                                  F5G03800
       LRS 35 (N(1)-N(0)).S                                             F5G03810
       MPY 5,2 THE NUMBER OF WORDS                                      F5G03820
       LLS 17 TO BE SUM                                                 F5G03830
       PAX 0,1 CHECKED                                                  F5G03840
       ADD 7,2 C0MPUTE AND STORE                                        F5G03850
       REM ADDRESS OF WORD                                              F5G03860
       STA SE23 FOLLOWING LAST TABLE WORD.                              F5G03870
       CLA ZERO CLEAR SUM CHECK.                                        F5G03880
SE23   ACL -,1     FORM THE                                             F5G03890
       TIX SE23,1,1 SUM CHECK.                                          F5G03900
       SLW SEV3                                                         F5G03910
       TRA 1,4                                                          F5G03920
SEK    WRS 192,1 WRS,192,1                                              F5G03930
SEK1   RDS 192,1 RDS,192,1                                              F5G03940
SEK2   HTR 2047 MASK TO EXTRACT LAST 11 BIT                             F5G03950
SEK3   HTR 2048 2048 IN ADDR.                                           F5G03960
SEK4   HTR 0,0,-1         IN DECR. PART                                 F5G03970
SEK5   HTR 0,1 2 15                                                     F5G03980
 SEV1       NS.S+1 TEMP STORAGE                                         F5G03990
 SEV2       STORAGE OF N (DECR.)                                        F5G04000
 SEV3       STORAGE OF CK SUM.                                          F5G04010
 SEV4       RETURN FROM SE 26                                           F5G04020
 SEV5       RETURN FROM SE                                              F5G04030
 SEV6       STORE N TO BE TRANSFERRED                                   F5G04040
 SEV7       INITIAL DRUM ADDR.                                          F5G04050
ZERO   OCT 0                                                            F5G04060
ONEA   HTR 1                                                            F5G04070
ONED   HTR 0,0,1                                                        F5G04080
       REM  CONSTANTS USED IN S1                                        F5G04090
S1K2   HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF.                   F5G04100
S1K3   HTR 8 NO. OF S3 VARIABLES SAVED.                                 F5G04110
C      SYN S1K2                                                         F5G04120
S2K1   HTR 0,0,-1 ONES IN DECR. PART.                                   F5G04130
S2K2   HTR 0,0,1 CONST. USED TO TEST FOR LX.                            F5G04140
S3K1   OCT -377777777777 END LOOP LIST SENTENIAL                        F5G04150
S3K2   HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS     IS BB           F5G04160
S3K3   HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST                   F5G04170
S3K4   OCT 777777 MASK TO EXTRACT LAST 1/2 WORD.                        F5G04180
S3K5   HTR 0,0,-1 MASK T0 EXTRACT INST. TYPE                            F5G04190
       REM CONSTANTS OF S4                                              F5G04200
S4K1       CMTL SIZE OF STORAGE FOR TAG TABLE.                          F5G04210
S4K2   HTR 15 NO OF TAGS PER RECORD.                                    F5G04220
S4K3   HTR CMTAG                                                        F5G04230
       REM  THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5               F5G04240
LK1    OCT 777776 E,HASH SYMBOL                                         F5G04250
LK2    OCT -200000000000 CONSTANTS FOR EXTRACTING                       F5G04260
LK3    OCT -300000000000 1ST 2,3 BITS OF WORD RESPT.                    F5G04270
       REM CONSTANTS FOR MATCHING SUBROUTINE                            F5G04280
S5K1   OCT 777777 PHI,EMPTINESS                                         F5G04290
S5K2   OCT 777775 CONSTANT USEO TO TEST FOR REAL TAGS                   F5G04300
S5K3   OCT -0 -0                                                        F5G04310
S5K4   HTR 2 +2                                                         F5G04320
S5K5   HTR 3 +3                                                         F5G04330
S5K6   HTR 8 +8                                                         F5G04340
S9K1   HTR 4 +4                                                         F5G04350
S9K2       0,1 MASK FOR PHI DIGIT NO. 1                                 F5G04360
           0,2 MASK FOR PHI DIGIT NO. 2                                 F5G04370
           0,4 MASK FOR PHI DIGIT NO. 3                                 F5G04380
S9K3   HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR.                        F5G04390
SAK1       4094            CONST  USED TO TEST NON EXISTENT BB          F5G04400
       REM CONSTANTS OF SB                                              F5G04410
SBK1   OCT +001000000000 CONST. USED TO GENERATE SX BIT. AD.            F5G04420
SBK2   HTR -1 USED TO EXTRACT ADOR.                                     F5G04430
SBK3   HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER                 F5G04440
SCK1   HTR 0,0,LPLST                                                    F5G04450
FK1    OCT 177777077777           TRANSPARANT REGION CONST              F5G04460
FK2    OCT 277777077777       OPAQUE REGION CONST                       F5G04470
FK3    HTR 0,7 MASK T0 EXTRACT TAG.                                     F5G04480
FK4    OCT 177777777777 CONST TO TEST FOR OPAQUE REG.                   F5G04490
FK5    HTR FP1 LENGTH OF REGION LIST                                    F5G04500
XK3    OCT -0 3 CONSTANTS USED TO                                       F5G04510
       OCT 200000000000 CHANGE REGION WDS.                              F5G04520
       OCT 100000000000 TO INDICATE IRS LX E0.                          F5G04530
XK4    OCT -377776000000 E,HASH SYMBOL,1N LQT HALF                      F5G04540
XK5    OCT -300000000000 MASK FOR PREFIX                                F5G04550
XK6    OCT 200000000000                                                 F5G04560
XK9    HTR 9                                                            F5G04570
XK10   SYN XK3 MASK TO EXTRACT 1ST 1N BB FIT.                           F5G04580
XK11   OCT 1000000 CONST. TO GENERAGE LX BIT.                           F5G04590
XK12   HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE                      F5G04600
XK13   HTR 0,0,4 TNX                                                    F5G04610
XK14   HTR 0,0,7 TIX                                                    F5G04620
XK15   HTR 0,0,2 LXP                                                    F5G04630
XK16   HTR 0,4 CONST. TO GENERATE LX BIT.                               F5G04640
XK17   PON              CONST. TO SEPARATE TYPES                        F5G04650
XK18   SYN XK4 E IN LEFT HALF WORD.                                     F5G04660
XK19   OCT -377777000000 MASK LEFT HALF WORD.                           F5G04670
XK20   OCT -377700777777 CONST. TO DELETE PERM. NOS.                    F5G04680
XK21   HTR 0,0,3 CONST. TO TEST FOR DED INST.                           F5G04690
XK22   OCT -377777077777 CONST. TO DELETE PHIS.                         F5G04700
XK23   HTR 0,1                                                          F5G04710
       HTR 0,2                                                          F5G04720
       HTR 0,4                                                          F5G04730
 S1V1       TEMP. STORAGE FOR                                           F5G04740
       HTR -                                                            F5G04750
       HTR -              1ST 9 VARIABLES                               F5G04760
       HTR -              IN S3                                         F5G04770
       HTR -                                                            F5G04780
       HTR -                                                            F5G04790
       HTR -                                                            F5G04800
       HTR -                                                            F5G04810
 S1V3                     THE CLA IN S3                                 F5G04820
 S1V4                     RETURN INDEX                                  F5G04830
 S1V5                     (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R.       F5G04840
 S1V6                     TEMP                                          F5G04850
 S1V7                     STORAGE                                       F5G04860
       REM THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS,   F5G04870
       REM AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880
       REM SYMBOL 777776. (HASH MEANS THE REGISTER IS NOT EMPTY BUT     F5G04890
       REM ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900
       REM DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910
       REM IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920
 IR1                      THE 3 I.R.S IN                                F5G04930
 IR2                      THE LAST 1/2 OF REGISTER                      F5G04940
 IR3                                                                    F5G04950
 IRR                      HOLDS 3,2,1 IF IR1,2,3 SELECTED               F5G04960
IND1        + OR - ACCORDING AS IR1 EOUND OR IR1 NOT FOUND              F5G04970
IND2       + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND               F5G04980
IND3       + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND               F5G04990
 IN4                  +F OR - IF IR HAS OR HASNT BEEN FOUND             F5G05000
       REM  VARIABLES OF S3 SUBROUTINE                                  F5G05010
 S3V1       LOCATION OF 1ST TAG IN BB                                   F5G05020
 S3V2       TAG COUNTER,IN DECR. PART.                                  F5G05030
 S3V3       + NO. OF TAGS LEFT IN BB AFTER T1X,OR-                      F5G05040
 S3V4       LOOP LIST INDEX.                                            F5G05050
 1TAG       THE TAN-TAG                                                 F5G05060
 TPE        THE TYPE OF INSTR.                                          F5G05070
 INTAG      TAG + INSTR. TYPE (ENTRY IN TAG LIST)                       F5G05080
 S3V5       LOOP LIST QUANTITY                                          F5G05090
 S3V8       RETURN INDEX                                                F5G05100
 S3V6       (1ST TAG IN BB-1ST TAG IN C.M.)                             F5G05110
 S3V7       NO. OF WORDS LEFT IN C.M.                                   F5G05120
 S3V9       (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB)                  F5G05130
       REM  VARIABLES OF S4                                             F5G05140
 S4V1       LOC OF 1ST TAG IN CMTAG                                     F5G05150
 S4V2       LOC OF 1ST TAG IN NEX, RECORD (TAPE POS.)                   F5G05160
 S4V3       (LOC OF LAST TAG)+ 1                                        F5G05170
       REM  ABOVE MUST BE SET AT START.                                 F5G05180
 S4V4       (LOC. OF 1ST TAG IN BB-POS OF TAPE)                         F5G05190
       REM  VARIABLES FOR MATCHING SUBROUTINE S5                        F5G05200
IR4         TEMP. STORAGE FOR C (IR1)                                   F5G05210
IR5         TEMP. STORAGE FOR C (IR2)                                   F5G05220
IR6         TEMP. STORAGE FOR C (IR3)                                   F5G05230
ENC         COUNTER OF =                                                F5G05240
IRC         COUNTER OF =                                                F5G05250
       REM THE IN 1,2,3,  EN4,5,6 CELLS ARE LOAOED BY THE S5 ROUTINE    F5G05260
       REM FOR PERMUTATION OF INDEX REGISTER ASSIGIMENT THROUGHOUT AN   F5G05270
       REM ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST.   F5G05280
       REM OPTIMIZED MATCH TO CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290
       REM PERMUTING THE ENTIRE REGION AS NECESSARY.  THE IN1,2,3       F5G05300
       REM AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3,  EX1,2,3 F5G05310
       REM ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3,   F5G05320
       REM AC1,2,3,  LX1,2,3.  FOR EXAMPLE EN4 IS 3,2,OR. DEPENDING ON  F5G05330
       REM WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3.  INVERSELY, F5G05340
       REM IN1 IS 3,2,OR1 FOR THE CORRESPON0ENT OF IR1 EQUAL TO EN1,2,3.F5G05350
IN1         INDEX OF CORRES OF IR1                                      F5G05360
IN2         INDEX OF CORRES OF IR2                                      F5G05370
IN3         INDEX OF CORRES OF IR3                                      F5G05380
EN4         INDEX OF CORRES OF EN1                                      F5G05390
EN5         INOEX OF CORRE8 OF EN2                                      F5G05400
EN6          INDEX OF CORRES OF EN3                                     F5G05410
EN1          THE ENTRANCE REQUIREM                                      F5G05420
EN2          ENTS EN1,ENZ,EN3.                                          F5G05430
EN3                                                                     F5G05440
S5V1         TEMP. STORE FOR RETURN INDEX.                              F5G05450
S5V2         TEMP STORE FOR LOOP LIST QUANT.                            F5G05460
S9V1         TEMP. STORE FOR BB NO.                                     F5G05470
S9V2         TEMP. STORE FOR RETURN INDEX                               F5G05480
S9V4         TEMP. STORE FOR REGION WORD.                               F5G05490
       REM  VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS)    F5G05500
SAV1        TEMP STORE FOR PERMUTATION NOS.                             F5G05510
SAV2        RETURN INDEX.                                               F5G05520
SAV3        TEMP. STORE FOR REGION WORD.                                F5G05530
       REM THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540
       REM HAS ALREADY BEEN TREATED.                                    F5G05550
EX1         3 EXIT CONDITIONS                                           F5G05560
EX2                                                                     F5G05570
EX3                                                                     F5G05580
       REM THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590
ACT1        3 ACTIVE                                                    F5G05600
       HTR -              INDICATORS                                    F5G05610
       HTR -                                                            F5G05620
       REM  VARIABLES OF SB                                             F5G05630
SBV1        RETURN INDEX                                                F5G05640
SBV2        TEMP. STORAGE.                                              F5G05650
SBV3        TEMP. STORAGE.                                              F5G05660
SBV4        INDEX OF REGISTER WHICH IS ACTIVE.                          F5G05670
SBV5        STORAGE FOR PERMUTATION NOS.                                F5G05680
SCV1        RETURN INDEX                                                F5G05690
SCV2        INDEX OF BB.                                                F5G05700
SCV3        INDEX OF POSITION IN LOOP LIST                              F5G05710
ACIND                 + OR - MEANS 2ED OR ACTIVE PASS                   F5G05720
SDV1        STORE FOR RETURN INDEX.                                     F5G05730
SDV2        INDEX OF ACTIVE I.R.                                        F5G05740
SDV3        THE PERMUTATION NOS.                                        F5G05750
SDV4        TEMP. STORE FOR INDEX OF BB                                 F5G05760
SFV1        ACTIVE INOICATOR FORMED HERE.                               F5G05770
SFV2        RETURN INOEX.                                               F5G05780
SGV1                       RETURN INDEX                                 F5G05790
SGV2                       PERMUTED REGION WORD                         F5G05800
FV1         HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY)            F5G05810
FV2         BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.)                   F5G05820
FV3         PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.)                   F5G05830
FV4         WORD HAVING REGION NO. (5TH BB WORD)                        F5G05840
FV5         CURRENT BB NO. BEING CONSIDERED. (ADDR.)                    F5G05850
FV6         RETURN INDEX OF F1,F80                                      F5G05860
FV7         PRED. NO. BEING CONSIDERED IN B.B. (ADDR.)                  F5G05870
FV8         FIRST PRED. FROM NEXT B.B. (ADDR.)                          F5G05880
FV9        0,0,-    TEMP STORE FORCURRENT SUCC IN DECR ONLY             F5G05890
FV10       0,0,-     TEMP STORE IN DECR ONLY, CURRENT SUCC              F5G05900
FV101       HIGHEST FREQ. IN BB (PRED. TABLE ENTRY)                     F5G05910
FV102       BB NO. BEING CONSIDERED. (ADDR.)                            F5G05920
FV103       PRED. NO. (0TH WORD FROM BB) IADDR.)                        F5G05930
FV104       WORD HAVING REGION. NO.                                     F5G05940
LPIND                   + OR - IF IT ISNT OF IS A LOOP                  F5G05950
LV1         THE CONDITIONS OF THE I.R.S                                 F5G05960
LV2         AT END OF THE                                               F5G05970
LV3         1ST LXING PASS.                                             F5G05980
LV4         THE LO0P LIST QUANTITY                                      F5G05990
LV5         WORD FROM BB WITH PRED. AND SUCC. LOCS                      F5G06000
       REM  VARIABLES OF 2ED LXING PASS.                                F5G06010
       REM ACTIVITY.  WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS,   F5G06020
       REM IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX  F5G06030
       REM REGISTER BECOMES ACTIVE.  THIS IS PLUS ACTIVITY.  IF THE SAMEF5G06040
       REM REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED  F5G06050
       REM TO RECORD AN SX NECESSARY.  SINCE THE ACTIVITY IS PLUS, THE  F5G06060
       REM SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE     F5G06070
       REM INSTRUCTION.  THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING   F5G06080
       REM CARE OF THE PROBLEM.  AT THE END OF LPLST, IF THE INDEX      F5G06090
       REM REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE     F5G06100
       REM PEGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110
       REM IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120
       REM MINUS.  THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED.  THE F5G06130
       REM APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE        F5G06140
       REM APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150
       REM THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB    F5G06160
       REM ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM  F5G06170
       REM THAT BB.  THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180
       REM INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190
       REM OF SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW      F5G06200
       REM FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT     F5G06210
       REM PROGRAM TIME.                                                F5G06220
       REM THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3.   F5G06230
       REM ZERO...NOT ACTIVE,  PLUS ACTIVITY...ACTIVE INSTRUCTION IN A  F5G06240
       REM BB NOT TREATED UNTIL THIS LPLST.  AC1,2,3 CONTAINS INFO.     F5G06250
       REM FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION.       F5G06260
       REM MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION.    F5G06270
       REM AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK   F5G06280
       REM OUT OF THE REGION.                                           F5G06290
AC1         3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE                     F5G06300
AC2         IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS               F5G06310
AC3         LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE,      F5G06320
       HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR.          F5G06330
       REM THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340
LX1         3 ENTRANCE REQUIREMENTS OF A BB                             F5G06350
LX2         BUILT UP HERE. +0 MEANS                                     F5G06360
LX3         NO ENTRANCE REQU. DETERMINED.                               F5G06370
XV1         IN DECR., INDEX OF CURRENT REGION                           F5G06380
XV2         THE NEW REGION WORD.                                        F5G06390
XV3         THE WORD POSITION IN STAG                                   F5G06400
XV4         THE DIGIT INDEX WITHIN THE WORD.                            F5G06410
XV5         THE LOCATION OF CURRENT TAG (INSTR.)                        F5G06420
XV6         NEAR X07,C.F. OF TNX BRANCH,NEAR X85, TAG                   F5G06430
XV7         X07 TO X09+,INDEX OF BB,NEAR X85,TAG                        F5G06440
XV8         INDEX OF BB NEAR X33                                        F5G06450
       REM PERMUTATION.  WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN  F5G06460
       REM ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AN0 BBB MUST F5G06470
       REM BE UPDATED.  INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION     F5G06480
       REM NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING    F5G06490
       REM REQUIRES ONLY THESE NUMBERS TO BE CHANGED.  IN SECTION 5 PARTF5G06500
       REM 2 WHFN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES  F5G06510
       REM THEMSELVES ARE ACTUALLY UPDATED.         ,                   F5G06520
XV9         THE PERMUTATION NOS.                                        F5G06530
XV10        INDEX 0F I.R. IN BB CONSIDERED.                             F5G06540
XV11                                                                    F5G06550
XV12                                                                    F5G06560
XV13        INDEX 0F PARTICULAR BB X40 ON                               F5G06570
XV14        TEMP. STORE FOR 2 INDEXES                                   F5G06580
XV15        WHILE USING SUBROUTINE.                                     F5G06590
XV16        TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON                 F5G06600
XV17        TEMP. STORE FOR OLD REGION WD.,X74                          F5G06610
XV18        IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR.                   F5G06620
XV19           TEMP STORE FOR PREVIOUS LPLST QUANTITY                   F5G06630
XV20              TEMP STORE IN DECR. ONLY                              F5G06640
XV21              TEMP STORE FOR TAG NEAR X43                           F5G06650
XV22             NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED       F5G06660
XV23            DECR ONLY , TEMP STORE FOR REGION INDEX                 F5G06670
XV24                     0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION     F5G06680
AV1         TEMP. STORE FOR PRED. TABLE ENTRY.                          F5G06690
AV2         TEMP. STORE FOR INDEX OF I.R.                               F5G06700
AV3         TEMP. STORE FOR PERM. NOS.                                  F5G06710
       REM THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST   F5G06720
       REM (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD         F5G06730
       REM THROUGH LPLST.  THE IR WHOSE CONTENTS ARE REQUIRED AGAIN     F5G06740
       REM SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE.  THESE       F5G06750
       REM ROUTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO      F5G06760
       REM SELECT AN IR.                                                F5G06770
S111   SSM  SET INDICATOR TO-MEANING                                    F5G06780
       TRA S109 SEARCH FOR LEAST REPLACEABLE I.R.                       F5G06790
S1     SSP  SET INDICATOR TO + MEANING                                  F5G06800
S109   STO S1V5 SEARCH FOR MOST REPLACEABLE I.R.                        F5G06810
       SXD S1V4,4 STORE RETURN INDEX.                                   F5G06820
       SSM  SET                                                         F5G06830
       STO IND1 INDICATORS                                              F5G06840
       STO IND2 TO                                                      F5G06850
       STO IND3 NOT                                                     F5G06860
       STO IN4 FOUND.                                                   F5G06870
       LXD S123,2 SET TO LOOP FOR EMPTY I.R.                            F5G06880
S119   LXA S5K5,1        SET COUNT TO 3, N TO 1                         F5G06890
S120   CLA IR1+3,1 IS IRN EMPTY OR                                      F5G06900
       CAS 0,2 (FILLED WITH HASH)                                       F5G06910
S121   TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR.                   F5G06920
       TRA S124 YES,                                                    F5G06930
S122   TIX S120,1,1 NO,COUNT TO 3,N=N+1                                 F5G06940
S123   TXH S127,2,-S5K1 HAVE WE L0OKEO FOR HASH                         F5G06950
       LXD S121,2 NO,SET TO LOOP FOR HASH.                              F5G06960
       TRA S119                                                         F5G06970
S124   CLS S1V5 LOOK1NG FOR MOST REPLACEABLE                            F5G06980
       TMI S129 I.R.                                                    F5G06990
       STO IND1+3,1 NO, RECORD IRN ELIMINATED                           F5G07000
       LDQ IN4                                                          F5G07010
       STO IN4 RECORD SOME IR ELIMINATED                                F5G07020
       TQP S128 HAS AN IR BEEN ELIMINATED BEFORE                        F5G07030
       TRA S122                                NO,                      F5G07040
S128   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G07050
S126   CLA IND1+3,1 HAS IRN                                             F5G07060
       TPL S125 BEEN ELIMINATED                                         F5G07070
S129   SXD IRR,1 NO,SELECT IRN                                          F5G07080
       TRA 1,4 AND RETURN.                                              F5G07090
S125   TIX S126,1,1 COUNT TO 3,N=N+1                                    F5G07100
S130   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR.                           F5G07110
S127   CLA S39                                                          F5G07120
       STO S1V3 STORE ASIDE                                             F5G07130
       LXA S1K3,4 THE                                                   F5G07140
S112   CLA S3V1+8,4 STATE                                               F5G07150
       STO S1V1+8,4 OF THE                                              F5G07160
       TIX S112,4,1 S3 ROUTINE.                                         F5G07170
S11    TSX S3,4 GET NEXT TAG                                            F5G07180
       TRA S103 COME HERE IF TAG NOT GOT.                               F5G07190
       CLA S1V1                                                         F5G07200
       CAS S3V1 IS THE LOOP COMPLETED                                   F5G07210
       TRA S104 NO                                                      F5G07220
       TRA S135 PERHAPS                                                 F5G07230
S104   TSX S2,4 NO                                                      F5G07240
       TRA S16 COME HERE IF IR DECIDED ON                               F5G07250
       TRA S11 COME HERE IF NOT DECIDED ON                              F5G07260
S135   CLA S1V1+1 IS THE LOOP COMPLETED                                 F5G07270
       CAS S3V2                                                         F5G07280
       TRA S104                                                         F5G07290
       TRA S102 YES                                                     F5G07300
       TRA S104                                                         F5G07310
S103   CAS S3K1 IS THIS AN END LOOP LIST                                F5G07320
       TRA S105 NO                                                      F5G07330
       TRA S101 YES                                                     F5G07340
S105   CLA S3V5 GET LOOP LIST QUANTITY AGAIN.                           F5G07350
       CAS S3K2 IS IT A BB                                              F5G07360
       NOP  NO,IT IS EITHER A TRANSPARENT                               F5G07370
       TRA P001              OR OPAQUE REGION                           F5G07380
       TRA S11 YES                                                      F5G07390
  P001 CAS S1V1+7                                                       F5G07400
       TRA S136                                                         F5G07410
       TRA S102                                                         F5G07420
S136   TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU.                       F5G07430
       LDQ S1K2 MAKE THIS LOOK LIKE A                                   F5G07440
       STQ TPE PASSIVE REFERENCE.                                       F5G07450
       LXA S5K5,4 SET COUNT TO 3.                                       F5G07460
S115   CAL BBB+2,1     PUT THIS TAU TAG                                 F5G07470
       ARS 18 IN LOCATION                                               F5G07480
       SLW 1TAG           TAG                                           F5G07490
       SXD S1V6,1 STORE THE                                             F5G07500
       SXD S1V7,4 INDEXES.                                              F5G07510
       TSX S2,4 TRY TO SELECT AN I.R.                                   F5G07520
       TRA S16 COME HERE IF I.R. SELECTED.                              F5G07530
       LXD S1V6,1 AND HERE IF NOT. RESTORE                              F5G07540
       LXD S1V7,4 THE INDEXES.                                          F5G07550
       TXI S114,1,-1     DECREASE ENTR. INDEX                           F5G07560
S114   TIX S115,4,1 COUNT TO 3.                                         F5G07570
       TRA S11                                                          F5G07580
S102   CLA IND1 HAS C(IR1) BEEN                                         F5G07590
       TPL S13 FOUND (ELIMINATED)                                       F5G07600
S18    LXA S5K5,4 NO,SELECT                                             F5G07610
S15    SXD IRR,4 IR1.                                                   F5G07620
S16    LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR)                          F5G07630
S113   CLA S1V1+8,4 TO STATE                                            F5G07640
       STO S3V1+8,4 BEFORE                                              F5G07650
       TIX S113,4,1 S1 WAS USED.                                        F5G07660
       CLA S1V3                                                         F5G07670
       STO S39                                                          F5G07680
       TSX S4,4 MAKE SURE SAME TAGS ARE IN CM.                          F5G07690
       LXD S1V4,4                                                       F5G07700
S14    TRA 1,4 RETURN                                                   F5G07710
S13    CLA IND2 HAS IR2 BEEN                                            F5G07720
       TPL S107 FOUND (ELIMINATED)                                      F5G07730
S108   LXA S5K4,4 NO,SELECT                                             F5G07740
       TRA S15 IR2.                                                     F5G07750
S107   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR                            F5G07760
       REM  OF SOME KIND.                                               F5G07770
S101   LDQ LPIND IS THIS                                                F5G07780
       TQP S102 A LOOP                                                  F5G07790
       TRA S11 YES                                                      F5G07800
 S2    CLA 1TAG           PUT TAU-TAG IN AC.                            F5G07610
       LXA S5K5,1 SET COUNT TO 3.                                       F5G07820
S22    LDQ IND1+3,1                                                     F5G07830
       TQP S21 BEEN FOUND                                               F5G07840
       CAS IR1+3,1     NO, IS TAU TAG EQUAL                             F5G07850
       TRA S21 NO,TO C(IRN)                                             F5G07860
       TRA S24 YES                                                      F5G07870
S21    TIX S22,1,1 NO.                                                  F5G07880
       TRA 2,4 RETURN TO L(TSX)+2                                       F5G07890
   S24 CLA TPE               IS IT A DED, LXP, OR LX CLASS.             F5G07900
       CAS XK21              IF SO, MAKE P=1, MAKING TEST=TMI S25       F5G07910
       ORA S5K3              WHILE IF SO MAKE TEST TPL S25.             F5G07920
       NOP                   THUS GO TO S23 AND USE IT IF LXP,DED,LX    F5G07930
       STP TEST              AND TAGS LEFT IN BB AFTER TIX, OR          F5G07940
       CLS S1V5              IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950
  TEST TMI S25               THIS MIGHT BE A TPL S25.                   F5G07960
S23    SXD IRR,1 RECORD IRN INDEX.                                      F5G07970
       TRA 1,4                                                          F5G07980
S25    LDQ ZERO      RECORD IRN FOUND OR ELIM                           F5G07990
       STQ IND1+3,1                                                     F5G08000
       CLS IN4       HAS ONE OTHER I R BEEN                             F5G08010
       TMI S26 (FOUND/ELIM)                                             F5G08020
       STO IN4                                                          F5G08030
       TRA 2,4                                                          F5G08040
S26    LXA S5K5,1 SEARCH FOR THE                                        F5G08050
S27    CLA IND1+3,1 I.R. WHICH HASNT                                    F5G08060
       TMI S23 BEEN (FOUND/ELIM) YET.                                   F5G08070
       TIX S27,1,1                                                      F5G08080
       TSX 4,4   NOT FOUND, DIAGNOSTIC                                  F5G08090
       REM THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES.   F5G08100
       REM IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES  F5G08110
       REM THE TAG FEED EXIT.  IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120
       REM LPLST AND TAKES THE LPLST FEED EXIT.  WHEN IT COMES TO A     F5G08130
       REM LPLST ITEM  WHICH IS A BB ANO NOT IN A REGION, IT GOES TO    F5G08140
       REM FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150
       REM THAT BB HAS BEEN FED.  THEN IT RETURNS TO LPLST FEED.  WHEN  F5G08160
       REM SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE     F5G08170
       REM BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE.  IT USES   F5G08180
       REM THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190
S3     LXD S3V2,1 ARE THERE ANY                                         F5G08200
       TIX S39,1,1                                                      F5G08210
       SXD S3V8,4 NO,STORE RETURN INDEX                                 F5G08220
       CLA S3V3                                                         F5G08230
       STO S3V9                                                         F5G08240
       TPL S300 ARE THERE ANY MORE TAGS IN BB                           F5G08250
       LXD S3V4,1 NO                                                    F5G08260
       CLA S3V5       WAS THE LAST THING                                F5G08270
       TPL S306       AN END LPLST                                      F5G08280
       LXD S3K3,1     YES, RESET LPLST INDEX                            F5G08290
S306   CLA LPLST+S3P1,1      GET LOOP LIST QUANTITY                     F5G08300
       STO S3V5 QUANTITY.                                               F5G08310
       TXI S31,1,-1                                                     F5G08320
S31    SXD S3V4,1 THE INDEX.                                            F5G08330
       CAS S3K1 IS THIS END OF LOOP LIST                                F5G08340
       TRA S32 NO,                                                      F5G08350
       TRA S35 YES,                                                     F5G08360
S32    CAS S3K2                                                         F5G08370
       NOP  NO                                                          F5G08380
       TRA S305                                                         F5G08390
       TRA S34 YES                                                      F5G08400
S305   LXD S3V8,4                                                       F5G08410
       CLA S3V5 RETURN WITH LOOP                                        F5G08420
S35    TRA 1,4        LIST QUANTITY                                     F5G08430
S34    TSX SE,4 GET INDEX OF BB                                         F5G08440
       CLA BBB+1,1                                                      F5G08450
       ANA S3K4 GET AND STORE THE                                       F5G08460
S303   STO S3V1 TAG LOCATION.                                           F5G08470
       TSX S4,4 GO TO PUT TAG IN CM.                                    F5G08480
       STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.)                      F5G08490
       SUB S4K1 FORM NO. OF                                             F5G08500
       SSP  WDS LEFT IN C.M.                                            F5G08510
       STO S3V7                                                         F5G08520
       CLA S3V5 GET THE                                                 F5G08530
       ADD ONED LOC. OF 1ST                                             F5G08540
       TSX SE,4 TAG IN                                                  F5G08550
       CLA BBB+1,1 NEXT BB.                                             F5G08560
       ANA S3K4                                                         F5G08570
       SUB S3V1 IS NO. OF TAGS IN BB LESS                               F5G08580
       CAS S3V7 THAN OR EQUAL TO SPACE IN C.M.                          F5G08590
       TRA S304                                                         F5G08600
       TRA S36 YES,                                                     F5G08610
       TRA S36 YES,                                                     F5G08620
S304   SUB S3V7      STORE S  EXCESS OF TAGS                            F5G08630
       STO S3V3                                                         F5G08640
       CLA S3V7                                                         F5G08650
S302   PAX 0,1 SET COUNT OF NO. OF TAGS.                                F5G08660
S37    TXI S38,1,1                                                      F5G08670
S38    SXD S3V2,1                                                       F5G08680
       ADD S4K3 SET ADDRESS OF                                          F5G08690
       ADD S3V6 CLA                                                     F5G08700
       STA S39 INSTRUCTION.                                             F5G08710
       LXD S3V8,4                                                       F5G08720
       CLA S3V9 IS THIS A                                               F5G08730
       TPL S3 NEW BB                                                    F5G08740
       CLA S3V5 YES,RETURN WITH                                         F5G08750
       TRA 1,4 LOOP LIST QUANTITY.                                      F5G08760
S300   CLA S4V1 NEXT TAG NEEDED HAS                                     F5G08770
       ADD S4K1 LOC. (S+1ST TAG IN C.M.)                                F5G08780
       TRA S303                                                         F5G08790
S36    LDQ S3K1                                                         F5G08800
       STQ S3V3                                                         F5G08810
       TRA S302                                                         F5G08820
S39    CLA -,1 GET TAG WORD                                             F5G08830
       SXD S3V2,1                                                       F5G08840
       STO INTAG AND                                                    F5G08850
       ANA S3K4 SEPARATE TYPE                                           F5G08860
       STO 1TAG           FROM                                          F5G08870
       CAL S3K5 TAU-TAG.                                                F5G08880
       ANA INTAG                                                        F5G08890
       STO TPE                                                          F5G08900
       TRA 2,4                                                          F5G08910
S4     CLA S3V1 FORM (LOC. OF 1ST TAG IN BB                             F5G08920
       SUB S4V1 -LOC. OF 1ST TAG IN CM)                                 F5G08930
       TMI S41 IS TAG IN C.M.                                           F5G08940
       CAS S4K1 P0SSIBLY,IS IT FOR SURE                                 F5G08950
       NOP  NO                                                          F5G08960
       TRA S41       NO                                                 F5G08970
       TRA 1,4 YES. RETURN.                                             F5G08980
S41    CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB                          F5G08990
       SUB S4V2 -POSITION OF TAPE)                                      F5G09000
       TMI S42 MUST WE RUN TAPE BACK WORDS                              F5G09010
       STO S4V4 NO,                                                     F5G09020
       CLA S4V3 CAN ALL THE FOLLOWING TAGS                              F5G09030
       SUB S4V2 BE PUT IN C.M.                                          F5G09040
       CAS S4K1                                                         F5G09050
       TRA S401    NO                                                   F5G09060
       TRA S45 YES,GO TO SET COUNT                                      F5G09070
       TRA S45 YES,TO NO. OF TAGS IN BB.                                F5G09080
S401   CLA S4V4                                                         F5G09090
       CAS S4K2 IS TAG IN NEXT RECORD                                   F5G09100
       NOP  NO                                                          F5G09110
       TRA S47                                                          F5G09120
       TRA S44 YES                                                      F5G09130
S47    RTB TAPE       NO, SPACE FWD 1 REC.                              F5G09140
       CLA S4V2 ADJUST TAPE POSITION                                    F5G09150
       ADD S4K2                                                         F5G09160
S43    STO S4V2                                                         F5G09170
       TRA S41                                                          F5G09180
S42    BST TAPE ADJUST TAPE POSITION                                    F5G09190
       CLA S4V2 AFTER BACKSPACING                                       F5G09200
       SUB S4K2 ONE RECORD.                                             F5G09210
       TRA S43                                                          F5G09220
S44    CLA S4K1 SET COUNT TO STORAGE SIZE.                              F5G09230
S45    PAX 0,2                                                          F5G09240
       ADD S4K3 SET CPY                                                 F5G09250
       STA S46 ADDRESS.                                                 F5G09260
       CLA S4V2                                                         F5G09270
       STO S4V1                                                         F5G09280
S49    RTB TAPE                                                         F5G09290
       SXD S407,2 STORE (2) IN CASE OF TAPE CHECK                       F5G09300
       RTT  TURN OFF TAPE                                               F5G09310
       NOP  CHECK.                                                      F5G09320
       CLA S4V2 ADJUST                                                  F5G09330
       ADD S4K2 TAPE                                                    F5G09340
       STO S4V2 POSITION                                                F5G09350
S46    CPY -,2                                                          F5G09360
S407   TXI S48,0,- VALUE OF (2) STORED HERE                             F5G09370
       TSX 4,4 END OF FILE 0CCURRED,DIAGNOSTIC                          F5G09380
       SXD S405,4                                                       F5G09390
       TSX S406,4 CHECK REDUNDANCY BITS                                 F5G09400
       LXD S405,4                                                       F5G09410
       TRA S49                                                          F5G09420
S48    TIX S46,2,1 C0UNT NO. OF WORDS CPYED.                            F5G09430
S409   CPY S4V4 COPY OUT TO                                             F5G09440
       TRA S409 END OF RECORD.                                          F5G09450
       TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC                         F5G09460
       SXD S405,4 CHECK REDUNDANCY BITS                                 F5G09470
       TSX S406,4                                                       F5G09480
       LXD S405,4                                                       F5G09490
       TRA S4                                                           F5G09500
S406   IOD                                                              F5G09510
       RTT                                                              F5G09520
       TRA S402  TRY AGAIN                                              F5G09530
       SXD TPCT,0   RESETS REPEAT COUNT                                 F5G09540
S404   TRA 1,4 RETURN                                                   F5G09550
S402   BST TAPE PREPARE TO READ AGAIN                                   F5G09560
       LXD TPCT,2 FIVE TIMES                                            F5G09570
       TXI S402A,2,1                                                    F5G09580
S402A  SXD TPCT,2                                                       F5G09590
       TXL S402B,2,4 GO ON                                              F5G09600
       TSX 4,4  NO GOOD,DIAGNOSTIC                                      F5G09610
S402B  LXD S407,2 RESET INDEX                                           F5G09620
       RTB TAPE                                                         F5G09630
       LXD S405,4                                                       F5G09640
S405   TXI S46,0,- RETURN ADDR. STORED HERE                             F5G09650
       REM THE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660
       REM OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED   F5G09670
       REM IN LPLST.  IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680
       REM THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND      F5G09690
       REM EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5.  S5 USES F5G09700
       REM S1,S111,S6,S7,S9, AS SUBROUTINES.                            F5G09710
S5     SXD S5V1,4     STORE RETURN INDEX                                F5G09720
       STO S5V2 STORE LOOP LIST QUANTITY                                F5G09730
       TSX S9,4 GET THE ENTRANCE                                        F5G09740
       REM  REQUIREMENTS                                                F5G09750
       CLA S5K3                                                         F5G09760
       LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL            F5G09770
S51    STO ENC+8,2       STORE -0S IN THE                               F5G09780
       TIX S51,2,1 REGISTERS.                                           F5G09790
       LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09800
S54    LXA S5K5,2      SET INDEX FOR IR1, M EQUALS 1                    F5G09810
       CLA EN1+3,1                                                      F5G09820
       CAS S5K1 IS ENN EMPTY                                            F5G09830
       TRA S55 NO                                                       F5G09840
       TRA S58 YES                                                      F5G09850
S55    LDQ IN1+3,2 NO                                                   F5G09860
       TQP S56 IS IRM ASSIGNED                                          F5G09870
       CAS IR1+3,2 NO,IS C(ENM)=C(IRM)                                  F5G09880
       TRA S56 NO.                                                      F5G09890
       TRA S59 YES.                                                     F5G09900
S56    TIX S55,2,1 NO. THRU WITH IRS                                    F5G09910
S57    TIX S54,1,1 YES. THRU WITH ENS                                   F5G09920
       LXA S5K5,2 YES,SET INDEX FOR IR1,M=1                             F5G09930
S510   LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09940
       CLA IR1+3,2                                                      F5G09950
       CAS S5K1 IS IRM EMPTY                                            F5G09960
       TRA S511 NO                                                      F5G09970
       TRA S513 YES                                                     F5G09980
S511   LDQ IN1+3,2 NO                                                   F5G09990
       TQP S514 IS IRM ASSIGNED                                         F5G10000
       CAS S5K2 NO,IS C(IRM)REAL                                        F5G10010
       TRA S514 NO,                                                     F5G10020
       TRA S514 NO,                                                     F5G10030
S512   CLA IRC INCREASE REAL                                            F5G10040
       ADD ONEA UNASSIGNED TAG                                          F5G10050
       STO IRC COUNTER.                                                 F5G10060
       TRA S514                                                         F5G10070
S513   CLA EN4+3,1 HAS ENN                                              F5G10080
       TPL S537 BEEN ASSIGNED                                           F5G10090
       LDQ S5K2 NO,IS C(ENN)                                            F5G10100
       CLA EN1+3,1 REAL                                                 F5G10110
       TLQ S537                                                         F5G10120
       TSX S6,4 YES,MAKE IRM=ENN                                        F5G10130
       TRA S514                                                         F5G10140
S537   TIX S513,1,1 ARE WE THRU WITH EN S                               F5G10150
S514   TIX S510,2,1 YES, ARE WE THRU WITH IRS                           F5G10160
       CLA ENC YES.                                                     F5G10170
       TMI S515 ARE THERE NO EMPTY ENS                                  F5G10180
       CAS S5K4 HOW MANY EMPTY ENS.                                     F5G10190
       TRA S515     3  OR 0                                             F5G10200
       TRA S520 2 EMPTY EN                                              F5G10210
       TRA S526 1 EMPTY EN                                              F5G10220
S515   LXA S5K5,1 3 OR 0 EMPTY EN,N=1                                   F5G10230
S519   LXA S5K5,2 M=1                                                   F5G10240
       CLA EN4+3,1                                                      P5G10250
       TPL S516 ENN ASSIGNED                                            F5G10260
S518   CLA IN1+3,2 NO,IRM                                               F5G10270
       TPL S517 ASSIGNED                                                F5G10280
       TSX S6,4 NO,MAKE IRM=IRN                                         F5G10290
       TRA S516                                                         F5G10300
S517   TIX S518,2,1                                                     F5G10310
S516   TIX S519,1,1                                                     F5G10320
       LXD S5V1,4                                                       F5G10330
       TRA 1,4 RETURN                                                   F5G10340
S520   CLA IRC                                                          F5G10350
       CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS               F5G10360
       TRA S536                                                         F5G10370
       TRA S531 1,NO,GO MATCH EMPTY ENS                                 F5G10380
       TRA S531 2,NO. WITH ANY REAL UNASS. IRS                          F5G10390
S536   TSX S7,4    3, YES, TO COPY  IRS, ETC.                           F5G10400
       TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G10410
       LXA S5K5,1                                                       F5G10420
       TSX S595,4                                                       F5G10430
S521   CLA EN1+3,1 IS EN                                                F5G10440
       CAS S5K1 EMPTY                                                   F5G10450
       TRA S522 NO                                                      F5G10460
       TIX S521,1,1 INDEX COUNTER OF IR S                               F5G10470
S522   TSX S6,4 MADE ENN = IRM                                          F5G10480
S529   LXA S5K5,1                                                       F5G10490
S525   CLA IR4+3,1    REPLACE THE IRS                                   F5G10500
       STO IR1+3,1                                                      F5G10510
       TIX S525,1,1                                                     F5G10520
       TRA S515                                                         F5G10530
S526   LDQ IRC                                                          FS010540
       CLA S5K4 ARE THERE 2 OR 3 REAL                                   F5G10550
       TLQ S530 UNASSNEO TAGS                                           F5G10560
       TSX S7,4 YES,COPY IRS                                            F5G10570
       TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R.                       F5G10580
       TSX S595,4                                                       F5G10590
       LXA S5K5,1 ASSIGN THE EMPTY                                      F5G10600
S527   CLA EN1+3,1 EN TO THE IR                                         F5G10610
       CAS S5K1 SELECTED                                                F5G10620
       TRA S528                                                         F5G10630
       TSX S6,4 BY                                                      F5G10640
S528   TIX S527,1,1 S111.                                               F5G10650
       TRA S529                                                         F5G10660
S530   TQP S531 IS THERE ONE REAL TAG                                   F5G10670
       TRA S515 NO,GO MATCH ARBITRARILY.                                F5G10680
S531   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G10690
       LXA S5K5,2 SET COUNT TO 3,M=1                                    F5G10700
S532   CLA EN1+3,1 IS ENN                                               F5G10710
       CAS S5K1 EMPTY                                                   F5G10720
       TRA S533 NO,                                                     F5G10730
       TRA S534 YES,                                                    F5G10740
S533   TIX S532,1,1 NO,THRU WITH ENS                                    F5G10750
       TRA S515 YES.                                                    F5G10760
S534   CLA IN1+3,2                                                      F5G10770
       TPL S535                                                         F5G10780
       CLA IR1+3,2 NO                                                   F5G10790
       CAS S5K2 IS C (IRM) REAL                                         F5G10800
       NOP  NO                                                          F5G10810
       TRA S535                                                         F5G10820
       TSX S6,4 YES                                                     F5G10830
       TRA S515                                                         F5G10840
S535   TIX S534,2,1 NO                                                  F5G10850
       TRA S533                                                         F5G10860
S58    CLA ENC YESENM EMPTY                                             F5G10870
       ADD ONEA INCREASE COUNTER                                        F5G10880
       STO ENC OF NO. OF EMPTY ENS.                                     F5G10890
       TRA S57                                                          F5G10900
S59    TSX S6,4 MAKE IRM=ENN                                            F5G10910
       TRA S57                                                          F5G10920
S595   LXD IRR,2                                                        F5G10930
       CLA IR1+3,2                                                      F5G10940
       CAS S7K1                                                         F5G10950
       TRA 1,4                                                          F5G10960
       TRA S529                                                         F5G10970
       TRA 1,4                                                          F5G10980
S6     PXD 0,1                                                          F5G10990
       STO IN1+3,2                                                      F5G11000
       PXD 0,2                                                          F5G11010
       STO EN4+3,1                                                      F5G11020
       TRA 1,4                                                          F5G11030
S7     LXA S5K5,1 SET COUNT TO 3,M=1                                    F5G11040
S71    CLA IR1+3,1 COPY ASIDE C(IRM)                                    F5G11050
       STO IR4+3,1                                                      F5G11060
       LDQ IN1+3,1 IRM ASSIGNED                                         F5G11070
       TQP S72                                                          F5G11080
       CAS S5K2 NO, IS C(IRM) REAL                                      F5G11090
       NOP                                                              F5G11100
       TRA S72 NO                                                       F5G11110
       TRA S73 YES.                                                     F5G11120
S72    CLA S7K1 NO,REPLACE CIIRM)                                       F5G11130
       STO IR1+3,1 BY IMPOSSIBLE TAG.                                   F5G11140
S73    TIX S71,1,1 COUNT TO 3,M=M+1                                     F5G11150
       TRA 1,4 RETURN                                                   F5G11160
S7K1   OCT 777760 IMPOSSIBLE TAG VALUE.                                 F5G11170
       REM THE S9 SUBROUT1NE LOADS EN1,2,3.                             F5G11180
S9     SXD S9V2,4 STORE RETURN INDEX.                                   F5G11190
       TSX SE,4 MAKE SURE BB IS IN C+M+                                 F5G11200
       CLA BBB+5,1 GET AND                                              F5G11210
       PDX 0,2 STORE THE                                                F5G11220
       CLA REG,2 REGION                                                 F5G11230
       STO S9V4 WORD+                                                   F5G11240
       LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G11250
       CLA BBB+1,1 STORE THE WORD                                       F5G11260
       STO S9V1 CONTAINING THE PERMATATION NOS.                         F5G11270
S92    CLA S9V1 EXTRACT THE N TH                                        F5G11280
       ARS 3,2 PERMUTATION NO.                                          F5G11290
       ARS 3,2 AND PUT IT                                               F5G11300
       ANA S9K3 IN                                                      F5G11310
       PDX 0,4 INDEX 4.                                                 F5G11320
       CAL S9V4 IS THIS                                                 F5G11330
       ANA S9K2+3,4 AN EMPTY                                            F5G11340
       TZE S93 I.R.                                                     F5G11350
       CLA S5K1 YES,STORE EMPTINESS SYMBOL                              F5G11360
S94    STO EN1+3,4                                                      F5G11370
       TXI S91,1,-1      D0WN THE ENTR. INDEX                           F5G11380
S91    TIX S92,2,1 COUNT TO 3                                           F5G11390
       LXD S9V2,4                                                       F5G11400
       TRA 1,4 RETURN                                                   F5G11410
S93    CAL BBB+2,1 SET THE                                              F5G11420
       ARS 18 ENTRANCE REQUIREMENT.                                     F5G11430
       CAS S5K1 IS IT AN EMPTINESS SYMBOL                               F5G11440
       TRA S94 NO,                                                      F5G11450
       CLA LK1 YES,STORE E,(HASH SYMBOL).                               F5G11460
       TRA S94 NO,                                                      F5G11470
       REM THE SA SUBROUTINE LOADS EX1,2,3 AND ACT1,2,3 FROM EXIT       F5G11480
       REM CONDITIONS AND ACTIVITY BITS IPREFIX, WORD 2, BBB) OF THE    F5G11490
       REM EXIT BB IN A REGION.                                         F5G11500
SA     SXD SAV2,4 STORE RETURN INDEX.                                   F5G11510
       ANA SBK2         IF THIS IS AN IMPOSSIBLE BB,                    F5G11520
       LDQ SAK1         RETURN AT ONCE, DOING NOTHING                   F5G11530
       TLQ 1,4                                                          F5G11540
       TSX SE1,4 MAKE SURE BB IS IN CM.                                 F5G11550
       CLA BBB+5,1 GET AND                                              F5G11560
       PDX 0,2 STORE                                                    F5G11570
       CLA REG,2 REGION                                                 F5G11580
       STO SAV3 WORD.                                                   F5G11590
       CLA BBB+1,1 GET AND STORE THE                                    F5G11600
       STO SAV1 WORD HAVING PERMUTATION NOS.                            F5G11610
       LXA S5K5,2 SET COUNT TO 3,N=N+1                                  F5G11620
SA1    CAL SAV1 PUT PERMUTATION                                         F5G11630
       ARS 3,2 NUMBER                                                   F5G11640
       ARS 3,2 IN                                                       F5G11650
       ANA S9K3 INDEX 4                                                 F5G11660
       PDX 0,4                                                          F5G11670
       CAL SAV3 IS THIS                                                 F5G11680
       ANA S9K2+3,4 AN EMPTY                                            F5G11690
       TZE SA2 EXIT                                                     F5G11700
       CLA S5K1 YES,STORE EMPTINESS SYMBOL.                             F5G11710
SA4    STO EX1+3,4                                                      F5G11720
SA5    CAL SAV1       STORE THE                                         F5G11730
       ALS 3,2 ACTIVE                                                   F5G11740
       SLW ACT1+3,4        INDICATOR                                    F5G11750
       TXI SA3,1,-1                                                     F5G11760
SA3    TIX SA1,2,1 COUNT TO 3                                           F5G11770
       LXD SAV2,4                                                       F5G11780
       TRA 1,4          RETURN                                          F5G11790
SA2    CAL BBB+2,1                                                      F5G11800
       ANA S3K4 IS THIS                                                 F5G11810
       CAS S5K1 AN EMPTY SYMBOL                                         F5G11820
       TRA SA4 NO                                                       F5G11830
       CLA LK1 YES REPLACE BY E.                                        F5G11840
       TRA SA4 NO                                                       F5G11850
       REM THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860
       REM COMPILATION.  THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS   F5G11870
       REM EXAMINED.  IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB     F5G11880
       REM ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE    F5G11890
       REM LINK OUT OF THE REGION.  IF IT IS POSITIVE (ACTIVE INSTRUC.  F5G11900
       REM IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG     F5G11910
       REM TABLE,AT THE ACTIVE INSTRUCTION.  THE APPROPRIATE AC1,2, OR 3F5G11920
       REM IS ALSO TURNED OFF BY SB.                                    F5G11930
SB     SXD SBV4,1 STORE INDEX OF ACTIVE I.R+                            F5G11940
       SXD SBV1,4 STORE INDEX OF RETURN,                                F5G11950
       CLA AC1+3,1 IS THE ACTIVE THING                                  F5G11960
       TPL SB1 AN INSTRUCTION                                           F5G11970
       PDX 0,1 NO                                                       F5G11980
       CLA LPLST+S3P1,1 GET + STORE                                     F5G11990
       CAS S3K2 PRED. BB                                                F5G12000
       NOP                                                              F5G12010
       TRA SB01                                                         F5G12020
       ARS 18 NO                                                        F5G12030
SB01   STA SBV3                                                         F5G12040
       CLA LPLST+S3P1+1,1                                               F5G12050
       CAS S3K1 END LOOP LIST SENTINEL                                  F5G12060
       TRA SB7 NO,                                                      F5G12070
       CLA LPLST YES,SUCCESSOR IS 1ST ENTRY.                            F5G12080
SB7    TSX SE,4 NO,GET ADDR. OF                                         F5G12090
       CLA BBB+1,1 PRED.                                                F5G12100
       STO SBV5 STORE PERMUTATION NOS.                                  F5G12110
       CLA BBB,1 GET ADDR OF 1ST PRED.                                  F5G12120
SB4    SLW SBV2                                                         F5G12130
       TSX SE5,4                                                        F5G12140
       CAL PRED,1                                                       F5G12150
       ANA SBK2                                                         F5G12160
       CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G12170
       TRA SB2 NO                                                       F5G12180
       TRA SB5 YES                                                      F5G12190
SB2    CLA SBV2 NO TRY NEXT PRED.                                       F5G12200
       ADD ONEA                                                         F5G12210
       TRA SB4                                                          F5G12220
SB5    LXA S5K5,2                                                       F5G12230
SB00   CAL SBV5 SEARCH PERMUTATION                                      F5G12240
       ARS 3,2 NOS. FOR THE INDEX                                       F5G12250
       ARS 3,2 STORED IN SBV4                                           F5G12260
       ANA S9K3                                                         F5G12270
       CAS SBV4 IS THIS PERMUTATION NO.                                 F5G12280
       TRA SB8 NO EQUAL TO THE ACTIVE                                   F5G12290
       TRA SB9 YES IR                                                   F5G12300
SB8    TIX SB00,2,1 NO                                                  F5G12310
       TSX 4,4 DIAGNOSTIC,ERROR                                         F5G12320
SB9    CLA SBK3 GENERATE NO STORE                                       F5G12330
       ARS 3,2 THE                                                      F5G12340
       ORS PRED,1 SX FIT IN                                             F5G12350
       TRA SB6 PRED. TABLE.                                             F5G12360
SB1    ANA S3K4                                                         F5G12370
       LRS 35 COMPUTE NO. 0F WORD IN                                    F5G12380
       DVP XK9 STAG ANO POSITION OF SX                                  F5G12390
       PAX 0,2 FIT IN WORD.                                             F5G12400
       CAL SBK1 GENERATE                                                F5G12410
       ALS 8,2 THE BIT                                                  F5G12420
       SLW SBV2 TO                                                      F5G12430
       REM  STORE.                                                      F5G12440
       LLS 35 GET NO. OF WORD OUT OF MQ.                                F5G12450
       TSX SE4,4 MAKE SURE THE WD IS IN C.M.                            F5G12460
       CAL SBV2                                                         F5G12470
       ORS STAG,1                                                       F5G12480
SB6    CLA ZERO SET IR                                                  F5G12490
       LXD SBV4,1 TO                                                    F5G12500
       STO AC1+3,1 NOT ACTIVE.                                          F5G12510
       LXD SBV1,4 RE-                                                   F5G12520
       TRA 1,4 TURN                                                     F5G12530
       REM THE SC SUBR0UTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX     F5G12540
       REM REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION.  THIS  F5G12550
       REM POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND.  F5G12560
       REM THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2,  F5G12570
       REM BBB TABLE FOR ALL BB,S DURING WHICH INDEX REGISTER IS ACTIVE.F5G12580
       REM THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590
       REM TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600
       REM ING A SECTION OF LPLST ACTIVE.  ALL BB,S BETWEEN THE ORIGIN  F5G12610
       REM OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS    F5G12620
       REM ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS     F5G12630
       REM TURNED OFF.  SD IS USED AS A SUBR0UTINE, DOING THE ACTUAL    F5G12640
       REM MARKING OF BB,S ACTIVE.                                      F5G12650
SC     CLA AC1+3,1 IS IR                                                F5G12660
       TZE 1,4 ACTIVE                                                   F5G12670
       SXD SCV1,4 YES,STORE RETURN                                      F5G12680
       SXD SC9,1 AND INDEX OF ACTIVE I.R+                               F5G12690
       STD SCV3 STORE INDEX OF LOOP LIST.                               F5G12700
       CLA SCV3 IS THIS THE CURRENT                                     F5G12710
       SUB ONED                                                         F5G12720
       SBM S3V4       IS THIS THE CURRENT LPLST INDEX                   F5G12730
       TNZ SC40                                                         F5G12740
       CLA ACIND      YES                                               F5G12750
       TPL 1,4        IS THIS THE ACTIVE PASS                           F5G12760
SC40   LXD SCV3,2     YES                                               F5G12770
       CLA LPLST+S3P1,2                                                 F5G12780
       CAS S3K2       IS 1ST AACTIVE QUANTITY A BB                      F5G12790
       TRA SC02                                                         F5G12800
       TRA SC02       NO                                                F5G12810
       TRA SC8        YES                                               F5G12620
SC4    SUB ONED       IS THIS CURRENT                                   F5G12830
       CAS S3V4       LOOP LIST INDEX                                   F5G12840
       TRA SC2 N0,                                                      F5G12850
       TRA SC5 YES,                                                     F5G12860
SC2    LXD SCV3,2 NO,                                                   F5G12870
       CLA LPLST+S3P1,2                                                 F5G12880
       CAS S3K1 IS IT END LOOP LIST                                     F5G12890
       TRA SC3 N0,                                                      F5G12900
       TRA SC6 YES,                                                     F5G12910
SC3    CAS S3K2 NO,IS IT A BB                                           F5G12920
       NOP  NO,                                                         F5G12930
       TRA SC04                                                         F5G12940
       TRA SC8 YES,                                                     F5G12950
SC04   LXD SC9,2      NO, PUT INDEX OF ACTIVE IR                        F5G12960
       TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE.                       F5G12970
SC02   CLA SCV3 PREPARE TO GET                                          F5G12980
       SUB ONED       NEXT                                              F5G12990
SC7    STD SCV3 LOOP LIST QUANTITY.                                     F5G13000
       TRA SC4                                                          F5G13010
SC5    LXD SC9,1                                                        F5G13020
       CLA ZERO RECORD I.R. NOT                                         F5G13030
       STO AC1+3,1 ACTIVE ANYMORE.                                      F5G13040
       LXD SCV1,4                                                       F5G13050
       TRA 1,4 RETURN.                                                  F5G13060
SC6    CLA S3K3          ARRANGE TO GET 1ST LPLST QUANTITY              F5G13070
       TRA SC7 QUANTITY NEXT.                                           F5G13080
SC8    TSX SE,4                                                         F5G13090
       SXD SCV2,1 GET INDEX OF BB                                       F5G13100
SC9    TXI SC01,1,0 INCREASE INDEX BY INDEX 0F OCT. I.R.                F5G13110
SC01   CLA BBB+5,1 GET THE                                              F5G13120
       ANA S3K4 EXIT CONDITION.                                         F5G13130
       LXD SC9,2 IS EXIT COND. SAME                                     F5G13140
       CAS IR1+3,2 AS TAG IN ACTIVE I.RH                                F5G13150
       TRA SC02 NO,                                                     F5G13160
       TRA SC03 YES,                                                    F5G13170
       TRA SC02 NO,                                                     F5G13180
SC03   CAL S5K3 RECORD THAT BB IS                                       F5G13190
       ARS 3,2 ACTIVE                                                   F5G13200
       LXD SCV2,1 WO THIS                                               F5G13210
       ORS BBB+1,1 I+R.                                                 F5G13220
       TRA SC02                                                         F5G13230
SD     SXD SDV2,2                                                       F5G13240
       SXD SDV1,4 STORE RETURN.                                         F5G13250
       TSX SE,4 GET INO=X OF BB                                         F5G13260
       CLA BBB+5,1 GET                                                  F5G13270
       PDX 0,1 REGION                                                   F5G13280
       CLA REG,1 WORD.                                                  F5G13290
       TSX SE,4 GET BB INDEX.                                           F5G13300
SD7    SXD SDV4,1                                                       F5G13310
       CLA BBB+1,1 STORE                                                F5G13320
       STO SDV3 AWAY THE PERMUTATION NOS.                               F5G13330
       LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G13340
SD3    CAL SDV3 IS                                                      F5G13350
       ARS 3,2 PERMUTATION NO.                                          F5G13360
       ARS 3,2                                                          F5G13370
       ANA S9K3 N EQUAL                                                 F5G13380
       CAS SDV2 TO I.R. INDEX                                           F5G13390
       TRA SD1 NO                                                       F5G13400
       TRA SD4 YES                                                      F5G13410
SD1    TXI SD1+1,1,-1    NO                                             F5G13420
S02    TIX SD3,2,1 COUNT TO 3                                           F5G13430
       TSX 4,4                                                          F5G13440
SD4    CAL BBB+2,1                                                      F5G13450
       ANA S3K4 IS TAG IN                                               F5G13460
       LXD SDV2,4 EXIT CONDITION                                        F5G13470
       LXD SDV4,1 SAME AS IN ACTIVE I.R.                                F5G13480
       CAS IR1+3,4                                                      F5G13490
       TRA SD5 NO                                                       F5G13500
       TRA SD9 YES,IS                                                   F5G13510
SD5    CAL BBB+5,1 NO THIS LAST                                         F5G13520
       ANA SBK2 BB                                                      F5G13530
       CAS SBK2 IN REGI0N                                               F5G13540
       TRA SD6 NO                                                       F5G13550
       TRA SD8 YES                                                      F5G13560
SD6    TSX SE1,4 NO                                                     F5G13570
       TRA SD7                                                          F5G13580
SD8    LXD SDV1,4 RETURN                                                F5G13590
       TRA 1,4                                                          F5G13600
SD9    CAL S5K3 RECORD THIS BB                                          F5G13610
       ARS 3,2 ACTIVE                                                   F5G13620
       ORS BBB+1,1 WO THIS IR                                           F5G13630
       TRA SD5                                                          F5G13640
       REM THE SF SUBROUTINE FORMS APPRQPRIATE AC1,2,3 ENTRY WHEN AN    F5G13650
       REM ACTIVE INSTRUCT1ON IS ENCOUNTERED.                           F5G13660
SF     CLA TPE IS THIS                                                  F5G13670
       CAS S2K2 AN LX                                                   F5G13680
       TRA SF1 NO,                                                      F5G13690
       TRA SF4 YES,                                                     F5G13700
SF1    CAS XK12 NO,IS IT AN ACTIVE INSTR                                F5G13710
       TRA 1,4 NO RETURN                                                F5G13720
       TRA SF4 YES,                                                     F5G13730
       TRA 1,4 NO                                                       F5G13740
SF4    CLA XV5 FORM QUANTITY TO                                         F5G13750
       STO SFV1 BE PUT                                                  F5G13760
       LXD S3V4,2 INTO                                                  F5G13770
       TXI SF5,2,1 ACTIVE                                               F5G13780
SF5    SXD SFV1,2        INDICATOR                                      F5G13790
       TRA 2,4                                                          F5G13800
       REM   PERMUTE THE PHI AND LX BITS  SUBROUTINE                    F5G13810
       REM THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG  F5G13820
       REM ENTRY.                                                       F5G13830
SG     SXD SGV1,4          SAVE RETURN                                  F5G13840
       LDQ ONEA            SET NEW LX AND PHI BITS TO ONEA              F5G13850
       STQ SGV2                                                         F5G13860
       CLA S3V5            GET INDEX OF REGION WORD                     F5G13870
       TSX SE,4                                                         F5G13880
       CLA BBB+5,1                                                      F5G13890
       PDX 0,2                                                          F5G13900
       LXA S5K5,4          SET COUNT TO 3                               F5G13910
SG1    CLA EN4+3,4         FIND INDEX OF IR                             F5G13920
       PDX 0,1                                                          F5G13930
       CAL REG,2           PERMUTE THE LX BIT                           F5G13940
       ALS 3,4                                                          F5G13950
       ANA S5K3                                                         F5G13960
       ARS 3,1                                                          F5G13970
       ORS SGV2                                                         F5G13980
       CAL REG,2           PERMUTE THE PHI BIT                          F5G13990
       ARS 3,4                                                          F5G14000
       ANA XK23                                                         F5G14010
       ALS 3,1                                                          F5G14020
       ORS SGV2                                                         F5G14030
       TIX SG1,4,1       COUNT TO 3                                     F5G14040
       CAL REG,2                                                        F5G14050
       ANA SEK4                                                         F5G14060
       ORA SGV2                                                         F5G14070
       SLW REG,2                                                        F5G14080
       LXD SGV1,4          RETURN                                       F5G14090
       TRA 1,4                                                          F5G14100
       REM THE FI SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110
       REM A GIVEN BB AND STORES IT IN FV 101.                          F5G14120
F1     SXD FV6,4 STORE RETURN                                           F5G14130
       LDQ ZERO SET HIGHEST                                             F5G14140
       STQ FV101 FREQ. TO 0.                                            F5G14150
       STO FV102 STORE BB NO+                                           F5G14160
       TSX SE1,4 GET INDEX OF BB                                        F5G14170
       CLA BBB+5,1 STORE REGION                                         F5G14180
       STO FV104 NO. WORD.                                              F5G14190
       CAL BBB,1 GET PRED.                                              F5G14200
       STA FV7 NO. AND STORE IT                                         F5G14210
       CAL FV102           GET AND STORE                                F5G14220
       ADD ONEA FIRST PRED. IN                                          F5G14230
       TSX SE1,4 NEXT B.B.                                              F5G14240
       CLA BBB,1                                                        F5G14250
       STA FV8                                                          F5G14260
       CLA FV7 IS THIS PRED.                                            F5G14270
F4     CAS FV8 IN SAME BB                                               F5G14280
       TRA F2                                                           F5G14290
       TRA F5 NO                                                        F5G14300
F2     TSX SE5,4 GET INDEX OF PRED                                      F5G14310
       CLA PRED,1                                                       F5G14320
       CAS FV101 IS THIS FREQ. GREATER                                  F5G14330
       TRA F92                                                          F5G14340
       NOP                                                              F5G14350
       TRA F3 NO                                                        F5G14360
F92    STO FV101     STORE NEW MAX.                                     F5G14370
       CLA FV7 STORE NEW                                                F5G14380
       STO FV103 PRED. NO.                                              F5G14390
F3     CLA FV7 ARRANGE TO                                               F5G14400
       ADD ONEA CONSIDER NEXT PRED.                                     F5G14410
       STA FV7                                                          F5G14420
       TRA F4                                                           F5G14430
F5     LXD FV6,4                                                        F5G14440
       TRA 1,4 RETURN                                                   F5G14450
       REM THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460
       REM A GIVEN BB AND STORES IT IN FV 101.                          F5G14470
F30    SXD FV6,4                                                        F5G14480
       LDQ ZERO SET HIGHEST FREQH                                       F5G14490
       STQ FV101 TO 0.                                                  F5G14500
       STO FV102 STORE BB NO.                                           F5G14510
       TSX SE,4                                                         F5G14520
       CLA BBB+5,1                                                      F5G14530
       STO FV104                                                        F5G14540
       CAL BBB,1 GET SUCC. NO.                                          F5G14550
       STD FV9          AND STORE IT                                    F5G14560
       CAL FV102           GET AND STORE                                F5G14570
       ADD ONED SUCC.                                                   F5G14580
       TSX SE,4 NO.                                                     F5G14590
       CLA BBB,1 OF 1ST SUCC.                                           F5G14600
       STD FV10       IN NEXT BB                                        F5G14610
       CLA FV9                                                          F5G14620
F31    CAS FV10     IS SUCC IN SAME BB                                  F5G14630
       TRA F32                                                          F5G14640
       TRA F34 NO.                                                      F5G14650
F32    TSX SE6,4 GET INDEX OF SUCC.                                     F5G14660
       CLA SUCC,1                                                       F5G14670
       CAS FV101 IS THIS FREQ. GREATER                                  F5G14680
       TRA F93                                                          F5G14690
       NOP                                                              F5G14700
       TRA F33 NO                                                       F5G14710
F93    STO FV101      STORE NEW MAX.                                    F5G14720
       CLA FV9       STORE NEW                                          F5G14730
       STO FV103 SUCC. NO.                                              F5G14740
F33    CLA FV9       ARRANGE TO CONSIDER                                F5G14750
       ADD ONED NEXT SUCC.                                              F5G14760
       STD FV9                                                          F5G14770
       TRA F31                                                          F5G14780
F34    LXD FV6,4                                                        F5G14790
       TRA 1,4 RETURN                                                   F5G14800
F      CLA ZERO SET INDICATOR TO SAY                                    F5G14810
       STO LPIND THIS ISNT A LOOP.                                      F5G14820
       STO FV1 SET HIGHEST FREQ. TO 0.                                  F5G14830
       STO FV5        SET TO CONSIDER 0TH BB                            F5G14840
F7     CLA FV5                                                          F5G14850
       TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER                   F5G14860
       CLA FV101 IS IT GREATER THAN                                     F5G14870
       CAS FV1 PREVIOUS MAXIMUM                                         F5G14880
       TRA F85                                                          F5G14890
       NOP                                                              F5G14900
       TRA F6 NO+                                                       F5G14910
F85    STO FV1      REPLACE PREV. MAX.                                  F5G14920
       CLA FV102 AND BB NO.                                             F5G14930
       STO FV2                                                          F5G14940
       CLA FV103 AND PRED. NO.                                          F5G14950
       STO FV3                                                          F5G14960
       CLA FV104 AND REGION NO. WORD.                                   F5G14970
       STO FV4                                                          F5G14980
F6     CLA FV5 ARRANGE TO CONSIDER NEXT                                 F5G14990
       ADD ONEA B.B.                                                    F5G15000
       STO FV5                                                          F5G15010
       SUB KEYS                                                         F5G15020
       ADD ONEA                                                         F5G15030
       TNZ F7         WAS THIS THE LAST BB                              F5G15040
 F86   DCT         YES, IF ANY DIVIDE CHECKS GO                         F5G15050
       TSX 4,4     TO DIAGNOSTIC.                                       F5G15060
       CLA FV1     NO DVD CHECKS, WERE THERE ANY                        F5G15070
       TNZ F86A    UNCONSIDERED PREDS                                   F5G15080
       TRA R  NO,CONTINUE PROGRAM, PART I DONE.                         F5G15090
 F86A  CLA FV4     YES                                                  F5G15100
       TZE F9 IS THIS A REGION ALREADY                                  F5G15110
       PDX 0,1 YES.                                                     F5G15120
       CLA REG,1 GET REGION WORD.                                       F5G15130
       ANA FK3                                                          F5G15140
       TZE F8 IS IT AN OPAQUE REGION                                    F5G15150
       CLA FK1 NO,GET TRANSPARENT REGION MARKER.                        F5G15160
       TRA F9                                                           F5G15170
F8     CLA FK2 GET OPAQUE REGION MARKER.                                F5G15180
F9     STO LPLST+S3P1-2                                                 F5G15190
       CLA FV2 STORE THE REGION MARKER                                  F5G15200
       ALS 18 AT END OF LPLST.                                          F5G15210
       STD LPLST+S3P1-2                                                 F5G15220
       CLA S9K3 INITIALIZE THE STORING                                  F5G15230
       STD F11 POSITION IN LPLST.                                       F5G15240
F23    CLA FV1 GET INDEX                                                F5G15250
       TSX SE1,4 OF BB UP FOR ENTRY.                                    F5G15260
       CLA BBB+5,1 IS THIS BB IN                                        F5G15270
       TZE F57 A REGION                                                 F5G15280
       PDX 0,2 YES                                                      F5G15290
       CLA REG,2 GET AND STORE                                          F5G15300
       STO FV4 REGION WORD                                              F5G15310
       ANA FK3                                                          F5G15320
       TZE F55 IS IT AN OPAQUE REGION                                   F5G15330
       LXA S5K4,1      NO, TRANSPARENT                                  F5G15340
F12    CLA LPLST+S3P1,1                                                 F5G15350
       TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED.        F5G15360
F25    SXD F18,1                                                        F5G15370
F11    TXH F19,1,K ARE WE THRU WITH COMPARISONS                         F5G15380
       CAS S3K2 NO,IS THIS BB ENTRY                                     F5G15390
       NOP                                                              F5G15400
       TRA F87                                                          F5G15410
       TRA F12 YES.                                                     F5G15420
F87    TSX SE,4      GET INDEX OF BB                                    F5G15430
       CLA BBB+5,1 GET                                                  F5G15440
       PDX 0,1 REGION                                                   F5G15450
       CLA REG,1 WORD.                                                  F5G15460
       LXD F18,1                                                        F5G15470
       CAS FV4 IS THIS THE SAME REGION                                  F5G15480
       TRA F12 NO                                                       F5G15490
       TRA F100                                                         F5G15500
       TRA F12 NO                                                       F5G15510
F100   CLA FV1             PUT EXIT BB NO.                              F5G15520
       STA LPLST+S3P1+1,1     IN TR. REG. QUANTITY                      F5G15530
F13    TIX F24,1,1 GENERATE INOEX OF LAST THING TO BE MOVED UP.         F5G15540
F24    LXD F11,2 GET IN0EX TO GENERATE INDEX OF 1ST THING               F5G15550
F43    SXD F18,1 STORE IN0EX OF LAST THING                              F5G15560
       LDQ S3K1 RECORD                                                  F5G15570
       STQ LPIND LOOP.                                                  F5G15580
       TIX F14,2,1 GENERATE INDEX OF 1ST THING                          F5G15590
F14    TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+                        F5G15600
       TSX F80,4                                                        F5G15610
       TRA L TO 1ST LXING PASS.                                         F5G15620
F19    CLA FK1                                                          F5G15630
       LXD F11,1 STORE TRANSPARENT                                      F5G15640
       STO LPLST+S3P1,1 REGION MARKER                                   F5G15650
       CLA FV1                                                          F5G15660
       STA LPLST+S3P1,1                                                 F5G15670
       TSX SE1,4 FIND BB INDEX.                                         F5G15680
       CLA ZERO SET INITIAL MAX                                         F5G15690
       STO FV1 FREQ. TO 0+                                              F5G15700
       CLA BBB+5,1 GET THE                                              F5G15710
       PDX 0,1 REGION                                                   F5G15720
       CLA REG,1 WORD                                                   F5G15730
       ARS 18                                                           F5G15740
F21    TSX F1,4 DETERMINE MOST FREQ. PRED IN BB.                        F5G15750
       CLA FV101 IS IT MORE FREQ. THAN                                  F5G15760
       CAS FV1 PREV. MAX.                                               F5G15770
       TRA F88                                                          F5G15780
       NOP                                                              F5G15790
       TRA F20 NO.                                                      F5G15800
F88    STO FV1     REPLACE PREV.  MAX.                                  F5G15810
       CLA FV102 AND BB NO.                                             F5G15820
       STO FV2 AND                                                      F5G15830
       CLA FV103 PRED. NO.                                              F5G15840
       STO FV3 AND                                                      F5G15850
       CLA FV104 REGION NO. WORD.                                       F5G15860
       STO FV4                                                          F5G15870
F20    CLA FV104 ARRANGE TO CONSIDER THE                                F5G15880
       ANA SBK2 NEXT B.B. IN REGION.                                    F5G15890
       CAS SBK2 ARE WE THRU WITH REGION                                 F5G15900
       TRA F21                                                          F5G15910
       TRA F22 YES                                                      F5G15920
       TRA F21                                                          F5G15930
F22    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G15940
       TZE F28 PRED                                                     F5G15950
       CLA FV2 YES,STORE THE                                            F5G15960
       LXD F11,1 ENTRY B.B.                                             F5G15970
       ALS 18 NO.                                                       F5G15980
       STD LPLST+S3P1,1                                                 F5G15990
       TXI F70,1,1 UP THE STORING INDEX                                 F5G16000
F70    SXD F11,1                                                        F5G16010
       TXH F73,1,S3P1 IS LPLST FULL                                     F5G16020
       TRA F23                                                          F5G16030
F28    LXD F11,2                                                        F5G16040
F56    LXA S5K4,1                                                       F5G16050
       SXD F18,1                                                        F5G16060
       TSX F15,4 NONE LPLST UP.                                         F5G16070
       CLA LPLST-1                                                      F5G16080
       CAS FK4 IS THIS AN OPAQUE REGION                                 F5G16090
       NOP                                                              F5G16100
       TRA F75 TO 2ED LXING PASS.                                       F5G16110
  P002 TXH F29,1,2                                                      F5G16120
       TRA F75                                                          F5G16130
F73    CLA SEK4 STORE SPECIAL                                           F5G16140
       STD LPLST SYMBOL IN DECR. PART OF 1ST LPLST                      F5G16150
       TRA F53 QUANTITY                                                 F5G16160
F15    LXD S3K3,1 SET INDEX TO START OF LOOP LIST.                      F5G16170
F26    CLA LPLST+S3P1,2 MOVE THIS                                       F5G16180
       STO LPLST+S3P1,1 ENTRY UP.                                       F5G16190
F18    TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED.             F5G16200
       TIX F16,1,1 NO.                                                  F5G16210
F16    TIX F26,2,1 ARE WE FINISHED COPYING                              F5G16220
F17    STO LPLST-1 CASE OF LOOP,STORE PRED. OF 1ST ELEMENT.             F5G16230
       CLA S3K1 STORE THE END                                           F5G16240
       STO LPLST+S3P1+1,1 LO0P LIST QUANTITY.                           F5G16250
       TRA 1,4                                                          F5G16260
F29    SXD F39,1 INITIALIZE STORING LOCATION.                           F5G16270
F64    CAS S3K2 ISNT OPAQUE REGIONH IS IT BB                            F5G16280
       NOP  NO.                                                         F5G16290
       TRA F89                                                          F5G16300
       TRA F44 YES.                                                     F5G16310
F89    LDQ ZERO   NO, SET INITIAL                                       F5G16320
       STQ FV1 FREQ+ TO 0.                                              F5G16330
       TSX SE,4 GET                                                     F5G16340
       CLA BBB+5,1 REGION                                               F5G16350
       PDX 0,1 NO.                                                      F5G16360
       CLA REG,1 GET NO. OF 1ST BB IN REGION                            F5G16370
F35    TSX F30,4  DETERMINE MOST FREQ SUCC IN BB                        F5G16380
       CLA FV101 IS IT MORE FREQ. THAN                                  F5G16390
       CAS FV1 PREV+ MAX                                                F5G16400
       TRA F90                                                          F5G16410
       NOP  YES,                                                        F5G16420
       TRA F36 NO                                                       F5G16430
F90    STO FV1    YES, REPLACE PREV.MAX.                                F5G16440
       CLA FV102 AND BB NO.                                             F5G16450
       STO FV2 AND                                                      F5G16460
       CLA FV103 SUCC. NO+                                              F5G16470
       STO FV3 AND                                                      F5G16480
       CLA FV104 REGION NO. WORD                                        F5G16490
       STO FV4                                                          F5G16500
F36    CLA FV104 ARRANGE TO CONSIDER THE                                F5G16510
       ANA SBK2 NEXT BB IN REGION                                       F5G16520
       CAS SBK2 IS II LAST BB IN REGION                                 F5G16530
       TRA F94                                                          F5G16540
       TRA F37 YES                                                      F5G16550
F94    ALS 18                                                           F5G16560
       TRA F35                                                          F5G16570
F37    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G16580
       LXD F39,1 SUCC                                                   F5G16590
       TZE F47                                                          F5G16600
       CLA FV2 EXIT BB                                                  F5G16610
       ARS 18 NO.                                                       F5G16620
       STA LPLST+S3P1,1                                                 F5G16630
F45    TIX F62,1,1 DOWN THE STORING                                     F5G16640
F62    SXD F39,1 INDEX.                                                 F5G16650
       CLA FV1 GET INDEX OF                                             F5G16660
       TSX SE1,4 BB UP FOR ENTRY.                                       F5G16670
       CLA BBB+5,1 IS THIS BB IN                                        F5G16660
       TZE F48 A REGION                                                 F5G16690
       PDX 0,2 YES.                                                     F5G16700
       CLA REG,2 GET AND                                                F5G16710
       STO FV4 STORE REGION WORD.                                       F5G16720
       ANA FK3 IS IT IN AN                                              F5G16730
       TZE F54 OPAGUE REGION                                            F5G16740
       LXD F39,1 NO.                                                    F5G16750
       CLA FK1 STORE TRANSPARENT REGION                                 F5G16760
       STO LPLST+S3P1,1 MARKER                                          F5G16770
       CLA FV1 WITH                                                     F5G16780
       ALS 18 ENTRY                                                     F5G16790
       STD LPLST+S3P1,1 BB NO. IN DECR.                                 F5G16800
       LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST.                    F5G16810
F38    CLA LPLST+S3P1,2                                                 F5G16820
       CAS S3K2 IS THIS A BB ENTRY                                      F5G16830
       NOP                                                              F5G16840
       TRA F91                                                          F5G16850
       TRA F40 YES                                                      F5G16860
F91    SXD F18,2    STOREINDEX OF QUANTITYBEING C.F. ED                 F5G16870
       TSX SE1,4                                                        F5G16880
       CLA BBB+5,1       GET                                            F5G16890
       PDX 0,2 REGION WORD.                                             F5G16900
       CLA REG,2                                                        F5G16910
       LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED.                  F5G16920
       CAS FV4 IS THIS NAME REGION                                      F5G16930
       TRA F40                                                          F5G16940
       TRA F41 YES                                                      F5G16950
F40    TIX F39,2,1                                                      F5G16960
F39    TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED             F5G16970
       TRA F38 NO                                                       F5G16980
F41    CLA LPLST+S3P1,2 PUT EXIT BB NO.                                 F5G16990
       LXD F39,1 FROM PREVIOUS QUANTITY                                 F5G17000
       STA LPLST+S3P1,1 IN THIS LATEST ONE.                             F5G17010
       TRA F43                                                          F5G17020
F42    TXH F63,2,2 IS LPLST FULL                                        F5G17030
F53    CLA S3K1 STORE ENO                                               F5G17040
       STO LPLST+S3P1-1 LOOP LIST SENTINEL.                             F5G17050
       TRA F75 GO TO DEAL WITH STRING.                                  F5G17060
F63    CLA LPLST+S3P1,2                                                 F5G17070
       TRA F64                                                          F5G17080
F44    TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB.                      F5G17090
       CLA FV101 STORE THE                                              F5G17100
       STO FV1 MOST FREQ. SUCC. AWAY.                                   F5G17110
       LXD F39,1                                                        F5G17120
       TNZ F45 WAS THERE AN UNCONSIDERED SUCC.                          F5G17130
F47    CLA S3K1 NO,RECORD AN                                            F5G17140
       STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL.                       F5G17150
       TRA F75                                                          F5G17160
F48    LXD F39,1 ENTER BB                                               F5G17170
       CLA FV1 NO. AND MARKER                                           F5G17180
       ANA SBK2 IN                                                      F5G17190
       ALS 18 LPLST                                                     F5G17200
       STO FV4                                                          F5G17210
       STO LPLST+S3P1,1                                                 F5G17220
       SXD F50,1                                                        F5G17230
       LXD S3K3,2 S + TO                                                F5G17240
F51    CLA LPLST+S3P1,2                                                 F5G17250
       CAS FV4 IS THIS SAME BB AS NEW ENTRY                             F5G17260
       TRA F49                                                          F5G17270
       TRA F43 YES                                                      F5G17280
F49    TIX F50,2,1 DECREASE COMPARISON INDEX.                           F5G17290
F50    TXL F52,2,- IS THIS INDEX OF NEW QUANTITY                        F5G17300
       TRA F51 NO.                                                      F5G17310
F52    TXH F63,2,2       IS LPLST FULL                                  F5G17320
       TRA F53 YES.                                                     F5G17330
F54    LXD F39,1 IS OPAQUE REGION                                       F5G17340
       CLA FK2 ENTER OPAQUE                                             F5G17350
       STO LPLST+S3P1,1 REGION MARKER                                   F5G17360
       CLA FV1 WITH CORRECT                                             F5G17370
       ALS 18 ENTRY BB                                                  F5G17380
       STD LPLST+S3P1,1 NO.                                             F5G17390
       TRA F47                                                          F5G17400
F55    LXD F11,2 STORE THE                                              F5G17410
       CLA FK2 OPAQUE                                                   F5G17420
       STO LPLST+S3P1,2 REGION MARKR                                    F5G17430
       CLA FV1 WITH                                                     F5G17440
       STA LPLST+S3P1,2 EXIT BB                                         F5G17450
       TRA F56 NO.                                                      F5G17460
F57    CLA FV1 PUT THE                                                  F5G17470
       ANA SBK2 B.B. NO.                                                F5G17480
       ALS 18 IN                                                        F5G17490
       STO FV4 DECR. PART.                                              F5G17500
       CLA F11 SET THE END                                              F5G17510
       STD F59 TEST.                                                    F5G17520
       LXA S5K4,1     SET INDEX OF 1ST LPLST TO BE COMPARED             F5G17530
F61    CLA LPLST+S3P1,1                                                 F5G17540
       TXI F58,1,1                                                      F5G17550
F58    SXD F18,1                                                        F5G17560
F59    TXH F60,1,- WAS THAT THE LAST QUANTITY                           F5G17570
       CAS FV4 IS THIS THE SAME BB.                                     F5G17580
       TRA F61                                                          F5G17590
       TRA F13 YES                                                      F5G17600
       TRA F61                                                          F5G17610
F60    LXD F11,1                                                        F5G17620
       CLA FV1 STORE THE                                                F5G17630
       ANA SBK2 BB                                                      F5G17640
       ALS 18 MARKER.                                                   F5G17650
       STO LPLST+S3P1,1                                                 F5G17660
       CLA FV1                                                          F5G17670
       TSX F1,4 FIND MOST FREQ. PRED. OF BB.                            F5G17680
       CLA FV101 DOES B.B. HAVE                                         F5G17690
       STO FV1 UNCONSIDERED PRED.                                       F5G17700
       TNZ F71                                                          F5G17710
       LXD F11,2 NO,GO TO MOVE LPLST UP.                                F5G17720
       TRA F56                                                          F5G17730
F71    LXD F11,1                                                        F5G17740
       TXI F72,1,1 UP THE STORING INDEX                                 F5G17750
F72    SXD F11,1                                                        F5G17760
       TXH F53,1,S3P1 IS LPLST FULL                                     F5G17770
       TRA F23 NO.                                                      F5G17780
F80    LXA FK5,1 FIND                                                   F5G17790
F81    CLA REG,1 THE 1ST AVAILABLE REGION                               F5G17800
       TZE F82 POSITION.                                                F5G17810
       TIX F81,1,1                                                      F5G17820
       TSX 4,4 DIAGNOSTIC, ERROR                                        F5G17830
F82    SXD XV1,1      STORE THE INDEX                                   F5G17840
       REM    OF THE NEW REGION WORD                                    F5G17850
F83    LDQ ZERO         STORE INITIAL                                   F5G17860
       STQ XV2        VALUE OF REGION                                   F5G17870
       TRA 1,4                                                          F5G17880
F78    TSX SA,4 GET EXIT CONDITIONS OF REGION.                          F5G17890
       LXA S5K5,1        PUT EXIT                                       F5G17900
       LDQ ZERO                                                         F5G17910
F76    CLA EX1+3,1 CONDITONS                                            F5G17920
       STO IR1+3,1 INTO                                                 F5G17930
       CLA ACT1+3,1 I+R.S                                               F5G17940
       STQ AC1+3,1                                                      F5G17950
       TPL F77 IS THIS EXIT ACTIVE                                      F5G17960
       CLA S3K3 YES,FORM AND                                            F5G17970
       SSM  STORE ACTIVE                                                F5G17980
       STO AC1+3,1 INDICATOR                                            F5G17990
F77    TIX F76,1,1 COUNT TO 3                                           F5G18000
       CLA S3K3 INITIALIZE                                              F5G18010
       SUB ONED LOOP LIST                                               F5G18020
       STO S3V4 TO ITS                                                  F5G18030
       STO S3V5                                                         F5G18040
       CLA S5K3 2ED                                                     F5G16050
       STO S3V3 ELEMENT                                                 F5G18060
       SXD S3V2,0                                                       F5G18070
       TRA X32                                                          F5G18080
F75    TSX F80,4 DETERMINE NEW REGION INDEX                             F5G18090
       CLA LPLST IS 1ST                                                 F5G18100
       LDQ S3K2              ELEMENT OF LPLST A TRANSPARENT             F5G18110
       TLQ F78 ON OPAQUE REGION                                         F5G18120
       LXA S5K5,1 NO,INITIALIZE                                         F5G18130
       CLA S5K1 THE                                                     F5G18140
F79    STO IR1+3,1 I.R.S                                                F5G18150
       TIX F79,1,1 TO EMPTINESS                                         F5G18160
       TRA X                                                            F5G18170
       REM  FIRST LXING PASS.                                           F5G18180
 L     SXD ROT3,0                                                       F5G18190
       SXD ROT1,0                                                       F5G18200
INIZ   LXA S5K5,1            INITIALIZE                                 F5G18210
       CLA S5K1 THE                                                     F5G18220
L23    STO IR1+3,1 INDEX REGISTERS                                      F5G18230
       TIX L23,1,1 TO EMPTINESS.                                        F5G18240
       LDQ S3K3                                                         F5G18250
       STQ S3V4       INITIALIZE THE                                    F5G18260
       LDQ S5K3 LOOP LIST.                                              F5G18270
       STQ S3V3 MAKE SURE THAT THE                                      F5G18280
       SXD S3V2,0                                                       F5G18290
 1L4   TSX S3,4 GET NEXT TAG.                                           F5G18300
       TRA L6 *RETURN HERE IF TAG WASNT GOTTEN.                         F5G18310
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18320
       CLA 1TAG           IS CL (TAG) EQUAL                             F5G18330
L2     CAS IR1+3,1 TO C (IRN)                                           F5G18340
       TRA L1 NO.                                                       F5G18350
       TRA 1L3            YES                                           F5G18360
L1     TIX L2,1,1 NO. COUNT TO 3,N=N+1                                  F5G18370
       CLA TPE IS THIS                                                  F5G18380
       CAS XK15 AN LXP INSTR.                                           F5G18390
       TRA L18 NO,                                                      F5G18400
       TRA ROT0          YES                                            F5G18410
L18    CAS XK21 NO,IS IT A DED INSTR.                                   F5G18420
       TRA L17 NO                                                       F5G18430
       TRA ROT0               YES                                       F5G18440
       TRA L17                                                          F5G18450
 ROT0  LXD S3V4,2                                                       F5G18460
       TXL 1L4,2,S3P1-2                                                 F5G18470
       LXD ROT3,2                                                       F5G18480
       TXI ROT1,2,-1                                                    F5G18490
 ROT1  TXL 1L4,2,-                                                      F5G18500
       SXD ROT3,2                                                       F5G18510
       LXD ZERO,2                                                       F5G18520
 ROT2  CLA LPLST,2                                                      F5G18530
       CAS S3K1                                                         F5G18540
 ROT3  TXL ROT4,0,-                                                     F5G18550
       TXL ROT5,0,-                                                     F5G18560
 ROT4  STO LPLST-1,2                                                    F5G18570
       TXI ROT2,2,-1                                                    F5G18580
 ROT5  SXD ROT1,2                                                       F5G18590
       CLA LPLST-1                                                      F5G18600
       STO LPLST-1,2                                                    F5G18610
       TRA INIZ                                                         F5G18620
L17    TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G18630
       LXD IRR,4 PLACE TAU-TAG                                          F5G18640
       CLA 1TAG           IN APPROPRIATE                                F5G18650
       STO IR1+3,4 I.R.                                                 F5G18660
       TRA 1L4                                                          F5G18670
 1L3   CLA TPE IS THIS AN LXP                                           F5G16680
       CAS XK15                                                         F5G18690
       TRA 1L19                                                         F5G16700
       TRA L5 YES                                                       F5G18710
 1L19  CAS XK21 IS IT AN DED                                            F5G18720
       TRA 1L4                                                          F5G18730
       TRA L5 YES.                                                      F5G18740
       TRA 1L4                                                          F5G18750
L5     CLA LK1 PLACE AN E (HASH                                         F5G18760
       STO IR1+3,1 SYMBOL) IN                                           F5G18770
       TRA 1L4            RIGHT IR,                                     F5G18780
L6     STO LV4 IS THIS AN END OF LOOP                                   F5G18790
       CAS S3K1 LIST SENTINEL                                           F5G18800
       TRA L14 NO,                                                      F5G18810
       TRA L15 YES,                                                     F5G18820
L14    CAL LV4 IS                                                       F5G18830
       ANA LK3 THIS A                                                   F5G18840
       TZE 1L4            BB                                            F5G18850
       CLA LV4 NO,FORM CORRESPONOENCE                                   F5G18860
       TSX S5,4 BETWEEN IRS AND ENS                                     F5G18870
       CLA LV4 GET + STORE EXIT CONDITIONS                              F5G18880
       TSX SA,4 AND (USELESSLY+ OCTIVE 1NOICATORS.                      F5G18890
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18900
L11    CLA EN4+3,1 PUT CORRESPONDENCE INDEX                             F5G18910
       PDX 0,2 IN 2.                                                    F5G18920
       CLA EX1+3,1 IS THIS EXIT CONDITION                               F5G18930
       CAS S5K1 EMPTY                                                   F5G18940
       TRA L13 NO,                                                      F5G18950
       TRA P003                                                         F5G18960
L13    STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION.                 F5G18970
L10    TIX L11,1,1 COUNT TO 3,N=N+1                                     F5G18980
       TRA 1L4                                                          F5G18990
  P003 CLA IR1+3,2                                                      F5G19000
       LDQ LK1                                                          F5G19010
       TLQ L10                                                          F5G19020
       LXA S5K5,4                                                       F5G19030
 P003A CAS EX1+3,4                                                      F5G19040
       TRA P003B                                                        F5G19050
       STQ IR1+3,2                                                      F5G19060
 P003B TIX P003A,4,1                                                    F5G19070
       TRA L10                                                          F5G19080
L15    LXA S5K5,1 COPY ASIDE THE FINAL                                  F5G19090
L16    CLA IR1+3,1 CONTENTS                                             F5G19100
       CAS LK1               (IF REAL, OTHERWISE                        F5G19110
       NOP                                                              F5G19120
       CLA S5K1              SET TO                                     F5G19130
       STO IR1+3,1           EMPTY)                                     F5G19140
       STO LV1+3,1 OF THE                                               F5G19150
       TIX L16,1,1 IRS                                                  F5G19160
       REM  THE SECONO LXING PASS FOLLOWS.                              F5G19170
       REM  PRECEEDED BY 1ST LXING PASS                                 F5G19180
X      LDQ S3K3 INITIALIZE THE                                          F5G19190
       STQ S3V4 LOOP LIST AND                                           F5G19200
       LDQ S5K3 MAKE SURE TAG                                           F5G19210
       STQ S3V3 LOC. GETS SET.                                          F5G19220
       SXD S3V2,1                                                       F5G19230
X21    CLA ZERO SET ACTIVE INDICATORS                                   F5G19240
       STO AC1 TO                                                       F5G19250
       STO AC2                                                          F5G19260
       STO AC3 NOT ACTIVE.                                              F5G19270
X32    CLA ZERO SET LX INDICATORS                                       F5G19280
       STO LX1 TO                                                       F5G19290
       STO LX2 NOT                                                      F5G19300
       STO LX3 LX ED.                                                   F5G19310
       STO ACIND      SET IND. TO SAY THIS IS 2ED LXING PASS            F5G19320
X3     TSX S3,4 TRY TO GET NEXT TAG.                                    F5G19330
       TRA X13 COME HERE IF TAG NOT GOT.                                F5G19340
       CLA S39 COMPUTE LOCATIONS OF                                     F5G19350
       ANA SBK2 THIS TAG=(ADDR. FOLLOWING                               F5G19360
       ADD S4V1 TIX BLACK + L (CM)-                                     F5G19370
       SUB S4K3 CMTAG-INDEX OF TAG                                      F5G19380
       ALS 18                                                           F5G19390
       SBM S3V2                                                         F5G19400
       LRS 53 THEN FORM LOC/9                                           F5G19410
       STQ XV5 AND REMAINDER                                            F5G19420
       DVP XK9 STORE INTEG. PART                                        F5G19430
       STQ XV3 AND REMAINDER.                                           F5G19440
       STO XV4                                                          F5G19450
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G19460
       CLA 1TAG                                                         F5G19470
X2     CAS IR1+3,1       IS CONTENTS OF IRN SAME AS 0F TAG              F5G19480
       TRA X1 NO                                                        F5G19490
       TRA X7 YES                                                       F5G19500
X1     TIX X2,1,1 NO COUNT OT 3,N=N+1                                   F5G19510
       CLA TPE IS THIS AN                                               F5G19520
       CAS XK15 LX PRIME                                                F5G19530
       TRA X103 NO                                                      F5G19540
       TRA X8    YES.  COMPILE LXD FOR LXP.                             F5G19550
X103   CAS XK21 IS IT A DED                                             F5G19560
       TRA X8                                                           F5G19570
       TRA X3 YES                                                       F5G19580
X8     TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G19590
       LXD IRR,1 PLACE TAU-TAG                                          F5G19600
       CLA 1TAG           IN SELECTED                                   F5G19610
       STO IR1+3,1 I.R.                                                 F5G19620
       CLA AC1+3,1 IS THIS                                              F5G19630
       TZE X4 IR ACTIVE                                                 F5G19640
       TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G19650
X4     CLA TPE IS THIS                                                  F5G19660
       CAS S2K2 AN LX                                                   F5G19670
       TRA X5 NO                                                        F5G19680
       TRA X14 YES                                                      F5G19690
X5     CAL INTAG IS THIS 1ST INSTR.                                     F5G19700
       ANA XK10 IN A BB                                                 F5G19710
       TNZ X9                                                           F5G19720
       CLA XV3 NO,                                                      F5G19730
       TSX SE4,4 DETERMINE INDEX IN STAG                                F5G19740
       LXA XV4,2                                                        F5G19750
       CAL XK11 GENERATE                                                F5G19760
       ALS 8,2 LX BIT                                                   F5G19770
       ORS STAG,1 STORE IN STAG.                                        F5G19780
X14    TSX SF,4 CHECK IF AN ACT1VE INSTR.                               F5G19790
       TRA X01 COME HERE IF NOT ACTIVE                                  F5G19800
       LXD IRR,1 ACTIVE-STORE ACTIVE                                    F5G19810
       CLA SFV1 INDICATOR                                               F5G19820
       STO AC1+3,1                                                      F5G19830
X01    LXD IRR,2                                                        F5G19840
       CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT                          F5G19850
       TNZ X19 BEEN DETERMINED FOR THIS BB.                             F5G19860
       CLA LK1 NO,RECORD HASH                                           F5G19870
       STO LX1+3,2 AS ENTRANCE REQUIREMENT                              F5G19880
X19    CAL S5K3 RECORD THAT THERE IS AN                                 F5G19890
       ARS 3,2 LX FOR THIS IR IN                                        F5G19900
       ORS XV2 REGION.                                                  F5G19910
X02    CLA XV3 RECORD THE                                               F5G19920
       TSX SE4,4 SPECIFIC                                               F5G19930
       CAL XV4 TAG                                                      F5G19940
       COM  IN                                                          F5G19950
       PAX 0,2 THE                                                      F5G19960
       CAL IRR STAG                                                     F5G19970
       ARS 0,2 TABLE                                                    F5G19980
       ARS 0,2                                                          F5G19990
       ORS STAG,1                                                       F5G20000
       TRA X3                                                           F5G20010
X9     LXD S3V4,1 GET                                                   F5G20020
       TXL XI1+1,1,S3P1-2                                               F5G20030
       CLA LPIND                                                        F5G20040
       TMI XI1+1                                                        F5G20050
       LXD IRR,2                                                        F5G20060
XI1    TRA X16-3                                                        F5G20070
       CLA LPLST+S3P1-2,1 AND                                           F5G20080
       CAS S3K2 STORE                                                   F5G20090
       NOP  BB                                                          F5G20100
       TRA X117                                                         F5G20110
       ARS 18 PRED                                                      F5G20120
X117   STA SBV3      NO.                                                F5G20130
       CLA LPLST+S3P1-1,1                                               F5G20140
       TSX SE,4 GET ADDR. OF                                            F5G20150
       CLA BBB,1 1ST PRED.                                              F5G20160
X03    SLW SBV2                                                         F5G20170
       TSX SE5,4 GET PRED.                                              F5G20180
       CAL PRED,1                                                       F5G20190
       ANA SBK2                                                         F5G20200
       CAS SBV3 IS THIS RIGHT PRED.                                     F5G20210
       TRA X04 NO                                                       F5G20220
       TRA X05 YES                                                      F5G20230
X04    CLA SBV2 NO ARRANGE TO                                           F5G20240
       ADD ONEA TRY NEXT                                                F5G20250
       TRA X03 PRED.                                                    F5G20260
X05    LXD IRR,2 PUT LX                                                 F5G20270
       CAL XK16 BIT INTO                                                F5G20280
       ARS 3,2 PRED.                                                    F5G20290
       ORS PRED,1 TABLE.                                                F5G20300
       LXD S3V4,4                                                       F5G20310
       ORS LPLST+S3P1-1,4                                               F5G20320
       CLA IR1+3,2       SET ENTR. REQU.                                F5G20330
       STO LX1+3,2                                                      F5G20340
       TRA X14                                                          F5G20350
X16    TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST                  F5G20360
       LDQ LK1                                                          F5G20370
       CLA LX1+3,1 HAS THIS                                             F5G20380
       TNZ X100 ENTR. REQU. BEEN DETERMINED                             F5G20390
       STQ LX1+3,1 NO,RECORD ENTR. REQU. IS AN E.                       F5G20400
X100   STQ IR1+3,1 ERASE THIS I.R.                                      F5G20410
       CLA ZERO RECORD THAT THIS                                        F5G20420
       STO AC1+3,1 I.R. ISNT ACTIVE.                                    F5G20430
       TRA X02                                                          F5G20440
X7     SXD IRR,1                                                        F5G20450
       CLA TPE IS THIS                                                  F5G20460
       CAS XK15 AN LXP                                                  F5G20470
       TRA X104 NO                                                      F5G20480
       TRA X16 YES.                                                     F5G20490
X104   CAS XK21 IS IT A DED                                             F5G20500
       TRA X15                                                          F5G20510
       TRA X16 YES.                                                     F5G20520
X15    TSX SF,4 DETERMINE ACTIVITY.                                     F5G20530
       TRA X17 COME HERE IF NOT ACTIVE.                                 F5G20540
       LXD IRR,1                                                        F5G20550
       TSX SC,4 RECORD PART OF LOOP LIST ACTIVE.                        F5G20560
       CLA SFV1 STORE ACTIVE                                            F5G20570
       STO AC1+3,1 INDICATOR.                                           F5G20580
X17    CLA TPE                                                          F5G20590
       CAS S2K2 IS THIS AN LX                                           F5G20600
       TRA X18                                                          F5G20610
       TRA X01 YES.                                                     F5G20620
X18    LXD IRR,1                                                        F5G20630
       CLA LX1+3,1 WAS THIS                                             F5G20640
       TNZ X02 I.R. LX ED                                               F5G20650
       CLA IR1+3,1 NO,STORE THE TAG                                     F5G20660
       STO LX1+3,1 IN TH LX INDICATOR.                                  F5G20670
       TRA X02                                                          F5G20680
X22    TSX SE,4 MAKE SURE BB IS IN C+M.                                 F5G20690
       LXA S5K5,2                                                       F5G20700
X25    CLA LX1+3,2                                                      F5G20710
       TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND                        F5G20720
       CLA IR1+3,2 NO,ENTRANCE = EXIT.                                  F5G20730
X23    ALS 18 PUT ENTR. REQ. IN LEFT.                                   F5G20740
       ADD IR1+3,2 ADD THE EXIT REQUIREMENTS.                           F5G20750
       SLW BBB+2,1                                                      F5G20760
       TXI X24,1,-1      DOWN INDEX OF ENTR-EXIT REQU.                  F5G20770
X24    TIX X25,2,1 COUNT TO 3                                           F5G20780
       TRA X26                                                          F5G20790
X13    LXD S3V4,1      GET LOOP LIST QUANTITY                           F5G20800
       TXH X26,1,S3P1-2  TRANSFER IF THIS IS 1ST IN LPLST               F5G20810
       CLA LPLST+S3P1-2,1     OF PREVIOUS QUANTITY                      F5G20820
       STO XV19                                                         F5G20830
       LDQ S3K2        WAS IT                                           F5G20840
       TLQ X126      A BB                                               F5G20850
       ARS 18       YES                                                 F5G20860
 X126  ANA S3K4              IS THERE                                   F5G20870
       LDQ SAK1                                                         F5G20880
       TLQ X129                                                         F5G20890
       TSX SE1,4             YES, GET EXIT BB                           F5G20900
       CLA BBB,1       WAS THAT BB                                      F5G20910
       ARS 33        TERMINATED BY                                      F5G20920
       ADD ONEA           A                                             F5G20930
       TNZ X129          GO TO N                                        F5G20940
       LXA S5K5,1       YES, SET COUNT TO 3                             F5G20950
X128   CLA AC1+3,1      IS THIS IR                                      F5G20960
       TZE X127          ACTIVE                                         F5G20970
       TSX SB,4          YES, RECORD SXD NECESSARY                      F5G20980
X127   TIX X128,1,1         COUNT TO 3                                  F5G20990
X129   CLA XV19       GET                                               F5G21000
       CAS S3K2                                                         F5G21010
       NOP  NO                                                          F5G21020
       TRA X26                                                          F5G21030
       TRA X22 YES,                                                     F5G21040
X26    CLA S3V5 NO                                                      F5G21050
       CAS S3K1 IS THIS AN END-LOOP-LIST                                F5G21060
       TRA X31 NO                                                       F5G21070
       TRA X88 YES                                                      F5G21080
X31    CAL S3V5                                                         F5G21090
       ANA LK3                                                          F5G21100
       CAS XK17 WHAT TYPE ENTRY IS THIS                                 F5G21110
       TRA X118                                                         F5G21120
       TRA X33 TRANSPARENT REGION                                       F5G21130
       TRA X32 BB                                                       F5G21140
X118   CLA S3V5     OPAQUE REGION                                       F5G21150
       TSX SE,4     IS                                                  F5G21160
       CLA BBB+5,1     THIS                                             F5G21170
       STO XV24                                                         F5G21180
       STD XV23      THE                                                F5G21190
       CLA LPLST      SAME                                              F5G21200
       LDQ FK4                                                          F5G21210
       TLQ X221                                                         F5G21220
       TXI X213,0,-                                                     F5G21230
X221   TSX SE1,4         REGION                                         F5G21240
       CLA BBB+5,1        AS                                            F5G21250
       ANA S2K1          AT THE BEGINNING                               F5G21260
       SUB XV23      OF THE                                             F5G21270
       STO XV24          STORE IND. OF SAMENESS OF 1ST REGION           F5G21280
       TZE X61       LPLST                                              F5G21290
X213   CLA S3V5                                                         F5G21300
X57    TSX S5,4 NO,MATCH ENTR. REQU.                                    F5G21310
X63    LXD XV23,1        GET                                            F5G21320
       CLA REG,1         REGION WORD                                    F5G21330
       TSX SE,4          CST INDEX OF 1ST BB                            F5G21340
X209   CAL BBB+1,1       GET THE                                        F5G21350
       SLW XV9           ORIGINAL PERM. NOS.                            F5G21360
       ANA XK20          STORE WORD TO                                  F5G21370
       SLW XV8           CONTAIN NEW PERM. NOS.                         F5G21380
       LXA S5K5,2        SET COUNT TO 3                                 F5G21390
X210   CAL XV9           GET THE                                        F5G21400
       ARS 3,2                                                          F5G21410
       ARS 3,2           PERM. NO. AND                                  F5G21420
       ANA S9K3          PUT IT                                         F5G21430
       PDX 0,4           IN 4.                                          F5G21440
       CLA EN4+3,4       GET THE                                        F5G21450
       ALS 3,2           CORRESPONDENCE                                 F5G21460
       ALS 3,2           OF THE ENTR. REQUIREMENTS                      F5G21470
       ORS XV8           FORM NEW PERM.                                 F5G21480
       TIX X210,2,1                                                     F5G21490
       CAL XV8            STORE NEW PERM.                               F5G21500
       STD BBB+1,1       NOS.                                           F5G21510
       CLA BBB+5,1       IS THIS THE LAST                               F5G21520
       ANA SBK2          BB IN REGION                                   F5G21530
       CAS SBK2                                                         F5G21540
       TRA X211          NO.                                            F5G21550
       TRA X212          YES, DONE                                      F5G21560
X211   TSX SE1,4         ARRANGE TO DO NEXT                             F5G21570
       TRA X209          BB.                                            F5G21580
X212   LXA S5K5,1        SET COUNT TO 3                                 F5G21590
X60    CLA IN1+3,1       GET INDEX                                      F5G21600
       PDX 0,2 OF EN.                                                   F5G21610
       CLA EN1+3,2 IS C(ENM)                                            F5G21620
       CAS IR1+3,1 =C(IRN)                                              F5G21630
       TRA X58                                                          F5G21640
       TRA X64 YES,                                                     F5G21650
X58    CAS S5K2 IS C(ENM) REAL                                          F5G21660
       NOP  NO,                                                         F5G21670
       TRA X119                                                         F5G21680
       TRA X67 YES,                                                     F5G21690
X119   CLA AC1+3,1     NO,IS                                            F5G21700
X102   TZE X59 IRN ACTIVE                                               F5G21710
X65    TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G21720
X59    TIX X60,1,1                                                      F5G21730
       TSX SG,4            PERMUTE REGION WORD                          F5G21740
X89    CLA LPLST                                                        F5G21750
       CAS S3K2          IS IT A BB                                     F5G21760
       TSX SE1,4         NO                                             F5G21770
       TRA X206                                                         F5G21780
       TRA X207                                                         F5G21790
X206   CLA BBB+5,1                                                      F5G21800
       PDX 0,1                                                          F5G21810
       CLA REG,1         FORM NO OF 1ST BB IN REGION                    F5G21820
X207   STD XV2                                                          F5G21830
       LXA S5K5,1                                                       F5G21840
X116   CLA S5K1                                                         F5G21850
       CAS IR1+3,1      IS THIS IR EMPTY                                F5G21860
       TRA X115                                                         F5G21870
       CAL XK23+3,1     YES, INITIALIZE IR                              F5G21880
       ORS XV2       TO EMRTYNESS                                       F5G21890
X115   TIX X116,1,1      COUNT TO 3                                     F5G21900
       LXD S3K3,2        PREPARE TO SCAN LOOP LIST                      F5G21910
       SXD XV12,2                                                       F5G21920
X79    CLA LPLST+S3P1,2                                                 F5G21930
       CAS S3K1 IS THIS END LOOP LIST                                   F5G21940
       TRA X120                                                         F5G21950
       TRA X81 YES.                                                     F5G21960
X120   CAS S3K2         IS IT A BB                                      F5G21970
       NOP                                                              F5G21980
       TRA X121                                                         F5G21990
       ARS 18 YES.                                                      F5G22000
X121   STA SBV3       STORE EXIT BB NO.                                 F5G22010
       CLA LPLST+S3P1+1,2                                               F5G22020
       CAS S3K1 IS NEXT QUANTITY AN END LPLST                           F5G22030
       TRA X107                                                         F5G22040
       TRA X114 YES.                                                    F5G22050
X107   ARS 18                                                           F5G22060
       STA XV18 STORE ENTRY BB NO.                                      F5G22070
       ADD ONEA                                                         F5G22080
       TSX SE1,4                                                        F5G22090
       CAL BBB,1                                                        F5G22100
       ANA SBK2                                                         F5G22110
       STO SBV5                                                         F5G22120
       CLA XV18                                                         F5G22130
       TSX SE1,4                                                        F5G22140
       CLA BBB,1                                                        F5G22150
       ANA SBK2                                                         F5G22160
X109   SLW SBV2                                                         F5G22170
       TSX SE5,4                                                        F5G22180
       CAL PRED,1                                                       F5G22190
       ANA SBK2                                                         F5G22200
       CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G22210
       TRA X108                                                         F5G22220
       TRA X110 YES                                                     F5G22230
X108   CLA SBV2 ARRANGE TO TRY                                          F5G22240
       ADD ONEA NEXT PRED.                                              F5G22250
       CAS SBV5            IS THIS PRED ENTRY IN SAME BB                F5G22260
       TRA X109                                                         F5G22270
       TRA X222                                                         F5G22280
       TRA X109                                                         F5G22290
X110   CLA PRED,1 SET SIGN                                              F5G22300
       SSM  OF PRED.                                                    F5G22310
       STO PRED,1 ENTRY NEGATIVE.                                       F5G22320
       TRA X108                                                         F5G22330
X222   CLA SBV3            GET INDEX                                    F5G22340
       ADD ONEA                                                         F5G22350
       TSX SE1,4 OF                                                     F5G22360
       CLA BBB,1                                                        F5G22370
       ANA S2K1                                                         F5G22380
       STO SBV5                                                         F5G22390
       CLA SBV3                                                         F5G22400
       TSX SE1,4                                                        F5G22410
       CLA BBB,1                                                        F5G22420
       ANA S2K1                                                         F5G22430
X112   SLW SBV2                                                         F5G22440
       TSX SE6,4                                                        F5G22450
       CAL SUCC,1                                                       F5G22460
       ANA SBK2                                                         F5G22470
       CAS XV18 IS THIS RIGHT SUCC.                                     F5G22480
       TRA X111                                                         F5G22490
       TRA X113                                                         F5G22500
X111   CLA SBV2 ARRANGE TO TRY NEXT SUCC.                               F5G22510
       ADD ONED                                                         F5G22520
       CAS SBV5            IS THIS SUCC IN SAME BB                      F5G22530
       TRA X112                                                         F5G22540
       TRA X74                                                          F5G22550
       TRA X112                                                         F5G22560
X114   CLA LPIND IS THIS                                                F5G22570
       TPL X74        A LOOP                                            F5G22580
       CLA LPLST YES                                                    F5G22590
       TRA X107                                                         F5G22600
X113   CLA SUCC,1 SET SIGN                                              F5G22610
       SSM  OF SUCC+ ENTRY                                              F5G22620
       STO SUCC,1 NEGATIVE                                              F5G22630
       TRA X111                                                         F5G22640
X74    LXD XV12,2                                                       F5G22650
       CLA LPLST+S3P1,2                                                 F5G22660
       CAS S3K2         IS IT A BB                                      F5G22670
       NOP                                                              F5G22680
       TRA X122                                                         F5G22690
       TRA X80 YES                                                      F5G22700
X122   PDX 0,4                                                          F5G22710
       TXH X205,4,-2     IS THE DECR. AN IMPOSSIBLE BB                  F5G22720
       ARS 18                                                           F5G22730
X205   TSX SE1,4                                                        F5G22740
       CLA BBB+5,1 THE                                                  F5G22750
       PDX 0,1 REGION                                                   F5G22760
       CAL REG,1           WORD                                         F5G22770
       SLW XV17                                                         F5G22780
       TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED                 F5G22790
       ANA LK3     OR THE LX BITS FOR                                   F5G22800
       ORS XV2 OLD REGION IN NEW REGION WORD.                           F5G22810
       CAL XK22            AND THE OLD PHI                              F5G22820
       ORA XV17 BITS                                                    F5G22830
       ANS XV2 INTO NEW REGION WORD.                                    F5G22840
       CLA ZERO CLEAR OLD                                               F5G22850
       STO REG,1 REGION WORD.                                           F5G22860
       CLA XV17 GET INDEX OF                                            F5G22870
       ARS 18                FIRST BB IN REG                            F5G22880
X75    STA XV22       STOREBB NO.                                       F5G22890
       TSX SE1,4 GET INDEX OF BB                                        F5G22900
X101   CLA XV1 STORE THE                                                F5G22910
       STD BBB+5,1 NEW REGION NO.                                       F5G22920
       CLA BBB+5,1 IS THIS THE                                          F5G22930
       ANA SBK2 LAST BB                                                 F5G22940
       CAS SBK2 OF THE REGION                                           F5G22950
       TRA X75                                                          F5G22960
       TRA X76 YES.                                                     F5G22970
       TRA X75                                                          F5G22980
X105   CLA XV22      RECORD THAT PREVIOUSLY                             F5G22990
       TSX SE1,4 NUMBERED BB                                            F5G23000
       CLA XK22 WAS LAST                                                F5G23010
       STA BBB+5,1 ONE IN NEW REGION.                                   F5G23020
       TRA X81 FINISHED RENUMBERING.                                    F5G23030
X80    ARS 18                                                           F5G23040
       STA XV22                                                         F5G23050
       TSX SE1,4                                                        F5G23060
X76    LXD XV12,2                                                       F5G23070
X140   TXI X140+1,2,-1                                                  F5G23080
       SXD XV12,2                                                       F5G23090
X77    CLA LPLST+S3P1,2                                                 F5G23100
       CAS S3K1 IS THIS END LOOP LIST                                   F5G23110
X219   TXI X217,0,-      SEE X217+2                                     F5G23120
       CLA S5K1          YES                                            F5G23130
X216   STA BBB+5,1       RECORD THE NEXT BB NO.                         F5G23140
       CLA XV1 RECORD THE                                               F5G23150
       STD BBB+5,1 NEW REGION                                           F5G23160
       TRA X79 NO.                                                      F5G23170
X217   LDQ S3K2                                                         F5G23180
       TLQ X220                                                         F5G23190
X215   ARS 18            NO                                             F5G23200
X218   TXI X216,0,-                                                     F5G23210
 X220  SXD X219,2                                                       F5G23220
       TSX SE,4                                                         F5G23230
       CLA BBB+5,1                                                      F5G23240
       PDX 0,1                                                          F5G23250
       CLA REG,1         GET REGION WORD                                F5G23260
       STD X218                                                         F5G23270
       CLA XV22                                                         F5G23280
       TSX SE1,4                                                        F5G23290
       CLA X218                                                         F5G23300
       LXD X219,2                                                       F5G23310
       TXI X215,-,-                                                     F5G23320
X81    CLA XV2                                                          F5G23330
       ORA ONEA                                                         F5G23340
       LXD XV1,1 NEW REGION                                             F5G23350
       STO REG,1 WORD.                                                  F5G23360
       TRA F                                                            F5G23370
X61    LXA S5K5,1                                                       F5G23380
X62    PXD 0,1 PLACE APPROPRIATE NOS.                                   F5G23390
       STD IN1+3,1     IN CORRSEPONDENCE                                F5G23400
       STD EN4+3,1      TABLES                                          F5G23410
       TIX X62,1,1                                                      F5G23420
       CLA S3V5                                                         F5G23430
       TSX S9,4          GET THE ENTRANCE REQUIREMENTS                  F5G23440
       TRA X63                                                          F5G23450
X64    CLA AC1+3,1 IS THIS I.R.                                         F5G23460
       TZE X59 ACTIVE                                                   F5G23470
       LXD S3V4,4 YES.                                                  F5G23480
       CLA LPLST+S3P1-1,4 GET                                           F5G23490
       SXD XV11,1 THE                                                   F5G23500
       SXD XV12,2 REGION                                                F5G23510
       TSX SE,4 WORD                                                    F5G23520
       CLA BBB+5,1 IN                                                   F5G23530
       PDX 0,4 THE                                                      F5G23540
       LDQ REG,4 MQ.                                                    F5G23550
       LXD XV11,1 HAS THERE                                             F5G23560
       LXD XV12,2                                                       F5G23570
       RQL 3,2               BEEN AN LX                                 F5G23580
       TQP X66 FOR THIS I.R.                                            F5G23590
       TRA X65 YES                                                      F5G23600
X66    CLA XV24                                                         F5G23610
       TNZ X208          IS THIS SAME REG. AS BEGINS STRING             F5G23620
       CLA LPLST         YES                                            F5G23630
       TSX SA,4          GET ACTIVE INDS. AT START OF STRING            F5G23640
       LXD XV11,1                                                       F5G23650
       CLA ACT1+3,1      WAS THIS IR ACTIVE AT START                    F5G23660
       TPL X65                                                          F5G23670
X208   LXD S3V4,4        YES, MARK ALL                                  F5G23680
       CLA LPLST+S3P1-1,4           BBS IN OPAQUE                       F5G23690
       LXD XV11,2        REGION ACTIVE                                  F5G23700
       TSX SD,4                                                         F5G23710
       LXD XV11,1                                                       F5G23720
       TSX SC,4          MARK SECTION OF LLLST ACTIVE                   F5G23730
       TRA X59                                                          F5G23740
X67    SXD XV11,1                                                       F5G23750
       LXD S3V4,1       GET                                             F5G23760
       CLA LPLST+S3P1-2,1 PRED+ NO                                      F5G23770
       CAS S3K2 IS THIS A BB                                            F5G23780
       NOP       NO                                                     F5G23790
       TRA X123                                                         F5G23800
       ARS 18 YES,SHIFT BB NO RIGHT.                                    F5G23810
X123   STA SBV3      AND STORE IT                                       F5G23820
       CLA LPLST+S3P1-1,1 GET INDEX OF                                  F5G23830
       TSX SE,4 THIS BB                                                 F5G23840
       CLA BBB+1,1 GET TO STORE                                         F5G23850
       STO XV9 PREM. NO.                                                F5G23860
       CLA BBB,1 GET PRED. NO.                                          F5G23870
X68    SLW SBV2                                                         F5G23880
       TSX SE5,4 GET INDEX OF PRED.                                     F5G23890
       CAL PRED,1 IS THIS THE                                           F5G23900
       ANA SBK2 RIGHT PRED                                              F5G23910
       CAS SBV3                                                         F5G23920
       TRA X69                                                          F5G23930
       TRA X70 YES.                                                     F5G23940
X69    CLA SBV2                                                         F5G23950
       ADD ONEA                                                         F5G23960
       TRA X68                                                          F5G23970
X70    LXA S5K5,4 SET COUNT TO 3                                        F5G23980
X72    CAL XV9 FIND                                                     F5G23990
       ARS 3,4 THE                                                      F5G24000
       ARS 3,4 PERM+ NO.                                                F5G24010
       ANA S9K3                                                         F5G24020
       CAS XV11 IS THIS THE RIGHT I.R.                                  F5G24030
       TRA X71 NO,                                                      F5G24040
       TRA X73 YES,                                                     F5G24050
X71    TIX X72,4,1 NO,                                                  F5G24060
       TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G24070
X73    CAL XK16 RECORD THAT AN                                          F5G24080
       ARS 3,4 LX IS                                                    F5G24090
       ORS PRED,1 NECESSARY.                                            F5G24100
       LXD XV11,4 RECORD                                                F5G24110
       CAL S5K3 LX                                                      F5G24120
       ARS 3,4 FOR THIS I.R.                                            F5G24130
       ORS XV2 IN THIS REGION.                                          F5G24140
       LXD XV11,1                                                       F5G24150
       TRA X119                                                         F5G24160
X33    CLA S3V5                                                         F5G24170
       TSX S5,4 MATCH ENTRANCE REQU.                                    F5G24180
       CLA S3V5                                                         F5G24190
       TSX SA,4 GET EXIT COND.                                          F5G24200
       CLA S3V5                                                         F5G24210
       TSX SE,4 GET INDEX OF                                            F5G24220
       CLA BBB+5,1 B.B.                                                 F5G24230
       PDX 0,1 GET                                                      F5G24240
       CLA REG,1 REGION                                                 F5G24250
       TSX SE,4 WORD.                                                   F5G24260
X40    SXD XV13,1 GET INDEX OF FIRST BB.                                F5G24270
       CAL BBB+1,1 CLEAR REGISTER TO                                    F5G24280
       SLW XV9 CONTAIN PERM. NOS.                                       F5G24290
       ANA XK20 GET ORIGINAL PERM. NOS.                                 F5G24300
       SLW XV8                                                          F5G24310
       LXA S5K5,2 SET COUNT TO 3.                                       F5G24320
X38    CAL XV9 GET THE                                                  F5G24330
       ARS 3,2 PERM.                                                    F5G24340
       ARS 3,2 NO. AND                                                  F5G24350
       ANA S9K3 PUT IT                                                  F5G24360
       PDX 0,4 IN 4.                                                    F5G24370
       CLA EN4+3,4 GET THE CORRESPONDENCE                               F5G24380
       ALS 3,2 OF THE ENTR,                                             F5G24390
       ALS 3,2 REQUIREMENTS.                                            F5G24400
       ORS XV8 FORM NEW PERM. NOS.                                      F5G24410
       SXD XV10,1                                                       F5G24420
       CLA EN4+3,4                                                      F5G24430
       PDX 0,1 GET INDEX OF I.R.                                        F5G24440
       CLA EN1+3,4                                                      F5G24450
       CAS S5K1 IS ENM EMPTY                                            F5G24460
       TRA X34 NO,                                                      F5G24470
       TRA X41 YES,                                                     F5G24480
X34    CAS LK1 NO,IS C(ENM)=E                                           F5G24490
       TRA X35 NO,                                                      F5G24500
       TRA X36 YES,                                                     F5G24510
X35    CAS IR1+3,1 C-(ENM)=C(IRN)                                       F5G24520
       TRA X36 NO                                                       F5G24530
       TRA X43 YES                                                      F5G24540
X36    LXD XV10,1 NO                                                    F5G24550
X42    TXI X42+1,1,-1                                                   F5G24560
X37    TIX X38,2,1 COUNT TO 3                                           F5G24570
       CAL XV8       STORE NEW                                          F5G24580
       STD BBB-2,1 PERM. NOS.                                           F5G24590
       STP BBB-2,1      AND ACTIVE INDICATORS                           F5G24600
       CLA BBB+2,1 IS THIS                                              F5G24610
       ANA SBK2 LAST BB IN REGION                                       F5G24620
       CAS SBK2                                                         F5G24630
       TRA X39                                                          F5G24640
       TRA X45 YES,DONE.                                                F5G24650
X39    TSX SE1,4 GET INDEX OF NEXT B.B.                                 F5G24660
       TRA X40                                                          F5G24670
X200   CLA EX1+3,4       IS CONTENTS OF IR                              F5G24680
       LDQ S5K2       AT EXIT                                           F5G24690
       TLQ X130      REAL                                               F5G24700
       TRA X36       YES                                                F5G24710
X43    CLA ACT1+3,4                                                     F5G24720
 PW0   SXD W2+1,1                                                       F5G24730
       TPL X200       IS IT ACTIVE AT EXIT                              F5G24740
X130   CLA AC1+3,1     YES,IS THIS IR ACTIVE                            F5G24750
       TZE X36                                                          F5G24760
       CLA IR1+3,1 YES                                                  F5G24770
       STO XV21                                                         F5G24780
       LXD XV10,1 DOES THIS BB CONTAIN THE                              F5G24790
       CLA BBB+2,1     SAME TAG IN THIS P0SITION                        F5G24800
       ANA S5K1                                                         F5G24810
       CAS XV21                                                         F5G24820
       TRA W0                                                           F5G24830
       TRA X44 YES.                                                     F5G24840
       TRA W0                                                           F5G24850
       REM  C(XV10)= INDEX OF PARTICULAR                                F5G24860
       REM  ENTRANCE REQUIREMENT.                                       F5G24870
X41    CLA IR1+3,1                                                      F5G24880
       STO XV6                                                          F5G24890
       ALS 18 STORE AWAY THIS                                           F5G24900
       ADD IR1+3,1 TAG TEMPORARILY.                                     F5G24910
       SLW XV7                                                          F5G24920
       CLA IR1+3,1     IS THIS                                          F5G24930
       LDQ S5K2      TAG                                                F5G24940
       TLQ X201                                                         F5G24950
       LXD XV13,1                                                       F5G24960
       LXA S5K5,4 SET COUNT TO 3.                                       F5G24970
X85    CAL BBB+2,1                                                      F5G24980
       LRS 18                                                           F5G24990
       CAS XV6 IS ENTR. REQU. EQUAL TO TAG                              F5G25000
       TRA X82 NO,                                                      F5G25010
       TRA X86 YES,                                                     F5G25020
X82    CLA ZERO NO,                                                     F5G25030
       LLS 18                                                           F5G25040
       CAS XV6 IS TAG EQUAL TO EXIT COND.                               F5G25050
       TRA X83                                                          F5G25060
       TRA X87 YES                                                      F5G25070
X83    TXI X83+1,1,-1                                                   F5G25080
X84    TIX X85,4,1 COUNT TO 3.                                          F5G25090
X201   CLA XV7       STORE THE                                          F5G25100
       LXD XV10,1 NEW ENTRAKCE-                                         F5G25110
       STO BBB+2,1 EXIT REQUI.                                          F5G25120
       TRA X42                                                          F5G25130
X86    CAL XK18 PUT AN E                                                F5G25140
       STD XV7 IN THE ENTR. REQU.                                       F5G25150
       STP XV7                                                          F5G25160
       TRA X82                                                          F5G25170
X87    CAL XV7 PLACE E                                                  F5G25180
       ANA XK19 IN                                                      F5G25190
       ADD LK1 EXIT                                                     F5G25200
       SLW XV7 REQUIREMENT.                                             F5G25210
       TRA X83                                                          F5G25220
X44    CAL S5K3 RECORD THIS                                             F5G25230
       ARS 3,2 I.R.                                                     F5G25240
       ORS XV8 ACTIVE                                                   F5G25250
       TRA X42                                                          F5G25260
X45    LXA S5K5,2                                                       F5G25270
X56    SXD XV14,2                                                       F5G25280
       CLA EN4+3,2                                                      F5G25290
       PDX 0,4 GET INDEX                                                F5G25300
       SXD SBV4,4 OF I.R.                                               F5G25310
       CLA EN1+3,2                                                      F5G25320
       CAS S5K1 IS ENM EMPTY                                            F5G25330
       TRA X46                                                          F5G25340
       TRA X223                                                         F5G25350
X46    CAS LK1 IS THERE HASH IN ENM                                     F5G25360
       TRA X134                                                         F5G25370
       TRA X55 YES                                                      F5G25380
X134   CAS IR1+3,4        DOES CONTENTS OF IR EQUAL CONTENTS OF EN      F5G25390
       TRA X47          NO                                              F5G25400
       TRA X131          YES                                            F5G25410
X47    LXD S3V4,1 GET AND                                               F5G25420
       CLA LPLST+S3P1-2,1 STORE PRED.                                   F5G25430
       CAS S3K2 BB                                                      F5G25440
       NOP  NO.                                                         F5G25450
       TRA X124                                                         F5G25460
       ARS 18                                                           F5G25470
X124   STA SBV3                                                         F5G25480
       CLA LPLST+S3P1-1,1 GET                                           F5G25490
       TSX SE,4 BB NO.                                                  F5G25500
       CLA BBB+1,1 STORE THE                                            F5G25510
       STO XV9 PERM. NOS.                                               F5G25520
       CLA BBB+5,1                                                      F5G25530
       PDX 0,4                                                          F5G25540
       LXD XV14,2                                                       F5G25550
       CAL S5K3                                                         F5G25560
       ARS 3,2                                                          F5G25570
       ORS REG,4                                                        F5G25580
       CLA BBB,1 GET PRED. NO.                                          F5G25590
X48    SLW SBV2          STORE PRED. NO.                                F5G25600
       TSX SE5,4 OBTAIN PRED. INDEX.                                    F5G25610
       CAL PRED,1 IS THIS                                               F5G25620
       ANA SBK2 THE CORRECT                                             F5G25630
       CAS SBV3 PRED                                                    F5G25640
       TRA X49                                                          F5G25650
       TRA X50 YES.                                                     F5G25660
X49    CLA SBV2 ARRANGE TO                                              F5G25670
       ADD ONEA TRY NEXT PREDECESSOR.                                   F5G25680
       TRA X48                                                          F5G25690
X50    LXA S5K5,4 1 HAS INDEX OF PRED.                                  F5G25700
X52    CAL XV9 EXTRACT                                                  F5G25710
       ARS 3,4 THE                                                      F5G25720
       ARS 3,4 PERM.                                                    F5G25730
       ANA S9K3 NO.                                                     F5G25740
       CAS SBV4 IS THIS THE PERM. NO.                                   F5G25750
       TRA X51                                                          F5G25760
       TRA X53 YES.                                                     F5G25770
X51    TIX X52,4,1                                                      F5G25780
       TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G25790
X53    CAL XK16 GENERATE                                                F5G25800
       ARS 3,4 THE LX BIT.                                              F5G25810
       ORS PRED,1 INSERT LX BIT.                                        F5G25820
X55    LXD SBV4,1 IS THE                                                F5G25830
       CLA AC1+3,1 I.R.                                                 F5G25840
       TZE X135         ACTIVE                                          F5G25850
       TSX SB,4 YES,RECORD SXD NEEDED.                                  F5G25860
X135   LXD XV14,2     REPLACE IR                                        F5G25870
       LXD SBV4,4      BY EXIT CONDITIONS                               F5G25880
       CLA EX1+3,2       OF THE                                         F5G25890
       STO IR1+3,4      REGION                                          F5G25900
X136   CLA ACT1+3,2      IS IR                                          F5G25910
       TPL X54       ACTIVE AT EXIT                                     F5G25920
       CLA S3V4        SET                                              F5G25930
       SSM                   ACTIVE                                     F5G25940
       SUB ONED         INDICATOR                                       F5G25950
       STO AC1+3,4                                                      F5G25960
X54    LXD XV14,2      COUNT TO                                         F5G25970
       TIX X56,2,1        3                                             F5G25980
       TSX SG,4            PERMUTE REGION WORD                          F5G25990
       CAL REG,2                                                        F5G26000
       ANA XK22                                                         F5G26010
       SLW REG,2                                                        F5G26020
       LXA S5K5,4                                                       F5G26030
XY1    CLA IR1+3,4                                                      F5G26040
       SUB S5K1                                                         F5G26050
       TNZ XY2                                                          F5G26060
       CAL XK23+3,4                                                     F5G26070
       ORS REG,2                                                        F5G26080
XY2    TIX XY1,4,1                                                      F5G26090
       TRA X3                                                           F5G26100
X223   CLA IR1+3,4         IS CONTENTS OF IR REAL                       F5G26110
       LDQ S5K2                                                         F5G26120
       TLQ X54                                                          F5G26130
       LXA S5K5,1          YES, SET COUNT TO 3                          F5G26140
X225   CAS EX1+3,1         IS CONTENTS SAME AS EXIT CONDITIONS          F5G26150
       TRA X224                                                         F5G26160
       TRA X226            YES                                          F5G26170
X224   TIX X225,1,1        C0UNT TO 3                                   F5G26180
       TRA X54                                                          F5G26190
X226   CLA LK1             REPLACE IR BY E                              F5G26200
       STO IR1+3,4                                                      F5G26210
       TRA X54                                                          F5G26220
X131   LDQ EX1+3,2       IS THE EXIT                                    F5G26230
       CLA S5K2         CONDITION REAL FOR THIS IR                      F5G26240
       TLQ X132                                                         F5G26250
 X133  LXD SBV4,1            NO                                         F5G26260
       TSX SC,4        RECORD PART OF LPLST ACTIVE                      F5G26270
       TRA X135                                                         F5G26280
X132   CLA ACT1+3,2       IS THIS IR ACTIVE                             F5G26290
       TPL X135          AT EXIT OF REGION                              F5G26300
       TRA X133        YES                                              F5G26310
X88    CLA LPIND                                                        F5G26320
       TPL XY3               IS THIS A LOOP                             F5G26330
       CLA LPLST-1 YES                                                  F5G26340
       CAS S3K2 IS LAST LPLST QUANTITY A BB                             F5G26350
       NOP  NO                                                          F5G26360
       TRA X125                                                         F5G26370
       ARS 18 YES                                                       F5G26380
X125   STA SBV3     STORE PRED. NO.                                     F5G26390
       CLA LPLST                                                        F5G26400
       TSX SE,4 GET INDEX OF 1ST BB IN LOOP.                            F5G26410
       SXD XV8,1        STORE INDEX OF 1ST BB                           F5G26420
       CLA BBB,1                                                        F5G26430
X91    SLW XV16          STORE PRED. NO.                                F5G26440
       TSX SE5,4 GET INDEX OF PRED.                                     F5G26450
       CLA PRED,1 IS                                                    F5G26460
       ANA SBK2 THIS THE                                                F5G26470
       CAS SBV3 RIGHT PRED                                              F5G26480
       TRA X90                                                          F5G26490
       TRA X92 YES                                                      F5G26500
X90    CLA XV16                                                         F5G26510
       ADD ONEA                                                         F5G26520
       TRA X91                                                          F5G26530
XY3    LXA S5K5,1                                                       F5G26540
XY4    TSX SC,4                                                         F5G26550
       TIX XY4,1,1                                                      F5G26560
       TRA X89                                                          F5G26570
X97    SXD X137,1                                                       F5G26580
       CAS IR1+3,1  IS CONTENTS 0F IRN EQUAL TO CONTENTS OF ENM         F5G26590
       TRA X98                                                          F5G26600
       TRA X93        YES                                               F5G26610
X98    CAL S5K3 RECORD LX FOR                                           F5G26620
       ARS 3,1 THIS IR IN THIS                                          F5G26630
       LXD XV1,1 REGION.                                                F5G26640
       ORS REG,1                                                        F5G26650
       SXD XV14,4 GET                                                   F5G26660
       SXD XV15,2 INDEX                                                 F5G26670
       CLA XV16 OF                                                      F5G26680
       TSX SE5,4 PRED.                                                  F5G26690
       LXD XV14,4                                                       F5G26700
       LXD XV15,2                                                       F5G26710
       CAL XK16 RECORD                                                  F5G26720
       ARS 3,4 LX                                                       F5G26730
       ORS PRED,1 NECESSARY.                                            F5G26740
       LXD X137,1                                                       F5G26750
X137   TXI X96,0,-                                                      F5G26760
X92    LXD XV8,2                                                        F5G26770
       LXA S5K5,4 SET COUNT TO 3                                        F5G26780
       CLA BBB+1,2 GET THE WORD WITH                                    F5G26790
       STO XV9 PERM. NOS.                                               F5G26800
X95    CAL XV9 GET                                                      F5G26810
       ARS 3,4 INDEX                                                    F5G26820
       ARS 3,4 OF                                                       F5G26830
       ANA S9K3 THE                                                     F5G26840
       PDX 0,1 I.R.                                                     F5G26850
       CAL BBB+2,2 GET ENTRANCE                                         F5G26860
       ARS 18 REQUIREMENT.                                              F5G26870
       CAS S5K2          IS ENM REAL                                    F5G26880
       NOP                                                              F5G26890
       TRA X96         NO                                               F5G26900
       TRA X97 YES                                                      F5G26910
X96    CLA AC1+3,1 IS IRN                                               F5G26920
       TZE X93 ACTIVE                                                   F5G26930
       SXD XV14,2 YES,                                                  F5G26940
       SXD XV15,4                                                       F5G26950
       TSX SB,4 RECORD SXD NECESSARY.                                   F5G26960
       LXD XV14,2                                                       F5G26970
       LXD XV15,4                                                       F5G26980
X93    TXI X93+1,2,-1                                                   F5G26990
X94    TIX X95,4,1 COUNT TO 3                                           F5G27000
       REM  ACTIVE PASS.                                                F5G27010
       REM  F0LLOWS 2 ED LXING PASS.                                    F5G27020
       LDQ S3K3 INITIALIZE THE                                          F5G27030
       STQ S3V4 LOOP LIST                                               F5G27040
       LDQ S5K3 AND                                                     F5G27050
       STQ S3V3 MAKE SURE TAG                                           F5G27060
       STQ ACIND      SET IND. TO SAY THIS IS ACTIVE PASS               F5G27070
       SXD S3V2,0     LOCATI0N GETS SET                                 F5G27080
A3     CLA ZERO ARE                                                     F5G27090
       ADM AC1 THERE                                                    F5G27100
       ADM AC2 ANY                                                      F5G27110
       ADM AC3 ACTIVE I.R.S                                             F5G27120
       TZE X89 LEFT GO TO RENUMBER.                                     F5G27130
       TSX S3,4 YES. TRY TO GET NEXT TAG.                               F5G27140
       TRA A12 COME HERE IF TAG NOT GOT                                 F5G27150
       CLA S39 COMPUTE LOCATION OF THIS                                 F5G27160
       ANA SBK2 TAG=(ADDR. FOLLOWING                                    F5G27170
       ADD S4V1 TIX BLOCK + L(CM)-CM TAG                                F5G27180
       SUB S4K3 - INDEX OF TAG.)                                        F5G27190
       ALS 18                                                           F5G27200
       SBM S3V2                                                         F5G27210
       LRS 53                                                           F5G27220
       STQ XV5                                                          F5G27230
       DVP XK9 FORM LOC/9 AND                                           F5G27240
       STQ XV3 REMAINDER                                                F5G27250
       STO XV4                                                          F5G27260
       CLA TPE IS THIS                                                  F5G27270
       CAS S2K2 AN LX                                                   F5G27280
       TRA A1                                                           F5G27290
       TRA A5 YES                                                       F5G27300
A1     CAS XK15 IS IT AN LX PRIME                                       F5G27310
       TRA A20                                                          F5G27320
       TRA A8 YES                                                       F5G27330
A20    CAS XK21 IS IT A DED                                             F5G27340
       TRA A21                                                          F5G27350
       TRA A8 YES.                                                      F5G27360
A21    CAS XK12 IS IT AN ACTIVE INSTR.                                  F5G27370
       TRA A2                                                           F5G27380
       TRA A5 YES.                                                      F5G27390
A2     CLA XV3 GET INDEX                                                F5G27400
       TSX SE4,4 OF STAG ENTRY.                                         F5G27410
       LXA XV4,2 IS THERE                                               F5G27420
       CAL STAG,1 AN LX                                                 F5G27430
       ARS 8,2 IN FRONT                                                 F5G27440
       ANA XK11 OF                                                      F5G27450
       CAS XK11 THIS INSTR.                                             F5G27460
       TRA A3                                                           F5G27470
       TRA A4 YES.                                                      F5G27480
       TRA A3                                                           F5G27490
A4     CAL XV4 GET                                                      F5G27500
       COM  THE                                                         F5G27510
       PAX 0,2 S-TAG                                                    F5G27520
       CAL STAG,1 IN                                                    F5G27530
       ALS 0,2 DECR.                                                    F5G27540
       ALS 0,2 PART.                                                    F5G27550
       ANA S9K3                                                         F5G27560
       PDX 0,1                                                          F5G27570
       CLA AC1+3,1 IS THE CORRESPONDING                                 F5G27580
       TZE A3 I.R. ACTIVE                                               F5G27590
       TSX SB,4 YES,RECORD SXD NECESSARY                                F5G27600
       TRA A3                                                           F5G27610
A5     CLA XV3                                                          F5G27620
       TSX SE4,4 GET STAG INDEX.                                        F5G27630
       CAL XV4                                                          F5G27640
       COM  IS IT                                                       F5G27650
       PAX 0,2 TO                                                       F5G27660
       CAL STAG,1 AN                                                    F5G27670
       ALS 0,2                                                          F5G27680
       ALS 0,2 ACTIVE                                                   F5G27690
       ANA S9K3                                                         F5G27700
       PDX 0,1 IR                                                       F5G27710
       CLA AC1+3,1                                                      F5G27720
       TZE A3                                                           F5G27730
  A51  CLA IR1+3,1 IS IT                                                F5G27740
       CAS 1TAG           SAME TAU-TAG                                  F5G27750
       TRA A6                                                           F5G27760
       TRA A7 YES                                                       F5G27770
A6     TSX SB,4 RECORD SXD NEEDED.                                      F5G27780
       TRA A3                                                           F5G27790
A7     TSX SC,4 RECORD CERTAIN PART OF                                  F5G27800
       TRA A3 LOOP LIST ACTIVE.                                         F5G27810
A8     CLA XV3 GET                                                      F5G27820
       TSX SE4,4 THE                                                    F5G27830
       CAL XV4                                                          F5G27840
       COM  S-TAG                                                       F5G27850
       PAX 0,2 OF                                                       F5G27860
       CAL STAG,1                                                       F5G27870
       STO S1V6                                                         F5G27871
       ALS 0,2 THIS                                                     F5G27880
       ALS 0,2 INSTR.                                                   F5G27890
       ANA S9K3                                                         F5G27900
       PDX 0,1                                                          F5G27910
       TZE A3 DOES THIS INSTR HAVE AN S-TAG                             F5G27920
       CLA AC1+3,1 YES.                                                 F5G27930
       TZE A3                IS THIS IR ACTIVE                          F5G27940
       CLA ZERO                                                         F5G27941
       PXD 0,2                                                          F5G27942
       COM                                                              F5G27943
       PDX 0,4                                                          F5G27944
       CLA S1V6                                                         F5G27945
       ARS 8,4                                                          F5G27946
       ANA ONED                                                         F5G27947
       TNZ A51                                                          F5G27948
       TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE                      F5G27950
       TRA A3                                                           F5G27960
A12    LXD S3V4,1      GET INDEX OF LPLST QUANTITY                      F5G27970
       CLA LPLST+S3P1-2,1     GET PREVIOUS LPLST QUANTITY               F5G27980
       STO XV19                                                         F5G27990
       LDQ S3K2      WAS IT A                                           F5G28000
       TLQ A28                                                          F5G28010
A25    TSX SE,4          YES, WAS THAT                                  F5G26020
       CLA BBB,1     BB TERMINATED                                      F5G28030
       ARS 33        BY A                                               F5G28040
       ADD ONEA         GO TO N                                         F5G28050
       TNZ A28                                                          F5G28060
       LXA S5K5,1     YES                                               F5G28070
A26    CLA AC1+3,1     IS THIS                                          F5G28080
       TZE A27      IR ACTIVE                                           F5G28090
       TSX SB,4     YES, RECORD SXD NECESSARY                           F5G28100
A27    TIX A26,1,1                                                      F5G28110
A28    CLA S3V5                                                         F5G28120
       LDQ S3K2          IS THIS                                        F5G28130
       TLQ A35           ATR. REGION                                    F5G28140
       ANA S5K1              NO, BB                                     F5G28150
       TZE A3                                                           F5G28160
       ALS 3                                                            F5G28170
       PDX 0,1                                                          F5G28180
       TXL AP1,1,2                                                      F5G28190
       TXI AP1,1,-1                                                     F5G28200
AP1    CLA AC1+3,1                                                      F5G28210
       TZE A3                                                           F5G28220
       TSX SB,4                                                         F5G28230
       TRA A3                                                           F5G28240
A35    TSX SE,4                                                         F5G28250
       CLA BBB+5,1                                                      F5G28260
       PDX 0,2          INDEX OF REGION TO 2                            F5G28270
       CLA REG,2        GET REGION                                      F5G28280
       STO XV19                                                         F5G28290
       LXA S5K5,1                                                       F5G28300
A31    CAL XV19                                                         F5G28310
       ALS 3,1                                                          F5G28320
       PBT                   IS THERE AN LX                             F5G28330
       TRA A30               FOR THIS IR                                F5G28340
       CLA AC1+3,1      YES                                             F5G28350
       TZE A30          IS THIS IR ACTIVE                               F5G28360
       TSX SB,4         YES, RECORD SXD NECESSARY                       F5G28370
A30    TIX A31,1,1                                                      F5G28380
       CLA S3V5                                                         F5G28390
       TSX SA,4         GET THE EXIT CONDITIONS                         F5G28400
       LXA S5K5,1                                                       F5G28410
A34    CLA AC1+3,1                                                      F5G28420
       TZE A32          IS THIS IR ACTIVE                               F5G28430
       CLA EX1+3,1      YES                                             F5G28440
       LDQ S5K2                                                         F5G28450
       TLQ A33          IS THE EXIT CONDITION REAL                      F5G28460
       CLA ACT1+3,1     YES                                             F5G28470
       TPL A32          IS THE IR ACTIVE AT EXIT                        F5G28480
A33    SXD XV20,1       YES                                             F5G28490
       LXD XV20,2                                                       F5G28500
       CLA S3V5                                                         F5G28510
       TSX SD,4         RECORD TR. REG. ACTIVE                          F5G28520
       LXD XV20,1                                                       F5G28530
       TSX SC,4         RECORD SECTION OF LPLST ACTIVE                  F5G28540
A32    TIX A34,1,1      COUNT TO 3                                      F5G28550
       TRA A3                                                           F5G28560
 QP    CLA XK15                                                         F5G28580
       ANA 16                                                           F5G28590
       ARS 1                                                            F5G28600
       STD SE21+2                                                       F5G28610
       TZE R                                                            F5G28620
       LXD PREDP+3,4                                                    F5G28630
       CLA BBBP+3                                                       F5G28640
QP0    TXL R,4,0                                                        F5G28650
       TXI QP1,4,-1                                                     F5G28660
 QP1   SXD SE21+3,4                                                     F5G28670
       SUB ONED                                                         F5G28680
       TSX SE,4                                                         F5G28690
       LXD BBBP,4                                                       F5G28700
       TXI QP2,4,BBBL-1                                                 F5G28710
 QP2   SXD QP4,4                                                        F5G28720
       SXD QP5,4                                                        F5G28730
       LXA BBB,4                                                        F5G28740
       SXD QP8,4                                                        F5G28750
       LXD SE21+3,4                                                     F5G28760
 QP3   PXD 0,4                                                          F5G28770
       TSX SE5+1,4                                                      F5G28780
       CLS PRED,1                                                       F5G28790
       PAX 0,4                                                          F5G28800
 QP4   TXH QP6,4,-                                                      F5G28810
       TXI QP5,4,BBBL                                                   F5G28820
 QP5   TXH QP7,4,-                                                      F5G28830
 QP6   STO PRED,1                                                       F5G28840
 QP7   LXD SEV2,4                                                       F5G28850
       CLA BBBP                                                         F5G28860
 QP8   TXL QP0,4,-                                                      F5G28870
       TXI QP3,4,-1                                                     F5G28880
       ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS.        F5G28890
       REM  STORAGE ASSIGNMENT (TABLES)                                 F5G28900
LPLST  BSS S3P1 SPACE FOR LOOP LIST TABLE                               F5G28910
REG    BES FP1 SPACE FOR REGION WORDS                                   F5G28920
SPACE  EQU MSIZE-5-REG     STORAGE SPACE LEFT                           F5G28930
 STAGL SYN STL                                                          F5G28940
STAG   HTR -                                                            F5G28950
       HTR -                                                            F5G28960
       REP 1,49                                                         F5G28970
 W0    CLA BBB+2,1                                                      F5G28980
       ARS 18                                                           F5G28990
       SUB XV21                                                         F5G29000
       TZE X42                                                          F5G29010
       LXA S5K5,1                                                       F5G29020
       LXD XV13,4                                                       F5G29030
 W1    CLA BBB+2,4                                                      F5G29040
       LRS 18                                                           F5G29050
       SUB XV21                                                         F5G29060
       TZE W3                                                           F5G29070
       CLA ZERO                                                         F5G29080
       LLS 18                                                           F5G29090
       SUB XV21                                                         F5G29100
       TZE W3                                                           F5G29110
       TXI W2,4,-1                                                      F5G29120
 W2    TIX W1,1,1                                                       F5G29130
       TXL X36,-,-                                                      F5G29140
 W3    SXD W4,2                                                         F5G29150
       LXD W2+1,1                                                       F5G29160
       TSX SB,4                                                         F5G29170
       LXD W4,2                                                         F5G29180
 W4    TXL X36,-,-                                                      F5G29190
       BSS PTL1      SPACE FOR PATCHES                                  F5G29200
CMTL   SYN 9*SPACE/20/15*15                                             F5G29210
CMTAG  BSS CMTL                                                         F5G29220
BBBL   SYN 6*SPACE/20/6                                                 F5G29230
BBB    BSS BBBL*6+1                                                     F5G29240
PRED   SYN BBB+BBBL*6+1                                                 F5G29250
SPAC1  EQU MSIZE-4-PRED                                                 F5G29260
PREDL  EQU SPAC1/2-1                                                    F5G29270
       BSS PREDL+1                                                      F5G29280
SUCCL  SYN PREDL                                                        F5G29290
SUCC   BSS SUCCL+1                                                      F5G29300
       REM         EDITOR RECORD NO. 76                                 F5G29310
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G29320
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G29340
       REM                 PART 1B                                      F5G29350
       REM    INITIALIZATI0N AND PRED LIMIT FOR FAST COMPILING.         F5G29360
       ORG PRED                                                         F5G29370
I      LXA FK5,1                  CLEAR REG. TABLE                      F5G29380
       DCT   CLEAR DIVIDE CHECK LIGHT                                   F5G29390
       NOP      IN CASE DIVIDE CHECK IS ON                              F5G29400
       CLA ZERO                                                         F5G29410
I11    STO REG,1                                                        F5G29420
       TIX I11,1,1                                                      F5G29430
       PSE 96                TURN OFF SENSE LIGHTS.                     F5G29440
       CLA KEYS+3               INITIALIZE                              F5G29441
       STO STAGP+5 DRUM ADDR. OF STAG                                   F5G29450
       CLA KEYS+1                                                       F5G29460
       STO PREDP+5                                                      F5G29470
       CLA KEYS+2                                                       F5G29480
       STO BBBP+5 DRUM ADDR. OF BB.B.                                   F5G29490
       CLA KEYS                                                         F5G29500
       ALS 18                                                           F5G29510
       STO BBBP+3 N0. OF BASIC BLOCKS.                                  F5G29520
       SUB ONED                                                         F5G29530
       TSX SE,4                                                         F5G29540
       CLA BBB,1                                                        F5G29550
       STD SUCCP+3    LOCATION OF LAST SUCC                             F5G29560
       ALS 18                                                           F5G29570
       STD PREDP+3      LOCATION OF LAST PRED                           F5G29580
       CLA BBB+1,1                                                      F5G29590
       ANA S3K4                                                         F5G29600
       STO S4V3                                                         F5G29610
       LRS 35                                                           F5G29620
       DVP S4K2 COMPUTE                                                 F5G29630
       STQ IV1 THE                                                      F5G29640
       TZE I1 LOCATION                                                  F5G29650
       CLA ONEA WHICH A TAG                                             F5G29660
I1     ADD IV1 WOULD HAVE                                               F5G29670
       LRS 35 IF IT                                                     F5G29680
       MPY S4K2 WERE FIRST IN                                           F5G29690
       LLS 35 THE NEXT RECORD.                                          F5G29700
       STO S4V2                                                         F5G29710
       STO S4V1                                                         F5G29720
       CLA BBB+1,1 DETERMINE NO.                                        F5G29730
       ANA S3K4 OF ENTRIES IN                                           F5G29740
       LRS 35 STAG.                                                     F5G29750
       DVP XK9                                                          F5G29760
       STQ IV1                                                          F5G29770
       TZE I10                                                          F5G29780
       CLA ONEA                                                         F5G29790
I10    ADD IV1          INITIALIZE                                      F5G29800
       ALS 18                                                           F5G29810
       STO STAGP+3 OF ENTRIES IN STAG                                   F5G29820
       LRS 35 COMPUTE                                                   F5G29830
       DVP STAGP+2   THE                                                F5G29840
       TZE I3 DRUM                                                      F5G29850
       CLA ONEA ADDR.                                                   F5G29860
I3     STQ IV2 FOLLOWING                                                F5G29870
       ADD IV2 THE                                                      F5G29880
       ALS 18                                                           F5G29890
       ADD STAGP+3 STAG                                                 F5G29900
       ARS 18                                                           F5G29910
       ADD STAGP+5 TABLE.                                               F5G29920
       LDQ IK1                                                          F5G29930
       TLQ I7                                                           F5G29940
I6     CLA STAGP+1                                                      F5G29950
       CAS STAGP+3    ARE WE THRU STORING 0 S                           F5G29960
       TRA I4                                                           F5G29970
       TRA I9                                                           F5G29980
I4     STO STAGP SET N(0) TO OLD N(1)                                   F5G29990
       ADD STAGP+2 SET N(1) TO MIN (OLD N(1)+N.,                        F5G30000
       LDQ STAGP+3 N(L)                                                 F5G30010
       STQ STAGP+1                                                      F5G30020
       TLQ I5                                                           F5G30030
       STO STAGP+1                                                      F5G30040
I5     CLA SEK                                                          F5G30050
       LXA IK2,2                                                        F5G30060
       TSX SE26,4 STORE BLOCK OF 0S                                     F5G30070
       TRA I6                                                           F5G30080
I7     TSX 4,4 TO DIAGNOSTIC                                            F5G30090
IV1                                                                     F5G30100
IV2                                                                     F5G30110
IK2        1-STAGP                                                      F5G30120
IK1    HTR 8191                                                         F5G30130
I9     TSX S4,4                                                         F5G30140
       REW INSTTP            REWIND THE COMPILED INST TAPE              F5G30150
       CLA KEYS+1                                                       F5G30160
       TNZ LPLST-1                                                      F5G30170
       STO LPIND                                                        F5G30180
       STO LPLST-1                                                      F5G30190
       STO LPLST                                                        F5G30200
       CLA S3K1                                                         F5G30210
       STO LPLST+1                                                      F5G30220
       LXD S1K2,4  SKIP DIAGNOSTICS                                     F5G30230
I9A    RTB 1  AND ANTIPINGPONG                                          F5G30240
       TIX I9A,4,1   SIX RECORDS                                        F5G30250
       TRA F75                                                          F5G30260
       REM         EDITOR RECORD NO. 78                                 F5G30270
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30280
       REM      DIAGNOSTIC CALLER F0LL0WS                               F5G30300
       REM           PART 1C                                            F5G30310
       REM       SUCC LIMIT FOR FAST COMPILING                          F5G30320
       ORG LPLST-1                                                      F5G30330
 QS    LXD SE21+2,1                                                     F5G30340
       TXL F,1,0                                                        F5G30350
       LXD SUCCP+3,4                                                    F5G30360
       CLA BBBP+3                                                       F5G30370
 QS0   TXL F,4,0                                                        F5G30380
       TXI QS1,4,-1                                                     F5G30390
 QS1   SXD SE21+3,4                                                     F5G30400
       SUB ONED                                                         F5G30410
       TSX SE,4                                                         F5G30420
       LXD BBBP,4                                                       F5G30430
       TXI QS2,4,BBBL-1                                                 F5G30440
 QS2   SXD QS4,4                                                        F5G30450
       SXD QS5,4                                                        F5G30460
       LXD BBB,4                                                        F5G30470
       SXD QS8,4                                                        F5G30480
       LXD SE21+3,4                                                     F5G30490
 QS3   PXD 0,4                                                          F5G30500
       TSX SE6,4                                                        F5G30510
       CLS SUCC,1                                                       F5G30520
       PAX 0,4                                                          F5G30530
 QS4   TXH QS6,4,-                                                      F5G30540
       TXI QS5,4,BBBL                                                   F5G30550
 QS5   TXH QS7,4,-                                                      F5G30560
 QS6   STO SUCC,1                                                       F5G30570
 QS7   LXD SEV2,4                                                       F5G30580
       CLA BBBP                                                         F5G30590
 QS8   TXL QS0,4,-                                                      F5G30600
       TXI QS3,4,-1                                                     F5G30610
       REM         EDITOR RECORD NO. 80                                 F5G30620
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30630
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G30650
       REM           PART 1D                                            F5G30660
       REM         PRED UNDO FROM FAST COMPILING                        F5G30670
       ORG LPLST-1                                                      F5G30680
 QPU   LXD SE21+2,1                                                     F5G30690
       TXL R,1,0                                                        F5G30700
       LXD PREDP+3,4                                                    F5G30710
       CLA BBBP+3                                                       F5G30720
QPU0   TXL R,4,0                                                        F5G30730
       TXI QPU1,4,-1                                                    F5G30740
 QPU1  SXD SE21+3,4                                                     F5G30750
       SUB ONED                                                         F5G30760
       TSX SE,4                                                         F5G30770
       LXD BBBP,4                                                       F5G30780
       TXI QPU2,4,BBBL-1                                                F5G30790
 QPU2  SXD QPU4,4                                                       F5G30800
       SXD QPU5,4                                                       F5G30810
       LXA BBB,4                                                        F5G30820
       SXD QPU8,4                                                       F5G30830
       LXD SE21+3,4                                                     F5G30840
 QPU3  PXD 0,4                                                          F5G30850
       TSX SE5+1,4                                                      F5G30860
       CLS PRED,1                                                       F5G30870
       PAX 0,4                                                          F5G30880
 QPU4  TXH QPU6,4,-                                                     F5G30890
       TXI QPU5,4,BBBL                                                  F5G30900
 QPU5  TXH QPU7,4,-                                                     F5G30910
 QPU6  STO PRED,1                                                       F5G30920
 QPU7  LXD SEV2,4                                                       F5G30930
       CLA BBBP                                                         F5G30940
 QPU8  TXL QPU0,4,-                                                     F5G30950
       TXI QPU3,4,-1                                                    F5G30960
       REM         EDITOR RECORD NO. 82                                 F5G30970
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30980
       REM      DIAGN0STIC CALLER FOLLOWS                               F5G31000
       REM           PART 1E                                            F5G31010
       REM           SUCC UNDO FROM FAST COMPILING                      F5G31020
       ORG LPLST-1                                                      F5G31030
 QSU   LXD SE21+2,1                                                     F5G31040
       TXL F,1,0                                                        F5G31050
       LXD SUCCP+3,4                                                    F5G31060
       CLA BBBP+3                                                       F5G31070
 QSU0  TXL F,4,0                                                        F5G31080
       TXI QSU1,4,-1                                                    F5G31090
 QSU1  SXD SE21+3,4                                                     F5G31100
       SUB ONED                                                         F5G31110
       TSX SE,4                                                         F5G31120
       LXD BBBP,4                                                       F5G31130
       TXI QSU2,4,BBBL-1                                                F5G31140
 QSU2  SXD QSU4,4                                                       F5G31150
       SXD QSU5,4                                                       F5G31160
       LXD BBB,4                                                        F5G31170
       SXD QSU8,4                                                       F5G31180
       LXD SE21+3,4                                                     F5G31190
 QSU3  PXD 0,4                                                          F5G31200
       TSX SE6,4                                                        F5G31210
       CLS SUCC,1                                                       F5G31220
       PAX 0,4                                                          F5G31230
 QSU4  TXH QSU6,4,-                                                     F5G31240
       TXI QSU5,4,BBBL                                                  F5G31250
 QSU5  TXH QSU7,4,-                                                     F5G31260
 QSU6  STO SUCC,1                                                       F5G31270
 QSU7  LXD SEV2,4                                                       F5G31280
       CLA BBBP                                                         F5G31290
 QSU8  TXL QSU0,4,-                                                     F5G31300
       TXI QSU3,4,-1                                                    F5G31310
       REM         EDITOR RECORO NO. 84                                 F5G31320
       REM FOR CONTROL CARD INFORMATION, SEE ENO OF ASSEMBLY.           F5G31330
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G31350
       REM           PART 2                                             F5G31360
       REM PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE            F5G31370
       ORG C                                                            F5G31380
BLV09  HTR -1              BB NO. OF LAST GO TO N                       F5G31390
BL12   RTB BLT             FIND THE END OF FILE PRECEEDING BB LIST      F5G31400
BL13   CPY BLIST                                                        F5G31410
       TRA BL12                                                         F5G31420
       TRA BL6                                                          F5G31430
       TRA BL12                                                         F5G31440
BL6    LXD CON1,2                                                       F5G31450
BL5    RTB BLT                                                          F5G31460
       LXA CON1,1                                                       F5G31470
BL1    CPY BLIST,1         COPY BB LIST INTO CS                         F5G31480
       TXI BL1,1,-1                                                     F5G31490
CON1       0,0,5                                                        F5G31500
       IOD                                                              F5G31510
       RTT                                                              F5G31520
       TRA BL4             ERROR                                        F5G31530
       CLA KEYS            O.K. COMPUTE TEST CONSTANT                   F5G31540
       SUB TWO                                                          F5G31550
       STO BLV3                                                         F5G31560
       CLA ZERO                                                         F5G31570
       TSX SE4,4           STAG WORD                                    F5G31580
       CLA STAG,1                                                       F5G31590
       STO BLV07                                                        F5G31600
       CLA BLV1                                                         F5G31610
BL3    LDQ BLV3            HAVE WE ALREADY DEALT WITH LAST BB           F5G31620
       TLQ BL06            YES , GO TO READ IN NEXT PART                F5G31630
       ADD ONEA                                                         F5G31640
       TSX SE1,4           GET UNDEX OF NEXT BB                         F5G31650
       CLA BBB+1,1         STORE THE NO. OF THE                         F5G31660
       ANA RMSK            FIRST TAG IN                                 F5G31670
       STO BLV6            NEXT BB.                                     F5G31680
       CLA BBB,1                                                        F5G31690
       ANA 2AMSK                                                        F5G31700
       STO BLV5            STORE AWAY NO. OF U1ST PRED IN NEXT BB.      F5G31710
       CLA BLV1                                                         F5G31720
       TSX SE1,4                                                        F5G31730
       LXD BLV2,2                                                       F5G31740
       CLA BLIST,2         REPLACE LAST WORD OF BBB ENTRY               F5G31750
       STO BBB+5,1         BY THE LOCATION FROM THE BB LIST.            F5G31760
BL2    TXI BL2+1,2,-1                                                   F5G31770
       SXD BLV2,2                                                       F5G31780
       CLA BBB+1,1         STORE PERMUTATION NOS.                       F5G31790
       STO BLV7                                                         F5G31800
       SXD BLV4,1                                                       F5G31810
       CLA BBB+1,1         GET                                          F5G31820
       ANA RMSK            OF 1ST TAG IN BB                             F5G31830
       SUB BLV6            FORM COUNT OF NO. OF TAGS                    F5G31840
       SUB ONEA                                                         F5G31850
       PAX 0,2             COUNT OF NO. OF TAGS INTO 2.                 F5G31860
       SXD BLV05,2         STORE COUNT OF NO. OF TAGS                   F5G31870
       CLA BBB,1                                                        F5G31880
       ANA 2AMSK                                                        F5G31890
BL9    STO BLV01                                                        F5G31900
       CAS BLV5            IS THIS PRED IN SAME BB                      F5G31910
       TRA BL7             YES                                          F5G31920
       TRA BL01            NO                                           F5G31930
BL7    TSX SE5,4           YES, GET INDEX OF PRED                       F5G31940
       CAL SALM                                                         F5G31950
       SLW BLV9                                                         F5G31960
       CAL PRED,1                                                       F5G31970
       SLW BLV8            STODRE OLD PRED WORD                         F5G31980
       ANS BLV9            INT  INITIALIZE NEW PRED WORD                F5G31990
       LXD 2LD3,2         SET COUNT TO 3                                F5G32000
BL8    CAL BLV7            PLACE THE                                    F5G32010
       ARS 3,2             PERMUTATION NO.                              F5G32020
       ARS 3,2             IN REGISTER 4                                F5G32030
       ANA 2LD3                                                         F5G32040
       PDX 0,4                                                          F5G32050
       CAL BLV8            PERMUTE                                      F5G32060
       ALS 3,2             THE LXD                                      F5G32070
       ANA BITMK           AND SXD                                      F5G32080
       ARS 3,4             BITS IN THE                                  F5G32090
       ORS BLV9            PRED ENTRY                                   F5G32100
       TIX BL8,2,1         COUNT TO 3                                   F5G32110
       CLA BLV9                                                         F5G32120
       STO PRED,1          STORE PRED ENTRY WITH PERMUTED BITS          F5G32130
       CLA BLV01           ARRANGE TO CONSIDER                          F5G32140
       ADD ONEA            NEXT PRED ENTRY                              F5G32150
       TRA BL9                                                          F5G32160
BL4    BST BLT             TAPE CHECK     BACKSPACE TAPE                F5G32170
       TIX BL5,2,1         IRY 5 TIMES                                  F5G32180
       TSX 4,4 THEN START DIAGNOSTIC.                                   F5G32190
BL01   LXD BLV05,1                                                      F5G32200
BL03   TNX BL04,1,1        IS THERE ANOTHER TAG IN BB                   F5G32210
       LXD BLV04,2         YES                                          F5G32220
       TIX BL02,2,1        HAVE WE EXHAUSTED STAG WORO                  F5G32230
       SXD BLV05,1         YES, STORE COUNT OF NO. OF TAGS              F5G32240
       LXD BLV08,2         STORE                                        F5G32250
       CLA BLV07           OLD PERMUTED                                 F5G32260
       STO STAG,2          STAG WORD                                    F5G32270
       CLA ZERO                                                         F5G32280
       STO BLV07                                                        F5G32290
       CLA BLV03           GET                                          F5G32300
       TSX SE4,4           NEXT                                         F5G32310
       SXD BLV08,1         STAG                                         F5G32320
       CAL STAG,1          WORD                                         F5G32330
       SLW BLV06           STORL STAG WORD                              F5G32340
       ANA LMSK            AND                                          F5G32350
       SLW BLV07           INITIALIZE NEW STAG WORD                     F5G32360
       CLA BLV03           INCREASE THE                                 F5G32370
       ADD ONEA            STAG WORD NO.                                F5G32380
       STO BLV03                                                        F5G32390
       LXD 2LD9,2         RESET COUNT TO 9                              F5G32400
       LXD BLV05,1         RESTORE 1                                    F5G32410
BL02   SXD BLV04,2         STORE COUNTER                                F5G32420
       CAL BLV06                                                        F5G32430
       ALS 2                                                            F5G32440
       SLW BLV06                                                        F5G32450
       ANA 2LD3           EXTRACT TAG                                   F5G32460
       PDX 0,4                                                          F5G32470
       CAL BLV7            PERMUTE                                      F5G32480
       ARS 3,4                                                          F5G32490
       ARS 3,4             THE                                          F5G32500
       ANA 2LD3           TAG                                           F5G32510
       ARS 10,2                                                         F5G32520
       ARS 10,2                                                         F5G32530
       ORS BLV07           FORM NEW TAG WORD                            F5G32540
       TRA BL03                                                         F5G32550
BL04   LXD BLV4,1          GET INDEX OF BB                              F5G32560
       CLA BBB,1           IS                                           F5G32570
       ARS 33              THIS                                         F5G32580
       ADD ONEA            A GO N                                       F5G32590
       TNZ BL07            NO                                           F5G32600
       CLA BLV09           YES, STORE BB NO.                            F5G32610
       ALS 18              OF LAST                                      F5G32620
       STD BBB+1,1         GO N ENCOUNTERED                             F5G32630
       CLA BLV1            STORE PRESENT                                F5G32640
       STO BLV09           BB NO.                                       F5G32650
 BL07  LXD 2LD3,2         SET COUNT TO 3                                F5G32660
BL09   CAL BLV7                                                         F5G32670
       ARS 3,2                                                          F5G32680
       ARS 3,2             GET PERMUTATION NO.                          F5G32690
       ANA 2LD3                                                         F5G32700
       PDX 0,4                                                          F5G32710
       CLA BBB+2,1         PERMUTE                                      F5G32720
       STO EXCO,4          ENTRANCE-EXIT REQUIREMENTS                   F5G32730
BL08   TXI BL08+1,1,-1                                                  F5G32740
       TIX BL09,2,1        COUNT TO 3                                   F5G32750
       LXD 2LD3,2         PLACE PERMUTED                                F5G32760
BL10   CLA EXCO,2          ENTRANCE-EXIT COND.                          F5G32770
       STO BBB-1,1         BACK IN BB                                   F5G32780
BL11   TXI BL11+1,1,-1                                                  F5G32790
       TIX BL10,2,1        COUNT TO 3                                   F5G32800
BL05   CLA BLV1            PREPARE TO DEAL WITH                         F5G32810
       ADD ONEA            WITH NEXT BB                                 F5G32820
       STO BLV1                                                         F5G32830
       TRA BL3                                                          F5G32840
BL06   TSX SE1,4  PUT EDN MARK INTO THE DUMMEY BB                       F5G32850
       CLA EN2MK                                                        F5G32860
       STO BBB+5,1                                                      F5G32870
       CLA BLV07           STORE                                        F5G32880
       LXD BLV08,2         OLD                                          F5G32890
       STO STAG,2          STAG WORD                                    F5G32900
       TRA R               READ NEXT PART                               F5G32910
 2LD3      0,0,3                                                        F5G32920
 2LD9      0,0,9                                                        F5G32930
TWO        2                                                            F5G32940
 2AMSK     -1             ADDRESS MASK                                  F5G32950
RMSK       -1,-1           RIGHT HALF MASK                              F5G32960
SALM   OCT -377770077777   MS    MASK OUT SXD AND LXD PRED REULTS       F5G32970
 EN2MK PTH -1,-1,-1        PUT IN LOCATION OF DUMMEY BB                 F5G32980
BITMK      0,4,4           MASK TO EXTRACT ONE SXD AND LXD BIT          F5G32990
LMSK   OCT -377777000000                                                F5G33000
EXCO   BES 3               THE ENTRANCE-EXIT CONDITIONS  PERMUTED       F5G33010
BLV1                       BBNO.                                        F5G33020
BLV2                       INDEX IN BB LIST                             F5G33030
BLV3                       TEST CONSTANT                                F5G33040
BLV4                       INDEX OF BB                                  F5G33050
BLV5                       1ST PRED NO. IN NEXT BB                      F5G33060
BLV6                       UST TAG IN NEXT BB,                          F5G33070
BLV7                       PERMUTTTION NOS.                             F5G33080
BLV8                       OLD PRED ENTRY                               F5G33090
BLV9                       NEW, PERMUTED, PRED ENTRY                    F5G33100
BLV01                      CURRENT PRED. NO.                            F5G33110
BLV03                      NO. OF STAG WORD, INITIALLY ZERO             F5G33120
BLV04                      COUNTER TO 9, INITIALLY ZERO                 F5G33130
BLV05                      COUNT OF NO. OF TAGS IN BB                   F5G33140
BLV06                      STAG WORD                                    F5G33150
BLV07                      NEW, PERMUTED , STAG WORD                    F5G33160
BLV08                      INDEX OF OLD STAG WORD                       F5G33170
       BSS PTL2      SPACE FOR PATCHES                                  F5G33180
BLIST                                                                   F5G33190
       REM         EDITOR RECORD NO. 86                                 F5G33200
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G33210
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G33230
       REM           PART 3                                             F5G33240
       REM CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO       F5G33250
       REM N RESTRICTION.  MODIFY ASSIGN CONSTANT TABLE.                F5G33260
       REM   C CONTAINS THE BB NO. OF THE GO TO N                       F5G33270
       ORG C+1                                                          F5G33280
START  RTB ACTPE           LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290
       CPY ACV12                                                        F5G33300
       TRA START                                                        F5G33310
       TRA RDIN                                                         F5G33320
       TRA START                                                        F5G33330
ERR    BST ACTPE           BACKSPACE TAPE TO TRY AGAIN                  F5G33340
       TIX AAC2,2,1        COUNT TO 5                                   F5G33350
       TSX 4,4     TO DIAGNOSTIC                                        F5G33360
 RDIN  LXD 3LD3,2                                                       F5G33370
AAC2   RTB ACTPE                                                        F5G33380
       CPY ACV12           COPY THE EXTRA WORD                          F5G33390
       LXA ZERO,1                                                       F5G33400
AAC1   CPY ASCON,1                                                      F5G33410
       TXI AAC1,1,-1                                                    F5G33420
       TSX 4,4                                                          F5G33430
       IOD                 CHECK      REDUNDANCY BITS                   F5G33440
       RTT                                                              F5G33450
       TRA ERR             THERR IS AN ERROR                            F5G33460
       RTB ACTPE                                                        F5G33470
       RTB ACTPE                                                        F5G33480
       RTB ACTPE                                                        F5G33490
       IOD                                                              F5G33500
       SXD ACV1,1          O.K. STORE RECORD  OF NO. OF ENTRIES         F5G33510
       SXD AC22,1                                                       F5G33520
       CLA C                                                            F5G33530
AC15   LDQ ACK1            GET BB NO. OF 1ST GO TO N                    F5G33540
       TLQ AC16            WAS THIS THE LAST GO TO N                    F5G33550
       ADD ONEA            NO                                           F5G33560
       TSX SE1,4                                                        F5G33570
       CAL BBB,1           FIND NO. OF 1ST SUCC IN NEXT BB              F5G33580
       ARS 18                                                           F5G33590
       STA ACV3                                                         F5G33600
       CLA C                                                            F5G33610
       TSX SE1,4                                                        F5G33620
       CLA ZERO            CLEAR THE COMBINED SXDD CASE                 F5G33630
       STO ACV4                                                         F5G33640
       CAL BBB,1           FIND THE NO. OF 1ST SUCC IN THIS BB          F5G33650
       ARS 18                                                           F5G33660
       ANA AMSK                                                         F5G33670
AC13   STO ACV2                                                         F5G33680
       CAS ACV3            IS THIS SUCC IN SAME BB                      F5G33690
       TRA AAC3            YES                                          F5G33700
       TRA AC14            NO                                           F5G33710
AAC3   ALS 18                                                           F5G33720
       TSX SE6,4           YES GET BB NO. OF SUCESSOR                   F5G33730
       CAL SUCC,1                                                       F5G33740
       STA ACV8                                                         F5G33750
       ADD ONEA            FIN NO. OF 1ST PRED ENTRY NEXT BBB           F5G33760
       TSX SE1,4                                                        F5G33770
       CLA BBB,1                                                        F5G33780
       STA ACV6                                                         F5G33790
       CLA ZERO                                                         F5G33800
       STO ACV10           PRESET COMBINED LXD CASE TO 0                F5G33810
       CLA ACV8            FIND NO. OF 1ST PRED  IN THIS BB             F5G33820
       TSX SE1,4                                                        F5G33830
       CAL BBB,1                                                        F5G33840
       ANA AMSK                                                         F5G33850
       STA ACV9            RECORD 1ST PRED FOR FUTURE USE               F5G33860
AC7    STA ACV7                                                         F5G33870
       CAS ACV6            IS THIS PRED IN SAME BB                      F5G33880
       TRA AC4                                                          F5G33890
       TRA AC8             NO                                           F5G33900
AC4    TSX SE5,4           IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910
       CAL PRED,1          ED GO TO NP                                  F5G33920
       ANA AMSK                                                         F5G33930
       SUB C                                                            F5G33940
       TNZ AC5             IF NOT SKIP THE ORING OF SXD CASE            F5G33950
       CAL PRED,1          OR THE SXD CASE INTO COMBINED SXD CASE       F5G33960
       ORS ACV4                                                         F5G33970
       CAL NTMSK                                                        F5G33980
       ANS PRED,1                                                       F5G33990
AC5    CAL PRED,1          IS THE BB WHICH IS PREDECESSOR               F5G34000
       SXD ACV11,1         A GO TO N                                    F5G34010
       TSX SE1,4                                                        F5G34020
       CLA BBB,1                                                        F5G34030
       ARS 33                                                           F5G34040
       ADD ONEA                                                         F5G34050
       TNZ AC6                                                          F5G34060
       LXD ACV11,2         YES, OR THE LXD XCASE INTO THE               F5G34070
       CAL PRED,2          COMBINED LXD CASE                            F5G34080
       ORS ACV10                                                        F5G34090
AC6    CLA ACV7                                                         F5G34100
       ADD ONEA                                                         F5G34110
       TRA AC7                                                          F5G34120
AC8    CAL ACV10           IS THE COMBINED LXD CASE ZERO                F5G34130
       ANA TMSK                                                         F5G34140
       TZE AC12                                                         F5G34150
       CLA ACV8            NO, HAS THIS BB ALREADY BEEN                 F5G34160
       TSX SE1,4           CONSIDERED                                   F5G34170
       LDQ BBB,1           AS A SUCCESSOR TO                            F5G34180
       RQL 20              A GO TO N                                    F5G34190
       TQP AC18                                                         F5G34200
       TRA AC12                                                         F5G34210
AC18   CLA LT1                                                          F5G34220
       ORS BBB,1           RECORD THAT THIS BB HAS BEEN CONSIDERED AS   F5G34230
       CLA ACV9            ECT..PE  PREPARE TO SCAN ALL PRED ENTRYS     F5G34240
AC11   STA ACV7                                                         F5G34250
       CAS ACV6            IS THIS PRED IN SAME BB                      F5G34260
       TRA AC9                                                          F5G34270
       TRA AC19            NO                                           F5G34280
AC9    TSX SE5,4           DETERMINE IF THE BB WHICH                    F5G34290
       SXD ACV11,1         IS THE PREDECESSOR OF THIS ONE               F5G34300
       CLA PRED,1          IS A GO TO N                                 F5G34310
       TSX SE1,4                                                        F5G34320
       CLA BBB,1                                                        F5G34330
       ARS 33                                                           F5G34340
       ADD ONEA                                                         F5G34350
       TNZ AC10                                                         F5G34360
       LXD ACV11,2         IT IS A GO TO N                              F5G34370
       CLA ACV10           REPLACE LXD CASE BY THE                      F5G34380
       ANA TMSK            COMBINED LXD CASE                            F5G34390
       ORS PRED,2                                                       F5G34400
AC10   CLA ACV7            ARRANGE TO TREAT NEXT PRED ENTRY             F5G34410
       ADD ONEA                                                         F5G34420
       TRA AC11                                                         F5G34430
AC12   CLA ACV2                                                         F5G34440
       ADD ONEA            ARRANGE TO TREAT NEXT SUCC ENTRY             F5G34450
       TRA AC13                                                         F5G34460
AC14   CLA C               STORE COMBINED                               F5G34470
       TSX SE1,4           SXDCASE IN PREFIX                            F5G34480
       CLA ACV4            OF 2ED WORD OF BBB ENTRY                     F5G34490
       ALS 15                                                           F5G34500
       STP BBB+1,1                                                      F5G34510
       CLA BBB+1,1         GET NEXT GO TO N NUMBER                      F5G34520
       ARS 18                                                           F5G34530
       ANA AMSK                                                         F5G34540
       STO C                                                            F5G34550
       TRA AC15                                                         F5G34560
AC16   WTB ACTPE           WRITE ASSIGN CONSTANTS BACK ON TAPE          F5G34570
       LXA ZERO,1                                                       F5G34580
       LXD ACV1,2                                                       F5G34590
       CPY ACV12                                                        F5G34600
       TXL R,2,0           IF NO ASSIGN CONST., GO TO NEXT PART         F5G34610
AC17   CPY ASCON,1                                                      F5G34620
       TXI ACV1,1,-1                                                    F5G34630
ACV1   TXL R,1,SET                                                      F5G34640
       TRA AC17                                                         F5G34650
AC19   CLA ACV8                                                         F5G34660
       TSX SE1,4                                                        F5G34670
       LXA ZERO,2                                                       F5G34680
AC25   CLA BBB+5,1                                                      F5G34690
AC23   CAS ASCON,2         IS THIS ASSIGN CONST. EQUAL TO THE           F5G34700
       TRA AC20            LOCATION OF 1ST INST IN BB                   F5G34710
       TRA AC24            YES                                          F5G34720
AC20   TXL AC21,2,0                                                     F5G34730
AC22   TXL AC12,2,SET                                                   F5G34740
AC21   TXI AC23,2,-1                                                    F5G34750
AC24   CAL ACV10           REPLACE ASSIGN CONST. BY NEW                 F5G34760
       ANA TMSK            LOCATION SYMBOL                              F5G34770
       ARS 5                                                            F5G34780
       ADD ACV8                                                         F5G34790
       ACL LXDC                                                         F5G34800
       SLW ASCON,2                                                      F5G34810
       TRA AC25                                                         F5G34820
AMSK   HTR -1                                                           F5G34830
TMSK   HTR 0,-1                                                         F5G34840
NTMSK  OCT 777770777777                                                 F5G34850
 3LD3      0,0,5                                                        F5G34860
LXDC   OCT 150000000000      THE NUMBER IDENTIFYING THE LOC. OF AN LXD  F5G34870
LT1    HTR 0,1                                                          F5G34880
ACK1   OCT 77776                                                        F5G34890
ACV2                       NO. OF CURRENT SUCC. OF THIS BB  IN ADDR.    F5G34900
ACV3                       NO. OF 1ST SUCC IN NEXT BB   IN ADDR         F5G34910
ACV4                       COMBINED SXD CASE  LAST OCTAL DIGIT IN DECR  F5G34920
ACV5                       NO. OF CURRENT PRED   IN ADDR                F5G34930
ACV6                       NO. OF 1ST PRED IN NEXT BB  IN ADDR          F5G34940
ACV7                       MO. OF CURRENT PRED IN THIS BB   IN ADDR     F5G34950
ACV8                       BB NO. OF SUCCESSOR   IN ADDR                F5G34960
ACV9                       NO. OF 1ST PRED IN THE SUCCESSOR BB   IN ADDRF5G34970
ACV10                      THE COMBINED LXD CASE                        F5G34980
ACV11                      TEMP. STORE FOR PRED TABLE INDEX   AT AC5    F5G34990
ACV12                      EXTRA WORD FROM ASSIGN CONSTANT RECORD       F5G35000
ACV13                      TEMP. STORE FOR LOCATION OF 1ST INST. IN BB  F5G35010
ASCON  BES PTL3       SPACE FOR PATCHES                                 F5G35020
       REM         EDITOR RECORD NO. 88                                 F5G35030
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G35040
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G35060
       REM           PART 4                                             F5G35070
       REM COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS                   F5G35080
       REM  CONSTANTS                                                   F5G35090
       ORG C                                                            F5G35100
L3         3                                                            F5G35110
L4         4                                                            F5G35120
L7         7                                                            F5G35130
L19        19                                                           F5G35140
LD1    SYN ONED                                                         F5G35150
LD2        0,0,2                                                        F5G35160
LD3        0,0,3                                                        F5G35170
LD4        0,0,4                                                        F5G35180
LD7        0,0,7                                                        F5G35190
LD8        0,0,8                                                        F5G35200
LD9        0,0,9                                                        F5G35210
LD12       0,0,12                                                       F5G35220
LT7        0,7                                                          F5G35230
LM20       -20                                                          F5G35240
LM4        -4                                                           F5G35250
DECMK      0,0,-1          DECREMENT MASK                               F5G35260
ENDMK  PTH -1,-1,-1                                                     F5G35270
ADDMK      -1                                                           F5G35280
STMSK  OCT 777770                                                       F5G35290
PRMK       0,7,7           MASK FOR PRED RESULTS                        F5G35300
TAGMK      -1,-1           MASK FOR TAU- TAGS                           F5G35310
LFTMSK MTH 0,0,-1                                                       F5G35320
SMK3   SYN LFTMSK                                                       F5G35330
LTPL   BCD 1TPL000                                                      F5G35340
LLXP   BCD 1LXP000                                                      F5G35350
LSYN   BCD 1SYN000                                                      F5G35360
LDED   BCD 1DED000                                                      F5G35370
LTRA   BCD 1TRA000                                                      F5G35380
LTSX   BCD 1TSX000                                                      F5G35390
 LBSS  BCD 1BSS000           BSS IN BCD.                                F5G35391
LPSE   OCT 76225000000                                                  F5G35400
GSYM   OCT 60000000000     GARBAGE SYMBLE                               F5G35410
T4SYM  PZE 4,0,4             TAG 4 AND RELATIVE PART 4                  F5G35420
           4               4 NUMBERS TO CONVERT S-TAG                   F5G35430
           2                                                            F5G35440
           1                                                            F5G35450
VSTAG  PZE 0                                                            F5G35460
RECSC  HTR RECNO           ADDR, NO. OF RECS. BROUGHT IN , C.I.T.       F5G35470
 LCOUT TRA -               TRANSFER TO EXIT ROUTINE                     F5G35480
       OCT 35121000000     TRA OP CODE                                  F5G35490
       OCT 41104000000     PSE-TRA                                      F5G35500
       OCT -33642000000    DCT-PSE                                      F5G35510
       OCT -24000000000    RTT-DCT                                      F5G35520
       OCT 27642000000     MSE-RTT                                      F5G35530
       OCT -7100000000     TZE-MSE                                      F5G35540
       OCT -32154000000    HPR-TZE                                      F5G35550
LNTOP  OCT 31316000000     TSX-HPR                                      F5G35560
       OCT 35121000000                                                  F5G35570
       OCT 1622000000      TXL-TRA                                      F5G35580
       OCT -31772000000    HPR-TXL                                      F5G35590
LTROP  OCT 31400000000     TTR-HPR                                      F5G35600
FSTLT  OCT -370000000000                                                F5G35610
FSTT   OCT -230000000000                                                F5G35620
PCC    OCT 170000000000    MEANS LOCATION OF THIS INST.                 F5G35630
PFXMK  OCT -300000000000                                                F5G35640
XXPSX  OCT 770000000       CONSTANTS TO TEST PSE ADDR.                  F5G35650
XX16X  OCT 160000000                                                    F5G35660
XX360  OCT 360000000                                                    F5G35670
SHK1   OCT 777777          CONST. TO EXTRACT R. HALF WORD               F5G35680
SHK2   SYN L4                                                           F5G35690
SIK2   OCT 160000000000    I.D. FOR LOCATION OF SXD                     F5G35700
SIK3   BCD 1SXD000         SXD IN BCD                                   F5G35710
LSXD   SYN SIK3                                                         F5G35720
IDSXD  SYN SIK2                                                         F5G35730
SKK1       LCLST                                                        F5G35740
SLK1   SYN LTRA            TRA IN BCD                                   F5G35750
SMK1   OCT 150000000000    I.D. FOR LOCATI0N OF LX0                     F5G35760
SMK2   BCD 1LXD000         LXD IN BCD                                   F5G35770
LLXD   SYN SMK2                                                         F5G35780
       REM                 FOR SMK3 SEE LFTMSK                          F5G35790
SMK4   OCT 140000000000    I.D. FOR TAU-TAG                             F5G35800
SLK2   SYN SMK1                                                         F5G35810
IDLXD  SYN SMK1                                                         F5G35820
IDTAG  SYN SMK4                                                         F5G35830
Z1K3   OCT -0                                                           F5G35840
MZE    SYN Z1K3                                                         F5G35850
Z2K1       0,0,-2          THE INDEXES NEEDED TO REFER                  F5G35860
           0,0,-6          TO THE BOTTOM POSITIONS                      F5G35870
           0,0,-10         IN LIST1, LIST2, LIST3, RESPT.               F5G35880
Z2K2   HTR 3,0,7           NO. OF LISTS, NO. OF CASES                   F5G35890
CASE   HTR 1                                                            F5G35900
           2                                                            F5G35910
           4                                                            F5G35920
           3                                                            F5G35930
           5                                                            F5G35940
           6                                                            F5G35950
           7                                                            F5G35960
Z2K3   OCT 32212110        CONST. TO DETERMINE NO. 1 S IN 3 BITS        F5G35970
Z2K4   DEC 3B14                                                         F5G35980
Z2K5   HTR 7                                                            F5G35990
Z4K1       -1                                                           F5G36000
Z4K2       0               INDEX OF ST SXD CASE                         F5G36010
LNSX0      NSXD*4          NO. OF SXD IN SXD LIST                       F5G36020
Z7K1       0,0,-8          INDEAXES OF ASSOCIATED SXD CASES             F5G36030
           0,0,-12                                                      F5G36040
           0,0,-16                                                      F5G36050
       REM THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS       F5G36060
BBNO   MZE 0,0,1           DECR., CURRENT BB NO. BEING SCANNED          F5G36070
NXTLOC                     LOCATUON OF 1ST INST OF THE BB               F5G36080
OUTBX                      TEMP. STORAGE OF RETURN INDEXES              F5G36090
ERRBX                      ERROR INDICATOR                              F5G36100
BBOX                       TEMP. STORE FOR INDEXES, MAINLY 2            F5G36110
BBOX1                      ANOTHER  OF SAME                             F5G36120
ABOX                       TEMP. STORE , INDEX 1                        F5G36130
TAG                        TAU-TAG FROM AN INST.                        F5G36140
STAGN1                     WORD FROM STAG SHIFTED LEFT MULTIPLE OF I    F5G36150
STAGN2                     SAME WORD SHIFTED BY ONES                    F5G36160
9CNT                       COUNT TO 9, 9 TAGS IN STAG WORD              F5G36180
STGWD  DEC -1              NO. OF STAG ENTRY BEING CONSIDERED           F5G36180
TMP10                      TEMP. STORE , LASTS ONLY 10 INSTRS.          F5G36190
CIND                       + OR - MEANS IR4 ISNT OR IS NECESSARY        F5G36200
 CPIND MZE              + OR - MEANS COMPILE/DONT COMPILE               F5G36210
ARG1                       U  1ST ARGUMENT FOR SUBROUTINES              F5G36220
MBOX                       NO. OF TRANSFERS IN GO TO VECTOR             F5G36230
SUCNO                      NO. OF A SUCCESSOR, GOV ROUTINE              F5G36240
SXD0                       LXD CASE IN DECR., PRED NO. IN ADDR.         F5G36250
SXD1                       3 TAU TAGS WHICH MUST BE STORED              F5G36260
SXD2                       FROM IR1,2,3                                 F5G36270
SXD3                       RESPT.                                       F5G36280
SADV1                      RETURN INDEX                                 F5G36290
SADV2                      LOCATION OF 1ST INST IN SUCCESSOR BB         F5G36300
SADV3                      NO. OF CURRENT PRED                          F5G36310
SADV4                      NO. OF 1ST PRED IN SUCCESSOR BB              F5G36320
SADV5                      THE SUCCESSOR BB NO.                         F5G36330
SHV1                       RETURN INDEX                                 F5G36340
SHV2                       ENTRY FROM PRED.                             F5G36350
SIV1                       INDEX OF SXD CASE RELATIVE TO SXST           F5G36360
SIV2                       RETURN INDEX                                 F5G36370
SIV3                       LOCATION OF 1ST INST. IN SXD GROUP           F5G36380
SIV4                       TEMP. STORE                                  F5G36390
SIV5                       STORE FOR INDEX OF TAU TAG IN SXD CASE       F5G36400
SIV6                       STOER FOR THE TAG                            F5G36410
SJV1                       LXD CASE IN DECR.                            F5G36420
SJV2                       RETURN INDEX                                 F5G36430
SJV3                                                                    F5G36440
CLST   BES LCLST           THE NEW LIST OF COMPILED INST.               F5G36450
SKV1       0,0,LCLST       INDEX FOR NEXT ENTRY IN CLST                 F5G36460
       REM  SKV1 COMES ALREADY INITIALIZED                              F5G36470
SLV1                       RETURN INDEX                                 F5G36480
SLV2                       LOCATION TO BE ATTACHED TO TRA               F5G36490
SLV3                       + OR - MEANS  ISNT OR IS HANGING TRA0        F5G36500
SMV1                       RETURN INDEX                                 F5G36510
SMV2                       TAG TO BE COMPILED                           F5G36520
SMV3                       STORE INDEX OF QUANTITY IN LIST              F5G36530
SMV4                       LOCATION , TEMP. STORE                       F5G36540
Z1V2                       NO. OF 1ST PRED. IN NEXT BB                  F5G36550
Z1V3                       NO. OF PRED BEING CONSIDERED                 F5G36560
Z1V5                       THE CASES                                    F5G36570
Z1V8                       THE LOC. OF 1ST PRED IN BB,  USED IN Z4      F5G36580
Z2V1                       IN DECREMENTS, THE INDEXES                   F5G36590
                           THE TOP ENTRIES                              F5G36600
                           IN THE 3 LXD LISTS                           F5G36610
Z2V2                       IN ADDR., NO. OF 1S IN DIFFERENCE            F5G36620
Z2V3                       IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630
LIST1  BSS 4                                                            F5G36640
LIST2  BSS 4                                                            F5G36650
LIST3  BSS 4                                                            F5G36660
LLIND  BES 3               + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670
Z4V1                       TEMP. STORE , LXD CASE IN ADDR.              F5G36680
Z5V1                       INDEX IN SYN TABLE                           F5G36690
Z7V1                       INDEX OF LIST                                F5G36700
Z7V2                       + OR - MEANS 1ST OR 2ED TIME THRU            F5G36710
NDINS  BES 12              BLOCK FOR 3 EXTRA COMPILED INST.             F5G36720
INST   BES RECNO*100       THE BLOCK FOR 1HE COMPILED INSTR             F5G36730
SXST   MZE                 - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740
       BSS 3                                                            F5G36750
       REM  THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER           F5G36760
SXAS0  BSS 4               ASSOCIATED WITH 0 LXD CASE                   F5G36770
SXAS1  BSS 4               WITH 1ST LXD LIST                            F5G36780
SXAS2  BSS 4               2ED LIST                                     F5G36790
SXAS3  BSS 4               3RD                                          F5G36800
SXAS   BSS 4*NSXD          THE LIST OF SXD INST.                        F5G36810
SYN    MZE                 SYN CARD TABLE STORED BACKWARD               F5G36820
       REM WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO.   F5G36830
       REM  OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840
       REM DRESS OF CORRESPONDING TRANSFER INST.  SHOULD BE AND RETURNS F5G36850
       REM  WITH THE ADDR IN LOGICAL AC                                 F5G36860
SAD    SXD SADV1,4         STORE RETURN                                 F5G36870
       ANA ADDMK           STORE THE SUCC. NO.                          F5G36880
       STO SADV5                                                        F5G36890
       TSX SE1,4                                                        F5G36900
       CLA BBB+5,1                                                      F5G36910
       STO SADV2                                                        F5G36920
       CLA BBB,1                                                        F5G36930
       ANA ADDMK                                                        F5G36940
       SLW SADV4                                                        F5G36950
SAD1   SLW SADV3                                                        F5G36960
       TSX SE5,4                                                        F5G36970
       CLA PRED,1                                                       F5G36980
       ANA ADDMK           IS THIS THE CORRECT                          F5G36990
       SUB ARG1            PRED ENTRY                                   F5G37000
       TZE SAD2                                                         F5G37010
       CAL SADV3           NO, TRY NEXT RETURN                          F5G37020
       ADD ONEA                                                         F5G37030
       TRA SAD1                                                         F5G37040
SAD2   CAL PRED,1          IS THE SXD CASE 0                            F5G37050
       ANA LD7                                                          F5G37060
       TZE SAD3            YES                                          F5G37070
       CLA SADV3           NO, FORM THE SYMBOLIC ADDR.                  F5G37080
       SUB SADV4           AS ID FOR SXD PLUS NO. OF PRED WITHIN        F5G37090
       ALS 10              THE BB * 1024    PLUS BB NO.                 F5G37100
       ADD IDSXD                                                        F5G37110
       TRA SAD6                                                         F5G37120
SAD3   CLA PRED,1          IS THE LXD CASE ZERO                         F5G37130
       ANA LT7                                                          F5G37140
       TZE SAD4                                                         F5G37150
       ARS 5               NO, FORM TH SYMBOLIC ADDR.                   F5G37160
       ADD IDLXD           AS 1024* LXD CASE PLUS BB NO. PLUS           F5G37170
SAD6   ADD SADV5           I. D. FOR AN LXD                             F5G37180
SAD5   LXD SADV1,4                                                      F5G37190
       TRA 1,4                                                          F5G37200
SAD4   CAL SADV2                                                        F5G37210
       TRA SAD5                                                         F5G37220
       REM  THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND   F5G37230
       REM  INDICATES IT SHOULD BE                                      F5G37240
SCMI   CLA CPIND           SHOULD INST. BE COMPILED                     F5G37250
       TPL SCMI1                                                        F5G37260
       SXD TMP10,4         YES, COMPILE THE INST                        F5G37270
       CLA INST,2                                                       F5G37280
       TSX SK,4                                                         F5G37290
       CLA INST-1,2                                                     F5G37300
       TSX SK,4                                                         F5G37310
       CLA INST-2,2                                                     F5G37320
       TSX SK,4                                                         F5G37330
       CLA INST-3,2                                                     F5G37340
       TSX SK,4                                                         F5G37350
       LXD TMP10,4                                                      F5G37360
SCMI1  SSM                                                              F5G37370
       STO CPIND           RECORD INST SHOULD BE COMPILED               F5G37380
       TRA 1,4                                                          F5G37390
       REM DETERMINE AN SXD CASE SUBROUTINE                             F5G37400
SH     SXD SHV1,4          STORE RETURN                                 F5G37410
       LXA SHK2,4          CLEAR                                        F5G37420
       LDQ ZERO            THE                                          F5G37430
SH1    STQ SXD0+4,4        SXD                                          F5G37440
       TIX SH1,4,1         POSITIONS 0-3                                F5G37450
       STA SXD0            STORE THE PRED NO.                           F5G37460
       TSX SE5,4           GET INDEX OF PRED                            F5G37470
       CLA PRED,1          GET AND                                      F5G37480
       STO SHV2            STORE PRED ENTRY                             F5G37490
       TSX SE1,4           GET INDEX OF BBB TABLE ENTRY                 F5G37500
       LXD LD3,4           NO, SET COUNT TO 3                           F5G37510
SH2    LDQ SHV2            IS                                           F5G37520
       RQL 18,4            SXD REQUIRED                                 F5G37530
       TQP SH3             FOR THIS I.R.                                F5G37540
       CLA BBB+2,1         YES, GET AND                                 F5G37550
       ANA TAGMK           EXTRACT THE                                  F5G37560
       STO SXD1+3,4        EXIT CONDITIONS                              F5G37570
SH3    TXI SH3+1,1,-1      DOWN THE EXIT CONDITIONS                     F5G37580
       TIX SH2,4,1         COUNT TO 3                                   F5G37590
SH4    CAL SHV2            GET                                          F5G37600
       ANA LT7             AND STORE                                    F5G37610
       ALS 3               LXD CASE                                     F5G37620
       STD SXD0                                                         F5G37630
       LXD SHV1,4                                                       F5G37640
       TRA 1,4             RETURN                                       F5G37650
       REM COMPILE AN SXD CASE SUBROUTINE                               F5G37660
SI     SXD SIV2,4          STORE RETURN                                 F5G37670
       SXD SIV1,1          STORE INDEX OF SXD CASE                      F5G37680
       TSX SL1,4           RECORD ANY HANGING TRANSFER                  F5G37690
       CAL BBNO                                                         F5G37700
       ARS 18                                                           F5G37710
       STO SLV2            STORE BB NO.                                 F5G37720
       TSX SE1,4           GET INDEX OF BB                              F5G37730
       CLA BBB,1                                                        F5G37740
       ANA ADDMK                                                        F5G37750
       STO SIV4            STORE LOC. OF 1ST PRED IN BB                 F5G37760
       LXD SIV1,1          FORM                                         F5G37770
       CLA SXST,1          LOC. OF THIS PRED -                          F5G37780
       ANA ADDMK           LOC. OF 1ST  PRED IN BB                      F5G37790
       SUB SIV4                                                         F5G37800
       ALS 10                                                           F5G37810
       ADD SLV2                                                         F5G37820
       ADD SIK2                                                         F5G37830
       STO SLV2            STORE THE LOC. OF 1ST SXD                    F5G37840
       LXD LD3,2                                                        F5G37850
SI2    CLA SXST+1,1                                                     F5G37860
       TZE SI1             IS THIS TAG 0                                F5G37870
       SXD SIV5,1          NO, PRESERVE IN0EX 1                         F5G37880
       STO SIV6            PRESERVE THE TAG                             F5G37890
       CLA SLV2            PUT LOCATION WORD ON TAPE                    F5G37900
       TSX SK,4                                                         F5G37910
       CLA ZERO            AND RESET TO 0                               F5G37920
       STO SLV2                                                         F5G37930
       CLA SIK3            PUT SXD ON TAPE                              F5G37940
       TSX SK,4                                                         F5G37950
       CLA SIV6            14*2**-5+TAU-TAG IS                          F5G37960
       ADD SMK4            SYMBOLIC ADDRESS                             F5G37970
       TSX SK,4                                                         F5G37980
       CLA VSTAG,2                                                      F5G37990
       TSX SK,4            PUT S-TAG ON TAPE                            F5G38000
       LXD SIV5,1                                                       F5G38010
SI1    TXI SI1+1,1,-1                                                   F5G38020
       TIX SI2,2,1         COUNT TO 3, FORM N+1                         F5G38030
       LXD SIV1,1                                                       F5G38040
       CLA SXST,1                                                       F5G38050
       PDX 0,2                                                          F5G38060
       TXL SI3,2,0         IS THE LXD CASE 0                            F5G38070
       TXL SI4,1,0         NO, IS THIS THE ST POSITION                  F5G38080
       TXH SI6,1,-16-1     IS THIS ASSOCIATED WITH A LIST               F5G38090
SI5    ARS 18              NO                                           F5G38100
       TSX SL,4            COMPILE A TRA TO LXD CASE                    F5G38110
       LXD SIV2,4                                                       F5G38120
       TRA 3,4             RETURN TO LOC. OF TSX + 3                    F5G38130
SI3    CLS ONEA            RECORD THAT THERE IS                         F5G38140
       STO SLV3            A HANGING TRA TO 0 CASE                      F5G38150
       LXD SIV2,4                                                       F5G38160
       TRA 1,4             RETURN TO LOC. OF TSX +1                     F5G38170
SI4    STO SXD0            STORE LXD CASE AS ARG FOR SJ                 F5G38180
       TSX SJ,4            IS SXD CASE INST POS. ASSOC. WITH LIST       F5G38190
                           SHOULDENT BE WITH CASE 0                     F5G38200
       TRA SI6             YES                                          F5G38210
       LXD SIV1,1          NO                                           F5G38220
       CLA SXST,1                                                       F5G38230
       TRA SI5             GO TO COMPILE TRA TO LXD CASE                F5G38240
SI6    LXD SIV2,4          RETURN TO 2 FOLL0WING TSX WITH               F5G38250
       TRA 2,4             INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260
       REM  DETERMINE IF THE SXO CASE IS ASSOCIATED WITH AN LXD LIST    F5G38270
SJ     SXD SJV2,4                                                       F5G38280
       CLA SXD0                                                         F5G38290
       ANA DECMK                                                        F5G38300
       STO SJV1                                                         F5G38310
       TZE SJ3             IS THIS THE 0 LXD CASE                       F5G38320
       LXD ZERO,4          NO, SET COUNT TO 3, N TO 1                   F5G38330
       LXD LD3,2           2 HAS THE C0UNTER                            F5G38340
SJ2    CLA SXAS1,4                                                      F5G38350
       TPL SJ1             DOES THE LIST ALREADY HAVE SXD               F5G38360
       CLA Z2V1+3,2        NO                                           F5G38370
       PDX 0,1             GET INDEX OF TOP QUANTITY                    F5G38380
       CLA LIST1,1                                                      F5G38390
       ALS 18                                                           F5G38400
       SUB SJV1            IS THIS CASE SAME AS CASE HEADUNG LIST N     F5G38410
       TNZ SJ1                                                          F5G38420
       LXD SJV2,4          YES                                          F5G38430
       TRA 2,4             RETURN, INDEX OF TOP OF LIST IN 1            F5G38440
SJ1    TXI SJ1+1,4,-1                                                   F5G38450
       TIX SJ2,2,1         COUNT TO 3                                   F5G38460
       LXD SJV2,4                                                       F5G38470
       TRA 3,4                                                          F5G38480
SJ3    LXD SJV2,4                                                       F5G38490
       CLA SXAS0                                                        F5G38500
       TPL 3,4                                                          F5G38510
       TRA 1,4                                                          F5G38520
       REM PUT WORD OF COMPILED INST ON TAPE                            F5G38530
SK     LXD SKV1,1                                                       F5G38540
       STO CLST,1          STORE THE WORD IN CLST                       F5G38550
       TIX SK1,1,1         C0UNT NO OF WORDS  IS CLST FULL              F5G38560
       LXA SKK1,1          YES                                          F5G38570
       SXD SKV1,1          RESET THE INDEX                              F5G38580
       WTB OTAPE           WRITE THE BLOCK ON                           F5G38590
SK2    CPY CLST,1          THE OUTPUT TAPE                              F5G38600
       TIX SK2,1,1                                                      F5G38610
       IOD                                                              F5G38620
       TRA 1,4                                                          F5G38630
SK1    SXD SKV1,1          STORE INDEX OF NEXT WORD                     F5G38640
       TRA 1,4                                                          F5G38650
       REM  SUBROUTINE FOR COMPILING TRA TO LXD CASE                    F5G38660
SL     ANA Z2K5            FORM                                         F5G38670
       ALS 10              THE                                          F5G38680
       ADD SLK2            ADDRESS                                      F5G38690
       STO SLV2            OF                                           F5G38700
       CLA BBNO            THE                                          F5G38710
       ANA DECMK                                                        F5G38720
       ARS 18              TRA IN                                       F5G38730
       ORS SLV2            SLV2                                         F5G38740
       SXD SLV1,4          STORE RETURJ                                 F5G38750
SL2    CLA ZERO            PUT 0 LOCATION                               F5G38760
       TSX SK,4            ON TAPE                                      F5G38770
       CLA LTRA                                                         F5G38780
       TSX SK,4            PUT SYMB. ADDR. ON TAPE                      F5G38790
       CLA SLV2                                                         F5G38800
       TSX SK,4            PUT SYMB. ADDR ON TAPE                       F5G36810
       CLA ZERO                                                         F5G38820
       TSX SK,4            ANOTHER 0                                    F5G38830
       LXD SLV1,4                                                       F5G38840
       TRA 1,4                                                          F5G38850
       REM  SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE                F5G38860
SL1    CLA SLV3                                                         F5G38870
       TPL 1,4             RETURN IF THERE IS NO HANGING TRA0           F5G38880
       SXD SLV1,4          OTHERWISE , STORE RETURN AND                 F5G38890
       CLA BBNO            GET                                          F5G38900
       TSX SE,4            THE                                          F5G38910
       CLA BBB+5,1         SYMBOLIC LOCATION                            F5G38920
       STO SLV2            OF 1ST INST IN BB AND                        F5G38930
       CLA ZERO            STORE IN SYNBOLIS ADDR WORD                  F5G38940
       STO SLV3            SET INDICATOR TO SAY NO HANGING TRA          F5G38950
       TRA SL2                                                          F5G38960
       REM COMPILE AN LXD LIST                                          F5G38970
SM     CLA LLIND,2         IMMEDIATELY RETURN IF LIST IS                F5G38980
       TPL 1,4             ALREADY COMPOLED                             F5G38990
       SLW LLIND,2         RECORD LIST ALREADY COMPILED                 F5G39000
       SXD SMV1,4          STORE RETURN                                 F5G39010
       CLA Z2K1+3,2        COMPUTE THE                                  F5G39020
       SUB ONED            INDEX OF SUB BOTTEM                          F5G39030
       STD SM1             POSITION OF LIDT                             F5G39040
       STD SM5             SET END TEST                                 F5G39050
SM6    CLA LIST1,1                                                      F5G39060
       TMI SM8             DOES THIS ELEMENT OF LIST REPRESENT AN LXD   F5G39070
       TXL SM1+1,1,0                                                    F5G39080
SM1    TXL SM10,1,SET      YES, IS ELEMENT IN SUB BOTTOM POS.           F5G39090
       SBM LIST1+1,1       NO                                           F5G39100
SM10   STO SMV2            STORE THE TAG AWAY                           F5G39110
       CLA BBNO            FORN                                         F5G39120
       ANA DECMK           THE                                          F5G39130
       LRS 28              LOCATION                                     F5G39140
       CLA LIST1,1                                                      F5G39150
       LLS 10                                                           F5G39160
       ADD SMK1                                                         F5G39170
       SXD SMV3,1          STORE INDEX OF LIST QUANTITY                 F5G39180
       STO SMV4                                                         F5G39190
       TSX SL1,4           RECORD ANY HANGING TRA0                      F5G39200
       CLA SMV4                                                         F5G39210
       TSX SK,4            COMPILE THE LOCATION                         F5G39220
       CLA SMK2                                                         F5G39230
       TSX SK,4            COMPILE LXD                                  F5G39240
       CLA BBNO                                                         F5G39250
       TSX SE,4            FIND INDEX OF BB                             F5G39260
       CLA SMV2                                                         F5G39270
SM3    CAS L4              IS THIS THE CORRECT ENT. REQUIREMENT         F5G39280
       TRA SM2                                                          F5G39290
       TRA SM4             YES                                          F5G39300
SM2    ALS 1               NO, SHIFT IT LEFT ONE                        F5G39310
       TXI SM3,1,-1        AND INDEX TO NEXT ENRR. REQUIREMENT          F5G39320
SM4    CAL BBB+2,1         FORM                                         F5G39330
       ARS 18              AND COMPILE                                  F5G39340
       ADD SMK4            THE                                          F5G39350
       TSX SK,4                                                         F5G39360
       CLA SMV2            C0MPILE THE TAG                              F5G39370
       TSX SK,4                                                         F5G39380
       LXD SMV3,1          IS THE ELEMENT IN SUB BOTTOM POSITION        F5G39390
       TXL SM5+1,1,0                                                    F5G39400
SM5    TXL SM7,1,SET                                                    F5G39410
       TXI SM6,1,-1        NO, INDEX TO NEXT LIST POS.                  F5G39420
SM7    CLS ONEA                                                         F5G39430
       STO SLV3            RECORD THAT THERE IS HANGING TRA 0           F5G39440
SM9    LXD SMV1,4                                                       F5G39450
       TRA 1,4             RETURN                                       F5G39460
SM8    TZE SM7             GO TO RECORD HANGING TRA                     F5G39470
       SSP                                                              F5G39480
       TSX SL,4            RECORD A TRA TO LXD CASE                     F5G39490
       TRA SM9                                                          F5G39500
       REM THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND      F5G39510
       REM CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.  F5G39520
FNDAS  TNX 2FNDS,2,ZINST   IS BLOCK OF INST. ALL USED                   F5G39530
       TSX RDINS,4         YES, READ IN NEXT BLOCK                      F5G39540
2FNDS  CAL INST-3,2        IS THIS INST. TAGGED                         F5G39550
       ANA STMSK                                                        F5G39560
       TZE CI7A                                                         F5G39570
CI4    LXD 9CNT,4          YES                                          F5G39580
       TIX CI5,4,1         COUNT TO 9, IS STAG WORD EXHAUSTED           F5G39590
       SXD BBOX,2          YES, GET ANOTHER                             F5G39600
       CLA STGWD           INCREASE THE NO. OF CURRENT STAG WORD        F5G39610
       ADD ONEA                                                         F5G39620
       STO STGWD                                                        F5G39630
       TSX SE4,4           GET INDEX OF NEXT STAG WORD                  F5G39640
       CLA STAG,1                                                       F5G39650
       STO STAGN2          GET AND STORE                                F5G39660
       ALS 2                                                            F5G39670
       STO STAGN1          THE STAG WORD                                F5G39680
       LXD BBOX,2          RESTORE INDEX REGISER 2                      F5G39690
       LXD LD9,4           RESET COUNT TO 9                             F5G39700
CI5    SXD 9CNT,4                                                       F5G39710
       CAL INST-3,2                                                     F5G39720
       ANA TAGMK           EXTRACT THE TAG                              F5G39730
       STO TAG                                                          F5G39740
       CAL STAGN1                                                       F5G39750
       ANA LD3             EXTRACT THE S-TAG                            F5G39760
       PDX 0,4                                                          F5G39770
       CAL VSTAG,4         CONVERT S-TAG TO 1,2, OR 4                   F5G39780
       STA INST-3,2        REPLACE TAU-TAG BY S-TAG                     F5G39790
       SUB L4              IS THE TAG 4                                 F5G39800
       TNZ CI5A                                                         F5G39810
       SSM                                                              F5G39820
       STO CIND            YES, RECORD IR 4 NECESSARY                   F5G39830
CI5A   CAL STAGN2                                                       F5G39840
       ALS 9                                                            F5G39850
       PBT                 IS AN LXD NECESSARY                          F5G39860
       TRA SKLX            NO                                           F5G39870
       CLA ZERO            YES                                          F5G39880
       TSX SK,4            COMPILE LOCATION OF 0                        F5G39890
       CLA SMK2            COMPILE LXD                                  F5G39900
       TSX SK,4                                                         F5G39910
       CLA TAG             COMPILE THE SYMB. ADDR. OF THE CELL          F5G39920
       ORA SMK4                                                         F5G39930
       TSX SK,4                                                         F5G39940
       CLA INST-3,2        COMPILE THE S-TAG                            F5G39950
       ANA ADDMK                                                        F5G39960
       TSX SK,4                                                         F5G39970
SKLX   CAL INST-1,2                                                     F5G39980
       ANA LFTMSK                                                       F5G39990
       SLW TMP10                                                        F5G40000
       CLA TMP10                                                        F5G40010
       CAS LLXP            IS THIS AN LXP                               F5G40020
       TRA CI1                                                          F5G40030
       TRA SKLY              YES.                                       F5G40031
       TRA CI1                                                          F5G40032
 SKLY  CAL STAGN2                                                       F5G40040
       ALS 9                                                            F5G40041
       PBT                   IS LXD NECESSARY.                          F5G40042
       TRA CI3A              NO.                                        F5G40043
       CLA INST-3,2          YES.  IS S-TAG=4.                          F5G40044
       SLW CPIND             RECORD DONT COMPILE.                       F5G40045
       ANA ADDMK                                                        F5G40046
       SUB L4                                                           F5G40047
       TNZ CI6               NOT 4.                                     F5G40048
       CAL INST-5,2          IS NEXT INSTR                              F5G40049
       ANA LFTMSK                                                       F5G40050
       SLW TMP10             AN LXD                                     F5G40051
       CLA TMP10                                                        F5G40052
       SUB LLXD              WITH REAL                                  F5G40053
       TNZ CI6               IR4.                                       F5G40054
       CLA INST-7,2                                                     F5G40055
       ANA ADDMK             IF SO,                                     F5G40056
       SUB L4                                                           F5G40057
       TNZ CI6               TURN ON                                    F5G40058
       PSE 97                                                           F5G40059
       TRA CI6               SENSE LIGHT.                               F5G40060
 CI1   CAS LDED              IS IT A DED                                F5G40061
       TRA CI2                                                          F5G40062
       TRA CI3A            YES                                          F5G40070
CI2    CLA STAGN2                                                       F5G40080
       TPL CI6             IS SXD REQUIRED                              F5G40090
       CLA INST,2          NEITHER LXP NOR DED, COMPILE THE             F5G40100
       TSX SK,4            INST.                                        F5G40110
       CLA INST-1,2                                                     F5G40120
       TSX SK,4                                                         F5G40130
       CLA INST-2,2                                                     F5G40140
       TSX SK,4                                                         F5G40150
       CLA INST-3,2                                                     F5G40160
       TSX SK,4                                                         F5G40170
       CLA ZERO            YES, COMPILE AN SXD, ZERO LOCATION           F5G40180
       STO CPIND           RECORD THAT THIS INST. SHOULDNT BE CONPILED  F5G40190
       TSX SK,4                                                         F5G40200
       CLA SIK3            SXD IN BCD                                   F5G40210
       TSX SK,4                                                         F5G40220
       CLA TAG             SYMB. ADDR. OF TAU-TAG CELL                  F5G40230
       ORA SMK4                                                         F5G40240
       TSX SK,4                                                         F5G40250
       CLA INST-3,2        AND TAG WORD                                 F5G40260
       ANA ADDMK                                                        F5G40270
       TSX SK,4                                                         F5G40280
 CI6   CAL STAGN1            NO SXD REQUIRED.                           F5G40290
       ALS 2                                                            F5G40300
       SLW STAGN1                                                       F5G40310
       CAL STAGN2                                                       F5G40320
       ALS 1                                                            F5G40330
       SLW STAGN2                                                       F5G40340
       TRA CKLOC           GO TO CHECK FOR ENDINGS                      F5G40350
CI7    SSM                                                              F5G40360
       STO CPIND           RECODD LATER COMPILING NECESSARY             F5G40370
       REM NOW THE END OF BB IS CHECKED FOR                             F5G40380
CKLOC  CLA INST,2          IF NO LOCATION SYMBOL , THIS CANT BE         F5G40390
       TZE TR3S            ENSING OTHER THAN CERTAINTY                  F5G40400
       CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40410
       SUB NXTLOC                                                       F5G40420
       TZE ENDBB           YES, LOOK FOR TYPE OF ENDING                 F5G40430
       LXD LD8,4           NO, CHECK FOR ENDING OF GROUP OF INST        F5G40440
       CAL INST-1,2                                                     F5G40450
       ANA DECMK           LOOK AT OP CODE                              F5G40460
SUBP   SUB LNTOP+1,4       COMPARE TO OP CODES OF POSSIBLE              F5G40470
       TZE TRTIN+1,4       ENDINGS    TRANSFER WHEN FOUND               F5G40480
       TIX SUBP,4,1        TRY NEXT POSSIBILITY                         F5G40490
       CAL INST-1,2        NOT FOUND, LOOK FORCONDITIONAL TRANSFER      F5G40500
6ANA   ANA FSTLT                                                        F5G40510
       SLW TMP10                                                        F5G40520
       CLA TMP10                                                        F5G40530
       SUB FSTT                                                         F5G40540
       TZE TTYPE           IS A CONDITIONAL TRANSFER                    F5G40550
NOEND  TSX SCMI,4          NOT AN END OD BB COMPILE INST                F5G40560
       TXI FNDAS,2,4       IF IT NEEDS TO BE                            F5G40570
TR3S   CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40580
       SUB NXTLOC                                                       F5G40590
       TZE SEQTR           YES                                          F5G40600
       TRA NOEND           NO                                           F5G40610
       REM  TRANSFER VECTOR      SEE SUBP+1 ABOVE                       F5G40620
       TRA GOTOV           TRA IS OP CODE                               F5G40630
       TRA IF2PS           PSE                                          F5G40640
       TRA IF2CS           DCT                                          F5G40650
       TRA IF2CS           RTT                                          F5G40660
       TRA MSECS           MSE                                          F5G40670
       TRA IF3CS           TZE                                          F5G40680
       TRA STPCSZ            HPR                                        F5G40690
TRTIN  TRA NOEND           TSX                                          F5G40700
       REM THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW     F5G40710
       TRA TRACS           TRAIS OP CODE                                F5G40720
       TRA DOCS            TXL                                          F5G40730
       TRA PAUSE           HPR                                          F5G40740
TRTTR  TRA TRAC3           TTR                                          F5G40750
ENDBB  LXD LD4,4           THIS INST ENDS A BASIC                       F5G40760
       CLA INST-1,2        BLOCK    LOOKAT OP CODE                      F5G40770
       ANA DECMK           FOR TYPE OF ENDING                           F5G40780
6SUB   SUB LTROP+1,4                                                    F5G40790
       TZE TRTTR+1,4       TRANSFER IF IOUND                            F5G40800
       TIX 6SUB,4,1        TRY NEXT POSSIBILITY                         F5G40810
       TRA SEQTR                                                        F5G40820
TRACS  CAL INST-2,2        OP CODE IS TRA    SEE IF ADDRESS             F5G40830
       ANA PFXMK           IS IN PROGRAM  UNCONDITITONAL TRANSFER       F5G40840
       TNZ GOTON           IF TRANSFER     IT IS A GO TO N              F5G40850
TRAC3  SXD BBOX,2          THIS IS GO TO ALPHA                          F5G40860
       CAL BBNO                                                         F5G40870
       ARS 18                                                           F5G40880
       STO ARG1            STORE BBNO AS ARGUMENT OF SAD                F5G40890
       TSX SE1,4                                                        F5G40900
       CAL BBB,1                                                        F5G40910
       TSX SE6,4           GET SUCC. TABLE ENTRY                        F5G40920
       CAL SUCC,1                                                       F5G40930
       TSX SAD,4           GO TO DETERMINE SYMBOLIC ADDRESS             F5G40940
       LXD BBOX,2                                                       F5G40950
       SLW INST-2,2        TEPLACE SYMBOLIC ADDR.                       F5G40960
       TSX SCMI,4          COMPILE THE INSTR                            F5G40970
       TXI BEGBB,2,4       BEGINNING OF BB, INDEX TO NEXT INSTR         F5G40980
GOTON  SXD BBOX,2                                                       F5G40990
       CLA BBNO                                                         F5G41000
       TSX SE,4                                                         F5G41010
       CLA BBB,1           CHECK TO MAKE SURE THIS IS GO TO N           F5G41020
       ARS 33                                                           F5G41030
       ADD ONEA                                                         F5G41040
       TZE GON1                                                         F5G41050
       TSX 4,4       DIAGNOSTIC THIS ISNT GO N                          F5G41060
GON1   CAL BBB+1,1                                                      F5G41070
       ARS 33              PUT SXD CASE IN TMP10                        F5G41080
       SLW TMP10                                                        F5G41090
       REM  NOW ANY SXD BEFIR GO TO N ARE COMPILED                      F5G41100
       LXD LD3,2                                                        F5G41110
GON3   CLA VSTAG,2         DOES THIS THIS IR NEED SXD                   F5G41120
       ANA TMP10                                                        F5G41130
       TZE GON2                                                         F5G41140
       SXD ABOX,1          YES                                          F5G41150
       LDQ ZERO            REPLACE LOCATION BY 0 AND                    F5G41160
       LXD BBOX,4          PUT LOCATION ON THE                          F5G41170
       CLA INST,4          SXD INST.                                    F5G41180
       STQ INST,4          SXDINST                                      F5G41190
       TSX SK,4                                                         F5G41200
       CLA LSXD                                                         F5G41210
       TSX SK,4                                                         F5G41220
       LXD ABOX,1                                                       F5G41230
       CAL BBB+2,1                                                      F5G41240
       ANA TAGMK                                                        F5G41250
       ORA IDTAG                                                        F5G41260
       TSX SK,4                                                         F5G41270
       CAL TMP10                                                        F5G41280
       ANA VSTAG,2                                                      F5G41290
       TSX SK,4                                                         F5G41300
       LXD ABOX,1                                                       F5G41310
GON2   TXI GON2+1,1,-1                                                  F5G41320
       TIX GON3,2,1                                                     F5G41330
       LXD BBOX,2                                                       F5G41340
       TSX SCMI,4          COMPILE THE INST                             F5G41350
       TXI BEGBB,2,4                                                    F5G41360
DOCS   PXD 0,0                                                          F5G41370
       STO SXST            T     RECORD THERE IS SEQUDNTIAL TRANSFER    F5G41380
       TRA TRAC3           OTHERWISE DO EXACTLY AS FOR TRA TRANSFER     F5G41390
PAUSE  PXD 0,0                                                          F5G41400
SEQTR  SYN PAUSE                                                        F5G41410
       STO SXST            RECORD SEQUENTIAL TRANSFER                   F5G41420
       TSX SCMI,4                                                       F5G41430
       TXI BEGBB,2,4                                                    F5G41440
GOTOV  TSX SCMI,4          COMPILE INST IF NECESSARY                    F5G41450
       CLA INST-3,2        FIND NO. OF BRANCHES IN VECTOR               F5G41460
       SUB LD1                                                          F5G41470
       STD MBOX                                                         F5G41480
       CLA BBNO                                                         F5G41490
       ARS 18              STORE BBNO FOR SAD ROUTINE                   F5G41500
       STO ARG1                                                         F5G41510
GOV4   TXI GOV4+1,2,4                                                   F5G41520
       SXD BBOX1,2                                                      F5G41530
       TSX SE1,4                                                        F5G41540
       CLA BBB,1                                                        F5G41550
       SLW SUCNO           STORE NO OF 1ST SUCCESSOR                    F5G41560
       LXD BBOX1,2                                                      F5G41570
13TNX  TNX GOV1,2,ZINST    IS BLOCK OF INST ALL USED                    F5G41580
       TSX RDINS,4         T   READ NEXT BLOCK                          F5G41590
GOV1   SXD BBOX1,2                                                      F5G41600
       CAL SUCNO                                                        F5G41610
       TSX SE6,4                                                        F5G41620
       CLA SUCC,1                                                       F5G41630
       TSX SAD,4           FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER     F5G41640
       LXD BBOX1,2                                                      F5G41650
       SLW TMP10           STORE SYMBOLIC ADDR.                         F5G41660
       LXD MBOX,4                                                       F5G41670
       TIX GOV2,4,1        IS THIS THE LAST TRANSFER                    F5G41680
       CLA INST-2,2                                                     F5G41690
       SUB NXTLOC          1ST INST IN NEXT BB, IS IT                   F5G41700
       TZE GOV3                                                         F5G41710
GOV2   CLA TMP10           NO                                           F5G41720
       STO INST-2,2                                                     F5G41730
       TSX SCMI,4          COMPILE THE INXT                             F5G41740
GOV3   TXI GOV3+1,2,4                                                   F5G41750
       CAL SUCNO                                                        F5G41760
       ADD ONED                                                         F5G41770
       SLW SUCNO                                                        F5G41780
       LXD MBOX,4                                                       F5G41790
GOV5   TXI GOV5+1,4,-1                                                  F5G41800
       SXD MBOX,4                                                       F5G41810
       TXH 13TNX,4,0       IS THIS LAST TRA OF VECTOR                   F5G41820
       TRA BEGBB           YES                                          F5G41830
IF2PS  CLA INST-3,2        THIS IS PSE LOOK AT ADDRESS TO               F5G41840
       ANA XXPSX           SEE IF IT IS 164-6                           F5G41850
       SUB XX16X                                                        F5G41860
       TZE PSTCS           YES, IT IS A TEST                            F5G41870
       CLA INST-3,2                                                     F5G41880
       ANA DECMK           NO, SEE IF ADDR IS 360                       F5G41890
       SUB XX360                                                        F5G41900
       TNZ NOEND           NO, THIS ISNT BB END                         F5G41910
PSTCS  TSX SCMI,4          THIS IS A PSE TEST INST                      F5G41920
MSECS  SYN PSTCS           OR AN MSE INST                               F5G41930
PS1    TXI PS1+1,2,4       INEDX TO CONSIEER 1ST TRANSFER               F5G41940
       SXD BBOX1,2                                                      F5G41950
       CAL BBNO                                                         F5G41960
       ARS 18                                                           F5G41970
       STO ARG1            STORE BBNO AS ARGUMENT FOR SAD               F5G41980
       TSX SE1,4                                                        F5G41990
       CAL BBB,1                                                        F5G42000
       STO SUCNO           GETNUMBER OF 1ST SUCCESSOR                   F5G42010
       ADD LD1                                                          F5G42020
       TSX SE6,4           GET THE SECOND SUCC ENTRY                    F5G42030
       CLA SUCC,1                                                       F5G42040
       TSX SAD,4                                                        F5G42050
       LXD BBOX1,2                                                      F5G42060
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42070
       TSX SCMI,4                                                       F5G42080
PS2    TXI PS2+1,2,4       INCREASE INSTR INDEX                         F5G42090
       CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42100
       SUB NXTLOC                                                       F5G42110
       TZE PS3             YES, SKIP COMPILING THE INST                 F5G42120
       SXD BBOX1,2         NO                                           F5G42130
       CLA SUCNO                                                        F5G42140
       TSX SE6,4                                                        F5G42150
       CLA SUCC,1                                                       F5G42160
       TSX SAD,4           DETERMINE THE SYMBOLIC ADDRESS               F5G42170
       LXD BBOX1,2                                                      F5G42180
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42190
       TSX SCMI,4          COMPILE THE INST.                            F5G42200
       TXI BEGBB,2,4                                                    F5G42210
TTYPE  CLA INST-2,2        IS THIS TRANSFER TO NEXT INST.               F5G42220
       CAS INST,2                                                       F5G42230
       TRA TTYP1                                                        F5G42240
       TRA NOEND           YES                                          F5G42250
TTYP1  SUB PCC                                                          F5G42260
       TZE NOEND           YES                                          F5G42270
       TRA CNOTR           NO, IS CONDITIONAL TRANSFER                  F5G42280
IF2CS  TSX SCMI,4          THIS IS DCT OR RTT                           F5G42290
RT1    TXI RT1+1,2,4       INDEX TO CONSIDER 1ST TRANSFER               F5G42300
CNOTR  SXD BBOX1,2      STORE BBNO. AS ARGUMENT                         F5G42310
       CAL BBNO            STORE BBNO AS ARGUMENT                       F5G42320
       ARS 18              OF SAD                                       F5G42330
       STO ARG1                                                         F5G42340
       TSX SE1,4                                                        F5G42350
       CAL BBB,1                                                        F5G42360
       STO SUCNO                                                        F5G42370
       TSX SE6,4           GET THE 1ST SUCC ENTRY                       F5G42380
       CLA SUCC,1                                                       F5G42390
       TSX SAD,4                                                        F5G42400
       LXD BBOX1,2                                                      F5G42410
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42420
       TSX SCMI,4          COMPILE THE INST                             F5G42430
RT2    TXI RT2+1,2,4                                                    F5G42440
       CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42450
       SUB NXTLOC                                                       F5G42460
       TZE PS3             YES, SKIP COMPILING THE INST                 F5G42470
       SXD BBOX1,2                                                      F5G42480
       CLA SUCNO                                                        F5G42490
       ADD LD1                                                          F5G42500
       TSX SE6,4                                                        F5G42510
       CLA SUCC,1                                                       F5G42520
       TSX SAD,4           DETERMINE THE SYMBOLIC ADDR                  F5G42530
       LXD BBOX1,2                                                      F5G42540
       SLW INST-2,2                                                     F5G42550
       TSX SCMI,4          COMPILE THE TRANSFER                         F5G42560
       TXI BEGBB,2,4                                                    F5G42570
IF3CS  SXD BBOX1,2         THIS IS A TZE INST I. E. AN IF               F5G42580
       CAL BBNO                                                         F5G42590
       ARS 18              STORE BB NO. FOR SUBROUTINE                  F5G42600
       STO ARG1                                                         F5G42610
       TSX SE1,4           ARGUMENT                                     F5G42620
       CAL BBB,1                                                        F5G42630
       STO SUCNO                                                        F5G42640
       ADD LD1             GET THE SUCC ENTRY                           F5G42650
       TSX SE6,4           FOR THE TZE                                  F5G42660
       CLA SUCC,1                                                       F5G42670
       TSX SAD,4                                                        F5G42680
       LXD BBOX1,2                                                      F5G42690
       SLW INST-2,2        REPLACE THE SYMBOLIC ADDREAS                 F5G42700
       TSX SCMI,4          C0MPILE THE TZE                              F5G42710
IF1    TXI IF1+1,2,4                                                    F5G42720
       CAL INST-1,2        CHECK NEXT INST TO SEE                       F5G42730
       ANA LFTMSK          IF IT IS TPL                                 F5G42740
       SLW TMP10                                                        F5G42750
       CLA TMP10                                                        F5G42760
       SUB LTPL                                                         F5G42770
       TZE 16CLA                                                        F5G42780
IFHPR  TSX 4,4             IF NOT, DIAGNOSTIC                           F5G42790
16CLA  CLA INST-2,2        DOES THIS EXIT GO TO NEXT BB                 F5G42800
       SUB NXTLOC                                                       F5G42810
       TNZ IF2                                                          F5G42820
       CLA INST-6,2        YES, DOES NEXT ONE ALSO                      F5G42830
       SUB NXTLOC                                                       F5G42840
       TNZ IF2                                                          F5G42850
       PXD 0,0             YES, RECORD SEQUENTIAL TRANSFER              F5G42860
       STO SXST                                                         F5G42870
       TXI BEGBB,2,8                                                    F5G42880
IF2    SXD BBOX1,2         COMPILE THE TPL                              F5G42890
       CLA SUCNO                                                        F5G42900
       TSX SE6,4                                                        F5G42910
       CLA SUCC,1                                                       F5G42920
       TSX SAD,4           FIND AND                                     F5G42930
       LXD BBOX1,2         REPLACE                                      F5G42940
       SLW INST-2,2        SYMBOLIC ADDRESS                             F5G42950
       TSX SCMI,4                                                       F5G42960
IF3    TXI IF3+1,2,4                                                    F5G42970
       CAL INST-1,2        IS THIS TRA                                  F5G42980
       ANA LFTMSK                                                       F5G42990
       SLW TMP10                                                        F5G43000
       CLA TMP10                                                        F5G43010
       SUB LTRA                                                         F5G43020
       TNZ IFHPR           IF NOT , STOP                                F5G43030
       CLA INST-2,2        YES IT IS   IS THIS A                        F5G43040
       SUB NXTLOC          SEQUENTIAL TRANSFER                          F5G43050
       TNZ IF4                                                          F5G43060
PS3    PXD 0,0             YES, RECORD THAT                             F5G43070
       STO SXST                                                         F5G43080
       TXI BEGBB,2,4                                                    F5G43090
IF4    SXD BBOX1,2         CONPILE THE TRA                              F5G43100
       CLA SUCNO                                                        F5G43110
       ADD LD2                                                          F5G43120
       TSX SE6,4                                                        F5G43130
       CLA SUCC,1          IF NECESSARY                                 F5G43140
       TSX SAD,4           MODIFY THE                                   F5G43150
       LXD BBOX1,2         SYMBOLIC                                     F5G43160
       SLW INST-2,2        ADDRESS                                      F5G43170
       TSX SCMI,4                                                       F5G43180
       TXI BEGBB,2,4                                                    F5G43190
STPCSZ CLA INST-5,2                                                     F5G43200
       SUB LTRA                                                         F5G43210
       TNZ NOEND                                                        F5G43220
       CLA INST,2                                                       F5G43230
       SUB INST-6,2                                                     F5G43240
       TNZ NOEND                                                        F5G43250
STPCS  TSX SCMI,4          COMPILE THE TWO INXT                         F5G43260
STP1   TXI STP1+1,2,4      AND GO TO STAET BB                           F5G43270
       TSX SCMI,4                                                       F5G43280
       TXI BEGBB,2,4                                                    F5G43290
       REM  THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND       F5G43300
       REM  SUBROUTINE CALL SEQUENCES                                   F5G43310
CI7A   CAL INST-1,2        IS THIS AN SXD INST                          F5G43320
       ANA LFTMSK                                                       F5G43330
       SLW TMP10                                                        F5G43340
       CLA TMP10                                                        F5G43350
       SUB LSXD                                                         F5G43360
       TNZ CI7C                                                         F5G43370
       CAL INST-3,2        YES, DOES IT HAVE TAG 4                      F5G43380
       ANA ADDMK                                                        F5G43390
       SUB L4                                                           F5G43400
       TNZ CI7C                                                         F5G43410
       CLA CIND            YES, IS IR4 NECESSARY                        F5G43420
       TPL DLSXD                                                        F5G43430
       CAL INST-5,2        YES, IS THE NEXT INST A TSX                  F5G43440
       ANA LFTMSK                                                       F5G43450
       SLW TMP10                                                        F5G43460
       CLA TMP10                                                        F5G43470
       SUB LTSX                                                         F5G43480
       TNZ CI7C                                                         F5G43490
       CLA INST,2                                                       F5G43500
       TSX SK,4            YES, COMPILE AN SXD INSTR , TAG 4, TO        F5G43510
       CLA LSXD            SPECIAL TEMP. STORAGE LOC.                   F5G43520
       TSX SK,4                                                         F5G43530
       CLA GSYM                                                         F5G43540
       TSX SK,4                                                         F5G43550
       CLA T4SYM                                                        F5G43560
       TSX SK,4                                                         F5G43570
CMTSX  CLA INST-4,2        COMPILE THE TSX INST                         F5G43580
CMTS1  TSX SK,4                                                         F5G43590
       CLA INST-5,2                                                     F5G43600
       TSX SK,4                                                         F5G43610
       CLA INST-6,2                                                     F5G43620
       TSX SK,4                                                         F5G43630
       CLA INST-7,2                                                     F5G43640
       TSX SK,4                                                         F5G43650
CI7B   TXI FNDAS,2,8       LOOK AT NEXT INST   LXF                      F5G43660
DLSXD  CLA INST,2                                                       F5G43670
       TSX SK,4    IR4 NOT NECESS.  COMPILE BSS 0.                      F5G43680
       CLA LBSS                                                         F5G43690
       TSX SK,4                                                         F5G43700
       CLA ZERO                                                         F5G43710
       TSX SK,4                                                         F5G43720
       CLA ZERO                                                         F5G43730
       TSX SK,4                                                         F5G43740
       TRA CMTSX                                                        F5G43750
CI7C   CAL INST-1,2        IS THIS AN LXD                               F5G43770
       ANA LFTMSK                                                       F5G43780
       SLW TMP10                                                        F5G43790
       CLA TMP10                                                        F5G43800
       SUB LLXD                                                         F5G43810
       TNZ CI7             NO, GO TO COMPILE THE INST                   F5G43820
       CAL INST-3,2        YES, IS THE TAG 4                            F5G43830
       ANA ADDMK                                                        F5G43840
       SUB L4                                                           F5G43850
       TNZ CI7             NO, G0 TO C0MPILE THE INST.                  F5G43860
       CLA CIND            YES.  IS IR4 NECESSARY.                      F5G43870
       TPL CI7E            NO, GO TO REPRESS LATER COMPILING OF INST    F5G43880
       MSE 97                CHECK FOR LXP WHICH WAS LXD-D.             F5G43881
       TRA CI7C1             NO,SUCH.                                   F5G43882
       SSP                   THERE WAS, SUPPRESS LATER COMPILING        F5G43883
       TRA CI7E              OF INST.                                   F5G43884
 CI7C1 CAL INST-5,2          IS FOLLOWING INSTR AN SXD.                 F5G43885
       ANA LFTMSK                                                       F5G43900
       SLW TMP10                                                        F5G43910
       CLA TMP10                                                        F5G43920
       SUB LSXD                                                         F5G43930
       TNZ CI7D                                                         F5G43940
       CAL INST-7,2        YES, IS THE TAG A 4                          F5G43950
       ANA ADDMK                                                        F5G43960
       SUB L4                                                           F5G43970
       TNZ CI7D                                                         F5G43980
       CLA INST-4,2    IS SXD FIRST INSTR                               F5G43990
       SUB NXTLOC   OF NEXT BB.                                         F5G44000
       TZE CI7D     YES, COMPILE LX.                                    F5G44010
       TXI FNDAS,2,8     NO--DELETE LX, SX.                             F5G44020
CI7D   CLA ZERO            CLMPILE THE LXO WITH GARBAGE                 F5G44030
       TSX SK,4            SYMBOLADDEAA AND TAG 4                       F5G44040
       CLA LLXD                                                         F5G44050
       TSX SK,4                                                         F5G44060
       CLA GSYM                                                         F5G44070
       TSX SK,4                                                         F5G44080
       CLA T4SYM                                                        F5G44090
       TSX SK,4                                                         F5G44100
CI7E   STO CPIND           SURPRESS LATER C0MPILING INST  SET +         F5G44110
       TRA CKLOC                                                        F5G44120
CI3A   CLA INST-3,2        IS THE S-TAG EQUAL TO 4                      F5G44130
       SLW CPIND           RECORD INST. NOT TO BE COMPILED              F5G44140
       ANA ADDMK                                                        F5G44150
       SUB L4                                                           F5G44160
       TNZ CI6                                                          F5G44170
       PXD 0,0             YES, RECORD IR4 NOT NECESSARY                F5G44180
       STO CIND                                                         F5G44190
       TRA CI6             SINCE LXP OR DED, SKIP COMPILING INST.       F5G44200
       REM  THIS R0UTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS   F5G44210
       REM  AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK         F5G44220
RDINS  SXD OUTBX,4         SAVE RETURN INDEX                            F5G44230
       CLA L4  SET ERRBX FOR 5 TRIES                                    F5G44240
       STO ERRBX                                                        F5G44250
       SXD BBOX,1          SAVE INDEX 1                                 F5G44260
       LXD LD12,4          SHIFT EXTRA INST FROM END                    F5G44270
D1CLA  CLA NDINS,4         OF BLOCK TO BEGINNING                        F5G44280
       STO INST,4                                                       F5G44290
       TIX D1CLA,4,1       IS BLOCK SHIFTED                             F5G44300
D1RDS  RTB INSTTP          SELECT INST TAPE                             F5G44310
       LXA RECSC,1         YES, SET INDEX FOR NO. OF RECORDS            F5G44320
D1CPY  CPY INST-12,4       COPY BLOCK OF INST                           F5G44330
       TXI D1CPY,4,1       SET FOR NEXT WORD                            F5G44340
       TRA D2END           END OF FILE                                  F5G44350
       TNX D1BCK,1,1       END OF RECORD    IS IT END OF LAST RECORD    F5G44360
       RTB INSTTP          NO, READ NEXT RECORD                         F5G44370
       TRA D1CPY                                                        F5G44380
D1BCK  IOD                 TEST FOR TAPE ERROR                          F5G44390
       RTT                                                              F5G44400
       TRA INERR           ERROR                                        F5G44410
       TXH D1XX,4,ZINST-1   IF 3RD FULL REC. NOT END OF FILE            F5G44420
D2END  PXD 0,4             REACHED END OF INSTR                         F5G44430
       ADD LD8             PUT TEST FOR LAST INST                       F5G44440
       STD FNDAS INTO MAIN ROUTINE                                      F5G44450
       CLA LCOUT           PUT ADDR OF FINAL EXIT INTO  MAIN            F5G44460
       STO FNDAS+1         ROUTINE                                      F5G44470
       CLA ENDMK                                                        F5G44480
       STO INST-12,4                                                    F5G44490
D1XX   LXD OUTBX,4         NO ERROR, RESTORE INDEX REGISTERS            F5G44500
       LXD BBOX,1                                                       F5G44510
       TRA 1,4             RETURN TO MAIN ROUTINE                       F5G44520
INERR  CLA ERRBX           ERROR IN READING  IS THIS 1ST TRY            F5G44530
       TZE HTRD2           TO READ IN                                   F5G44540
       SUB ONEA            YES, STORE INDICATION AND TRY AGAIN          F5G44550
       STO ERRBX                                                        F5G44560
D2BST  BST INSTTP          BACKSPACE OVER RECORDS JUST READ             F5G44570
       TXI D2TIX,1,1                                                    F5G44580
D2TIX  TNX D2BST,1,RECNO                                                F5G44590
       TRA D1RDS           TAPE BACKSPACED   TRY AGAIN                  F5G44600
HTRD2  TSX 4,4             ERROR ON 5TH TRY  DIAGNOSTIC                 F5G44610
PASS2  LXD LD12,2                                                       F5G44620
       REW OTAPE                                                        F5G44630
1TXI   TXI 1TXI+1,2,ZINST+1                                             F5G44640
       REM  INITIALIZE FOR START OF BB                                  F5G44650
BEGBB  SXD BBOX1,2         STORE INDEX OF POSITION ON ONST TABOE        F5G44660
       CLA ONED                                                         F5G44670
       ADD BBNO                                                         F5G44680
       STO BBNO                                                         F5G44690
       ARS 18              WAS THIS THE LAST BB                         F5G44700
       SUB KEYS                                                         F5G44710
       ADD ONEA                                                         F5G44720
       TZE LSTBB           YES, GL  GO WRITE PARTIAL BLOLK              F5G44730
       CLA SXST              NO                                         F5G44740
       TMI BEGBBY                                                       F5G44750
       CLA ADDMK                                                        F5G44760
       STO SXST                                                         F5G44770
BEGBBY CLA BBNO                                                         F5G44780
       TSX SE,4                                                         F5G44790
       CAL BBB+2,1         GET ENTRANCE REQUIREMENT                     F5G44800
       ARS 18              FOR IR4                                      F5G44810
       SUB STMSK           STORE + OR - IF IR4                          F5G44820
       STO CIND            ISNT OR IS NECESSARY                         F5G44830
       CLA ONEA            RECORD THERE ISNT HANGING TRA 0              F5G44840
       STO SLV3                                                         F5G44850
       CAL BBNO            FIND THE 1ST INST IN NEXT                    F5G44860
       ADD ONED                                                         F5G44870
       TSX SE,4            BB                                           F5G44880
       CLA BBB+5,1                                                      F5G44890
       STO NXTLOC                                                       F5G44900
       REM  DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5            F5G44910
Z1     LDQ ZERO            INITIALIZE THE EXISTENCE                     F5G44920
       STQ Z1V5            INDICATOR WORD                               F5G44930
       CLA BBB,1           GET AND STORE NO. OF 1ST PRED IN             F5G44940
       STA Z1V2            NEXT BB                                      F5G44950
       CAL BBNO                                                         F5G44960
       TSX SE,4                                                         F5G44970
       CAL BBB,1           STORE THE NO OF                              F5G44980
       STA Z1V3            1ST PRED IN                                  F5G44990
       STA Z1V8            THIS BB                                      F5G45000
       CLA Z1V3                                                         F5G45010
Z15    CAS Z1V2            IS THIS PRED IN SAME BB                      F5G45020
       TRA Z12             YES                                          F5G45030
       TRA Z2              NO                                           F5G45040
Z12    TSX SE5,4                                                        F5G45050
       CLA PRED,1          DETERMINE THE                                F5G45060
       ANA LT7             LXD CASE                                     F5G45070
       ALS 3                                                            F5G45080
       PDX 0,4                                                          F5G45090
       CAL Z1K3            STORE BIT AS INDICATOR                       F5G45100
       ARS 7,4             FOR THIS                                     F5G45110
       ORS Z1V5            LXD CASE                                     F5G45120
       CLA Z1V3                                                         F5G45130
       ADD ONEA            ARRANGE TO DEAL WITH NEXT                    F5G45140
       STA Z1V3            PRED                                         F5G45150
       TRA Z15                                                          F5G45160
       REM  THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN   F5G45170
       REM  Z1V5 BY Z1                                                  F5G45180
Z2     LDQ ZERO                                                         F5G45190
       LXA Z2K2,1                                                       F5G45200
Z21    STQ LLIND,1         SET THE 3 INDEXDS TO THE SUB                 F5G45210
       CLA Z2K1+3,1        BOTTOM POSITIONS                             F5G45220
       SUB ONED            IN THE 3 LISTS AND ALL                       F5G45230
       STO Z2V1+3,1        INDICATORS TO SAY COMPILED                   F5G45240
       TIX Z21,1,1                                                      F5G45250
       LXD LD12,1                                                       F5G45260
       CLA MZE             PLACE -0 S IN THE                            F5G45270
Z28    STO LIST1+12,1      LXD LISTS                                    F5G45280
       TIX Z28,1,1                                                      F5G45290
       LXD Z2K2,1          SET TO BEGINNING OF CASE LIST                F5G45300
Z25    LDQ Z1V5            DID                                          F5G45310
       CLA CASE+7,1        THIS                                         F5G45320
       PAX 0,2             CASE                                         F5G45330
       RQL 7,2             OCCURR                                       F5G45340
       TQP Z26                                                          F5G45350
       CLA Z2K5            YES, SET NO OF ONES IN                       F5G45360
       STO Z2V2            DIFFERENCE TO HIGH NUMBER                    F5G45370
       LXA Z2K2,2          INITIALIZE TO 1ST LIST                       F5G45380
   Z23 LDQ ZERO        IS P004                                          F5G45390
       CLA Z2V1+3,2                                                     F5G45400
  R004 PDX 0,4    QUANTITY IN THE LIST                                  F5G45410
       CLA LIST1,4         IS THE TOP                                   F5G45420
       ANA CASE+7,1        YES, DETERMINE                               F5G45430
       SBM LIST1,4         CONTAINED IN THIS                            F5G45440
       TNZ Z27             CASE                                         F5G45450
       CLA CASE+7,1        YES, DETERMINE                               F5G45460
       SUB LIST1,4         THE NO.                                      F5G45470
       LRS 21              OF ONES                                      F5G45480
       MPY Z2K4            IN THE                                       F5G45490
       STA Z22 LOGICAL                                                  F5G45500
       CLA Z2K3            DIFFERENCE                                   F5G45510
Z22    ARS SET                                                          F5G45520
       ANA Z2K5                                                         F5G45530
       CAS Z2V2              IS THE NUMBER OF ONES IN THE               F5G45540
       TRA Z27               DIFFERENCE LESS THAN OR EQUAL TO           F5G45550
       TRA Z27               THE PREVIOUS MINIMUM.  NO                  F5G45560
       STO Z2V2            YES, STORE NEW MIN                           F5G45570
       SXD Z2V3,2          STORE INDEX OF LIST OF GIVING NEW MIN        F5G45580
Z27    TIX Z23,2,1         COUNT TO 3 LISTS   ARE WE THRU               F5G45590
       LXD Z2V3,2          UES, GET INDEX OF LIST WITH MIN DIFF         F5G45600
       CLA Z2V1+3,2        STIRE                                        F5G45610
       PDX 0,4             THIS                                         F5G45620
       CLA CASE+7,1        CASE AT TOP OF                               F5G45630
Z24    TXI Z24+1,4,1       THAT LIST                                    F5G45640
       STO LIST1,4                                                      F5G45650
       PXD 0,4             STORE INDEX OF TOP                           F5G45660
       STO Z2V1+3,2        POSITI0N IN THAT LIST                        F5G45670
       CLA MZE             STORE INDICATION THAT THE                    F5G45680
       STO LLIND,2         LIST IS TO BE COMPILED                       F5G45690
Z26    TIX Z25,1,1         COUNT THE 7 CASES                            F5G45700
       REM  EXPAND TNE LXD LISTS                                        F5G45710
Z3     CLA Z2K5            IS THE                                       F5G45720
       SBM LIST1+2         BOTTOM ENTRY OF                              F5G45730
       TZE Z307            LIST1 A CASE 7                               F5G45740
       CLA LIST1+2         NO, DO THE BOTTOMS                           F5G45750
       ANA LIST2+2         OF LISTS 1 AND 2 HAVE                        F5G45760
       TZE Z35             A NON ZERO INTERSECTION                      F5G45770
       CAS LIST1+2         YES, DOES INTERSECTION EQUAL 1               F5G45780
       TRA Z31                                                          F5G45790
       TRA Z33             YES                                          F5G45800
Z31    CAS LIST2+2         IS IT EQUAL TO BOTTOM OF 2                   F5G45810
       TRA Z32                                                          F5G45820
       TRA Z34             YES                                          F5G45830
Z32    STO LIST1+3         STORE INTERSECTION IN SUB1                   F5G45840
       SSM                 POSITITON AND -(INTER.) IN                   F5G45850
       STO LIST2+3         SUB2 POS.                                    F5G45860
       TRA Z306                                                         F5G45870
Z38    SSM                 ENTER -INTER1 AND 3                          F5G45880
       STO LIST3+3         IN SUB3 POS.                                 F5G45890
       TRA Z306                                                         F5G45900
Z39    SSM                 ENTER - INTER 1 AND 3                        F5G45910
       STO LIST1+3         INSUV1 POS.                                  F5G45920
       TRA Z306                                                         F5G45930
Z300   CLA LIST2+2         DO BOTTOM ENTRIES                            F5G45940
       ANA LIST3+2         OF 2 AND 3 HAVE                              F5G45950
       TZE Z306            NONZERO INTERSECTION                         F5G45960
       CAS LIST2+2         YES, IS INTRE 2 AND 3                        F5G45970
       TRA Z301                                                         F5G45980
       TRA Z303            YES                                          F5G45990
Z301   CAS LIST3+2         IS INTERSECTION EQUAL TO BOTTOM OF LIST 3    F5G46000
       TRA Z302                                                         F5G46010
       TRA Z304            YES                                          F5G46020
Z302   STO LIST3+3         STORE INTER 2 AND 3 IN SUB 3 POS.            F5G46030
       SSM                 AND -INTER IN                                F5G46040
       STO LIST2+3         SUB 2 POS.                                   F5G46050
       TRA Z306                                                         F5G46060
Z303   SSM                 ENTER -(INTER 2 AND 3 )                      F5G46070
       STO LIST3+3         IN SUB 3 POS.                                F5G46080
       TRA Z306                                                         F5G46090
Z33    SSM                 ENTER -(INTER 1 AND 2 )                      F5G46100
       STO LIST2+3         IN SUB 2 POS.                                F5G46110
       TRA Z306                                                         F5G46120
Z34    SSM                 STORE -(INTER 1 AND 2 )                      F5G46130
       STO LIST1+3         IN SUB 1 POS.                                F5G46140
       TRA Z306                                                         F5G46150
Z35    CLA LIST1+2         DO BOTTOM ENTRIES IN                         F5G46160
       ANA LIST3+2         1 AND 3 HAVE NONZERO                         F5G46170
       TZE Z300            INTERSECTION                                 F5G46180
       CAS LIST1+2         YES, IS IT EQUAL TO BOT. 1                   F5G46190
       TRA Z36                                                          F5G46200
       TRA Z38             YES                                          F5G46210
Z36    CAS LIST3+2         TO THE BOTTOM ENTRY IN 3                     F5G46220
       TRA Z37                                                          F5G46230
       TRA Z39             YES                                          F5G46240
Z37    STO LIST3+3         ENTER 1NTLR 1 ANO 3 IN SUB                   F5G46250
       SSM                 3 POS. AND -( INTER ) IN                     F5G46260
       STO LIST1+3         SUB1 POS.                                    F5G46270
       TRA Z306                                                         F5G46280
Z307   SXD Z2V1,0          CREATE THE LIST                              F5G46290
       CLA L7                                                           F5G46300
       STO LIST1                                                        F5G46310
       CLA L3                                                           F5G46320
       STO LIST1+1                                                      F5G46330
       CLA ONEA                                                         F5G46340
       STO LIST1+2                                                      F5G46350
       TRA Z4                                                           F5G46360
Z304   SSM                 ENTER  - INTER 2 AND 3                       F5G46370
Z305   STO LIST2+3         INSUB2 POS.                                  F5G46380
Z306   LXD LD3,2           SET COUNT TO 3                               F5G46390
       LXA ZERO,1          SET TO INSPECT 1ST L1ST                      F5G46400
Z309   CLA LIST1+2,1                                                    F5G46410
       TZE Z308            IS THE BOTTOM ENTRY ZERO                     F5G46420
       SUB ONEA            NO                                           F5G46430
       ANA LIST1+2,1       DOES IT HAVE TWO ONES                        F5G46440
       TZE Z308                                                         F5G46450
       STO TMP10           YES                                          F5G46460
       CLA LIST1+3,1       IS THE SUB BOTTOM                            F5G46470
       TNZ Z308            ENTRY ZERO                                   F5G46480
       CLA TMP10           YES                                          F5G46490
       STO LIST1+3,1                                                    F5G46500
Z308   TXI Z308+1,1,-4     PRERARE FOR NLXT LIST                        F5G46510
       TIX Z309,2,1        COUNT TO 3                                   F5G46520
       CLA Z2K5                                                         F5G46530
       SBM LIST1+1                                                      F5G46540
       TNZ Z4                                                           F5G46550
       CLA LIST1+2                                                      F5G46560
       SUB ONEA                                                         F5G46570
       ANA LIST1+2                                                      F5G46580
       TNZ Z4                                                           F5G46590
       CLA LIST1+2                                                      F5G46600
       STO LIST1+3                                                      F5G46610
       CLA Z2K5                                                         F5G46620
       SUB LIST1+2                                                      F5G46630
       STO LIST1+2                                                      F5G46640
       SUB ONEA                                                         F5G46650
       ANS LIST1+2                                                      F5G46660
       CAL LIST1+3                                                      F5G46670
       ORS LIST1+2                                                      F5G46680
       REM  DETECT AND COMPILE ANY SEQUENTIAL TRANSFER                  F5G46690
Z4     LDQ MZE             PUT MINUS ZEROS IN                           F5G46700
       STQ SXAS            THE ASSOXIATED                               F5G46710
       LXA L19,4           SXDPOSITIONS                                 F5G46720
Z411   STQ SXST+20,4                                                    F5G46730
       TIX Z411,4,1                                                     F5G46740
       CLA SXST                                                         F5G46750
       TMI Z5              IS THERE A SEQUENTIAL TRANSFER               F5G46760
       CAL BBNO            YES                                          F5G46770
       ARS 18                                                           F5G46780
       SUB ONEA                                                         F5G46790
       STO TMP10           PUT NO OF PREV. BB IN TMP10                  F5G46800
       CLA Z1V8            INITIALIZE 1ST PRED NO THIS BB               F5G46810
Z49    STO Z1V3                                                         F5G46820
       TSX SE5,4                                                        F5G46830
       CAL PRED,1                                                       F5G46840
       ANA ADDMK           IS THIS THE SEQUENTIAL                       F5G46850
       SUB TMP10           TRANSFERS PREO ENTRY                         F5G46860
       TZE Z410                                                         F5G46870
       CAL Z1V3            NO, TRY NEXT ONE                             F5G46880
       ADD ONEA                                                         F5G46890
       TRA Z49                                                          F5G46900
Z410   CLA Z1V3            GET THE PRED NO                              F5G46910
       TSX SH,4            FORM THE SXD CASE                            F5G46920
       CLA SXD1                                                         F5G46930
       ADD SXD2                                                         F5G46940
       ADD SXD3                                                         F5G46950
       TZE Z44             IS THIS A 0 SXD CASE                         F5G46960
       LXA L4,4            ISNT 0 SXD CASL                              F5G46970
Z41    CLA SXD1+3,4        RECORD SXD CASE                              F5G46980
       STO SXST+4,4        IN POSITION ASSOCIATED                       F5G46990
       TIX Z41,4,1         WITH SEQUENTIAL TRANSFER                     F5G47000
       LXA ZERO,1          COMPILE THE SXD                              F5G47010
       TSX SI,4            INST. WITH                                   F5G47020
       TRA Z47             (1) ASSOCIATED SXD WITH 0 LXD CASE           F5G47030
Z42    TSX SM,4            (2)ASSOCIATED       WITH AN LXD LIST         F5G47040
       TRA Z47             (3) NOT ASSOCIATED  ( TRA COMPILED )         F5G47050
Z44    LXD SXD0,4                                                       F5G47060
       TXL Z46,4,0         DOES IT HAVE A 0 LXD CASE                    F5G47070
       PXD 0,4             NO                                           F5G47080
       ARS 18              LXD CASE TO AC  (ADDR)                       F5G47090
       STO Z4V1                                                         F5G47100
       LXD LD3,2           SET COUNT TO 3 , N=1                         F5G47110
Z45    CLA Z2V1+3,2        GET INDEX                                    F5G47120
       PDX 0,1             OF TOP QUANTITY IN LIST N                    F5G47130
       CLA LIST1,1         IS THE LXD CASE OF THIS SXD                  F5G47140
       SUB Z4V1            CASE THE SAME AS                             F5G47150
       TZE Z42             THE TOP  QUANTITY IN LIST N                  F5G47160
       TIX Z45,2,1         NO, COUNT TO 3                               F5G47170
       CLA Z4V1            COMPILE A                                    F5G47180
       TSX SL,4            TRA  (LXD )                                  F5G47190
       TRA Z47                                                          F5G47200
Z46    CLS ONEA            RECORD THAT THERE                            F5G47210
Z48    STO SLV3            IS A HANGING TRA 0CASE                       F5G47220
Z47    SYN Z48+1                                                        F5G47230
       REM  FORM THE SXD LIST AND THE SYN CARD LIST                     F5G47240
Z5     CLA ONED            SET INDEX IN SYN TABLE                       F5G47250
       STO Z5V1                                                         F5G47260
       CLA Z1V8            RESET 1 ST PRED IN BB                        F5G47270
Z53    STO Z1V3                                                         F5G47280
       SUB Z1V2            IS THIS PRED IN SAME BB                      F5G47290
       TZE Z6              NO, ADD FINISHED                             F5G47300
       CLA SXST            YES                                          F5G47310
       TMI Z51             WAS THERE A SEQUENTIAL TRANSFER              F5G47320
       ANA ADDMK           YES, EXTRACT ADDRESS                         F5G47330
       SUB Z1V3            HAS PRED ALREDY BEEN CONSIDERED              F5G47340
       TZE Z55             AS A SEQUENTIAL TRANSFER                     F5G47350
Z51    CLA Z1V3            NO                                           F5G47360
       TSX SH,4            GENERATE SXD CASE                            F5G47370
       CLA SXD1            IS THE                                       F5G47380
       ADD SXD2            SXD CASE                                     F5G47390
       ADD SXD3            ZERO                                         F5G47400
       TZE Z55                                                          F5G47410
       LXA ZERO,1          NO, PREPARE TO SCAN SXD LIST                 F5G47420
Z503   CLA SXST,1          IS               SUBSXD0                     F5G47430
       ANA DECMK                                                        F5G47440
       STO TMP10                                                        F5G47450
       CLA SXD0                                                         F5G47460
       ANA DECMK                                                        F5G47470
       SUB TMP10                                                        F5G47480
       TNZ Z54                                                          F5G47490
       CLA SXST+1,1        THIS SXD CASE                                F5G47500
       SUB SXD1                                                         F5G47510
       TNZ Z54                                                          F5G47520
       CLA SXST+2,1        SAME AS                                      F5G47530
       SUB SXD2                                                         F5G47540
       TNZ Z54                                                          F5G47550
       CLA SXST+3,1        THE ONE ALREADY                              F5G47560
       SUB SXD3            STORED                                       F5G47570
       TNZ Z54                                                          F5G47580
       CLA SXST,1          YES, STORE INDICATION                        F5G47590
       LXD Z5V1,2                                                       F5G47600
       ANA ADDMK           SYN,2  CARD                                  F5G47610
       STO SYN,2           IN THE                                       F5G47620
       CLA SXD0            SYN                                          F5G47630
       ALS 18              LIST                                         F5G47640
       STD SYN,2                                                        F5G47650
Z52    TXI Z52+1,2,1                                                    F5G47660
       SXD Z5V1,2                                                       F5G47670
Z55    CLA Z1V3            PREPARE TO DEAL WITH NEXT PRED               F5G47680
       ADD ONEA                                                         F5G47690
       TRA Z53                                                          F5G47700
Z54    CLA SXST,1                                                       F5G47710
       TPL Z502            IS THIS SXD POS. EMPTY                       F5G47720
       LXD LD3,2           YES                                          F5G47730
       TXL Z502,1,0        IS THIS ST CASE                              F5G47740
       TXH Z504,1,-4-1     NO, IS THIS 0 LIST CASE                      F5G47750
       TXH Z507,1,-8-1     NO             1ST                           F5G47760
       TXH Z506,1,-12-1                2ED                              F5G47770
       TXH Z505,1,-16-1                3RD                              F5G47780
       TSX Z500,4          ENTER THE SXD CASE IN THE LIST               F5G47790
       CLA MZE                                                          F5G47800
       STO SXST+4,1        STORE ENO MARK FOR SYN CAEDS                 F5G47810
       TRA Z55                                                          F5G47820
Z502   TXI Z503,1,-4       EXAMINE NEXT SXD CASE                        F5G47830
Z504   CAL SXD0            ZERO LIST CASE                               F5G47840
       ANA DECMK           IS THE LXD CASE 0                            F5G47850
       TNZ Z502                                                         F5G47860
       TSX Z500,4          YES, ENTER SXD CASE IN                       F5G47870
       TRA Z55             ASSOCIATED       POSITION                    F5G47880
Z505   TIX Z505+1,2,1      GENERATE INDEX OF LIST                       F5G47890
Z506   TIX Z506+1,2,1                                                   F5G47900
Z507   CAL Z2V1+3,2        IS                                           F5G47910
       PDX 0,4             THE                                          F5G47920
       CLA SXD0            LXD                                          F5G47930
       ARS 18              CASE THE                                     F5G47940
       SUB LIST1,4         SAME                                         F5G47950
       TNZ Z502                                                         F5G47960
       TSX Z500,4          YES                                          F5G47970
       TRA Z55                                                          F5G47980
       REM   SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST               F5G47990
Z500   CLA SXD0                                                         F5G48000
       STO SXST,1                                                       F5G48010
       CLA SXD1                                                         F5G48020
       STO SXST+1,1                                                     F5G48030
       CLA SXD2                                                         F5G48040
       STO SXST+2,1                                                     F5G48050
       CLA SXD3                                                         F5G48060
       STO SXST+3,1                                                     F5G48070
       TRA 1,4                                                          F5G48080
       REM  COMPILE THE SXD LIST                                        F5G48090
Z6     LXA LM20,1          SET TO START OF SXD LIST                     F5G48100
Z61    CLA SXST,1                                                       F5G48110
       TMI Z7              IS THIS SXD POSITION EMPTY                   F5G48120
       SXD Z6V1,1          NO                                           F5G48130
       TSX SI,4            COMPILE THE SXD CASE WITH                    F5G48140
       NOP                 (1)   0 LXD CASE,  OR                        F5G48150
Z6V1   TXH 0,0,SET         (2) THIS RETURN CANT OCCURR                  F5G48160
       LXD Z6V1,1          (3) TRA ALREADY CONPILED                     F5G48170
       TXI Z61,1,-4                                                     F5G48180
       REM  COMPILE TNE LXD LISTS AND ASSOCIATED SXD S                  F5G48190
Z7     LXD LD3,2           SET TO BEGIN SCAN OF LISTS                   F5G48200
Z72    CLA Z2K1+3,2                                                     F5G48210
       PDX 0,1             PUT INDEX OF BOTTOM POSITION IN 1            F5G48220
       CLA LIST1,1                                                      F5G48230
       TMI Z75             YES, IS IT A TRA(0) CASE                     F5G48240
       TZE Z73             IS THE L1ST FILLED                           F5G48250
       CLA LIST1+1,1       PERHAPS, IS IT A FOR SURE                    F5G48260
       TZE Z75              IT IS IF EITHER THE SUB BOTTOM              F5G48270
       TPL Z75             ENTRY IS -0 OR POS1TIVE                      F5G48280
       CLA Z7V2                                                         F5G48290
       TMI Z73             IS THIS 1ST TIME THRU                        F5G48300
Z76    CLA Z7K1+3,2        YES                                          F5G48310
       PDX 0,1             IS THERE ASSOCIATED                          F5G48320
       CLA SXST,1          SXDLIST                                      F5G48330
       SXD Z7V1,2                                                       F5G48340
       TMI Z74                                                          F5G48350
       TSX SI,4            YES, COMPILE SXD CASE                        F5G48360
       TRA Z71                                                          F5G48370
       TRA Z77             COMPILE                                      F5G48380
Z71    LXD Z7V1,2                                                       F5G48390
Z73    TIX Z72,2,1         COUNT TO 3                                   F5G48400
       CLS Z7V2            IS THIS 1ST TIME THRU                        F5G48410
       STO Z7V2                                                         F5G48420
       TMI Z7              YES, GO BACK     CLASXST                     F5G48430
       CLA SXAS0           IS THERE A 0 ASSOCIATED SXD CASE             F5G48440
       TMI Z8                                                           F5G48450
       LXA LM4,1           YES                                          F5G48460
       TSX SI,4            COMPILE SXD CASE                             F5G48470
       TRA Z8                                                           F5G48480
       TRA Z8                                                           F5G48490
       TRA Z8                                                           F5G48500
Z77    LXD Z7V1,2                                                       F5G48510
       CLA Z4V1,2                                                       F5G48520
       TMI Z74                                                          F5G48530
       CLA Z7K1+3,2                                                     F5G48540
       PDX 0,1                                                          F5G48550
       CLA SXST,1                                                       F5G48560
       ARS 18                                                           F5G48570
       TSX SL,4                                                         F5G48580
       TRA Z71                                                          F5G48590
Z74    CLA Z2V1+3,2        COMPILE THE LXD LIST                         F5G48600
       PDX 0,1                                                          F5G48610
       TSX SM,4                                                         F5G48620
       TRA Z71                                                          F5G48630
Z75    CLA Z7V2            IS THIS 1ST TIME THRU                        F5G48640
       TMI Z76             NO, 2ED TIME                                 F5G48650
       TRA Z73             YES                                          F5G48660
       REM  COMPILE ANY SYN CARDS                                       F5G48670
Z8     CAL BBNO            FORM                                         F5G48680
       ARS 18              AND                                          F5G48690
       STO TMP10           STORE                                        F5G48700
       TSX SE1,4                                                        F5G48710
       CAL BBB,1           -(IDSXD)-(BBNO)+(1ST PRED)*2**25             F5G48720
       ANA ADDMK                                                        F5G48730
       ALS 10                                                           F5G48740
       SUB TMP10                                                        F5G48750
       SUB IDSXD                                                        F5G48760
       STO TMP10                                                        F5G48770
       LXD Z5V1,2          SET TO START OF SYN LIST                     F5G48780
Z81    TXL Z83,2,1         ARE WE THRU                                  F5G48790
Z82    TIX Z82+1,2,1       DECREASE INDEX                               F5G48800
       CAL SYN,2                                                        F5G48810
       ANA DECMK           COMPILE THE SYN CARD                         F5G48820
       ARS 8                                                            F5G48830
       SUB TMP10                                                        F5G48840
       TSX SK,4                                                         F5G48850
       CLA LSYN                                                         F5G48860
       TSX SK,4                                                         F5G48870
       CAL SYN,2                                                        F5G48880
       ANA ADDMK                                                        F5G48890
       ALS 10                                                           F5G48900
       SUB TMP10                                                        F5G48910
       TSX SK,4                                                         F5G48920
       CLA ZERO                                                         F5G48930
       TSX SK,4                                                         F5G48940
       TRA Z81                                                          F5G48950
Z83    LXD BBOX1,2         GET INDEX OF COMPILED INDT                   F5G48960
       CLA MZE             RECORD NO SEQUENTIAL TRANSFER                F5G48970
       STO SXST                                                         F5G48980
       TRA FNDAS                                                        F5G48990
       REM  WRITE TH E LAST BLOCK OF C.I. T. ON TAPE                    F5G49000
       REM  AFTER PUTTING RELATIVE CONSTANT ROUT1NES AT END             F5G49010
LSTBB  RTB INSTTP          AN END OF                                    F5G49020
       CPY TMP10           FILE SEPARATES RELATIVE CONST. ROUTINES      F5G49030
       TRA EF3             END FILE ALREADY READ                        F5G49040
       TRA LSTBB           READ END FILE                                F5G49050
       TSX 4,4  DIAGNOSTIC, ERROR                                       F5G49060
EF3    LXD LD4,4             TRY 4 TIMES                                F5G49070
EFRTB  LXA ADDMK,3         READ IN NEXT RECORD                          F5G49080
       RTB INSTTP          OF RELATIVE CONSTANT SUBROUTINES             F5G49090
EFCPY  CPY RELSR,1                                                      F5G49100
       TXI EFCPY,1,-1                                                   F5G49110
       TRA EFREW           END OF FILE , END OF INST.                   F5G49120
       IOD                                                              F5G49130
       RTT                                                              F5G49140
       TRA EFERR                                                        F5G49150
       SXD EFTXL,1         STORE END TEST                               F5G49160
EFTXL  TXL EFRTB,2,SET     COMPILE THE INSTRUCTIONS                     F5G49170
       CLA RELSR,2                                                      F5G49180
       TSX SK,4                                                         F5G49190
       TXI EFTXL,2,-1                                                   F5G49200
EFREW  REW INSTTP          REWIND THE TAPE                              F5G49210
       LXA SKK1,1          SET 1 TO LENGTH OF CS BLOCK                  F5G49220
       LXD SKV1,4          INDEX OF NEXTCLST POSITION                   F5G49230
       SXD LSTXL,4                                                      F5G49240
       TXH LSWEF,4,LCLST-1    IS BLOCK EMRTY                            F5G49250
       WTB OTAPE           NO, WRITE                                    F5G49260
LSTXL  TXL LSWEF,1,-       IT ON TAPE                                   F5G49270
       CPY CLST,1                                                       F5G49280
       TXI LSTXL,1,-1                                                   F5G49290
LSWEF  WEF OTAPE           WRITE AN END FILE                            F5G49300
       TRA R                                                            F5G49310
EFERR  BST INSTTP                                                       F5G49320
       TIX EFRTB,4,1                                                    F5G49330
       TSX 4,4  4TH ERROR, TO DIAGNOSTIC                                F5G49340
       BSS PTL4        SPACE FOR PATCHES                                F5G49350
RELSR                      START OF REL. CONST. ROUTINES                F5G49360
       ORG 0                                                            F5G49370
       HTR R,0,4                  CONTROL CARD PART 1.                  F5G49371
       HTR CMTAG-1                                                      F5G49372
       ORG 0                                                            F5G49373
       HTR PRED,0,PRED            CONTROL CARD PART 1B.                 F5G49374
       HTR I9A+2                                                        F5G49375
       ORG 0                                                            F5G49376
       HTR QS,0,QS                CONTROL CARD, PART 1C.                F5G49377
       HTR QS8+1                                                        F5G49378
       ORG 0                                                            F5G49379
       HTR QPU,0,QPU              CONTROL CARD, PART 1D.                F5G49380
       HTR QPU8+1                                                       F5G49381
       ORG 0                                                            F5G49382
       HTR QSU,0,QSU              CONTROL CARD, PART 1E.                F5G49383
       HTR QSU8+1                                                       F5G49384
       ORG 0                                                            F5G49385
       HTR BLV09,0,BL12           CONTROL CARD, PART 2.                 F5G49386
       HTR BLIST                                                        F5G49387
       ORG 0                                                            F5G49388
       HTR START,0,START          CONTROL CARD, PART 3.                 F5G49389
       HTR ASCON                                                        F5G49390
       ORG 0                                                            F5G49391
       HTR L3,0,PASS2             CONTROL CARD, PART 4.                 F5G49392
       HTR RELSR                                                        F5G49393
       END PASS2                                                        F5G49394
       REM APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081, JOB NO. 1.                                 
       REM                                                                      
       REM                                                                      
       REM THE FOLLOWING CONVENTIONS ARE USED IN TH1S LISTING=                  
       REM                                                                      
       REM                                                                      
       REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION               
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.           
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF           
       REM THIS L0GICAL BLOCK OR SUBROUTINE.                                    
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.                 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).          
       REM                                                                      
       REM                                                                      
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM                                                                      
       REM 704 FORTRAN 2 / SECTION 5PRIME / A. S. NOBLE, JR. / 12 FEB 58        
       REM                                                                      
       REM                                                                      
       REM 5PRIME COMPILES ASSIGN CONSTANTS, FIXED POINT CONSTANTS              
       REM FLOATING POINT CONSTANTS, REGION SIX CONSTANTS AND FORMAT            
       REM STATEMENTS. THE FOLLOWING TABLES ARE PUT ON DRUMS FOR USE IN         
       REM THE ASSEMBLY PROGRAM ... SIZ, TEIFNO, EQUIT, CLOSUB, FORSUB.         
       ORG 24                                                                   
       REM SETCIT/ CALLS=OIAG.                                                  
       REM SET UP CIT BUFFER, COUNTER, ANO TARE FOR COMPILING.                  
5PRIME BST CITTAP                    BACKSPACE CIT TAPE OVER EOF MARK           
       BST CITTAP                    AND LAST RECOR0.                           
       LXA TERC,2                    SET TAPE ERROR COUNTER FOR 5 TRYS.         
       RTB CITTAP                    SELECT CIT TAPE FOR READING.               
       LXA L(0),1                    COPY LAST                                  
CPYCIT CPY CIB,1                     CIT RECORD                                 
       TXI CPYCIT,1,-1               INTO CIT BUFFER.                           
       TSX DIAG,4                  * EOF ERROR - GO TO DIAGNOSTIC.              
       BST CITTAP                    REPOSITION CIT TAPE, AND                   
       RTT                           IF TAPE RECORD                             
       TXI RTTON1,0                  WAS READ CORRECTLY,                        
       SXD BBOX,1                    SAVE CIT COUNTER,                          
BBOX   TXI 5P1ASC,0,**             * AND GO READ ASSIGN CONSTANTS.              
RTTON1 TIX CPYCIT-2,2,1              OTHERWISE, GO REREAD RECORD UNLESS         
       TSX DIAG,4                  * 5 ATTEMPTS FAILE0 - GO TO DIAG.            
       REM  END OF PROGRAM SETCIT.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P1ASC/ CALLS=5PS1R,5PS2C.                                           
       REM READ IN AND COMPILE ASSIGN CONSTANTS.                                
5P1ASC BST TABTAP                    POSITION TABLE TAPE, AND                   
       TSX 5PS1R,4                 * GO READ ASSIGN CONSTANTS.                  
       TXL SETOP,1,0                 IF NO ENTRIES, GO SET OP TO OCT.           
       TSX 5PS2C,4                 * GO COMPILE ASSIGN CONSTANTS.               
SETOP  CLA OCTLOP                    SET WORD2 OF COMPILED INSTRUCTION          
       STO WORD2                     TO (OCT000) BCD FOR FUTURE USE.            
       REM  END OF PROGRAM 5P1ASC.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P2FXC/ CALLS=5PS1R,5PS2C.                                           
       REM READ IN AND COMPILE FIXCON.                                          
5P2FXC LXA L(3),2                    POSITION                                   
       BST TABTAP                    TABLE TAPE                                 
       TIX 5P2FXC+1,2,1              TO FIXCON.                                 
       TSX 5PS1R,4                 * GO READ FIXCON INTO BUFFER.                
       TXL 5P3F3D,1,0              * IF NO ENTRIES, GO READ IN FORSUB.          
       CLA FIXSYM                    SET WORD1 OF COMPILED                      
       STO WORD1                     INSTRUCTION TO (200000) BCD.               
       TSX 5PS2C,4                 * GO COMPILE FIXCON ENTRIES.                 
       REM  END OF PROGRAM 5P2FXC.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P3F3D/ CALLS=5PS1R,5PS3D.                                           
       REM TRANSFER FORSUB TABLE FROM TAPE 2 TO DRUM 3.                         
5P3F3D LXA L(5),2                    POSITION                                   
       BST TABTAP                    TABLE TAPE                                 
       TIX 5P3F3D+1,2,1              TO DO TAG B                                
       RTB TABTAP                    RECORD COUNT                               
       CPY 5PERAS                    AND ADD 23                                 
       LXD 5PERAS,1                  TO THIS TO                                 
       TXI BKSPC,1,23                POSITION                                   
BKSPC  BST TABTAP                    TABLE TAPE                                 
       TIX BKSPC,1,1                 TO FORSUB.                                 
       TSX 5PS1R,4                 * GO READ FORSUB INTO BUFFER.                
       STZ WRDCNT                    IF THERE WERE                              
       TXL EMPTY1,1,0                ENTRIES MADE IN                            
L(SIX) PXD SIX,1                     FORSUB TABLE                               
       COM                           COMPUTE THE                                
       ADM DECR1                     WORD COUNT                                 
       STD WRDCNT                    AND THEN                                   
       TSX 5PS3D1,4                * GO WRITE FORSUB ONTO DRUM3.                
       TXI 5P4FLC,0                * WHEN DONE, GO READ IN FLOCON.              
EMPTY1 TSX 5PS3D3,4                * IF FORSUB IS EMPTY, RECORD WRD CNT.        
       REM   END OF PROGRAM 5P3F3D.                                             
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM  5P4FLC/ CALLS=5PS1R,5PS2C.                                          
       REM  READ IN AND COMPILE FLOCON.                                         
5P4FLC RTB TABTAP                    FIND                                       
       CPY 5PERAS                    NEXT                                       
       TXI 5P4FLC+1,0                END OF FILE                                
       TXI EOFILE,0                  ON TABLE TAPE                              
MINUS5 TXI 5P4FLC,0,-5               TO LOCATE FLOCON.                          
EOFILE IOD                           WHEN DONE,                                 
       RTT                           MAKE SURE TAPE CHECK                       
       NOP                           LIGHT IS TURNED OFF, AND                   
       TSX 5PS1R,4                 * GO READ FLOCON INTO BUFFER.                
       TXL 5P5R6C,1,0              * IF NO ENTRIES, GO COMPILE REGION6.         
       CLA FLOSYM                    SET WORD1 OF COMPILED                      
       STO WORD1                     INSTRUCTION TO (300000) BCD.               
       TSX 5PS2C,4                 * GO COMPILE FLOCON ENTRIES.                 
       REM  END OF PROGRAM 5P4FLC.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P5R6C/ CALLS=5PS2C.                                                 
       REM COMPILE REGION-SIX CONSTANTS.                                        
5P5R6C CLA SIXSYM                    SET WORD1 OF COMPILED                      
       STO WORD1                     INSTRUCTION TO (600000) BCD.               
       CLA L(SIX)                    SET COMPILING                              
       STA COMP                      SUBROUTINE (5PS2)                          
       LXD MINUS5,1                  TO PICK UP THE FIVE CONSTANTS.             
       TSX 5PS2C,4                 * GO COMPILE REGION-SIX CONSTANTS.           
       REM  END OF PROGRAM 5P5R6C.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P6FTC/ CALLS=5PS1R,5PS4W.                                           
       REM READ IN AND COMPILE FORMAT TABLE.                                    
5P6FTC CLA TXLOP                     SET OP SWITCH                              
       STP OPSW1                     IN READING ROUTINE (5PS1)                  
       CLA L(10)                     TO TEST FOR CORRECT TABLE NUMBER.          
       TSX 5PS1R,4                 * GO READ IN FORMAT TABLE.                   
TXLOP  TXL 5P7CBW,1,0              * IF NO ENTRIES, GO WRITE OUT CIT.           
       CLA 4MATOP                    SET WORD2 OF COMPILED                      
       STO WORD2                     INSTRUCTION TO (BCD000) BCD.               
       LXA L(0),2                    MOVE                                       
COMPW1 CLA BUFFER,2                  FORMAT                                     
       STO WORD1                     ENTRY                                      
       TXI COMPW3,2,-1               INTO                                       
COMPW3 CLA BUFFER,2                  WORD1 AND                                  
       STO WORD3                     WORD3.                                     
       TSX 5PS4W,4                 * THEN GO COMPILE FORMAT TABLE.              
       TXI TESTF,1,2                 IF NO ENTRIES REMAIN,                      
TESTF  TXL 5P7CBW,1,0              * THEN GO WRITE OUT CIT BUFFER.              
       TXI COMPW1,2,-1               OTHERWISE, CONTINUE COMPILING.             
       REM  END OF PROGRAM 5P6FTC.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P7CBW.                                                              
       REM TERMINATE COMPILING.                                                 
5P7CBW WTB CITTAP                    WRITE                                      
       LXD BBOX,2                    THE CONTENTS                               
       SXD TESTC,2                   OF THE                                     
       LXA L(0),2                    CIT BUFFER                                 
WRCIB  CPY CIB,2                     ONTO                                       
       TXI TESTC,2,-1                TAPE3                                      
TESTC  TXH WRCIB,2,**                FOLLOWED BY                                
       WEF CITTAP                    AN END OF FILE.                            
       REM  END OF PROGRAM 5P7CBW.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P8S2D/ CALLS=5PS1R,5PS3D.                                           
       REM TRANSFER SIZ TABLE FROM TAPE 2 TO DRUM 2.                            
5P8S2D CAL TXLOP                     SET OP SWITCH IN 5PS1R                     
       STP OPSW2                     TO COPY EIFNO, BUT SKIP TABNO TEST.        
       TSX 5PS1R,4                 * GO READ IN SIZ TABLE + EIFNO.              
       CLA TABNUM                    MOVE EIFNO                                 
       STO EIFNO                     INTO PROPER LOCATION.                      
       CLA SETDRM                    SET DRUM ROUTINE (5PS3D)                   
       SUB L(1)                      TO WRITE ONTO DRUM2.                       
       STO SETDRM                    SET DRUM ADDRESS                           
DRMLOC PXD 1024,0                    FOR REMAINING DRUM TABLES                  
       STA DRMLOC                    TO ZERO.                                   
       TXL EMPTY2,1,0                IF THERE WERE ENTRIES MADE                 
       CLA WRDCNT                    IN SIZ TABLE, PICKUP WRDCNT AND,           
       TSX 5PS3D2,4                * GO WRITE SIZ ONTO DRUM2.                   
       TXI 5P9T4D,0                * WHEN DONE, GO READ IN TEIFNO.              
EMPTY2 TSX 5PS3D3,4                * IF SIZ IS EMPTY, GO RECORD WRD CNT.        
       REM  END OF PROGRAM 5P8S2D.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P9T4D/ CALLS=5PS1R,5PS3D.                                           
       REM TRANSFER TEIFNO TABLE FROM TAPE 2 TO DRUM 4.                         
5P9T4D LXA L(5),2                    MOVE TABLE TAPE                            
       RTB TABTAP                    OVER END OF FILE AND 1ST FOUR              
       TIX 5P9T4D+1,2,1              TABLES TO POSITION FOR TEIFNO.             
       CLA TXLOP                     SET OP SW1TCH IN 5PS1R                     
       STP OPSW2                     TO MAKE TABLE NUMBER TEST.                 
       CLA L(0)                      PICKUP TEIFNO TABLE NUMBER, AND            
       TSX 5PS1R,4                 * GO READ IN TEIFNO TABLE.                   
       CLA TXLOP                     SET OP SWITCH IN 5PS3D                     
       STP DRMSW                     TO WRITE EIFNO ON DRUM.                    
       CLA SETDRM                    SET DRUM ROUTINE                           
       ADD L(2)                      TO WRITE ONTO                              
       STO SETDRM                    DRUM 4.                                    
       TXL EMPTY3,1,0                IF THERE WERE ENTRIES MAEEIN TEIFNO        
       TSX 5PS3D,4                 * GO WRITE EIFNO AND TEIFNO ON DRUM4.        
       TXI 5P10ED,0                * WHEN DONE, GO READ IN EQUIT.               
EMPTY3 TSX 5PS3D3,4                * IF TEIFNO IS EMPTY, RECORD WRD CNT.        
       REM  END OF PROGRAM 5P9T4D.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5P10ED/ CALLS=5PS1R,5PS3D.                                           
       REM TRANSFER EQU1T TABLE FROM TAPE 2 TO DRUM 1.                          
5P10ED LXA L(7),1                    MOVE TABLE TAPE                            
       RTB TABTAP                    OVER 7 RECORDS                             
       TIX 5P10ED+1,1,1              TO POSITION FOR EQUIT.                     
       CLA L(8)                      PICKUP EQUIT TABLE NUMBER, AND             
       TSX 5PS1R,4                 * GO READ IN EQUIT TABLE.                    
       CAL TXLOP                     SET OP SWITCH IN 5PS3D                     
       STP DRMSW                     TO SKIP WRIT1NG OF EIFNO.                  
       CLA SETDRM                    SET DRUM ROUTINE                           
       SUB L(3)                      TO WRITE ONTO                              
       STO SETDRM                    DRUM1.                                     
       TXL EMPTY4,1,0                IF EQUIT IS EMPTY, RECORD WRDCNT.          
       LXD WRDCNT,4                  OTHERWISE,                                 
       LXA L(0),3                    COMPUTE A                                  
EQCHS  CLM                           LOG1CAL                                    
CLASS  ACL BUFFER,1                  CHECK                                      
       LDQ BUFFER,1                  SUM                                        
       STQ NEWEQ,2                   FOR                                        
       TXI NXT1,1,-1                 EACH                                       
NXT1   TXI NXT2,2,-1                 EQUIVALENCE                                
NXT2   ACL BUFFER,1                  CLASS                                      
       LDQ BUFFER,1                  AND                                        
       STQ NEWEQ,2                   MOVE                                       
       TXI NXT3,1,-1                 EACH                                       
NXT3   TXI NXT4,2,-1                 CLASS                                      
NXT4   TXI NXT5,4,-2                 FOLLOWED                                   
NXT5   TQP CLASS                     BY ITS                                     
L(NEQ) SLW NEWEQ,2                   CHECK                                      
       TXI NXT6,2,-1                 SUM                                        
NXT6   TXH EQCHS,4,1                 INTO NEWEQ.                                
       PXD ,2                        COMPUTE                                    
       COM                           THE                                        
       ADM DECR1                     NEW                                        
       STD WRDCNT                    WORDCOUNT                                  
       ARS 18                        AND                                        
       PAX ,1                        THE                                        
       ADD L(NEQ)                    NEW                                        
       STA CADDRM                    MEMORY ADDRESS, AND                        
EMPTY4 TSX 5PS3D3,4                * GO WRITE EQUIT ON DRUM 1.                  
       REM    END OF PROGRAM 5P10ED.                                            
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM  5P11CD/ CALLS=5PS1R,5PS3D.                                          
       REM  TRANSFER CLOSUB TABLE FROM TAPE 2 TO DRUM 3.                        
5P11CD CLA L(9)                      PICKUP CLOSUB TABLE NUMBER, AND            
       TSX 5PS1R,4                 * GO READ IN CLOSUB TABLE.                   
       CLA SETDRM                    SET DRUM ROUTINE                           
       ADD L(2)                      TO WRITE ONTO                              
       STO SETDRM                    DRUM3.                                     
       TXL EMPTY5,1,0                IF THERE WERE ENTRIES MADEIN CLOSUB        
       TSX 5PS3D,4                 * GO WRITE CLOSUB ONTO DRUM3.                
5PXR1  TXI END5P,0,**                THEN GO CALL SECTION SIX.                  
EMPTY5 TSX 5PS3D3,4                * IF CLOSUB IS EMPTY, RECORD WRDCNT.         
END5P  RTB SYSTAP                    SPACE OVER DIAGNOSTIC RECORD,              
5PXR2  TXI SECSIX,0,**             * THEN GO CALL SECTION SIX.                  
       REM    END OF PROGRAM 5P11CD.                                            
       REM   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *      
       REM                                                                      
       REM    END OF PROGRAM 5PRIME.                                            
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM  5PS1R,4/ CALLERS=5P1ASC,5P2FXC,5P3F3D,5P4FLC,5P6FTC,5P8S2D,         
       REM  5P9T4D,5P10ED,5P11CD. CALLS=DIAG.                                   
       REM  READ A RECORD FROM TAPE 2.                                          
5PS1R  LXA TERC,2                    SET TAPE ERROR COUNTER FOR 5 TRYS.         
READ   RTB TABTAP                    SELECT TABLE TAPE FOR READING.             
OPSW1  TXL SKIP,0                    IF OP SWITCH IS SET TO TXH,                
       CPY TABNUM                    THEN COPY 1ST WORD INTO TABNUM.            
OPSW2  TXH SKIP,0                    IF OP SWITCH IS SET TO TXH,                
       CAS TABNUM                    THEN COMPARE C(AC) WITH TABNUM=            
       TXI STOP,0                    IF INCORRECT RECORD - GO TO STOP.          
5PXR4  TXI SKIP,0,**                 IF EQUAL - THEN CONTINUE.                  
STOP   TSX DIAG,4                  * IF INCORRECT RECORD - GO TO DIAG.          
SKIP   CPY WRDCNT                    READ WORD COUNT,                           
       LXA L(0),1                    AND THEN READ                              
COPY   CPY BUFFER,1                  COMPLETE TABLE                             
       TXI COPY,1,-1                 INTO BUFFER.                               
       TSX DIAG,4                  * IF END OF FILE -,GO TO DIAGNOSTIC.         
       IOD                           WHEN DONE,                                 
       RTT                           IF TAPE RECORD                             
       TXI RTTON,0                   WAS READ CORRECTLY,                        
       TRA 1,4                     * RETURN TO MAIN ROUTINE.                    
RTTON  BST TABTAP                    OTHERWISE, BACKSPACE TAPE, AND             
       TIX READ,2,1                  GO REREAD RECORD UNLESS                    
       TSX DIAG,4                  * 5 ATTEMPTS FAILED - GO TO DIAG.            
       REM  END OF PROGRAM 5PS1R.                                               
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM 5PS2C,4/ CALLS=5PS4W. CALLERS=5P1ASC,5P2FXC,5P4FLC,5P5R6C.           
       REM COMPILE 4-WORD INSTRUCTIONS FROM BUFFER ENTRIES.                     
5PS2C  SXD 5PXR4,4                   SAVE C(XR4) FOR EXIT.                      
       LXA L(0),2                    MOVE                                       
COMP   CLA BUFFER,2                  ENTRY                                      
       STO WORD3                     INTO WORD3,                                
       TSX 5PS4W,4                 * AND GO COMPILE INSTRUCTION.                
       TXI TEST,1,1                  IF NO ENTRIES REMAIN,                      
TEST   TXL EXIT2,1,0                 THEN TAKE EXIT2.                           
       STZ WORD1                     SET WORD1 TO ZERO,                         
       TXI COMP,2,-1                 AND COMPILE SUCCEEDING ENTRIES.            
EXIT2  LXD 5PXR4,4                   RESTORE C(XR4), AND                        
       TRA 1,4                     * RETURN TO MAIN ROUTINE.                    
       REM   END OF PROGRAM 5PS2C.                                              
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM  5PS3D,4/ CALLERS=5P3F3D,5P8S2D,5P9T4D,5P10ED,5P11CD.                
       REM  WRITE TABLE ONTO DRUM FOLLOWED BY CHECKSUM.                         
5PS3D  CLA WRDCNT                    SET C(XR1)                                 
5PS3D1 ARS 18                        EQUAL TO                                   
5PS3D2 PAX BUFFER,1                  THE WORD COUNT                             
       ADD 5PS3D2                    AND INITIALIZE                             
       STA CADDRM                    CAD ADDRESS.                               
5PS3D3 WDR 3                         WRITE ONTO                                 
       CLM                           THE DRUM,                                  
       LDA DRMLOC                    ACCORDING TO SWITCH SETTING.               
DRMSW  TXL DRMSW+3,0                 IF OP SWITCH IS TXH,                       
       CPY EIFNO                     WRITE EIFNO FOLLOWED                       
       CPY EIFNO                     BY ITS CHECKSUM.                           
       CPY WRDCNT                    WRITE WORD COUNT FOLLOWED                  
       CPY WRDCNT                    BY ITS CHECKSUM, AND THEN                  
       TXL EXIT3,1,0                 UNLESS THE BUFFER IS EMPTY,                
CADDRM CAD **,1                      WRITE THE                                  
       TIX CADDRM,1,1                CONTENTS OF BUFFER                         
       CPY L(0)                      ONTO DRUM FOLLOWED                         
       SLW 5PERAS                    BY ZERO AND THEN                           
       CPY 5PERAS                    THE LOGICAL CHECKSUM.                      
EXIT3  TRA 1,4                     * RETURN TO MAIN ROUTINE.                    
       REM   END OF PROGRAM 5PS3D.                                              
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM 5PS4W,4/ CALLERS=5P6FTC,5PS2C.                                       
       REM MOVE 4-WORD INSTRUCTION INTO CIB, AND WRITE CIB ONTO TAPE3.          
5PS4W  SXD 5PXR1,1                   SAVE C(XR1) AND                            
       SXD 5PXR2,2                   SAVE C(XR2).                               
       LXD BBOX,2                    IF THE NUMBER OF                           
       TXH MOVE-1,2,-100             WORDS ENTERED = 100,                       
       WTB CITTAP                    THEN                                       
       LXA L(0),1                    WRITE                                      
WRITE  CPY CIB,1                     THE CONTENTS                               
       TXI TESTB,2,1                 OF THE CIT                                 
TESTB  TXL MOVE-1,2,0                BUFFER                                     
       TXI WRITE,1,-1                ONTO TAPE3.                                
       LXA L(4),1                    MOVE                                       
MOVE   CLA WORD1+4,1                 NEW                                        
       STO CIB,2                     4 WORD                                     
       TXI TESTA,2,-1                INSTRUCTION                                
TESTA  TIX MOVE,1,1                  INTO CIT BUFFER.                           
       SXD BBOX,2                    ADJUST BUFFER COUNT.                       
       LXD 5PXR1,1                   RESTORE C(XR1),                            
       LXD 5PXR2,2                   RESTORE C(XR2), AND                        
       TRA 1,4                     * EXIT TO MAIN ROUTINE.                      
       REM   END DF PROGRAM 5PS4W.                                              
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM                                                                      
       REM  CONSTANTS USED BY 5 PRIME.                                          
L(0)   PZE 0                                                                    
L(1)   PZE 1                                                                    
L(2)   PZE 2                                                                    
L(3)   PZE 3                                                                    
L(4)   PZE 4                                                                    
L(5)   PZE 5                                                                    
L(7)   PZE 7                                                                    
L(8)   PZE 8                                                                    
L(9)   PZE 9                                                                    
L(10)  PZE 10                                                                   
DECR1  PZE 0,0,1                                                                
FIXSYM BCD 1200000                                                              
FLOSYM BCD 1300000                                                              
SIXSYM BCD 1600000                                                              
OCTLOP BCD 1OCT000                                                              
4MATOP BCD 1BCD000                                                              
SIX    OCT 233000000000,77777,0,1000000,0                                       
       REM  END OF 5 PRIME CONSTANTS.                                           
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM WORKING STORAGE USED BY 5 PRIME.                                     
5PERAS BSS 1                                                                    
WORD1  BCD 1500000                                                              
WORD2  BCD 1TRA000                                                              
WORD3  BCD 1000000                                                              
WORD4  BCD 1000000                                                              
CIB    BSS 100                                                                  
EIFNO  BSS 1                                                                    
TABNUM BSS 1                                                                    
WRDCNT BSS 1                                                                    
BUFFER BSS 1500                                                                 
NEWEQ  BSS 1500                                                                 
       REM  END OF 5 PRIME WORKING STORAGE.                                     
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM                                                                      
       REM SYNONYMS USED BY 5 PRIME.                                            
SETDRM SYN 5PS3D3                    LOCATION OF WDR INSTRUCTION.               
TERC   SYN L(5)                      TAPE ERROR COUNTER.                        
SYSTAP SYN 1                         FORTRAN SYSTEM TAPE.                       
TABTAP SYN 2                         TABLE TAPE.                                
CITTAP SYN 3                         COMPILED INSTRUCTION TAPE.                 
DIAG   SYN 4                         DIAGNOSTIC ROUTINE.                        
SECSIX SYN 4                         SECTION SIX = NEXT SECTION.                
       REM   END OF 5 PRIME SYNONYMS.                                           
       REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       
       REM                                                                      
       REM                                                                      
       END 5PRIME                                                               
       REM ************* FORTRAN II SECTION PRE-SIX ********************F6A00010                        
       REM FORTRAN 2   RECORD 92  -  PRE-6.                             F6A00011
       REM                                                              F6A00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)           F6A00013
       REM                                                              F6A00014
       ORG 24                                                           F6A00020
 PC1   HTR 0                                                            F6A00030
 PC2   HTR 0                                                            F6A00040
 PC3   HTR 0                                                            F6A00050
 PC4   HTR 0                                                            F6A00060
 PC5   HTR 0                                                            F6A00070
 PC6   HTR 0                                                            F6A00080
 SUBIN HTR 0                                                            F6A00090
       REM SECTION PRE 6                                                F6A00100
       REM TRANSFER VECTOR COMPILING                                    F6A00110
       ORG 31                                                           F6A00120
 START REW 2                                                            F6A00130
       REW 3                                                            F6A00140
       REW 4                                                            F6A00150
       TSX APCH2,4       TO SKIP BCD FILE.                              F6A00160
 P1    RTB 2             ON TAPE 2.                                     F6A00170
 CH1   CPY ERAS1                                                        F6A00180
       TRA CH1                                                          F6A00190
       TRA P2            END OF FILE.                                   F6A00200
       TRA P1            END OF REC.                                    F6A00210
 P2    TIX P1,2,1                                                       F6A00220
       RTB 2                 RECORD 3                                   F6A00230
       ARS 255                                                          F6A00240
       ARS 255                                                          F6A00250
       RTT                                                              F6A00260
       NOP                                                              F6A00270
       REM READ TRANSFER VECTOR FROM DRUM 3                             F6A00280
       LXA P16,2                                                        F6A00290
 RDRM  RDR 3                                                            F6A00300
 MDA   PXD                                                              F6A00310
       LDA MDA                                                          F6A00320
       CAD TV-2                                                         F6A00330
       COM                                                              F6A00340
       CAD TV-1                                                         F6A00350
       COM                                                              F6A00360
       TZE RDRF                                                         F6A00370
       TIX RDRM,2,1                                                     F6A00380
       TSX 4,4                                                          F6A00390
 RDRF  LXD TV-2,3                                                       F6A00400
       TXL SDF,1                                                        F6A00410
       LXA P16,2                                                        F6A00420
 RDRM1 RDR 3                                                            F6A00430
 FDA   PXD 2                                                            F6A00440
       LDA FDA                                                          F6A00450
 CPY   CAD TV-2,1                                                       F6A00460
       TIX CPY,1,1                                                      F6A00470
       CPY SUM                                                          F6A00480
       COM                                                              F6A00490
       CAD SUM                                                          F6A00500
       COM                                                              F6A00510
       TZE SDF                                                          F6A00520
       TIX RDRM1,2,1                                                    F6A00530
       TSX 4,4                                                          F6A00540
 SDF   CLA TV-2          WD CT. OF TRANSFER VECTOR.                     F6A00550
       STO PC3           STORE LENGTH IN PROGRAM CARD.                  F6A00560
       TZE NOVC                                                         F6A00570
       SUB C18                                                          F6A00580
       STD P8                                                           F6A00590
       LXD C1,5          INITIALIZE TAPE 4 (SETXR1 AND 4=0)             F6A00600
 P9    CAL TV-3,4        STORAGE.                                       F6A00610
       SLW REC-1,1       SELECT NAME AND                                F6A00620
       SLW REC-3,1       COMPILE CIT.                                   F6A00630
       STZ REC-4,1                                                      F6A00640
       CAL BCD                                                          F6A00650
       SLW REC-2,1                                                      F6A00660
       TXI P7,1,4                                                       F6A00670
 P7    TXH WRIT4,1,99                                                   F6A00680
 P11   TXI P8,4,1                                                       F6A00690
 P8    TXH P10,4,*                                                      F6A00700
       TRA P9                                                           F6A00710
 WRIT4 TSX SUB1,2        WRITE RECORD ON                                F6A00720
       TRA P11           TAPE 4.                                        F6A00730
 NOVC  LXD C1,1          SETXR1=0                                       F6A00740
       TRA P10                                                          F6A00750
       REM SUBDEF COMPILING                                             F6A00760
 P10   LXA P16,4         SET READ ERROR COUNTER.                        F6A00770
       TRA P17                                                          F6A00780
 P15   BST 2                                                            F6A00790
       TIX P17,4,1                                                      F6A00800
       TSX 4,4                                                          F6A00810
 P16   HPR 5                                                            F6A00820
 P17   RTB 2             READ SUBDEF TABLE INTO                         F6A00830
       LXA C2,2          SUB-1,-2,...                                   F6A00840
 P18   CPY SUB-2,2                                                      F6A00850
       TXI P18,2,1                                                      F6A00860
       TRA EOF2                                                         F6A00870
       ARS 255                                                          F6A00880
       ARS 255                                                          F6A00890
       RTT                                                              F6A00900
       TRA P15                                                          F6A00910
       CLA PC3                                                          F6A00920
       ARS 18                                                           F6A00930
       STO PC6                                                          F6A00940
       CAL SUB-2         STORE SUBDEF WORD COUNT.                       F6A00950
       STO SUBIN                                                        F6A00960
       TZE NOSUB         TEST FOR SUBROUTINE.                           F6A00970
 P19   CAL SUB-3         STORE NAME OF SUBROUTINE FOR PROGRAM CARD.     F6A00980
       SLW PC5                                                          F6A00990
       CLA PC6                                                          F6A01000
       ADD C1                                                           F6A01010
       STO PC6           SET RELATIVE                                   F6A01020
       STZ RCT           COUNT T0 0.                                    F6A01030
       CAL C5            COMPILE CITS.                                  F6A01040
       SLW REC-1,1                                                      F6A01050
       TSX SUB2,2        COMPLETES CIT ONE.                             F6A01060
       TRA P20               CIT 1                                      F6A01070
       TSX SUB1,2        IF VEC, WRITE OFF TAPE FOUR.                   F6A01080
 P20   STZ REC-1,1       COMPILE CIT, WD1=0,                            F6A01090
       TSX SUB2,2        WD 2=HTR, WD 3=0, WD 4=0.                      F6A01100
       TRA P22                                                          F6A01110
       TSX SUB1,2        IF NEC, WRITE OFF TAPE FOUR.                   F6A01120
 P22   STZ REC-1,1       CIT 3                                          F6A01130
       TSX SUB2,2                                                       F6A01140
       TRA NAME                                                         F6A01150
       TSX SUB1,2                                                       F6A01160
 COMPX TRA NAME                                                         F6A01170
       TSX SUB3,2        TO STORE CIT 4 IN TAPE 4 BUFFER.               F6A01180
       TRA P26                                                          F6A01190
       TSX SUB1,2                                                       F6A01200
 P26   CAL C9                                                           F6A01210
       TSX SUB3,2        TO STORE IN T-4 BUFFER PROLOGUE CIT 5          F6A01220
       TRA P28                                                          F6A01230
       TSX SUB1,2                                                       F6A01240
 P28   CAL C10           TO STORE IN T-4 BUFFER PROLOGUE CIT 6.         F6A01250
       TSX SUB3,2                                                       F6A01260
       TRA P30                                                          F6A01270
       TSX SUB1,2                                                       F6A01280
 P30   LDQ C1            INIT DELETE                                    F6A01290
       STQ DELIN         INDICATOR NOT ZERO.                            F6A01300
       CLA SUB-2         COMPUTE TEST                                   F6A01310
       ARS 18            ADDRESS FOR END                                F6A01320
       SUB C8            OF ARG LIST.                                   F6A01330
       STO ARGCT         ARGCT CONTAINS WD CT. OF SUBDEF-1.             F6A01340
       TZE F1            =0 IF NO ARGUMENTS                             F6A01350
       ADD C11                                                          F6A01360
       STA AGTST         AGTST CONTAINS NO. OF ARGS-SUB+4               F6A01370
       REM FORM ARG ARRAY INDICATOR TABLE                               F6A01380
 A1    CAL C11           INIT ARG LIST,                                 F6A01390
       STA A10           SET ADDRESS A10=SUB-4.                         F6A01400
       LXA P16,2                                                        F6A01410
 A4    RDR 2             READ SIZE TABLE WORD COUNT.                    F6A01420
       LDA A2                                                           F6A01430
 A2    PXD 0                                                            F6A01440
       CAD EA1                                                          F6A01450
       COM                                                              F6A01460
       CAD EA2                                                          F6A01470
       COM                                                              F6A01480
       TZE A3                                                           F6A01490
       TIX A4,2,1                                                       F6A01500
       TSX 4,4                                                          F6A01510
 A3    CLA EA1                                                          F6A01520
       ARS 1                                                            F6A01530
       STO EA1           EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES IN SIZE F6A01540
       REM               TABLE.                                         F6A01541
 A18   LXD C1,2          SET ARRAY IND. TABLE                           F6A01550
 A19   STZ ARIND,2       TO ZERO,                                       F6A01560
       TXI A20,2,1           TABLE                                      F6A01570
 A20   TXH CH4,2,29                                                     F6A01580
       TRA A19                                                          F6A01590
 CH4   LXA EA1,2                                                        F6A01600
       TXL B1,2,0        TEST FOR NO ARRAYS.                            F6A01610
       SXD IRIST,1       SAVE TAPE 4 INDEX.                             F6A01620
       LXA P16,1                                                        F6A01630
 A8    RDR 2                                                            F6A01640
       LDA A5                                                           F6A01650
 A5    PXD 2                                                            F6A01660
 A6    CAD DIM,2         READ SIZ TABLE.                                F6A01670
       CAD EA2                                                          F6A01680
       TIX A6,2,1                                                       F6A01690
       CPY EA2                                                          F6A01700
       COM                                                              F6A01710
       CAD EA2                                                          F6A01720
       COM                                                              F6A01730
       TZE A7                                                           F6A01740
       TIX A8,1,1                                                       F6A01750
       TSX 4,4                                                          F6A01760
 A7    CLA C13           INIT ARIND TABLE.                              F6A01770
       LXD IRIST,1                                                      F6A01780
       STO EA2                                                          F6A01790
       CLA C12                                                          F6A01800
       STA A14                                                          F6A01810
 A9    LXA EA1,2                                                        F6A01820
 A10   CLA SUB-4         SELECT ARG.                                    F6A01830
       CAS DIM,2         IS ARGUMENT AN ARRAY.                          F6A01840
       TRA A11                                                          F6A01850
       TRA A13           YES                                            F6A01860
 A11   TIX A10,2,1                                                      F6A01870
 A12   CLA ZERO          ARG IS NOT ARRAY. SET BIT TO ZERO              F6A01880
       TRA A14                                                          F6A01890
 A13   CLA C14           ARG IS ARRAY, SET BIT TO BE 1.                 F6A01900
 A14   ORS ARIND STORE INSTORE INDICATOR                                F6A01910
       CLA C14                                                          F6A01920
 A17   ARS 1                                                            F6A01930
       STO C14                                                          F6A01940
       CAL EA2           MODIFY ARIND COUNT.                            F6A01950
       SUB C8                                                           F6A01960
       STO EA2                                                          F6A01970
       TZE A15           WORD FULL TEST.                                F6A01980
 A16   CLA A10           MODIFY ARG                                     F6A01990
       SUB C8            LIST ADDRESS.                                  F6A02000
       STA A10                                                          F6A02010
       SUB AGTST                                                        F6A02020
       TZE B1            NO MORE ARGUMENTS.                             F6A02030
       TRA A9                                                           F6A02040
 A15   CLA C13                                                          F6A02050
       STO EA2                                                          F6A02060
       CLA A14                                                          F6A02070
       ADD C8                                                           F6A02080
       STA A14                                                          F6A02090
       TRA APCH3+1                                                      F6A02100
 B1    SXD IRIST,1       SAVE TAPE 4 INDEX                              F6A02110
       REM FORM OP TABLES FROM SEARCHING CIT                            F6A02120
       STZ TP2CT         SET TAPE 2 RECORD COUNT TO ZERO,               F6A02130
 B3    RTB 2             READY TAPE 2.                                  F6A02140
 CH2   CPY EA2                                                          F6A02150
       TRA CH2                                                          F6A02160
       TRA B2            E0F                                            F6A02170
       TRA B3            EOR                                            F6A02180
 B2    LXD C1,1          INIT OP BLOCK. SET XR1=0                       F6A02190
 B8    LXA B5,4              READ TAPE 3                                F6A02200
       TRA B6                                                           F6A02210
 B4    BST 3                                                            F6A02220
       TIX B6,4,1                                                       F6A02230
       TSX 4,4                                                          F6A02240
 B5    HPR 5                                                            F6A02250
 B6    RTB 3             SELECT CIT TAPE.                               F6A02260
       LXA C2,2          SETXR2=-1                                      F6A02270
 B7    CPY CIT-2,2       COPY A RECORD OF CIT TAPE INTO CIT-1,-2,       F6A02280
       TXI B7,2,1                                                       F6A02290
       TRA B28           END OF FILE                                    F6A02300
       ARS 255           END OF RECORD                                  F6A02310
       ARS 255                                                          F6A02320
       RTT                                                              F6A02330
       TRA B4                                                           F6A02340
       SXD B27,2         SAVE TAPE 3 RECORD LENGTH(-2)                  F6A02350
       LXD C1,4          INIT TAPE 3 BLOCK.                             F6A02360
       CLA RCT                                                          F6A02370
       TNZ B9            TRANSFER IF RELATIVE COUNT NOT ZERO.           F6A02380
       CAL CIT-1         STORE INITIAL                                  F6A02390
       SLW SLINT         SYM LOCATION.                                  F6A02400
 B9    CLA DELIN         IS DELINO ZERO.                                F6A02410
       TZE B11           TRANSFER IF YES.                               F6A02420
       CAL CIT-2,4       SELECT CIT. IS OP QPR.                         F6A02430
       ARS 18                                                           F6A02440
       CAS QPR                                                          F6A02450
       TRA B12                                                          F6A02460
       TRA B10           EQUAL. OP IS QPR.                              F6A02470
       TRA B12           NOT EQUAL                                      F6A02480
 B10   STZ DELIN         QPR OP. SET DELETE INDICATOR TO ZERO.          F6A02490
 B16   CLA RCT                                                          F6A02500
       ADD C8            INCREMENT RCT BY 1,                            F6A02510
       STO RCT           AND GO MODIFY TAPE THREE INDEX.                F6A02520
       TRA B26                                                          F6A02530
 B11   CLA C8            SET DELETE INDIC. EQUAL ONE                    F6A02540
       STO DELIN         AND GO MODIFY TAPE 3 IN0EX.                    F6A02550
       TRA B26                                                          F6A02560
 EXT21 CLA CIT-4,4                                                      F6A02570
       ARS 18                                                           F6A02580
       ADD RCT                                                          F6A02590
       STO RCT                                                          F6A02600
       TRA B26                                                          F6A02610
 BSS   BCD 1000BSS                                                      F6A02620
 B12   CAS BSS           OP NOT QPR. TEST FOR BSS OP.                   F6A02630
       TRA EXT20                                                        F6A02640
       TRA EXT21         OP EQUAL BSS.                                  F6A02650
 EXT20 TRA APCH1         OP NOT QPR NOR BSS.                            F6A02660
       STA B13           INITIALIZE ARGUMENT LIST ADDRESS.              F6A02670
 B13   CLA SUB-4         SEARCH ARG LIST                                F6A02680
       CAS CIT-3,4       FOR EQUAL SYMBOLIC                             F6A02690
       TRA B15           ADDRESS.                                       F6A02700
       TRA B14           EQUAL, GO TO B14 TO COMPILE OP TABLE ENTRY.    F6A02710
 B15   CLA B13           SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE       F6A02720
       SUB C8            ARGUMENT COUNTER.                              F6A02730
       STA B13                                                          F6A02740
       SUB AGTST         TEST FOR ALL ARGUMENTS TREATED.                F6A02750
       TZE B16           NO MORE ARGUMENTS. TRANSFER.                   F6A02760
       TRA B13           GO CHECK AGAINST NEXT ARGUMENT.                F6A02770
 B14   CLS C11           EQUAL, MUST COMPILE OP TABLE ENTRY.            F6A02780
       SUB B13                                                          F6A02790
       ADD C8                                                           F6A02800
       STO ARGNO             COMPUTE ADDRESS                            F6A02810
       SUB C8            COMPUTE ADDRESS                                F6A02820
       LRS 35            OF BIT IN ARIND                                F6A02830
       DVH C13           TABLE.                                         F6A02840
       STQ ERAS1                                                        F6A02850
       STA B18                                                          F6A02860
       CLA C12                                                          F6A02870
       SUB ERAS1                                                        F6A02880
       STA B17                                                          F6A02890
 B17   LDQ *             TEST FOR ARRAY.                                F6A02900
 B18   LLS *                                                            F6A02910
       PXD                                                              F6A02920
       LLS 1                                                            F6A02930
       TZE B19           NOT ARRAY.                                     F6A02940
       CLA CIT-4,4       ARG IS ARRAY, SO STORE RELATIVE ADDRESS OF     F6A02950
       STO OP-2,1        CIT AS WORD 2 OF OP TABLE ENTRY.               F6A02960
       TRA B20                                                          F6A02970
 B19   STZ OP-2,1        ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0.    F6A02980
 B20   CLA ARGNO         ASSEMBLE WORD ONE OF OP TABLE ENTRY.           F6A02990
       ALS 18                                                           F6A03000
       ADD RCT                                                          F6A03010
       STO OP-1,1                                                       F6A03020
       TXI B21,1,2       MODIFY TAPE 2                                  F6A03030
 B21   TXH B22,1,289     BLOCK.                                         F6A03040
       TRA B16                                                          F6A03050
 B22   WTB 2             WRITE OFF                                      F6A03060
       LXD C1,1          TAPE 2.                                        F6A03070
 B25   CPY OP-1,1                                                       F6A03080
       TXI B23,1,1                                                      F6A03090
 B23   TXH B24,1,289                                                    F6A03100
       TRA B25                                                          F6A03110
 B24   LXD C1,1          SET XR1 EQUAL ZERO                             F6A03120
       CLA TP2CT         UPDATE TAPE TWO RECORD COUNT.                  F6A03130
       ADD C8                                                           F6A03140
       STO TP2CT                                                        F6A03150
       IOD                                                              F6A03160
       TRA B16                                                          F6A03170
 B26   TXI B27,4,4       MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM   F6A03180
       REM               TAPE 3).                                       F6A03181
 B27   TXH B8,4,*        TEST END OF TAPE 3 BLOCK.                      F6A03190
       TRA B9                                                           F6A03200
 B28   REW 3             EOF TAPE 3. REWIND TAPE 3.                     F6A03210
       TXH B29,1,0       ANY OP ENTRIES TO BE WRITTEN ON T-2.           F6A03220
       TRA B34           NO.                                            F6A03230
 B29   SXD B31,1         YES, SAVE COUNT OF WORDS TO BE WRITTEN.        F6A03240
       WTB 2                                                            F6A03250
       LXD C9,1          WRITE OFF ON                                   F6A03260
 B30   CPY OP,1          TAPE 2.                                        F6A03270
       TXI B31,1,1           NECESSARY                                  F6A03280
 B31   TXH B35,1,*                                                      F6A03290
       TRA B30                                                          F6A03300
 B34   CLA TP2CT         IS RECORD COUNT ZERO.                          F6A03310
       TNZ B36           NO. OKAY 50 TRANSFER TO READ TARE TWO.         F6A03320
       TSX 4,4           YES, ERROR.                                    F6A03330
 B35   CLA TP2CT                                                        F6A03340
       IOD               UPDATE TAPE TWO RECORD COUNT.                  F6A03350
       ADD C8                                                           F6A03360
       STO TP2CT                                                        F6A03370
 B36   WEF 2             WEF TAPE 2.                                    F6A03380
       BST 2                                                            F6A03390
       LXA TP2CT,1       BACK SPACE TO                                  F6A03400
 B37   BST 2             BEGIN OF FILE.                                 F6A03410
       TIX B37,1,1                                                      F6A03420
       ARS 255                                                          F6A03430
       ARS 255                                                          F6A03440
       RTT                                                              F6A03450
       NOP                                                              F6A03460
       LXD IRIST,1                                                      F6A03470
       STZ RCT           SET RELATIVE COUNT TO ZERO.                    F6A03480
       CLA C15                                                          F6A03490
       STO DELIN         SET DELETE INDICATOR TO NOT-ZERO.              F6A03500
 REA02 LXD ZERO,2                                                       F6A03510
 D5    LXA D1,4          SET READ-ERROR COUNTER.                        F6A03520
       TRA D2                                                           F6A03530
 D3    BST 2             REA0 TAPE 2 FILE 6                             F6A03540
       TIX D2,4,1        INTO STORAGE.                                  F6A03550
       TSX 4,4                                                          F6A03560
 D1    HPR 5                                                            F6A03570
 D2    RTB 2                                                            F6A03580
       NOP                                                              F6A03590
 D4    CPY OP-1,2                                                       F6A03600
       TXI D4,2,1                                                       F6A03610
       TRA D89           E.O.F.                                         F6A03620
       ARS 255                                                          F6A03630
       ARS 255                                                          F6A03640
       RTT                                                              F6A03650
       TRA D3                                                           F6A03660
       TRA D5                                                           F6A03670
 D89   STZ EA1                                                          F6A03680
       SXD EA1,2                                                        F6A03690
       NOP                                                              F6A03700
 D30   CLA EA1           TEST WD COUNT OF OP TABLE.                     F6A03710
       SUB C21                                                          F6A03720
       TMI D6                                                           F6A03730
       TSX 4,4           MORE THAN 2000 WORDS IS ERROR.                 F6A03740
 D6    REW 2             REWIND TAPE 2.                                 F6A03750
       STZ CONCT         SET CONCT EQUAL ZERO                           F6A03760
       CLA C8            INIT. ARG. NUMBER TO ONE.                      F6A03770
       STO ARGNO                                                        F6A03780
       CLA EA1                                                          F6A03790
       SUB C18           SUBTRACT ONE (IN DECREMENT)                    F6A03800
       STD D14           SET END OF 0P BLOCK TEST. (EA1-1)              F6A03810
 D7    STZ REC-1,1       COMPILE CLA N,4                                F6A03820
       CAL C16           WHERE N IS THE ARGUMENT NUMBER.                F6A03830
       SLW REC-2,1       SL=0                                           F6A03840
       CLA ARGNO         OP=CLA                                         F6A03850
       ALS 18            SA=0                                           F6A03860
       ADD C1            RA=N,4                                         F6A03870
       STO REC-4,1                                                      F6A03880
       STZ REC-3,1                                                      F6A03890
       TXI D8,1,4                                                       F6A03900
 D8    TXH D9,1,99       TEST CIT BLOCK FULL. IF YES, GO WRITE OFF.     F6A03910
 D10   STZ DELTA         SET DELTA ZERO.                                F6A03920
       LXD C1,2          INIT. IR2 TO ZERO.                             F6A03930
 D11   CLA OP-1,2        SELECT OP TABLE ENTRY.                         F6A03940
       ARS 18                                                           F6A03950
       CAS ARGNO         COMPARE IT WITH ARG NO.                        F6A03960
       TRA D12                                                          F6A03970
       TRA D13           EQUAL ARGUMENT, GO COMPILE STORE.              F6A03980
 D12   TXI D14,2,2       UPDATE OP TABLE COUNTER.                       F6A03990
 D14   TXH D15,2,*       TEST FOR END OF OP TABLE.                      F6A04000
       TRA D11                                                          F6A04010
 D15   CLA ARGNO         MODIFY ARG NUMBER (INCREASE IT BY ONE).        F6A04020
       ADD C8                                                           F6A04030
       STO ARGNO                                                        F6A04040
       SUB ARGCT         TEST END OF ARG. NUMBERS.                      F6A04050
       TMI D7            NO.                                            F6A04060
       TZE D7            NO.                                            F6A04070
       TRA E1            FINISHED.                                      F6A04080
 D9    TSX SUB1,2        WRITE OFF ON                                   F6A04090
       TRA D10           TAPE 4.                                        F6A04100
 D13   CLA OP-2,2        COMPILE STORE.                                 F6A04110
       ARS 18                                                           F6A04120
       STO DELDD         COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY TO F6A04130
       SUB DELTA         ADD T0 GET EFFECTIVE ADDRESS FOR STA.          F6A04140
       STO GAMMA                                                        F6A04150
       LDQ DELDD                                                        F6A04160
       STQ DELTA                                                        F6A04170
       CLA GAMMA         IS INCREMENT ZERO.                             F6A04180
       TZE D25           YES                                            F6A04190
       CLA CONCT         NO. TEST FOR ANY INCREMENT TABLE.              F6A04200
       TZE CH6           NO INCREMENT TABLE.                            F6A04210
       ADD C17           YES, THERE IS AN INCREMENT TABLE.              F6A04220
       SUB C8            SET ADDRESS OF D17=LOCATION OF                 F6A04230
       STA D17           LAST GAMMA STORED.                             F6A04240
 D17   CLA HTAB          IS LAST GAMMA                                  F6A04250
       SUB GAMMA         EQUAL CURRENT GAMMA.                           F6A04260
       TZE EX1           YES, ADDEND ALREADY IN TABLE                   F6A04270
       CLA D17           NO,                                            F6A04280
       SUB C8            MODIFY ADDRESS IN HTAB.                        F6A04290
       STA D17                                                          F6A04300
       SUB C17           ANY MORE ENTRIES IN HTAB.                      F6A04310
       TPL D17           YES.                                           F6A04320
 CH6   CLA C17           NOT IN TABLE.                                  F6A04330
       ADD CONCT                                                        F6A04340
       STA D18                                                          F6A04350
       CLA GAMMA                                                        F6A04360
 D18   STO *             SET BY CH6 TO HTAB+CONCT. STORE GAMMA.         F6A04370
       CLA CONCT         UP CONCOUNT BY ONE.                            F6A04380
       ADD C8                                                           F6A04390
       STO CONCT                                                        F6A04400
 D19   STZ REC-1,1       COMPILE ADD.                                   F6A04410
       CAL ADD               ADD                                        F6A04420
       SLW REC-2,1                                                      F6A04430
       CAL TABCT                                                        F6A04440
       SLW REC-3,1       SA=9(                                          F6A04450
       CLA CONCT                                                        F6A04460
       SUB C8                                                           F6A04470
       ALS 18            RELATIVE LOCATION OF HTAB CONSTANT.            F6A04480
       STO REC-4,1                                                      F6A04490
       TXI D16,1,4       MODIFY TAPE 4 BLOCK.                           F6A04500
 D16   TXH D20,1,99      TEST TAPE 4 BLOCK FULL.                        F6A04510
 D25   STZ REC-1,1       COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG.   F6A04520
       CAL STA           APPEARS IN OP TABLE.                           F6A04530
       SLW REC-2,1                                                      F6A04540
       CAL SLINT         TEST INITIAL SYMBOLIC LOCATION.                F6A04550
       TNZ D21           TRANSFER IF NOT ZERO.                          F6A04560
       CAL C4            ZERO. SET SA EQUAL TO $$000.                   F6A04570
 D21   SLW REC-3,1                                                      F6A04580
       LDQ OP-1,2                                                       F6A04590
       LLS 18                                                           F6A04600
       STQ REC-4,1                                                      F6A04610
       TXI D22,1,4                                                      F6A04620
 D22   TXH D23,1,99      TEST TAPE 4 BLOCK FULL.                        F6A04630
 D24   TRA D12           NO.                                            F6A04640
 D20   SXD IRIST,2                                                      F6A04650
       TSX SUB1,2        GO WRITE A CIT RECORD ON TAPE 4.               F6A04660
       LXD IRIST,2                                                      F6A04670
       TRA D25                                                          F6A04680
 EX1   CLA D17           ADDEND ALREADY IN TABLE                        F6A04690
       SUB C17                                                          F6A04700
       ALS 18                                                           F6A04710
       STO REC-4,1                                                      F6A04720
       STZ REC-1,1                                                      F6A04730
       CAL ADD                                                          F6A04740
       SLW REC-2,1                                                      F6A04750
       CAL TABCT                                                        F6A04760
       SLW REC-3,1                                                      F6A04770
       TXI D16,1,4                                                      F6A04780
 D23   SXD IRIST,2                                                      F6A04790
       TSX SUB1,2                                                       F6A04800
       LXD IRIST,2                                                      F6A04810
       TRA D12                                                          F6A04820
 E1    LXA E3,2              READ TAPE 3                                F6A04830
       TRA E4                                                           F6A04840
 E2    BST 3                                                            F6A04850
       TIX E4,2,1        SET READ ERROR COUNTER.                        F6A04860
       TSX 4,4                                                          F6A04870
 E3    HPR 5                                                            F6A04880
 E4    RTB 3             READ A RECORD FROM TAPE 3.                     F6A04890
       LXA C2,4          SET COUNTER TO -1, TO READ INTO                F6A04900
 E5    CPY CIT-2,4       CIT-1,-2,---                                   F6A04910
       TXI E5,4,1                                                       F6A04920
       TRA E14           EOF.                                           F6A04930
       ARS 255                                                          F6A04940
       ARS 255                                                          F6A04950
       RTT                                                              F6A04960
       TRA E2                                                           F6A04970
       SXD E8,4                                                         F6A04980
       LXD C1,4                                                         F6A04990
       CLA ARGCT         TEST ARGUMENT COUNT FOR ZERO.                  F6A05000
       TZE E6            YES, TRANSFER.                                 F6A05010
       CLA RCT           NO, TEST RCT FOR ZERO.                         F6A05020
       TNZ E6            RCT NOT ZERO.                                  F6A05030
       CAL SLINT         TEST FIRST SUMBOLIC LOC.                       F6A05040
       TNZ E6            TRANSFER IF NOT ZERO.                          F6A05050
       CAL C4            $$                                             F6A05060
       SLW CIT-1                                                        F6A05070
 E6    CAL CIT-2,4                                                      F6A05080
       ARS 18            IS OP QPR.                                     F6A05090
       SUB QPR                                                          F6A05100
       TZE E9            YES, TRANSFER.                                 F6A05110
       ADD QPR                                                          F6A05120
       SUB QXD           IS OP QXD.                                     F6A05130
       TZE EX3           YES, TRANSFER.                                 F6A05140
       CLA DELIN         IS DELETE IND                                  F6A05150
       TZE E11           ZERO. TRANSFER IF YES.                         F6A05160
       CAL CIT-2,4       COPY CIT FROM TAPE 3 INTO                      F6A05170
E10    SLW REC-2,1       TAPE 4 BUFFER.                                 F6A05180
       CAL CIT-1,4           BLOCK                                      F6A05190
       SLW REC-1,1                                                      F6A05200
       CAL CIT-3,4                                                      F6A05210
       SLW REC-3,1                                                      F6A05220
       CAL CIT-4,4                                                      F6A05230
       SLW REC-4,1                                                      F6A05240
       CLA RCT               ADD TO RCT                                 F6A05250
       ADD C8            UPDATE RELATIVE COUNT BY ONE.                  F6A05260
       STO RCT                                                          F6A05270
       TXI E7,1,4        MODIFY TAPE 4 BUFFER COUNTER.                  F6A05280
 E7    TXH E13,1,99      TEST END OF TAPE 4 BLOCK.                      F6A05290
 E12   TXI E8,4,4        NO, MODIFY TAPE 3 BLOCK COUNTER.               F6A05300
 E8    TXH E1,4,*        TEST ENO OF TAPE 3 BLOCK.                      F6A05310
       TRA E6            NO.                                            F6A05320
 E9    STO DELIN         QPR. SET DELIN=0.                              F6A05330
       CAL TRA           SELECT OP=TRA,                                 F6A05340
 EX2   SLW REC-2,1       AND RETURN TO GET REST                         F6A05350
       STZ REC-1,1       OF CIT.                                        F6A05360
       TRA E10+3                                                        F6A05370
 EX3   CAL LXD           OP IS QXD.                                     F6A05380
       TRA E10                                                          F6A05390
 LXD   BCD 1LXD000                                                      F6A05400
 QXD   BCD 1000QXD                                                      F6A05410
 E11   CLA C8            DELETE INSTRUCTION. SET DELETE INDICATOR       F6A05420
       STO DELIN         TO NOT ZERO, AND TRANSFER                      F6A05430
       TRA E12           TO TEST TAPE 4 BLOCK FULL.                     F6A05440
 E13   TSX SUB1,2        WRITE OFF ON                                   F6A05450
       TRA E12           TAPE 4.                                        F6A05460
 E14   CLA CONCT         ENO OF TAPE 3.                                 F6A05470
       TZE E20           TRANSFER SINCE 9) TABLE NOT NEC.               F6A05480
       CLA C17               IF NECESSARY                               F6A05490
       STA E17           COMPILE 9) TABLE.                              F6A05500
       STZ EA1           SET EA1=0.                                     F6A05510
       CAL TABCT                                                        F6A05520
       SLW REC-1,1       SL=9)                                          F6A05530
 E18   CAL OCT           OP=OCT.                                        F6A05540
       SLW REC-2,1                                                      F6A05550
 E17   CAL *             SA=THE NECESSARY CONSTANT.                     F6A05560
       SLW REC-3,1                                                      F6A05570
       STZ REC-4,1       RA=0                                           F6A05580
       TXI E15,1,4       MODIFY TAPE 4 BLOCK COUNT.                     F6A05590
 E15   TXH E16,1,99      TEST END OF TAPE 4 BLOCK.                      F6A05600
 E19   CLA E17           TO GET NEXT CONSTANT IN 9) TABLE.              F6A05610
       SUB C8                                                           F6A05620
       STA E17                                                          F6A05630
       CLA EA1           INCREASE EA1 BY ONE.                           F6A05640
       ADD C8                                                           F6A05650
       STO EA1                                                          F6A05660
       SUB CONCT                                                        F6A05670
       TZE E20           TRANSFER IF ALL NEC 9) TABLE CITS COMPILED.    F6A05680
       STZ REC-1,1       SET SL=0                                       F6A05690
       TRA E18           AND GO COMPILE REST OF CIT.                    F6A05700
 E16   TSX SUB1,2                                                       F6A05710
       TRA E19                                                          F6A05720
 E20   TSX APCH2,4       TO SKIP BCD FILE.                              F6A05730
 E21   RTB 2             SKIPPING TO FILE 5.                            F6A05740
 CH3   CPY ERAS1                                                        F6A05750
       TRA CH3                                                          F6A05760
       TRA E22           END OF FILE.                                   F6A05770
       TRA E21           END OF RECORD.                                 F6A05780
 E22   TIX E21,2,1                                                      F6A05790
       RTB 2             SKIP F1RST 3 RECORDS IN FILE FIVE.             F6A05800
       RTB 2                                                            F6A05810
       RTB 2                                                            F6A05820
       ARS 255                                                          F6A05830
       ARS 255                                                          F6A05840
       RTT                                                              F6A05850
       NOP                                                              F6A05860
       LXA E24,2         SET READ ERROR COUNTER.                        F6A05870
       TRA E25                                                          F6A05880
 E23   BST 2                                                            F6A05890
       TIX E25,2,1                                                      F6A05900
       TSX 4,4                                                          F6A05910
 E24   HPR 5                                                            F6A05920
 E25   RTB 2             READ HOLARG TABLE                              F6A05930
       LXA C2,4          INTO SUB-1,-2,---                              F6A05940
E26    CPY SUB-2,4                                                      F6A05950
       TXI E26,4,1                                                      F6A05960
       TRA EOF3                                                         F6A05970
       ARS 255                                                          F6A05980
       ARS 255                                                          F6A05990
       RTT                                                              F6A06000
       TRA E23                                                          F6A06010
 E27   CLA SUB-2         TEST WORD COUNT OF HOLARG TABLE.               F6A06020
       TZE E33           EXIT, NO HOLARG.                               F6A06030
       SUB C18                                                          F6A06040
       STO EA1           STORE WD. COUNT-1 IN EA1                       F6A06050
       CLA E27           INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE. F6A06060
       SUB C8                                                           F6A06070
       STA E29                                                          F6A06080
       STZ EA2           SET EA2=0.                                     F6A06090
       CAL C19           SET SL OF FIRST CIT FOR EACH HOLLERITH         F6A06100
       SLW REC-1,1       ARGUMENT=11.                                   F6A06110
 E28   CAL BCD                                                          F6A06120
       SLW REC-2,1       SET OP=BCD.                                    F6A06130
 E29   CLA *             (SUB-3 TO START)                               F6A06140
       CAS C20           TEST FOR END OF ARGUMENT.                      F6A06150
       TRA LIB10         NO.                                            F6A06160
       TRA LIB12         TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE.  F6A06170
 LIB10 STO REC-3,1       SA=6 CHARACTERS OF THE ARGUMENT.               F6A06180
 LIB11 STZ REC-4,1       RA=0.                                          F6A06190
       TXI E30,1,4       MODIFY TAPE 4 BLOCK COUNT.                     F6A06200
 E30   TXH E31,1,99      TEST TAPE 4 BLOCK FULL.                        F6A06210
 E32   CLA E29           MODIFY ADDRESS IN HOLARG TABLE.                F6A06220
       SUB C8                                                           F6A06230
       STA E29                                                          F6A06240
       CLA EA2           INCREMENT COUNT OF WORDS FROM TABLE            F6A06250
       ADD C18           TREATED BY ONE.                                F6A06260
       STO EA2                                                          F6A06270
       SUB EA1           TEST FOR END OF HOLARG TABLE.                  F6A06280
       TZE E40           END.                                           F6A06290
       STZ REC-1,1       NO.                                            F6A06300
       TRA E28                                                          F6A06310
 LIB12 STO REC-3,1       END OF ARGUMENT, COMPILE ENDING CIT            F6A06320
       CLA OCT           (SA=STRING OF 1S)                              F6A06330
       STO REC-2,1                                                      F6A06340
       TRA LIB11                                                        F6A06350
 E31   TSX SUB1,2        WRITE OFF ON TAPE 4.                           F6A06360
       TRA E32                                                          F6A06370
 E33   TXL E35,1,1       MAY NEED TO WRITE OFF 4.                       F6A06380
       TIX CH7,1,1                                                      F6A06390
 CH7   SXD E34,1         WRITE OFF ON                                   F6A06400
       WTB 4             TAPE 4.                                        F6A06410
       LXD C1,1                                                         F6A06420
 E36   CPY REC-1,1                                                      F6A06430
       TXI E34,1,1                                                      F6A06440
 E34   TXH E35,1,*                                                      F6A06450
       TRA E36                                                          F6A06460
 E35   WEF 4             WRITE END OF FILE ON TAPE 4.                   F6A06470
       REW 4             REWIND TAPES 2,3,4                             F6A06480
       REW 3             AND GO TO LOADER,                              F6A06490
       REW 2                                                            F6A06500
       RTB 1                                                            F6A06510
       TRA 4                 RETURN TO LOADER                           F6A06520
 NOSUB STZ PC5           NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD.  F6A06530
       STZ RCT           SET RELATIVE COUNT=0.                          F6A06540
       CLA C8                                                           F6A06550
       STO DELIN         SET DELIN TO NOT ZERO.                         F6A06560
       STZ CONCT         SET CONSTANT COUNT=ZERO.                       F6A06570
       REW 2             REWIND TAPE TWO.                               F6A06580
       STZ ARGCT         SET ARGUMENT COUNT=ZERO.                       F6A06590
       TRA E1            GO DEAL WITH TAPE 3 CITS.                      F6A06600
 F1    TRA NOSUB+1                                                      F6A06610
 E40   STZ REC-1,1       COMPILE FINAL HOLARG CIT.                      F6A06620
       CAL OCT                                                          F6A06630
       SLW REC-2,1                                                      F6A06640
       CAL C20                                                          F6A06650
       SLW REC-3,1                                                      F6A06660
       STZ REC-4,1                                                      F6A06670
       TXI CH10,1,4      UPOATE T-4 BLOCK C0UNTER.                      F6A06680
 CH10  TRA E33           GO TEST BLOCK FULL.                            F6A06690
 SUB1  WTB 4             WRITE TAPE 4,                                  F6A06700
       LXD C1,1                                                         F6A06710
 SUBA  CPY REC-1,1                                                      F6A06720
       TXI SUBB,1,1                                                     F6A06730
 SUBB  TXH SUBC,1,99                                                    F6A06740
       TRA SUBA                                                         F6A06750
 SUBC  IOD                                                              F6A06760
       LXD C1,1                                                         F6A06770
       TRA 1,2                                                          F6A06780
 SUB2  CAL C6            COMPILE CITS                                   F6A06790
       SLW REC-2,1       OP=HTR                                         F6A06800
       STZ REC-3,1       SA=0                                           F6A06810
       STZ REC-4,1       RA=0                                           F6A06820
       TXI SUB2A,1,4                                                    F6A06830
 SUB2A TXH SUB2B,1,99    TLST TAPE 4 BLOCK FULL.                        F6A06840
       TRA 1,2           NO.                                            F6A06850
 SUB2B TRA 2,2           YES.                                           F6A06860
 SUB3  SLW REC-4,1       STORE CIT 4 5 6                                F6A06870
       CAL C7                                                           F6A06880
       SLW REC-2,1       OP=SXD                                         F6A06890
       CAL C5                                                           F6A06900
       SLW REC-3,1       SA=$0000                                       F6A06910
       STZ REC-1,1       SL=0                                           F6A06920
       TXI SUB3A,1,4                                                    F6A06930
 SUB3A TXH SUB3B,1,99    TEST TAPE 4 BLOCK FULL.                        F6A06940
       TRA 1,2           NO.                                            F6A06950
 SUB3B TRA 2,2           YES.                                           F6A06960
 C1    HTR 4                                                            F6A06970
 C2    HTR -1                                                           F6A06980
 BCD   BCD 1BCD000                                                      F6A06990
 C3    HTR 3                                                            F6A07000
 C4    BCD 1$$ 000                                                      F6A07010
 C5    BCD 1$ 0000                                                      F6A07020
 C6    BCD 1HTR000                                                      F6A07030
 C7    BCD 1SXD000                                                      F6A07040
 C8    HTR 1                                                            F6A07050
 C9    OCT 000001000002                                                 F6A07060
 C10   OCT 000002000004                                                 F6A07070
 C11   CAL SUB-4                                                        F6A07080
 C12   HTR ARIND                                                        F6A07090
 C13   HTR 35                                                           F6A07100
 C14   TIX 0,0,0                                                        F6A07110
 C15   HTR 5                                                            F6A07120
 C16   BCD 1CLA000                                                      F6A07130
 C17   CLA HTAB                                                         F6A07140
 ADD   BCD 1ADD000           INITARG                                    F6A07150
 QPR   BCD 1000QPR                                                      F6A07160
 AGTST CLA **                                                           F6A07170
 ZERO  HTR 0                                                            F6A07180
 TABCT BCD 1900000                                                      F6A07190
 EOF1  TSX 4,4                                                          F6A07200
 STA   BCD 1STA000                                                      F6A07210
 TRA   BCD 1TRA000                                                      F6A07220
 EOF2  TSX 4,4                                                          F6A07230
 C18   OCT 000001000000                                                 F6A07240
 C19   OCT 130000000000                                                 F6A07250
 C20   OCT 777777777777                                                 F6A07260
 C21   OCT 003720000000      (2000 IN DICREMENT)                        F6A07270
 OCT   BCD 1OCT000                                                      F6A07280
 EOF3  TSX 4,4                                                          F6A07290
 EA1   HTR 0                                                            F6A07300
 EA2   HTR 0                                                            F6A07310
 IRIST HTR 0                                                            F6A07320
 SLINT HTR 0                                                            F6A07330
 ARGNO HTR 0                                                            F6A07340
 ERAS1 HTR 0                                                            F6A07350
 RCT   HTR 0                                                            F6A07360
 DELIN HTR 0                                                            F6A07370
 ARGCT HTR 0                                                            F6A07380
 TP2CT HTR 0                                                            F6A07390
 DELTA HTR 0                                                            F6A07400
 CONCT HTR 0                                                            F6A07410
 DELDD HTR 0                                                            F6A07420
 GAMMA HTR 0                                                            F6A07430
 SUM   HTR 0                                                            F6A07440
       BSS 1                                                            F6A07441
 APCH1 CAS SYNOP                                                        F6A07442
       TRA GOON                                                         F6A07443
       TRA B26           OP IS SYN.                                     F6A07444
       CAS OCTOP                                                        F6A07445
       TRA GOON                                                         F6A07446
       TRA B16           OP IS OCT.                                     F6A07447
       CAS BCDOP                                                        F6A07448
       TRA GOON                                                         F6A07449
       TRA B16           OP IS BCD.                                     F6A07450
 GOON  CAL C11                                                          F6A07451
       TRA EXT20+1                                                      F6A07452
 SYNOP OCT 000000627045                                                 F6A07453
 OCTOP OCT 000000462363                                                 F6A07454
 BCDOP OCT 000000222324                                                 F6A07455
 APCH2 RTD 2             SKIP A BCD F1LE.                               F6A07456
       CPY ERAS1                                                        F6A07457
       TRA *-1                                                          F6A07458
       TRA *+2           END OF FILE                                    F6A07459
       TRA APCH2         END OF RECORD                                  F6A07460
       LXA C3,2                                                         F6A07461
       TRA 1,4           RETURN TO PROGRAM.                             F6A07462
 NAME  CAL BCD           INSERT CIT 3 PRIME.                            F6A07463
       SLW REC-2,1                                                      F6A07464
       CAL PC5           OP=BCD                                         F6A07465
       SLW REC-3,1       SA=NAME OF ROUTINE.                            F6A07466
       STZ REC-1,1                                                      F6A07467
       STZ REC-4,1                                                      F6A07468
       TXI *+1,1,4                                                      F6A07469
       TXH *+2,1,99                                                     F6A07470
       TRA P24                                                          F6A07471
       TSX SUB1,2                                                       F6A07472
 P24   CAL C8                                                           F6A07473
       TRA COMPX+1                                                      F6A07474
 APCH3 TIX 0,0,0          REINITIALIZE C14                              F6A07475
       CLA APCH3                                                        F6A07476
       STO C14                                                          F6A07477
       TRA A16                                                          F6A07478
       ORG 1230                                                         F6A07480
 REC   BES 100                                                          F6A07481
 CIT   BES 100                                                          F6A07482
 OP    BES 2000                                                         F6A07483
       ORG 1430                                                         F6A07490
 TV    BES 1000                                                         F6A07500
 SUB   SYN TV                                                           F6A07510
       ORG 3430                                                         F6A07520
 HTAB  BSS 300                                                          F6A07530
 DIM   SYN OP                                                           F6A07540
       ORG 2730                                                         F6A07550
 ARIND BES 30                                                           F6A07560
       END                                                              F6A07570
       REM PST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6B00010
       REM FORTRAN 2   RECORD 94  -  BINARY SEARCH.                     F6B00011
       REM                                                              F6B00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL)           F6B00013
       REM                                                              F6B00014
       ORG 31                                                           F6B00020
 SRCH  TXI *,2,*         OR TXL TDEV,2,0 OR TXH TTIV,2,-2               F6B00030
       TQP IFTXH         OR TXL TTEV DEPENDING ON TABLE AND             F6B00040
       TXI LOWER,1,-2    ON DIRECTION OF TABLE.                         F6B00050
 IFTXH TXI RAISE,1,-2                                                   F6B00060
       TXI SRCH,2,+8192  FOR A TABLE WITH N                             F6B00070
       TXI SRCH,2,-8192  ENTRIES, THE SEARCH IS                         F6B00080
       TXI SRCH,2,+4096  COMMENCED AT THE 2**XTH                        F6B00090
       TXI SRCH,2,-4096  ENTRY, THE LATTER BEING THE                    F6B00100
       TXI SRCH,2,+2048  LARGEST POWER OF 2                             F6B00110
       TXI SRCH,2,-2048  LESS THAN N.                                   F6B00120
       TXI SRCH,2,+1024  THEN. DEPENDING ON THE RESULTS                 F6800130
       TXI SRCH,2,-1024  OF THE COMPARISON, THE SEARCH                  F6B00140
       TXI SRCH,2,+512   STEPS UP, OR DOWN, BY                          F6B00150
       TXI SRCH,2,-512   2**(X-1), AND MAKES                            F6B00160
       TXI SRCH,2,+256   A NEW COMPARISON WITH THAT                     F6B00170
       TXI SRCH,2,-256   ENTRY                                          F6B00180
       TXI SRCH,2,+128   IF THIS STEP OVERREACHES THE                   F6B00190
       TXI SRCH,2,-128   END OF THE TABLE, IT IS TRAPPED                F6B00200
       TXI SRCH,2,+64    BY THE TXL OR TXH INSTRUCTIONS                 F6B00210
       TXI SRCH,2,-64    IN SRCH                                        F6B00220
       TXI SRCH,2,+32                                                   F6B00230
       TXI SRCH,2,-32                                                   F6B00240
       TXI SRCH,2,+16                                                   F6B00250
       TXI SRCH,2,-16    INDEX REGISTER 1, WHICH                        F6B00260
       TXI SRCH,2,+8     CONTAINS 2(X+3) SELECTS THE                    F6B00270
       TXI SRCH,2,-8     APPROPRIATE TXI IN THIS LIST,                  F6B00280
       TXI SRCH,2,+4     TO MAKE THE NEXT LEAP                          F6B00290
       TXI SRCH,2,-4     FORWARDS OR BACKWARDS IN                       F6B00300
       TXI SRCH,2,+2     THE TABLE.                                     F6B00310
       TXI SRCH,2,-2                                                    F6B00320
       TXI SRCH,2,+1     INDEX REGISTER 2 SELECTS THE                   F6B00330
       TXI SRCH,2,-1     TABLE ENTRY FOR COMPARISON.                    F6B00340
 NOTIN TRA 1,4           END OF SEARCH.                                 F6B00350
       TXI NOTIN,2,-1                                                   F6B00360
 RAISE TRA RAISE,1                                                      F6B00370
 LOWER TRA LOWER,1                                                      F6B00380
 STEV  LDQ TEVL          ENTER HERE TO SEARCH TEV.                      F6B00390
       STQ SRCH                   TABLE                                 F6B00400
       LXA TEVS,1        CONTROLS HOPP1NG WITHIN TEV.                   F6B00410
       LXD TEVS,2        SELECTS ITEM FOR COMPARISON.                   F6B00420
 TTEV  CAS TEV,2                                                        F6B00430
       TXI RAISE,1,-2    NOT FOUND. CONTINUE SEARCH                     F6B00440
       TRA ATEV          FOUND.                                         F6B00450
       TXI LOWER,1,-2    NOT FOUND. CONTINUE SEARCH                     F6B00460
 ATEV  PXD 0,2           CONTROLS ENTRY POINT OF SEARCH                 F6B00470
       ARS 18            DEC. CONTAINS TABLE LENGTH.                    F6B00480
       ADD LTEV                                                         F6B00490
       TRA 2,4                                                          F6B00500
 TEVS      4,0,**+0                                                     F6B00510
 TEVL  TXL TTEV,2,**+0                                                  F6B00520
 STIV  ALS 15            ENTER HERE TO SEARCH TIV.                      F6B00530
       SLW ENTRY                                                        F6B00540
       SLW ARG                                                          F6B00550
       LDQ TIVL                                                         F6B00560
       STQ SRCH                                                         F6B00570
       LXA TIVS,1                                                       F6B00580
       LXD TIVS,2                                                       F6B00590
 TTIV  CLA TIV,2                                                        F6B00600
       STA ARG                                                          F6B00610
       CAS ARG                                                          F6B00620
       TXI LOWER,1,-2                                                   F6B00630
       TRA ATIV                                                         F6B00640
       TXI RAISE,1,-2                                                   F6B00650
 ATIV  CLA TIV,2         RETURN WITH COMPLETE OLD TIV ENTRY             F6B00660
       TRA 2,4                                                          F6B00670
 TIVS      4,0,**-1                                                     F6B00680
 TIVL  TXH TTIV,2,**-2                                                  F6B00690
 SDEV  LDQ DEVL          ENTER HERE TO SEARCH DEV                       F6B00700
       STQ SRCH                   TABLE                                 F6B00710
       LXA DEVS,1        CONTROLS HOPPING WITHIN DEV                    F6B00720
       LXD DEVS,2        SELECTS THE ITEM FOR COMPARISON.               F6B00730
 TDEV  CAS DEV,2                                                        F6B00740
       TXI RAISE,1,-2    NOT FOUND CONTINUE SEARCH                      F6B00750
       TRA ADEV          ENTRY FOUND                                    F6B00760
       TXI LOWER,1,-2    NOT FOUND. CONTINUE SEARCH.                    F6B00770
 ADEV  CLA DEA,2                                                        F6B00780
       TRA 3,4                                                          F6B00790
 DEVS      4,0,**+0      CONTROLS ENTRY POINT OF SEARCH.                F6B00800
 DEVL  TXL TDEV,2,**+0   CONTAINS TABLE LENGTH                          F6B00810
 DEVA      2,0,**+1      USED BY EDEV FOR MODIFYING DEVS.               F6B00820
 ARG   HTR 0                                                            F6B00830
 ENTRY HTR 0                                                            F6B00840
 ZERO  DEC 0000000000                                                   F6B00850
 ONE   DEC 0000000001                                                   F6B00860
 TWO   DEC 0000000002                                                   F6B00870
 ADDR  HTR -1                                                           F6B00880
 EIFN  HTR 0                                                            F6B00890
 L1    HTR 0                                                            F6B00900
 L2    HTR 0                                                            F6B00910
 LIFN  HTR 0                                                            F6B00920
 LCTR  HTR -206                                                         F6B00930
 LTEV  HTR 0                                                            F6B00940
 D     HTR 0                                                            F6B00950
 EA    HTR 0                                                            F6B00960
 L3    HTR 0                                                            F6B00970
 PGBK  HTR 0                                                            F6B00980
 SW1   HTR 0                                                            F6B00990
 SW2   HTR 0                                                            F6B01000
 SW3   HTR 0                                                            F6B01010
 SW4   HTR 0                                                            F6B01020
 SW5   HTR 0                                                            F6B01030
 DOLSI OCT 077777077777                                                 F6B01040
 ME2       1,0,1         ADDRESS CAN BE CHANGED TO ZERO BY ME1 IN REC.96F6B01050
       ORG 136                                                          F6B01060
 START LXA ADD5,2        SET DRUM ERROR COUNTER TO 15                   F6B01070
 ADD6  RDR 4             SELECT DRUM 4.                                 F6B01080
 ADD1  PXD               NUMBER OF                                      F6B01090
       LDA ADD1          ENTRIES IN                                     F6B01100
       CPY EIFN          EXTERNAL INTERNAL                              F6B01110
       COM               FORMULA NOS TABLE.                             F6B01120
       CPY ADD2                                                         F6B01130
       COM                                                              F6B01140
       TZE ADD3                                                         F6B01150
       TIX ADD6,2,1                                                     F6B01160
       TSX 4,4                                                          F6B01170
 ADD2  HTR 0                                                            F6B01180
 ADD3  LXD EIFN,1                                                       F6B01190
       TXI ADD4,1,1                                                     F6B01200
 ADD4  SXD EIFN,1                                                       F6B01210
       REW 2             TO                                             F6B01220
 B1    TRA BPCH1         GO SKIP BCD FILE                               F6B01230
 B2    RTB 2             POSITION TAPE TWO                              F6B01240
 CH1   CPY ERAS                                                         F6B01250
       TRA CH1           AT THE BEGINNING OF FILE FIVE.                 F6B01260
       TRA B3                                                           F6B01270
       TRA B2                                                           F6B01280
 B3    TIX B2,1,1                                                       F6B01290
       RTB 2             SELECT TAPE TWO                                F6B01300
       CPY SW1           COPY SENSE SWITCH SETTINGS                     F6B01310
       CPY SW2           I.E. FIRST RECORD OF FILE 5.                   F6B01320
       CPY SW3                                                          F6B01330
       CPY SW4                                                          F6B01340
       CPY SW5                                                          F6B01350
       REW 3                                                            F6B01360
       REW 4                                                            F6B01370
       RTT                                                              F6B01380
       NOP                                                              F6B01390
       RTB 1                                                            F6B01400
       TRA 4             TO RETURN CONTROL TO LOADER.                   F6B01410
 ERAS  HTR 0                                                            F6B01420
 FOUR  HTR 4                                                            F6B01430
 ADD5  HTR 15                                                           F6B01440
       BSS 2                                                            F6B01441
 BPCH1 RTD 2             SKIP A BCD FILE.                               F6B01442
       CPY ERAS                                                         F6B01443
       TRA *-1                                                          F6B01444
       TRA PREPR         END OF FILE                                    F6B01445
       TRA BPCH1         END OF RECORD                                  F6B01445
 PREPR LXA LOCV3,1                                                      F6B01447
       TRA B2                                                           F6B01448
 LOCV3 DEC 3                                                            F6B01449
       ORG 768                                                          F6B01450
 SOPR  BSS 12                                                           F6B01460
 SYMOP BES 160                                                          F6B01470
 ABSOP BES 160                                                          F6B01480
 TIV   BSS                                                              F6B01490
       ORG -3581                                                        F6B01500
 ECS   BES 300                                                          F6B01501
 UPPER BES 600                                                          F6B01510
 DEA   BES 900                                                          F6B01520
       ORG -1781                                                        F6B01530
 STS   BES 290                                                          F6B01540
 I     BES 300                                                          F6B01550
 L     BES 290                                                          F6B01560
 DEV   BES 900                                                          F6B01570
       WST 10,1                                                                 
       END                                                              F6B01580
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6C00010
       REM FORTRAN 2   RECORD 96  -  ASSIGN COMMON                      F6C00011
       REM                                                              F6C00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL)           F6C00013
       REM                                                              F6C00014
       RST 10,1                                                         F6C00015
 ME2   SYN 133                                                          F6C00020
       ORG 136                                                          F6C00030
       REM THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH  F6C00031
       REM OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITI0N IN   F6C00032
       REM DEV THAT THE NEW, ENTRY SHOULD HAVE.                         F6C00033
 EDEV  TXI EDEV0,2,1     SAVE POSITION FOR TEST.                        F6C00040
 EDEV0 SXD EDEV1,2                                                      F6C00050
       STO ENTRY         SAVE ITEM TO BE ENTERED                        F6C00060
       LXD DEVL,2                                                       F6C00070
       TXI EDEV2,2,1     UPDATE LENGTH OF DEV TABLE.                    F6C00080
 EDEV2 SXD DEVL,2        MUST STARTING PT OF NEXT SEARCH BE             F6C00090
 EDEV3 TXL EDEV1,2,**+0  UPDATED TO NEXT P0WER OF 2.                    F6C00100
       CAL DEVS          YES.                                           F6C00110
       ADD DEVA          UPDATE DEVS                                    F6C00120
       SLW DEVS                                                         F6C00130
       STD DEVA                                                         F6C00140
       ADD DEVA          UPDATE THE EDEV3 TEST TO NEXT                  F6C00150
       STD EDEV3         HIGHER POWER OF 2.                             F6C00160
 EDEV1 TXH EDEV4,2,*     DECREMENT CONTAINS NEW POSITION                F6C00170
       CAL ENTRY         OF ENTRY. IF TEST SHOWS THAT ENTRY             F6C00180
       SLW DEV,2         TO BE MADE ON END OF TABLE,                    F6C00190
       CLA EA            DO SO.                                         F6C00200
       STO DEA,2         ENTRY IS MADE INTO MIDDLE OF DEV.              F6C00210
       TRA 1,4           MOVE SUCCEDING ENTRIES DOWN                    F6C00220
 EDEV4 CAL DEV+1,2       UNTIL SPACE IS MADE FOR NEW ENTRY.             F6C00230
       SLW DEV,2                                                        F6C00240
       CAL DEA+1,2                                                      F6C00250
       SLW DEA,2                                                        F6C00260
       TXI EDEV1,2,-1                                                   F6C00270
       REM READ EQUIV SENTENCE FROM DRUM 1                              F6C00280
 NXT   SXD LIB20,2       SAVE XR2                                       F6C00290
       LXA LOC15,2       SET DRUM READ ERROR COUNTER                    F6C00300
 LIB21 RDR 1                                                            F6C00310
       LXA ZERO,1        SET XR1=0                                      F6C00320
       LDA ETL           TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT.  F6C00330
       PXD                                                              F6C00340
 ECC   CAD ECS-1,1       COPY VARIABLE NAME INTO ECS-1 ETC              F6C00350
       TXI ECI,1,1                                                      F6C00360
 ECI   CAD I,1           COPY ELEMENT NUMBER INTO I-1 ETC               F6C00370
       TQP ECC           TRANS. TO ECC IF STILL MORE WORDS IN SENT.     F6C00380
       REM               READ IN.                                       F6C00381
       CPY CS            CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN     F6C00390
       COM               LOGICAL CHECK SUM.                             F6C00400
       ACL CS                                                           F6C00410
       COM                                                              F6C00420
       TZE GFI           IF CHECK SUM OK, PROCEED TO GFI                F6C00430
       TIX LIB21,2,1     IF INCORRECT CHECK SUM, TRY AGAIN UNLESS       F6C00440
       TSX 4,4           ERROR COUNTER EQUALS ONE.                      F6C00450
 GFI   SXD N,1           SAVE NO. OF VARIABLE NAMES READ IN SENT.       F6C00460
       LXD LIB20,2       RESTORE XR2                                    F6C00470
       TRA 1,4           RETURN                                         F6C00480
 LIB20 HTR 0                                                            F6C00490
 LOC15 HTR 15                                                           F6C00500
       REM EQUIV SENTENCE ASSIGNMENT                                    F6C00510
 UP02  LXD N,1           N=NO. OF WORDS IN SENTENCE INTO XR1            F6C00520
       SXD IR4,4         SAVE XR4                                       F6C00530
       CLS I,1           SELECT MAX1MUM I+/LAST I/INTO AC               F6C00540
       TNX MAX,1,1       WHERE I IS NUMERIC PART OF EQUIV. COMPARE WITH F6C00550
 MIT   LDQ I,1           NEXT I                                         F6C00560
       TLQ TIN           GREATER OF THE TWO IS INTO AC.                 F6C00570
       CLA I,1                                                          F6C00580
 TIN   TIX MIT,1,1       IF MORE IS TO BE COMPARED, DECREMENT XR1       F6C00590
       REM               AND REPEAT WITH NEXT I.                        F6C00591
 MAX   SLW MAXI          STORE MAXIMUM I OF SENTENCE.                   F6C00600
       PXD               LET D=L-I, WHERE L IS LENGTH OF ARRAY          F6C00610
       STO MAXD          SET MAXD=0 WHICH CORRESPONDS TO ONE            F6C00620
       LXD N,1           WD CT. OF SENT. 1NTO XR1. OF THE WORDS IN THE  F6C00630
       REM               SENTENCE.                                      F6C00631
 LID   CLA ECS,1         BRING A WORD OF SENTENCE INTO AC.              F6C00640
       LXA VSZ,2         NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE  F6C00650
       REM               TABLE).                                        F6C00651
       TXL NSZ,2         IF NO ENTRIES IN SIZE TABLE, GO TO NSZ         F6C00660
 SSZ   CAS STS,2         OTHERWISE, COMPARE A WORD OF EQUIV SENT WITH   F6C00670
       REM               AN ARRAY NAME.                                 F6C00671
       TRA TDV                                                          F6C00680
       TRA SSF           IF EQUAL, GO TO SSF TO COMPUTE D.              F6C00690
 TDV   TIX SSZ,2,1       IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700
       REM               AGAIN TO COMPARE.                              F6C00701
 NSZ   CLA ONE           IF NO WORD IN SENTENCE IS AN ARRAY,            F6C00710
       TRA LIT           SET L=1 AND GO TO LIT TO COMPUTE D.            F6C00720
 SSF   CLA L,2           IF WORD IN SENT.=ARRAY NAME IN SIZE TABLE, CLA F6C00730
       REM               LENGTH OF THAT ARRAY.                          F6C00731
 LIT   SBM I,1           COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO F6C00740
       REM               WORD                                           F6C00741
       STO D             IN EQUIVALENCE SENTENCE.                       F6C00750
       LDQ D             COMPARE WITH MAXD AND STORE LARGER IN MAXD.    F6C00760
       CLA MAXD                                                         F6C00770
       TLQ DEN                                                          F6C00780
       STQ MAXD          GO BACK AND COMPUTE D US1NG NEW I UNTIL ALL    F6C00790
 DEN   TIX LID,1,1       IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE    F6C00800
       CLA LCTR          EXHAUSTED.                                     F6C00810
       SUB MAXI          REDUCE LOCATION COUNTER BY MAX1                F6C00820
       STO LCTR                                                         F6C00830
       LXD N,1           RESET COUNTER FOR WORDS IN EQUIV. SENTENCE.    F6C00840
 STJ   SXD J,1           SAVE CURRENT STATUS OF COUNTER IN DECR. OF J.  F6C00850
       CLA LCTR          COMPUTE ABSOLUTE LOCATION OF WORD IN SENT.,    F6C00860
       ADM I,1           AND SAVE IT IN EA                              F6C00870
       STO EA                                                           F6C00880
 DES   CLA ECS,1         CURRENT WORD OF EQUIV SENTENCE.                F6C00890
       TSX SDEV,4        SEARCH DEV TABLE                               F6C00900
       TSX EDEV,4        STORE IN DEV TABLE                             F6C00910
       TRA MJC           RETURN FROM EDEV.                              F6C00920
       SUB EA            RETURN FROM SDEV IF FOUND IN DEV TABLE. DEA    F6C00930
       TZE MJC           CORRESP. TO DEV ENTRY SHOULD EQUAL EA OR ERROR F6C00940
       TSX 4,4                                                          F6C00950
 MJC   LXD J,1           CURRENT STATUS OF EQUIV. WORD COUNTER          F6C00960
       TIX STJ,1,1       IF MORE WDS IN SENTENCE, REPEAT WITH NEXT WORD F6C00970
       CLA LCTR          AT END OF SENTENCE, REDUCE LCTR BY MAXD.       F6C00980
       SUB MAXD                                                         F6C00990
       STO LCTR                                                         F6C01000
       LXD IR4,4                                                        F6C01010
 UP03  CLA N             TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ   F6C01020
       REM               EQUIVALENCE TABLE.                             F6C01021
       ARS 17            PLUS ONE TO ALLOW FOR CHECK SUM                F6C01030
       ADD ONE           PLUS                                           F6C01040
       ADD ETL           LAST STARTING DRUM ADDRESS.                    F6C01050
       STO ETL           STORE NEW STARTING DRUM ADDRESS IN ETL.        F6C01060
       LXA ETL,1         TEST FOR END OF EQUIVALENCE TABLE.             F6C01070
 ECN   TXL UP31,1,**     WD COUNT OF EQUIV. TABLE IN DECR.              F6C01080
       TRA 2,4           IS END OF TABLE, GO TO 2,4                     F6C01090
 UP31  TRA 1,4           IF NOT END OF EQUIV TABLE, GO TO EXIT+1        F6C01100
 ETL   HTR 0                                                            F6C01110
 CS    HTR 0                                                            F6C01120
 N     HTR 0                                                            F6C01130
 MAXI  HTR 0                                                            F6C01140
 MAXD  HTR 0                                                            F6C01150
 VSZ   HTR 0             CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE.   F6C01160
 J     HTR 0                                                            F6C01170
 ETN   HTR 0                                                            F6C01180
 C1    OCT 000001000000                                                 F6C01190
 IR4   HTR 0                                                            F6C01200
       REM BUILD SYMBOL TABLE FROM COMMON                               F6C01210
       ORG 256                                                          F6C01220
 UP12  PXD 4                                                            F6C01230
       COM                                                              F6C01240
       SLW DEV           WORD OF 1S INTO DEV.                           F6C01250
       RTB 2             TO SKIP SUBDEF RECORD ON TAPE 2.               F6C01260
       LXA STP,1         SET TAPE ERROR COUNTER                         F6C01270
       TRA UP15          AND GO TO READ IN COMMON.                      F6C01280
 ERRUP BST 2             TRY TO READ RECORD AGAIN                       F6C01290
       TIX UP15,1,1      UNLESS C0UNTER REDUCED TO 1.                   F6C01300
       TSX 4,4                                                          F6C01310
 STP   HPR 5                                                            F6C01320
 UP15  RTB 2             SELECT TAPE TWO                                F6C01330
       LXD ADDR,4                                                       F6C01340
 UP16  CPY UPPER-1,4     READ IN COMMON TABLE.                          F6C01350
       TXI UP16,4,1                                                     F6C01360
       TRA EOF           END OF FILE IS ERROR HERE                      F6C01370
       ARS 255                                                          F6C01380
       ARS 255                                                          F6C01390
       RTT                                                              F6C01400
       TRA ERRUP                                                        F6C01410
       CLA UPPER-2       STORE WORD COUNT OF COMMON                     F6C01420
       SUB C1            TABLE -1 IN DECR OF UP 18                      F6C01430
       STD UP18                                                         F6C01440
       TRA DSR                    ERROR                                 F6C01450
 EOF   TSX 4,4           END OF FILE ERROR                              F6C01460
 DSR   LXA LOC15,2       SET DRUM ERROR COUNTER                         F6C01470
 LIB22 RDR 2                                                            F6C01480
       LDA DSA                    SIZE TABLE TEST                       F6C01490
 DSA   PXD 0                                                            F6C01500
       CAD VSZ           READ SIZE TABLE WORD COUNT                     F6C01510
       COM                                                              F6C01520
       CAD CS                                                           F6C01530
       COM                                                              F6C01540
       TZE DTR                                                          F6C01550
       TIX LIB22,2,1     IF DRUM READ ERROR                             F6C01560
       TSX 4,4                                                          F6C01570
 DTR   CLA VSZ                                                          F6C01580
       ARS 1             STORE NO. OF ARRAY NAMES IN SIZE               F6C01590
       STO VSZ           TABLE INTO VSZ                                 F6C01600
 DTE   LXA VSZ,1         SIZE TABLE TEST                                F6C01610
       TXL ETR,1         IF NO SIZE TABLE, GO ETR                       F6C01620
       LXA LOC15,2       IF SIZE TABLE ENTRIES, SET                     F6C01630
 LIB23 RDR 2             DRUM READ ERROR COUNT AND READ IN SIZE         F6C01640
       LDA DTA           TABLE.                                         F6C01650
 DTA   PXD 2                                                            F6C01660
 DTC   CAD STS,1         COPY ARRAY NAME INTO STS,1                     F6C01670
       CAD L,1           COPY ARRAY LENGTH INTO L,1                     F6C01680
       TIX DTC,1,1                                                      F6C01690
       CPY CS                                                           F6C01700
       COM                                                              F6C01710
       CAD CS                                                           F6C01720
       COM                                                              F6C01730
       TZE ETR           TEST CHECK SUM IF OK, GO TO ETR.               F6C01740
       TIX LIB23,2,1     CHECK SUM ERROR.                               F6C01750
       TSX 4,4                                                          F6C01760
 ETR   LXA LOC15,2                                                      F6C01770
 LIB24 RDR 1             SELECT DRUM 1. TO SEE IF ANY EQUIV. TABLE.     F6C01780
       LDA ETA           EQUIV TABLE TEST                               F6C01790
 ETA   PXD 0                                                            F6C01800
       CAD ETN           READ WORD COUNT OF EQUIV TABLE INTO ETN        F6C01810
       COM                                                              F6C01820
       CAD CS                                                           F6C01830
       COM                                                              F6C01840
       TZE ETT           IF NO ERROR, GO TO ETT.                        F6C01850
       TIX LIB24,2,1                                                    F6C01860
       TSX 4,4                                                          F6C01870
 ETT   LXD ETN,1         SET XR1 EQUAL WD. CT. OF EQUIV TABLE           F6C01880
       TXL UP01,1        IF WORD C0UNTER ZERO, TRANSFER                 F6C01890
       SXD ECN,1         IF THERE ARE ENTRIES IN EQUIV, SAVE WD. CT. IN F6C01900
       REM               ECN.                                           F6C01901
       CLA TWO                                                          F6C01910
       STO ETL           SET ETL=2                                      F6C01920
       CLA UPPER-2,      IF WORD COUNT OF COMMON TABLE                  F6C01930
       TZE UP25          EQUALS ZERO, GO TO UP 25. IF NOT 0,            F6C01940
 UP32  TSX NXT,4         READ EQUIV. SENTENCE.                          F6C01950
       TIX CH2,1,1       XR1 CONTAINS NO. OF WOROS READ BY NXT          F6C01960
 CH2   SXD UP21,1        NO. OF WORDS IN SENTENCE INTO DECR. UP 21      F6C01970
       LXD ADDR,1        SET XR1,2=0                                    F6C01980
 UP22  LXD ADDR,2                                                       F6C01990
 UP20  CLA ECS-1,1       COMPARE VARIABLE NAME FROM EQUIV SENTENCE      F6C02000
       CAS UPPER-3,2     WITH WORD IN COMMON                            F6C02010
       TRA UP17          NOT EQUAL                                      F6C02020
       TRA UP30          EQUAL. I.E, VARIABLE NAME IS IN COMMON.        F6C02030
 UP17  TXI UP18,2,1      NOT EQUAL. INCREMENT INDEX REG 2.              F6C02040
 UP18  TXH UP19,2,*      PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPAREF6C02050
       TRA UP20          OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD  F6C02060
 UP19  TXI UP21,1,1      END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070
 UP21  TXH UP33,1,*      IF ALL VARIABLE NAMES IN SENTENCE COMPARED     F6C02080
       TRA UP22          IF MORE NAMES IN SENTENCE, COMPARE NEXT WORD   F6C02090
 UP33  TSX UP03,4        MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100
       REM               TAB.                                           F6C02101
       TRA UP32          RETURN HERE IF NOT END OF EQUIV TABLE TO READ  F6C02110
       REM               NEXT SENTENCE                                  F6C02111
       TRA UP01          IF END OF EQUIV TABLE, RETURN HERE             F6C02120
 UP30  TSX UP02,4        TO ASSIGN EQUIV. SENT, WORD OF WHICH           F6C02130
       REM                APPEARS IN COMMON, TO UPPER MEMORY            F6C02131
       TRA UP32          RETURN IF NOT END OF EQUIV. TABLE              F6C02140
       TRA UP01          IF END OF EQUIV TABLE, RETURN HERE             F6C02150
       REM ASSIGN UPPER MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV.    F6C02151
 UP01  LXD ADDR,1                 ASSIGN UPPER                          F6C02160
       CLA UPPER-2       XR1 WILL CONATIN COUNT OF COMMON WDS PROCESSED.F6C02170
       TZE ME1           TRANSFER OUT TO ME1 IF N0 COMM0N TABLE.        F6C02180
       SUB C1            IF THERE IS A COMMON TABLE, DECREASE WORD CT.  F6C02190
       STD UP23          BY 1 AND STORE IN DECR. OF UP 23               F6C02200
       CLA LCTR                                                         F6C02210
       STO EA            STORE LOCATION COUNTER IN EA.                  F6C02220
 UP24  CLA UPPER-3,1     A COMMON ENTRY INTO AC.                        F6C02230
       SXD LIB1,1        SAVE COUNT.                                    F6C02240
       TSX SDEV,4        SEE IF IN DEV TABLE                            F6C02250
       TSX EDEV,4        TO ENTER COMMON SYMBOL IN DEV TABLE.           F6C02260
       TRA UP05          RETURN FROM EDEV. GO TO UP05 TO RESET LCTR     F6C02270
       LXD LIB1,1        RETURN HERE IF LOCATED COMMON WORD IN DEV TABL,F6C02280
       TRA UP06          RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNTF6C02290
       REM TO DETERMINE WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY. F6C02291
 UP05  LXA VSZ,2                  IS UPPER SYM                          F6C02300
       LXD LIB1,1                                                       F6C02310
       TXL UP07,2        TRANSFER IF NO SIZE TABLE.                     F6C02320
       CLA UPPER-3,1     COMPARE COMMON SYMBOL JUST ENTERED IN DEV TABLEF6C02330
 UP08  CAS STS,2         WITH ARRAY NAME FROM SIZE TABLE                F6C02340
       TRA UP09                                                         F6C02350
       TRA UP10          COMMON SYMBOL LOCATED FN SIZE TABLE            F6C02360
 UP09  TIX UP08,2,1      NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL    F6C02370
       REM               ARRAY NAMES                                    F6C02371
 UP07  CLS ONE           IF NOT IN SIZE TABLE, REDUCE LCTR BY ONE. I.E. F6C02380
       REM               NOT AN ARRAY.                                  F6C02381
       TRA UP11                                                         F6C02390
 UP10  CLS L,2           REDUCE LCTR BY LENGTH OF ARRAY                 F6C02400
 UP11  ADD LCTR                   REDUCE LCTR                           F6C02410
       STO LCTR                                                         F6C02420
       STO EA            STORE CURRENT LCTR IN EA.                      F6C02430
 UP06  TXI UP23,1,1      REPEAT FOR EACH COMMON ENTRY UNTIL             F6C02440
 UP23  TXH UP25,1,*      ALL ENTRIES IN COMMON TABLE ARE IN DEV         F6C02450
       TRA UP24          TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABLF6C02460
 UP25  RTB 1             GO TO LOADER                                   F6C02470
       TRA 4                                                            F6C02480
 ME1   STA ME2           STORE ZERO IN ADDRESS OF ME2 AND GO TO         F6C02490
       TRA UP25          LOADER.                                        F6C02500
 IDENT HTR 0                                                            F6C02510
 LIB1  HTR 0                                                            F6C02520
       END                                                              F6C02530
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6D00010
       REM FORTRAN 2   RECORD 98  -  EOUIV-DIMENSION.                   F6D00011
       REM                                                              F6D00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 40O (OCTAL).          F6D00013
       REM                                                              F6D00014
       RST 10,1                                                         F6D00015
       REM ENTER TRANSFER VECTOR INTO DEV TABLE                         F6D00020
 EDEV  SYN 136                                                          F6D00030
 NXT   SYN 160                                                          F6000040
 LOC15 SYN 181                                                          F6000050
 UP02  SYN 182                                                          F6D00060
 UP03  SYN 232                                                          F6D00070
 ETL   SYN 241                                                          F6D00000
 N     SYN 243                                                          F6D00090
 VSZ   SYN 246                                                          F6D00100
 J     SYN 247                                                          F6D00110
 ETN   SYN 248                                                          F6D00120
       ORG 256                                                          F6D00130
       CLA LCTR          SAVE UPPER BREAK                               F6D00140
       STO L3            IN L3                                          F6D00150
       RDR 3             SELECT DRUM 3                                  F6D00160
 A27   PXD 0                                                            F6D00170
       LDA A27           LOCATE TRANSFER VECTOR TABLE (CLOSUB)          F6D00180
       CPY UPPER-2                                                      F6D00190
       CPY UPPER-2       LOAD INDEX REG 1 WITH WORD COUNT OF            F6D00200
 A23   LXD UPPER-2,1     TRANSFER VECTOR TABLE.                         F6D00210
       TXL A28,1         IF NO TRANS VECTOR, GO TO ASSIGN EQUIV AND     F6D00220
       LXA LOC15,2       DIMENSION STORAGE.                             F6D00230
 X1    RDR 3             IF THERE IS A TRANSFER VECTOR,                 F6D00240
 A29   PXD 2             READ IT INTO UPPER -3 ETC.                     F6D00250
       LDA A29                                                          F6D00260
 A30   CAD UPPER-2,1                                                    F6D00270
       TIX A30,1,1                                                      F6D00280
       CPY SUM                                                          F6D00290
       COM                                                              F6D00300
       CAD SUM           TO TEST CHECK SUM                              F6D00310
       COM                                                              F6D00320
       TZE A25           CHECK SUM OKAY. GO TO ENTER TRANS. VECTOR INTO F6D00330
       REM               DEV TABLE,                                     F6D00331
       TIX X1,2,1        IF CHECK SUM ERROR, TRY AGAIN                  F6D00340
       TSX 4,4                                                          F6D00350
 A25   CLA UPPER-2       REDUCE WD COUNT OF TRANSFER VECTOR BY ONE      F6D00360
       SUB C2            AND STORE RESULT IN DECR OF A24.               F6D00370
       STD A24                                                          F6D00380
       LXD ADDR,1        SET COUNTER FOR WORDS PROCESSED TO ZERO.       F6D00390
       CLA L1                                                           F6D00400
 A42   STO EA            STORE PROGRAM COUNTER IN EA.                   F6D00410
       CLA UPPER-3,1     SELECT A TRANSFER VECTOR NAME.                 F6D00420
       SXD LIB1,1                                                       F6D00430
       TSX SDEV,4        TO SEE IF NAME SELECTED IS IN DEV TABLE. YES,  F6D00440
       REM               ERROR.                                         F6D00441
       TSX EDEV,4        ENTER NAME IN DEV TABLE.                       F6D00450
       TRA A40           EXIT FROM EDEV.                                F6D00460
 A41   TSX 4,4           IF NAME LOCATED IN DEV TABLE, ERROR            F6D00470
 A40   CLA L1            STORE PROGRAM COUNTER IN PROG BREAK.           F6D00480
       STO L2                                                           F6D00490
       ADD ONE           INCREASE PROGRAM COUNTER BY 1.                 F6D00500
       STO L1                                                           F6D00510
       LXD LIB1,1                                                       F6D00520
       TXI A24,1,1                                                      F6D00530
 A24   TXH A28,1,*       TRANSFER TO ASSIGN EQUIV. IF ALL TRANS VECTOR  F6D00540
       REM               NAMES ENTERED                                  F6D00541
       TRA A42                                                          F6D00550
       REM ASSIGN EQUIV AOTHERW1SE, SELECT NEST TRANS. VEC. NAME AND    F6D00560
       REM               ENTER IN DEV                                   F6D00561
 A28   BST 2             TO POSITION TAPE 2 AT BEGINNING OF SUBDEF TABL F6D00570
       BST 2                                                            F6D00580
       LXA A1,1          SET READ ERROR COUNTER                         F6D00590
       TRA A2                                                           F6000600
 A3    BST 2             READ ERROR PROCE0URE                           F6D00610
       TIX A2,1,1                                                       F6D00620
       TSX 4,4                                                          F6D00630
 A1    HPR 5             SELECT TAPE TWO                                F6D00640
 A2    RTB 2             TO READ SUB DEF, TABLE.                        F6D00650
       LXD ADDR,4        SET COUNTER=0,                                 F6D00660
 A4    CPY UPPER-1,4     ANO READ SUBDEF TABLE.                         F6D00670
       TXI A4,4,1        INTO UPPER-1, ETC,                             F6D00680
       TRA EOF1          END-OF-FILE IS ERROR HERE,                     F6D00690
       ARS 255                                                          F6D00700
       ARS 255                                                          F6D00710
       RTT                                                              F6D00720
       TRA A3            IF RTT ERROR.                                  F6D00730
       REW 2             WHEN RECORD HAS BEEN READ, REWIND TABLE-TAPE.  F6000740
       CLA ETN           ETN HAS WORD COUNT OF EQUIV. TABLE             F6D00750
       TZE DIM           IF NO EQUIV. ENTRIES, GO TO ASSIGN DIMENSION   F6D00760
       CLA TWO                                                          F6D00770
       STO ETL           STORE WD CT OF EQUIV TABLE+2 IN ETL            F6000780
 A5    TSX NXT,4         TO READ AN EQU1V SENTENCE INTO ECS-1,--, I-1,--F6000790
 A6    CLA UPPER-2       LEAVES WD CT. OF SENT. IN XR1.                 F6D00800
       SUB C2            TEST WORD COUNT OF SUBDEF TABLE.               F6D00810
       TZE ME30          IF NO ARGUMENTS, GO TO SEARCH DEV TABLE        F6000820
       TMI ME30                                                         F6D00830
       TIX CH4,1,1                                                      F6D00840
 CH4   SXD A14,1         SAVE XR1 IN DECR. OF A14                       F6D00850
       SUB C2                                                           F6000860
       STD A12                                                          F6D00870
       LXD ADDR,1                                                       F6D00880
 A8    LXD ADDR,2        SET XRS 1+2=0                                  F6D00890
 A9    CLA ECS-1,1       COMPARE A WORD OF EQUIV SENTENCE               F6D00900
       CAS UPPER-4,2     WITH LIST OF ARGUMENTS IN SUBDEF TABLE.        F6D00910
       TRA A10                                                          F6D00920
       TRA A11           IN SUB DEF TABLE, I.E. EQUIV. VARIABLE IS A SUBF6D00930
       REM               ROUTINE ARGUMENT                               F6D00931
 A10   TXI A12,2,1       INCREASE ARGUMENT COUNTER AND REPEAT COMPARISONF6000940
 A12   TXH DPCH3,2,**                                                   F6D00950
       TRA A9                                                           F6D00960
 A13   TSX SDEV,4                                                       F6D00970
       LXD SVIT,1                                                       F6D00980
       TXI A14,1,1                                                      F6D00990
       TSX UP03,4        IF WORD FOUND IN DEV SEARCH, GO TO MODIFY DRUM F6D01000
       REM               ADDRESS                                        F6D01001
       TRA A5            OF EQUIV TABLE. READ IN NEXT EQUIV. SENTENCE   F6D01010
       TRA DIM           EXIT HERE FROM UP03 IF END OF EQUIV TABLE REACHF6D01020
 ME30  CLA ECS-1         SEARCH DEV TABLE FOR AN EQUIV. NAME.           F6D01030
       TSX SDEV,4                                                       F6D01040
       TRA A7            NOT IN DEV TABLE. GO TO ASSIGN EQUIV STORAGE   F6D01050
       NOP                                                              F6D01060
       TRA A13+3         RETURNS HERE IF SEARCH SUCCESSFUL              F6D01070
 A14   TXH A7,1,*        (WD COUNT OF SENT. IN DECREMENT). TRANSF. TO A7F6D01080
       TRA A8            IF END OF EQUIV SENTENCE.                      F6D01090
 A7    TSX UP02,4        NOT SUB DEF SO NORMAL EQUIV ASSIGNMENT.        F6D01100
       TRA A5            IF NOT END OF EQUIV TABLE, GO TO READ IN NEXT  F6D01110
       REM               SENTENCE                                       F6D01111
       TRA DIM           END OF EQUIV. GO TO ASSIGN DIMENSION STORAGE   F6D01120
 A11   STZ EA            EQUIV. VARIABLE IS A SUBROUTINE ARGUMENT       F6D01130
       LXD N,1           SET COUNTER FOR NO. OF WORDS IN SENT.          F6D01140
 A21   SXD J,1           SAVE NO. OF WORDS IN EQUIV SENT.               F6D01150
       CLA ECS,1         STORE EQUIV VARIABLE IN DEV AND                F6D01160
       TSX SDEV,4        STORE LOCATION AS ZERO.                        F6D01170
       TSX EDEV,4                 EQUIV ENTRIES                         F6D01180
       TRA A22                                                          F6D01190
 A22   LXD J,1           RESTORE COUNTER FOR NO. OF WDS LEFT IN EQUIV   F6D01200
       REM               SENTENCE.                                      F6D01201
       TIX A21,1,1       IF MORE WORDS IN SENT, GO TO STORE LOCATION AS F6D01210
       REM               ZERO,                                          F6D01211
       TSX UP03,4        SENTENCE FINISHED. GO COMPUTE NEW DRUM ADD. +  F6D01220
       REM               TEST FOR END.                                  F6D01221
       TRA A5            IF NOT END OF EQUIV TABLE, REPEAT WITH NEXT    F6D01230
       REM               SENTENCE.                                      F6D01231
       TRA DIM           END OF EQUIV TABLE.                            F6D01240
       REM ADD SYMBOLS FROM DIMENSION SENTENCES                         F6D01250
 DIM   LXA VSZ,1         SET COUNTER WITH WD CT OF ARRAY NAME TABLE     F6D01260
       TXL ENDA,1        IF NO SIZE TABLE, GO TO READ LOADER            F6D01270
 SZYES TRA DPCH1                                                        F6D01280
       STD A18                                                          F6D01290
       CLA LCTR          STORE LCTR IN EA.                              F6D01300
 SEA   STO EA                                                           F6D01310
 DDS   CLA STS,1                                                        F6D01320
       SXD N,1           SAVE COUNTER FOR ARRAY NAME TABLE              F6D01330
       TSX SDEV,4        GO TO SEARCH DEV TABLE FOR ARRAY NAME          F6D01340
       TRA A15           IF NOT IN TABLE, GO SEE IF THAT ARRAY NAME IS AF6001350
       REM               SUBROUTINE ARGUMENT                            F6D01351
       NOP 0                                                            F6D01360
       LXD N,1           IF IN TABLE, GO TO NEXT ARRAY NAME SEARCH.     F6D01370
       TIX DDS,1,1                                                      F6D01380
       TRA ENDA                                                         F6D01390
 A15   SXD IR2,2         SAVE XR2                                       F6D01400
       LXD ADDR,2        SET COUNTER=0                                  F6D01410
       TRA DPCH2                                                        F6D01420
 A20   CLA STS,1         TO SEE IF ARRAY NAME IS A SUBROUTINE ARG.      F6D01430
       CAS UPPER-4,2                                                    F6D01440
       TRA A16           NOT A SUBROUTINE ARGUMENT                      F6D01450
       TRA A17           IF IT IS A SUB ARG, GO T0 A17                  F6D01460
 A16   TXI A18,2,1                                                      F6D01470
 A18   TXH A19,2,*       IF NO MORE ARGU1ENT NAMES TO COMPARE GO T0 A19.F6D01480
       TRA A20                                                          F6D01490
 A19   LXD IR2,2         ARRAY NAME NOT A SUBROUTINE ARGUMENT           F6D01500
       TSX EDEV,4        ENTER ARRAY NAME IN DEV TABLE. STORE LOCATION  F6D01510
       REM               IN DEA                                         F6D01511
 SLC   LXD N,1           RESTORE ARRAY NAME COUNTER.                    F6D01520
       CLA LCTR          SUBTRACT LENGTH OF ARRAY FROM LCTR AND STORE INF6D01530
       REM               LCTR.                                          F6D01531
       SUB L,1                                                          F6D01540
       STO LCTR                                                         F6D01550
       TIX SEA,1,1       UPDATE ARRAY NAME TABLE COUNTER AND G0 SEE IF  F6D01560
       REM               IN DEV.                                        F6D01561
       TRA ENDA                                                         F6D01570
 A17   LXD N,1           RESTORE ARRAY NAME COUNTER                     F6D01580
       CLA LCTR                                                         F6D01590
       TIX SEA,1,1       DECREMENT ARRAY NAME COUNTER                   F6D01600
       TRA ENDA          WHEN ALL ARRAY NAMES TREATED, GO TO LOADER.    F6D01610
 ENDA  BSS                                                              F6D01620
       RTB 1                                                            F6D01630
       TRA 4                                                            F6D01640
 EOF1  TSX 4,4                                                          F6D01650
 SUM   HTR 0                                                            F6D01660
 C2    OCT 000001000000                                                 F6D01670
 LIB1  HTR 0                                                            F6D01680
 IR2   HTR 0                                                            F6D01690
 DPCH1 CLA UPPER-2                                                      F6D01691
       SUB C2                                                           F6D01692
       STO HERE                                                         F6D01693
       SUB C2                                                           F6D01694
       TRA SZYES+1                                                      F6D01695
 HERE  HTR 0                                                            F6D01696
 DPCH2 LXD N,1                                                          F6D01700
       CLA HERE                                                         F6D01701
       TPL A20                                                          F6D01702
       CLA STS,1                                                        F6D01703
       TRA A19                                                          F6D01704
 DPCH3 SXD SVIT,1                                                       F6D01705
       TRA A13                                                          F6D01706
 SVIT  HTR 0                                                            F6D01707
       END                                                              F6D01708
       REM ************* FORTRAN II SECTION SIX ************************F6E00010                        
       REM FORTRAN 2   RECORD 100  -  COMMON MAPPING.                   F6E00011
       REM                                                              F6E00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL).          F6E00013
       REM                                                              F6E00014
       RST 10,1                                                         F6E00015
       REM LIST STORAGE FOR VARIABLES                                   F6E00020
       REM APPEARING IN COMMON SENTENCES,                               F6E00030
       REM LOCATIONS IN BOTH DECIMAL ANO OCTAL                          F6E00040
 ME2   SYN 133                                                          F6E00050
       ORG 136                                                          F6E00060
       REW 2             REWIND TAPE 2                                  F6E00070
 FIL   RTD 2             SPACE OVER SOURCE PROGRAM.                     F6E00080
       CPY LIN                                                          F6E00090
       TRA FIL                                                          F6E00100
       LXA ME2,1         =1 IF COMMON TABLE, =0 IF NO COMMON TABLE.     F6E00110
       TXL ENDS,1        IF NO COMMON TABLE, GO TO ENDS.                F6E00120
       LXD DEVL,1        TABLE LENGTH OF DEV.                           F6E00130
       TXL ENDS,1        IF NO DEV TABLE, GO TO ENDS                    F6E00140
       TSX SPACE,4       GO TO WRITE TITLE AND HEADINGS.                F6E00150
           TITLE,,20                                                    F6E00160
       TSX SPACE,4                                                      F6E00170
           CHEAD,,20                                                    F6E00180
 CNL   LXD LNC,2         SET TAPE 2 BLOCK LENGTH TO 20                  F6E00190
 CNW   CLA DEA,1         TEST FOR COMMON,                               F6E00200
       SUB L3            I.E. SEE IF LOCATION OF SYMBOL IS IN RANGE OF  F6E00210
       REM               COMMON                                         F6E00211
       TZE B4            NOT IN C0MMON.                                 F6E00220
       TMI B4            NOT IN COMMON.                                 F6E00230
       CAL BLANKS        YES, IN COMMON.                                F6E00240
       SLW LIN+1,2       STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY.     F6E00250
       SLW LIN+2,2                                                      F6E00260
       LDQ DEV,1         SELECT SYMBOL AND                              F6E00270
       LXA SIX,4         CONVERT.                                       F6E00280
 SIX   LGL 6             BRING ONE CHARACTER OF SYMBOL INTO AC.         F6E00290
       SLW SYM                                                          F6E00300
       ANA 6BITS         TEST IF CHARACTER IN AC IS A BLANK.            F6E00310
       SUB BLANK                                                        F6E00320
       TZE CNA           YES, THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND  F6E00330
       REM               WORD OF ENTRY.                                 F6E00331
       CAL SYM                                                          F6E00340
       SLW LIN+2,2                                                      F6E00350
       TIX SIX,4,1                                                      F6E00360
 CNA   CLA DEA,1         T0 GET BCD IMAGE OF DECIMAL LOCATION.          F6E00370
       STA LOC                                                          F6E00380
       LXA ONE,4                                                        F6E00390
       LDQ LOC                                                          F6E00400
 CNV   CLA TEN                                                          F6E00410
       TLQ FIN                                                          F6E00420
       PXD               REMAINDERS STORED IN DIG-1,... THAT IS, IF 205 F6E00430
       REM               (OCTAL)                                        F6E00431
       DVP TEN           WERE THE NUMBER IN LOC, WE GET A BINARY 3 IN   F6E00440
       REM                DIG-1, ...                                    F6E00441
       SLW DIG,4         3 IN DIG-2, IN DIG-3                           F6E00450
       TXI CNV,4,1                                                      F6E00460
 FIN   STQ DIG,4                                                        F6E00470
       CAL BLANKS                                                       F6E00480
 DEC   ALS 6                                                            F6E00490
       ORA DIG,4         SET UP BCD IMAGE OF DEC. NO. AS 3 BLANKS,1,3,3.F6E00500
       TIX DEC,4,1                                                      F6E00510
       SLW LIN+3,2       STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY.   F6E00520
       CLA LOC                                                          F6E00530
       LRS 15                                                           F6E00540
       CAL BLANK                                                        F6E00550
       TNO OCT                                                          F6E00560
 OCT   ALS 3             TO SET UP BCD IMAGE OF OCTAL LOCATION          F6E00570
       LLS 3             THE TRANSFER IS ON NO OVERFLOW SINCE WHEN ALL  F6E00580
       TNO OCT           15 BITS OF LOC HAVE BEEN CONVERTED, A BIT FROM F6E00590
       REM               REMAINING BLANK WILL ENTER P POSITION OF ACC.  F6E00591
       SLW LIN+4,2       STORE OCTAL LOCATION IN 4TH WORD OF ENTRY      F6E00600
       TNX NT2,1,1       GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE      F6E00610
       TIX CNW,2,4       IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORDF6E00620
       REM               REPEAT                                         F6E00621
       TSX WRITE,4                                                      F6E00630
 LNC       LIN+1,,20                                                    F6E00640
       TRA CNL                                                          F6E00650
 B4    TNX WLL,1,1       IF NO MORE WORDS IN DEV TABLE, GO TO WLL.      F6E00660
       TRA CNW                                                          F6E00670
 SPACE WTD 2                                                            F6E00680
       CPY BLANKS        WRITE A BLANK RECORD TO PROVIDE A SPACE.       F6E00690
 WRITE WTD 2                                                            F6E00700
       CLA 1,4           TO SET INITIAL LOCATION AND NO. OF WORDS TO BE F6E00710
       REM               WRITTEN.                                       F6E00711
       STA POOP                                                         F6E00720
       PDX 0,2                                                          F6E00730
 POOP  CPY *,2                                                          F6E00740
       TIX POOP,2,1                                                     F6E00750
       IOD                                                              F6E00760
       TRA 2,4           ALL WORDS IN RECORD WRITTEN. RETURN T0 PROGRAM F6E00770
 WLL   TXI NT2,2,4                                                      F6E00780
 NT2   PXD 0,2           STORE IN LND ADDRESS                           F6E00790
       STO LND           AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD  F6E00800
       REM               OF TTAPE,2.                                    F6E00801
       ARS 18            SUBTRACT THIS FROM LNE                         F6E00810
       STA LND           TO GET ADDRESS AND                             F6E00820
       CLA LNE           DECREMENT FOR WRITING                          F6E00830
       SUB LND           FINAL RECORD                                   F6E00840
       STO LND                                                          F6E00850
       TSX WRITE,4                                                      F6E00860
 LND                                                                    F6E00870
 ENDS  BSS                                                              F6E00880
       STZ EA            SET EA=0                                       F6E00890
       TRA 4             AND GO TO LOADER                               F6E00900
 LNE       LIN+5,,24                                                    F6E00910
       BSS 40                                                           F6E00920
BLANKS BCD 1                                                            F6E00930
 BLANK BCD 100000                                                       F6E00940
 6BITS OCT 77                                                           F6E00950
 TEN   DEC 10                                                           F6E00960
 LOC   DEC 0                                                            F6E00970
       BCD 4                                                            F6E00980
       BCD 6 STORAGE FOR VARIABLES APPEARING IN                         F6E00990
       BCD  COMMON SENTENCES                                            F6E01000
 TITLE BSS                                                              F6E01010
       BCD                DEC   OCT               DEC   OCT             F6E01020
       BCD    DEC   OCT               DEC   OCT               DEC   OCT F6E01030
 CHEAD BSS                                                              F6E01040
       BSS 19                                                           F6E01050
 LIN   BSS 1                                                            F6E01060
 DIG   BES 6                                                            F6E01070
 SYM   BSS 1                                                            F6E01080
       END START                                                        F6E01090
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6F00010
       REM FORTRAN 2   RECORD 101  -  FORTRAN FUNCTION ASSN             F6F00011
       REM                                                              F6F00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 210.                  F6F00013
       REM                                                              F6F00014
       RST 10,1                                                         F6F00015
       REM ENTER FORTRAN FUNCTION NAMES IN TDEV                         F6F00020
       ORG 136                                                          F6F00030
       LXD DEVS,1                                                       F6F00040
 GO    TXL IFMT,1                                                       F6F00050
       CLA DEVA          IF PREVIOUS ENTRIES, UPDATE DECREMENT OF EDEV3 F6F00060
       ADD DEVA          WHICH WILL CONTAIN THE MAX. POWER OF 2 EX-     F6F00070
       STD EDEV3         PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES      F6F00080
 IFMT  BSS                                                              F6F00090
       TRA FPCH1                                                        F6F00100
 LIB24 RDR 3             SELECT DRUM 3.                                 F6F00110
 NFA   PXD 1024                   TABLE FROM                            F6F00120
       STO LIBD          SET LIBD EQUAL TO ZERO.                        F6F00130
       LDA NFA           LOCATE FORSUB (FORTRAN FUNCTION) TABLE.        F6F00140
       CAD FORT          TO READ WORD COUNT OF FORSUB TABLE, SAVE IT IN F6F00150
       COM               FORT AND                                       F6F00160
       CAD SUM           CHECK.                                         F6F00170
       COM                                                              F6F00180
       TZE RFS                                                          F6F00190
       TIX LIB24,4,1     IF DRUM READ ERROR,                            F6F00200
       TSX 4,4                                                          F6F00210
 RFS   LXD FORT,3        TEST IF ANY FORTRAN FUNCTIONS.                 F6F00220
       TXL RDRM,2        IF NOT, GO TO RETURN TO LOADER.                F6F00230
       LXA LOC15,4       IF YES, SET DRUM READ ERROR COUNTER            F6F00240
 LIB25 RDR 3             AND READ FORSUB TABLE                          F6F00250
 TFA   PXD 1026          INTO FORT-WDCT THRU FORT-1.                    F6F00260
       LDA TFA                                                          F6F00270
 CFS   CAD FORT,2                                                       F6F00280
       TIX CFS,2,1                                                      F6F00290
       CPY SUM                                                          F6F00300
       COM                                                              F6F00310
       CAD SUM                                                          F6F00320
       COM                                                              F6F00330
       TZE FORS          CHECK SUM OKAY.                                F6F00340
       TIX LIB25,4,1     IF CHECK SUM ERROR, REPEAT                     F6F00350
       TSX 4,4                                                          F6F00360
 FORS  SXD FORM,1        SAVE WD COUNTER IN DECREMENT OF FORM.          F6F00370
       CLA FORT,1        SELECT FUNCTION SYMBOL, ANO GO TO              F6F00380
       TSX SDEV,4                 DEV TABLE                             F6F00390
       TSX EDEV,4        IF NOT IN TABLE, GO TO ENTER IT WITH LOCATION  F6F00400
       TXI FORE          ZERO, AND TRANSFER TO FORE.                    F6F00410
       LXD FORM,1        RETURN HERE IF SYMBOL WAS FOUND IN DEV.        F6F00420
       CLA FORT,1        ENTER SYMBOL                                   F6F00430
       LXD LIBD,2        IN LIBP TABLE.                                 F6F00440
       TXI FORD,2,1                                                     F6F00450
 FORD  STO LIBP,2                                                       F6F00460
       SXD LIBD,2                                                       F6F00470
       TIX FORS,1,2      END OF FORSUB TABLE. NO, GO TO SELECT NEXT     F6F00480
       REM               FUNCTION SYMBOL                                F6F00481
 FORM  TXI RDRM          YES, GO TO LOADER.                             F6F00490
 FORE  LXD FORM,1        RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLEF6F00500
       TIX FORS,1,2      NO, DECREMENT COUNTER AND GO TO READ NEXT      F6F00510
       REM               FUNCTION SYMBOL                                F6F00511
 RDRM  RTB 1             YES, GO TO LOADER                              F6F00520
       TRA 4                                                            F6F00530
 EDEV  TXI EDEV0,2,1     FOR COMMENTS, SEE RECORD 96.                   F6F00540
 EDEV0 SXD EDEV1,2                                                      F6F00550
       STO ENTRY                                                        F6F00560
       LXD DEVL,2                                                       F6F00570
       TXI EDEV2,2,1                                                    F6F00580
 EDEV2 SXD DEVL,2                                                       F6F00590
 EDEV3 TXL EDEV1,2,**+0                                                 F6F00600
       CAL DEVS                                                         F6F00610
       ADD DEVA                                                         F6F00620
       SLW DEVS                                                         F6F00630
       STD DEVA                                                         F6F00640
       ADD DEVA                                                         F6F00650
       STD EDEV3                                                        F6F00660
 EDEV1 TXH EDEV4,2,**                                                   F6F00670
       CAL ENTRY                                                        F6F00680
       SLW DEV,2                                                        F6F00690
       CLA EA                                                           F6F00700
       SLW DEA,2                                                        F6F00710
       TRA 1,4                                                          F6F00720
 EDEV4 CAL DEV+1,2       M0VE TABLE                                     F6F00730
       SLW DEV,2         ENTRIES.                                       F6F00740
       CAL DEA+1,2                                                      F6F00750
       SLW DEA,2                                                        F6F00760
       TXI EDEV1,2,-1                                                   F6F00770
 LOC15 HPR 15                                                           F6F00780
 MI1   PZE -1                                                           F6F00781
 DCR1  OCT 1000000                                                      F6F00782
 SAV   HTR 0                                                            F6F00783
 FPCH1 CLA UPPER-2       WORD COUNT OF SUBDEF TABLE.                    F6F00784
       SUB DCR1                                                         F6F00785
       TZE GOHD+1        NO ARGUMENTS.                                  F6F00786
       TMI GOHD+1        NO ARGUMENTS.                                  F6F00787
       STD ETST          ARGUMENTS TO ENTER IN DEV.                     F6F00788
       LXD DCR1,1                                                       F6F00789
       CLA MI1                                                          F6F00790
       STO EA            SET EA TO ALL 7 S.                             F6F00791
 GOFIX SXD SAV,1                                                        F6F00792
       CLA UPPER-3,1     SELECT ARGUMENT.                               F6F00793
       TSX SDEV,4        GO SEARCH DEV FOR IT.                          F6F00794
       TSX EDEV,4        NOT IN SO ENTER IN DEV                         F6F00795
       TRA *+3           AND TRANSFER.                                  F6F00796
       CLA EA            ALREADY IN DEV. ENTER                          F6F00797
       STO DEA,2         LOCATION AS ALL 7S.                            F6F00798
       LXD SAV,1                                                        F6F00799
       TXI *+1,1,1                                                      F6F00800
 ETST  TXH GOHD,1,**     TEST FOR ANY MORE ARGS.                        F6F00801
       TRA GOFIX                                                        F6F00802
 GOHD  STZ EA            RESET EA TO ZERO.                              F6F00803
 RNF   LXA LOC15,4       SET DRUM READ ERROR COUNTER                    F6F00804
       TRA LIB24                                                        F6F00805
       BSS 15                                                           F6F00806
 SUM                                                                    F6F00807
 LIBD                                                                   F6F00810
 LIBP  BES 100                                                          F6F00820
 FORT  BES 100                                                          F6F00830
       END START                                                        F6F00840
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6G00010
       REM FORTRAN 2   RECORD 103  -  FIRST PASS OF CIT TAPE.           F6G00011
       REM                                                              F6G00012
       REM CONTROL ENTERS THIS RECORD AT LOCATION 210.                  F6G00013
       REM                                                              F6G00014
       RST 10,1                                                         F6G00015
       REM INITIALIZE FIRST TAPE PASS                                   F6G00020
       ORG 136                                                          F6G00030
 MDEA  LXD DEVL,1        COMPUTE NUMBER OF                              F6G00040
 LDEA  PXD DEA,1         ENTRIES IN DEV                                 F6G00050
       ARS 18            TABLE.                                         F6G00060
       STO D             COMPUTE ADDRESS OF                             F6G00070
       SBM TDEV          DEA TABLE TO MOVE                              F6G00080
       STA ADEV          IT TO END OF                                   F6G00090
       STA LIFN          DEV TABLE.                                     F6G00100
       TRA GPCH1                                                        F6G00110
 RETN  TXL PREP,1            TEST FOR NO ENTRIES IN DEV.                F6G00120
       STA MDAS          YES.                                           F6G00130
 MDAL  CLA DEA,1         MOVE LOCATIONS TO                              F6G00140
 MDAS  STO *,1           END OF DEV TABLE.                              F6G00150
       TIX MDAL,1,1                                                     F6G00160
 PREP  CLA EIFN          COMPUTE ADDRESS FOR                            F6G00170
       ARS 18            TEV TABLE                                      F6G00180
       LDQ D             WILL FOLLOW THE MOVED                          F6G00190
       TLQ MVIF          DEA TABLE                                      F6G00200
       CLA D             ALLOWS FOR IFN                                 F6G00210
       ADD ONE           TABLE TO BE STORED                             F6G00220
 MVIF  SBM ADEV          IN DECREMENT OF DEA                            F6G00230
       STA ETEV5         TABLE HENCE IF IFN IS                          F6G00240
       STA ETEV6         LONGER THAN DEA IFN                            F6G00250
       STA ETEV7         LENGTH IS USED IN                              F6G00260
       STA TTEV          COMPUTING ADDRESS OF                           F6G00270
       SBM ONE           TEV TABLE                                      F6G00280
       STA ETEV4                                                        F6G00290
       PXD                        STORE ONES IN                         F6G00300
       STZ L1            SET PROGRAM BREAK=0                            F6G00310
       STZ L2            SET PROGRAM COUNTER=0                          F6G00320
       COM               SOTRE ONES IN TEV AND TIV                      F6G00330
 ETEV7 SLW TEV           TABLES INITIAL                                 F6G00340
       STO TIV           ENTRIES.                                       F6G00350
       SLW TIV+1                                                        F6G00360
       LXA RDC,2         SET READ ERROR COUNTER AND                     F6G00370
       TRA RD            GO TO READ CITS FROM TAPE 4                    F6G00380
 ERR   BST 4                                                            F6G00390
       TIX RD,2,1                                                       F6G00400
       TSX 4,4                                                          F6G00410
 RDC   HPR 5                                                            F6G00420
 RD    RTB 4             READ CIT RECORD FROM TAPE 4.                   F6G00430
       LXA ADDR,4        COUNTER SET=-1                                 F6G00440
 RD1   CPY REC-2,4       COPY CIT RECORD INTO REC-1,-2,                 F6G00450
       TXI RD1,4,1                                                      F6G00460
       TRA EOF           IF END-OF-FILE REACHED ON TAPE 4.              F6G00470
       ARS 255                                                          F6G00480
       ARS 255                                                          F6G00490
       RTT                                                              F6G00500
       TRA ERR                                                          F6G00510
       SXD RD2,4         STORE COUNT OF CIT IN RD2 DECR.                F6G00520
       LXD ADDR,4        SET WORD COUNTER=0                             F6G00530
 RD4   SXD RD3,4         SAVE IT IN DECREMENT OF RD3                    F6G00540
       CLA REC-1,4       SELECT FROM REC                                F6G00550
       STO SL            SYMBOLIC LOCATION                              F6G00560
       CLA REC-2,4                                                      F6G00570
       STO OP            SYMBOLIC OP, BINARY DEC                        F6G00580
       CLA REC-3,4                                                      F6G00590
       STO SA            SYMBOLIC ADDRESS                               F6G00600
       CLA REC-4,4       RELATIVE ADDRESS, TAG                          F6G00610
       STO RA            SET EA TO ZERO.                                F6G00620
       PXD                        SET EA TO ZERO                        F6G00630
       STO EA                                                           F6G00640
       CAL OP            SELECT SYMBOLIC OP.                            F6G00650
       LRS 18            IS OP=OCT.                                     F6G00660
       CAS OCT                                                          F6G00670
       TRA SA1           GO TO SA1 SINCE OP IS NEITHER OCT NOR BCD.     F6G00680
       TRA ORDOP         YES, OP IS OCTAL. GO TO ORDOP                  F6G00690
       CAS BCD           IS OP BCD.                                     F6G00700
       TRA SA1           OP IS NEITHER OCT NOR BCD.                     F6G00710
       TRA ORDOP         YES, OP IS BCD. GO TO ORDOP                    F6G00720
 SA1   CAL SA            IF OP NOT BCD OR OCT SELECT SYMBOLIC ADDRESS   F6G00730
       TZE SA2           SA EQUAL ZERO. GO TO SA2 TO SET EA=0           F6G00740
       LRS 30            TEST SA(1), I.E., FIRST 6-BIT CHARACTER OF SA  F6G00750
       PAX 0,4           TO DETERMINE THE TYPE OF SYMBOL IT IS.         F6G00760
       TXH SA4,4,15      TRANSFER IF FIRST CHAR. IS GREATER THAN 15.    F6G00770
       TRA SAT,4                                                        F6G00780
       TRA SA8           SA(1) EQUAL FIFTEEN                            F6G00790
       TRA SA6           SA(1) EQUAL FOURTEEN                           F6G00800
       TRA SA6           SA(1) EQUAL THIRTEEN                           F6G00810
       TRA SA9           SA(1) EQUAL TWELVE                             F6G00820
       TRA SA5           SA(1) EQUAL ELEVEN                             F6G00830
       TRA SA6           SA(1) EQUAL TEN                                F6G00840
       TRA SA5           SA(1) EQUAL NINE                               F6G00850
       TRA SA6           SA(1) EQUAL EIGHT                              F6G00860
       TRA SA9           SA(1) EQUAL SEVEN                              F6G00870
       TRA SA5           SA(1) EQUAL SIX                                F6G00880
       TRA SA9           SA(1) EQUAL FIVE                               F6G00890
       TRA SA9           SA(1) EQUAL FOUR                               F6G00900
       TRA SA5           SA(1) EQUAL THREE                              F6G00910
       TRA SA5           SA(1) EQUAL TWO                                F6G00920
       TRA SA9           SA(1) EQUAL ONE                                F6G00930
 SAT   TRA SA3           SAI1) EQUAL ZERO                               F6G00940
 SA9   RQL 14            TAG CELL(12), ARITH ERASE(1),                  F6G00950
       LGL 17            FUNCT ERASE(7), LIB(4),                        F6G00960
       TSX STIV,4        ASSIGN CONSTANTS(5). ASSEMBLE SYmBOL AND       F6G00970
       TSX ETIV,4        PUT IN TIV TABLE WHERE A TIV TABLE ENTRY       F6G00980
       STA TRV           HAS SYMBOL IN S-21 AND HAS LOCATION IN 22-35.  F6G00990
       LDQ TRV                                                          F6G01000
       CLA RA                                                           F6G01010
       SSM               SELECT RA AS LENGTH                            F6G01020
       ARS 18            TO STORE AS ADDRESS                            F6G01030
       TLQ SA5           OF TIV ENTRY IF RA                             F6G01040
       STA TIV,2         IS LONGER                                      F6G01050
       TRA SA5                                                          F6G01060
 SA6   RQL 14            FORMAT(8)                                      F6G01070
       LGL 17                                                           F6G01080
 SA7   TSX STIV,4        PUT IN TIV TABLE                               F6G01090
       TSX ETIV,4        IF NOT IN ALREADY.                             F6G01100
       TRA SA2           TRANSFER WITH SA IN AC TO STORE ADDRESS OF SA  F6G01110
       REM               IN EA.                                         F6G01111
 SA4   CLA SA            SA(1) GREATER THAN 15.                         F6G01120
       SUB DOL1          TRANSFER IF ONE DOLLAR SIGN                    F6G01130
       TZE LIB3                                                         F6G01140
       ADD DOL1                                                         F6G01150
       SUB DOL2          TRANSFER IF TWO DOLLAR SIGNS                   F6G01160
       TZE LIB4                                                         F6G01170
       CLA SA            ORDINARY SYMBOL.                               F6G01180
       TSX SDEV,4        SEARCH DEV TABLE.                              F6G01190
       TSX STEV,4        NOT IN. GO TO SEARCH TEV TABLE.                F6G01200
       TSX ETEV,4        NOT IN. ENTER IN TEV.                          F6G01210
       TRA SA2           IF FOUND IN DEV OR TEV, LOCATION LEFT IN AC +  F6G01220
       REM               GO TO STA                                      F6G01221
 LIB3  CLA DOLSI         SET LOCATION EQUAL TO ADDR. PART OF DOLSI      F6G01230
       TRA SA2                                                          F6G01240
 LIB4  CLA DOLSI                                                        F6G01250
       ARS 18                                                           F6G01260
       TRA SA2                                                          F6G01270
 SA3   LXA SA,4          NORMAL INST(0)                                 F6G01280
       TXL SA5,4,0       TRANSFER IF IFN TYPE.                          F6G01290
       LGL 13            ADDRESS PART NOT EQUAL ZERO, PUT ADDRESS PART  F6G01300
       RQL 10            OF SA IN SYMBOL AND STORE IN TIV.              F6G01310
       LGL 6                                                            F6G01320
       TRA SA7                                                          F6G01330
 SA8   CLA L1            PROG COUNTE(I15)                               F6G01340
 SA2   STA EA            STORE IN EA ADDRESS LEFT IN AC FROM 1 OF ABOVE,F6G01350
 SA5   BSS               CONSTANTS2,3,6,9,11                            F6G01360
 OPCAS CAL OP                                                           F6G01370
       LRS 18            IS OP BSS OR SYN.                              F6G01380
       CAS SYN                    SYN OP                                F6G01390
       TRA ORDOP         NEITHER                                        F6G01400
       TRA SYNOP         OP IS SYN. GO TO SYNOP                         F6G01410
       CAS BSS                                                          F6G01420
       TRA ORDOP         OP IS NEITHER BSS OR SYN                       F6G01430
       TRA BSSOP         0P IS BSS. GO TO BSSOP.                        F6G01440
 ORDOP CLA L1            OP NOT SYN OR BSS.                             F6G01450
       STO L2                                                           F6G01460
       ADD ONE           UPDATE L1 BY 1.                                F6G01470
       STO L1                                                           F6G01480
       TRA SLS                                                          F6G01490
 BSSOP CLA L1            FOR BSS OP,                                    F6G01500
       STO L2                                                           F6G01510
       CLA RA            UPDATE L1 BY                                   F6G01520
       ARS 18            RELATIVE ADDRESS.                              F6G01530
       ADD L1                                                           F6G01540
       STO L1                                                           F6G01550
       TRA SLS                                                          F6G01560
 SYNOP CLA EA            FOR SYN OP,                                    F6G01570
       STO L2            SET L2 EQUAL                                   F6G01580
       TNZ SLS           TO SYN ADDRESS.                                F6G01590
       TSX 4,4                                                          F6G01600
 SLS   CAL SL            FOR ALL OPS TEST SYMBOLIC LOCATION.            F6G01610
       TZE SL6           SL ZERO.                                       F6G01620
       LRS 30                                                           F6G01630
       TZE SL1           SL(1) ZERO. TRANFER.                           F6G01640
       PAX 0,4                                                          F6G01650
       TXH SL2,4,15      SL(1) OVER 15                                  F6G01660
       TXH SL3,4,14      SL(1) EQUAL 15                                 F6G01670
       RQL 14            SL(1) LESS 15                                  F6G01680
       LGL 17                                                           F6G01690
       TSX STIV,4        IS SYMBOL IN TIV.                              F6G01700
       TRA SL5           NO.                                            F6G01710
 SL8   CLA L2            YES, PUT L2 AS LOCATION                        F6G01720
       STA TIV,2         IN TIV TABLE.                                  F6G01730
       TRA SL6                                                          F6G01740
 SL5   CLA L2            PUT L2 IN AS                                   F6G01750
       STA ENTRY         LOCATION AND STORE                             F6G01760
       TSX ETIV,4        SYMBOL AND LOCATION                            F6G01770
       TRA SL6           IN TIV TABLE.                                  F6G01780
 SL1   LXA SL,4          SL(1) EQUAL ZERO.                              F6G01790
       TXL SL7,4         TRANSFER IF IFN TYPE.                          F6G01800
       LGL 13            OTHERWISE, ASSEMBLE SYMBOL.                    F6G01810
       RQL 10                                                           F6G01820
       LGL 6             IS SYM IN TIV TABLE.                           F6G01830
       TSX STIV,4        NO                                             F6G01840
       TRA SL6                    YES                                   F6G01850
       TRA SL8           YES. GO TO STORE L2 AS LOCATION IN TIV TABLE   F6G01860
 SL2   CLA SL                                                           F6G01870
       SUB DOL1                                                         F6G01880
       TZE LIB1          EXIT TO LIB1 IF SL EQUAL DOL1 ($ 0000)         F6G01890
       ADD DOL1                                                         F6G01900
       SUB DOL2                                                         F6G01910
       TZE LIB2          EXIT TO LIB2 IF SL EQUAL DOL2 ($$ 000)         F6G01920
       TRA SL6                                                          F6G01930
 LIB1  CLA L2            STORE L2 IN ADDRESS OF DOLSI.                  F6G01940
       STA DOLSI                                                        F6G01950
       TRA SL6                                                          F6G01960
 LIB2  CLA L2            STORE L2 IN DECREMENT OF DOLSI                 F6G01970
       ALS 18                                                           F6G01980
       STD DOLSI                                                        F6G01990
       TRA SL6                                                          F6G02000
 SL7   LXD SL,4          STORE LOCATION                                 F6G02010
       CLA L2            OF INTERNAL FORMULA                            F6G02020
       ALS 18            NUMBER AS L2,                                  F6G02030
 SL9   STD IFN,4                                                        F6G02040
 SL3   BSS               SL(1) EQUAL 15                                 F6G02050
 SL6   BSS                                                              F6G02060
       LXD RD3,4                                                        F6G02070
       TXI RD2,4,4                                                      F6G02080
 RD2   TXL RD4,4,**                                                     F6G02090
       LXA RDC,2                                                        F6G02100
 RD3   TXI RD,0,**                                                      F6G02110
 EOF   LXD TEVL,1        AT END OF CIT TAPE.                            F6G02120
       TXL DIVL,1        ANY ENTRIES IN TEV TABLE. IF NOT GO TO DIVL.   F6G02130
       PXD 0,1           YES.                                           F6G02140
       ARS 18            REDUCE LCTR BY NUMBER                          F6G02150
       SUB LCTR          OF ENTRIES IN TEV AND                          F6G02160
       SLW LCTR          STORE IN LTEV.                                 F6G02170
       SLW LTEV                                                         F6G02180
 DIVL  LXD TIVL,2        ANY ENTRIES IN TIV TABLE.                      F6G02190
       TXI SIVL,2,1                                                     F6G02200
 SIVL  TXL DONE,2        NO ENTRIES IN TIV, GO TO DONE.                 F6G02210
       CAL TIV,2         YES, OBTAIN LENGTH                             F6G02220
       STA D             FROM TIV TABLE.                                F6G02230
       ARS 14                                                           F6G02240
       PDX 0,1                                                          F6G02250
       TRA TYPE,1                                                       F6G02260
       TRA SIVT          15                                             F6G02270
       TRA SIVT          14                                             F6G02280
       TRA SIVT          13                                             F6G02290
       TRA CIVL          12                                             F6G02300
       TRA SIVT          11                                             F6G02310
       TRA SIVT          10                                             F6G02320
       TRA SIVT          9                                              F6G02330
       TRA SIVT          8                                              F6G02340
       TRA CIVL          7                                              F6G02350
       TRA SIVT          6                                              F6G02360
       TRA SIVT          5                                              F6G02370
 GIVL  TXI EIVL          4                                              F6G02380
       TRA SIVT          3                                              F6G02390
       TRA SIVT          2                                              F6G02400
       TRA CIVL          1                                              F6G02410
 TYPE  TRA SIVT          0                                              F6G02420
 EIVL  ARS 1                      TYPE4                                 F6G02430
       ALS 21            IF DECR. EQUAL ZERO, GO TO SAVE INDEX.         F6G02440
       TZE FIVL          TYPE1,7,12                                     F6G02450
 CIVL  CLA LCTR                   TYPE1,7,12                            F6G02460
       SUB D             REDUCE LCTR BY LENGTH                          F6G02470
       STA TIV,2         STORE AS LOCATION IN TIV.                      F6G02480
       SUB ONE           MODIFY LOCATION COUNTER.                       F6G02490
       STO LCTR                                                         F6G02500
 SIVT  TXI SIVL,2,1      MODIFY TO SELECT NEXT SYMBOL                   F6G02510
 FIVL  SXD GIVL,2                                                       F6G02520
       TXI SIVL,2,1                                                     F6G02530
 DONE  LXD GIVL,2        LOCATION OF 4)0                                F6G02540
       CLM               STORE ALL 7 S IN ADDRESS PART                  F6G02550
       COM               OF 4) TIV ENTRY AND                            F6G02560
       STA TIV,2         RETURN                                         F6G02570
       RTB 1             TO                                             F6G02580
       TRA 4             LOADER.                                        F6G02590
 ETEV  TXI ETEV0,2,1                                                    F6G02600
 ETEV0 SXD ETEV1,2                                                      F6G02610
       STO ENTRY                                                        F6G02620
       LXD TEVL,2                                                       F6G02630
       TXI ETEV2,2,1                                                    F6G02640
 ETEV2 SXD TEVL,2                                                       F6G02650
 ETEV3 TXL ETEV1,2,**+0                                                 F6G02660
       CAL TEVS                                                         F6G02670
       ADD TEVA                                                         F6G02680
       SLW TEVS                                                         F6G02690
       STD TEVA                                                         F6G02700
       ADD TEVA                                                         F6G02710
       STD ETEV3                                                        F6G02720
 ETEV1 TXH ETEV4,2,*                                                    F6G02730
       CAL ENTRY                                                        F6G02740
 ETEV5 SLW TEV,2                                                        F6G02750
       TRA 1,4                                                          F6G02760
 ETEV4 CAL TEV+1,2                                                      F6G02770
 ETEV6 SLW TEV,2                                                        F6G02780
       TXI ETEV1,2,-1                                                   F6G02790
 TEVA      2,0,**+1                                                     F6G02800
 ETIV  TXI ETIV5,2,-1                                                   F6G02810
 ETIV5 SXD ETIV1,2                                                      F6G02820
       LXD TIVL,2                                                       F6G02830
       TXI ETIV2,2,-1                                                   F6G02840
 ETIV2 SXD TIVL,2                                                       F6G02850
       TXI ETIV3,2,1                                                    F6G02860
 ETIV3 TXH ETIV1,2,**-2                                                 F6G02870
       CAL TIVS                                                         F6G02880
       ADD TIVA                                                         F6G02890
       SLW TIVS                                                         F6G02900
       STD TIVA                                                         F6G02910
       ADD TIVA                                                         F6G02920
       STD ETIV3                                                        F6G02930
 ETIV1 TXL ETIV4,2,*                                                    F6G02940
       CAL ENTRY                                                        F6G02950
       SLW TIV,2                                                        F6G02960
       TRA 1,4                                                          F6G02970
 ETIV4 CAL TIV-1,2                                                      F6G02980
       SLW TIV,2                                                        F6G02990
       TXI ETIV1,2,1                                                    F6G03000
 TIVA      2,0,**-1                                                     F6G03010
 SYN   BCD 1000SYN                                                      F6G03020
 OCT   BCD 1000OCT                                                      F6G03030
 BSS   BCD 1000BSS                                                      F6G03040
 BCD   BCD 1000BCD                                                      F6G03050
 TRV   MZE                                                              F6G03060
 SL    HTR 0                                                            F6G03070
 OP    HTR 0                                                            F6G03080
 SA    HTR 0                                                            F6G03090
 RA    HTR 0                                                            F6G03100
 DOL1  BCD 1$ 0000                                                      F6G03110
 DOL2  BCD 1$$ 000                                                      F6G03120
 GPCH1 STA SL9                                                          F6G03121
       STA *+2                                                          F6G03122
       LXD EIFN,2                                                       F6G03123
       STZ IFN,2                                                        F6G03124
       TIX *-1,2,1                                                      F6G03125
       TRA RETN                                                         F6G03126
       BSS 34                                                           F6G03130
 REC   BES 100                                                          F6G03140
       END START                                                        F6G03150
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6H00010
       REM FORTRAN 2   RECORD 105  -  MAP FORTRAN FUNCTIONS.            F6H00011
       REM                                                              F6H00012
       RST 10,1                                                         F6H00013
       REM IN TDEV                                                      F6H00020
 ME8   SYN 134                                                          F6H00030
       ORG 136                                                          F6H00040
 RNF   LXA LOC15,4       SET DRUM READ ERROR COUNTER.                   F6H00050
 LIB27 RDR 3             SELECT DRUM 3 AND                              F6H00060
 NFA   PXD 1024          LOCATE FORSUB (FORTRAN FUNCTION) TABLE         F6H00070
       LDA NFA                                                          F6H00080
       CAD FORT          READ WORD COUNT OF TABLE.                      F6H00090
       COM                                                              F6H00100
       CAD SUM                                                          F6H00110
       COM                                                              F6H00120
       TZE RFS           TRANSFER IF NO READ ERROR.                     F6H00130
       TIX LIB27,4,1     READ-ERROR PROCEOURE                           F6H00140
       TSX 4,4                                                          F6H00150
 RFS   LXD FORT,3        SET INDEX REGISTERS 1 AND 2 EQUAL              F6H00160
       REM               FORSUB WORD COUNT                              F6H00161
       TXL LIB36,1       TRANSFER IF NO FORTRAN FUNCTIONS.              F6H00170
       CLA ADEV          INITIALIZE ADDRESSES WITH INITIAL              F6H00180
       STA AFOR          LOCATION OF DEA TABLE (ALSO IFN TABLE)         F6H00190
       CLA LIFN                                                         F6H00200
       STA GIFN                                                         F6H00210
       LXA LOC15,4       DRUM READ ERROR COUNTER.                       F6H00220
 LIB28 RDR 3                                                            F6H00230
 TFA   PXD 1026          READ FORTRAN FUNCTION (FORSUB)                 F6H00240
       LDA TFA           TABLE FROM DRUM (2-WORD ENTRIES) INTO          F6H00250
 CFS   CAD FORT,2        FORT-WD. CT,..., FORT-1.                       F6H00260
       TIX CFS,2,1                                                      F6H00270
       CPY SUM                                                          F6H00280
       COM                                                              F6H00290
       CAD SUM                                                          F6H00300
       COM                                                              F6H00310
       TZE FORS          TRANSFER IF CHECK SUM OKAY.                    F6H00320
       TIX LIB28,4,1                                                    F6H00330
       TSX 4,4                                                          F6H00340
 FORS  SXD FORM,1        SAVE COUNT OF FUNCT.                           F6H00350
       CLA FORT,1        IS FUNCTION IN                                 F6H00360
       TSX SDEV,4        DEV TABLE.                                     F6H00370
       LXD FORM,1        NO, ERROR.                                     F6H00380
       TSX 4,4                                                          F6H00390
       LXD FORM,1        YES. EXIT HERE FROM SDEV WITH APPROPRIATE      F6H00400
       REM               COUNTER IN XR2.                                F6H00401
       CLA FORT+1,1      OBTAIN FORMULA                                 F6H00410
       PDX 0,4           NUMBER.                                        F6H00420
 GIFN  CLA IFN,4         GET LOCATION FROM                              F6H00430
       ARS 18            IFN TABLE.                                     F6H00440
 AFOR  STA FORF,2        STORE LOCATION IN DEA TABLE.                   F6H00450
       STA FORT+1,1      STORE LOCATION IN FORT (INTERNAL TABLE).       F6H00460
       TIX FORS,1,2                                                     F6H00470
       REM LIST NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING           F6H00480
       REM INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS                 F6H00490
       LXD FORT,1                                                       F6H00500
       TSX SPACE,4                                                      F6H00510
           TITLE,,20                                                    F6H00520
       TSX SPACE,4                                                      F6H00530
           CHEAD,,20                                                    F6H00540
 CNL   LXD LNC,2         SET TAPE TWO BLOCK LENGTH TO 20.               F6H00550
 CNW   CAL BLANKS                                                       F6H00560
       SLW LIN+1,2       STORE BLANKS IN FIRST WORD OF ENTRY.           F6H00570
       LDQ FORT,1        SELECT SYMBOL                                  F6H00580
       LXA SIX,4         AND CONVERT.                                   F6H00590
 SIX   LGL 6             BRING ONE CHARACTER OF SYMBOL INTO ACC.        F6H00600
       SLW SYM                                                          F6H00610
       ANA 6BITS         TEST IF CHARACTER IN ACC. IS A BLANK.          F6H00620
       SUB BLANK                                                        F6H00630
       TZE CNA           BLANK, THEN FINISHED. SECOND WORD OF ENTRY HAS F6H00640
       REM               COMPLETE SYMBOL.                               F6H00641
       CAL SYM           NOT BLANK, STORE IN SECOND WORD AND            F6H00650
       SLW LIN+2,2       GO TO TEST NEXT CHARACTER                      F6H00660
       TIX SIX,4,1       UNLESS SIX HAVE BEEN TREATED.                  F6H00670
 CNA   CLA FORT+1,1      TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NOF6H00680
       ARS 18            (DECREMENT OF SECOND WORD OF TWO WORD ENTRIES  F6H00690
       STA LOC           FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.)  F6H00700
       LXA ONE,4                                                        F6H00710
       LDQ LOC                                                          F6H00720
 CNV   CLA TEN                                                          F6H00730
       TLQ FIN                                                          F6H00740
       PXD                                                              F6H00750
       DVP TEN                                                          F6H00760
       SLW DIG,4         (SAVING REMAINDERS).                           F6H00770
       TXI CNV,4,1                                                      F6H00780
 FIN   STQ DIG,4                                                        F6H00790
       CAL BLANKS                                                       F6H00800
 DEC   ALS 6                                                            F6H00810
       ORA DIG,4                                                        F6H00820
       TIX DEC,4,1                                                      F6H00830
       SLW LIN+3,2       STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.F6H00840
       REM       4       IN THIRD WORD OF ENTRY.                        F6H00841
       CLA FORT+1,1      TO GET BCD IMAGE OF OCTAL LOCATION.            F6H00850
       STA LOC                                                          F6H00860
       CLA LOC                                                          F6H00870
       LRS 15                                                           F6H00880
       CAL BLANK                                                        F6H00890
       TNO OCT                                                          F6H00900
 OCT   ALS 3                                                            F6H00910
       LLS 3                                                            F6H00920
       TNO OCT           OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION   F6H00930
       SLW LIN+4,2       HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL    F6H00940
       REM               LOCATION IN 4TH WORD OF ENTRY.                 F6H00941
       TNX WLL,1,2       TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED.   F6H00950
       TIX CNW,2,4       TRANSFER IF TARE BLOCK NOT FULL.               F6H00960
       TSX WRITE,4       WRITE A RECORD ON TARE TWO                     F6H00970
 LNC       LIN+1,,20     ANO GO TO CNL TO CORTINUE.                     F6H00980
       TRA CNL                                                          F6H00990
 SPACE WTD 2                                                            F6H01000
       CPY BLANKS                                                       F6H01010
 WRITE WTD 2                                                            F6H01020
       CLA 1,4                                                          F6H01030
       STA POOP                                                         F6H01040
       PDX 0,2                                                          F6H01050
 POOP  CPY **,2                                                         F6H01060
       TIX POOP,2,1                                                     F6H01070
       IOD                                                              F6H01080
       TRA 2,4                                                          F6H01090
 WLL   PXD 0,2           GET ADDRESS AND DECREMENT TO STORE IN LND      F6H01100
       STO LND           FOR WRITING FINAL RECORD.                      F6H01110
       ARS 18                                                           F6H01120
       STA LND                                                          F6H01130
       CLA LNE                                                          F6H01140
       SUB LND                                                          F6H01150
       STO LND                                                          F6H01160
       TSX WRITE,4       WRITE IT.                                      F6H01170
 LND                                                                    F6H01180
       CLA LOC           SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY F6H01190
       ADD ONE           LISTED PLUS ONE.(TO BE USED BY RECORD 110).    F6H01200
       STO ME8                                                          F6H01210
 LIB26 RTB 1                                                            F6H01220
       TRA 4                                                            F6H01230
 LIB36 STZ ME8           NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND   F6H01240
       TRA LIB26         GO TO RETURN TO LOADER.                        F6H01250
 CFOR  PXD                                                              F6H01260
 FORM  TXI AFOR+1                                                       F6H01270
 LNE       LIN+5,,24                                                    F6H01280
 LOC15 HTR 15                                                           F6H01290
BLANKS BCD 1                                                            F6H01300
 BLANK BCD 100000                                                       F6H01310
 6BITS OCT 77                                                           F6H01320
 TEN   DEC 10                                                           F6H01330
 LOC   DEC 0                                                            F6H01340
       BCD                NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING F6H01350
       BCD  INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS                F6H01360
 TITLE BSS                                                              F6H01370
       BCD                IFN   LOC               IFN   LOC             F6H01380
       BCD    IFN   LOC               IFN   LOC               IFN   LOC F6H01390
 CHEAD BSS                                                              F6H01400
       BSS 40                                                           F6H01410
       BSS 19                                                           F6H01420
 LIN   BSS 1                                                            F6H01430
 DIG   BES 6                                                            F6H01440
 SYM   BSS 1                                                            F6H01450
 SUM   BSS 1                                                            F6H01460
 FORT  BES 100                                                          F6H01470
       END START                                                        F6H01480
       REM ************* FORTRAN II SECTION SIX ************************F6I00010                        
       REM FORTRAN 2   RECORD 107  -  MAP EXT. AND INT. FORMULA NOS.    F6I00011
       REM                                                              F6I00012
       REM                                                              F6I00013
       RST 10,1                                                         F6I00014
       REM LIST EXTERNAL FORMULA NUMBERS WITH CORRESPONDING             F6I00020
       REM INTERNAL FORMULA NUMBERS AND RELATIVE LOCATIONS              F6I00030
       ORG 136                                                          F6I00040
       LXA LOC15,4       SET DRUM READ ERROR COUNTER.                   F6I00050
 REIFN RDR 4             SELECT DRUM 4 TO READ EIFN TABLE.              F6I00060
 EIFNA PXD 2                                                            F6I00070
       LDA EIFNA                                                        F6I00080
       CAD TEIFN                                                        F6I00090
       COM                                                              F6I00100
       CAD SUM                                                          F6I00110
       COM                                                              F6I00120
       TZE LEIFN         WORD COUNT OKAY.                               F6I00130
       TIX REIFN,4,1                                                    F6I00140
       TSX 4,4                                                          F6I00150
 LEIFN LXD TEIFN,3       SET XR1+XR2=WD CT OF EIFN TABLE.               F6I00160
       TXL ENDS,1        ANY FORMULA NOS. NO, GO TO ENDS.               F6I00170
       LXA LOC15,4       YES, SET READ ERROR COUNTER                    F6I00180
 LIB30 RDR 4                                                            F6I00190
 EIFTA PXD 4             READ INTERNAL-                                 F6I00200
       LDA EIFTA         EXTERNAL FORMULA                               F6I00210
 CEIFN CAD TEIFN,2       NUMBERS INTO TEIFN-WD CT,..., TEIFN-1          F6I00220
       TIX CEIFN,2,1                                                    F6I00230
       CPY SUM                                                          F6I00240
       COM                                                              F6I00250
       CAD SUM                                                          F6I00260
       COM                                                              F6I00270
       TZE PEIFN         TRANSFER IF OKAY.                              F6I00280
       TIX LIB30,4,1                                                    F6I00290
       TSX 4,4                                                          F6I00300
 PEIFN TSX SPACE,4       COPY TITLE AND HEADING ON TAPE 2,              F6I00310
           TITLE,,20                                                    F6I00320
       TSX SPACE,4                                                      F6I00330
           CHEAD,,20                                                    F6I00340
       CLA LIFN          SET AT INITIALIZATION OF FIRST PASS. EQUALS    F6I00350
       STA FIFL          LOCATION OF DEA TABLE WHICH HAS IFN TABLE IN   F6I00360
       REM               DECREMENT.                                     F6I00361
 CNL   LXD LNC,2         SET COUNTER FOR 20-WORD RECORD                 F6I00370
 CNW   CAL BLANKS        STORE BLANKS IN FIRST WORD OF 4-WORD ENTRY     F6I00380
       SLW LIN+1,2                                                      F6I00390
       CAL TEIFN,1       SELECT EIFN TABLE ENTRY.                       F6I00400
       TSX DCR,4         GO TO CONVERT EXTERNAL FORMULA NO. TO BCD IMAGEF6I00410
       SLW LIN+2,2       OF ITS DECIMAL REPRESENTATION AND STORE IT IN  F6I00420
       REM               IN 2ND WORD OF ITS ENTRY.                      F6I00421
       CAL TEIFN,1                                                      F6I00430
       ARS 18            GO TO CONVERT INTERNAL FORMULA NO. TO THE BCD  F6I00440
       TSX DCR,4         IMAGE OF ITS DEC. REPRESENTATION AND STORE IT  F6I00450
       SLW LIN+3,2       IN 3RD WORD OF ENTRY.                          F6I00460
       LXA LOC,4         SET XR4 TO CURRENT INTERNAL FORMULA NUMBER.    F6I00470
 FIFL  CLA IFN,4                                                        F6I00480
       ARS 18                                                           F6I00490
       STA LOC           LOC NOW CONTAINS LOCATION OF CURRENT INTERNAL  F6I00500
       CLA LOC           FORMULA NUMBER.                                F6I00510
       LRS 15            TO CONVERT THE LOCATION                        F6I00520
       CAL BLANK         TO THE BCD IMAGE OF ITS OCTAL                  F6I00530
       TNO OCT           REPRESENTATION, AND                            F6I00540
 OCT   ALS 3             STORE IT IN THE                                F6I00550
       LLS 3             FOURTH WORD OF THE 4-WORD ENTRY.               F6I00560
       TNO OCT                                                          F6I00570
       SLW LIN+4,2                                                      F6I00580
       TNX WLL,1,1       TRANSFER WHEN ALL EIFN ENTRIES HAVE BEEN       F6I00590
       REM               TREATED.                                       F6I00591
       TIX CNW,2,4       MORE ENTRIES + STILL ROOM IN 20-WORD BLOCK, GO F6I00600
       REM               TO CNW.                                        F6I00601
       TSX WRITE,4       WRITE TAPE 2 BLOCK.                            F6I00610
 LNC       LIN+1,,20                                                    F6I00620
 DCX   TXI CNL                                                          F6I00630
 DCR   SXD DCX,4                                                        F6I00640
       STA LOC           TO CONVERT ADDRESS                             F6I00650
       LXA ONE,4         IN LOC TO BCD                                  F6I00660
       LDQ LOC           IMAGE OF DECIMAL                               F6I00670
 CNV   CLA TEN           LOCATION.                                      F6I00680
       TLQ FIN                                                          F6I00690
       PXD                                                              F6I00700
       DVP TEN           DIVIDE BY TEN AND                              F6I00710
       SLW DIG,4         STORE REMAINDERS.                              F6I00720
       TXI CNV,4,1                                                      F6I00730
 FIN   STQ DIG,4                                                        F6I00740
       CAL BLANKS                                                       F6I00750
 DEC   ALS 6                                                            F6I00760
       ORA DIG,4                                                        F6I00770
       TIX DEC,4,1                                                      F6I00780
       LXD DCX,4                                                        F6I00790
       TRA 1,4           RETURN TO PROGRAM.                             F6I00800
 SPACE WTD 2                                                            F6I00810
       CPY BLANKS                                                       F6I00820
 WRITE WTD 2                                                            F6I00830
       CLA 1,4                                                          F6I00840
       STA POOP                                                         F6I00850
       PDX 0,2                                                          F6I00860
 POOP  CPY *,2                                                          F6I00870
       TIX POOP,2,1                                                     F6I00880
       IOD                                                              F6I00890
       TRA 2,4                                                          F6I00900
 WLL   PXD 0,2           TO GET WORD COUNTERS FOR WRITING               F6I00910
       STO LND           FINAL RECORD.                                  F6I00920
       ARS 18                                                           F6I00930
       STA LND                                                          F6I00940
       CLA LNE                                                          F6I00950
       SUB LND                                                          F6I00960
       STO LND                                                          F6I00970
       TSX WRITE,4       WRITE FINAL RECORD                             F6I00980
 LND                     AND                                            F6I00990
 ENDS  RTB 1             GO TO LOADER.                                  F6I01000
       TRA 4                                                            F6I01010
 LNE       LIN+5,,24                                                    F6I01020
       BSS 40                                                           F6I01030
BLANKS BCD 1                                                            F6I01040
 BLANK BCD 100000                                                       F6I01050
 6BITS OCT 77                                                           F6I01060
 TEN   DEC 10                                                           F6I01070
 LOC   DEC 0                                                            F6I01080
 LOC15 HTR 15                                                           F6I01090
       BCD                   EXTERNAL FORMULA NUMBERS WITH CORRESPONDINGF6I01100
       BCD   INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS               F6I01110
 TITLE BSS                                                              F6I01120
       BCD          EFN   IFN   LOC         EFN   IFN   LOC         EFN F6I01130
       BCD    IFN   LOC         EFN   IFN   LOC         EFN   IFN   LOC F6I01140
 CHEAD BSS                                                              F6I01150
       BSS 19                                                           F6I01160
 LIN   BSS 1                                                            F6I01170
 DIG   BES 6                                                            F6I01180
 SYM   BSS 1                                                            F6I01190
 SUM   BSS 1                                                            F6I01200
 TEIFN BES 750                                                          F6I01210
       END START                                                        F6I01220
       REM ************* FORTRAN II SECTION SIX ************************F6J00010                        
       REM FORTRAN 2   RECORD 109  -  MAP PROGRAM.                      F6J00011
       REM                                                              F6J00012
       RST 10,1                                                         F6J00013
       REM RELOCATE DATA DOWN TO LOWER STORAGE                          F6J00020
       REM COMPUTE DELTA EQUAL LCTR MINUS L1 PLUS 1                     F6J00030
       REM SUBTRACT DELTA FROM ALL LOCATIONS BETWEEN L3                 F6J00040
       REM AND L1 IN DEV, TEV, AND TIV TABLES                           F6J00050
       REM L1 IS PROGRAM BREAK, L3 IS COMMON BREAK                      F6J00060
       ORG 136                                                          F6J00070
       CLA LCTR                                                         F6J00080
       SUB L1                                                           F6J00090
       ADD ONE                                                          F6J00100
       STO DELTA                                                        F6J00110
       CLA L1            COMPUTE NEW PROGRAM                            F6J00120
       ADD L3            BREAK AND STORE.                               F6J00130
       SUB LCTR                                                         F6J00140
       STO PGBK                                                         F6J00150
       LXD DEVL,1        ANY SYMBOLS IN DEV.                            F6J00160
       TXL A5,1          NO, GO TO AS.                                  F6J00170
       CLA ADEV          YES. COMPUTE ADORESS OF                        F6J00180
       STA A1            DEA TABLE.                                     F6J00190
       STA A4                                                           F6J00200
 A1    CLA *,1           SELECT LOCATION                                F6J00210
       STA ERAS1         FROM ADDRESS BITS.                             F6J00220
       CLA ERAS1                                                        F6J00230
       CAS L3                                                           F6J00240
       TRA A3            LOC GREATER THAN L3, DO NOT RELOCATE.          F6J00250
       TRA A2            LOC EQUAL L3. GO TO RELOCATE (HAS TO BE GREATERF6J00260
       REM               THAN L1)                                       F6J00261
       CAS L1            LOC LESS THAN L3. IS IT GREATER THAN L1.       F6J00270
       TRA A2            LOC GREATER THAN L1. GO TO RELOCATE            F6J00280
       TRA A2            LOC EQUAL L1. GO TO RELOCATE                   F6J00290
 A3    TIX A1,1,1        LOC LESS THAN L1. DO NOT RELOCATE.             F6J00300
       TRA A5            WHEN ALL DATA EXAMINED AND TREATED.            F6J00310
 A2    SUB DELTA         RELOCATE LOCATION.                             F6J00320
 A4    STA *,1                                                          F6J00330
       TRA A3                                                           F6J00340
 A5    CLA LTEV          TEST LTEV ( LOCATION OF FIRST SYMBOL IN TEV)   F6J00350
       LXD TEVL,1        SET XR1 WITH WD. COUNT OF TEV ENTRIES.         F6J00360
       TXL A6,1          IF NO TEV ENTRIES, GO TO EXAMINE TIV.          F6J00370
       CAS L3            YES, TEV ENTRIES. IS LOCATION BETWEEN L3 ANO L1F6J00380
       TRA A6            LOCATION GREATER THAN L3. OONT RELOCATE        F6J00390
       TRA A7            LOC EQUAL L3. RELOCATE                         F6J00400
       CAS L1            LOC LESS THAN L3. IS IT GREATER THAN OR EQUAL  F6J00410
       REM               L1.                                            F6J00411
       TRA A7            YES, RELOCATE                                  F6J00420
       TRA A7            YES, RELOCATE                                  F6J00430
       TRA A6            LOC LESS THAN L3. DONT RELOCATE.               F6J00440
 A7    SUB DELTA         RELOCATE LOCATION,                             F6J00450
       STO LTEV          AND STORE NEW LOCATION IN LTEV.                F6J00460
 A6    LXD TIVL,1        ANY SYMBOLS IN TIV.                            F6J00470
       TXI NT1,1,1                                                      F6J00480
 NT1   TXL B4,1          NO, GO TO WRITE OFF STORAGE NOT USED           F6J00490
 A10   CLA TIV,1         YES. TEST TIV.                                 F6J00500
       STA ERAS1         SELECT LOCATION FROM ADDRESS BITS.             F6J00510
       CLA ERAS1                                                        F6J00520
       CAS L3                                                           F6J00530
       TRA A8            NO RELOCATION.                                 F6J00540
       TRA A9            RELOCATE.                                      F6J00550
       CAS L1                                                           F6J00560
       TRA A9            RELOCATE.                                      F6J00570
       TRA A9            RELOCATE.                                      F6J00580
 A8    TXI NT2,1,1       IF MORE ENTRIES IN TIV TO BE TESTED FOR RELOC- F6J00590
 NT2   TXL B4,1          ATION, GO TO TEST TIV. IF DONE, GO WRITE       F6J00600
       REM               STORAGE NOT USED.                              F6J00601
       TRA A10           RELOCATE BY SUBTRACTING DELTA                  F6J00610
 A9    SUB DELTA                                                        F6J00620
       STA TIV,1                                                        F6J00630
       TRA A8                                                           F6J00640
 ERAS1 HTR                                                              F6J00650
 B4    TSX SPACE,4       TO WRITE STORAGE NOT USED BY PROGRAM           F6J00660
           TITLE,,20     RECORD ON TAPE TWO.                            F6J00670
       TSX SPACE,4       GO TO WRITE TITLE AND HEADINGS.                F6J00680
           CHEAD,,20                                                    F6J00690
       CLA PGBK                                                         F6J00700
       STO LOC           TO LIST PROGRAM BREAK.                         F6J00710
       TSX SUB,4         GO TO CONVERT PROGRAM BREAK TO BCD IMAGES      F6J00720
       CAL BLANKS        OF ITS DECIMAL AND ITS OCTAL                   F6J00730
       SLW LIN-19        REPRESENTATIONS.                               F6J00740
       SLW LIN-18        SET FIRST 2 WORDS OF RECORD TO BLANK.          F6J00750
       CLA DECWD                                                        F6J00760
       STO LIN-17        SET 3RD WORD TO IMAGE OF DECIMAL REPR.         F6J00770
       CLA OCTWD         SET 4TH WORD TO IMAGE OF OCTAL REPRESENTATION  F6J00780
       STO LIN-16        OF PROGRAM BREAK.                              F6J00790
       CLA L3                                                           F6J00800
       STO LOC           TO LIST COMMON BREAK.                          F6J00810
       TSX SUB,4         GO TO CONVERT IT.                              F6J00820
       CAL BLANKS                                                       F6J00830
       SLW LIN-15                                                       F6J00840
       SLW LIN-14        SET WORDS FIVE AND SIX TO BLANK.               F6J00850
       CLA DECWD         SET WORD SEVEN TO BCD IMAGE OF DECIMAL         F6J00860
       STO LIN-13        REPRESENTATION OF COMMON BREAK.                F6J00870
       CLA OCTWD                                                        F6J00880
       STO LIN-12        SET WORD EIGHT TO IMAGE OF OCTAL REPR.         F6J00890
       CAL BLANKS                                                       F6J00900
       SLW LIN-11        SET REMAINDER OF RECORD TO BLANK.              F6J00910
       SLW LIN-10                                                       F6J00920
       SLW LIN-9                                                        F6J00930
       SLW LIN-8                                                        F6J00940
       SLW LIN-7                                                        F6J00950
       SLW LIN-6                                                        F6J00960
       SLW LIN-5                                                        F6J00970
       SLW LIN-4                                                        F6J00980
       SLW LIN-3                                                        F6J00990
       SLW LIN-2                                                        F6J01000
       SLW LIN-1                                                        F6J01010
       SLW LIN                                                          F6J01020
       TSX WRITE,4       GO TO WRITE RECORD ON TAPE TWO.                F6J01030
 LNC       LIN+1,,20                                                    F6J01040
       TRA 4             GO TO LOADER.                                  F6J01050
 SPACE WTD 2                                                            F6J01060
       CPY BLANKS                                                       F6J01070
 WRITE WTD 2                                                            F6J01080
       CLA 1,4                                                          F6J01090
       STA POOP                                                         F6J01100
       PDX 0,2                                                          F6J01110
 POOP  CPY *,2                                                          F6J01120
       TIX POOP,2,1                                                     F6J01130
       IOD                                                              F6J01140
       TRA 2,4                                                          F6J01150
 SUB   LXA ONE,1                                                        F6J01160
       LDQ LOC                                                          F6J01170
 CNV   CLA TEN           CONVERTING TO DECIMAL.                         F6J01180
       TLQ FIN                                                          F6J01190
       PXD                                                              F6J01200
       DVP TEN                                                          F6J01210
       SLW DIG,1                                                        F6J01220
       TXI CNV,1,1                                                      F6J01230
 FIN   STQ DIG,1                                                        F6J01240
       CAL BLANKS                                                       F6J01250
 DEC   ALS 6             DECIMAL TO BCD IMAGE.                          F6J01260
       ORA DIG,1                                                        F6J01270
       TIX DEC,1,1                                                      F6J01280
       SLW DECWD                                                        F6J01290
       CLA LOC                                                          F6J01300
       LRS 15                                                           F6J01310
       CAL BLANK                                                        F6J01320
       TNO OCT                                                          F6J01330
 OCT   ALS 3             OCTAL TO BCD IMAGE.                            F6J01340
       LLS 3                                                            F6J01350
       TNO OCT                                                          F6J01360
       SLW OCTWD                                                        F6J01370
       TRA 1,4                                                          F6J01380
       BSS 20                                                           F6J01390
BLANKS BCD 1                                                            F6J01400
 BLANK BCD 100000                                                       F6J01410
 6BITS OCT 77                                                           F6J01420
 TEN   DEC 10                                                           F6J01430
 LOC   DEC 0                                                            F6J01440
       BCD 7                                                            F6J01450
       BCD 5STORAGE NOT USED BY PROGRAM                                 F6J01460
       BCD 8                                                            F6J01470
 TITLE BSS                                                              F6J01480
       BCD 2                                                            F6J01490
       BCD 4  DEC   OCT                                                 F6J01500
       BCD 4  DEC   OCT                                                 F6J01510
       BCD                                                              F6J01520
 CHEAD BSS                                                              F6J01530
       BSS 19                                                           F6J01540
 LIN   BSS 1                                                            F6J01550
 DIG   BES 6                                                            F6J01560
 DELTA HTR 0                                                            F6J01570
 DECWD HTR 0                                                            F6J01580
 OCTWD HTR 0                                                            F6J01590
       END                                                              F6J01600
       REM ************* FORTRAN II SECTION SIX ************************F6K00010                        
       REM FORTRAN 2   RECORD 110  -  MAP OTHER VARIABLES.              F6K00011
       REM                                                              F6K00012
       RST 10,1                                                         F6K00013
       REM LIST DATA LOCATI0NS NOT APPEARING IN COMMON                  F6K00020
 ME8   SYN 134                                                          F6K00030
 PC3   SYN 26                                                           F6K00040
       ORG 136                                                          F6K00050
       LXD PC3,1         ANY TRANSFER VECTOR.                           F6K00060
       TXL J4,1          NO, TRANSFER.                                  F6K00070
       TSX SPACE,4       YES, G0 T0 WRITE COLUMN HEADINGS AND           F6K00080
           TRAN,,20      LOCATIONS OF NAMES IN TRANSFER VECTOR.         F6K00690
       TSX SPACE,4                                                      F6K00100
           TRHAD,,20                                                    F6K00110
       CLA ADEV              PRINT TRANSFER VECTOR                      F6K00120
       STA TV1           INITIAL DEA LOCATION.                          F6K00130
       PXD 0,1                                                          F6K00140
       ARS 18                                                           F6K00150
       STO LENG          NO. OF WORDS IN TRANSFER VECTOR.               F6K00160
       LXD DEVL,1        SET DEA TABLE COUNTER.                         F6K00170
 TV2   LXD LNC,2         SET TAPE TWO RECORD LENGTH EQUAL TO TWENTY.    F6K00180
 TV1   CLA **,1          LOCATION FROM DEA TABLE.                       F6K00190
       STA LOC                                                          F6K00200
       CLA LOC           IF DEV ENTRY IS IN TRANS. VECTOR, ITS CORRES-  F6K00210
       CAS LENG          PONDING DEA ENTRY(ADDR. PART)WILL BE LESS      F6K00220
       REM               THAN TRANS. VECTOR WORD COUNT.                 F6K00221
       TRA TV3           DEV ENTRY NOT IN TRANSFER VECTOR.              F6K00230
       TRA TV3                                                          F6K00240
 TV4   LDQ DEV,1         DEV ENTRY IS IN TRANSFER VECTOR SO LIST IT.    F6K00250
       TSX D3,4          TO PREPARE FIRST TWO WORDS OF TAPE TWO ENTRY.  F6K00260
       TSX D4,4          TO PREPARE 3RD AND 4TH WORDS OF ENTRY.         F6K00270
       TNX TV5,1,1       IF NO MORE WOROS IN DEV TABLE, GO TO WRITE LASTF6K00280
       REM               RECORD.                                        F6K00281
       TIX TV1,2,4       IF TAPE TWO RECORD FULL, GO TO WRITE RECORD    F6K00290
       TSX WRITE,4       AND THEN TO TV2 TO SET UP FOR NEXT RECORD.     F6K00300
 LNC       LIN+1,,20                                                    F6K00310
       TRA TV2                                                          F6K00320
 TV3   TNX TV6,1,1       DO NOT LIST (NOT IN TRANSFER VECTOR). UPDATE   F6K00330
       REM               INDEX.                                         F6K00331
       TRA TV1           AND GO TO SELECT NEXT DEA. IF END OF DEV,      F6K00340
 TV6   TXI TV5,2,4       ADJUST WRITE-COPY INDEX AND GO                 F6K00350
 TV5   TSX WLL,1         WRITE LAST RECORD.                             F6K00360
 J4    LXD DEVL,1        ANY DEV ENTRIES.                               F6K00370
       TXL J1,1          NO, TRANSFER                                   F6K00380
       CLA LENG          YES, COMPARE WD. CT. OF TRANSFER VECTOR WITH   F6K00390
       CAS ME8           LAST LOCATION OF FORTRAN FUNCTIONS+1 (ME8 SET  F6K00400
       REM               BY RECORD 105.                                 F6K00401
       TRA LIB38         LESS THAN TRANSFER VECTOR LENGTH.              F6K00410
       TRA LIB37         EQUAL OR GREATER THAN TR. VECTOR LENGTH. SET   F6K00420
 LIB37 CLA ME8           LENG EQUAL TO ME8 TO AVOID DUPLICATE LISTING   F6K00430
       STO LENG          OF FORTRAN FUNCTIONS (LISTED BY RECOR0 105).   F6K00440
 LIB38 CLA ADEV          STORE INITIAL LOCATION OF DEA TABLE IN AOORESS F6K00450
       STA BDV           OF BDV.                                        F6K00460
 CNL   LXD LNC,2         SET TAPE TWO RECORD LENGTH TO 20.              F6K00470
 BDV   CLA **,1          SELECT LOCATION FROM ADDRESS PART OF DEA       F6K00480
       STA LOC           ENTRY. COMPARE IT WITH MAX (TRANSFER VECTOR    F6K00490
       CLA LOC           WORD C0UNT, LAST LOCATION OF FORTRAN FUNCTIONS F6K00500
       CAS LENG          PLUS 1).                                       F6K00510
       TRA J6            NOT PREVI0USLY LISTED AS FORTRAN FUNCTION      F6K00520
       TRA J6            OR IN TRANSFER VECTOR. GO SEE IF COMMON.       F6K00530
       TRA B11           PREVIOUSLY LISTED. GO SEE IF ANY MORE DEV      F6K00540
       REM               ENTRIES.                                       F6K00541
 J6    CAS L3            IS DEV ENTRY IN COMMON.                        F6K00550
       TRA B11           YES, GO SEE IF ANY MORE DEV ENTRIES.           F6K00560
       TRA B10           DEV ENTRY NOT A FORTRAN FUNCTION, NOT IN       F6K00570
 B10   CLA ME5           TRANSFER VECTOR OR COMMON. ME5 IS TAPE TWO     F6K00580
       TZE ME6           BUFFER C0UNTER (0 TO START). GO WRITE HEADING, F6K00590
 ME7   LDQ DEV,1         TAPE 2 BUFFER INDEX NOT 0. LOAD APPROPRIATE    F6K00600
       TSX D3,4          DEV ENTRY AND GO TO PREPARE THE 4-WORD ENTRY.  F6K00610
       TSX D4,4                                                         F6K00620
       TNX B25,1,1       GO WRITE FINAL RECORD IF DEV TABLE FINISHED.   F6K00630
       TIX BDV,2,4       TRANSFER IF STILL ROOM IN TAPE TWO BUFFER.     F6K00640
       TSX WRITE,4       BUFFER FULL. GO WRITE RECORD.                  F6K00650
           LIN+1,,20                                                    F6K00660
       TRA CNL           GO SET BUFFER LENGTH AND CONTINUE.             F6K00670
 B11   TNX D7,1,1        TRANSFER IF NO MORE ENTRIES IN DEV.            F6K00680
       TRA BDV           GO SELECT NEXT DEV ENTRY.                      F6K00690
 ME5   HTR 0                                                            F6K00700
 ME6   TSX SPACE,4       TO WRITE STORAGE LOCATIONS FOR VARIABLES       F6K00710
           TITLE,,20     APPEARING IN DIMENSION AND EQUIVALENCE         F6K00720
       TSX SPACE,4       STATEMENTS AND HEADINGS                        F6K00730
           TRHAD,,20                                                    F6K00740
       LXD LNC,2         RESET COUNTER FOR TAPE TWO BUFFER AND STORE    F6K00750
       SXD ME5,2         IT IN ME5                                      F6K00760
       TRA ME7                                                          F6K00770
 D7    CLA ME5           IS ANYTHING IN TAPE TWO BUFFER                 F6K00780
       TZE J1            TRANSFER IF NOT.                               F6K00790
       TXI B25,2,4       ADJUST BUFFER INDEX                            F6K00800
 B25   TSX WLL,1         AND GO WRITE LAST RECORD.                      F6K00810
 J1    LXD TEVL,1        ANY TEV ENTRIES.                               F6K00820
       TXL J3,1          NO, GO TO LOADER                               F6K00830
       TSX SPACE,4       YES, WRITE LOCATIONS FOR VARIABLES NOT APPEAR- F6K00840
           OTHER,,20     ING IN DIMENSION, EQUIVALENCE, OR COMMON,      F6K00850
       TSX SPACE,4       AND WRITE HEADINGS.                            F6K00860
           TRHAD,,20                                                    F6K00870
 D1    CLA TTEV          SET ADDRESS OF D5 EQUAL TO LOCATION OF         F6K00880
       STA D5            BEGINNING OF TEV TABLE.                        F6K00890
       LXD LNC,2         SET TAPE TWO RECORD LENGTH TO 20.              F6K00900
 D5    LDQ TEV,1         SELECT TEV ENTRY, AND GO SET WORD 1 TO BLANK,  F6K00910
       TSX D3,4          WORD2 TO VARIABLE NAME.                        F6K00920
       PXD 0,1           COMPUTE LOCATION OF TEV ENTRY.                 F6K00930
       ARS 18                                                           F6K00940
       ADD LTEV                                                         F6K00950
       STA LOC           AND GO COMPUTE AND STORE BCD IMAGES OF DECIMAL F6K00960
       TSX D4,4          AND OCTAL REPRESENTAT1ONS IN WORDS 3 AND 4.    F6K00970
       TNX D6,1,1        IF END OF TEV ENTRIES, GO WRITE LAST RECORD.   F6K00980
       TIX D5,2,4        TRANSFER IF STILL ROOM IN BUFFER.              F6K00990
       TSX WRITE,4       BUFFER FULL. WRITE BUFFER CONTENTS AND GO SET  F6K01000
           LIN+1,,20     BUFFER COUNTER.                                F6K01010
       TRA D5-1                                                         F6K01020
 D6    TSX WLL,1         WRITE FINAL RECORD AND GO TO LOADER.           F6K01030
       TRA 4                                                            F6K01040
 WLL   PXD 0,2           C0MPUTE COUNT TO WRITE FINAL RECORD.           F6K01050
       STO LND                                                          F6K01060
       ARS 18                                                           F6K01070
       STA LND                                                          F6K01080
       CLA LNE                                                          F6K01090
       SUB LND                                                          F6K01100
       STO LND                                                          F6K01110
       TSX WRITE,4       WRITE FINAL RECORD.                            F6K01120
 LND                                                                    F6K01130
       TRA 1,1                                                          F6K01140
 LNE       LIN+5,,24                                                    F6K01150
 D3    SXD IR4,4                                                        F6K01160
 CNW   CAL BLANKS                                                       F6K01170
       SLW LIN+1,2       STORE BLANKS IN WORDS 1 AND 2 OF ENTRY.        F6K01180
       SLW LIN+2,2                                                      F6K01190
       LXA SIX,4                                                        F6K01200
 SIX   LGL 6                                                            F6K01210
       SLW SYM                                                          F6K01220
       ANA 6BITS                                                        F6K01230
       SUB BLANK         STORE VARIABLE NAME FILLED WITH BLANKS AT      F6K01240
       TZE CNA           LEFT IN WORD 2 OF ENTRY.                       F6K01250
       CAL SYM                                                          F6K01260
       SLW LIN+2,2                                                      F6K01270
       TIX SIX,4,1                                                      F6K01280
 CNA   LXD IR4,4                                                        F6K01290
       TRA 1,4           RETURN TO PROGRAM.                             F6K01300
 D4    SXD IR4,4                                                        F6K01310
       LXA ONE,4         CONVERT LOCATION TO BCD IMAGE OF ITS           F6K01320
       LDQ LOC           DECIMAL REPRESENTATION, AND                    F6K01330
 CNV   CLA TEN           STORE IT IN WORD 3 0F ENTRY.                   F6K01340
       TLQ FIN                                                          F6K01350
       PXD                                                              F6K01360
       DVP TEN                                                          F6K01370
       SLW DIG,4                                                        F6K01380
       TXI CNV,4,1                                                      F6K01390
 FIN   STQ DIG,4                                                        F6K01400
       CAL BLANKS                                                       F6K01410
 DEC   ALS 6                                                            F6K01420
       ORA DIG,4                                                        F6K01430
       TIX DEC,4,1                                                      F6K01440
       SLW LIN+3,2                                                      F6K01450
       CLA LOC                                                          F6K01460
       LRS 15                                                           F6K01470
       CLA BLANK         CONVERT LOCATION TO BCD IMAGE 0F ITS OCTAL     F6K01480
       TNO OCT           REPRESENTATION, AND STORE IT IN WORD 4 OF ENTRYF6K01490
 OCT   ALS 3                                                            F6K01500
       LLS 3                                                            F6K01510
       TNO OCT                                                          F6K01520
       SLW LIN+4,2                                                      F6K01530
       LXD IR4,4                                                        F6K01540
       TRA 1,4                                                          F6K01550
 SPACE WTD 2                                                            F6K01560
       CPY BLANKS                                                       F6K01570
 WRITE WTD 2              TO WRITE TAPE-TWO BUFFER (20 WORDS) ONTO TAP, F6K01580
       CLA 1,4                                                          F6K01590
       STA POOP                                                         F6K01600
       PDX 0,2                                                          F6K01610
 POOP  CPY **,2                                                         F6K01620
       TIX POOP,2,1                                                     F6K01630
       IOD                                                              F6K01640
       TRA 2,4                                                          F6K01650
 J3    TRA 4                                                            F6K01660
BLANKS BCD 1                                                            F6K01670
 BLANK BCD 100000                                                       F6K01680
 6BITS OCT 77                                                           F6K01690
 TEN   DEC 10                                                           F6K01700
 LOC   DEC 0                                                            F6K01710
 LENG  HTR 0                                                            F6K01720
       BCD 6                                                            F6K01730
       BCD 6LOCATIONS OF NAMES IN TRANSFER VECTO                        F6K01740
       BCD 8R                                                           F6K01750
 TRAN  BSS                                                              F6K01760
       BCD 2                                                            F6K01770
       BCD 4  DEC   OCT                                                 F6K01780
       BCD 4  DEC   OCT                                                 F6K01790
       BCD 4  DEC   OCT                                                 F6K01800
       BCD 4  DEC   OCT                                                 F6K01810
       BCD 2  DEC   OCT                                                 F6K01820
 TRHAD BSS                                                              F6K01830
       BCD 3                                                            F6K01840
       BCD 7STORAGE LOCATIONS FOR VARIABLES APPEARING                   F6K01850
       BCD 7IN DIMENSION AND EQUIVALENCE SENTENCES                      F6K01860
       BCD 3                                                            F6K01870
 TITLE BSS                                                              F6K01880
       BCD 2                                                            F6K01890
       BCD 7   STORAGE LOCATIONS FOR VARIABLES NOT APP                  F6K01900
       BCD 6EARING IN DIMENSION,EQUIVALENCE OR C                        F6K01910
       BCD 5OMMON SENTENCES                                             F6K01920
 OTHER BSS                                                              F6K01930
 ERAS2                                                                  F6K01940
 ERAS1                                                                  F6K01950
 IR4                                                                    F6K01960
 DIG   BES 6                                                            F6K01970
       BSS 19                                                           F6K01980
 LIN   BSS 1                                                            F6K01990
 SYM   BSS 1                                                            F6K02000
       END                                                              F6K02010
       REM ************* FORTRAN II SECTION SIX ************************F6L00010                        
       REM FORTRAN 2   RECORD 111  -  WRITE PROGRAM CARD.               F6L00011
       REM                                                              F6L00012
       RST 10,1                                                         F6L00013
       REM WRITE PROGRAM CARD ON TAPE 3                                 F6L00020
 PC1   SYN 24                                                           F6L00030
 PC2   SYN 25                                                           F6L00040
 PC3   SYN 26                                                           F6L00050
 PC4   SYN 27                                                           F6L00060
 PC5   SYN 28                                                           F6L00070
 PC6   SYN 29                                                           F6L00080
       ORG 136                                                          F6L00090
       REW 3             REWIND TAPE 3                                  F6L00100
       CLS FR4                                                          F6L00110
       STO PC1           STORE PUNCH IN COL 1,4 IN DECREMENT OF PC1     F6L00120
       CLA PC3           DECREMENT CONTAINS LENGTH OF TRANSFER VECTOR.  F6L00130
       ADD PGBK          ADD LENGTH OF LOWER STORAGE IN ADDRESS.        F6L00140
       STO PC3                                                          F6L00150
       CLA L3            TWOS COMPLEMENT OF LENGTH OF UPPER             F6L00160
       STO PC4           STORAGE IN ADDRESS.                            F6L00170
       PXD                                                              F6L00180
       ACL PC1           C0MPUTE CHECK SUM,                             F6L00190
       ACL PC3                                                          F6L00200
       ACL PC4                                                          F6L00210
       ACL PC5                                                          F6L00220
       ACL PC6                                                          F6L00230
       SLW PC2           AND STORE IT IN PC 2.                          F6L00240
       WTB 3             WRITE PROGRAM CARD ONTO TAPE 3.                F6L00250
       CPY PC1           PUNCH IN COL. ONE, WD. COUNT IN DECR. 9L.      F6L00260
       CPY PC2           CHECK SUM. 9R.                                 F6L00270
       CPY PC3           LENGTH OF TRANS. VECS LENGTH. OF LOWER STORAGE,F6L00280
       CPY PC4           2S COMP. OF UPPER STORAGE. 8R.                 F6L00290
       CPY PC5           NAME OF SUBROUTINE (ZEROS IF MAIN PR0GRAM). 7L.F6L00300
       CPY PC6           ENTRY POINT. 7R                                F6L00310
       LXA L18,1         FILL REST OF CARD WITH ZEROS.                  F6L00320
 B4    CPY ZERO                                                         F6L00330
       TIX B4,1,1                                                       F6L00340
       IOD                                                              F6L00350
       TRA 4             GO TO L0ADER,                                  F6L00360
 L18   HTR 18                                                           F6L00370
 FR4   OCT 000004000000                                                 F6L00380
       END                                                              F6L00390
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6M00010
       REM FORTRAN 2   RECORD 112  -  OP TABLES.                        F6M00011
       REM                                                              F6M00012
       REM CONTROL ENTERS THIS RECORD DURING SECOND PASS OF CIT TAPE.   F6M00013
       REM                                                              F6M00014
       RST 10,1                                                         F6M00015
       REM TABLE OF SHARE OPERATI0N CODES                               F6M00020
 N     EQU 124                                                          F6M00030
       ORG SOPR                                                         F6M00040
       LDQ OPRL          STORE NEW INSTRUCTION IN SRCH.                 F6M00050
       STQ SRCH                                                         F6M00060
       LXA OPRS,1        SET XR1 EQUAL 16.                              F6M00070
       LXD OPRS,2        SET XR2 EQUAL 64.                              F6M00080
       REM               DOES OP COMPARE.                               F6M00081
 OPRT  CAS SYMOP,2                                                      F6M00090
       TXI LOWER,1,-2    NO, SELECT NEW OP FROM 0P TABLE.               F6M00100
       TRA OPRF          YES, GO TO OPRF T0 SELECT ABSOLUTE OP.         F6M00110
       TXI RAISE,1,-2                                                   F6M00120
 OPRF  CAL ABSOP,2       SELECT ABS0LUTE OP AND RETURN                  F6M00130
       TRA 2,4                                                          F6M00140
 OPRL  TXL OPRT,2,N      TO PROGRAM.                                    F6M00150
 OPRS      16,0,64                                                      F6M00160
       ORG SYMOP-N                                                      F6M00170
 OPTBL BCD 1000ACL                                                      F6M00180
       BCD 1000ADD                                                      F6M00190
       BCD 1000ADM                                                      F6M00200
       BCD 1000ALS                                                      F6M00210
       BCD 1000ANA                                                      F6M00220
       BCD 1000ANS                                                      F6M00230
       BCD 1000ARS                                                      F6M00240
       BCD 1000BST                                                      F6M00250
       BCD 1000CAD                                                      F6M00260
       BCD 1000CAL                                                      F6M00270
       BCD 1000CAS                                                      F6M00280
       BCD 1000CFF                                                      F6M00290
       BCD 1000CHS                                                      F6M00300
       BCD 1000CLA                                                      F6M00310
       BCD 1000CLM                                                      F6M00320
       BCD 1000CLS                                                      F6M00330
       BCD 1000COM                                                      F6M00340
       BCD 1000CPY                                                      F6M00350
       BCD 1000DCT                                                      F6M00360
       BCD 1000DVH                                                      F6M00370
       BCD 1000DVP                                                      F6M00380
       BCD 1000ETM                                                      F6M00390
       BCD 1000FAD                                                      F6M00400
       BCD 1000FDH                                                      F6M00410
       BCD 1000FDP                                                      F6M00420
       BCD 1000FMP                                                      F6M00430
       BCD 1000FOR                                                      F6M00440
       BCD 1000FSB                                                      F6M00450
       BCD 1000FVE                                                      F6M00460
       BCD 1000HPR                                                      F6M00470
       BCD 1000HTR                                                      F6M00480
       BCD 1000IOD                                                      F6M00490
       BCD 1000LBT                                                      F6M00500
       BCD 1000LDA                                                      F6M00510
       BCD 1000LDQ                                                      F6M00520
       BCD 1000LGL                                                      F6M00530
       BCD 1000LLS                                                      F6M00540
       BCD 1000LRS                                                      F6M00550
       BCD 1000LTM                                                      F6M00560
       BCD 1000LXA                                                      F6M00570
       BCD 1000LXD                                                      F6M00580
       BCD 1000MON                                                      F6M00590
       BCD 1000MPR                                                      F6M00600
       BCD 1000MPY                                                      F6M00610
       BCD 1000MSE                                                      F6M00620
       BCD 1000MTH                                                      F6M00630
       BCD 1000MTW                                                      F6M00640
       BCD 1000MZE                                                      F6M00650
       BCD 1000NOP                                                      F6M00660
       BCD 1000NTR                                                      F6M00670
       BCD 1000ORA                                                      F6M00680
       BCD 1000ORS                                                      F6M00690
       BCD 1000PAX                                                      F6M00700
       BCD 1000PBT                                                      F6M00710
       BCD 1000PDX                                                      F6M00720
       BCD 1000PON                                                      F6M00730
       BCD 1000PSE                                                      F6M00740
       BCD 1000PTH                                                      F6M00750
       BCD 1000PTW                                                      F6M00760
       BCD 1000PXD                                                      F6M00770
       BCD 1000PZE                                                      F6M00780
       BCD 1000RCD                                                      F6M00790
       BCD 1000RDR                                                      F6M00800
       BCD 1000RDS                                                      F6M00810
       BCD 1000REW                                                      F6M00820
       BCD 1000RND                                                      F6M00830
       BCD 1000RPR                                                      F6M00840
       BCD 1000RQL                                                      F6M00850
       BCD 1000RTB                                                      F6M00860
       BCD 1000RTD                                                      F6M00870
       BCD 1000RTT                                                      F6M00880
       BCD 1000                                                         F6M00890
       BCD 1000SBM                                                      F6M00900
       BCD 1000SIX                                                      F6M00910
       BCD 1000SLF                                                      F6M00920
       BCD 1000SLN                                                      F6M00930
       BCD 1000SLQ                                                      F6M00940
       BCD 1000SLT                                                      F6M00950
       BCD 1000SLW                                                      F6M00960
       BCD 1000SPR                                                      F6M00970
       BCD 1000SPT                                                      F6M00980
       BCD 1000SPU                                                      F6M00990
       BCD 1000SSM                                                      F6M01000
       BCD 1000SSP                                                      F6M01010
       BCD 1000STA                                                      F6M01020
       BCD 1000STD                                                      F6M01030
       BCD 1000STO                                                      F6M01040
       BCD 1000STP                                                      F6M01050
       BCD 1000STQ                                                      F6M01060
       BCD 1000STZ                                                      F6M01070
       BCD 1000SUB                                                      F6M01080
       BCD 1000SVN                                                      F6M01090
       BCD 1000SWT                                                      F6M01100
       BCD 1000SXD                                                      F6M01110
       BCD 1000TIX                                                      F6M01120
       BCD 1000TLQ                                                      F6M01130
       BCD 1000TMI                                                      F6M01140
       BCD 1000TNO                                                      F6M01150
       BCD 1000TNX                                                      F6M01160
       BCD 1000TNZ                                                      F6M01170
       BCD 1000TOV                                                      F6M01180
       BCD 1000TPL                                                      F6M01190
       BCD 1000TQO                                                      F6M01200
       BCD 1000TQP                                                      F6M01210
       BCD 1000TRA                                                      F6M01220
       BCD 1000TSX                                                      F6M01230
       BCD 1000TTR                                                      F6M01240
       BCD 1000TXH                                                      F6M01250
       BCD 1000TXI                                                      F6M01260
       BCD 1000TXL                                                      F6M01270
       BCD 1000TZE                                                      F6M01280
       BCD 1000UFA                                                      F6M01290
       BCD 1000UFM                                                      F6M01300
       BCD 1000UFS                                                      F6M01310
       BCD 1000WDR                                                      F6M01320
       BCD 1000WEF                                                      F6M01330
       BCD 1000WPR                                                      F6M01340
       BCD 1000WPU                                                      F6M01350
       BCD 1000WRS                                                      F6M01360
       BCD 1000WTB                                                      F6M01370
       BCD 1000WTD                                                      F6M01380
       BCD 1000WTS                                                      F6M01390
       BCD 1000WTV                                                      F6M01400
       BCD 1000XIT                                                      F6M01410
       ORG ABSOP-N                                                      F6M01420
       OCT +036100000000          ACL                                   F6M01430
       OCT +040000000000          ADD                                   F6M01440
       OCT +040100000000          ADM                                   F6M01450
       OCT +076700000000          ALS                                   F6M01460
       OCT -032000000000          ANA                                   F6M01470
       OCT +032000000000          ANS                                   F6M01480
       OCT +077100000000          ARS                                   F6M01490
       OCT +076400000200          BST                                   F6M01500
       OCT -070000000000          CAD                                   F6M01510
       OCT -050000000000          CAL                                   F6M01520
       OCT +034000000000          CAS                                   F6M01530
       OCT +076000000030          CFF                                   F6M01540
       OCT +076000000002          CAS                                   F6M01550
       OCT +050000000000          CLA                                   F6M01560
       OCT +076000000000          CLM                                   F6M01570
       OCT +050200000000          CLS                                   F6M01580
       OCT +076000000006          COM                                   F6M01590
       OCT +070000000000          CPY                                   F6M01600
       OCT +076000000012          DCT                                   F6M01610
       OCT +022000000000          DVH                                   F6M01620
       OCT +022100000000          DVP                                   F6M01630
       OCT +076000000007          ETM                                   F6M01640
       OCT +030000000000          FAD                                   F6M01650
       OCT +024000000000          FDH                                   F6M01660
       OCT +024100000000          FDP                                   F6M01670
       OCT +026000000000          FMP                                   F6M01680
       OCT -000000000000          FOR                                   F6M01690
       OCT +030200000000          FSB                                   F6M01700
       OCT -100000000000          FVE                                   F6M01710
       OCT +042000000000          HPR                                   F6M01720
       OCT +000000000000          HTR                                   F6M01730
       OCT +076600000333          IOD                                   F6M01740
       OCT +076000000001          LBT                                   F6M01750
       OCT +046000000000          LDA                                   F6M01760
       OCT +056000000000          LDQ                                   F6M01770
       OCT -076300000000          LGL                                   F6M01780
       OCT +076300000000          LLS                                   F6M01790
       OCT +076500000000          LRS                                   F6M01800
       OCT -076000000007          LTM                                   F6M01810
       OCT +053400000000          LXA                                   F6M01820
       OCT -053400000000          LXD                                   FSM01830
       OCT -100000000000          MON                                   F6M01840
       OCT -020000000000          MPR                                   F6M01850
       OCT +020000000000          MPY                                   F6M01860
       OCT -076000000000          MSE                                   F6M01870
       OCT -300000000000          MTH                                   F6M01880
       OCT -200000000000          MTW                                   F6M01890
       OCT -000000000000          MZE                                   F6M01900
       OCT +076100000000          NOP                                   F6M01910
       OCT +100000000000          NTR                                   F6M01920
       OCT -050100000000          ORA                                   F6M01930
       OCT -060200000000          ORS                                   F6M01940
       OCT +073400000000          PAX                                   F6M01950
       OCT -076000000001          PBT                                   F6M01960
       OCT -073400000000          PDX                                   F6M01970
       OCT +100000000000          PON                                   F6M01980
       OCT +076000000000          PSE                                   F6M01990
       OCT +300000000000          PTH                                   F6M02000
       OCT +200000000000          PTW                                   F6M02010
       OCT -075400000000          PXD                                   F6M02020
       OCT +000000000000          PZE                                   F6M02030
       OCT +076200000321          RCD                                   F6M02040
       OCT +076200000300          RDR                                   F6M02050
       OCT +076200000000          RDS                                   F6M02060
       OCT +077200000200          REW                                   F6M02070
       OCT +076000000010          RND                                   F6M02080
       OCT +076200000361          RPR                                   F6M02090
       OCT -077300000000          RQL                                   F6M02100
       OCT +076200000220          RTB                                   F6M02110
       OCT +076200000200          RTD                                   F6M02120
       OCT -076000000012          RTT                                   F6M02130
       OCT +000000000000                                                F6M02140
       OCT -040000000000          SBM                                   F6M02150
       OCT -200000000000          SIX                                   F6M02160
       OCT +076000000140          SLF                                   F6M02170
       OCT +076000000140          SLN                                   F6M02180
       OCT -062000000000          SLQ                                   F6M02190
       OCT -076000000140          SLT                                   F6M02200
       OCT +060200000000          SLW                                   F6M02210
       OCT +076000000360          SPR                                   F6M02220
       OCT +076000000360          SPT                                   F6M02230
       OCT +076000000340          SPU                                   F6M02240
       OCT -076000000003          SSM                                   F6M02250
       OCT +076000000003          SSP                                   F6M02260
       OCT +062100000000          STA                                   F6M02270
       OCT +062200000000          STD                                   F6M02280
       OCT +060100000000          STO                                   F6M02290
       OCT +063000000000          STP                                   F6M02300
       OCT -060000000000          STQ                                   F6M02310
       OCT +060000000000          STZ                                   F6M02320
       OCT +040200000000          SUB                                   F6M02330
       OCT -300000000000          SVN                                   F6M02340
       OCT +076000000160          SWT                                   F6M02350
       OCT -063400000000          SXD                                   F6M02360
       OCT +200000000000          TIX                                   F6M02370
       OCT +004000000000          TLQ                                   F6M02380
       OCT -012000000000          TMI                                   F6M02390
       OCT -014000000000          TNO                                   F6M02400
       OCT -200000000000          TNX                                   F6M02410
       OCT -010000000000          TNZ                                   F6M02420
       OCT +014000000000          TOV                                   F6M02430
       OCT +012000000000          TPL                                   F6M02440
       OCT +016100000000          TQO                                   F6M02450
       OCT +016200000000          TQP                                   F6M02460
       OCT +002000000000          TRA                                   F6M02470
       OCT +007400000000          TSX                                   F6M02480
       OCT +002100000000          TTR                                   F6M02490
       OCT +300000000000          TXH                                   F6M02500
       OCT +100000000000          TXI                                   F6M02510
       OCT -300000000000          TXL                                   F6M02520
       OCT +010000000000          TZE                                   F6M02530
       OCT -030000000000          UFA                                   F6M02540
       OCT -026000000000          UFM                                   F6M02550
       OCT -030200000000          UFS                                   F6M02560
       OCT +076600000300          WDR                                   F6M02570
       OCT +077000000200          WEF                                   F6M02580
       OCT +076600000361          WPR                                   F6M02590
       OCT +076600000341          WPU                                   F6M02600
       OCT +076600000000          WRS                                   F6M02610
       OCT +076600000220          WTB                                   F6M02620
       OCT +076600000200          WTD                                   F6M02630
       OCT +076600000320          WTS                                   F6M02640
       OCT +076600000030          WTV                                   F6M02650
       OCT +002100000000          XIT                                   F6M02660
       END SOPR                                                         F6M02670
       REM AST                                                                                              
       REM ************* FORTRAN II SECTION SIX ************************F6N00010
       REM FORTRAN 2   RECORD 113  -  SECOND PASS OF CIT TAPE.          F6N00011
       REM                                                              F6N00012
       RST 10,1                                                         F6N00013
       REM SECOND PASS OVER CIT TAPE                                    F6N00020
       ORG 136                                                          F6N00030
       REW 4             REWIND TAPE 4,                                 F6N00040
       CLA LIFN          STORE IFN TABLE ADDRESS.                       F6N00050
       STA SA9                                                          F6N00060
       STA SL9                                                          F6N00070
       PXD                                                              F6N00080
       STO L1            CLEAR L1 AND L2.                               F6N00090
       STO L2                                                           F6N00100
       LXA RDC,2         SET READ ERROR COUNTER.                        F6N00110
       TRA RD                                                           F6N00120
 ERR   BST 4             READ-ERROR PROCEDURE                           F6N00130
       TIX RD,2,1                                                       F6N00140
       TSX 4,4                                                          F6N00150
 RDC   HPR 5                                                            F6N00160
 RD    RTB 4             READ RECORD OF                                 F6N00170
       LXA ADDR,4        CIT TAPE 4.                                    F6N00180
 RD1   CPY REC-2,4                                                      F6N00190
       TXI RD1,4,1                                                      F6N00200
       TRA EOF                                                          F6N00210
       ARS 255                                                          F6N00220
       ARS 255                                                          F6N00230
       RTT                                                              F6N00240
       TRA ERR                                                          F6N00250
       SXD RD2,4                                                        F6N00260
       LXD ADDR,4                                                       F6N00270
 RD4   SXD RD3,4                                                        F6N00280
       CLA REC-1,4       SELECT                                         F6N00290
       STO SL            SYMBOLIC LOCATION,                             F6N00300
       CLA REC-2,4                                                      F6N00310
       STO OP            SYMBOLIC OP,                                   F6N00320
       CLA REC-3,4                                                      F6N00330
       STO SA            SYMBOLIC ADDRESS,                              F6N00340
       CLA REC-4,4                                                      F6N00350
       STO RA            RELATIVE ADDRESS.                              F6N00360
       PXD                                                              F6N00370
       STO EA            CLEAR EA,                                      F6N00380
       STO RBIT          RBIT,                                          F6N00390
       STO CBIT          CBIT.                                          F6N00400
       CAL OP                                                           F6N00410
       LRS 18                                                           F6N00420
       CAS OCT           OP EQUAL OCT TEST.                             F6N00430
       TRA SA1                                                          F6N00440
       TRA DATOP         YES OP EQUAL OCT. TRANSFER TO DATOP.           F6N00450
       CAS BCD           OP EQUAL BCD TEST.                             F6N00460
       TRA SA1                                                          F6N00470
       TRA DATOP         YES OP EQUAL BCD. TRANSFER TO DATOP.           F6N00480
 SA1   CAL SA            OP NOT BCD OR OCT.                             F6N00490
       TZE OPCAS         TRANSFER T0 OPCAS IF SA EQUAL 0.               F6N00500
       LRS 30                                                           F6N00510
       TZE SA3           TRANSFER IF SA(1) EQUAL ZERO.                  F6N00520
       PAX 0,4                                                          F6N00530
       TXH SA4,4,15      TRANSFER IF SA(1) GREATER THAN 15.             F6N00540
       TXH SAB,4,14      TRANSFER IF SA(1) EQUAL 15.                    F6N00550
 SA6   RQL 14            SA(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO     F6N00560
       LGL 17            OBTAIN LOC FROM                                F6N00570
 SA7   TSX STIV,4        TIV.                                           F6N00580
       TSX 4,4           ERROR,IF NOT IN TIV.                           F6N00590
       TRA SA2           SA(1) GREATER THAN 15.                         F6N00600
 SA4   CLA SA                     SA(1) GREATER THAN 15                 F6N00610
       SUB DOL1                                                         F6N00620
       TZE LIB10         TRANSFER IF SA EQUAL DOL1 OR DOL2.             F6N00630
       ADD DOL1                                                         F6N00640
       SUB DOL2                                                         F6N00650
       TZE LIB11                                                        F6N00660
       CLA SA                                                           F6N00670
       TSX SDEV,4        OBTAIN LOC FROM                                F6N00680
       TSX STEV,4        TEV OR DEV.                                    F6N00690
       TSX 4,4           ERROR IF NOT IN DEV OR TEV.                    F6N00700
       TRA SA2                                                          F6N00710
 LIB10 CLA DOLSI         LOCATION FROM ADDRESS OF DOLSI.                F6N00720
       TRA SA2                                                          F6N00730
 LIB11 CLA DOLSI                                                        F6N00740
       ARS 18            LOCATION FROM DECREMENT OF DOLSI.              F6N00750
       TRA SA2                                                          F6N00760
 DOL1  BCD 1$ 0000                                                      F6N00770
 DOL2  BCD 1$$ 000                                                      F6N00780
 SA3   LXA SA,4          SA(1) EQUAL ZERO.                              F6N00790
       TXL SA5,4,0       IFN TEST. TRANSFER TO OBTAIN RELOCAT. LOC. FROMF6N00800
       REM               IFN.                                           F6N00801
       LGL 13            IFN WITH RELATIVE LOCATION. ASSEMBLE SYMBOLIC  F6N00810
       RQL 10            ADDRESS AND GO                                 F6N00820
       LGL 6             OBTAIN LOC FROM TIV.                           F6N00830
       TRA SA7                                                          F6N00840
 SA5   LXD SA,4          OCTAIN LOC FROM                                F6N00850
 SA9   CLA IFN,4         IFN TABLE.                                     F6N00860
       ARS 18                                                           F6N00870
       TRA SA2                                                          F6N00880
 SAB   CLA L1            SA(1) EQUAL 15, SET LOCATION EQUAL L1.         F6N00890
 SA2   STA EA            STORE LOCATION IN ADORESS OF EA.               F6N00900
       CLA TWO           SET RBIT AS RELOCATABLE.                       F6N00910
       STO RBIT                                                         F6N00920
 OPCAS CAL OP            ALL OPS NOT OCT OR BCD.                        F6N00930
       LRS 18                                                           F6N00940
       CAS SYN           TEST FOR OP EQUAL SYN OR BSS.                  F6N00950
       TRA ORDOP                                                        F6N00960
       TRA SYNOP         TRANSFER TO SYNOP IF OP EQUAL SYN.             F6N00970
       CAS BSS                                                          F6N00980
       TRA ORDOP                                                        F6N00990
       TRA BSSOP         TRANSFER T0 BSSOP IF OP EQUAL BSS.             F6N01000
 ORDOP TSX SOPR,4        SEARCH FOR OP.                                 F6N01010
       TSX 4,4           ERROR IF NOT FOUND.                            F6N01020
       SLW WORD          STORE OCT OP.                                  F6N01030
       CLA RA            COMPUTE ADDRESS EQUAL                          F6N01040
       ARS 18            TO LOC. PLUS RELATIVE ADDRESS.                 F6N01050
       ADD EA                                                           F6N01060
       STO TEST1         SAVE ADDRESS IN TEST 1                         F6N01070
       CLA EA            LOCATION GREATER THAN PGBK                     F6N01080
       SUB PGBK                                                         F6N01090
       TPL COMM          YES, TRANSFER                                  F6N01100
       CLA TEST1         NO, SEE IF                                     F6N01110
       SUB PGBK          ADDRESS GREATER THAN PGBK.                     F6N01120
       TPL LIB40         YES, G0 TO STORE ONE IN CBIT                   F6N01130
       TRA LIB50         NO, CBIT=0                                     F6N01140
 LIB50 CLA TEST1                                                        F6N01150
       LRS 15                                                           F6N01160
       TRA TG                                                           F6N01170
 LIB40 CLA ONE                                                          F6N01180
       STO CBIT          STORE 1 IN CBIT                                F6N01190
       TRA LIB50                                                        F6N01200
 COMM  CLA TEST1                                                        F6N01210
       TPL TA                                                           F6N01220
       ADD TAG           IF NEG MAKE C0MP                               F6N01230
 TA    LRS 15            TEST FOR COMP                                  F6N01240
       TZE TG            ADDRESS.                                       F6N01250
       CLA ONE                                                          F6N01260
       STO CBIT          INDICATE COMP DATA.                            F6N01270
 TG    CAL RA            COMBINE TAG, BINARY                            F6N01280
       LRS 3             DECREMENT, ADDRESS, AND                        F6N01290
       CAL OP            OP.                                            F6N01300
       LLS 18                                                           F6N01310
       ORA WORD                                                         F6N01320
 STORE SLW WORD          STORE INSTRUCTION.                             F6N01330
       CLA L1                     UPDATE PROG CTR                       F6N01340
       STO L2            AND PROGRAM BREAK                              F6N01350
       ADD ONE           FOR ALL OPS.                                   F6N01360
       STO L1                                                           F6N01370
 RLCPU LXD RLC1,4        MODIFY RLC4.                                   F6N01380
       TIX RLC2,4,1      TRANSFER IF RLC1 NOT ZERO.                     F6N01390
       CLA RLC3          RLC1 IS ZERO SO                                F6N01400
       STD RLC1          INITIALIZE IT TO 20.                           F6N01410
       LXD WCT,4         SET INDEX REGISTER 4, DECREMENT OF             F6N01420
       PXD               RLCB AND RLC6 EQUAL ZERO.                      F6N01430
       SXD RLC8,4                                                       F6N01440
       STD RLC6          SET ABL AND ABR EQUAL ZERO.                    F6N01450
       SLW ABL,4                                                        F6N01460
       SLW ABR,4                                                        F6N01470
       TXI RLC4,4,-2     MODIFY WORD COUNT.                             F6N01480
 RLC2  SXD RLC1,4        SAVE LENGTH OF CARD COUNT.                     F6N01490
       LXD WCT,4                                                        F6N01500
 RLC4  CLA WORD          STORE INSTRUCTION IN ABL BLOCK                 F6N01510
       STO ABL,4                                                        F6N01520
       TXI RLC5,4,-1     MODIFY WORD COUNT                              F6N01530
 RLC5  SXD WCT,4         SAVE NEW WORD COUNT.                           F6N01540
       LXD RLC6,4        MODIFY RELOCATION BITS                         F6N01550
       TXI RLC7,4,2      COUNT.                                         F6N01560
 RLC7  SXD RLC6,4        SAVE RELO. BITS COUNT.                         F6N01570
       CLA RBIT          TEST RELOCATION BIT.                           F6N01580
       TZE RLCC          TRANSFER IF ZERO.                              F6N01590
       ORA CBIT                                                         F6N01600
       TXI RLCB,4,1      MODIFY RELOC. BITS COUNT                       F6N01610
 RLCB  SXD RLC6,4                                                       F6N01620
       LRS 35                                                           F6N01630
       LGL 72,4          MAKE ABR AND ABL RELATIVE BY                   F6N01640
       LXD RLC8,4        STORING RELOCATION BITS.                       F6N01650
       ORS ABL,4                  STORE RELO BITS                       F6N01660
       LGL 36                                                           F6N01670
       ORS ABR,4                                                        F6N01680
 RLCC  LXD RLC6,4        TEST IF TOO MANY RELOCATABLE                   F6N01690
       TXH ST8,4,68      BITS TO PUNCH COMPLETE CARD. YES, TRANSFER.    F6N01700
       LXD WCT,4         NO, TEST END OF PUNCH BLOCK.                   F6N01710
 ST2   TXL ST3,4,-110    IF BLOCK FULL, TRANSFER TO ST 3.               F6N01720
 RLC3  TXI SLS,0,20      RETURN TO GET SL                               F6N01730
 ST8   LXD WCT,4         TEST WCT FOR ZERO.                             F6N01740
       TXL ST4,4                                                        F6N01750
 ST3   PXD 0,4           COMPUTE LAST ADDRESS                           F6N01760
       COM               IN BLOCK (UNCOMPLEMENT WORD COUNT),            F6N01770
       PDX 0,4                                                          F6N01780
       TXI STD,4,ABL                                                    F6N01790
 STD   SXD ST5,4         SAVE IT.                                       F6N01800
       SXD ST5,4                                                        F6N01810
       TSX ABPCH,4       EXIT TO PUNCH CARD                             F6N01820
 ST5       ABL                                                          F6N01830
 ST6   HPR                                                              F6N01840
 ST4   CLA L1            SET ADDRESS PART OF                            F6N01850
       STA ST6           ST6 TO PROGRAM BREAK.                          F6N01860
       SXD WCT           SET WCT, RLC1 TO                               F6N01870
       SXD RLC1          ZERO.                                          F6N01880
 RLC8  TXI SLS           RETURN TO GET SL.                              F6N01890
 WCT   HTR 0                                                            F6N01900
 BSSOP CLA L1            OP IS BSS.                                     F6N01910
       STO L2            STORE PROGRAM COUNTER,                         F6N01920
       CLA RA            UP0ATE PROG BREAK,                             F6N01930
       TZE SLS           AND GO TO PUNCH                                F6N01940
       ARS 18            ACARD IF NECESSARY,                            F6N01950
       ADD L1            STORE NEW ADDRESS                              F6N01960
       STO L1            FOR LOADING.                                   F6N01970
 RLC1  TXI ST8                                                          F6N01980
 DATOP CAL SA            OCT OR BCD OP.                                 F6N01990
 RLC6  TXI STORE                                                        F6N02000
 SYNOP CLA EA            OP IS SYN.                                     F6N02010
       STO L2            SET PROG CTR EQUAL ADDRESS                     F6N02020
       TNZ SLS                                                          F6N02030
       TSX 4,4                                                          F6N02040
 SLS   CAL SL            ALL OPS. TEST SL                               F6N02050
       TZE SL6           TRANSFER IF SL IS ZERO.                        F6N02060
       LRS 30                                                           F6N02070
       TZE SL1           TRANSFER IF SL(1) EQUAL ZERO.                  F6N02080
       PAX 0,4                                                          F6N02090
       TXH SL2,4,15      SL(1) GREATER THAN 15.                         F6N02100
       TXH SL3,4,14      SL(1) EQUAL 15.                                F6N02110
       RQL 14            SL(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO     F6N02120
       LGL 17            SEE IF ITS IN TIV.                             F6N02130
       TSX STIV,4                                                       F6N02140
       TRA SL6           NOT IN TABLE.                                  F6N02150
       TRA SL4           IN TABLE. GO STORE LOCATION IN EA.             F6N02160
 SL1   LXA SL,4          SL(1) EQUAL ZERO. TEST ADORESS PART OF SL.     F6N02170
       TXL SL7,4         ZERO. EXIT TO GET IFN LOCATION.                F6N02180
       LGL 13            NOT ZERO. ASSEMBLE SYMBOL                      F6N02190
       RQL 10            AND GO SEARCH TIV TABLE.                       F6N02200
       LGL 6                                                            F6N02210
       TSX STIV,4                                                       F6N02220
       TRA SL6           NOT IN TIV TABLE, SO TRANSFER.                 F6N02230
       STA EA            IN TIV TABLE. RETURN WITH LOCATION             F6N02240
       CLA EA            IN ADDRESS. TEST ADDRESS.                      F6N02250
       TNZ SL5           TRANSFER IF NOT ZERO.                          F6N02260
 SL8   CLA L2            ZERO. PUT L2 IN TIV TABLE AS LOCATION.         F6N02270
       STA TIV,2                                                        F6N02280
       TRA SL6                                                          F6N02290
 SL2   TRA SL6                                                          F6N02300
 SL7   LXD SL,4          IFN LOCATION.                                  F6N02310
 SL9   CLA IFN,4                                                        F6N02320
       ARS 18                                                           F6N02330
 SL4   STA EA            CHECK STORED LOCATION (FROM TIV).              F6N02340
       CLA EA                     EQUAL PROG CTR                        F6N02350
 SL5   SUB L2            IF NOT EQUAL TO L2, GO TO ERROR HALT.          F6N02360
       TZE SL6                                                          F6N02370
       TSX 4,4                                                          F6N02380
 SL3   BSS                                                              F6N02390
 SL6   BSS                                                              F6N02400
       LXD RD3,4         MODIFY TO GET NEW CIT.                         F6N02410
       TXI RD2,4,4                                                      F6N02420
 RD2   TXL RD4,4,**                                                     F6N02430
       LXA RDC,2                                                        F6N02440
 RD3   TXI RD,0,**                                                      F6N02450
 TEST6 HTR 0                                                            F6N02460
 EOF   CLA LBT           SET RETURN OF ST4 TO EOT.                      F6N02470
       STO ST4                    IF NECESSARY ON END OF                F6N02480
       TRA ST8                    FILE                                  F6N02490
 LBT   TXI EOT                                                          F6N02500
 EOT   REW 4             REWIND TAPE 4 AND RETURN TO LOADER.            F6N02510
       RTB 1                                                            F6N02520
       TRA 4                                                            F6N02530
 ABPCH CAL 1,4           TO PUNCH CARD.                                 F6N02540
       STD PCH1          COMPUTE LAST ADDRESS PLUS ONE, AND             F6N02550
       ARS 18            TOTAL WORD COUNT.                              F6N02560
       ADD PCH1                                                         F6N02570
       STA PCH2                                                         F6N02580
       STA PCH3                                                         F6N02590
       SBM 1,4                                                          F6N02600
       TZE 2,4           G0 TO HALT IF WORD COUNT LESS                  F6N02610
       TMI 2,4           THAN ONE.                                      F6N02620
       PAX 0,1                                                          F6N02630
       CLA 2,4           OBTAIN FIRST ADDRESS.                          F6N02640
 PCH8  WTB 3             SELECT TAPE THREE.                             F6N02650
       STA VR            SET LOADING ADDRESS.                           F6N02660
       CLM                                                              F6N02670
       LXA PCH1,2                                                       F6N02680
 PCH2  ACL 0,1           FORM CHECK SUM.                                F6N02690
       TXH PCH5,2,21                                                    F6N02700
       TNX PCH5,1,1                                                     F6N02710
       TXI PCH2,2,1                                                     F6N02720
 PCH5  SXD PCH6,2        STORE WORD COUNT.                              F6N02730
       TXI PCHR,2,-2                                                    F6N02740
 PCHR  SXD VR,2                                                         F6N02750
       ACL VR                                                           F6N02760
       SLW SUM           STORE CHECK SUM.                               F6N02770
       CPY VR                                                           F6N02780
       CPY SUM                                                          F6N02790
       TXI PCH6,2,2                                                     F6N02800
 PCH6  TXI PCH9,1                                                       F6N02810
 PCH9  TXI PCH3,1,-1                                                    F6N02820
 PCH3  CPY 0,1           COPY RECORD ONTO TAPE THREE.                   F6N02830
       TIX PCH9,2,1                                                     F6N02840
 PCH7  CLA VR            COMPUTE LOADING ADDRESS FOR NEXT CARD.         F6N02850
       ARS 18                                                           F6N02860
       ADD VR                                                           F6N02870
       TIX PCH8,1,1                                                     F6N02880
       IOD                                                              F6N02890
       TRA 3,4           RETURN TO PROGRAM.                             F6N02900
 PCH1  HTR 1                                                            F6N02910
 VR    TIX                                                              F6N02920
 SUM   HTR 0                                                            F6N02930
 WRS1  SYN PCH8                                                         F6N02940
       BSS 40                                                           F6N02950
 SYN   BCD 1000SYN                                                      F6N02960
 OCT   BCD 1000OCT                                                      F6N02970
 BSS   BCD 1000BSS                                                      F6N02980
 BCD   BCD 1000BCD                                                      F6N02990
 TAG   HTR 0,4                                                          F6N03000
 TCD   TIX 0                                                            F6N03010
 OP    HTR 0                                                            F6N03020
 SL    HTR 0                                                            F6N03030
 SA    HTR 0                                                            F6N03040
 RA    HTR 0                                                            F6N03050
 RBIT  HTR 0                                                            F6N03060
 CBIT  HTR 0                                                            F6N03070
 WORD  HTR 0                                                            F6N03080
 TEST1 HTR 0                                                            F6N03090
 ABL   BSS 1                                                            F6N03100
 ABR   BSS 109                                                          F6N03110
 REC   BES 100                                                          F6N03120
 RLP   SYN REC                                                          F6N03130
       END                                                              F6N03140
       REM AST                                                                                              
       REM FORTRAN 2   RECORD 115  -  LIBRARY SEARCH.                   F6P00010
       RST 10,1                                                         F6P00015
       REM                                                              F6P00020
       REM LIBRARY SEARCH                                               F6P00030
 PC1   SYN 24                                                           F6P00040
 SUBIN SYN 30                                                           F6P00050
 ABSOP SYN 1100                                                         F6P00060
 ONE   SYN 114                                                          F6P00070
 SW1   SYN 127                                                          F6P00080
 TRB   SYN ABSOP                                                        F6P00090
 SW5   SYN 131                                                          F6P00100
 TWO   SYN 115                                                          F6P00110
 ZERO  SYN 113                                                          F6P00120
       ORG 136                                                          F6P00130
       LXA RDC,1         SET DRUM READ ERROR COUNTER.                   F6P00140
 D5    RDR 3             SELECT DRUM 3 (TRANSFER VECTOR TABLE).         F6P00150
 A4    PXD 0                      TRANSFER VECTOR                       F6P00160
       LDA A4                                                           F6P00170
       CAD TVR-1         READ WORD COUNT OF TABLE INT0 TVR-1.           F6P00180
       COM                                                              F6P00190
       CAD SUM                                                          F6P00200
       COM                                                              F6P00210
       TZE D4            NO READ ERROR.                                 F6P00220
       TIX D5,1,1                                                       F6P00230
       TSX OUTER,4                                                      F6P00240
 D4    LXD TVR-1,1       SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250
       TXL WEF,1         IFNO TRANSFER VECTOR, GO TO W.E.F.             F6P00260
       LXA RDC,2                                                        F6P00270
 A5    RDR 3                                                            F6P00280
 A6    PXD 2             READ TRANSFER                                  F6P00290
       LDA A6            VECTOR INTO STORAGE, FIRST SUBROUTINE NAME INTOF6P00300
 A7    CAD TVR-1,1       TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2,    F6P00310
       TIX A7,1,1                                                       F6P00320
       CPY SUM                                                          F6P00330
       COM                                                              F6P00340
       CAD SUM                                                          F6P00350
       COM                                                              F6P00360
       TZE A8            TEST CHECK SUM.                                F6P00370
       TIX A5,2,1                                                       F6P00380
       TSX OUTER,4                                                      F6P00390
 A8    CLA SW5           CHECK SUM OKAY.                                F6P00400
       CAS ONE                                                          F6P00410
       TRA A1            GO TO TEST SENSE SWITCH FIVE.                  F6P00420
       TRA A3            1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN      F6P00430
       TRA FINI          0 IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP.    F6P00440
 A1    SWT 5             SENSE SWITCH 5 TEST.                           F6P00450
       TRA FINI          UP.                                            F6P00460
       TRA A3            DOWN.                                          F6P00470
 A3    RTB 1             SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM).   F6P00480
 A10   STZ RCT                                                          F6P00490
       STZ LIBCT                                                        F6P00500
       CLA ONE                                                          F6P00510
       STO PASCT                                                        F6P00520
 LOOP1 STZ CTF                                                          F6P00530
 A11   TSX SUB1,4        READ TAPE1 RECORD.                             F6P00540
       TRA EOF           RETURN HERE IF END OF FILE                     F6P00550
       CLA BUFF-1        RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560
       TMI A12           PROG. CARD TEST. FIRST WORD IS MINUS ON PROG.  F6P00570
       REM               CARD.                                          F6P00580
       TRA A11           NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD. F6P00590
 A12   STD A18           PROGRAM CARD.                                  F6P00600
       STD A15           SAVE LENGTH OF RECORD (BITS 4-1B HAVE NO. OF   F6P00610
       LXD FR4,1         WORDS IN RECORD EXCLUDING 9-ROW.               F6P00620
       CLA BUFF-3        SAVE LENGTH OF                                 F6P00630
       STD VLENG         TRANSFER VECTOR (ROW 8 DECREMENT).             F6P00640
 A16   LXD TVR-1,2                                                      F6P00650
       CLA BUFF-2,1      TEST FOR PRIMARY NAME ON PROG CARD.            F6P00660
       TMI SEC           NOT PRIMARY NAME.                              F6P00670
       CLA BUFF-1,1      YES, PRIMARY NAME. SELECT NAME AND             F6P00680
 A14   CAS TVR-1,2       COMPARE IT TO NAME IN TRANSFER VECTOR.         F6P00690
       TRA A13                                                          F6P00700
       TRA EQ            FOUND ROUTINE, GO T0 EQ.                       F6P00710
 A13   TIX A14,2,1       NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME.    F6P00720
 SEC   TXI A15,1,2       NOT FOUND. GO TO TEST NEXT WORD ON CARD.       F6P00730
 A15   TXL A16,1,*       ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740
       TRA A11           NO MORE PRI. NAMES ON CARD. GO READ NEXT REC.  F6P00750
       REM               OF LIBRARY TAPE.                               F6P00760
 EQ    TSX ERASE,4       WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE  F6P00770
       SXD EQ2,1         NAME IN TRANS. VEC., GO ERASE NAME FROMTVR.    F6P00780
 EQ4   LXA LIBCT,4       SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND.      F6P00790
       CLA BUFF-1,1      ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE.  F6P00800
       STO LIBF-1,4               AND ERASE NAME FROM                   F6P00810
       CLA LIBCT                  TVR TABLE                             F6P00820
       ADD ONE           UPDATE LIBCT                                   F6P00830
       STO LIBCT                                                        F6P00840
       CLA CTF           UPDATE CTP.                                    F6P00850
       ADD ONE                                                          F6P00860
       STO CTF           OTHER NAMES ON CARD. NO, TRANSFER.             F6P00870
       TXL EQ3,1,4                                                      F6P00880
       TXI EQ4,1,-2      YES, GO ENTER IN LIBF.                         F6P00890
 EQ2   HTR 0                                                            F6P00900
 EQ3   LXD EQ2,1                                                        F6P00910
       TRA A18-1                                                        F6P00920
 A19   LXD TVR-1,2                OF THIS ROUTINE                       F6P00930
       CLA BUFF-1,1      SELECT NAME ON PROGRAM CARD                    F6P00940
 A17   CAS TVR-1,2       IS IT CALLED FOR BY TRANSFER VECTOR.           F6P00950
       TRA NO                                                           F6P00960
       TRA YES           YES, TRANSFER.                                 F6P00970
 NO    TIX A17,2,1       NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980
       REM               TRANSFER.                                      F6P00990
 A20   TSX LIBEN,4       NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000
       TXI A18,1,2       INCREMENT PROG CARD COUNTER BY 2,              F6P01010
 A18   TXL A19,1,*       THIS IS SET BY A12, CONTAINS NO. OF WORDS ON   F6P01020
       REM               PROGRAM CARD.                                  F6P01030
       TRA A21           TRANS. WHEN ALL NAMES ON CARD HAVE BEEN CHECKEDF6P01040
 YES   TSX ERASE,4       ERASE NAME FROM TRANSFER VECTOR TABLE.         F6P01050
       CLA BUFF-1,1      SELECT SUBROUTINE NAME AND GO                  F6P01060
       TRA A20           ENTER IT IN LIBF.                              F6P01070
 A21   LXD A15,2                                                        F6P01080
       TXH EXCAD,2,22    TRANSFER IF PROG. CARD HAS MORE THAN 22 WORDS. F6P01090
       TSX WRITE,4       WRITE PROG CARD ON TAPE 3                      F6P01100
       HTR 0,0,2                                                        F6P01110
 B13   TSX SUB1,4        READ RECORD FROM LIB. TAPE                     F6P01120
       TRA EOF           EOF.                                           F6P01130
 X3    CLA VLENG         WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE.  F6P01140
       TZE A22           IF NO TRANSFER VECTOR, GO TO WRITE.            F6P01150
       CAS L20D                                                         F6P01160
       TRA X2            GO TO X2 IF TRANS VEC. OF LIB. SUBR. GREATER   F6P01170
       REM               THAN 20.                                       F6P01180
       TRA X1            GO T0 X1 IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190
       REM               EQUAL 20.                                      F6P01200
 X1    TSX LOOP3,4       GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC.   F6P01210
 A22   TSX WRITE,4       GO WRITE TRANS. VECT. RECORD ON TAPE 3.        F6P01220
       HTR 0,0,4                                                        F6P01230
 LOOP2 TSX SUB1,4        GO READ NEW RECORD FROM LIBRARY TAPE.          F6P01240
       TRA EOF           EOF ON LIBRARY TAPE.                           F6P01250
       CLA BUFF-1        TEST FOR PROGRAM CARD.                         F6P01260
       TMI A12           YES, PROG CARD. TRANSFER.                      F6P01270
       TRA A22           NO, GO TO WRITE CARD ON TAPE THREE.            F6P01280
 X2    SUB L20D          TO TREAT 20 AT A TIME.                         F6P01290
       STO VLENG                                                        F6P01300
       CLA L20D                                                         F6P01310
       TSX LOOP3,4       SEARCH FOR SUB+SUBROUT IN LIBF. IF NOT THERE,  F6P01320
       REM               ENTER IN TVR TABLE.                            F6P01330
       TSX WRITE,4       WRITE RECORD ON TAPE 3.                        F6P01340
       HTR 0,0,4                                                        F6P01350
       TSX SUB1,4        READ NEXT RECORD FROM LIB TAPE                 F6P01360
       TRA EOF           EOF                                            F6P01370
       CLA BUFF-1        IS IT A PROG. CARD.                            F6P01380
       TPL X3            NO, GO PROCESS TRANS. VEC.                     F6P01390
 ERROR TSX OUTER,4       YES. ERROR.                                    F6P01400
 EXCAD CLS L22D          TO WRITE FIRST CARD OG PROG. CARD.             F6P01410
 B9    STO BUFF-1                                                       F6P01420
       TSX CHSUM,4       COMPUTE CHECK SUM.                             F6P01430
       TSX WRITE,4       WRITE IT ON TAPE 3.                            F6P01440
       REM               BLANKS                                         F6P01450
       HTR 0,0,2                                                        F6P01460
       PXD 0,2                                                          F6P01470
       SUB L22D          MORE THAN 22 WORDS.                            F6P01480
       TMI B13           NO, GO T0 B13.                                 F6P01490
       PDX 0,2           YES, DECREMENT WD. CT. BY 22 AND STORE IT IN   F6P01500
       REM               INDEX REGISTER 2.                              F6P01510
       SUB ONEDE                                                        F6P01520
       STD BOO1                                                         F6P01530
       LXD ONE,1                                                        F6P01540
 BOO   CLA BUFF-25,1     MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER,   F6P01550
       STO BUFF-3,1                                                     F6P01560
       TXI BOO1,1,1                                                     F6P01570
 BOO1  TXL BOO,1,*                                                      F6P01580
       TXL B8,2,21                                                      F6P01590
       CLS L22D                                                         F6P01600
       TRA B9                                                           F6P01610
 B8    PXD 0,2                                                          F6P01620
       PDX 0,1           IF NECESSARY                                   F6P01630
 B12   STZ BUFF-3,1      AND FILL IN ZEROES IF NECESSARY.               F6P01640
       TXI B11,1,1                                                      F6P01650
 B11   TXL B12,1,22                                                     F6P01660
       PXD 0,2                                                          F6P01670
       SSM                                                              F6P01680
       TRA B9                                                           F6P01690
 EOF   CLA PASCT                                                        F6P01700
       SUB ONE                                                          F6P01710
       TZE D1            TRANSFER IF ONLY ONE SEARCH                    F6P01720
       CLA CTF           END OF SEARCH TEST                             F6P01730
       TZE D3            CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH.  F6P01740
 D1    CLA PASCT         PREPARE FOR ANOTHER                            F6P01750
       ADD ONE           SEARCH.                                        F6P01760
       STO PASCT                                                        F6P01770
       REM               CHARACTER.                                     F6P01780
       LXA RCT,1         SET XR1 EQUAL NO. OF RECORDS READ FROM LIB.    F6P01790
       TXI D2,1,1        TAPE.                                          F6P01800
 D2    BST 1             BACK SPACE TAPE THAT MANY RECORDS.             F6P01810
       TIX D2,1,1                                                       F6P01820
       STZ RCT           SET RCT EQUAL ZERO AND GO START SEARCH         F6P01830
       TRA LOOP1                                                        F6P01840
 D3    LXA LIBCT,1       ANY SUBROUTINES FOUND                          F6P01850
       TXL FINI,1        NO, GO TO FINI.                                F6P01860
       TSX SPACE,4       YES. 0O WRITE, SUBROUTINES PUNCHED             F6P01870
           FOUND,,20     FROM LIBRARY ON TAPE TWO.                      F6P01880
       LXD LNC,2         SET RECORD LENGTH TAPE TWO EQUAL 20.           F6P01890
 D9    CLA LIBF,1        SELECT SUBROUTINE NAME.                        F6P01900
       STO NAME                                                         F6P01910
       TSX SUB2,4        GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING F6P01920
       REM               OFF WHEN NECESSARY)                            F6P01930
       TIX D9,1,1        TRANSFER IF MORE SUBR. NAMES,                  F6P01940
       TSX WLL,4         GO WRITE FINAL RECORD ON TAPE TWO.             F6P01950
 FINI  LXD TVR-1,1       ANY TRANSFER VECTOR.                           F6P01960
       TXL WEF,1         NO, GO TO WEF.                                 F6P01970
       TSX SPACE,4       YES, GO WRITE SUBROUTINES NOT PUNCHED FROM     F6P01980
           LOST,,20      LIBRARY.                                       F6P01990
       LXD LNC,2         RESET TAPE TWO RECORD LENGTH TO 20.            F6P02000
 D10   CLA TVR-1,1       SELECT NAME IN TVR TABLE.                      F6P02010
       STO NAME          GO WRITE IT IN TAPE TWO BUFFER.                F6P02020
       TSX SUB2,4                                                       F6P02030
       TIX D10,1,1       TRANSFER IF ANY MORE NAMES IN TVR TABLE.       F6P02040
       TSX WLL,4         GO WRITE FINAL RECORD.                         F6P02050
 WEF   REW 1                                                            F6P02060
       CLA SUBIN         TO SEE IF MAIN PROGRAM                         F6P02070
       TNZ Y1            NO, GO TO WRITE END OF FILE                    F6P02080
       WTB 3             YES, SO                                        F6P02090
       CPY TCD           WRITE TRANSFER CARD ON TAPE 3                  F6P02100
 Y1    WEF 3             WRITE END OF FILE MARK ON TAPE 3.              F6P02110
       REW 3                                                            F6P02120
       TRA RECQ                                                         F6P02130
 TCD   MZE                                                              F6P02140
 LIBEN LXA LIBCT,2       ENTER WITH SUBR. NAME IN ACC.                  F6P02150
       SXD LIBA,2                                                       F6P02160
       LXD ONEDE,2                                                      F6P02170
 LIBC  CAS LIBF,2        SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE   F6P02180
       REM               NAME.                                          F6P02190
       TRA LIBB                                                         F6P02200
       TRA 1,4           YES, RETURN TO PROGRAM.                        F6P02210
 LIBB  TXI LIBA,2,1      NO. TEST IF ANY MORE NAMES IN LIBF TABLE.      F6P02220
 LIBA  TXL LIBC,2,*      MORE, GO SELECT NEXT ONE.                      F6P02230
       STO LIBF,2        NO MORE. ENTER SUBR. NAME IN LIBF.             F6P02240
       CLA LIBCT                                                        F6P02250
       ADD ONE           UPDATE NO. OF SUBRS. IN LIBF.,                 F6P02260
       STO LIBCT                                                        F6P02270
       TRA 1,4           AND RETURN TO PROGRAM.                         F6P02280
 WRITE WTB 3             SELECT TAPE THREE.                             F6P02290
       CLA 1,4                                                          F6P02300
       STD WR4                                                          F6P02310
       LXD BUFF-1,1                                                     F6P02320
 WR4   TXI WR3,1,**                                                     F6P02330
 WR3   SXD WR1,1         SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE  F6P02340
       REM               PLUS DECREMENT OF 1,4                          F6P02350
       LXA ONE,1                                                        F6P02360
 WR2   CPY BUFF,1        WRITE WORD FROM BUFFER ONTO TAPE THREE         F6P02370
       TXI WR1,1,1                                                      F6P02380
 WR1   TXL WR2,1,24      TEST END OF CARD.                              F6P02390
       IOD                                                              F6P02400
       TRA 2,4           RETURN TO PROG. EXIT POINT PLUS 2.             F6P02410
 SUB1  LXA RDC,2         READ LIBRARY TAPE RECORD.                      F6P02420
       TRA RD                     ROUTINE                               F6P02430
 ERR   BST 1             READ-ERROR PROCEDURE.                          F6P02440
       TIX RD,2,1                                                       F6P02450
       TSX OUTER,4                                                      F6P02460
 RDC   HPR 5                                                            F6P02470
 RD    RTB 1             SELECT TAPE 1,                                 F6P02480
       LXD ONE,1         SET XR1=0.                                     F6P02490
 SUBA  CPY BUFF-1,1      COPY RECORD INTO BUFF-1,-2,...                 F6P02500
       TXI SUBA,1,1                                                     F6P02510
       TRA 1,4           EOF                                            F6P02520
       ARS 255                                                          F6P02530
       ARS 255           EOR                                            F6P02540
       RTT                                                              F6P02550
       TRA ERR                                                          F6P02560
       CLA RCT           INCREASE RECORD COUNT BY ONE                   F6P02570
       ADD ONE                                                          F6P02580
       STO RCT                                                          F6P02590
       TRA 2,4           AND RETURN TO PROGRAM EXIT PLUS 2.             F6P02600
 PRINT CLA 1,4           TO WRITE A BCD RECORD ON TAPE TWO.             F6P02610
       PDX 0,2                                                          F6P02620
       TXL NONE,2                                                       F6P02630
 D7    WTD 2                                                            F6P02640
       STA POOP                                                         F6P02650
 POOP  CPY *,2                                                          F6P02660
       TIX POOP,2,1                                                     F6P02670
       IOD                                                              F6P02680
 NONE  TRA 2,4                                                          F6P02690
 SPACE WTD 2             WRITE A WORD OF BLANKS ON TAPE TWO.            F6P02700
       CPY BLANKS                                                       F6P02710
       TRA PRINT                                                        F6P02720
 WLL   SXD IR4,4         PREPARE TO WRITE FINAL RECORD ON TAPE TWO,     F6P02730
       TXI ME20,2,2                                                     F6P02740
 ME20  PXD 0,2                                                          F6P02750
       STO LND                                                          F6P02760
       ARS 18                                                           F6P02770
       STA LND                                                          F6P02780
       CLA LNE                                                          F6P02790
       SUB LND                                                          F6P02800
       STO LND                                                          F6P02810
       TSX PRINT,4       AND GO WRITE IT.                               F6P02820
 LND                                                                    F6P02830
       LXD IR4,4                                                        F6P02840
       TRA 1,4                                                          F6P02850
 LOOP3 ADD THRDE                                                        F6P02860
       STD A27                                                          F6P02870
       LXD FR4,1                                                        F6P02880
 A28   LXA LIBCT,2                SUBROUTINE IN TVR                     F6P02890
       CLA BUFF-1,1      SELECT NAME FROM SUBROUTINE TRANS. VEC.        F6P02900
 A24   CAS LIBF,2        SELECT NAME FROM LIBF TABLE.                   F6P02910
       TRA A23           NOT EQUAL                                      F6P02920
       TRA A26           SUBROUTINE IS IN LIBF.                         F6P02930
 A23   TIX A24,2,1       NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS.  F6P02940
       TRA A25           NO. NOT IN LIBF.                               F6P02950
 A26   TXI A27,1,1       ANY MORE NAMES IN SUBROUT. TRANS. VECTOR.      F6P02960
 A27   TXL A28,1,*       YES.                                           F6P02970
       TRA 1,4           NO, RETURN TO PROGRAM                          F6P02980
 A25   CLA TVR-1         SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE.    F6P02990
       STD A31                    IF NOT ALREADY IN                     F6P03000
       LXD ONEDE,2                                                      F6P03010
       TZE EXT2          TRANSFER IF NO ENTRIES IN TVR TABLE            F6P03020
       CLA BUFF-1,1      SELECT THE NAME FROM SUBROUT. TR. VECTOR.      F6P03030
 A32   CAS TVR-1,2       IS IT IN THE TVR TABLE.                        F6P03040
       TRA A30                                                          F6P03050
       TRA A26           YES, TRANSFER.                                 F6P03060
 A30   TXI A31,2,1                                                      F6P03070
 A31   TXL A32,2,*                                                      F6P03080
       STO TVR-1,2       NO. PUT IT THERE, UP0ATE COUNT OF TVR TABLE.   F6P03090
       SXD TVR-1,2                                                    + F6P03100
       TRA A26                                                          F6P03110
 EXT2  CLA BUFF-1,1      SELECT NAME FROM SUBR. TRANS. VEC. AND         F6P03120
       TRA A31+1         GO STORE IT.                                   F6P03130
 CHSUM LXA TWO,1         COMPUTE CHECK SUM AND STORE IT IN BUFF-2.      F6P03140
       CAL BUFF-1                                                       F6P03150
 B6    ACL BUFF-1,1                                                     F6P03160
       TXI B5,1,1                                                       F6P03170
 B5    TXL B6,1,23                                                      F6P03180
       SLW BUFF-2                                                       F6P03190
       TRA 1,4                                                          F6P03200
 SUB2  SXD IR4,4                                                        F6P03210
       CAL BLANKS                                                       F6P03220
       SLW LIN+1,2       STORE BLANKS IN BOTH WORDS OF ENTRY.           F6P03230
       SLW LIN+2,2                                                      F6P03240
 CNS   LDQ NAME          ASSENBLE BCD REPRESENTATION OF                 F6P03250
       LXA SIX,4         SUBROUTINE NAME.                               F6P03260
 SIX   LGL 6                                                            F6P03270
       SLW SYM                                                          F6P03280
       ANA 6BITS                                                        F6P03290
       SUB BLANK                                                        F6P03300
       TZE CNA                                                          F6P03310
       CAL SYM                                                          F6P03320
       SLW LIN+2,2       STORE IT IN WORD TWO OF ENTRY.                 F6P03330
       TIX SIX,4,1                                                      F6P03340
 CNA   TIX EXIT,2,2      RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350
       TSX PRINT,4       RECORD FULL. GO WRITE IT.                      F6P03360
 LNC       LIN+1,,20                                                    F6P03370
       LXD LNC,2         RESET RECORD LENGTH COUNTER                    F6P03380
 EXIT  LXD IR4,4         AND RETURN TO PROGRAM                          F6P03390
       TRA 1,4                                                          F6P03400
 IR4       0,0,0                                                        F6P03410
BLANKS BCD 1                                                            F6P03420
 BLANK BCD 100000                                                       F6P03430
 6BITS OCT 77                                                           F6P03440
 TEN   DEC 10                                                           F6P03450
 LOC   DEC 0                                                            F6P03460
       BCD 7                                                            F6P03470
       BCD 6  SUBROUTINES PUNCHED FROM LIBRARY                          F6P03480
       BCD 7                                                            F6P03490
 FOUND BSS                                                              F6P03500
       BCD 7                                                            F6P03510
       BCD 6SUBROUTINES NOT PUNCHED FROM LIBRARY                        F6P03520
       BCD 7                                                            F6P03530
 LOST  BSS                                                              F6P03540
 ERASE CLA TVR-1         DECREASE WD CT OF TVR BY ONE.                  F6P03550
       SUB ONEDE                                                        F6P03560
       STD TVR-1                                                        F6P03570
       STD NEXT                                                         F6P03580
       TZE EXT1          TEST FOR ANY WORDS LEFT IN TVR TABLE.          F6P03590
 SKIP  CLA TVR-2,2                                                      F6P03600
       STO TVR-1,2       MOVE UP ENTRIES IN TVR TABLE                   F6P03610
       TXI NEXT,2,1                                                     F6P03620
 NEXT  TXL SKIP,2,*                                                     F6P03630
       TRA 1,4           EXIT TO PROGRAM                                F6P03640
 EXT1  STZ TVR-2         WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650
       TRA 1,4           TVR-2 AND RETURN TO PROGRAM.                   F6P03660
 OUTER REW 1                                                            F6P03670
       RTB 1                                                            F6P03680
       RTB 1                                                            F6P03690
       TRA 4                                                            F6P03700
 ONEDE     0,0,1                                                        F6P03710
 SUM                                                                    F6P03720
 RCT       IN ADDRESS                                                   F6P03730
 LIBCT        (ADDRESS)                                                 F6P03740
 PASCT        (ADDRESS)                                                 F6P03750
 CTF          (ADDRESS)                                                 F6P03760
 VLENG     0,0,                                                         F6P03770
 FR4       0,0,4                                                        F6P03780
 L20       20,0,0                                                       F6P03790
 TWODE     0,0,2                                                        F6P03800
 L20D      0,0,20                                                       F6P03810
 L22D      0,0,22                                                       F6P03820
 THRDE     0,0,3                                                        F6P03830
 NAME  HTR 0                                                            F6P03840
 SYM   HTR 0                                                            F6P03850
 LNE       LIN+3,,22                                                    F6P03860
 BUFF  BES 200                                                          F6P03870
 TVR   BES 900                                                          F6P03880
 LIBF  BES 300                                                          F6P03890
       BSS 19                                                           F6P03900
 LIN   BSS 1                                                            F6P03910
       REM                                                              F6P03920
       REM PUNCH BINARY LOADER IF CARDS ARE OUTPUT                      F6P03930
       REM AND IF MAIN ROUTINE, PUNCH PROGRAM                           F6P03940
 RECQ  CLA ONE           ARE CARDS OUTPUT                               F6P03950
       CAS SW1                                                          F6P03960
       TRA WLP1          EQUALS ZERO. ASSUME SWITCH UP, GO PUNCH CARDS. F6P03970
       TRA OUT           EQUALS ONE, ASSUME SWITCH DOWN. NO CARD OUPUT. F6P03980
       SWT 1             TEST SWITCH ONE.                               F6P03990
       TRA WLP1          UP SO GO TO PUNCH ON LINE.                     F6P04000
       TRA OUT           DOWN SO GO TO RETURN TO LOADER.                F6P04010
 WLP1  CLA SUBIN         TEST FOR SUB DEF.                              F6P04020
       TNZ RTF           IF SOURCE PROG IS A SUBROUTINE, GO READ TAPE 3 F6P04030
       LXA WPLV,1        MAIN ROUTINE. PUNCH LOADER.                    F6P04040
 WPL2  LXD WPLV,2        SET CARD LENGTH.                               F6P04050
       WPU               SELECT PUNCH.                                  F6P04060
 WPL3  TNX WPL2,2,1      TRANSFER IF CARD FULL.                         F6P04070
       CPY ZER+216,1     COPY LOADER WORD.                              F6P04080
       TIX WPL3,1,1      TRANSFER IF NOT FINISHED PUNCHING LOADER.      F6P04090
 RTF   LXA ONE,1         SET IR1 EQUAL ONE.                             F6P04100
 RT9   SXD RT1,1         SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110
       LXD RT2,2         SET IR2 EOUAL FIVE FOR READ-ERROR COUNTER.     F6P04120
 RTR   RTB 3             READ TAPE THREE.                               F6P04130
       LXD RT3,4         SET IR4 EQUAL 24.                              F6P04140
 RT7   CPY TRB,1         COPY BINARY INST. INTO STORAGE.                F6P04150
       TXI RT4,1,1       INCREASE WORD COUNT ONE.                       F6P04160
 RT2   TXI TEF,,5        END OF FILE ON TAPE 3.                         F6P04170
 RTZ   STZ TRB,1,6*4096  EOR STORE ZERO.                                F6P04180
       TXI RT6,1,1       INCREASE WORD COUNT BY ONE                     F6P04190
 RT6   TIX RTZ,4,1       FILL OUT CARD (IN STORAGE) WITH ZEROS.         F6P04200
       TXI RT5                                                          F6P04210
 RT4   TIX RT7,4,1       MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220
       REM               FILLED.                                        F6P04230
       CPY DUMP          NO INDEX IN XR4 IS AN ERROR HERE,              F6P04240
       TRA RTE           SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTH,  F6P04250
       TSX OUTER,4                                                      F6P04260
 RT5   IOD                                                              F6P04270
       ARS 255           CHECK FOR TAPE CHECK.                          F6P04280
       ARS 255                                                          F6P04290
       RTT                                                              F6P04300
       TRA RTE           GO TO READ ERROR PROCEDURE.                    F6P04310
 RTA   LXD RT1,1         TAPE READ OKAY. ADD 24 (FOR CARD JUST READ)    F6P04320
 RT3   TXI RT8,1,24      TO WORD COUNT.                                 F6P04330
 RT8   TXL RT9,1,24*25   TEST END OF PUNCH BLOCK.                       F6P04340
       LXA ZERO,4        BLOCK FULL. SET XR4 EQUAL ZERO,                F6P04350
 PIC   LXA ONE,1         AND PUNCH OUT PUNCH BLOCK.                     F6P04360
 PC3   WPU               PUNCH CARD.                                    F6P04370
       LXD RT3,2         SET XR2 EQUAL 24                               F6P04380
 PC2   CPY TRB,1                                                        F6P04390
       TXI *+1,1,1                                                      F6P04400
       TIX PC2,2,1       TRANSFER IF NOT END OF CARD.                   F6P04410
 RT1   TXL PC3,1,**      END OF PUNCH BLOCK TEST. TRANS. IF NOT END.    F6P04420
       TXL RTF,4         GO READ MORE FROM TAPE THREE.                  F6P04430
 PTC   WPU               PUNCH TW0 BLANK CARDS.                         F6P04440
       WPU                                                              F6P04450
 OUT   RTB 1             RETURN TO LOADER.                              F6P04460
       RTB 1                                                            F6P04470
       RTB 1                                                            F6P04480
       TRA 4                                                            F6P04490
       TIX                                                              F6P04500
 TEF   TNX PTC,1,24      HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO       F6P04510
       REM               PUNCH ENDING BLANKS IF YES.                    F6P04520
       SXD RT1,1         SAVE WORD COUNT OF PUNCH BLOCK,                F6P04530
       LXA ONE,4         AND GO PUNCH                                   F6P04540
       TRA PIC           FINAL BLOCK.                                   F6P04550
 RTE   TIX BST,2,1       READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560
       TSX OUTER,4       YES.                                           F6P04570
       HTR RTA                                                          F6P04580
 BST   BST 3             BACK SPACE TAPE 3                              F6P04590
       LXD RT1,1         AND RESET WORD COUNT TO ONE.                   F6P04600
       TRA RTR           GO READ TAPE 3.                                F6P04610
 DUMP  BSS 1                                                            F6P04620
 TRB   SYN ABSOP                                                        F6P04630
 WPLV      216,0,25                                                     F6P04640
 WRCC      0,0,32                                                       F6P04650
       BSS 40                                                           F6P04660
 ZER   BSS 216                                                          F6P04670
 ZRO   SYN ZER                                                          F6P04680
       ORG ZRO                                                          F6P04690
       REM BINARY LOADER AS OCTAL DATA                                  F6P04700
       OCT 053400100000                                                 F6P04710
       OCT 070000100002                                                 F6P04720
       OCT 177777100001                                                 F6P04730
       OCT 000000100000                                                 F6P04740
       OCT 476000000007                                                 F6P04750
       OCT 076200000321                                                 F6P04760
       OCT 070000177452                                                 F6P04770
       OCT 177777100006                                                 F6P04780
       OCT 000000000000                                                 F6P04790
       OCT 377470100005                                                 F6P04800
       OCT 453400177715                                                 F6P04810
       OCT 463400177715                                                 F6P04820
       OCT 060000077453                                                 F6P04830
       OCT 076200000321                                                 F6P04840
       OCT 070000000000                                                 F6P04850
       OCT 002000077500                                                 F6P04860
       OCT 000000000015                                                 F6P04870
       OCT 060000200000                                                 F6P04080
       OCT 200001200021                                                 F6P04890
       OCT 014000000024                                                 F6P04900
       OCT 002000000000                                                 F6P04910
       OCT 000000000000                                                 F6P04920
       OCT 000000000030                                                 F6P04930
       OCT 000000077777                                                 F6P04940
       OCT 050000000000                                                 F6P04950
       OCT 070000000001                                                 F6P04960
       OCT 412000077626                                                 F6P04970
       OCT 010000000015                                                 F6P04980
       OCT 060000077777                                                 F6P04990
       OCT 453400100000                                                 F6P05000
       OCT 700037177516                                                 F6P05010
       OCT 300040100000                                                 F6P05020
       OCT 062100000025                                                 F6P05030
       OCT 040000000026                                                 F6P05040
       OCT 062100000026                                                 F6P05050
       OCT 050000000001                                                 F6P05060
       OCT 062100077520                                                 F6P05070
       OCT 002000000015                                                 F6P05080
       OCT 062100000010                                                 F6P05090
       OCT 077100000017                                                 F6P05100
       OCT 473400400000                                                 F6P05110
       OCT 700001477524                                                 F6P05120
       OCT 007400277611                                                 F6P05130
       OCT 062100000010                                                 F6P05140
       OCT -50000000000                                                 F6P05150
       OCT 077100000022                                                 F6P05160
       OCT 040000000010                                                 F6P05170
       OCT 062100077531                                                 F6P05180
       OCT 453400200000                                                 F6P05190
       OCT 700000200000                                                 F6P05200
       OCT 062100077577                                                 F6P05210
       OCT 062100077601                                                 F6P05220
       OCT 062100077572                                                 F6P05230
       OCT 062100077566                                                 F6P05240
       OCT 062100077543                                                 F6P05250
       OCT 450000000000                                                 F6P05260
       OCT 700001477543                                                 F6P05270
       OCT 470000000007                                                 F6P05280
       OCT 470000000006                                                 F6P05290
       OCT 470000200000                                                 F6P05300
       OCT 200001277543                                                 F6P05310
       OCT 700000477551                                                 F6P05320
       OCT 700001400015                                                 F6P05330
       OCT 700002477551                                                 F6P05340
       OCT 700003477561                                                 F6P05350
       OCT 060200000000                                                 F6P05360
       OCT 050000000001                                                 F6P05370
       OCT 010000077557                                                 F6P05380
       OCT 040200000000                                                 F6P05390
       OCT 010000077557                                                 F6P05400
       OCT 042000000000                                                 F6P05410
       OCT 700001400015                                                 F6P05420
       OCT 300003477642                                                 F6P05430
       OCT 056000000006                                                 F6P05440
       OCT 050000000007                                                 F6P05450
       OCT 476300000001                                                 F6P05460
       OCT 060200000007                                                 F6P05470
       OCT 012000077573                                                 F6P05480
       OCT 050000100000                                                 F6P05490
       OCT 077100000022                                                 F6P05500
       OCT 007400277604                                                 F6P05510
       OCT 076700000022                                                 F6P05520
       OCT 062200100000                                                 F6P05530
       OCT 050000000007                                                 F6P05540
       OCT 476300000001                                                 F6P05550
       OCT 060200000007                                                 F6P05560
       OCT 012000077602                                                 F6P05570
       OCT 050000100000                                                 F6P05580
       OCT 007400277604                                                 F6P05590
       OCT 062100100000                                                 F6P05600
       OCT 200001177562                                                 F6P05610
       OCT 002000000015                                                 F6P05620
       OCT 062100000010                                                 F6P05630
       OCT 050000000007                                                 F6P05640
       OCT 476300000001                                                 F6P05650
       OCT 060200000007                                                 F6P05660
       OCT 412000077612                                                 F6P05670
       OCT 076000000141                                                 F6P05680
       OCT 050200000010                                                 F6P05690
       OCT 040000000025                                                 F6P05700
       OCT 012000077622                                                 F6P05710
       OCT 476000000141                                                 F6P05720
       OCT 002000077624                                                 F6P05730
       OCT 050000000010                                                 F6P05740
       OCT 040100077520                                                 F6P05750
       OCT 002000200001                                                 F6P05760
       OCT 476000000141                                                 F6P05770
       OCT 002000077617                                                 F6P05780
       OCT 040200000026                                                 F6P05790
       OCT 002000200001                                                 F6P05800
       OCT 473400200000                                                 F6P05810
       OCT 700000277770                                                 F6P05820
       OCT 040000077771                                                 F6P05830
       OCT 040000077640                                                 F6P05840
       OCT 062200077713                                                 F6P05850
       OCT 040200077715                                                 F6P05860
       OCT 062200077667                                                 F6P05870
       OCT 036100000000                                                 F6P05880
       OCT 040200077640                                                 F6P05890
       OCT 077100000022                                                 F6P05900
       OCT 200002277641                                                 F6P05910
       OCT 007400477536                                                 F6P05920
       OCT 453400177771                                                 F6P05930
       OCT 050000077777                                                 F6P05940
       OCT 010000077652                                                 F6P05950
       OCT 050000000007                                                 F6P05960
       OCT 060100177451                                                 F6P05970
       OCT 050000000006                                                 F6P05980
       OCT 060100177452                                                 F6P05990
       OCT 200002177704                                                 F6P06000
       OCT 050000000026                                                 F6P06010
       OCT 060000177451                                                 F6P06020
       OCT 060100177452                                                 F6P06030
       OCT 453400400007                                                 F6P06040
       OCT 300000477661                                                 F6P06050
       OCT 050000077776                                                 F6P06060
       OCT 060100177451                                                 F6P06070
       OCT 050000000007                                                 F6P06080
       OCT 062200177451                                                 F6P06090
       OCT 062100000025                                                 F6P06100
       OCT 040000000026                                                 F6P06110
       OCT 062100000026                                                 F6P06120
       OCT 073400200000                                                 F6P06130
       OCT 300000200003                                                 F6P06140
       OCT 050000077520                                                 F6P06150
       OCT 040200000006                                                 F6P06160
       OCT 073400400000                                                 F6P06170
       OCT 475400400000                                                 F6P06180
       OCT 077100000022                                                 F6P06190
       OCT 010000077677                                                 F6P06200
       OCT 034000000027                                                 F6P06210
       OCT 050000000027                                                 F6P06220
       OCT 076100000000                                                 F6P06230
       OCT 060100000027                                                 F6P06240
       OCT 040200000026                                                 F6P06250
       OCT 412000077453                                                 F6P06260
       OCT 463400277777                                                 F6P06270
       OCT 060000000007                                                 F6P06280
       OCT 100002177707                                                 F6P06290
       OCT 050000177452                                                 F6P06300
       OCT 007400277604                                                 F6P06310
       OCT 062100177452                                                 F6P06320
       OCT 100002177713                                                 F6P06330
       OCT 700000177707                                                 F6P06340
       OCT 463400177771                                                 F6P06350
       OCT 677452000015                                                 F6P06360
       OCT 450000277453                                                 F6P06370
       OCT 410000077723                                                 F6P06380
       OCT 050000277454                                                 F6P06390
       OCT 062100000024                                                 F6P06400
       OCT 002000077770                                                 F6P06410
       OCT 432000077776                                                 F6P06420
       OCT 410000077770                                                 F6P06430
       OCT 050000277453                                                 F6P06440
       OCT 473400400000                                                 F6P06450
       OCT 077100000022                                                 F6P06460
       OCT 040000277454                                                 F6P06470
       OCT 062100077736                                                 F6P06480
       OCT 062100077764                                                 F6P06490
       OCT 062100077766                                                 F6P06500
       OCT 062100077741                                                 F6P06510
       OCT 453400177771                                                 F6P06520
       OCT 450000400000                                                 F6P06530
       OCT 432000077776                                                 F6P06540
       OCT 010000077767                                                 F6P06550
       OCT 050000400000                                                 F6P06560
       OCT 034000177453                                                 F6P06570
       OCT 002100077745                                                 F6P06580
       OCT 002000077763                                                 F6P06590
       OCT 200002177742                                                 F6P06600
       OCT 060100000006                                                 F6P06610
       OCT 453400177753                                                 F6P06620
       OCT 050000177477                                                 F6P06630
       OCT 010000077757                                                 F6P06640
       OCT 034000000006                                                 F6P06650
       OCT 600024077755                                                 F6P06660
       OCT 002000077767                                                 F6P06670
       OCT 200001177750                                                 F6P06680
       OCT 000000077770                                                 F6P06690
       OCT 050000000006                                                 F6P06700
       OCT 060100177477                                                 F6P06710
       OCT 060000177500                                                 F6P06720
       OCT 002000077767                                                 F6P06730
       OCT 050000077743                                                 F6P06740
       OCT 060100400000                                                 F6P06750
       OCT 050000177454                                                 F6P06760
       OCT 062100400000                                                 F6P06770
       OCT 200001477735                                                 F6P06780
       OCT 100002277771                                                 F6P06790
       OCT 700000277716                                                 F6P06800
       OCT 050000077453                                                 F6P06810
       OCT 410000077775                                                 F6P06620
       OCT 100324200021                                                 F6P06830
       OCT 000000000014                                                 F6P06840
       OCT 700000000000                                                 F6P06850
       OCT 000000000000                                                 F6P06860
       END                                                              F6P06870
       REM PST                                                                                              
       REM APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.                
       REM T04 FORTRAN II / SECTI0N ONE.                   29 OCT 58            
       REM 8K VERSION WITHOUT CODING ON DRUMS.                                  
       REM                                                                      
       REM SECTI0N 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIE4F10000 
       REM FORMULAS, COMPILES THE OBJECT (OUTPUTI INSTRUCTIONS. FOR     4F10001 
       REM N0NARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A      4F10002 
       REM PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION   4F10003 
       REM IN TABLES.                                                   4F10004 
       REM            THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE=        4F10005 
       REM COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006 
       REM TNROUGHOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL     4F10007 
       REM STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B,   4F10008 
       REM C, AND D TREAT ARITHMETIC FORMULAS.                          4F10009 
       REM                                                              4F10010 
       REM SECTION 1 / COMMON =                                         4F10011 
       REM 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000.          4F10012 
       WST 10,1                                                                 
       ORG 0                                                            4F100121
       PZE ORGCOM,,1TOCS                                                4F100122
       PZE STATEB-1                                                     4F100123
       REM                                                              4F10013 
       REM PART I / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10014 
       REM                           EIFNO AND SENSE SWITCH SIMULATORS. 4F10015 
       REM                           TAPE TABLE BUFFERS.                4F10016 
       REM                           TAPE TABLE PARAMETERS - INTET.     4F10017 
       REM                           DRUM TABLE PARAMETERS.             4F10018 
       REM                           FORSUB COUNT AND BUFFER.           4F10019 
       REM                           CIB BUFFER AND PARAMETERS.         4F10020 
       REM                           REMAINING WORKING STORAGE.         4F10021 
       REM PART 2 / CONSTANTS USED BY SECTION ONE.                      4F10022 
       REM PART 3 / SUBROUTINES USED BY SECTION ONE=                    4F10023 
       REM NAME                      FUNCTION                           4F10024 
       REM C0I50,2                   SCAN, AND CONVERT NUMERICS.        4F10025 
       REM C0160,2                   SCAN CHARACTERS.                   4F10026 
       REM C0180,Z                   CONVERT NUMERICS.                  4F10027 
       REM C0I90X,4                  INITIALIZE C0190 TO 1ST WORD OF F. 4F10028 
       REM C0390,4                   INSERT CHARACTER.                  4F10029 
       REM C0190,4                   OBTAIN NEXT NON-BLANK CHAR IN AC.  4F10030 
       REM CIT00,4                   COMPILED INSTRUCTION TABLE ENTRIES.4F10031 
       REM DIM.SR,4                  DIMENSION TABLE SEARCH.            4F10032 
       REM DRTABS(,4)                DRUM TABLE ENTRIES.                4F10033 
       REM 0ETIFN,4                  GET INTERNAL FORMULA NUMBER.       4F10034 
       REM JIF(GIF),4                JUMPS (GETS) IFN IN SL AND TL.     4F10035 
       REM MTR000                    MONITOR STATES FROM DRUM.          4F10036 
       REM RA000,4                   COMPUTE RELATIVE ADDRESS.          4F10037 
       REM RDRX,4                    READ DRUM INTO BUFR.               4F10038 
       REM SR6DCI,1                  CONVERT 6 BCD DIGITS TO 1 BINARY.  4F10039 
       REM SS000,4                   SOAN AND PR0CESS SUBSCRIPTS.       4F10040 
       REM SUBX00,4                  ADD BLANKS TO SUBROUTINE NAMES.    4F10041 
       REM TESTFX,1                  TEST FOR FIXED OR FLOATING POINT.  4F10042 
       REM TEST..,4                  TEST CHARACTER IN THE AC.          4F10043 
       REM TET00,1                   TAPE TABLE ENTRIES.                4F10044 
       REM                                                              4F10045 
       REM DIAG                      DIAGNOSTIC OALLERS.                4F10046 
       REM                                                              4F10047 
       REM TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING=          4F10048 
       REM                                                              4F10049 
       REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION       4F10050 
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F10051 
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F   4F10052 
       REM TNIS LOGICAL BLOCK OR SUBROUTINE.                            4F10053 
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F10054 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F10055 
       REM                                                              4F10056 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057 
       REM                                                              4F10058 
       REM COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10059 
ORGCOM ORG 24                                                           4F10060 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061 
       REM                                                              4F10062 
       REM EIFNO AND SENSE SWITCH SIMULATORS.                           4F10063 
EIFNO  PZE **,,**                    EXTERNAL,,INTERNAL FORMULA NUMBER. 4F10064 
ENDI1  PZE 2                         SIMULATOR FOR SENSE SWITCH 1.      4F10065 
ENDI2  PZE 2                         SIMULATOR FOR SENSE SWITCH 2.      4F10066 
ENDI3  PZE 2                         SIMULATOR FOR SENSE SWITCH 3.      4F10067 
ENDI4  PZE 2                         SIMULATOR FOR SENSE SWITCH 4.      4F10068 
ENDI5  PZE 2                         SIMULATOR FOR SENSE SWITCH 5.      4F10069 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070 
       REM                                                              4F10071 
       REM BUFFERS USED BY TET00 FOR THE TAPE TABLES.                   4F10072 
TEIFNO BSS 10                        EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073 
TDO    BSS 10                        DO STATEMENTS.                     4F10074 
TIFGO  BSS 10                        IF AND GO TO STATEMENTS.           4F10075 
TRAD   BSS 10                        IF AND GO TO TRANSFER ADDRESSES.   4F10076 
FORTAG BSS 10                        INDEXES TO TAU AND SIGMA TABLES.   4F10077 
FORVAR BSS 10                        RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078 
FORVAL BSS 10                        LEFT  - NON-SUB. FX. PT. VARIABLES.4F10079 
FRET   BSS 10                        FREQUENCY STATEMENTS.              4F10080 
EQUIT  BSS 10                        EQUIVALENCE STATEMENTS.            4F10081 
CLOSUB BSS 10                        NAMES OF SUBROUTINES.              4F10082 
FORMAT BSS 10                        FORMAT STATEMENTS.                 4F10083 
SUBDEF BSS 10                        SUBROUTINE DEFINITION STATEMENTS.  4F10084 
COMMON BSS 10                        UPPER MEMORY STORAGE STATEMENTS.   4F10085 
NOLARG BSS 10                        HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086 
NONEXC BSS 10                        NON-EXECUTED STATEMENTS.           4F10087 
TSTOPS BSS 10                        STOP STATEMENTS.                   4F10088 
CALLFN BSS 10                        1ST / LAST IFN FOR CALL STATEMENTS.4F10089 
FMTEFN BSS 10                        TABLE OF FORMAT EXTERNAL FORMNOS.  4F10090 
       REM  FND OF THE TAPE TABLE BUFFERS.                              4F10091 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092 
       REM                                                              4F10093 
       REM INTET/ TABLE PARAMETERS USED BY TET00, WHERE                 4F10094 
       REM                           O = ORIGIN OF TABLE BUFFER,        4F10095 
       REM                           B = BUFFER CAPACITY,               4F10096 
       REM                           A = ADDRESS OF TABLE ENTRY,        4F10097 
       REM                           E = ENTRY LENGTH IN WORDS,         4F10098 
       REM                           C = COUNT OF BLOCKS PUT ON TAPE,   4F10099 
       REM                           P = PORTION OF BUFFER THAT IS FULL.4F10100 
       REM                                                              4F10101 
INTET  PZE TEIFNO,,10                00) O,,B.                          4F10102 
       PZE EIFNO,,1                      A,,E.                          4F10103 
       PZE **,,**                        C,,P.                          4F10104 
       REM                                                              4F10105 
       PZE TDO,,10                   01) O,,B.                          4F10106 
       PZE 1C,,5                         A,,E.                          4F10107 
       PZE **,,**                        C,,P.                          4F10108 
       REM                                                              4F10109 
       PZE TIFGO,,10                 02) O,,B.                          4F10110 
       PZE 1C,,2                         A,,E.                          4F10111 
       PZE **,,**                        C,,P.                          4F10112 
       REM                                                              4F10113 
       PZE TRAD,,10                  03) O,,B.                          4F10114 
       PZE 1G,,1                         A,,E.                          4F10115 
       PZE **,,**                        C,,P.                          4F10116 
       REM                                                              4F10117 
       PZE FORTAG,,10                04) 0,,B.                          4F10118 
       PZE G,,1                          A,,E.                          4F10119 
       PZE **,,**                        C,,P.                          4F10120 
       REM                                                              4F10121 
       PZE FORVAR,,10                05) O,,B.                          4F10122 
       PZE G,,2                          A,,E.                          4F10123 
       PZE **,,**                        C,,P.                          4F10124 
       REM                                                              4F10125 
       PZE FORVAL,,10                06) O,,B.                          4F10126 
       PZE G,,2                          A,,E.                          4F10127 
       PZE **,,**                        C,,P.                          4F10128 
       REM                                                              4F10129 
       PZE FRET,,10                  07) O,,B.                          4F10130 
       PZE 1G,,1                         A,,E.                          4F10131 
       PZE **,,**                        C,,P.                          4F10132 
       REM                                                              4F10133 
       PZE EQUIT,,10                 06) O,,B.                          4F10134 
       PZE 1C,,2                         A,,E.                          4F10135 
       PZE **,,**                        C,,P.                          4F10136 
       REM                                                              4F10137 
       PZE CLOSUB,,10                09) O,,B.                          4F10138 
       PZE G,,1                          A,,E.                          4F10139 
       PZE **,,**                        C,,P.                          4F10140 
       REM                                                              4F10141 
       PZE FORMAT,,10                10) O,.B.                          4F10142 
       PZE G,,2                          A,,E.                          4F10143 
       PZE **,,**                        C,,P.                          4F10144 
       REM                                                              4F10145 
       PZE SUBDEF,,10                11) O,,0.                          4F10146 
       PZE 1G,,1                         A,,E.                          4F10147 
SBDFCN PZE **,,**                        O,,P.                          4F10148 
       REM                                                              4F10149 
       PZE COMMON,,10                12I O,,B.                          4F10150 
       PZE 1G,,1                         A,,E.                          4F10151 
       PZE **,,**                        O,,P.                          4F10152 
       REM                                                              4F10153 
       PZE NOLARG,,10                I3) 0,,0.                          4F10154 
       PZE 1G,,1                         A,,E.                          4F10155 
       PZE **,,**                        C,,P.                          4F10156 
       REM                                                              4F10157 
       PZE NONEXC,,10                14) O,,0.                          4F10158 
       PZE EIFNO,,1                      A,,E.                          4F10159 
       PZE **,,**                        C,,P.                          4F10160 
       REM                                                              4F10161 
       PZE TSTOPS,,10                15) O,,B.                          4F10162 
       PZE EIFNO,,1                      A,,E.                          4F10163 
       PZE **,,**                        C,,P.                          4F10164 
       REM                                                              4F10165 
       PZE CALLFN,,10                16) 0,,B.                          4F10166 
       PZE CALLNM,,1                     A,,E.                          4F10167 
       PZE **,,**                        C,,P.                          4F10168 
       REM                                                              4F10169 
       PZE FMTEFN,,10                17) O,,B.                          4F10170 
       PZE SET,,1                        A,,E.                          4F10171 
       PZE **,,**                        C,,P.                          4F10172 
       REM                                                              4F10173 
       BSS 3                         EXPANSION SPACE FOR INTET.         4F10174 
       REM  END OF TAPE TABLE PARAMETERS.                               4F10175 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176 
       REM                                                              4F10177 
       REM ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE               4F10178 
       REM                           ARG1 = 1ST LOCATION OF ARGUMENT,   4F10179 
       REM                           L    = LENGTH 0F ARGUMENT IN WORDS,4F10180 
       REM                           TDA  = LOc. OF NEXT DRUM ENTRY,    4F10181 
       REM                           N    = NO. OF ENTRIES ON DRUM,     4F10182 
       REM                           ***  = TXL FOR ENTRY SUM TABLES,   4F10183 
       REM                           ***  = TXH FOR BLOCK SUM TAB(FLCN),4F10184 
       REM                           FDA  = LOC. OF 1ST DRUM ENTRY,     4F10185 
       REM                           K    = BUFFER CAPACITY IN ENTRIES, 4F10186 
       REM                           DBL  = N*(L+I) FOR ENTRY SUM TABLE,4F10187 
       REM                           DBL  = K*L+I   FOR BLOCK SUM TABLE,4F10188 
       REM                           J    = DRUM CAPACITY IN ENTRIES,   4F10189 
       REM                           I    = 5 - DRUM NUMBER.            4F10190 
       REM                                                              4F10191 
       PZE G+1,,1                    FIXCON) ARG1+L,,L                  4F10192 
       PZE FIXCON,,**                        TDA,,N                     4F10193 
TXLOP  TXL FIXCON,,50*1                  *** FDA,,K*L                   4F10194 
       PZE 50*2,,100                         DBL,,J                     4F10195 
FXCNIX TXI ALT,,5-2                      TXI ALT,,I                     4F10196 
       REM                                                              4F10197 
       PZE G+1,,1                    FLOCON) ARG1+L,,L                  4F10198 
       PZE FLOCON,,**                        TDA,,N                     4F10199 
TXHOP  TXH FLOCON,,50*1                  *** FDA,,K*L                   4F10200 
       PZE 50*1+1,,450                       DBL,,J                     4F10201 
FLCNIX TXI ALT,,5-2                      TXI ALT,,I                     4F10202 
       REM                                                              4F10203 
       PZE E+3+2,,2                  TAU1  ) ARG1+L,,L                  4F10204 
       PZE TAU1,,**                          TDA,,N                     4F10205 
       TXL TAU1,,25*2                    *** FDA,,K*L                   4F10206 
       PZE 25*3,,100                         DBL,,J                     4F10207 
TAU1IX TXI ALT,,5-4                      TAI ALT,,I                     4F10208 
       REM                                                              4F10209 
       PZE E+3+4,,4                  TAU2  ) ARG1+L,,L                  4F10210 
       PZE TAU2,,**                          TDA,,N                     4F10211 
       TXL TAU2,,12*4                    *** FDA,,K*L                   4F10212 
       PZE 12*5,,90                          DBL,,J                     4F10213 
TAU2IX TXI ALT,,5-4                      TXI ALT,,I                     4F10214 
       REM                                                              4F10215 
       PZE E+3+6,,6                  TAU3  ) ARG1+L,,L                  4F10216 
       PZE TAU3,,**                          TDA,,N                     4F10217 
       TXL TAU3,,8*6                     *** FDA,,K*L                   4F10218 
       PZE 8*7,,75                           DBL,,J                     4F10219 
TAU3IX TXI ALT,,5-4                      TXI ALT,,I                     4F10220 
       REM                                                              4F10221 
       PZE E+11+1,,1                 SIGMA1) ARG1+L,,L                  4F10222 
       PZE SIGMA1+2,,1                       TDA,,N                     4F10223 
       TXL SIGMA1,,30*1                  *** FDA,,K*L                   4F10224 
       PZE 30*2,,30                          DBL,,J                     4F10225 
SIG1IX TXI ALT,,5-2                      TXI ALT,,I                     4F10226 
       REM                                                              4F10227 
       PZE 1C+2,,2                   DIM1  ) ARG1+L,,L                  4F10228 
       PZE DIM1,,**                          TDA,,N                     4F10229 
ORGDM1 TXL DIM1,,0                       *** FDA,,K*L                   4F10230 
       PZE 0,,100                            DBL,,J                     4F10231 
DIM1IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10232 
       REM                                                              4F10233 
       PZE 1C+2,,2                   DIM2  ) ARG1+L,,L                  4F10234 
       PZE DIM2,,**                          T0A,,N 4                   4F10235 
ORGDM2 TXL DIM2,,0                       *** FDA,,K*L                   4F10236 
       PZE 0,,100                            DBL,,J                     4F10237 
DIM2IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10238 
       REM                                                              4F10239 
       PZE 1C+3,,3                   DIM3  ) ARG1+L,,L                  4F10240 
       PZE DIM3,,**                          TDA,,N                     4F10241 
ORGDM3 TXL DIM3,,0                       *** FDA,,K*L                   4F10242 
       PZE 0,,90                             DBL,,J                     4F10243 
DIM3IX TXI DIMALT,,5-3                   TXI ALT,,I                     4F10244 
       REM  END OF DRUM TABLE PARAMETERS.                               4F10245 
       REM   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246 
       REM                                                              4F10247 
       REM COUNT AND,BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES.    4F10248 
BK     BSS 1                         FORSUB COUNTER.                    4F10249 
FORSUB BSS 100                       NAMES AND DEGREES OF FUNCTIONS.    4F10250 
       REM  END OF FUNCTION COUNT AND BUFFER.                           4F10251 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252 
       REM                                                              4F10253 
       REM PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE.        4F10254 
BS     PZE ,,100                     CIB CAPACITY (4 * 25).             4F10255 
EC     PZE ,,**                      ENTRY COUNT = NO. WORDS IN CIB.    4F10256 
BBOX   PZE ,,**                      2S COMPLEMENT OF THE ENTRY COUNT.  4F10257 
CIB    BSS 100                       COMPILED INSTRUCTION BUFFER.       4F10258 
       REM  END OF CIT PARAMETERS AND BUFFER.                           4F10259 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260 
       REM                                                              4F10261 
       REM ALL 0F THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262 
       ORG 576                                                          4F102625
ERASE  BSS 5                         C0MMON WORKING STORAGE.            4F10263 
1C     BSS 5                         C0MMON NORKING STORAGE.            4F10264 
1G     BSS 1                         COMMON NORKING STORAGE.            4F10265 
2G     BSS 1                         COMMON WORKING STORAGE FOR STATE A.4F10266 
3G     BSS 1                                                            4F10267 
1H     BSS 1                                                            4F10268 
2H     BSS 1                                                            4F10269 
3LBAR  BSS 1                         STORAGE USED BY ARITHMETIC.        4F10270 
ARERAS BSS 1                         STORAGE USED BY ARITHMETIC.        4F10271 
ARGCNT MZE 4,,1                      ARGUMENT COUNTER USED BY C30,C32.  4F10272 
ARGCTR BSS 1                         STORAGE USED BY ARITHMETIC.        4F10273 
CALLNM PZE **,,**                                                       4F10274 
CHSAVE BSS 1                         WORKING STORAGE USED BY ROYCNV.    4F10275 
DIMSAV BSS 1                         WORKING STORAGE USED BY SS000.     4F10276 
E      BSS 14                        WORKING STORAGE USED BY SS000.     4F10277 
EPSM3  BSS 3                                                            4F10278 
 EPS   BSS 1                         EPSILON - VARIABLE USED BY RA000.  4F10279 
E1C    BSS 1                         COMMON WORKING STORAGE.            4F10280 
 EFN   BSS 1                         EXTERNAL FORMULA NUMBER (F-1).     4F10281 
F      BSS 111                       ASSEMBLED STATEMENT REGION.        4F10282 
FIRSTC BSS 1                         USED BY SS000,TESTFX,C3000.        4F10283 
FSNAME BSS 1                         NAME OF FUNCTION.                  4F10284 
FT     BSS 12                        SOURCE PROGRAM INPUT BUFFER.       4F10285 
G      BSS 2                                                            4F10286 
 GTAG  BSS 1                         VARIABLE USED BY IOT, RA.          4F10287 
HOLCNT BCD 1H(0000                   WORKING STORAGE USED BY C3300.     4F10288 
I      BSS 1                                                            4F10289 
LEFT   BSS 3                         STORAGE USED BY ARITHMETIC.        4F10290 
LENGTH PZE **,,**                                                       4F10291 
NBAR   BSS 1                         STORAGE USED BY ARITHMETIC.        4F10292 
 N2    BSS 1                                                            4F10293 
OPNWRD BSS 1                         ERASABLE USED BY STATE D.          4F10294 
PHI(I) PZE **,,**                                                       4F10295 
 RAT   PZE 8,,**                     VARIABLE USED BY IOT.              4F10296 
RESIDU BSS 1                         REMAINDER OF F-REGION WORD.(C0190) 4F10297 
 SET   PON  ..                                                          4F10298 
 SL    BSS 1                                                            4F10299 
SYMBOL BSS 1                         WORKING STORAGE USED BY SS000.     4F10300 
 TL    PZE 31*8,,**                                                     4F10301 
TLINE  PZE **                        VARIABLE USED BY IOT.              4F10302 
       REM  END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS.     4F10303 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304 
       REM                                                              4F10305 
       REM C0MMON/2-CONSTANTS USED BY SECTION ONE=                      4F10306 
       REM                                                              4F10307 
TEN    OCT 12                        (1010) - CTEST-1I                  4F10308 
ENDMK  OCT 77                        111111 - CTEST-I0                  4F10309 
OPEN   OCT 74                        (      - CTEST-9                   4F10310 
COMMA  OCT 73                        ,      - CTEST-8                   4F10311 
CLOS   OCT 34                        )      - CTEST-7                   4F10312 
EQUAL  OCT 13                        =      - CTEST-6                   4F10313 
11Z    OCT 40                        -      - CTEST-5                   4F10314 
SLASH  OCT 61                        /      - CTEST-4                   4F10315 
POINT  OCT 33                        .      - CTEST-3                   4F10316 
12Z    OCT 20                        +      - CTEST-2                   4F10317 
STAR   OCT 54                        *      - CTEST-1                   4F10318 
CTEST  BSS 0                         ADDRESS USED FOR INDEXING ABOVE.   4F10319 
       REM                                                              4F10320 
L(0)   BCD 1000000                   0                                  4F10321 
L(1)   BCD 1000001                   1                                  4F10322 
L(2)   BCD 1000002                   2                                  4F10323 
L(3)   BCD 1000003                   3                                  4F10324 
L(4)   BCD 1000004                   4                                  4F10325 
L(5)   BCD 1000005                   5                                  4F10326 
L(6)   BCD 1000006                   6                                  4F10327 
L(7)   BCD 1000007                   7                                  4F10328 
L(8)   BCD 1000008                   8                                  4F10329 
L(9)   BCD 1000009                   9                                  4F10330 
MINUS  OCT 14                        -                                  4F10331 
L(C)   BCD 100000C                   C                                  4F10332 
L(F)   BCD 100000F                   F                                  4F10333 
L(H)   BCD 100000H                   H                                  4F10334 
CHAR2  OCT 32                        CONSTANT USED BY CD000.            4F10335 
L(O)   BCD 100000O                   O (ALPHABETIC)                     4F10336 
CHAR3  OCT 52                        CONSTANT USED BY CD000.            4F10337 
SPECOP OCT 53                        00000$                             4F10338 
BLANK  OCT 60                        000000000060                       4F10339 
L(S)   BCD 100000S                   S                                  4F10340 
L(T)   BCD 100000T                   T                                  4F10341 
L(X)   BCD 100000X                   X                                  4F10342 
L(Z)   BCD 100000Z                   Z                                  4F10343 
PM     OCT 72                        RECORD MARK (ILLEGAL) -CD000       4F10344 
BIT29  OCT 100                                                          4F10345 
 A81   DEC 81                        CONSTANT USED BY IOT.              4F10346 
L(96)  OCT 140                       USED BY C0500.                     4F10347 
L(112) OCT 160                       USED BY C0400.                     4F10348 
MASK3  OCT 777                                          ,ARITHMETIC.    4F10349 
1E9    OCT 1000                      A0DRESS=8                          4F10350 
L(A()  BCD 10000A(                   INTERNAL FLO-PT VARIABLE PREFIX.   4F10351 
L(H()  BCD 10000H(                                                      4F10352 
L(I()  BCD 10000I(                   INTERNAL FXD-PT VARIABLE PREFIX.   4F10353 
SAPSYM OCT 6212                                                         4F10354 
IFSYM  OCT 6712                                                         4F10355 
CALLER OCT 7112                                                         4F10356 
MASK2  OCT 77777                     2**15-I            -ARITHMETIC.    4F10357 
2E17   OCT 400000                    TAG=4                              4F10358 
2E18   OCT 1000000                   DECREMENT=1                        4F10359 
DECR1  PZE 1,,1                      CONSTANT USED BY DRTABS.           4F10360 
ABTAG2 OCT 1000002                   CONSTANT USED BY C3200.            4F10361 
 D2    PZE ,,2                       CONSTANT USED BY IOT.              4F10362 
ABTAG3 OCT 2000004                   CONSTANT USED BY C3200.            4F10363 
D3CN   PZE ,,3                       CONSTANT USED BY IOT.              4F10364 
BETAD2 OCT 3077775                   3*2**18+(-3)       -ARITHMETIC.    4F10365 
 D6    PZE ,,6                       CONSTANT USED BY IOT.              4F10366 
FSIND  PZE ,,16                                                         4F10367 
DEC17  PZE ,,17                                                         4F10368 
DEC18  PZE ,,18                                                         4F10369 
PZ     OCT 32000000                  PLUS ZERO -ED000.                  4F10370 
MASK5  OCT 37777600                                     -ARITHMETIC.    4F10371 
FNIND  PZE ,,32                                                         4F10372 
DEC35  PZE ,,35                                                         4F10373 
MZ     OCT 52000000                  MINUS ZERO -CD000.                 4F10374 
NGTBIT OCT 000200000000                                                 4F10375 
 BTA   PZE ,,144                     CONSTANT USED BY IOT.              4F10376 
BDA    PZE 0,0,192                   CONSTANT USED BY I0T.              4F10377 
5BLANS BCD 10                        006060606060                       4F10378 
E(     BCD 1100000                                      -ARITHMETIC.    4F10379 
I(     BCD 1200000                                      -ARITHMETIC.    4F10380 
A(     BCD 1300000                                      -ARITHMETIC.    4F10381 
P(     BCD 1400000                                      -ARITHMETIC.    4F10382 
O(     BCD 1600000                                      -ARITHMETIC.    4F10383 
X(     BCD 1700000                                      -ARITHMETIC.    4F10384 
BETAD1 OCT 77775077775               (-3(*2**18+(-3)    -ARITHMETIC.    4F10365 
1BAR   OCT 77777000000               (2**15-1)*2**18DECREMENT MASK.     4F10386 
 15P   DEC 15B5                      CONSTANT USED BY IOT.              4F10387 
PROCTR OCT 176060606060                                                 4F10388 
ADPLUS OCT 200000000000              ADDITION SIGN -ARITHMETIC.         4F10389 
FLOVAR BCD 1A(0000                   A( INTERNAL FLOATING PT. VARIABLE. 4F10390 
FXFX   BCD 1EXP(1                                                       4F10391 
FLFX   BCD 1EXP(2                                                       4F10392 
FLFL   BCD 1EXP(3                                                       4F10393 
FIXVAR BCD 1I(0000                   I( INTERNAL FIXED PT. VARIABLE.    4F10394 
MINUS0 MZE 0                                                            4F10395 
DECMI2 MZE ,,2                                                          4F10396 
ADSPOP OCT 530000000000              $00000                             4F10397 
DOLSGN OCT 536000000000              CONSTANT USED BY C32000            4F10398 
ADSTAR OCT -140000000000             MULTIPLICATION SIGN -ARITHMETIC.   4F10399 
STRSTR OCT -145400000000             EXPONENTIATION SIGN -ARITHMETIC.   4F10400 
BLANKS BCD 1                         606O60606060                       4F10401 
MASK1  OCT -377777700000             -(2**20-U.*2**15   -ARITHMETIC.    4F10402 
MASK4  OCT -377777777737                                -ARITHMETIC.    4F10403 
ALL1   OCT -377777777777             END OF STATEMENT WORD.             4F10404 
       REM                                                              4F10405 
L(ADD) BCD 1ADD000                   SYMBOLIC OPERATION CODE.           4F10406 
L(ALS) BCD 1ALS000                   SYMBOLIC OPERATION CODE.           4F10407 
L(ANA) BCD 1ANA000                   SYMBOLIC OPERATION CODE.           4F10408 
L(ARS) BCD 1ARS000                   SYMBOLIC OPERATION CODE.           4F10409 
L(BSS) BCD 1BSS000                   SYMBOLIC OPERATION CODE.           4F10410 
L(CAL) BCD 1CAL000                                                      4F10411 
L(CHS) BCD 1CHS000                   SYMBOLIC OPERATION CODE.           4F10412 
L(CLA) BCD 1CLA000                   SYMBOLIC OPERATI0N CODE.           4F10413 
L(CLM) BCD 1CLM000                   SYMBOLIC OPERATION CODE.           4F10414 
L(CLS) BCD 1CLS000                   SYMBOLIC OPERATION CODE.           4F10415 
L(CPY) BCD 1CPY000                                                      4F10416 
L(DCT) BCD 1DCT000                   SYMBOLIC OPERATION CODE.           4F10417 
L(DED) BCD 1DED000                                                      4F10418 
L(DVP) BCD 1DVP000                   SYMBOLIC OPERATION CODE.           4F10419 
L(FAD) BCD 1FAD000                   SYMBOLIC OPERATI0N CODE.           4F10420 
LIFDP) BCD 1FDP000                   SYMBOLIC OPERATION CODE.           4F10421 
L(FMP) BCD 1FMP000                   SYMBOLIC OPERATION CODE.           4F10422 
L(FSB) BCD 1FSB000                   SYMBOLIC OPERATION C0DE.           4F10423 
L(HPR) BCD 1HPR000                   SYMBOLIC OPERATION CODE.           4F10424 
L(LDA) BCD 1LDA000                                                      4F10425 
L(LDQ) BCD 1LDQ000                   SYMBOLIO OPERATION CODE.           4F10426 
L(LLS) BCD 1LLS000                   SYMBOLIC OPERATION CODE.           4F10427 
L(LRS) BCD 1LRS000                   SYMBOLIC OPERATION CODE.           4F10428 
L(LXD) BCD 1LXD000                   SYMBOLIC OPERATION CODE.           4F10429 
L(MPY) BCD 1MPY000                   SYMBOLIC OPERATION CODE.           4F10430 
L(MSE) BCD 1MSE000                   IDMBOLIC OPERATION CODE.           4F10431 
L(ORA) BCD 1ORA000                   SYMBOLIC OPERATION CODE.           4F10432 
L(PSE) BCD 1PSE000                   SYMBOLIC OPERATION CODE.           4F10433 
L(PXD) BCD 1PXD000                   SYMBOLIC OPERATION CODE.           4F10434 
L(QPR) BCD 1QPR000                   CONSTANT USED BY C3200.            4F10435 
L(QXD) BCD 1QXD000                   CONSTANT USED BY C3200.            4F10436 
L(STA) BCD 1STA000                   SYMBOLIC OPERATION CODE.           4F10437 
L(STO) BCD 1STO000                   SYMBOLIC OPERATION CODE.           4F10438 
L(STQ) BCD 1STQ000                   SYMBOLIC OPERATION CODE.           4F10439 
L(SUB) BCD 1SUB000                   SYMBOLIC OPERATION CODE.           4F10440 
L(SXD) BCD 1SXD000                   SYMBOLIC OPERATION C0DE.           4F10441 
L(TIX) BCD 1TIX001                                                      4F10442 
L(TOV) BCD 1TOV000                   SYMBOLIC OPERATION CODE.           4F10443 
L(TQO) BCD 1TQO000                   SYMBOLIC OPERATION CODE.           4F10444 
L(TRA) BCD 1TRA000                   SYMBOLIC OPERATION C0DE.           4F10445 
L(TSX) BCD 1TSX000                   SYMBOLIC OPERATION CODE.           4F10446 
L(UFA) BCD 1UFA000                   IYMBOLIC OPERATION CODE.           4F10447 
       REM  END 0F COMMON CONSTANTS USED BY SECTION ONE.                4F10448 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449 
       REM                                                              4F10450 
       REM COMMON/3-SUBROUTINES USED BY SECTION ONE=                    4F10451 
       REM                                                              4F10452 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453 
       REM                                                              4F10454 
       REM C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.         4F10455 
       REM C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456 
       REM = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-     4F10457 
       REM NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 
       REM UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.            4F10459 
C0150  SXD C015X,2                   SAVE THE C(XR2).                   4F10460 
       TSX C0190,4                 * TEST 1ST NON-BLANK CHARACTER       4F10461 
       CAS L(9)                      FOR NUMERIC OR NON-NUMERIC.        4F10462 
C015X  TXI C0151,0,**                IF NON-NUMERIC, TRANSFER.          4F10463 
       NOP                           IF NUMERIC, THEN                   4F10464 
       TSX C0180,2                 * GO CONVERT TO BINARY.              4F10465 
       STO 2G                        SAVE NEXT NON-NUMERIC CHARACTER.   4F10466 
       CLA L(0)                      PREPARE TO SET I T0 +0.            4F10467 
 FWA   TXI C0152,0,**                GO SET I FOR NUMERIC.              4F10468 
C0151  TSX C0160,2                 * ASSEMBLE NON-NUMERICS IN 1G.       4F10469 
       STO 2G                        SAVE PUNCTUATION MARK, AND         4F10470 
       CLS L(0)                      PREPARE TO SET I TO -0.            4F10471 
C0152  STO I                         SET I = +0, OR -0.                 4F10472 
       CLA 2G                        PICKUP NEXT CHARACTER,             4F10473 
       LXD C015X,2                   RESTORE THE C(XR2), AND            4F10474 
       TRA 1,2                     * RETURN TO CALLER.                  4F10475 
       REM  END OF PROGRAM C0150.                                       4F10476 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477 
       REM                                                              4F10478 
       REM C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,  4F10479 
       REM C1500,C3000,C3100,C0150.                                     4F10480 
       REM C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND  4F10481 
       REM SUOCESS.VE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482 
       REM IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A     4F10483 
       REM BLANK, IF LESS THAN 6 CHARACTERS.                            4F10484 
C0160  SXD C016X,2                   SAVE THE C(XR2), AND               4F10485 
       LXA L(0),2                    SET XR2 TO CONTROL SHIFTING.       4F10486 
       STZ 1G                        CLEAR WORKING STORAGE.             4F10487 
C0161  LXA CTESTX,4                  TEST                               4F10488 
C0162  CAS CTEST,4                   CHARACTER                          4F10489 
C016X  TXI C0163,0,**                IN THE AC                          4F10490 
       TXI C0165,0                   AGAINST                            4F10491 
C0163  TIX C0162,4,1                 ALL PUNCTUATION.                   4F10492 
       TXL C0164,2,30                IF SYMBOL EXCEEDS 6 CHARACTERS,    4F10493 
       TSX DIAG,4                  * GO TO THE DIAGNOSTIC.              4F10494 
C0164  ALS 30,2                      BUILD LEFT-ADJUSTED                4F10495 
       ORS 1G                        SYMBOL IN WORKING STORAGE.         4F10496 
       TSX C0190,4                 * GET NEXT NB CHARACTER IN THE AC.   4F10497 
       TXI C0161,2,6                 UPDATE SHIFT COUNT, AND CONTINUE.  4F10498 
C0165  TXH C0167,2,0                 IF PUNCTUATION IS 1ST CHARACTER,   4F10499 
C0166  TSX DIAG,4                  * OR ILLEGAL, GO TO THE DIAGNOSTIC.  4F10500 
C0167  TXL C0166,4,5                 IF LEGAL PUNCTUATION, THEN         4F10501 
       STO 1H  4                     SAVE, AND                          4F10502 
       CLA BLANK                     ADD A BLANK                        4F10503 
       ALS 30,2                      TO SYMBOLS THAT ARE LESS           4F10504 
       ORS 1G                        THAN 6 CHARACTERS IN LENGTH.       4F10505 
       CLA 1H                        PICKUP PUNCTUATION MARK,           4F10506 
       LXD C016X,2                   RESTORE THE C(XR2), AND            4F10507 
       TRA 1,2                     * RETURN TO CALLER.                  4F10508 
       REM  END OF PROGRAM C0160.                                       4F10509 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510 
       REM                                                              4F10511 
       REM C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,  4F10512 
       REM C1000,C1100,C1200,C1400,C1500,C0150.                         4F10513 
       REM C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ T0     4F10514 
       REM BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN   4F10515 
       REM THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.      4F10516 
C0180X TSX C0190,4                 * OBTAIN 1ST NUMERIC IN THE AC.      4F105165
C0180  STO 1G                        PLACE 1ST NUMERIC IN 1G.           4F10517 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F10518 
       CAS L(9)                      AND IF NON-NUMERIC, THEN           4F10519 
       TRA 1,2                     * RETURN TO CALLER.                  4F10520 
       NOP                           IF NUMERIC, THEN                   4F10521 
       STO 2G                        SAVE DIGIT IN 2G.                  4F10522 
       CLA 1G                        MULTIPLY                           4F10523 
       ALS 2                         C(1G)                              4F10524 
       ADD 1G                        BY                                 4F10525 
       ALS 1                         10,                                4F10526 
       ADD 2G                        AND ADD CURRENT DIGIT.             4F10527 
 DCF   TXI C0180,0,-F                REPEAT PR0CESS FOR NEXT CHARACTER. 4F10528 
       REM  END OF PR0GRAM C01080                                       4F10529 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530 
       REM                                                              4F10531 
       REM C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.             4F10532 
       REM C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F. 4F10533 
C0190X CLA DCF                       SET FORMULA WORD                   4F10534 
       STD FWA                       ADDRESS = -(F-REGION ADDRESS),     4F10535 
       SXD CHCTR,0                   SET CHARACTER C0UNT = 0,           4F10536 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10537 
       REM  END OF PROGRAM C0190X.                                      4F10538 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539 
       REM                                                              4F10540 
       REM C0390,4/ CALLERS=C0300,C3300.                                4F10541 
       REM C0390 INSERTS THE CHARACTER IN THE AC INT0 THE 1ST POSITION  4F10542 
       REM TO THE LEFT OF THAT DEFINED BY FWA AND XR1.                  4F10543 
C0390  CLA ENDMK                     PREPARE TO CHANGE                  4F10544 
       LXD FWA,2                     THE PROPER CHARACTER               4F10545 
       LXD CHCTR,1                   IN THE F-REGION.                   4F10546 
       TNX C0393,1,1                 ADJUST MASK                        4F10547 
C0392  LGL 6                         TO POSITION                        4F10548 
       TIX C0392,1,1                 CHARACTER.                         4F10549 
C0393  COM                           INVERT MASK, AND                   4F10550 
       ANS -1,2                      ERASE PROPER CHARACTER.            4F10551 
       LGL 36                        ADJUST CHARACTER, AND              4F10552 
       ORS -1,2                      INSERT IN ERASED POSITION.         4F10553 
       REM C0390 CONTINUES BY USING C0190.                              4F10554 
       REM                                                              4F10555 
       REM C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C0200,C0300,C0400,  4F10556 
       REM C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557 
       REM C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR.          4F10558 
       REM C0190 OBTAINS IN AC TH  NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 
C0190  SXD C0194,1                   SAVE THE C(XR1), AND               4F10560 
       LXD CHCTR,1                   SET XR1 = CHARACTER COUNT.         4F10561 
       LDQ RESIDU                    PICK UP ANY REMAINING CHARACTERS.  4F10562 
C0191  TIX C0193,1,1                 IF NONE,                           4F10563 
       LXD FWA,1                     PICK UP NEXT FORMULA               4F10564 
       LDQ 0,1                       WORD FROM F-REGION,                4F10565 
       TXI C0192,1,-1                AND INCREASE                       4F10566 
C0192  SXD FWA,1                     FORMULA WORD ADDRESS BY 1.         4F10567 
       LXA L(6),1                    RESET XR1 FOR 6 NEW CHARACTERS.    4F10568 
C0193  PXD ,0                        EXAMINE                            4F10569 
       LGL 6                         NEXT CHARACTER                     4F10570 
       CAS BLANK                     AND COMPARE WITH A BLANK.          4F10571 
C0194  TXI C0195,0,**                IF BLANK,                          4F10572 
CHCTR  TXI C0191,0,**                GO EXAMINE NEXT CHARACTER.         4F10573 
C0195  SXD CHCTR,1                   IF NOT BLANK, RESET CHAR COUNT,    4F10574 
       STQ RESIDU                    SAVE ANY REMAINING CHARACTERS,     4F10575 
       LXD C0194,1                   RESTORE THE C(XR1), AND            4F10576 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10577 
       REM  END OF PROGRAM C0190.                                       4F10578 
       REM * * * * * * * * * * *   * * * * * * * * * * * * * * * * * * *4F10579 
       REM                                                              4F10580 
       REM CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,  4F10581 
       REM C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),     4F10582 
       REM ETMSW(LTMSWI,LIB,VRA(VRD).                                   4F10583 
       REM CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN  4F10584 
       REM THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.    4F10585 
CIT00  SXD CITXR2,2                  SAVE THE C(XR2).                   4F10586 
       SXD CITXR1,1                  SAVE THE C(XR1).                   4F10587 
       STQ CITMQR                    SAVE THE C(MQR).                   4F10588 
       LXD BBOX,2                    SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589 
       CLA BS                        COMPARE BLOCK SIZE                 4F10590 
       SUB EC                        WITH ENTRY COUNT.                  4F10591 
       TNZ CIT04                     IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592 
       WRS CITTAP                    PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 
       PAX ,1                        SET XR1 = 0, AND                   4F10594 
CIT01  CPY CIB,1                     COPY SUCCESSIVE                    4F10595 
       TXI CIT02,1,-1                WORDS OF BLOCK                     4F10596 
CIT02  TXI CIT03,2,1                 AND CONTINUE                       4F10597 
CIT03  TXH CIT01,2,1                 UNTIL XR2 = 0.                     4F10598 
       IOD                           WHEN DONE,                         4F10599 
CIT04  LXA L(4),1                    SET XR1 = ENTRY SIZE.              4F10600 
CIT05  TXI CIT05+1,4,-1              SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601 
       CLA 0,4                       AND PICK UP ADDRESS OF NEXT ENTRY  4F10602 
       STA CIT06                     TO SET NEXT ADDRESS.               4F10603 
CIT06  CLA **                        MOVE ENTRY                         4F10604 
       STO CIB,2                     INTO CIB BUFFER,                   4F10605 
       TXI CIT07,2,-1                AND C0UNT -1 FOR EACH WORD ENTERED.4F10606 
CIT07  TIX CIT05,1,1                 WHEN DONE,                         4F10607 
       SXD BBOX,2                    SAVE THE C(XR2), AND               4F10608 
DMSR99 PXD DMSR05+1,2                COMPUTE THE                        4F10609 
       COM                           REAL NUMBER                        4F10610 
       ADD 2E18                      OF WORDS ENTERED                   4F10611 
DMSR98 PDX DMSR05,2                  IN CIB BUFFER, AND                 4F10612 
       SXD EC,2                      SAVE IN EC.                        4F10613 
       LDQ CITMQR                    RESTORE THE C(MQR),                4F10614 
       LXD CITXR1,1                  RESTORE THE C(XR1),                4F10615 
       LXD CITXR2,2                  RESTORE THE C(XR2I, AND            4F10616 
       TRA 1,4                     * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617 
       REM  END OF PROGRAM CIT00.                                       4F10618 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619 
       REM                                                              4F10620 
       REM DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.               4F10621 
       REM DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,  4F10622 
       REM DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.                4F10623 
       REM DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.                   4F10624 
DIM1SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10625 
       LXD DIM1IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM14F10626 
       CLA ORGDM1                    AND PICK UP 1ST ADDRESS 0F DIM1 TO 4F10627 
DMSR00 TXI DMSR01,0,**               GO SET DRUM ADDRESS.               4F10628 
       REM DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE.                   4F10629 
DIM2SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10630 
       LXD DIM2IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM24F10631 
       CLA ORGDM2                    AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 
DMSR01 STA DRMADR                    SET DRUM ADDRESS.                  4F10633 
       CLA DMSR99                    SET LOOP ADDRESS TO                4F10634 
       STA DMSR15                    DMSRO5+1 FOR DIM1 AND DIM2.        4F10635 
       CAL DMCN12                    (STZ D3)                           4F10636 
DMSR11 TXI DMSR02,0,**               GO SET OP FOR DIM1 AND DIM2.       4F10637 
       REM DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE.                   4F10638 
DIM3SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10639 
       LXD DIM3IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM34F10640 
       CLA ORGDM3                    AND PICK UP 1ST ADDRESS 0F DIM3 TO 4F10641 
       STA DRMADR                    SET DRUM ADDRESS.                  4F10642 
       CLA DMSR98                    SET LOOP ADDRESS TO                4F10643 
       STA DMSR15                    DMSR05 FOR DIM3.                   4F10644 
       CAL DMCN3                     (CPY D3)                           4F10645 
DMSR02 SLW DMSR05   4                SET OP CODES ACCORDING             4F10646 
       SLW DMSR07                    TO DIMENSION.                      4F10647 
       TXL DMSR08,4,0                IF TABLE IS EMPTY, GO OUT.         4F10648 
       SXD DMSR11,4                  SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649 
DMSR14 LXA L(5),4                    SET ERROR COUNTER FOR 5 ATTEMPTS.  4F10650 
DMSR13 SXD DMSR12,4                  SAVE ERROR COUNTER, AND            4F10651 
       LXD DMSR11,4                  RESET ENTRY COUNT.                 4F10652 
       RDR 3                         SELECT DRUM.                       4F10653 
       CLA E+2                       GET NAME OF VARIABLE.              4F10654 
       LDA DRMADR                    LOAD CURRENT DRUM ADDRESS, AND     4F10655 
DMSR04 CPY DRSYM                     COPY DRUM SYMBOl.                  4F10656 
       TLQ DMSR06                    COMPARE WITH NAME OF VARIABLE, AND 4F10657 
       CPY D12                       IF NOT LESS, COPY N1 AND N2.       4F10658 
DMSR05 PZE D3                        (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659 
       CPY DRCKSM                    COPY CHECKSUM.                     4F10660 
       CAS DRSYM                     COMPARE DRUM SYMBOL WITH NAME OF V.4F10661 
       TSX DIAG,4                  * GO TO DIAGNOSTIC - MACHINE ERROR.  4F10662 
DMSR12 TXI DMSR09,0,**               IF NOT EQUAL, THEN                 4F10663 
       CPY DRSYM                     CONTINUE                           4F10664 
       TLQ DMSR06                    PROCESS                            4F10665 
       CPY D12                       UNTIL                              4F10666 
DMSR15 TIX **,4,1                    TABLE                              4F10667 
       TXI DMSR08,0                  IS EXHAUSTED.                      4F10668 
DMSR06 CPY D12                       PASS OVER ENTRY                    4F10669 
DMSR07 PZE D3                        (DIM1 AND DIM2 = STZ, DIM3 = CPY). 4F10670 
       CPY DRCKSM                    AND CHECKSUM, AND                  4F10671 
       TIX DMSR04,4,1                REPEAT LOOP.                       4F10672 
DMSR08 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10673 
       TRA 1,4                     * TAKE NOT FOUND EXIT.               4F10674 
DMSR09 CAL DRSYM                     COMPUTE A                          4F10675 
       ACL D12                       NEW                                4F10676 
       ACL D3                        LOGICAL CHECKSUM                   4F10677 
       COM                           FOR ENTRY, AND                     4F10678 
       ACL DRCKSM                    COMPARE WITH                       4F10679 
       COM                           DRUM CHECKSUM.                     4F10680 
       TZE DMSR10                    IF NOT EQUAL, THEN                 4F10681 
       LXD DMSR12,4                  REPEAT ATTEMPT,                    4F10682 
       TIX DMSR13,4,1                UNLESS PROCESS                     4F10683 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F10684 
DMSR10 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10685 
       TRA 2,4                     * TAKE FOUND EXIT TO MAIN ROUTINE.   4F10686 
       REM                                                              4F10687 
DMCN12 STZ D3                        CONSTANT USED BY DIM.SR.           4F10688 
DMCN3  CPY D3                        CONSTANT USED BY DIM.SR.           4F10689 
ENT    BCD 1NTR000                   VARIABLE USED BY IO AND FL.        4F10690 
NZE    BCD 1PZE000                   VARIABLE USED BY FL.               4F10691 
       REM  END OF PROGRAM DIM.SR.                                      4F10692 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693 
       REM                                                              4F10604 
       REM DRTABS(,4)/ CALLS=RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695 
       REM VRA(VRD).                                                    4F10696 
       REM DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF  4F10697 
       REM THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698 
       REM TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION.   4F10699 
       REM DIMALT= ENTRY POINT FOR DIMENSION TABLES.                    4F10700 
DIMALT CAL TXLOP                     PICK UP SNITCH CONTROL,            4F10701 
       TXI DRTABS,0                  AND GO SET SNITCH FOR DIM TABLES.  4F10702 
       REM ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.                  4F10703 
ALT    CLA TXHOP                     PICK UP SWITCH CONTROL,            4F10704 
DRTABS STP DIMSW                     SET SNITCH.                        4F10705 
       CLA 0,4                       GET CALLER (TSX ....IX,4) IN AC.   4F10706 
       SXD XR1,1                     SAVE THE C(XR1),                   4F10707 
       SXD XR2,2                     SAVE THE C(XR2),                   4F10708 
       SXD XR4,4                     SAVE THE C(XR4), AND               4F10709 
       STQ MQ                        SAVE THE C(MQR).                   4F10710 
       ADD L(1)                      PREPARE TO MOVE PARAMETERS         4F10711 
       STA MOVE                      INTO WORKING STORAGE.              4F10712 
       SUB L(4)                      PREPARE TO UPDATE                  4F10713 
       STA UPDATE                    PERMANENT PARAMETER.               4F10714 
       LXA L(5),1                    MOVE 5 WORDS                       4F10715 
MOVE   CAL **,1                      (....IX+1)                         4F10716 
       SLW TEMP,1                    OF PARAMETERS                      4F10717 
       TIX MOVE,1,1                  INTO WORKING STORAGE.              4F10718 
       CLS NAR                       INITIALIZE                         4F10719 
       STA TRY                       ALL                                4F10720 
       ADD L(1)                      GENERAL                            4F10721 
       STA ESUM1                     INSTRUCTIONS=                      4F10722 
       STA ESUM2                     X                                  4F10723 
       ARS 17                        X                                  4F10724 
       ADM BIAS                      X                                  4F10725 
       STA JUMP1                     X                                  4F10726 
       STA JUMP2                     X                                  4F10727 
       CAL FDA                       X                                  4F10728 
       STD COMPR                     X                                  4F10729 
       STP JUMP1                     X                                  4F10730 
       STP SW                        X                                  4F10731 
       STP RX4                       X                                  4F10732 
       CLA LBUF                      X                                  4F10733 
       STA BUFL                      X                                  4F10734 
       CLA TDA                       X                                  4F10735 
       LXD TDA,2                     X                                  4F10736 
       SXD BUFF+1,2                  X                                  4F10737 
DIMSW  TXL BUFF,0                    IF DIM TABLE, SKIP SEARCH.         4F10738 
       TXL XERR01+1,2,0              SKIP IF TABLE IS EMPTY.            4F10739 
       LXD NAR,1                                                        4F10740 
       SXD NC,2                                                         4F10741 
       SXD ADD01,2                                                      4F10742 
ADD02  TNX COMPR,1,1                 COMPUTES (N*L).                    4F10743 
ADD01  TXI ADD02,2,**                (N)                                4F10744 
BUFFM1 LXD FDA,2                                                        4F10745 
BUFF   LXD DBL,1                     L(J)                               4F10746 
       TIX BUFF+3,1,**               (N) TEST FOR TABLE OVERFLOW.       4F10747 
XERR01 TXI WHICH,0                   GO FIND OUT WHICH TABLE OVERFLOWED.4F10748 
       LXD DI,1                                                         4F10749 
       WDR 5,1                                                          4F10750 
SW     TXL EBLK,0                    ENTRY SUM=TXL, BLOCK SUM=TXH.      4F10751 
       TXL ADD04,2,0                 SKIP IF TABLE IS EMPTY.            4F10752 
       TXI ADD03,2,1                                                    4F10753 
ADD03  TNX ADD05,2,50                SKIP IF BLOCK IS NOT YET FULL.     4F10754 
ADD04  STZ DUMP                      START NEW BLOCK CHECKSUM.          4F10755 
       CLA TDA                       CHANGE CHECKSUM ADDRESS.           4F10756 
       STA FDA                                                          4F10757 
       ADD L(1)                      SET ENTRY ADDR = CHECKSUM ADDR +1. 4F10758 
       STA TDA                                                          4F10759 
ADD05  CAL DUMP                                                         4F10760 
       ACL G                         ADD NEW FLOCON TO                  4F10761 
       SLW DUMP                      CHECKSUM FOR THIS BLOCK.           4F10762 
       LDA FDA                                                          4F10763 
       CPY DUMP                      WRITE BLOCK CHECKSUM ON DRUM.      4F10764 
       WDR 5,1                                                          4F10765 
       LDA TDA                                                          4F10766 
       CPY G                         WRITE NEW FLOCON ON DRUM.          4F10767 
XR2    TXI NOWIN,0,**                GO UPDATE FLOCON PARAMETER.        4F10768 
EBLK   PXD ,0                        FOR ALL TABLES EXCEPT FLOCON=      4F10769 
       LXD NAR,2                     (L)                                4F10770 
       LDA TDA                       NEXT DRUM ENTRY ADDRESS.           4F10771 
       TNX ESUM2,2,1                 IF L = 1,                          4F10772 
ESUM1  CAD **,2                      (ARG1+L-1) WRITE NEW               4F10773 
       TIX ESUM1,2,1                 ENTRY ON DRUM.                     4F10774 
ESUM2  CAD **                        (ARG1+L-1)                         4F10775 
       SLW DUMP                      COMPUTE AND                        4F10776 
       CPY DUMP                      WRITE CHECKSUM FOR NEW ENTRY.      4F10777 
NOWIN  CAL NAR                       UPDATE PERMANENT                   4F10778 
       ARS 18                        PARAMETERS FOR ENTRY               4F10779 
       ADD DECR1                     JUST ADDED TO TABLE.               4F10780 
RX4    TXL RX4+2,0,**                IF TABLE WAS FLOCON,               4F10781 
       SUB L(1)                      READJUST.                          4F10782 
       ADM TDA                       N=N+1,TDA=TDA+(L+1) OR (L).        4F10783 
UPDATE STO **                        (....IX-3)                         4F10784 
       LXD TDA,2                     L(N)                               4F10785 
XR4    TXI OUT,0,**                  GET TAG AND EXIT.                  4F10786 
NXBLK  LXD NC,4                                                         4F10787 
       LXD FDA,2                     L(K*L),K=K.                        4F10788 
NEW    LXD NAR,1                     L(L)                               4F10789 
TRY    CLA **,1                      (ARG1+L)                           4F10790 
BUFL   CAS **,2                      (BUFR OR CTABL)                    4F10791 
NC     TXI NC+2,0,**                 NOT FOUND.                         4F10792 
       TXI YEA,2,-1                  K*L = K*L-1.                       4F10793 
       TNX BUFFM1,4,1                N = N-1 OR ITEM NOT IN TABLE.      4F10794 
       SXD NC+4,1                                                       4F10795 
       TIX NEW,2,**                  K = K-1.                           4F10796 
       SXD NC,4                      SAVE CURRENT VALUE OF N,           4F10797 
       CAL DBL                       AND GET NEW BLOCK.                 4F10798 
       ADM FDA                                                          4F10799 
       STA FDA                                                          4F10800 
       LXD NTL,2                                                        4F10801 
COMPR  TIX COMPR+2,2,**              (K*L)                              4F10802 
       SXD FDA,2                     K*L = (N*L)MOD K*L IF N*L IS       4F10803 
       SXD NTL,2                     LESS TNAN K*L, OTHERWISE K*L = K*L.4F10804 
       TSX RDRX,4                  * GO READ NEXT BLOCK INTO BUFFER.    4F10805 
NTL    TXI NXBLK,0,**                (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806 
YEA    TIX TRY,1,1                   K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807 
       LXD TDA,2                     (N)                                4F10808 
       SXD YEA+3,4                                                      4F10809 
       TIX OUT,2,**                  COMPUTE TAG.                       4F10810 
       LXA L(0),2                                                       4F10811 
OUT    PXD ,2                        EXIT WITH TAG IN THE AC.           4F10812 
       ARS 18                        (TAG = NUMBER OF ENTRIES           4F10813 
       LXD XR2,2                     WHICH PRECEED THE ENTRY            4F10814 
       LXD XR4,4                     WHICH EQUALS THE ARGUMENT.         4F10815 
       LXD XR1,1                     RESTORE THE C(XR1,XR2,XR4),        4F10816 
       LDQ MQ                        RESTORE THE C(MQR), AND            4F10817 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10818 
WHICH  LXD XR4,4                     GET ALPHA BAR, AND                 4F10819 
       CLA 0,4                       AND,PICK UP ALPHA (TSX ...NIX,4).  4F10820 
       ANA MASK2                     BLANK ALL BUT ...NIX.              4F10821 
       SUB CONX                      (...NIX) - (ADDR OF FXCNIX-5).     4F10822 
       LXA L(9),4                    SET XR4 FOR  9 TABLES.             4F10823 
COMPUT SUB L(5)                      COMPUTE WHICH                      4F10824 
       TZE WHICHX                    TABLE OVERFLOWED.                  4F10825 
       TIX COMPUT,4,1                IF TABLE IS NOT FOUND,             4F10826 
       TSX DIAG,4                  * GO TO DIAGNOSTIC.                  4F10827 
WHICHX PXD ,4                        OTHERWISE,                         4F10826 
       COM                           CONVERT 2S COMPLEMENT              4F10829 
       ADD 2E18                      OF NUMBER,                         4F10630 
       PDX ,4                        PLACE IN XR4, AND                  4F10831 
       TXI DIAG,0                  * GO TO DIAGNOSTIC.                  4F11832 
       REM                                                              4F10833 
CONX   PZE FXCNIX-5                  CONSTANT USED BY DRTABS.           4F10834 
BUFR   BES 50                        DRUM TABLE BUFFER.                 4F10835 
MQ     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10836 
NAR    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10837 
TDA    BSS 1                         NORKING STORAGE USED BY DRTABS.    4F10838 
FDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10839 
DBL    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10840 
DI     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10841 
TEMP   BSS 0                         INDEXING ADDRESS FOR ABOVE -DRTABS.4F10842 
DUMP   BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10643 
       REM  END OF PROGRAM DRTABS.                                      4F10844 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845 
       REM                                                              4F10646 
       REM GETIFN,4/ OALLERS=COI00,CO200,C1000,C1100,C1600,C3200.       4F10847 
       REM GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.   4F10848 
GETIFN LXD EIFNO,1                   PLACE THE INTERNAL FORMULA         4F10849 
       PXD ,1                        NUMBER IN XRI, IN THE DECREMENT    4F10850 
       STO 1C                        OF THE AC, AND IN IC. THEN         4F10851 
       TRA 1,4                       RETURN TO CALLER.                  4F10852 
       REM  END OF PROGRAM GETIFN.                                      4F10853 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854 
       REM                                                              4F10855 
       REM JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),   4F10856 
       REM VRA(VRD),C3200.                                              4F10857 
       REM JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858 
JIF    CAL EIFNO                     INCREASE THE                       4F10859 
       ADD D1                        INTERNAL FORMULA NUMBER            4F10860 
       STD EIFNO                     BY 1.                              4F10861 
       REM GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).                 4F10862 
GIF    CAL EIFNO                     PICKUP IFN,                        4F10863 
       ANA 1BAR                      CLEAR SL, AND                      4F10864 
L(SL)  SLW SL                        PLACE IFN IN THE DECREMENTS        4F10865 
L(TL)  STD TL                        OF SL AND TL.                      4F10866 
       TRA 1,4                     * EXIT TO CALLER.                    4F10867 
       REM  END OF PROGRAM JIF(GIF).                                    4F10868 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869 
       REM                                                              4F10870 
       TRA STATEA            RETURN FROM DIAGNOSTIC                     4F10873 
       BSS 28                NOT USED.                                  4F10874 
       REM                                                              4F10901 
       REM                                                              4F10908 
       REM RA000,4/ CALLERS=LPR,ARITH.                                  4F10909 
       REM RA000 COMPUTES RELATIVE ADDRESS.                             4F10910 
RA000  SXD RAXR4,4                   SAVE THE C(XR4) FOR RETURN.        4F10911 
       STZ EPS                       CLEAR EPSILON (WORKING STORAGE).   4F10912 
       CLA DIMSAV                    EXAMINE THE                        4F10913 
 ED2   PAX E+4,4                     DIMENSION COUNT, AND               4F10914 
       TXL ED1,4,2                   IF 3 DIMENSION,                    4F10915 
       ADD L(1)                      INCREASE IT 1.                     4F10916 
ED1    ADM ED2                       THEN SET                           4F10917 
       STA ED3                       ED3 ADDRESS TO                     4F10918 
 ED3   CLA **,4                      EXAMINE SUCCESSIVE                 4F10919 
       LDQ D1                        SUBSCRIPT                          4F10920 
       TZE ED4                       VARIABLES, AND                     4F10921 
       STQ EPS                       ACCORDINGLY SET                    4F10922 
       LDQ L(0)                      EPSILON AND                        4F10923 
 ED4   STQ EPS,4                     EPSILON SUB I                      4F10924 
       TIX ED3,4,1                   TO 1 OR TO 0. WHEN DONE,           4F10925 
       CLA D1                        IF 1 DIMENSION, PICKUP DECREMENT 1,4F10926 
       LXA DIMSAV,4                  AND GO SUBTRACT ADDEND 1.          4F10927 
       TXL 1D1,4,1                   IF 2 OR 3 DIMENSION, THEN          4F10928 
       LDQ E+11                      PICKUP ADDENDS 1 AND 2,            4F10929 
       STZ E+11                      CLEAR E+11, AND                    4F10930 
       SLQ E+11                      RESTORE ADDEND 1 TO E+11.          4F10931 
       LGL 18                        ADJUST AND PLACE                   4F10932 
       STQ N2                        ADDEND 2 IN N2.                    4F10933 
       LDQ E+6                       AND, IF 2 DIMENSION                4F10934 
       CLA EPS-1                     PICKUP EPSILON SUB 1,              4F10935 
       TXL 2D1,4,2                   AND GO SUBTRACT ADDEND 2.          4F10936 
       SUB E+12                      IF 3 DIMENSION, SET GTAG           4F10937 
       STO GTAG                      TO EPSILON SUB 1 - ADDEND 3.       4F10938 
       LDQ E+8                       PICKUP DIMENSIONS 1 AND 2,         4F10939 
       STZ E+8                       CLEAR E+8, AND                     4F10940 
       SLQ E+8                       RESTORE DIMENSION 1 TQ E+8.        4F10941 
       LGL 18                        ADJUST, AND MULTIPLY               4F10942 
       MPY GTAG                      DIMENSION 2 TIMES GTAG.            4F10943 
       ALS 17                        THEN ADD                           4F10944 
       ADD EPS-2                     EPSILON SUB 2                      4F10045 
       LDQ E+8                       TO THE PRODUCT, AND                4F10946 
2D1    SUB N2                        SUBTRACT ADDEND 2.                 4F10047 
       STO GTAG                      MULTIPLY                           4F10040 
       MPY GTAG                      THE RESULT                         4F10049 
       ALS 17                        TIMES                              4F10950 
       ADD EPS,4                     DIMENSION 1, AND,ADD,IN EPSILON    4F10951 
       ADD EPS                       SUB 1 AND EPSILON.                 4F10952 
 1D1   SUB E+11                      SUBTRACT ADDEND 1,                 4F10953 
       STO GTAG                      AND PLACE THE RESULT               4F10954 
       CAL E                         IN TNE DECREMENT OF GTAG,          4F10955 
       ARS 24                        WITH I-TAUTAG                      4F10956 
       STA GTAG                      IN THE ADDRESS.                    4F10957 
       LXD RAXR4,4                   RESTORE THE C(XR4), AND            4F10958 
       TRA 1,4                     * EXIT TO CALLER.                    4F10959 
       REM  END OF PROGRAM RA000.                                       4F10960 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961 
       REM                                                              4F10962 
       REM RDRX*4/ CALLS=DIAG. CALLER=DRTABS.                           4F10963 
       REM RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR.        4F10964 
RDRX   LXA DRMERC,1                  SET FOR 5 ATTEMPTS TO READ,DRUM.   4F10965 
REP    LXD DI,2                      SET XRZ = (5-DRUM NUMBER).         4F10966 
       TXH BIAS-2,2,0                IF NOT GREATER THAN ZERO,          4F10967 
       TSX DIAG,4                  * GO TO DIAGNOSTIC.                  4F10968 
       RDR 5,2                       SELECT CURRENT DRUM.               4F10969 
       LXD FDA,2                     SET XR2 = NO. OF WORDS TO COPY.    4F10970 
BIAS   PXD ETSUM,0                   CLEAR THE AC.                      4F10971 
       LDA FDA                       DRUM ORIGIN OF CURRENT BLOCK.      4F10972 
JUMP1  TXL **                        (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK.   4F10973 
       CAD DUMP                      READ                               4F10974 
       COM                           FLOCON BLOCK                       4F10975 
LBUF   CAD BUFR,2                    AND COMPUTE                        4F10976 
       TIX LBUF,2,1                  LOGICAL CHECKSUM.                  4F10977 
XR1    TXI PROVE,0,**                GO TEST CHECKSUM.                  4F10978 
       CPY BUFR,2                    COPY LOOP,                         4F10979 
       TNX ERR,2,1                   FOR ALL                            4F10980 
       CPY BUFR,2                    TABLES                             4F10901 
       TNX ERR,2,1                   EXCEPT                             4F10902 
       CPY BUFR,2                    FLOCON=                            4F10903 
       TNX ERR,2,1                   X                                  4F10904 
       CPY BUFR,2                    X                                  4F10905 
       TNX ERR,2,1                   X                                  4F10906 
       CPY BUFR,2                    X                                  4F10907 
       TNX ERR,2,1                   X                                  4F10906 
       CPY BUFR,2                    X                                  4F10909 
       TNX ERR,2,1                   X                                  4F10990 
       CPY BUFR,2                    X                                  4F10901 
       NOP                           X                                  4F10992 
ETSUM  CAD DUMP                      SUM CHECKSUMS.                     4F10993 
JUMP2  TIX **,2,1                    (ETSUM-2*L) TEST END OF BLOCK.     4F10994 
RDRXCR LXD FDA,2                     COMPUTE                            4F10995 
       COM                           NEW                                4F10996 
       ACL BUFR,2                    LOGICAL                            4F10997 
       TIX RDRXCR+2,2,1              CHECKSUM, AND                      4F10998 
PROVE  COM                           IF CHECKSUMS COMPARE               4F10999 
       TZE 1,4                     * RETURN TO MAIN ROUTINE.            4F11000 
ERR    TIX REP,1,1                   OTHERWISE, REPEAT UP TO 5 TIMES.   4F11001 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F11002 
       REM  END OF PROGRAM RDRX.                                        4F11003 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004 
       REM                                                              4F11005 
       REM SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.                   4F11006 
       REM SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.    4F11007 
SR6DC1 SXD SR6XR2,2                  SAVE THE C(XR2), AND               4F11008 
       LXA L(6),2                    SET TO COUNT 6 CHARACTERS.         4F11009 
       STZ SR6WRK                    INITIALIZE OUTPUT CELL TO 0.       4F11010 
SR6DC2 PXD ,0                        OBTAIN NEXT CHARACTER              4F11011 
       LGL 6                         IN AC AND                          4F11012 
       CAS ABLANK                    TEST FOR BLANK.                    4F11013 
SR6XR2 TXI SR6DC3,0,**               IF NOT BLANK,                      4F11014 
ENDWRD TXI SR6DC4,0,-1               (DECR= END OF PROBLEM INDICATOR)   4F11015 
SR6DC3 CAS L(9)                      TEST FOR NUMERIC.                  4F11016 
       TSX DIAG,4                  * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017 
 NOP   NOP                           IF NUMERIC,                        4F11018 
       STO SR6WRK+1                  SAVE DIGIT, AND                    4F11019 
       CLA SR6WRK                    MULTIPLY PREVIOUS PARTIAL          4F11020 
       ALS 2                         RESULT BY 10,                      4F11021 
       ADD SR6WRK                    AND ADD IN                         4F11022 
       ALS 1                         CURRENT DIGIT, SAVING              4F11023 
       ADD SR6WRK+1                  NEW PARTIAL RESULT.                4F11024 
       STO SR6WRK                    THEN ADJUST C0UNT, AND             4F11025 
SR6DC4 TIX SR6DC2,2,1                WHEN 6 CHARS HAVE BEEN TREATED,    4F11026 
       CLA SR6WRK                    LEAVE OUTPUT IN AC,                4F11027 
       LXD SR6XR2,2                  RESTORE THE C(XR2), AND            4F11028 
 TRA   TRA 1,1                     * EXIT TO MAIN ROUTINE.              4F11029 
       REM  END OF PROGRAM SR6DC1.                                      4F11030 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031 
       REM                                                              4F11032 
       REM SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,DRTABS,TET00,TESTFX. 4F11033 
       REM CALLERS=ARITH,LPR,C0200.                                     4F11034 
       REM SS000 SCANS SUBSCRIPT COMB1NATIONS AND MAKES TABLE ENTRIES.  4F11035 
SS000  SXD SXR2,2                    SAVE C(XR2),                       4F11036 
       SXD SXR1,1                    SAVE C(XR1),                       4F11037 
       SXD SXR4,4                    SAVE C(XR4), AND                   4F11038 
       STZ DIMCTR                    SET DIMCTR = 0.                    4F11039 
       LXA L(6),4                    INITIALIZE                         4F11040 
       SXD SBS2,4                    FOR EACH SUBSCRIPT MEMBER.         4F11041 
       CAL TXHOP                     PICK UP TXH OP, AND                4F11042 
       STP SBC6                      SET OP                             4F11043 
       STP SBC8                      SWITCHES.                          4F11044 
       CAL TXLOP                     PICK UP TXL OP, AND                4F11045 
       STP SBC4                      SET OP SWITCH.                     4F11046 
SS001  LXA L(6),3                    SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047 
       STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11048 
       TSX C0190,4                 * GET FIRST PON BLANK CHAR IN THE AC.4F11049 
       CAS L(9)                      COMPARE IT UITH 9.                 4F11050 
       TXI SS0045,0                  RETURN TO EXPLICIT CODING.         4F11051 
       NOP                           IF NUMERIC,                        4F11052 
       STO FIRSTC                    SAVE RIGHT-ADJUSTED DIGIT, AND     4F11053 
SS0012 ALS 36,2                      LEFT-ADJUST DIGIT TO               4F11054 
       ORS SYMBOL                    BUILD SYMBOL.                      4F11055 
       TXI SS0013,2,6                UPDATE SHIFT DECREMENT, AND        4F11056 
SS0013 TXI SS0014,1,-1               UPDATE COUNT OF CHARS COLLECTED.   4F11057 
SS0014 TSX C0190,4                 * GET NEXT NB CHARACTER IN THE AC.   4F11058 
       LXA CTESTX,4                  SST XR4 = NO. OF PUNCTUATION MARKS.4F11059 
SS0015 CAS CTEST,4                   TEST THIS CHARACTER AGAINST        4F11060 
       TXI SS0016,0                  ALL PUNCTUATION.                   4F11061 
       TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11062 
SS0016 TIX SS0015,4,1                IF NOT FOUND TO BE PUNCTUATION,    4F11063 
       CAS L(9)                      TEST FOR NUMERIC.                  4F11064 
       TXI SS0017,0                  AND IF                             4F11065 
CTESTX NOP CTEST-ENDMK               FOUND TO BE NUMERIC,               4F11066 
       TXH SS0012,1,0                CONTINUE BUILDING SYMBOL. BUT IF   4F11067 
       TXI STOP49,0                  SEVENTH CHAR, GO TO DIAGNOSTIC.    4F11066 
SS0017 TSX TESTFX+1,1              * GO TEST FOR FIXED POINT VARIABLE.  4F11069 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070 
       LGL 30                        RESTORE FIXED POINT VARIABLE       4F11071 
       SLW RESIDU                    TO RESIDU, AND                     4F11072 
       LXD CHCTR,4                   RESET CHARACTER COUNTER            4F11073 
       TXI SS0018,4,1                TO BEGIN PROCESSING                4F11074 
SS0018 SXD CHCTR,4                   SUBSCRIPT MULTIPLIER.              4F11075 
 SBX   CLS SBC6                      TEST FOR                           4F11076 
       TMI SBX1                      PREVIOUS MULTIPLIER.               4F11077 
       TSX DIAG,4                  * DOUBLE MULTIPLIER FOR SUBSCRIPT.   4F11078 
 SBX1  STO SBC6                      RESET MULTIPLIER SWITCH.           4F11079 
       CLA FIRSTC                    TEST                               4F11080 
       SUB L(10)                     MULTIPLIER                         4F11081 
       TMI SBX2                      FOR CONSTANT.                      4F11082 
       TSX DIAG,4                  * SUBS-MULTIPLIER NOT A CONSTANT.    4F11083 
SBX2   CAL SYMBOL                    ADJUST MULTIPLIER                  4F11084 
       ARS 42,2                      TO LOW ORDER POSITION.             4F11085 
       LXD SBS2,4                    GET STORING TAG,                   4F11086 
       SLW E+9,4                     AND STORE MULTIPLIER.              4F11087 
       STZ E+15,4                    SET ADDEND = 0.                    4F11088 
SS003  LXA L(6),3                    SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089 
       STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11090 
SS004  TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F11091 
SS0045 LXA CTESTX,4                  COMPARE CHARACTER                  4F11092 
SS005  CAS CTEST,4                   TO ALL                             4F11093 
       TXI SS006,0                   PUNCTUATION.                       4F11094 
       TRA SUBTR,4                   IF EqUALITY IS FOUND, TRANSFER.    4F11095 
SS006  TIX SS005,4,1                 IF NOT FOUND TO BE PUNCTUATION,    4F11096 
       TXL SS008,1,5                 IF 1ST CHARACTER OF VARIABLE OR    4F11097 
       STO FIRSTC                    ADDEND, SAVE FOR LATER TESTS.      4F11098 
SS008  ALS 36,2                      POSITION EACH CHARACTER. BUT       4F11099 
SS009  TXL STOP49,1,0              * ON 7TH CHARACTER, GO TO STOP.      4F11100 
       ORS SYMBOL                    BUILD SYMBOL.                      4F11101 
       TXI SS007,2,6                 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 
SS007  TXI SS004,1,-1                UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103 
STOP49 TSX DIAG,4                  * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104 
       REM SUBTR/ CONTR0L TRANSFERS FOR SUBSCRIPT SCAN=                 4F11105 
       TXI ISC,0                     EMK (ILLEGAL IN LIST SUBSCRIPT).   4F11106 
 ISC   TSX DIAG,4                  * (   (ILLEGAL IN LIST SUBSCRIPT).   4F11107 
       TXI SBC,0                     ,                                  4F11108 
       TXI SBR,0                     )                                  4F11109 
       TXI ISC,0                     =   (ILLEGAL IN LIST SUBSCRIPT).   4F11110 
SBS2   TXI SBM,0,**                  - ,,SUBSCRIPT ELEMENT COUNTER.     4F11111 
       TXI ISC,0                     /   (ILLEGAL IN LIST SUBSCRIPT).   4F11112 
SXR1   TXI ISC,0,**                  .   (ILLEGAL IN LIST SUBSCRIPT).   4F11113 
SXR2   TXI SBP,0,**                  +                                  4F11114 
SXR4   TXI SBX,0,**                  *                                  4F11115 
SUBTR  BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   4F11116 
 SBM   SSM                           MINUS ADDEND.                      4F11117 
 SBP   CLM                           PLUS ADDEND.                       4F11118 
       LXD SBS2,4                    GET STORING TAG, AND               4F11119 
       STO E+15,4                    STORE SIGN OF ADDEND.              4F11120 
       CLS SBC8                      TEST SWITCH                        4F11121 
       TMI SBP1                      FOR PREVIOUS ADDEND.               4F11122 
       TSX DIAG,4                  * DOUBLE ADDEND FOR SUBSCRIPT.       4F11123 
 SBP1  STO SBC8                      RESET ADDEND SWITCH.               4F11124 
       TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11125 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126 
       LXD SBS2,4                    GET STORING TAG, AND               4F11127 
       CLS SBC6                      TEST SWITCH                        4F11128 
       TPL SBP2                      FOR PREVIOUS MULTIPLIER.           4F11129 
       CLA L(1)                      IF NONE,                           4F11130 
       STO E+9,4                     SET MULTIPLIER                     4F11131 
       TXI SBP4,0                    TO 1, AND CONTINUE.                4F11132 
 SBC1  CLS SBC6                      RESET MULTIPLIER                   4F11133 
SBP2   STO SBC6                      OP SWITCH.                         4F11134 
SBP4   CAL SYMBOL                    IF VARIABLE SUBSCRIPT,             4F11135 
       TXH SBP41,2,36                ADD A BLANK                        4F11136 
       CAL BLANK                     IF LESS                            4F11137 
       ALS 36,2                      THAN 6                             4F11138 
       ORA SYMBOL                    CHARACTERS, AND                    4F11139 
 SBP41 SLW E+10,4                    PLACE IN E-REGION.                 4F11140 
       TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11141 
       TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142 
       CLA SBC8                      IF THERE IS AN ADDEND,             4F11143 
       TMI SS003                     GO COLLECT, OTHERWISE              4F11144 
       TXI SBC7,0                    GO UPDATE STORING TAG.             4F11145 
SBR    CLS SBC4                      SET SWITCH                         4F11146 
       STO SBC4                      FOR CLOSING PARENTHESIS.           4F11147 
SBC    CAL DIMCTR                    UPDATE                             4F11148 
       ADD L(1)                      DIMENSION COUNTER                  4F11149 
       STA DIMCTR                    BY 1.                              4F11150 
       LXD SBS2,4                    GET STORING TAG.                   4F11151 
SBC6   TXH SBC1,0                    SWITCH-IF NO MULTIPLIER, AND       4F11152 
SBC8   TXH SBC2,0                    SWITCH-IF NO ADDEND, THEN          4F11153 
       CLA L(1)                      SET                                4F11154 
       STO E+9,4                     MULTIPLIER = 1.                    4F11155 
       STZ E+15,4                    SET ADDEND = 0.                    4F11156 
       CLA FIRSTC                    TEST FOR                           4F11157 
       SUB L(10)                     CONSTANT OR VARIABLE.              4F11158 
       TPL SBP4                      IF CONSTANT, THEN                  4F11159 
       STZ E+10,4                    SET VARIABLE = 0.                  4F11160 
SBC9   CAL SYMBOL                    ADJUST                             4F11161 
       ARS 42,2                      CONSTANT                           4F11162 
       ORS E+15,4                    TO LOW ORDER POSITION.             4F11163 
SBC7   TNX SBC3,4,2                  UPDATE STORING TAG                 4F11164 
       SXD SBS2,4                    BY -2, AND SAVE.                   4F11165 
SBC4   TXL SS001,0                   SWITCH-REPEAT FOR NEXT SUB-COMB.   4F11166 
       TXI SA000,0                   GO MAKE TABLE ENTRIES AND GET TAG. 4F11167 
 SBC2  CLS SBC8                      RESET ADDEND                       4F11168 
       STO SBC8                      OP SWITCH.                         4F11169 
       CLS L(10)                     TEST                               4F11170 
       ADD FIRSTC                    ADDEND                             4F11171 
       TMI SBC9                      FOR CONSTANT.                      4F11172 
       TSX DIAG,4                  * SUBSCRIPT ADDEND NOT A CONSTANT.   4F11173 
SBC3   CLS SBC4                      AFTER SCANNING 3 SUBSCRIPTS,       4F11174 
       TMI SA000                     GO MAKE TABLE ENTRIES AND GET TAG. 4F11175 
       TSX DIAG,4                  * GO TO DIAG - NO ) AFTER 3RD SUBS.  4F11176 
       REM CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE).           4F11177 
CSA000 SXD SXR4,4                    SAVE C(XR4) FOR RETURN TO C0200.   4F11178 
SA000  CLA DIMCTR                    SAVE                               4F11179 
       STO DIMSAV                    THE CONTENTS OF DIMCTR.            4F11180 
       ALS 33                        POSITION AND                       4F11181 
       STO E                         STORE I TAG.                       4F11182 
       CLA E+11                      MOVE SUBSCRIPT ADDENDS             4F11183 
       STO E+12                      INTO POSITION                      4F11184 
       CLA E+9                       FOR FOLLOWING                      4F11185 
       STO E+11                      PROGRAM.                           4F11186 
       CLA L(2)                      EXAMINE DIMCTR                     4F11187 
       CAS DIMCTR                    TO DETERMINE                       4F11188 
       TXI 1D0000,0                  WHETHER DIMENSION OF               4F11189 
       TXI 2D0000,0                  VARIABLE IS 1, 2, OR 3.            4F11190 
3D0000 LXA L(6),4                    PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191 
3D0001 LDQ E+9,4                     CONVERT THEM FROM BCD TO BINARY    4F11192 
       TSX SR6DC1,1                * IN E+3,5,7, AND                    4F11193 
       STO E+9,4                     STORE BACK IN E+3,5,7.             4F11194 
       TIX 3D0001,4,2                WHEN DONE, PREPARE                 4F11195 
       LXA L(3),4                    TO PICK UP 3 ADDENDS.              4F11196 
3D0002 CLA E+14,4                    CONVERT ADDENDS (BCD TO BINARY)=   4F11197 
       SLW G                         STRIP OFF                          4F11198 
       LDQ G                         SIGN,                              4F11199 
       TSX SR6DC1,1                * CONVERT ADDENDS IN E+11,12,13,     4F11200 
       LDQ E+14,4                    PUT SIGN IN S-BIT 0F MQ, AND       4F11201 
       TQP 3D0040                    IF PLUS--SKIP NEXT,                4F11202 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11203 
3D0040 STO E+14,4                    AND STORE BACK INT0 E+11,12,13.    4F11204 
       TIX 3D0002,4,1                WHEN DONE,                         4F11205 
       TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F11206 
       TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11207 
3D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11208 
       ALS 18                        PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209 
       ADD E+5                       AND STORE THEM                     4F11210 
       STO E+3                       IN E+3.                            4F11211 
       CLA E+4                       MOVE SUBSCRIPT 1                   4F11212 
       STO E+5                       TO E+5.                            4F11213 
       CLA E+7                       AND MOVE                           4F11214 
       ALS 18                        COEFFICIENT 3                      4F11215 
       STO E+4                       INTO E+4.                          4F11216 
       CLA E+8                       MOVE SUBSCRIPT 3 INTO E+7,         4F11217 
       STO E+7                       NEXT TO SUBSCRIPT 2 IN E+6.        4F11218 
       CLA D12                       MOVE DIMENSIONS 1 AND 2            4F11219 
       STO E+8                       INTO E+8.                          4F11220 
       CAL E+11                      PACK TOGETHER                      4F11221 
       ALS 18                        ADDENDS 1 AND 2                    4F11222 
       ORA E+12                      AND                                4F11223 
       SLW E+11                      STORE THEM IN E+11.                4F11224 
       CAL E+13                      MOVE                               4F11225 
       ALS 18                        ADDEND 3                           4F11226 
       SLW E+12                      INTO E+12.                         4F11227 
       TSX TAU3IX,4                * GO SEARCH TAU3 TABLE.              4F11228 
       ALS 24                        POSITION TAU3 TAG, AND             4F11229 
       ORS E                         PLACE TAU3 TAG IN TAG WORD.        4F11230 
       CAL E+7                       COMBINE                            4F11231 
       ORA E+6                       SUBSCRIPTS 3,2, AND 1,             4F11232 
3D0340 ORA E+5                       AND IF THEY ARE ALL ZERO,          4F11233 
3D0350 TZE NOTAG                     --DON,T ENTER FORTAG.              4F11234 
FTG000 CAL EIFNO                     ENTER FORTAG=                      4F11235 
       ANA MASK1                     BRING UP ALPHA (INTFORMNO)         4F11236 
       SLW G                         AND STORE IN G.                    4P11237 
       CAL E                         BRING UP TAUTAG FOR I,             4F11238 
       ARS 24                        ADJUST, AND                        4F11239 
       ORS G                         PLACE IN G WITH ALPHA.  THEN       4F11240 
       TSX TET00,1                 * ENTER INTO FORTAG TABLE            4F11241 
       PZE 4                         (TET TABLE 4).                     4F11242 
       TXI SAEXIT,0                  GO TO EXIT.                        4F11243 
2D0000 LXA L(4),4                    THEN PICKUP AND                    4F11244 
2D0001 LDQ E+7,4                     CONVERT COEFFICIENTS               4F11245 
       TSX SR6DC1,1                * (BCD TO BINARY),                   4F11246 
       STO E+7,4                     AND STORE BACK IN E+3 AND E+5.     4F11247 
       TIX 2D0001,4,2                WHEN DONE,                         4F11248 
       LXA L(2),4                    PREPARE TO                         4F11249 
2D0002 CLA E+13,4                    PICKUP THE TWO ADDENDS.            4F11250 
       SLW G                         STRIP OFF                          4F11251 
       LDQ G                         THEIR SIGNS,                       4F11252 
       TSX SR6DC1,1                * CONVERT THEM FROM BCD TO BINARY,   4F11253 
       LDQ E+13,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11254 
       TQP 2D0040                    IF PLUS--SKIP NEXT,                4F11255 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11256 
2D0040 STO E+13,4                    AND STORE BACK IN E+11 AND E+12.   4F11257 
       TIX 2D0002,4,1                WHEN DONE,                         4F11258 
       TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F11259 
       TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11260 
2D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11261 
       ALS 18                        PACK TOGETHER                      4F11262 
       ADD E+5                       COEFFICIENTS 1 AND 2,              4F11263 
       STO E+3                       AND STORE THEM IN E+3.             4F11264 
       CLA E+6                       MOVE SUBSCRIPT 2 INTO E+5          4F11265 
       STO E+5                       (NEXT TO SUBSCRIPT 1 IN E+4).      4F11266 
       CLA D12                       OBTAIN                             4F11267 
       ANA MASK1                     DIMENSION 1, AND MOVE IT           4F11268 
       STO E+6                       INTO E+6.                          4F11269 
       CAL E+11                      PACK TOGETHER                      4F11270 
       ALS 18                        ADDENDS 1 AND 2,                   4F11271 
       ORA E+12                      AND STORE THEM                     4F11272 
       SLW E+11                      IN E+11.                           4F11273 
       TSX TAU2IX,4                * GO SEARCH TAU2 TABLE.              4F11274 
       ALS 24                        POSITION TAU2 TAG, AND             4F11275 
       ORS E                         PLACE TAU2 TAG IN TAG WORD.        4F11276 
       CAL E+4                       COMBINE SUBSCRIPTS 1 AND 2, AND    4F11277 
       TXI 3D0340,0                  GO TO FORTAG SECTION.              4F11278 
1D0000 LDQ E+3                       PICKUP AND CONVERT COEFFICIENTS    4F11279 
       TSX SR6DC1,1                * (BCD TO BINARY), AND               4F11280 
       ALS 18                        THEN ADJUST THEM,                  4F11281 
       STO E+3                       AND STORE THEM BACK IN E+3.        4F11282 
       CLA E+11                      PICKUP ADDEND,                     4F11283 
       SLW G                         STRIP OFF SIGN,                    4F11284 
       LDQ G                         CONVERT ADDEND                     4F11285 
       TSX SR6DC1,1                * (BCD TO BINARY), AND THEN          4F11286 
       LDQ E+11                      PUT SIGN IN S-BIT OF MQ, AND       4F11287 
       TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11288 
       ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11289 
1D0001 ALS 18                        THEN ADJUST AND STORE              4F11290 
       SLW E+11                      BACK INTO E+11.                    4F11291 
       TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11292 
       ALS 24                        POSITION TAU1 TAG, AND             4F11293 
       ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11294 
       CAL E+4                       TAKE SUBSCRIPT, AND                4F11295 
       TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11296 
NOTAG  CAL FNIND                     POSITI0N SIGMA1 TAG, AND           4F11297 
       ORS E                         PLACE SIGMA1 TAG IN TAG WORD.      4F11298 
SAEXIT LXD SXR1,1                    RESTORE THE C(XR1),                4F11299 
       LXD SXR2,2                    RESTORE THE C(XR2),                4F11300 
       LXD SXR4,4                    RESTORE THE C(XR4), AND            4F11301 
       TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11302 
       REM  END OF PROGRAM SS000.                                       4F11303 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304 
       REM                                                              4F11305 
       REM SUBX00,4/ CALLERS=C3000,C3300.                               4F11306 
       REM SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES.              4F11307 
SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11308 
       LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11309 
SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11310 
       LGL 6                         SEARCH FOR A BLANK                 4F11311 
       SUB BLANK                     CHARACTER IN THIS NAME.            4F11312 
       TZE SUBX03                    IF NOT BLANK, THEN                 4F11313 
       TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11314 
SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315 
       TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11316 
SUBX03 LDQ BLANKS                    IF LESS THAN 6 CHARACTERS IN NAME, 4F11317 
       LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11318 
       ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11319 
       TRA 1,4                     * RETURN TO CALLER.                  4F11320 
       REM  END OF PROGRAM SUBX00.                                      4F11321 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322 
       REM                                                              4F11323 
       REM TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11324 
       REM TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES.          4F11325 
TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11326 
       CAS L(H)                      WITH H.                            4F11327 
       CAS L(O)                      IF GREATER THAN H, COMPARE WITH O. 4F11328 
       TRA 1,1                     * IF NOT GREATER THAN H, LESS THAN O,4F11329 
       TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11330 
       TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11331 
       REM  END OF PROGRAM TESTFX.                                      4F11332 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333 
       REM                                                              4F11334 
       REM TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335 
       REM C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11336 
       REM TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11337 
       REM TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11338 
TESTA0 CAS COMMA                                                        4F11339 
       TRA TESTA1                                                       4F11340 
       TRA 1,4                     * RETURN TO CALLER.                  4F11341 
TESTA1 SUB ENDMK                                                        4F11342 
       TZE 1,4                     * RETURN TO CALLER.                  4F11343 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11344 
       REM TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11345 
TESTB0 CAS COMMA                                                        4F11346 
       TRA TESTB1                                                       4F11347 
       TRA 1,4                     * RETURN TO CALLER.                  4F11348 
TESTB1 SUB CLOS                                                         4F11349 
       TZE 1,4                     * RETURN TO CALLER.                  4F11350 
       TSX DIAG,4                  * ERROR -- GO T0 DIAGNOSTIC.         4F11351 
       REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11352 
TESTC0 CAS OPEN                                                         4F11353 
       TRA TESTC1                                                       4F11354 
       TRA 1,4                     * RETURN TO CALLER.                  4F11355 
TESTC1 SUB ENDMK                                                        4F11356 
       TZE 1,4                     * RETURN TO CALLER.                  4F11357 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11358 
       REM TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11359 
TESTD0 CAS ENDMK                                                        4F11360 
ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11361 
       TRA 1,4                     * RETURN TO CALLER.                  4F11362 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11363 
       REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11364 
TESTE0 CAS OPEN                                                         4F11365 
       TRA TESTE1                                                       4F11366 
       TRA 1,4                     * RETURN TO CALLER.                  4F11367 
TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11368 
       REM TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11369 
TESTF0 CAS CLOS                                                         4F11370 
       TRA TESTF1                                                       4F11371 
       TRA 1,4                     * RETURN TO CALLER.                  4F11372 
TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11373 
       REM TEST CHARACTER IN THE AC FOR COMMA.                          4F11374 
TESTG0 CAS COMMA                                                        4F11375 
       TRA TESTG1                                                       4F11376 
       TRA 1,4                     * RETURN TO CALLER.                  4F11377 
TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11378 
       REM TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11379 
TESTH0 CAS L(9)                                                         4F11380 
       TRA 1,4                     * RETURN TO CALLER.                  4F11381 
       NOP                                                              4F11382 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11383 
       REM TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11384 
TESTI0 CAS L(9)                                                         4F11385 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11386 
       TRA 1,4                     * RETURN TO CALLER.                  4F11387 
       TRA 1,4                     * RETURN TO CALLER.                  4F11388 
       REM  END OF PROGRAM TEST...                                      4F11389 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390 
       REM                                                              4F11391 
       REM TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11392 
       REM C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11393 
       REM TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11394 
       REM FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11395 
TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11396 
       SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11397 
       STQ TETMQR                    SAVE THE C(MQR).                   4F11398 
       CLA 1,1                       COMPUTE TABLE NUMBER               4F11399 
       ALS 1                         TIMES 3                            4F11400 
       ADD 1,1                       AND                                4F11401 
       COM                           PLACE THE 2S COMPLEMENT            4F11402 
       ADD L(1)                      OF THIS                            4F11403 
       PAX ,2                        IN XR2.                            4F11404 
       CLA INTET,2                   OBTAIN THE CURRENT                 4F11405 
       ARS 18                        B (BUFFER CAPACITY),               4F11406 
       STO TETWRK                    AND SAVE IT. THEN                  4F11407 
       CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11408 
       ARS 18                        AND                                4F11409 
       SUB TETWRK                    COMPARE TO B.                      4F11410 
       TNZ TET03                     IF BUFFER IS FULL,                 4F11411 
       STD INTET+2,2                 SET P = O, AND                     4F11412 
TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11413 
       LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11414 
       CLA TETWRK                    ADD BLOCK SIZE TO                  4F11415 
       ADD INTET,2                   ORIGIN OF CURRENT BLOCK (O),       4F11416 
       STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11417 
       CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11418 
TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11419 
       TIX TET02,4,1                 TABLE TAPE, AND                    4F11420 
       IOD                           WHEN DONE,                         4F11421 
       CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11422 
       ADD L(1)                      BY 1 FOR                           4F11423 
       STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11424 
TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11425 
       ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11426 
       ADD INTET,2                   BUFFER) TO SET                     4F11427 
       STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11428 
       CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11429 
       STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11430 
       PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431 
       ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11432 
       STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11433 
       LXD L(0),2                    SET XR2 = 0. THEN                  4F11434 
TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11435 
TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11436 
       TXI TET06,2,-1                WHEN                               4F11437 
TET06  TIX TET04,4,1                 DONE,                              4F11438 
       LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11439 
       LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11440 
       LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11441 
       TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11442 
       REM  END OF PROGRAM TET00.                                       4F11443 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444 
       REM DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11445 
       REM C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11446 
       REM SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,  4F11447 
       REM CMA,EMK,BEG(TYP),VRA(VRD).                                   4F11448 
       REM (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE   4F11449 
       REM BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO      4F11450 
       REM THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)   4F11451 
DIAG   TXI 4,0                     * GO GET THE DIAGNOSTIC.             4F11452 
       REM  END OF PROGRAM DIAG.                                        4F11453 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11454 
       REM                                                              4F11455 
       REM ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.                4F11456 
FLTR00 SXD FLTR05,4          SAVE CALLING TAG.                          4F114571
       CLA EIFNO             GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572
       STA ENT               PLACE LAST EFN IN DEC OF NTR INSTRUCTION.  4F114573
       ARS 18                                                           4F114574
       STA NZE               PLACE LAST IFN IN DEC OF PZE               4F114575
       LXD ARGCTR,4                                                     4F114576
       TXL FLTR01,4,0        IS THIS AN FN FUNCTION, NO SKIP.           4F114577
       STZ 1C+2                                                         4F114578
       CLS 2E18              SET ADDRESS TO -1                          4F114579
       TRA FLTR03                                                       4F11457A
FLTR01 CLA SBDFCN            IS THIS A MAIN PROGRAM OR SUBPROGRAM.      4F11457B
       TNZ FLTR02            SKIP ON SUBPROGRAM                         4F11457C
       STZ 1C+2              SET ADDRESS TO 0                           4F11457D
       STZ 1C+3                                                         4F11457E
       TRA FLTR04                                                       4F11457F
FLTR02 CLA DOLSGN            SET ADDRESS TO $+2                         4F11457G
       STO 1C+2                                                         4F11457H
       CLA D2                                                           4F11457I
FLTR03 STO 1C+3              SET RELATIVE ADDRESS WORD OF CIT.          4F11457J
FLTR04 TSX CIT00,4                                                      4F11457K
       PZE L(0)              COMPILE      NTR  *+2,0,EFN                4F11457L
       PZE ENT                                                          4F11457M
       PZE 15P                                                          4F11457N
       PZE D2                                                           4F11457O
       TSX CIT00,4                                                      4F11457P
       PZE L(0)              COMPILE    PZE  ALPHA,0,IFN                4F11457Q
       PZE NZE               WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R
       PZE 1C+2              SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S
       PZE 1C+3              MAIN OR SUBPROGRAM.                        4F11457T
       LXD FLTR05,4                                                     4F11457U
FLTR05 TXI CIT00,4           GO COMPILE    LXD M(,4  OR  7(TYPE=,4      4F11457V
       REM                                                              4F11457W
       REM                                                              4F11458 
       REM  END OF THE COMMON PART OF SECTION ONE.                      4F11459 
       REM                                                              4F11460 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461 
       REM                                                              4F11462 
       REM SECTION 1 / INITIALIZATION =                                 4F11463 
       ORG FORSUB                                                       4F11465 
       REM INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER    4F11466 
       REM BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE  4F11467 
       REM PROGRAM.                                                     4F11468 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469 
       REM                                                              4F11470 
       REM PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =       4F11471 
CLDR00 LXA CLDR07,1                  CLEAR DRUMS 1,2,3,4 TO +0.         4F11472 
CLDR01 WRS 197,1                     X                                  4F11473 
       LXD CLDR07,2                  X                                  4F11474 
CLDR03 CPY CLDR08                    X                                  4F11475 
       TIX CLDR03,2,1                X                                  4F11476 
       TIX CLDR01,1,1                X                                  4F11477 
       REW 146                       REWIND WORKING TAPES 2,3,4.        4F11478 
       REW 147                       X                                  4F11479 
       REW 148                       X                                  4F11480 
DMWR99 TSX CA100,4                 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540 
       TRA CA010                   * GO BEGIN STATE A OF SECTION ONE.   4F11541 
       REM  END OF INITIALIZATION / PART 2.                             4F11542 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543 
       REM                                                              4F11544 
       REM PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=      4F11545 
CLDR07 PZE 4,,2048                   CONSTANT FOR CLEARING DRUMS.       4F11548 
CLDR08 PZE 0                         CONSTANT FOR CLEARING DRUMS.       4F11549 
       REM  END OF INITIALIZATION / PART 3.                             4F11552 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553 
       REM                                                              4F11554 
       REM                                                              4F11555 
       REM SECTION 1 / STATEA =                                         4F11556 
       REM                                                              4F11558 
       REM NAME                      FUNCTION                           4F11559 
       REM PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11560 
       REM CA000                     ASSEMBLE STATEMENT.                4F11561 
       REM CD000                     SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562 
       REM CB000                     CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563 
       REM CC000                     CLASSIFY=WHICH NON-ARITHMETIC.     4F11564 
       REM PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.       4F11565 
       REM C0100                     DO.                                4F11566 
       REM C0200                     GO TO.                             4F11567 
       REM C0300                     IF.                                4F11568 
       REM C0400                     IF (SENSE SWITCH.                  4F11569 
       REM C0500                     IF (SENSE LIGHT.                   4F11570 
       REM C0600                     IF DIVIDE CHECK.                   4F11571 
       REM C0700                     IF AC OVERFLOW.                    4F11572 
       REM C0800                     IF MQ OVERFLOW.                    4F11573 
       REM C0900                     PAUSE.                             4F11574 
       REM C1000                     ASSIGN.                            4F11575 
       REM C1100                     SENSE LIGHT.                       4F11576 
       REM C1200                     DIMENSION.                         4F11577 
       REM C1300                     STOP.                              4F11578 
       REM C1400                     FREQUENCY.                         4F11579 
       REM C1500                     EQUIVALENCE.                       4F11580 
       REM C1600                     CONTINUE.                          4F11581 
       REM C3000(C3500)              SUBROUTINE / FUNCTION.             4F11582 
       REM C3100                     COMMON.                            4F11583 
       REM C3200                     RETURN.                            4F11584 
       REM C3300                     CALL.                              4F11585 
       REM C3400                     END.                               4F11586 
       REM PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=                    4F11587 
       REM RDC                       READ CARD                          4F11588 
       REM RIT                       READ INPUT TAPE.                   4F11589 
       REM RDP                       PRINT.                             4F11590 
       REM WOT                       WRITE OUTPUT TAPE.                 4F11591 
       REM PDC                       PUNCH.                             4F11592 
       REM WBT                       WRITE TAPE.                        4F11593 
       REM RBT                       READ TAPE.                         4F11594 
       REM WRD                       WRITE DRUM.                        4F11595 
       REM RDD                       READ DRUM.                         4F11596 
       REM EFT                       END FILE.                          4F11597 
       REM RWN                       REWIND.                            4F11598 
       REM BSP                       BACKSPACE.                         4F11599 
       REM FOR                       FORMAT.                            4F11600 
       REM RSC                       RESET AND SCAN.                    4F11601 
       REM LISTR                     CONTROL FOR LIST SCAN.             4F11602 
       REM LPR                       LEFT PARENTHESES IN LIST SCAN.     4F11603 
       REM EOS                       EQUAL SIGN IN LIST SCAN.           4F11604 
       REM SPCTR                     CONTROL FOR SPECIFICATION SCAN.    4F11605 
       REM SPC                       SUBSCRIPT SPECIFICATIONS.          4F11606 
       REM RPR                       RIGHT PARENTHESIS IN LIST SCAN.    4F11607 
       REM CMA                       COMMA IN LIST SCAN.                4F11608 
       REM EMK                       ENDMARK IN LIST SCAN.              4F11609 
       REM PART 4 / SUBROUTINES USED BY STATE A=                        4F11610 
       REM BEG(TYP),4                BEGIN SCAN AND TYPE TEST.          4F11611 
       REM BEGTR                     CONTROL FOR BEGINNING SCAN.        4F11612 
       REM BRW,4                     BINARY READ OR WRITE COMPILER.     4F11613 
       REM BSS,2                     COMPILES= IFN BSS 0.               4F11614 
       REM CA100,4                   READ SOURCE PROGRAM TAPE.          4F11615 
       REM CC500,4                   SCAN DICTIONARY.                   4F11616 
       REM ETM(LTM)SW,4              IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617 
       REM IFFIX,1                   SETS UP FORVAR OR FORVAL ENTRY.    4F11618 
       REM IN(OUT)PUT,2              COMPILES CAL *, AND XIT (LEV).     4F11619 
       REM LIB,1                     MAKES CLOSUB ENTRY, COMPILES CIT.  4F11620 
       REM VRA(VRD),4                MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621 
       REM PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.            4F11622 
       REM DIC                       DICTIONARY.                        4F11623 
       REM T                         TRANSFER TABLE.                    4F11624 
       REM                                                              4F11625 
       REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=          4F11626 
       REM                                                              4F11627 
       REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION       4F11628 
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F11629 
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F11630 
       REM THIS LOGICAL BLOCK OR SUBROUTINE.                            4F11631 
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F11632 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F11633 
       REM                                                              4F11634 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635 
       REM                                                              4F11636 
       REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11637 
ORGA   ORG 1824                                                         4F11638 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639 
STATEA BSS 0                                                            4F11640 
       REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.                        4F11641 
       REM CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN.4F11642 
CA010  LXD ENDWRD,4                  IF THE FINAL STATEMENT HAS BEEN    4F11643 
       TXL DIAG,4,0                * PROCESSED, THEN GO CALL DIAGNOSTIC.4F11644 
       LXD EIFNO,1                   KEEP INTERNAL FORMULA NUMBER       4F11645 
       TXI CA013,1,1                 (DECR PART OF EIFNO)               4F11646 
CA013  SXD EIFNO,1                   UP TO DATE BY ADDING 1.            4F11647 
       CAL FT                        OBTAIN HOLLERITH CODED 5-DIGIT     4F11648 
       ARS 6                         EXTERNAL FORMULA NO IN ACC,        4F11649 
       SLW F-1                       AND RETAIN IN F-01.                4F11650 
       LXD DCF,1                     INITIALIZE INDEX A TO COMPL OF F.  4F11651 
CA018  LXA L(11),2                   SET UP LOOP FOR 11 CYCLES.         4F11652 
CA019  LDQ FT+12,2                   MOVE WORD FROM REG1ON FT           4F11653 
       STQ 0,1                       TO REGION F.                       4F11654 
       TIX CA020,1,1                 KEEP F-REGION ADDRESS UP-TO-DATE.  4F11655 
CA020  TIX CA019,2,1                 TEST END OF LOOP.                  4F11656 
       TSX CA100,4                 * GO READ NEXT NON-BLANK CARD.       4F11657 
       CAL FT                        TEST RIGHTMOST CHARACTER OF        4F11658 
       ANA L(63)                     FIRST WORD FOR CONTINUATION MARK,  4F11659 
       TZE CA021                     IF ZERO OR BLANK,                  4F11660 
       SUB ABLANK                    DISCONTINUE READING,               4F11661 
       TNZ CA018                     OTHERWISE CONTINUE.                4F11662 
CA021  CLA BLANKS                    BEGIN SCANNING REGION F BACKWARDS  4F11663 
CA022  CAS -1,1                      T0 FIND FIRST NON BLANK WORD.      4F11664 
       TRA CA023                     NOT BLANK.                         4F11665 
       TXI CA022,1,1                 BLANK, SO CONTINUE SCAM.           4F11666 
CA023  LDQ 36ONES                    PLACE BINARY ONES IN FIRST WORD    4F11667 
       STQ 0,1                       FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668 
       CAL F-1                       PICK UP EXTERNAL FORMULA NUMBER AND4F11669 
       CAS 5BLANS                    COMPARE WITH /0     /.             4F11670 
       TRA CA015                     NOT COMPARE.                       4F11671 
       TRA CD000                   * TAKE EXTFORMNO, IF ANY, AND        4F11672 
CA015  LRS 35                        GO TO CONVERSION SUBROUTINE AND    4F11673 
       TSX SR6DC1,1                * RETURN HERE WITH RESULT IN ACC.    4F11674 
       STA EIFNO                     STORE RESULT IN ADDRESS OF EIFNO.  4F11675 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER EIFNO   4F11676 
       PZE 0                         INTO TABLE TEIFNO (TABLE O).       4F11677 
       REM  END OF PROGRAM CA000.                                       4F11678 
       REM * * *,* * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679 
       REM                                                              4F11680 
       REM CD000/ CALLS=C0190X,C0190,DIAG.                              4F11681 
       REM CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.            4F11682 
CD000  TSX C0190X,4                * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683 
CD001  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684 
       CAS COMMA                     SCAN                               4F11685 
       TXI CD002,0                   FOR                                4F11686 
       TXI CD003,0                   HOLLERITH                          4F11687 
CD002  SUB OPEN                      SPECIFICATION                      4F11688 
       TNZ CD001                     WHICH                              4F11689 
CD003  TSX CD900,1                 * CAN BE=                            4F11690 
       SUB L(10)                     , N H                              4F11691 
       TPL CD001                     OR = ( N H.                        4F11692 
CD004  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693 
       CAS L(9)                      CONTINUE SCAN.                     4F11694 
       TXI CD005,0                   N                                  4F11695 
       TXI CD004,0                   IS                                 4F11696 
       TXI CD004,0                   A                                  4F11697 
CD005  CAS L(H)                      FIXED                              4F11698 
       TXI CD001+1,0                 POINT                              4F11699 
       TXI CD700,0                   INTEGER.                           4F11700 
       TXI CD001+1,0                 X                                  4F11701 
CD700  TSX C0190,4                 * G0 GET NEXT NONBLANK CHARACTER,    4F11702 
       CAS ENDMK                     AND IF ENDMARK,                    4F11703 
       TXI CD701,0                   THEN SKIP                          4F11704 
       TXI CC000,0                 * TO NON-ARITHMETIC CLASSIFICATI0N.  4F11705 
CD701  TSX CD600,1                 * SINCE HOLLERITH HAS BEEN FOUND,    4F11706 
       TXI CD700,0                   THEN S IS LEGAL IN FORMAT TEXT.    4F11707 
CD900  TSX C0190,4                 * OBTAIN NEXT NONBLANK CHARACTER,    4F11708 
       CAS ENDMK                     AND IF NOT                         4F11709 
       TXI CD800,0                   ENDMARK, THEN SKIP                 4F11710 
       TXI CB000,0                 * EXIT TO ARITH/NON-ARITH SCAN.      4F11711 
CD800  CAS SPECOP                    CMECK FOR S                        4F11712 
       TXI CD601,0                   WHICH, UNLESS HOLLERITH, IS AN     4F11713 
       TSX DIAG,4                  * ERROR -- G0 T0 DIAGNOSTIC.         4F11714 
CD600  CAS PM                        CMECK FOR RECORD MARK              4F11715 
       TRA 1,1                       WHICH IS AN                        4F11716 
       TSX DIAG,4                  * ERROR -- GO,TO DIAGNOSTIC.         4F11717 
CD601  CAS CHAR3                     CHECK FOR MINUS ZERO               4F11718 
       TRA 1,1                       WHICH IS AN                        4F11719 
       TSX DIAG,4                  * ERROR --,GO TO DIAGNOSTIC.         4F11720 
       CAS CHAR2                     CHECK FOR PLUS ZERO                4F11721 
       TRA 1,1                       WHICH IS AN                        4F11722 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11723 
       CAS MINUS                     CHECK FOR MINUS SIGN               4F11724 
       TRA 1,1                       WHICH IS AN                        4F11725 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11726 
       SUB TEN                       CHECK FOR TEN                      4F11727 
       TNZ 1,1                       WHICH IS AN                        4F11728 
       TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11729 
       REM  END OF PROGRAM CD000.                                       4F11730 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731 
       REM                                                              4F11732 
       REM CB000/ CALLS=C0190X,C0190,DIAG.                              4F11733 
       REM CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.  4F11734 
CB000  LXA L(1),1                    SET XR1 TO COUNT PARENTHESES.      4F11735 
       TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736 
CB001  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F11737 
       CAS AEQUAL                    IF AN EQUAL SIGN,                  4F11738 
       TXI CB005,0                   THEN                               4F11739 
       TXI CB200,0                   GO TEST PAREN-COUNT.               4F11740 
CB005  CAS ALPAR                     IF A LEFT PARENTHESIS,             4F11741 
       TXI CB006,0                   THEN                               4F11742 
       TXI CB001,1,1                 UPDATE PAREN-COUNT BY 1.           4F11743 
CB006  CAS ARPAR                     IF A RIGHT PARENTHESIS,            4F11744 
       TXI CB007,0                   THEN                               4F11745 
       TXI CB500,0                   GO TEST PAREN-COUNT.               4F11746 
CB007  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11747 
       TNZ CB001                     GO EXAMINE NEXT CHARACTER.         4F11748 
       TXI CC000,0                 * OTHERWISE, GO TO DIC LOOK-UP.      4F11749 
CB200  TIX CC000,1,1               * IF EQUAL WAS,NOT WITHIN PARENS,    4F11750 
CB201  TSX C0190,4                 * THEN EXAMINE NEXT CHARACTER.       4F11751 
       CAS ALPAR                     IF LEFT PAR6NTHESIS,               4F11752 
       TXI CB205,0                   THEN                               4F11753 
       TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11754 
CB205  CAS ACOMMA                    IF A COMMA,                        4F11755 
       TXI CB206,0                   THEN                               4F11756 
       TXI CC000,0                 * GO TO NO,-ARITHMETIC DIC LOOK-UP.  4F11757 
CB206  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11758 
       TNZ CB201                     GO EXAMINE NEXT CHARACTER.         4F11759 
       TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11760 
CB500  TIX CB001,1,1                 IF PAREN-COUNT DOES NOT BALANCE,   4F11761 
       TSX DIAG,4                  * ERROR-GO TO DIAGNOSTIC ROUTINE.    4F11762 
       REM  END 0F PROGRAM CB000.                                       4F11763 
       REM * * * * * * * * * * * * * * * . * * * * * * * * * * * * * * *4F11764 
       REM                                                              4F11765 
       REM CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.                  4F11766 
       REM CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC.       4F11767 
CC000  STZ 2G                        SET DICTIONARY WORD TAG, AND       4F11768 
       LXA L(0),3                    CHARACTER COUNT AND ENTRY COUNT.   4F11769 
CC001  TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770 
       TSX CC500,4                 * EXAMINE NEXT DICTI0NARY CHARACTER. 4F11771 
       CAS ENDMK                     TEST FOR CONSECUTIVE ENDMARKS.     4F11772 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11773 
       TSX DIAG,4                  * ERROR = NOT FOUND IN DICTIONARY.   4F11774 
       TXI CC004,0                   GO BEGIN COMPARISON.               4F11775 
CC002  TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776 
       CAS ENDMK                     TEST FOR END OF DIC ENTRY.         4F11777 
       TXI ERR77P,0                * MACHINE ERROR, GO T0 DIAGNOSTIC.   4F11778 
       TXI CC007,0                   IF END OF ENTRY, LOOK NO FURTHER.  4F11779 
CC004  STO 1C                        OTHERWISE, SAVE CHARACTER          4F11780 
       STQ 1C+1                      AND REMAINDER OF DICTIONARY WORD.  4F11781 
       TSX C0190,4                 * GO GET NEXT FORMULA CHARACTER,     4F11782 
       LDQ 1C+1                      AND RESTORE DICTIONARY WORD.       4F11783 
       SUB 1C                        IF CHARACTERS ARE EQUAL,           4F11784 
       TZE CC002                     THEN GO COMPARE NEXT CHARACTERS.   4F11785 
CC005  TSX CC500,4                 * OTHERWISE, EXAMINE NEXT DIC CHAR.  4F11786 
       SUB ENDMK                     CONTINUE JNTIL AN ENDMARK IS       4F11787 
       TNZ CC005                     FOUND, THEN                        4F11788 
       TXI CC001,1,-1                COUNT ENTRY, AND BEGIN AGAIN.      4=11789 
CC007  CLA T,1                       IF THE CURRENT STATEMENT IS        4F11790 
       TPL T,1                       OF THE NON-EXECUTABLE TYPE,        4F11791 
       SXD 1C+2,1                    THEN                               4F11792 
       TSX TET00,1                 * GO ENTER EIFNO IN THE              4F11793 
       PZE 14                        NONEXC TABLE.                      4F11794 
       LXD 1C+2,1                    AND THEN                           4F11795 
CC008  TRA T,1                     * TAKE INDICATED TRANSFER.           4F11796 
       REM  END 0F PROGRAM CC000.                                       4F11797 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798 
       REM                                                              4F11799 
       REM STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=       4F11800 
       REM                                                              4F11801 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802 
       REM                                                              4F11803 
       REM C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.    4F11804 
       REM C0100 PROCESSES DO STATEMENTS.                               4F11805 
C0100  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806 
       TSX C0190,4                 * OBTAIN 1ST NON-BLANK CHARACTER     4F11807 
       TSX TESTI0,4                * WHICH SHOULD BE NUMERIC.           4F11808 
       TSX C0180,2                 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809 
       STO 2G                        SAVE THE 1ST CHAR OF SUBSCRIPT.    4F11810 
       CLA 1G                        TAKE CONVERTED RESULT FOR BETA     4F11811 
       STA 1C                        AND STORE IN ADDR OF 1C.           4F11812 
       CLA 2G                        1C IS NOW COMPLETE EXCEPT FOR TAG. 4F11813 
       TSX C0160,2                 * OBTAIN IN 1G THE SUBSCRIPT.        4F11814 
       CLA 1G                        STORE SUBSCRIPT                    4F11815 
       STO 1C+1                      IN 1C+1.                           4F11816 
       TSX C0150,2                 * OBTAIN IN 1G THE PROPER N1.        4F11817 
       CLA 1G                        STORE N1                           4F11818 
       STO 1C+2                      IN 1C+2.                           4F1.819 
       CAL I                         OBTAIN I IN LOGICAL ACC AND        4F11820 
       ARS 18                        STORE IN POS 18 OF 1C              4F11821 
       ORS 1C                        0 IF NUMERIC, OR 1 IF NO,-NUMERIC. 4F11822 
       TSX C0150,2                 * OBTAIN IN 1G THE PROPER N2.        4F11823 
       TSX TESTA0,4                * TEST THE AC FOR COMMA OR ENDMARK.  4F11824 
       TNZ C0113                     IF ENDMARK, THEN                   4F11825 
       RQL 31                        CREATE ONE IN MQ FOR N3            4F11826 
       STQ RESIDU                    AND PLACE IN RESIDU.               4F11827 
C0113  CLA 1G                        STORE N2                           4F11820 
       STO 1C+3                      IN 1C+3.                           4F11829 
       CAL I                         OBTAIN I IN LOG ACC AND            4F11830 
       ARS 19                        STORE IN POS 19 OF 1C              4F11831 
       ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832 
       TSX C0150,2                 * OBTAIN IN 1G THE PROPER N3.        4F11833 
       TSX TESTD0,4                * THE AC SHOULD CONTAIN AN ENDMARK.  4F11834 
       CLA 1G                        STORE N3                           4F11835 
       STO 1C+4                      IN 1C+4.                           4F11836 
       CAL I                         OBTAIN I IN LOG ACC AND            4F11837 
       ARS 20                        STORE IN POS 20 OF 1C              4F11838 
       ORS 1C                        O IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839 
       TSX TET00,1                 * GO TO TET PROGRAM TO ENTER         4F11840 
       PZE 1                         1C,1C+1,..1C+4 IN TDO TABLE 1.     4F11841 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F11842 
       REM  END OF PROGRAM C0100.                                       4F11843 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844 
       REM                                                              4F11845 
       REM C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,     4F11846 
       REM CIT00,SS000(CSA000).                                         4F11847 
       REM C0200 PROCESSES GO TO STATEMENTS.                            4F11848 
C0200  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F11849 
       STO 1C+2                      AND IN 1C+2.                       4F11850 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER    4F11851 
       CAS L(9)                      AND COMPARE IT WITH 9.             4F11852 
       TXI C0205,0                   IF NON-NUMERIC, GO COMPARE WITH (. 4F11853 
       NOP                           IF NUMERIC, THEN                   4F11854 
       TSX C0180,2                 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855 
       TSX TESTD0,4                * THE AC SHOULD CONTAIN AN ENDMARK.  4F11856 
       CLA 1G                        STORE BETA IN 1C+1 TO CONSTRUCT    4F11857 
       STO 1C+1                      THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858 
       TXI C0202,0                   GO TO ENTER 1C,1C+1 INTO TIFGO.    4F11859 
C0205  CAS ALPAR                     TEST CHARACTER FOR ALPHABETIC.     4F11860 
       TXI C0210,0                   IF NOT ALPHABETIC, THEN            4F11861 
       TXI C0212,0                   THIS IS TYPE= GO TO ( ), I.        4F11862 
C0210  TSX C0160,2                 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863 
       TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864 
       CLA 1G                        SAVE THE SYMBOL N IN 1C+3          4F11865 
       STO 1C+3                      FOR COMPILED INSTRUCTION.          4F11866 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER,   4F11867 
       TSX TESTE0,4                * WHICH SHOULD BE A LPAREN.          4F11868 
       CLA L(1)                      PREPARE TO SET ADDRESS PART OF 1C  4F11869 
       TRA C0213                     TO 1 TO INDICATE CLASS OF TRANSFER.4F11870 
C0212  CLA L(2)                      PREPARE TO SET ADDR OF 1C TO 2.    4F11871 
C0213  STA 1C                        STORE 1 OR 2 IN ADDR OF 1C.        4F11872 
       LXD CTRAD,2                   OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873 
       PXD ,2                        PLACE IN THE DECREMENT OF THE AC   4F11874 
       STO 1C+1                      AND STORE IN 1C+1.                 4F11875 
C0215  TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR.        4F11876 
       TSX C0180,2                 * OBTAIN IN 1G THE BIN EQU OF BETA.  4F11877 
       STO 2G                        SAVE CHAR IN ACC.                  4F11878 
       TSX TET00,1                 * GO TO ENTER 1G                     4F11879 
       PZE 3                         INTO TRAD TABLE (TABLE 3).         4F11880 
       LXD CTRAD,2                   REDUCE COUNTER                     4F11881 
       TIX C0216,2,1                 CTRAD                              4F11882 
C0216  SXD CTRAD,2                   BY 1.                              4F11883 
       CLA 2G                        RESTORE CHAR TO ACC.               4F11884 
       TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F11885 
       TNZ C0215                     IF RIGHT PARENTHESIS, THEN         4F11886 
       CLA CTRAD                     OBTAIN IN ADDR OF ACC 250-NO. OF   4F11887 
       ARS 18                        ENTRIES IN TRAD TABLE,AND STORE    4F11888 
       STA 1C+1                      IN ADDR OF 1C+1.                   4F11889 
       CLA 1C                        OBTAIN 1C IN ACC                   4F11890 
       LBT                           AND TEST L0W ORDER BIT.            4F11891 
       TRA C0220                     THIS IS A TYPE GO TO (),I FORMULA. 4F11892 
       TSX C0190,4                 * OBTAIN NEXT NB CHAR AND            4F11893 
       TSX TESTD0,4                * TEST FOR ENDMK.                    4F11894 
       TSX CIT00,4                 * G0 MAKE THE FOLLOWING CIT ENTRY=   4F11895 
       PZE 1C+2                      WORD 1--DECR= INTFORMNO (LOCATION) 4F11896 
       PZE L(TRA)                    WORD 2--TRA000 (OP AND DECR)       4F11897 
       PZE 1C+3                      WORD 3--VARIABLE N IADDRESS)       4F11898 
       PZE L(0)                      WORD 4--000000 IREL ADDR AND TAG). 4F11899 
       TRA C0202                     GO TO ENTER 1C,1C+1 INTO TIFGO.    4F11900 
C0220  TSX C0190,4                 * EXAMINE NEXT NB CHARACTER,         4F11901 
       TSX TESTG0,4                * WHICH SHOULD BE A COMMA.           4F11902 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR, ANO    4F11903 
       TSX C0160,2                 * OBTAIN IN 1G THE FXD-PT. VARIABLE, 4F11904 
       TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905 
       CLA L(1)                      PREPARE PROPER FORM OF SUBSCRIPT   4F11906 
       STO E+3                       COMBINATION AS                     4F11907 
       STO DIMCTR                    INPUT T0 SUBSCRIPT ANALYSIS=       4F11908 
       CLA 1G                        E+3 = 1ST COEFFICIENT,             4F11909 
       STO E+4                       E+6 = 1ST SUBSCRIPT VARIABLE,      4F11910 
       STZ E+9                       E+9 = ADDEND OF SUBSCRIPT,         4F11911 
       TSX CSA000,4                * DIMCTR = DIMENSION OF VARIABLE.    4F11912 
       CLA E                         OUTPUT FROM CSA IS FOUND IN        4F11913 
       ARS 24                        E = I--TAUTAG (GENERAL TAG) 1-11.  4F11914 
       STO 2G                        ADJUST AND SAVE FOR COMP. 1NSTR.   4F11915 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11916 
       PZE 1C+2                      WORD 1--DECR-INTFORMNO(LOCAT1ON)   4F11917 
       PZE L(TRA)                    WORD 2--TRA000(OP ANO 0ECR)        4F11918 
       PZE L(0)                      WORD 3--000000(ADDRESS)            4F11919 
       PZE 2G                        WORD 4--ADDR = TAUTAG FOR I        4F11920 
       REM C0200= ENTPY POINT USED BY C0400,C1000.                      4F11921 
C0202  TSX TET00,1                 * GO TO TET TO ENTER 1C AND 1C+1     4F11922 
       PZE 2                         INTO TIFGO TABLE ITABLE 2).        4F11923 
 CTRAD TXI CA010,0,250             * EXIT TO PROCESS NEXT STATEMENT.    4F11924 
       REM  END OF PROGRAM C0200.                                       4F11925 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926 
       REM                                                              4F11927 
       REM C030O/ CALLS=C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,     4F11928 
       REM =STATEB.                                                     4F11929 
       REM C0300 PROCESSES IF STATEMENTS.                               4F11930 
C0300  LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11931 
       PXD ,4                        NUMBER IN THE DECREMENT OF 1C      4F11932 
       SSM                           WITH SIGN SET TO MINUS             4F11933 
       STO 1C                        FOR FUTURE TIFGO ENTRY.            4F11934 
       TSX C0190X,4                * SET CHCTR AND FWA TO BEGIN SCAN.   4F11935 
       TSX C0190,4                 * OBTAIN IN AC THE 1ST NB CHAR (I).  4F11936 
       LDQ L(X)                      REPLACE THE CHARACTER I            4F11937 
       TSX C0390,4                 * WITH THE CHARACTER X.              4F11938 
       LDQ L(10)                     REPLACE THE CHARACTER F            4F11939 
       TSX C0390,4                 * WITH THE CHARACTER 001010.         4F11940 
       TSX TESTE0,4                * IF NOT LPAREN -- THEN ERROR.       4F11941 
       LDQ AEQUAL                    REPLACE THE CHARACTER LPAREN       4F11942 
       TSX C0390,4                 * WITH THE CHARACTER EQUAL.          4F11943 
       LXA L(1),2                    SET XR2 FOR COUNTING PARENTHESES.  4F11944 
       TRA *+2                                                          4F11945 
C0302  TSX C0190,4                 * MAKE SURE THAT NEXT NB CHARACTER   4F11946 
       CAS ENDMK                     IS NOT AN ENDMARK.                 4F11947 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11948 
       TSX DIAG,4                  * PROGRAM ERROR, GO TO DIAGNOSTIC.   4F11949 
       CAS ALPAR                     IF IT IS A LPAREN,                 4F11950 
       TXI C0303,0                   THEN ADD 1 TO PAREN COUNT, AND     4F11951 
       TXI C0302,2,1                 GO EXAMINE NEXT CHARACTER.         4F11952 
C0303  SUB ARPAR                     IF IT IS A RPAREN,                 4F11953 
       TNZ C0302                     THEN TEST PAREN COUNT, AND IF IT   4F11954 
       TIX C0302,2,1                 CAN NO, BE REDUCED,MATE IS FOUND.  4F11955 
       LDQ ENDMK                     SO REPLACE THE CHARACTER RPAREN    4F11956 
       TSX C0390,4                 * WITH THE CHARACTER ENDMK.          4F11957 
       TSX C0180,2                 * BINARY EQUIVALENT OF BETA 1.       4F11958 
       TSX TESTG0,4                * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959 
       CLA 1G                        MOVE BETA1                         4F11960 
       STA 1C                        TO ADDRESS OF 1C.                  4F11961 
       TSX C0190,4                 * AND PROCEED TO FORM                4F11962 
       TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 2.   4F11963 
       TSX TESTG0,4                * THIS SHOULD BE FOLLOWED BY A COMMA.4F11964 
       CLA 1G                        MOVE BETA2                         4F11965 
       ALS 18                        TO DECR PART                       4F11966 
       STO 1C+1                      OF 1C+1.                           4F11967 
       TSX C0190,4                 * AND PROCEED TO FORM                4F11968 
       TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 3.   4F11969 
       TSX TESTD0,4                * THIS SHOULD BE FOLLOWED BY ENOMARK.4F11970 
       CLA 1G                        MOVE BETA3                         4F11971 
       STA 1C+1                      TO ADDRESS OF 1C+1.                4F11972 
       TXI ARITH,0                 * EXIT T0 ARITH FOR FINAL PROCESSING.4F11973 
       REM  END OF PROGRAM C0300.                                       4F11974 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975 
       REM                                                              4F11976 
       REM C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.                 4F11977 
       REM C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.                 4F11978 
C0400  CLA L(112)                    FOR SENSE SWITCH                   4F11979 
       STO 1H                        SET 1H TO 112, AND PREPARE TO      4F11980 
       CLA L(PSE)                    SET 2H TO PSE.                     4F11981 
       REM C0401= ENTRY POINT USED BY C0500.                            4F11982 
C0401  STO 2H                        SET 2H FOR SENSE SWITCH OR LIGHT.  4F11983 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11984 
       TSX C0180,2                 * EQUIVALENT OF SW OR SL NUMBER.     4F11985 
       TSX TESTF0,4                * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986 
       CLA L(3)                      STORE 3                            4F11987 
       STO 1C                        IN ADDRESS 0F 1C.                  4F11988 
       CLA 1G                        ADD THE PROPER INCREMENT TO THE    4F11989 
       ADD 1H                        NUMBER OF SENSE SWITCH OR LIGHT,   4F11990 
       ALS 18                        AND ADJUST TO THE DECREMENT.       4F11991 
       REM C0402= ENTRY POINT USED BY C0600.                            4F11992 
C0402  STO 1C+3                      SET 1C+3 FOR CIT ENTRY.            4F11993 
       LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11994 
       PXD ,4                        NUMBER IN THE DECREMENT OF         4F11995 
       STD 1C                        1C FOR FUTURE TIFGO ENTRY, AND     4F11996 
       STO 1C+2                      1C+2 FOR FUTURE CIT ENTRY.         4F11997 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11998 
       TSX C0180,2                 * EQUIVALENT OF BETA 1,              4F11999 
       TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000 
       CLA 1G                        BRING UP,                          4F12001 
       ALS 18                        ADJUST AND                         4F12002 
       STO 1C+1                      STORE BETA1 IN DECR OF 1C+1.       4F12003 
       TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F12004 
       TSX C0180,2                 * EQUIVALENT OF BETA 2,              4F12005 
       TSX TESTD0,4                * WHICH SHOULD BE FOLL0WED BY ENDMK. 4F12006 
       CLA 1G                        BRING UP AND                       4F12007 
       STA 1C+1                      STORE BETA2 IN ADDR OF 1C+1.       4F12008 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12009 
       PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12010 
       PZE 2H                        WORD2--PSE,MSE,DCT,TOV,OR TQO.     4F12011 
       PZE L(0)                      WORD3--000000 (ADDRESSI            4F12012 
       PZE 1C+3                      WORD4--DECR=SS OR SL NO., OR 0000004F12013 
       TXI C0202,0                 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014 
       REM  END OF PROGRAM C0400.                                       4F12015 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016 
       REM                                                              4F12017 
       REM C0500/ USES=C0400.                                           4F12018 
       REM C0500 PROCESSES IF (SENSE LIGHT STATEMENTS.                  4F12019 
C0500  CLA L(96)                     STORE 96 IN                        4F12020 
       STO 1H                        1H AND                             4F12021 
       CLA L(MSE)                    OBTAIN (MSE000) IN ACC.            4F12022 
       TRA C0401                   * AND CONTINUE BY USING PROGRAM C04. 4F12023 
       REM  END OF PROGRAM C0500.                                       4F12024 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025 
       REM                                                              4F12026 
       REM C0600/ USES=C0400.                                           4F12027 
       REM C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.                  4F12028 
C0600  CLA L(DCT)                    STORE (DCT000)                     4F12029 
       STO 2H                        IN 2H                              4F12030 
       CLA L(4)                      AND PICK UP 4 TO SET 1C.           4F12031 
       REM C0601= ENTRY POINT USED BY C0700.                            4F12032 
C0601  STO 1C                        SET 1C FOR FUTURE TIFGO ENTRY.     4F12033 
       PXD ,0                        CLEAR THE AC,                      4F12034 
       TRA C0402                   * AND CONTINUE BY USING PROGRAM C04. 4F12035 
       REM  END OF PROGRAM C0600.                                       4F12036 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037 
       REM                                                              4F12038 
       REM C0700/ USES C0600.                                           4F12039 
       REM C0700 PROCESSES IF AC OVERFLOW STATEMENTS.                   4F12040 
C0700  CLA L(TOV)                    PICKUP TOV000 TO SET 2H.           4F12041 
       REM C0701= ENTRY POINT USED BY C0800.                            4F12042 
C0701  STO 2H                        SET 2H FOR FUTURE CIT ENTRY.       4F12043 
       CLA L(5)                      PICKUP 5 TO SET 1C, AND            4F12044 
       TRA C0601                   * CONTINUE BY USING PROGRAM C06.     4F12045 
       REM  END OF PROGRAM C0700.                                       4F12046 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047 
       REM                                                              4F12048 
       REM C0800/ USES=C0700.                                           4F12049 
       REM C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.                   4F12050 
C0800  CLA L(TQO)                    PICKUP TQO000 TO SET 2H,           4F12051 
       TRA C0701                   * AND CONTINUE BY USING PROGRAM C07. 4F12052 
       REM  END OF PROGRAM C0800.                                       4F12053 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054 
       REM                                                              4F12055 
       REM C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.                 4F12056 
       REM C0900 PROCESSES PAUSE STATEMENTS.                            4F12057 
C0900  LXD C090X,2                   SET XR2 FOR EXIT TO CA000.         4F12058 
       REM C0901= ENTRY POINT USED BY C1300.                            4F12059 
C0901  STZ 1G                        CLEAR 1G.                          4F12060 
C0902  TSX C0190,4                 * TEST NEXT NON-BLANK CHARACTER      4F12061 
       CAS ENDMK                     FOR END OF STATEMENT MARK.         4F12062 
       TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F12063 
C090X  TXI C0903,0,-CA010+1          IF NOT END OF STATEMENT, THEN      4F12064 
       ADD 1G                        ADD 1G TO DIGIT,                   4F12065 
       ALS 3                         MULTIPLY BY 8,                     4F12066 
       STO 1G                        AND STORE BACK IN 1G.              4F12067 
       TXI C0902,0                   CONTINUE UNTIL END OF STATEMENT.   4F12068 
C0903  CLA 1G                        THEN PLACE 0CTAL ALPHA             4F12069 
       ALS 15                        IN THE DECREMENT                   4F12070 
       STO 1C                        OF 1C FOR FUTURE CIT ENTRY.        4F12071 
       LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F12072 
       PXD ,4                        NUMBER IN THE DECREMENT            4F12073 
       STO 1C+1                      OF 1C+1,WITH ZEROS ELSEWHERE.      4F12074 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12075 
       PZE 1C+1                      WORD1--DECR = INTFORMNO (LOCATION) 4F12076 
       PZE L(HPR)                    WORD2--HPR000 (OP AND DECR)        4F12077 
       PZE L(0)                      WORD3--000000 (ADDRESS)            4F12078 
       PZE 1C                        WORD4--DECR = ALPHA, REST ZEROS.   4F12079 
       TRA 1,2                     * EXIT TO CA000, OR TO C1300.        4F12080 
       REM  END OF PROGRAM C0900.                                       4F12081 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082 
       REM                                                              4F12083 
       REM C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST..4F12084 
       REM CIT00.                                                       4F12085 
       REM C1000 PROCESSES ASSIGN STATEMENTS.                           4F12086 
C1000  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F12087 
       STO 1C+2                      AND 1C+2,WITH ZEROS ELSEWHERE.     4F12088 
       CLA L(6)                      STORE 6 IN                         4F12089 
       STA 1C                        ADDRE=S OF 1C.                     4F12090 
       TSX C0180X,2                * GO FORM BINARY EQUIV OF ALPHA.     4F12091 
       SUB L(T)                      IF NEXT CHARACTER IS NOT T, THEN   4F12093 
       TZE *+2                       THIS IS AN                         4F12094 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12095 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER   4F12096 
       SUB L(O)                      AND IF IT IS NOT O, THEN           4F12097 
       TNZ *-3                       ERROR, GO TO DIAGNOSTIC.           4F12098 
       CLA 1G                        PUT BIN EQUIV OF ALPHA             4F12099 
       STO 1C+1                      IN ADDRESS OF 1C+1.                4F12100 
       TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12101 
       TSX C0160,2                 * THE SYMBOL N.                      4F12102 
       TSX TESTD0,4                * THE NEXT NB CHAR SHOULD BE ENDMK.  4F12103 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12104 
       PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12105 
       PZE L(CLA)                    WORD2--CLA000 (OP AND DECR)        4F12106 
       PZE L(0)                      WORD3--000000 (ADDRESS)            4F12107 
       PZE L(0)                      WORD4--000000 (RELADDR AN0 TAG).   4F12108 
       TSX CIT00,4                 * STORE SECOND COMPILED INSTRUCTION= 4F12109 
       PZE L(0)                      WORD1--0OOOO0  (ALL ZEROS)         4F12110 
       PZE L(STO)                    WORD2--STO000 (OP AND DECR)        4F12111 
       PZE 1G                        WORD3--SYMBOL N IADDRESS)          4F12112 
       PZE L(0)                      WORD4--000000 (REL ADDR AND TAG).  4F12113 
       TRA C0202                   * CONTINUE BY USING PROGRAM C02.     4F12114 
       REM  END OF PROGRAM C1000.                                       4F12115 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116 
       REM                                                              4F12117 
       REM C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.                4F12118 
       REM C1100 PROCESSES SENSE LIGHT STATEMENTS.                      4F12119 
C1100  TSX C0180X,2                * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120 
       TSX TESTD0,4                * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122 
       CLA 1G                        STORE SENSE LIGHT NUMBER           4F12123 
       ADD L(96)                     PLUS 96                            4F12124 
       ALS 18                        IN DECR                            4F12125 
       STO 1G                        OF 1G.                             4F12126 
       TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127 
       TSX CIT00,4                 * G0 MAKE THE FOLLOWING CIT ENTRY=   4F12128 
       PZE 1C                        WORD1--DECR = INTFORMNO (LOCATION) 4F12129 
       PZE L(PSE)                    WORD2--PSE000 (OP AND DECREMENT)   4F12130 
       PZE L(0)                      WORD3--000000 (ADDRESS PART)       4F12131 
       PZE 1G                        WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12133 
       REM  END OF PROGRAM C1100.                                       4F12134 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135 
       REM                                                              4F12136 
       REM C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.    4F12137 
       REM C1200 PR0CESSES DIMENSION STATEMENTS.                        4F12138 
C1200  TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12139 
       TSX C0160,2                 * THE VARIABLE SYMBOL.               4F12140 
       TSX TESTE0,4                * NEXT NB CHARACTER SH0ULD BE LPAREN.4F12141 
       CLA 1G                        PUT VARIABLE SYMBOL                4F12142 
       STO 1C                        IN 1C.                             4F12143 
       STO E+2                       ALS0 IN E+2. THEN                  4F12144 
       TSX DIM1SR,4                * GO SEARCH DIM1 TABLE.              4F12145 
       TRA C1280                     THEN IF NOT                        4F12146 
       TRA C1299                     FOUND,                             4F12147 
C1280  TSX DIM2SR,4                * GO SEAROH DIM2 TABLE.              4F12148 
       TRA C1281                     THEN IF NOT                        4F12149 
       TRA C1299                     FOUND,                             4F12150 
C1281  TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F12151 
       TRA C1282                     DO NOT CONTINUE IF                 4F12152 
C1299  TSX DIAG,4                  * VARIABLE PREVIOUSLY APPEARED.      4F12153 
C1282  TSX C0180X,2                * GO FORM BINARY EQUIV OF D1.        4F12154 
       SUB CLOS                      IF NOT 1 DIMENSION,                4F12156 
       TZE C1210                     THEN                               4F12157 
       CLA 1G                        PUT D1                             4F12158 
       ALS 18                        IN DECR                            4F12159 
       STO 1C+1                      OF 1C+1.                           4F12160 
       TSX C0180X,2                * GO FORM BINARY EQUIV OF D2.        4F12161 
       SUB CLOS                      IF NOT 2 DIMENSION,                4F12163 
       TZE C1220                     THEN                               4F12164 
       CLA 1G                        PUT D2                             4F12165 
       STA 1C+1                      IN ADDRESS OF 1C+1.                4F12166 
       TSX C0180X,2                * GO FORM BINARY EQUIV 0F D3.        4F12168 
       SUB CLOS                      IF MORE THAN 3 DIMENSION,          4F12169 
       TZE *+2                       THIS IS AN                         4F12170 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12171 
       CLA 1G                        IF 3 DIMENSION, PUT D3             4F12172 
       STO 1C+2                      IN 1C+2, AND                       4F12173 
       TSX DIM3IX,4                * GO MAKE DIM3 ENTRY.                4F12174 
       TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12175 
C1210  CLA 1G                        IF 1 DIMENSION, PUT D1             4F12176 
       STO 1C+1                      IN 1C+1, AND                       4F12177 
       TSX DIM1IX,4                * GO MAKE DIM1 ENTRY. THEN           4F12178 
       TXI C1201,0                   GO TO TEST FOR END 0F STATEMENT.   4F12179 
C1220  CLA 1G                        IF 2 DIMENSION, PUT D2 IN          4F12180 
       STA 1C+1                      ADDRESS PART OF 1C+1. AND          4F12181 
       TSX DIM2IX,4                * GO MAKE DIM2 ENTRY. THEN           4F12182 
C1201  TSX C0190,4                 * OBTAIN NB CHAR FOLLOWING RPAREN.   4F12183 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12184 
       TNZ C1200                     IF CHARACTER IS ENDMARK, THEN      4F12185 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12186 
       REM  END OF PROGRAM C1200.                                       4F12187 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188 
       REM                                                              4F12189 
       REM C1300/ CALLS=C0901,TET00,CIT00.                              4F12190 
       REM C1300 PROCESSES STOP STATEMENTS.                             4F12191 
C1300  TSX TET00,1                 * GO MAKE EIFNO ENTRY                4F12192 
       PZE 15                        IN TSTOP TABLE.                    4F12193 
       TSX C0901,2                 * USE C0900 TO BEGIN PROCESSING.     4F12194 
       TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F12195 
       PZE L(0)                      WORD1--ALL ZEROS                   4F12196 
       PZE L(TRA)                    WORD2--TRA000 (OP+DECR)            4F12197 
       PZE 1C+1                      WORD3--DECR = INTFORMNO (SYMBOL)   4F12198 
       PZE L(0)                      WORD4--ZEROS (REL ADDR AND TAG)    4F12199 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12200 
       REM  END OF PROGRAM C1300.                                       4F12201 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202 
       REM                                                              4F12203 
       REM C1400/ CALLS=C0190,C0180,TEST..,TET00.                       4F12204 
       REM C1400 PROCESSES FREQUENCY STATEMENTS.                        4F12205 
C1400  TSX C0180X,2                * GO FORM BINARY EQUIV OF EFN.       4F122006
       TSX TESTE0,4                * CHARACTER SHOULD BE A LPAREN.      4F12208 
       CLS 1G                        CHANGE SIGN OF SYMBOL              4F12209 
       STO 1G                        TO MINUS.                          4F12210 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER         4F12211 
       PZE 7                         SYMBOL INTO FRET (TABLE 7), AND    4F12212 
C1401  TSX C0180X,2                * GO FORM BINARY EQUIV OF M(1).      4F12213 
       STO 1C                        SAVE CHAR IN ACC.                  4F12215 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER M(1)    4F12216 
       PZE 7                         INTO TABLE FRET (TABLE7), AND      4F12217 
       CLA 1C                        RESTORE CHAR IN ACC, AND           4F12218 
       TSX TESTB0,4                * TEST FOR , OR ).                   4F12219 
       TNZ C1401                     IF RIGHT PARENTHESIS, THEN         4F12220 
       TSX C0190,4                 * OBTAIN IN ACC NEXT NBCHAR, AND     4F12221 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12222 
       TNZ C1400                     IF ENDMARK, THIS STATEMENT IS DONE.4F12223 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12224 
       REM  END OF PROGRAM C1400.                                       4F12225 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226 
       REM                                                              4F12227 
       REM C1500/ CALLS=C0190,TEST..,C0160,C01B0,TET00.                 4F12228 
       REM C1500 PROCESSES EQUIVALENCE STATEMENTS.                      4F12229 
C1500  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12230 
       TSX TESTE0,4                * CHARACTER SHOULD BE A LPAREN.      4F12231 
C1501  CLA L(1)                      INITIALIZE 1C                      4F12232 
       STO 1C+1                      TO 1.                              4F12233 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC AND      4F12234 
       TSX C0160,2                 * OBTAIN IN 1G THE SYMBOL V.         4F12235 
       LDQ 1G                        MOVE V                             4F12236 
       STQ 1C                        INTO 1C.                           4F12237 
       CAS ALPAR                     EXAMINE CHARACTER LEFT IN THE AC,  4F12238 
       TXI C1503,0                   AND IF                             4F12239 
       TXI C1502,0                   CHARACTER IS A LEFT PARENTHESIS,   4F12240 
       TXI C1503,0                   THEN                               4F12241 
C1502  TSX C0180X,2                * GO FORM BINARY EQUIV OF N.         4F12242 
       TSX TESTF0,4                * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244 
       CLA 1G                        PUT BIN EQUIV OF N                 4F12245 
       STO 1C+1                      IN 1C+1.                           4F12246 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN AC, AND      4F12247 
C1503  TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F12248 
       TZE C1504                     IF COMMA, THEN                     4F12249 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12250 
       PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12251 
       TXI C1501,0                   RETURN TO CONTINUE PROCESSING X.   4F12252 
C1504  CLS 1C+1                      MAKE SIGN OF N MINUS SINCE         4F12253 
       STO 1C+1                      TNIS IS LAST ITEM.                 4F12254 
       TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12255 
       PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12256 
       TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC, AND     4F12257 
       TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12258 
       TNZ C1500                     IF ENDMARK, THEN                   4F12259 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12260 
       REM  END OF PROGRAM C1500.                                       4F12261 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262 
       REM                                                              4F12263 
       REM C1600/ CALLS=C0190,TEST..,GIF,BSS.                           4F12264 
       REM C1600 PROCESSES CONTINUE STATEMENTS.                         4F12265 
C1600  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12266 
       TSX TESTD0,4                * CHARACTER SHOULD BE AN ENDMARK.    4F12267 
       TSX GIF,4                   * GET INTERNAL FORMULA NUMBER, AND   4F12268 
       TSX BSS,2                   * GO COMPILE= IFN BSS 0.             4F12269 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12270 
       REM  END OF PROGRAM C1600.                                       4F12271 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272 
       REM                                                              4F12273 
       REM C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.    4F12274 
       REM C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.          4F12275 
C3500  CAL TXHOP                                                        4F12276 
       STP C3003                                                        4F12277 
C3000  LXD EIFNO,4                   EXAMINE INTERNAL FORMULA NO., AND  4F12278 
       TXL *+2,4,1                   IF NOT THE 1ST STATEMENT, THEN     4F12279 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12280 
       CLA ARGCNT                    SET ARGCNT TO INDICATE TO LATER    4F12281 
       SSP                           RETURN THAT THERE WAS A PRECEEDING 4F12282 
       STO ARGCNT                    SUBROUTINE OR FUNCTION STATEMENT.  4F12283 
       TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12284 
       TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285 
       TSX C0160,2                 * ASSEMBLE NAME IN 1G.               4F12286 
       TSX TESTC0,4                * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 
C3003  TXL *+3,0                                                        4F12288 
       CLA 1G                                                           4F12289 
       STO FSNAME                                                       4F12290 
       TSX SUBX00,4                * FILL OUT NAME WITH BLANKS.         4F12291 
       TSX TET00,1                 * GO ENTER NAME                      4F12292 
       PZE 11                        IN SUBDEF TABLE.                   4F12293 
       LXD EIFNO,4                   PLACE                              4F12294 
       PXD ,4                        INTERNAL FORMULA NUMBER            4F12295 
       STO G                         IN G.                              4F12296 
       TXI C3002,0                   GO TEST FOR END OF STATEMENT.      4F12297 
C3001  ADD ENDMK                     IF NOT ENDMARK, RESTORE CHARACTER  4F12298 
       TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC        4F12299 
       STO FIRSTC                    1ST CHARACTER OF ARGUMENT.         4F12300 
       TSX C0160,2                 * ASSEMBLE ARGUMENT IN 1G.           4F12301 
       TSX TESTB0,4                * NEXT CHAR SHD BE COMMA OR RPAREN.  4F12302 
       CLA 1G                        MOVE ARGUMENT                      4F12303 
       STO G+1                       INTO G+1.                          4F12304 
       TSX TESTFX,1                * GO TEST FOR FIXED OR FLOATING PT.  4F12305 
       TXI C3004,0                   IF FLOATING PT., SKIP FORVAL ENTRY.4F12306 
       TSX TET00,1                 * IF FIXED POINT, GO MAKE ENTRY      4F12307 
       PZE 6                         IN FORVAL TABLE.                   4F12308 
C3004  TSX TET00,1                 * IN BOTH CASES, MAKE ENTRIES IN     4F12309 
       PZE 11                        SUBDEF TABLE.                      4F12310 
       CLA ARGCNT                    UPDATE                             4F12311 
       ADD D1                        ARGUMENT COUNT                     4F12312 
       STO ARGCNT                    BY 1.  AND                         4F12313 
C3002  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F12314 
       SUB ENDMK                     IF NOT ENDMARK, THEN               4F12315 
       TNZ C3001                     GO PROCESS NEXT ARGUMENT.          4F12316 
       TXI CA010,0                 * OTHERWISE, EXIT TO CA000.          4F12317 
       REM  END OF PROGRAM C3000.                                       4F12318 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319 
       REM                                                              4F12320 
       REM C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.                  4F12321 
       REM C3100 PROCESSES COMMON STATEMENTS.                           4F12322 
C3100  TSX C0190,4                 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 
       TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC.       4F12324 
       TSX C0160,2                 * ASSEMBLE SYMBOL IN 1G, AND TEST    4F12325 
       TSX TESTA0,4                * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326 
       PAX ,4                        SAVE RESULT OF TEST IN XR4, AND    4F12327 
       TSX TET00,1                 * GO ENTER THIS SYMBOL               4F12328 
       PZE 12                        IN COMMON TABLE.                   4F12329 
       CLA SBDFCN                    ANY ENTRIES IN SUBDEF              4F123291
       TZE C3101                     INDICATE THIS IS NOT A             4F123292
       CLA 2E18                      MAIN PROGRAM. SINCE THIS           4F123293
       STO G                         IS A COMMON                        4F123294
       CAL 1G                        STATEMENT WHICH                    4F123296
       SLW G+1                       APPEARS IN A SUBPROGRAM            4F123297
       ARS 30                        ENTER ANY4                         4F123298
       TSX TESTFX+1,1              * FIXED POINT                        4F123299
       TRA C3101                     VARIABLES                          4F12330 
       TSX TET00,1                 * IN                                 4F123301
       PZE 6                         FORVAL TABLE.                      4F123302
 C3101 TXH C3100,4,0                 IF CHARACTER WAS COMMA, REPEAT.    4F123303
       TXI CA010,0                 * IF ENDMK, EXIT TO CA000.           4F12331 
       REM  END OF PROGRAM C3100.                                       4F12332 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333 
       REM                                                              4F12334 
       REM C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).        4F12335 
       REM C3200 PROCESSES RETURN STATEMENTS.                           4F12336 
C3200  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12337 
       TSX TESTD0,4                * WHICH SHOULD BE AN ENDMARK.        4F12338 
       TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339 
       TSX JIF,4                   * SET SL TO ALPHA+1.                 4F12340 
       CLA ARGCNT                    TEST ARGCNT FOR PRECEEDING         4F12341 
       TPL *+2                       SUBROUTINE - IF NONE, THEN         4F12342 
       TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12343 
       CLA FSNAME                                                       4F12344 
       TZE *+7                                                          4F12345 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12346 
       PZE 1C                        WORD1--O(IFN)000                   4F12347 
       PZE L(CLA)                    WORD2--CLA000                      4F12348 
       PZE FSNAME                    WORD3--NAME OF FUNCTION            4F12349 
       PZE L(0)                      WORD4--000000                      4F12350 
       STZ 1C                        CLEAR 1C.                          4F12351 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12352 
       PZE 1C                        WORD1--O(IFN)000                   4F12353 
       PZE L(LXD)                    WORD2--LXD000                      4F12354 
       PZE DOLSGN                    WORD3--$                           4F12355 
       PZE L(1)                      WORD4--000001                      4F12356 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12357 
       PZE L(0)                      WORD1--000000                      4F12358 
       PZE L(LXD)                    WORD2--LXD000                      4F12359 
       PZE DOLSGN                    WORD3--$                           4F12360 
       PZE ABTAG2                    WORD4--001002                      4F12361 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12362 
       PZE L(0)                      WORD1--000000                      4F12363 
       PZE L(QXD)                    WORD2--QXD000                      4F12364 
       PZE DOLSGN                    WORD3--$                           4F12365 
       PZE ABTAG3                    WORD4--002000                      4F12366 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12367 
       PZE SL                        WORD1--O(IFN+1)000                 4F12368 
       PZE L(QPR)                    WORD2--OPR000                      4F12369 
       PZE L(0)                      WORD3--000000                      4F12370 
       PZE ARGCNT                    WORD4--0(N+1)004                   4F12371 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12372 
       PZE L(0)                      WORD1--000000                      4F12373 
       PZE L(TRA)                    WORD2--TRA000                      4F12374 
       PZE SL                        WORD3--O(IFN+1)000                 4F12375 
       PZE L(0)                      WORD4--000000                      4F12376 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12377 
       REM  END OF PROGRAM C3200.                                       4F12378 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379 
       REM                                                              4F12380 
       REM C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.         4F12381 
       REM C3300 PROCESSES CALL STATEMENTS.                             4F12382 
C3300  TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12383 
       TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384 
       TSX C0160,2                 * COLLECT THF REST OF THE NAME, WHICH4F12385 
       TSX TESTC0,4                * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 
       TZE C3301                     IF LPAREN, THEN CHANGE CALL TO A   4F12387 
       TSX C0190X,4                * PSEUDO-ARITHMETIC FORMULA (Z10=).  4F12388 
       TSX C0190,4                 * PICKUP THE CHARACTER C,            4F12389 
       LDQ L(Z)                      AND                                4F12390 
       TSX C0390,4                 * REPLACE C WITH Z.                  4F12391 
       LDQ L(10)                     AND                                4F12392 
       TSX C0390,4                 * REPLACE A WITH TEN.                4F12393 
       LDQ EQUAL                     AND                                4F12394 
       TSX C0390,4                 * REPLACE FIRST L WITH =.            4F12395 
       LDQ BLANK                     AND                                4F12396 
       TSX C0390,4                 * REPLACE SECOND L WITH BLANK.       4F12397 
       CLA EIFNO                     PUT 1ST IFN OF THIS CALL IN CALLNM 4F12398 
       ARS 18                        FOR LATER TABLE ENTRY OF           4F12399 
       STA CALLNM                    FIRST / LAST NUMBERS OF CALLS.     4F12400 
       TXI ARITH,0                 * THEN EXIT TO ARITH TO PROCESS.     4F12401 
C3301  TSX SUBX00,4                * IF THERE ARE NO ARGUMENTS, THEN    4F12402 
       CLA 1G                        AFTER COMPLETING NAME W1TH BLANKS, 4F12403 
       STO G                         MOVE IT INTO G, AND                4F12404 
       TSX TET00,1                 * GO ENTER NAME                      4F12405 
       PZE 9                         IN CLOSUB TABLE.                   4F12406 
       TSX GETIFN,4                * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12408 
       PZE 1C                        WORD1--0(IFN)000                   4F12409 
       PZE L(SXD)                    WORD2--SXD000                      4F12410 
       PZE X(                        WORD3--700000                      4F12411 
       PZE L(4)                      WORD4--000004                      4F12412 
       TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12413 
       PZE L(0)                      WORD1--000000                      4F12414 
       PZE L(TSX)                    WORD2--TSX000                      4F12415 
       PZE 1G                        WORD3--(NAME)                      4F12416 
       PZE L(4)                      WORD4--000004                      4F12417 
       TSX FLTR00,4                * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418 
       PZE L(0)                      WORD1--000000                      4F12419 
       PZE L(LXD)                    WORD2--LXD000                      4F12420 
       PZE X(                        WORD3--700000                      4F12421 
       PZE L(4)                      WORD4--000004                      4F12422 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12423 
       REM  END OF PROGRAM C3300.                                       4F12424 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425 
       REM                                                              4F12426 
       REM C3400/ CALLS=C0190,DIAG,TEST...                              4F12427 
       REM C3400 PROCESSES END STATEMENTS.                              4F12428 
C3400  LXA L(5),2                    PREPARE TO SET 5 SS S1MULATORS.    4F12429 
C3405  TSX C0190,4                 * PICKUP CONSTANT,                   4F12430 
       CAS L(2)                      WHICH SH0ULD BE 0,1, OR 2.         4F12431 
       TSX DIAG,4                  * OTHERWISE, GO TO THE DIAGNOSTIC.   4F12432 
       TXI C3410,0                   SIMULATOR IS PRESET TO 2.          4F12433 
       STO ENDI1+5,2                 IF 0 OR 1, SET PROPER SIMULATOR.   4F12434 
C3410  TSX C0190,4                 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435 
       TIX C3405,2,1                 REPEAT PROCESS FOR 5 CONSTANTS.    4F12436 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12437 
       TSX TESTD0,4                * WHICH SHOULD BE AN ENDMK.          4F12438 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12439 
       REM  END OF PROGRAM C3400.                                       4F12440 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441 
       REM                                                              4F12442 
       REM STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=                    4F12443 
       REM                                                              4F12444 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445 
       REM                                                              4F12446 
       REM RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.                 4F12447 
       REM RDC PROCESSES READ STATEMENTS.                               4F12448 
RDC    CLA A81                       SET THE ADDRESS FIELD OF           4F12449 
       STA ENT                       ENT (NTR000) TO 81.                4F12450 
       TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12451 
       CLA CSH                       PICKUP (CSH) TO                    4F12452 
       REM TSC= ENTRY POINT USED BY RIT.                                4F12453 
TSC    STO TSA                       SET TSA.                           4F12454 
       CAL RTN                       MOVE (RTN)                         4F12455 
       SLW END                       INTO END.                          4F12456 
       CLA DBC                       PICKUP (DBC) TO                    4F12457 
       REM TTC= ENTRY POINT USED BY RDP.                                4F12458 
TTC    STO TTA                       SET TTA.                           4F12459 
       TSX BEG,4                   * CONVERT CONSTANT FORMAT NUMBER.    4F12460 
       TSX DIAG,4                  * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461 
       TNZ 4,4                       GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462 
       TSX DIAG,4                  * NO FORMAT NUMBER GIVEN.            4F12463 
       STA SET                       MOVE BINARY FORMAT NUMBER INTO SET.4F12464 
       CAL NTR                       MOVE NTR000                        4F12465 
       SLW OP                        INTO OP.                           4F12466 
       CLA TXLOP                     SET OP-SWITCHES,                   4F12467 
       STP ETMSW ,                   ETMSW AND LTMSW,                   4F12468 
       STP LTMSW                     TO NO TRANSFER CASE.               4F12469 
       TSX ETMSW,4                 * O0 COMPILE ETM.                    4F12470 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12471 
       PZE L(0)                      WORD1--000000                      4F12472 
       PZE CAL                       WORD2--CAL000                      4F12473 
       PZE TTA                       WORD3--(DBC) OR (BDC)              4F12474 
       PZE L(0)                      WORD4--000000                      4F12475 
       TSX CIT,4                   * GO MAKE THE FOLIOWING CIT ENTRY=   4F12476 
       PZE L(0)                      WORD1--000000                      4F12477 
       PZE SLW                       WORD2--SLW000                      4F12478 
       PZE L(0)                      WORD3--000000                      4F12479 
       PZE D1                        WORD4--001000                      4F12480 
       TSX LIB,4                   * MAKE CL0SUB ENTRY, AND COMPILE=    4F12481 
       PZE L(0)                      WORD1--000000                      4F12482 
       PZE CAL                       WORD2--CAL000                      4F12483 
       PZE TSA                       WORD3--(CSH) OR (TSH)              4F12404 
       PZE L(0)                      WORD4--000000                      4F12405 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12486 
       PZE TL                        NORD1--0(IFN)0(248)                4F12487 
       PZE ENT                       WORD2--NTR0(81, OR UNIT, OR 00)    4F12486 
       PZE SET                       WORD3--800(FORMAT NUMBER)          4F12489 
       PZE L(0)                      WORD4--000000                      4F12490 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12491 
       REM BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.       4F12492 
BXT    TXI RSC,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493 
       REM  END OF PROGRAM RDC.                                         4F12494 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495 
       REM                                                              4F12496 
       REM RIT/ CALLS=INPUT,BEG,VRD. USES=RDC.                          4F12497 
       REM RIT PROCESSES READ INPUT TAPE STATEMENTS.                    4F12498 
RIT    TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12499 
       TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500 
       TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12501 
       STA ENT                       IF CONSTANT, SET ENT= NTR0(UNIT).  4F12502 
       CLA TSH                       PICKUP (TSH) TO SET TSA, AND       4F12503 
       TXI TSC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12504 
       REM  END OF PROGRAM RIT.                                         4F12505 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506 
       REM                                                              4F12507 
       REM RDP/ CALLS=OUTPUT. USES=RDC.                                 4F12508 
       REM RDP PROCESSES PRINT STATEMENTS.                              4F12509 
RDP    PXD ,0                        RESET ENT                          4F12510 
       STA ENT                       TO NTR000.                         4F12511 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12512 
       CLA SPH                       PICKUP (SPH), AND                  4F12513 
       REM TSD= ENTRY POINT USED BY WOT, PDC.                           4F12514 
TSD    STO TSA                       SET TSA.                           4F12515 
       CAL FIL                       MOVE (FIL)                         4F12516 
       SLW END                       INTO END.                          4F12517 
       CLA BDC                       PICKUP (BDC) TO SET TTA, AND       4F12518 
       TXI TTC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12519 
       REM  END OF PROGRAM RDP.                                         4F12520 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521 
       REM                                                              4F12522 
       REM WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.                         4F12523 
       REM WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS.                  4F12524 
WOT    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12525 
       TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 
       TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12527 
       STA ENT                       IF CONSTANT, SET ENT= NTR0(UNIT).  4F12528 
       CLA STH                       PICKUP (STH) TO SET TSA, AND       4F12529 
       TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12530 
       REM  END OF PROGRAM WOT.                                         4F12531 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532 
       REM                                                              4F12533 
       REM PDC/ CALLS=OUTPUT. USES=RDP.                                 4F12534 
       REM PDC PROCESSES PUNCH STATEMENTS.                              4F12535 
PDC    PXD ,0                        RESET ENT                          4F12536 
       STA ENT                       TO NTR000.                         4F12537 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12538 
       CLA SCH                       PICKUP (SCH) TO SET TSA, AND       4F12539 
       TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12540 
       REM  END 0F PROGRAM PDC.                                         4F12541 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542 
       REM                                                              4F12543 
       REM WBT/ CALLS=OUTPUT,BRW,CIT.                                   4F12544 
       REM WBT PROCESSES WRITE TAPE STATEMENTS.                         4F12545 
WBT    CAL WTB                       MOVE WTB0004                       4F12546 
       SLW OP                        INTO OP.                           4F12547 
       TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12548 
       CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12549 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12550 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12551 
       PZE L(0)                      WORD1--000000                      4F12552 
       PZE CPY                       WORD2--CPY000                      4F12553 
       PZE ZER                       WORD3--600000                      4F12554 
       PZE D2                        WORD4--002000                      4F12555 
       TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12556 
       REM  END OF PROGRAM WBT.                                         4F12557 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558 
       REM                                                              4F12559 
       REM RBT/ CALLS=INPUT,BRW,CIT.                                    4F12560 
       REM RBT PROCESSES READ TAPE STATEMENTS.                          4F12561 
RBT    CAL RTB                       MOVE RTB000                        4F12562 
       SLW OP                        INTO OP.                           4F12563 
       TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12564 
       CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12565 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12566 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12567 
       PZE L(0)                      WORD1--000000                      4F12568 
       PZE CPY                       WORD2--CPY000                      4F12569 
       PZE DMP                       WORD3--100000                      4F12570 
       PZE L(0)                      WORD4--000000                      4F12571 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12572 
       PZE L(0)                      WORD1--000000                      4F12573 
       PZE XIT                       WORD2--XIT000                      4F12574 
       PZE 15P                       WORD3--*00000                      4F12575 
       PZE D3CN                      WORD4--003000                      4F12576 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12577 
       PZE L(0)                      WORD1--000000                      4F12578 
       PZE HPR                       WORD2--HPR000                      4F12579 
       PZE L(0)                      WORD3--000000                      4F12560 
       PZE L(0)                      WORD4--000000                      4F12581 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12582 
       PZE L(0)                      WORD1--000000                      4F12583 
       PZE XIT                       WORD2--XIT000                      4F12584 
       PZE TL                        WORD3--0(IFN)0(248)                4F12585 
       PZE L(0)                      WORD4--000000                      4F12586 
       TXI BXT,0                   * EXIT TO SCAN LIST, IF THEPE IS ONE.4F12587 
       REM  END OF PROGRAM RBT.                                         4F12588 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589 
       REM                                                              4F12590 
       REM WRD/ CALLS=OUTPUT,BRW,CIT.                                   4F12591 
       REM WRD PROCESSES WRITE DRUM STATEMENTS.                         4F12592 
WRD    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12593 
       CAL WDR                       PICKUP WDR000, AND                 4F12594 
       REM XDR= ENTRY POINT USED BY RDD.                                4F12595 
 XDR   SLW OP                        SET OP.                            4F12596 
       CAL BDA                       PICKUP 0INARY DRUM ADDRESS, AND    4F12597 
       TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12598 
       CAL PXD                       MOVE PXD000                        4F12599 
       SLW OP                        INTO OP.                           4F12600 
       PXD ,0                        CLEAR THE AC, AND                  4F12601 
       TSX BRW,4                   * COMPILE INSTRS TO SET DRUM LOC.    4F12602 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12603 
       PZE L(0)                      WORD1--000000                      4F12604 
       PZE LDA                       WORD2--LDA000                      4F12605 
       PZE TL                        WORD3--0(IFN)0(248)                4F12606 
       PZE L(0)                      WORD4--000000                      4F12607 
       TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608 
       REM  END OF PROGRAM WRD.                                         4F12609 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610 
       REM                                                              4F12611 
       REM RDD/ CALLS=INPUT. USES=WRD.                                  4F12612 
       REM RDD PROCESSES READ DRUM STATEMENTS.                          4F12613 
RDD    TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12614 
       CAL RDR                       PICKUP RDR000 TO SET OP, AND       4F12615 
       TXI XDR,0                   * CONTINUE BY USING PROGRAM WRD.     4F12616 
       REM  END OF PROGRAM RDD.                                         4F12617 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618 
       REM                                                              4F12619 
       REM EFT/ CALLS=GIF,BEG,VRAX,CIT.                                 4F12620 
       REM EFT PROCESSES WRITE END OF FILE STATEMENTS.                  4F12621 
EFT    CAL WEF                       PICKUP WEF000, AND                 4F12622 
       REM TPO= ENTRY POINT USED BY RWN, BSP.                           4F12623 
TPO    SLW OP                        SET OP.                            4F12624 
       CAL BTA                       MOVE BINARY TAPE ADDRESS           4F12625 
       SLW CON                       INTO CON.                          4F12626 
       TSX GIF,4                   * GET IFN INTO SL AND TL.            4F12627 
       CLA L(SL)                     RESET TP0A ADDRESS                 4F12628 
       STA TPOA                      TO SL.                             4F12629 
       TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630 
       TSX VRA,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12631 
       ALS 18                        IF CONSTANT, ADJUST AND            4F12632 
       STO RA                        PLACE IN THE DECREMENT OF RA.      4F)2633 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12634 
TPOA   PZE SL                        WORD1--0(IFN)O0O OR 0(IFN)0(248)   4F12635 
       PZE OP                        NORD2--(WEF,REW,OR BSP)000         4F12636 
       PZE L(0)                      WORD3--000000                      4F12637 
       PZE RA                        WORD4--0(CON)000 OR 000000         4F12638 
       TXI FINI,0                  * GO RESET BXT, AND TEST FOR EFN.    4F12639 
       REM  END OF PROGRAM EFT.                                         4F12640 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641 
       REM                                                              4F12642 
       REM RWN/ USES=EFT.                                               4F12643 
       REM RWN PROCESSES REWIND TAPE STATEMENTS.                        4F12644 
RWN    CAL REW                       PICKUP REW000 TO SET OP, AND       4F12645 
       TXI TPO,0                   * CONTINUE BY USING PROGRAM EFT.     4F12646 
       REM  END OF PROGRAM RWN.                                         4F12647 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648 
       REM                                                              4F12649 
       REM BSP/ USES=EFT.                                               4F12650 
       REM BSP PR0CESSES BACKSPACE TAPE STATEMENTS.                     4F12651 
BSP    CAL BST                       PICKUP BST000 TO SET OP, AND       4F12652 
       TXI TPO,0                   * CONTINUE BY USING PROGRAM EFT.     4F12653 
       REM  END OF PROGRAM BSP.                                         4F12654 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655 
       REM                                                              4F12656 
       REM FOR/ CALLS=TET00.                                            4F12657 
       REM FOR PROCESSES FORMAT STATEMENTS.                             4F12658 
FOR    CAL EIFNO                     MOVE EXTERNAL FORMULA NUMBER       4F12659 
       STA SET                       INTO THE ADDRESS OF SET,           4F12660 
       CAL SET                       AND MOVE SET (8000(EFN))           4F12661 
       SLW G                         INTO G.                            4F12662 
       LXD CHCTR,1                   SET XR1 = CHARACTER COUNT.         4F12663 
       LXD FWA,2                     SET XR2 = -(CURRENT F-WORD ADDR).  4F12664 
       TXL NFFW,1,1                  UNLESS POSITIONED AT THE           4F12665 
       TXI *+1,1,-1                  BEGINNING OF A FORMAT WORD,        4F12666 
       LDQ RESIDU                    THEN PICKUP AND                    4F12667 
       CAL BLANKS                    PRECEED WITH BLANKS ANY            4F12668 
 NFC   LGL 6                         CHARACTERS                         4F12669 
       TIX NFC,1,1                   REMAINING IN THE MQ, AND           4F12670 
 NFW   SLW G+1                       MOVE FORMAT WORDS INTO G+1.        4F12671 
       TSX TET00,1                 * GO ENTER THEN IN                   4F12672 
       PZE 10                        THE FORMAT TABLE.                  4F12673 
       CAL G+1                       WHEN THE                           4F12674 
       ANA ENDMK                     END OF STATEMENT MARK              4F12675 
       SUB ENDMK                     HAS BEEN ENTERED,                  4F12676 
       TZE CA010                   * EXIT TO PROCESS NEXT STATEMENT.    4F12677 
       STZ G                         PRECEED ALL BUT 1ST ENTRY WITH 0.  4F12678 
 NFFW  CAL 0,2                       PICKUP NEXT FORMAT WORD,           4F12679 
       TXI NFW,2,-1                  UPDATE SCAN INDEX, AND CONTINUE.   4F12680 
       REM  END OF PROGRAM FOR.                                         4F12681 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682 
       REM                                                              4F12683 
       REM RSC/ CALLS=C0190,DIAG.                                       4F12684 
       REM RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS    4F12685 
       REM FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN  4F12686 
       REM COMMON. THEN A TAGGED EXIT IS MADE THR0UGH THE BLOCK OF      4F12687 
       REM CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.  4F12688 
       REM RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.  4F12689 
RSC    CAL FLINE                     RESET TEMPORARY                    4F12690 
       STA TLINE                     TABLE LINE C0UNTER.                4F12691 
       STZ DOLEV                     CLEAR DO LEVEL COUNTER.            4F12692 
       STZ GTAG                      CLEAR GENERALIZED TAG.             4F12693 
       REM LSC = ENTRY POINT FROM SPC.                                  4F12694 
LSC    CAL LISTR                     SET CONTROL TRANSFER               4F12695 
       REM CXS = ENTRY POINT FROM EQS, BEG.                             4F12696 
CXS    STA CEXIT                     FOR LIST SCAN.                     4F12697 
       REM NXS = ENTRY POINT FROM LPR, SPC, CMA.                        4F12698 
NXS    LXA L(6),2                    RESET SYMBOL CHARACTER COUNT       4F12699 
       SXD CSJ,2                     AND SHIFT COUNT.                   4F12700 
       STZ SYM                       CLEAR SYMBOL WORKING STORAGE.      4F12701 
       REM NXC = ENTRY POINT FROM CMA.                                  4F12702 
NXC    TSX C0190,4                 * OBTAIN NEXT NB CHARACTER IN THE AC.4F12703 
CLOAD  LXA CTESTX,4                  SET XR4 TO PICK CONTROL CHARACTERS.4F12704 
CCOMP  CAS CTEST,4                   COMPARE CHARACTER WITH CONSTANTS.  4F12705 
       TXL BUILD,0                   IF EQUALITY IS FOUND ON SOME       4F12706 
CEXIT  TRA **,4                    * CONTROL CHAR, EXIT TO TRA LIST.    4F12707 
       TIX CCOMP,4,1                 CONTINUE THROUGH PUNCTUATION.      4F12708 
 BUILD LXD CSJ,4                     BUILD A                            4F12709 
       STO CHR,4                     SYMBOL                             4F12710 
       TNX LCT,4,1                   COMPOSED OF                        4F12711 
       ALS 36,2                      SIX OR LESS CHARACTERS.            4F12712 
 CSZ   SXD CSJ,4                     SAVE SYMBOL CHARACTER COUNT.       4F12713 
       ORS SYM                       ALSO, SAVE EACH                    4F12714 
       TXI NXC,2,6                   CHARACTER SEPARATELY.              4F12715 
LCT    TXL LCS,2,36                  GO TO DIAGNOSTIC IF                4F12716 
       TSX DIAG,4                  * MORE THAN 6 CHARACTERS IN SYMBOL.  4F12717 
LCS    TXI CSZ,4,-1                  ADJUST C0UNT, AND CONTINUE SCAN.   4F12718 
       REM  END OF PROGRAM RSC.                                         4F12719 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720 
       REM                                                              4F12721 
       REM LISTR/ CONTROL TRANSFERS FOR LIST SCAN=                      4F12722 
       TXI EMK,0                   * ENDMARK                            4F12723 
       TXI LPR,0                   * (                                  4F12724 
       TXI CMA,0                   * ,                                  4F12725 
       TXI RPR,0                   * )                                  4F12726 
       TXI EQS,0                   * =                                  4F12727 
       TXI ILC,0                     - (ILLEGAL CHARACTER IN I/O LIST). 4F12728 
ILC    TSX DIAG,4                  * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729 
       TXI ILC,0                     . (ILLEGAL CHARACTER IN I/O LISTI. 4F12730 
       TXI ILC,0                     + (ILLEGAL CHARACTER IN I/O LIST). 4F12731 
       TXI ILC,0                     * (ILLEGAL CHARACTER 1N I/O LIST). 4F12732 
 LISTR PZE LISTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F12733 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12734 
       REM                                                              4F12735 
       REM LPR/ CALLS=TYP,SS000,RA000,C0190,TEST..,LTMSW,CIT,JIF,DIAG,  4F12736 
       REM BSS. USES=CMA,RSC.                                           4F12737 
       REM EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.     4F12738 
LPR    CAL SYM                       TEST FOR SUBSCRIPT OR DO NEST.     4F12739 
       TZE LPRD                      IF SUBSCRIPT, THEN                 4F12740 
       TSX TYP,4                   * IF VARIABLE SYMBOL CONTAINS LESS   4F12741 
       TRA 3,4                       THAN 6 CHARACTERS, ADD A BLANK.    4F12742 
       TXI ERRC,0                  * ON CONSTANT RETURN, GO TO DIAG.    4F12743 
       CAL SYM                       MOVE SYMBOL                        4F12744 
       SLW E+2                       INTO E+2, AND                      4F12745 
       SLW SA                        COMPILE SYMBOLIC ADDRESS.          4F12746 
       TSX SS000,4                 * GO SCAN AND PROCESS SUBSCRIPT.     4F12747 
       TSX RA000,4                 * THEN GO =OMPUTE RELATIVE ADDRESS.  4F12748 
       TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER   4F12749 
       CAS CLOS                                                         4F12750 
       TRA *+5                                                          4F12751 
       TRA *+2                                                          4F12752 
       TRA *+3                                                          4F12753 
       STZ DOLEV                                                        4F12754 
       TSX C0190,4                                                      4F12755 
       TSX TESTA0,4                * FOR EITHER COMMA OR ENDMARK.       4F12756 
       TXI CMA7,0                  * AND CONTINUE BY USING PROGRAM CMA. 4F12757 
LPRD   CAL DOLEV                     IF THE BEGINNING OF A DO NEST,     4F12758 
       TZE LPR3                      AND DOLEV IS NOT ZERO, THEN        4F12759 
       LXA DOLEV,4                   TEST FOR NULL FORMULA.             4F12760 
       TXL LPRE,4,0                  IF NULL, GO ESTABLISH POSITION.    4F12761 
       TSX LTMSW,4                 * OTHERWISE, COMPILE LTM, AND        4F12762 
       TXI LPR4,0                    AND GO JUMP IFN.                   4F12763 
 LPRE  CAL SL                        IF C(SL) 0O NOT = 0,               4F12764 
       TZE *+2                       THEN                               4F12765 
       TSX BSS,2                   * GO COMPILE= IFN BSS 0.             4F12766 
LPR4   TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12767 
LPR3   LXD DOLEV,4                   INCREASE THE C(DOLEV D)            4F12768 
       TXI LPR1,4,1                  BY 1, AND                          4F12769 
LPR1   PXD ,4                        SET THE C(DOLEV A)                 4F12770 
       SLW DOLEV                     TO ZERO.                           4F12771 
       CAL TLINE                     NOTE AT                            4F12772 
       STA LPR2                      THIS LEVEL                         4F12773 
       STO DOLEV,4                   THE LOCATI0N IN TLDO               4F12774 
       ADD L(5)                      OF THIS DO FORMULA                 4F12775 
       STA TLINE                     AND INCREASE LINE IN TLINE.        4F12776 
       CLS TL                        MOVE -(0(IFN)0(248)) INTO THE      4F12777 
LPR2   STO **                        LOCATION WORD OF CURRENT TEMP DO.  4F12778 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12779 
       LXD DOLEV,4                   IF 3 OR FEWER LEVELS IN LIST DO,   4F12780 
       TXL NXS,4,3                 * RETURN TO LIST SCAN.               4F12781 
       TSX DIAG,4                  * OTHERWISE, GO TO DIAGNOSTIC.       4F12782 
       REM  END OF PROGRAM LPR.                                         4F12783 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12784 
       REM                                                              4F12785 
       REM EQS/ CALLS=DIAG. USES=RSC.                                   4F12786 
       REM EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN.        4F12787 
EQS    LXD DOLEV,4                   TEST THE LEGALITY OF EQUAL SIGN,   4F12788 
       TXH EQS2,4,0                  AND GO TO DIAG ON THE ATTEMPT TO   4F12789 
       TSX DIAG,4                  * SPECIFY SUBSCRIPT RANGE WITHOUT (. 4F12790 
EQS2   CAL DOLEV,4                   INITIALIZE SPECIFICATION           4F12791 
       STA SPC2                      OF GENERATED DO FORMULA            4F12792 
       STA SPC5                      AT CURRENT LEVEL.                  4F12793 
       ADD L(1)                      PREPARE TO ENTER FORMULA NUMBERS   4F12794 
       STA EQS1                      IN LOCATION WORD,SUBSCRIPT IN      4F12795 
       ADD L(4)                      SYMBOL WORD, AND SUBSCRIPT SPECS   4F12796 
       STA SPC3                      IN TEMPDO ENTRY.                   4F12797 
       LXA L(3),4                    PREPARE TO COUNT THE               4F12798 
       SXD NSJ,4                     NUMBER OF SPECIFICATIONS.          4F12799 
       CAL SYM                       OBTAIN SUBSCRIPT                   4F12800 
       TXH EQS1,2,36                 FOR THIS DO, AND                   4F12801 
       CAL BLANK                     STORE IN PROPER                    4F12802 
       ALS 36,2                      LINE OF TEMPORARY                  4F12803 
       ORA SYM                       LIST DO TABLE.                     4F12804 
EQS1   SLW **                        (SUBSCRIPT SYMBOL WORD)            4F12805 
       CAL SPCTR                     SET CONTROL LOOP FOR               4F12806 
NSJ    TXI CXS,0,**                * EXIT TO SPECIFICATION.             4F12807 
       REM  END OF PROGRAM EQS.                                         5F12808 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809 
       REM                                                              4F12810 
       REM SPCTR/ CONTR0L TRANSFERS FOR SPECIFICATION SCAN=             4F12811 
       TSX DIAG,4                  * E (ILLEGAL IN CONTROL FOR LIST DO).4F12812 
ICC    TSX DIAG,4                  * ( (ILLEGAL IN CONTROL FOR LIST DO).4F12813 
       TXI SPC,0                   * ,                                  4F12814 
       TXI SPCX,0                  * )                                  4F12815 
       TXI ICC,0                     = (ILLEGAL IN CONTROL FOR LIST DO).4F12816 
       TXI ICC,0                     - (ILLEGAL IN CONTROL FOR LIST DO).4F12817 
       TXI ICC,0                     / (ILLEGAL IN CONTR0L FOR LIST DO).4F12818 
       TXI ICC,0                     . (ILLEGAL IN CONTROL FOR LIST DO).4F12819 
       TXI ICC,0                     + (ILLEGAL IN CONTR0L FOR LIST DO).4F12820 
       TXI ICC,0                     * (ILLEGAL IN CONTR0L FOR LIST DO).4F12821 
 SPCTR PZE SPCTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F12822 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823 
       REM                                                              4F12824 
       REM SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=RSC.                    4F12825 
       REM SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826 
SPCX   CAL SPC1                      PREPARE FOR END OF SPECIFICATION.  4F12827 
       STO SPC1                      SET SPC1 OP-SWITCH TO NOP CASE.    4F12828 
       REM SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN.   4F12829 
 SPC   TSX TYP,4                   * G0 TEST TYPE OF SUBSCRIPT SPEC.    4F12830 
       TXI SPCS,0                    IF FIXED POINT CONSTANT,           4F12831 
       LXD NSJ,4                     SET C(XR4) = SPECIFICATION COUNT,  4F12832 
       TXI SPC3,0                    AND GO ENTER CONSTANT IN TABLE.    4F12833 
 SPCS  LXD NSJ,4                     OTHERWISE, SET SPEC COUNT AND      4F12834 
       CAL TAG4                      IF VARIABLE, NOTE BY               4F12835 
       ARS 3,4                       PLACING BIT IN TAG FIELD           4F12836 
 SPC2  ORS **                        OF TABLE ENTRY.                    4F12837 
       CAL SYM                       PICKUP VARIABLE SYMBOL AND         4F12838 
SPC3   SLW **,4                      ENTER N SUB J IN TABLE.            4F12839 
       TNX SPC4,4,1                  REDUCE J.                          4F12840 
       SXD NSJ,4                     SAVE SPEC COUNT, AND               4F12841 
SPC1   TXL NXS,0                   * EXIT TO SCAN, IF SWITCH IS TXL.    4F12842 
       CAL L(1)                      SET N SUB 3 = 1 IF NOT             4F12843 
       TXI SPC3,0                    OTHERWISE SPECIFIED.               4F12844 
SPC4   CLS SPC1                      RESTORE SPC1 EXIT.                 4F12845 
       STO SPC1                      (3 SPECS HAVE BEEN TREATED)        4F12846 
       CAL EIFNO                     ALS0 RESTORE INTERNAL FORMULA N0.  4F12847 
       ARS 18                        (PUT BETA IN TEMPDO TABLE)         4F12848 
       REM SPC5 = ENTRY POINT USED BY RPR.                              4F12849 
SPC5   STA **                        SET BETA EQUAL TO IFNO.            4F12850 
       LXA DOLEV,4                   EXAMINE DOLEV ADDRESS FOR ZERO TO  4F12851 
       TXL SPCR,4,0                  TEST NEED FOR LTM, JIF AFTER ).    4F12852 
       TSX LTMSW,4                 * GO COMPILE LTM.                    4F12853 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12854 
SPCR   LXD DOLEV,4                   DECREASE DOLEV D                   4F12855 
       TXI SPC6,4,-1                 BY 1, AND INDICATE A TREATED LEVEL.4F12856 
 SPC6  PXD ,4                        IF NOT ZERO,                       4F12857 
       SLW DOLEV                     THEN ALL LEVELS ARE NOT TREATED.   4F12858 
       TXH LSC,4,0                 * RETURN T0 SCAN NEXT LEVEL.         4F12859 
       CLA TLINE                     IF LEVEL IS ZERO                   4F12860 
       STA SPC7                      ENTER GENERATED                    4F12861 
FLINE  PAX TLDOS,2                   DO FORMULAS IN TDO BY              4F12862 
       TXI *+1,2,-TLDOS              SUBROUTINE TET.                    4F12863 
SPC9   LXA L(5),4                    (MOVE EACH                         4F12864 
SPC7   CLA **,2                      TEMPD0 TABLE ENTRY                 4F12865 
       STO 1C+5,4                    INTO 1C...1C+4,                    4F12866 
       TNX SPC8,2,1                  AND THEN                           4F12867 
       TIX SPC7,4,1                  WHEN DONE,                         4F12868 
SPC8   LXA 1C,4                      TEST TO SKIP                       4F12869 
       TXL SPCT,4,0                  NULL DO.                           4F12870 
       TSX TET00,1                 * GO MAKE AN ENTRY                   4F12871 
       PZE 1                         IN TDO TABLE.)AND WHEN THE WH0LE   4F12872 
SPCT   TXH SPC9,2,1                  DO NEST HAS BEEN ENTERED,          4F12873 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AN0 TL.    4F12874 
RESET  TXI RSC,0                   * THEN EXIT TO CONTINUE LIST SCAN.   4F12875 
       REM  END OF PROGRAM SPC.                                         4F12876 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12877 
       REM                                                              4F12878 
       REM RPR/ CALLS=DIAG. USES=CMA,SPC.                               4F12879 
       REM RPR = ENTRY POINT WHEN RPAREN IS MET 1N LIST SCAN.           4F12880 
RPR    LXD DOLEV,4                   TEST LEGALITY OF 1.                4F12881 
       TXH RPS,4,0                   IF THERE ARE TOO MANY ) IN LIST,   4F12882 
       TSX DIAG,4                  * GO TO THE DIAGNOST1C.              4F12883 
RPS    CAL DOLEV,4                   NULLIFY DO AT CURRENT LEVEL.       4F12884 
       STA SPC5                      SET SPC5 ADDRESS,                  4F12885 
       CLA RPA                       SET CMA3 SWITCH TO RETURN TO       4F12886 
       STA CMA3                      RPT, AND IF ANY CHARACTERS         4F12887 
       TXH CMA1,2,6                * WERE COLLECTED, EXIT,TO CMA.       4F12888 
       REM RPT = REENTRY POINT USED BY CMA.                             4F12889 
RPT    CLA SPC1                      RESET CMA3 SWITCH                  4F12890 
       STA CMA3                      TO NXS,                            4F12891 
RPA    PXD RPT,0                     CLEAR THE AC, AND                  4F12892 
       TXI SPC5,0                  * CONTINUE BY USING PROGRAM SPC.     4F12893 
       REM  END OF PROGRAM RPR.                                         4F12894 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12895 
       REM                                                              4F12896 
       REM CMA/ CALLS=TYP,D1AG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897 
       REM LTMSW. USES=RSC.                                             4F12898 
       REM CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.            4F12899 
CMA    TXL NXC,2,6                 * IF NOTHING COLLECTED, RETURN -SCAN.4F12900 
       REM CMA1 = ENTRY POINT USED BY EMK.                              4F12901 
CMA1   TSX TYP,4                   * TYPE TEST FOR NON-SUBSCR. VAR.     4F12902 
       TRA 3,4                       ILLEGAL USE OF CONSTANT IN LIST,   4F12903 
ERRC   TSX DIAG,4                  * GO TO THE DIAGNOSTIC.              4F12904 
       CAL SYM                       INVE VARIABLE SYMBOL               4F12905 
CMA4   SLW SA                        INTO SA. AND                       4F12906 
       REM CMA7 = ENTRY POINT USED BY LPR.                              4F12907 
CMA7   LXA DOLEV,4                   IF DOLEV ADDRESS = 0, AND IF       4F12908 
       TXH CMA6,4,0                  ETMSW IS SET TO TXH (NOP CASE),    4F12909 
       TSX ETMSW,4                 * GO COMPILE ETM, AND CLEAR SL.      4F12910 
CMA6   CAL DOLEV                     IN ANY CASE,                       4F12911 
       ADD L(1)                      UPDATE DOLEV ADDRESS               4F12912 
       STO DOLEV                     BY 1, AND THEN                     4F12913 
       CLA GTAG                      SET GENERALIZED TAG.               4F12914 
       STO RA                        (RELATIVE ADDRESS)                 4F12915 
       TZE DIMSR                     IF THIS VARIABLE HAS A SUBSCRIPT,  4F12916 
       CLA EPS                       AND IF SUBSCRIPT                   4F12917 
       TNZ CMA5                      IS A CONSTANT,                     4F12918 
       STA RA                        TMEN CLEAR THE ADDRESS OF RA.      4F12919 
       TXI CMA5,0                    THEN GO MAKE CIT ENTRY.            4F12920 
DIMSR  CAL SA                        IF THIS VARIABLE                   4F12921 
       SLW E+2                       DOES NOT HAVE A SUBSCRIPT, THEN    4F12922 
RD1    TSX DIM1SR,4                * GO SEARCH DIM1 TABLE.              4F12923 
       TXI RD2,0                     IF FOUND, THEN                     4F12924 
CS1    CLA D12                       PICKUP DIMENSION 1                 4F12925 
       TXI DVS,0                     AND GO TEST SIZE. OTHERWISE,       4F12926 
RD2    TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F12927 
       TXI RD3,0                     AND IF FOUND,                      4F12928 
CS2    LDQ D12                       PICKUP                             4F12929 
       STZ N2                        DIMENSION 1 AND                    4F12930 
       SLQ N2                        DIMENSION 2                        4F12931 
       LGL 18                        AND MULTIPLY                       4F12932 
       MPY N2                        THEM TOGETHER.                     4F12933 
       ARS 1                         THEN                               4F12934 
       TXI DVS,0                     GO TEST THE PRODUCT. OTHERWISE,    4F12935 
RD3    TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F12936 
       TXI NODIM,0                   AND IF FOUND,                      4F12937 
CS3    LDQ D12                       PICKUP                             4F12938 
       STZ N2                        DIMENSION 1,                       4F12939 
       SLQ N2                        DIMENSION 2,                       4F12940 
       LGL 18                        AND DIMENSION 3.                   4F12941 
       MPY N2                        MULTIPLY                           4F12942 
       LRS 18                        THEM TOGETHER,                     4F12943 
       MPY D3                        AND IF                             4F12944 
       LLS 17                        THEIR                              4F12945 
 DVS   SUB L(1)                      PRODUCT IS                         4F12946 
       TZE NODIM                     GREATER THAN 1, THEN               4F12947 
       ALS 18                        PLACE DIMENSION-1 IN THE           4F12948 
       STO G                         DECREMENT OF G, AND                4F12949 
       TSX FXCNIX,4                * GO ENTER IN FIXCON, AND GET TAG.   4F12950 
       ALS 18                        ADJUST, AND STORE TAG IN THE       4F12951 
       STD RAT                       IMCREMENT OF RAT. THEN             4F12952 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12953 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12954 
       PZE SL                        WORD1--0(IFN)000                   4F12955 
       PZE LXD                       WORD2--LXD000                      4F12956 
       PZE 2P                        WORO3--200000                      4F12957 
       PZE RAT                       WORD4--0(FIXCON TAG)008            4F12958 
       TSX JIF,4                   * GO JONP IFN, AND SET SL AND TL.    4F12959 
       TSX ETMSW,4                 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12960 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12961 
       PZE SL                        WORD1--0(IFN)000 OR 000000         4F12962 
       PZE OP                        WORD2--(OPERATION CODE)            4F12963 
       PZE SA                        WORD3--(SYMBOLIC ADDRESS)          4F12964 
       PZE ST                        WORD4--000008                      4F12965 
       STZ SL                        CLEAR SL, AND                      4F12966 
       TSX LTMSW,4                 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12967 
       TSX GIF,4                   * GET IFN IN SL AND TL.              4F12968 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12969 
       PZE L(0)                      WORD1--000000                      4F12970 
       PZE TIX                       WORD2--TIX001                      4F12971 
       PZE SL                        WORD3--0(IFN)0004                  4F12972 
       PZE ST                        WORD4--000008                      4F12973 
       STZ SL                        CLEAR SL, AND                      4F12974 
       TSX ETMSW,4                 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975 
       TSX CIT,4                   * G0 MAKE THE FOLLOWING CIT ENTRY=   4F12976 
       PZE L(0)                      WORD1--000000                      4F12977 
       PZE DED                       WORD2--DED000                      4F12978 
       PZE L(0)                      WORD3--000000                      4F12979 
       PZE ST                        WORD4--000008                      4F12980 
       TXI CMA5,0                    IF THE PRODUCT OF DIMENSIONS IS    4F12981 
 NODIM TSX IFFIX,1                 * LESS THAN 2, TEST TYPE OF VARIABLE,4F12982 
       TXI CMA5,0                    AND IF FIXED POINT,                4F12983 
       TSX TET00,1                 * GO ENTER VARIABLE IN               4F12984 
 INOUT PZE **                        EITHER FORVAL OR FORVAR TABLE.     4F12985 
CMA5   TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12986 
       PZE SL                        WORD1--0(IFN)000 OR 000000         4F12987 
       PZE OP                        WORD2--NTR000 OR CPY000            4F12988 
       PZE SA                        WORD3--(SYMBOL)                    4F12989 
       PZE RA                        WORD4--(RELATIVE ADDRESS)          4F12990 
       STZ SL                        CLEAR SL, AND                      4F12991 
       STZ GTAG                      CLEAR GTAG. THEN TAKE EXIT         4F12992 
CMA3   TXI NXS,0                   * SWITCH TO RPT OR NXS.              4F12993 
       REM  END OF PROGRAM CMA.                                         4F12994 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12995 
       REM                                                              4F12996 
       REM EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00. USES=CMA.           4F12997 
       REM EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.       4F12998 
EMK    TXH CMA1,2,6                * IF NO CHARACTERS REMAIN, THEN      4F12999 
       LXD DOLEV,4                   CHECK THE NUMBER OF PARENTHESES.   4F13000 
       TXL FIN,4,0                   IF THERE ARE TOO MANY LPARENS,     4F13001 
       TSX DIAG,4                  * GO TO THE DIAGNOSTIC. OTHERWISE,   4F13002 
FIN    TSX LTMSW,4                 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F13004 
       REM LAST = ENTRY POINT SET BY BXT SWITCH.                        4F13005 
LAST   TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13006 
       PZE SL                        WORD1--0(IFN)000                   4F13007 
       PZE CAL                       WORD2--CAL000                      4F13008 
       PZE 15P                       WORD3--*00000                      4F13009 
       PZE L(0)                      WORD4--000000                      4F13010 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F13011 
       PZE L(0)                      WORD1--000000                      4F13012 
       PZE XIT                       WORD2--XITO00                      4F13013 
       PZE END                       WORD3--(RTN) OR (FIL)              4F13014 
       PZE L(0)                      WORD4--000000                      4F13015 
       REM FINI = ENTRY POINT USED BY EFT.                              4F13016 
FINI   CLA RESET                     RESET BXT SWITCH                   4F13017 
       STA BXT                       TO RSC.                            4F13018 
       CLA F-1                       TEST FOR AN EXTERNAL               4F13019 
       SUB 5BLANS                    STATEMENT NUMBER, AND IF NONE,     4F13020 
       TZE CA010                   * EXIT TO PROCESS NEXT STATEMENT.    4F13021 
       CAL MINUS0                    OTHERWISE, SET THE SIGN            4F13022 
       ORS EIFNO                     OF EIFNO TO MINUS, AND             4F13023 
       TSX TET00,1                 * GO ENTER -(EIFNO)                  4F13024 
       PZE 0                         IN THE TEIFNO TABLE.               4F13025 
       CAL EIFNO                     THEN RESTORE                       4F13026 
       STO EIFNO                     EIFNO, AND                         4F13027 
       TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F13028 
       REM  END OF PROGRAM EMK.                                         4F13029 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030 
       REM                                                              4F13031 
       REM STATEA/4-SUBROUTINES USED BY STATE A=                        4F13032 
       REM                                                                      
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                              4F13033 
       REM BEG(TYP),4/ CALLS=DIAG. USES RSC.                            4F13034 
       REM BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT.                   4F13035 
BEG    SXD BEX,4                     SAVE C(XR4) FOR RETURN,            4F13036 
       CAL BEGTR                     SET CONTROL TRANSFER               4F13037 
BEX    TXI CXS,0,**                * AND GO EXECUTE BEGINNING SCAN.     4F13038 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039 
       REM                                                              4F13040 
       REM BEGTR/ CONTR0L TRANSFERS FOR BEGINNING SCAN=                 4F13041 
       TXI NLS,0                   * ENDMARK (NO LIST SCAN)             4F13042 
IBC    TSX DIAG,4                  * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043 
       TXI CMB,0                   * ,                                  4F13044 
       TXI IBC,0                     ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045 
       TXI IBC,0                     = (ILLEGAL CHARACTER IN I/O SETUPI.4F13046 
       TXI IBC,0                     - (ILLEGAL CHARACTER IN I/O SETUP).4F13047 
       TXI IBC,0                     / (ILLEGAL CHARACTER IN I/O SETUP).4F13048 
       TXI IBC,0                     . (ILLEGAL CHARACTER IN I/O SETUP).4F13049 
       TXI IBC,0                     + (ILLEGAL CHARACTER IN I/O SETUP).4F13050 
       TXI IBC,0                     * (ILLEGAL CHARACTER IN I/O SETUP).4F13051 
 BEGTR PZE BEGTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F13052 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053 
       REM                                                              4F13054 
       REM NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.  4F13055 
 NLS   CLA NLA                       IF ENDMARK IS MET,                 4F13056 
       STA BXT                       SET BXT SWITCH TO LAST.            4F13057 
       REM CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.     4F13058 
 CMB   LXD BEX,4                     RESTORE THE C(XR4), AND            4F13059 
       REM TYP = ENTRY POINT USED BY LPR,SPC,CMA.                       4F13060 
TYP    CLA CHR-6                     TEST FIRST CHARACTER               4F13061 
       SUB PLUS                      FOR VARIABLE                       4F13062 
       TMI ABS                       OR CONSTANT.                       4F13063 
       TXH SMB,2,36                  IF VARIABLE,                       4F13064 
       CAL BLANK                     ADD A BLANK                        4F13065 
       ALS 36,2                      IF SYMBOL CONTAINS                 4F13066 
       ORS SYM                       LESS THAN 6 CHARACTERS, AND        4F13067 
SMB    TRA 1,4                     * TAKE VARIABLE EXIT TO CALLER.      4F13068 
ABS    LXA L(5),2                    IF CONSTANT,                       4F13069 
       CLA CHR-1,2                   TNEN                               4F13070 
       STO BIN                       CONVERT                            4F13071 
CSJ    TXL INT,2,**                  BCD                                4F13072 
       ALS 2                         DIGITS                             4F13073 
       ADD BIN                       TO THEIR                           4F13074 
       ALS 1                         BINARY                             4F13075 
       ADD CHR,2                     EOUIVALENT,                        4F13076 
       TXI CSJ-1,2,-1                AND WHEN DONE,                     4F13077 
 INT   TRA 2,4                     * TAKE CONSTANT EXIT TO CALLER.      4F13078 
       REM  END 0F PROGRAM BEG(TYP).                                    4F13079 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080 
       REM                                                              4F13081 
       REM BRW,4/ CALLS=JIF,BEG,VRA,CIT. CALLERS=WBT,RBT,WRD.           4F13082 
BRW    SXD XRW,4                     SAVE THE C(XR4), AND               4F13083 
       SLW CON                       SET CON = 0 OR ,,144 OR ,,192.     4F13084 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F13085 
       TSX BEG,4                   * GO SCAN AND TEST TYPE OF SYMBOL.   4F13086 
       TSX VRA,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F13087 
       ALS 18                        IF CONSTANT, ADJUST CONVERTED      4F13088 
       STO RA                        NUMBER, AND SET RA.                4F13089 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13090 
       PZE TL                        WORD1--0(IFN)0(248)                4F13091 
       PZE OP                        WORD2--(WTB,RBT,WRD,RDD)000        4F13092 
       PZE L(0)                      WORD3--000000                      4F13093 
       PZE RA                        WORD4--000000 OR 0(UNIT)000        4F13094 
       CAL CPY                       MOVE CPY000                        4F13095 
       SLW OP                        INTO OP.                           4F13096 
       CAL TXLOP                     SET OP-SWITCHES,                   4F13097 
       STP ETMSW                     ETMSW AND LTMSW,                   4F13098 
       STP LTMSW                     TO THE TRA CASE.                   4F13099 
       CAL RTN                       MOVE (RTN)                         4F13100 
       SLW END                       INTO END.                          4F13101 
       STZ SL                        CLEAR SL,                          4F13102 
       LXD XRW,4                     RESTORE THE C(XR4), AND            4F13103 
       TRA 1,4                     * EXIT TO CALLER.                    4F13104 
       REM  END OF PROGRAM BRW.                                         4F13105 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13106 
       REM                                                              4F13107 
       REM BSS,2/ CALLS=CIT00. CALLERS=LPR,C1600.                       4F13108 
       REM BSS COMPILES= IFN BSS 0.                                     4F13109 
 BSS   TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F13110 
       PZE SL                        WORD1--0(IFN)000                   4F13111 
       PZE L(BSS)                    WORD2--BSS000                      4F13112 
       PZE L(0)                      WORD3--000000                      4F13113 
       PZE L(0)                      NORD4--000000                      4F13114 
       TRA 1,2                     * EXIT TO CALLER+1.                  4F13115 
       REM  END OF PROGRAM BSS.                                         4F13116 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13117 
       REM                                                              4F13118 
       REM CA100,4/ CALLS=DIAG. CALLER=CA000.                           4F13119 
       REM CA100 READS NEXT S0URCE PROGRAM CARD (1 TAPE RECORD).        4F13120 
CA100  LXA TERC,2                    PREPARE TO C0UNT                   4F13121 
       SXD 1G,2                      TAPE READING ERRORS.               4F13122 
       RTT                           TURN OFF TAPE CHECK INDICATOR.     4F13123 
       NOP                           PROCEED TO NEXT INSTRUCTION.       4F13124 
CA101  RDS 130                       SELECT SOURCE TAPE FOR READING.    4F13125 
       LXA L(12),2                   INITIALIZE INDEX B FOR 12 CYCLES 0F4F13126 
       REM                           C0PY LOOP.                         4F13127 
CA102  CPY FT+12,2                   C0PY INTO FT REGION                4F13128 
       TRA CA103                     NEXT SOURCE PROGRAM CARD.          4F13129 
       TRA CA120                     END OF FILE, GO FINISH LAST STATEM.4F13130 
CA130  LXD 1G,2                      TEST TAPE ERROR COUNTER            4F13131 
       TIX CA131,2,1                 BY TRYING TO REDUCE BY 1.          4F13132 
       TSX DIAG,4                  * FAILED 5 TIMES IN READING TAPE 2.  4F13133 
CA131  SXD 1G,2                      SAVE REDUCED VALUE IN COUNTER.     4F13134 
       BST 130                       BACKSPACE FORMULA TAPE,            4F13135 
       TRA CA101                     AND GO BACK TO READ AGAIN.         4F13136 
CA103  TIX CA102,2,1                 TEST EXIT FROM LOOP.               4F13137 
       IOD                           DELAY UNTIL TAPE DISCONNECTS.      4F13138 
       RTT                           CHECK READING OF TAPE.             4F13139 
       TXI CA130,0                   IF INCORRECT, GO CHECK ERROR C0UNT.4F13140 
       LXA L(12),2                   PREPARE TO SCAN 12 WORDS OF CARD.  4F13141 
CA112  CLA BLANKS                    TEST                               4F13142 
       SUB FT+12,2                   FOR                                4F13143 
       TNZ CA113                     BLANK                              4F13144 
       TIX CA112,2,1                 CARD.                              4F13145 
       TRA CA100                     IF BLANK, GO TO READ NEXT CARD.    4F13146 
CA113  CAL FT                        IF NOT BLANK,                      4F13147 
       ARS 30                        EXAMINE FIRST                      4F13148 
       SUB L(C)                      CHARACTER TO                       4F13149 
       TZE CA100                     TEST FOR COMMENT CARD.             4F13150 
       TRA 1,4                     * EXIT IF NEITHER BLANK NOR COMMENT. 4F13151 
CA120  STZ FT                        INDICATE THAT FINAL                4F13152 
       SXD ENDWRD,0                  STATEMENT HAS BEEN READ IN.        4F13153 
       TRA 1,4                     * EXIT TO MAIN ROUTINE TO FINISH.    4F13154 
       REM  END OF PROGRAM CA100.                                       4F13155 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13156 
       REM                                                              4F13157 
       REM CC500,4/ CALLER=CC000.                                       4F13158 
       REM CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35).    4F13159 
CC500  PXD ,0                        CLEAR THE AC.                      4F13160 
       TIX CC502,2,1                 IF NO DICTIONARY CHARACTERS        4F13161 
       LXD 2G,2                      REMAIN IN THE MO, THEN             4F13162 
       LDQ DIC,2                     REFILL WITH NEXT DICTIONARY WORD.  4F13163 
       TXI CC501,2,-1                RESET THE                          4F13164 
CC501  SXD 2G,2                      DICTIONARY WORD TAG, AND           4F13165 
       LXA L(6),2                    SET THE CHARACTER COUNT = 6.       4F13166 
CC502  LGL 6                         SMIFT CHAR INTO AC(30-35),         4F13167 
       TRA 1,4                     * AND RETURN TO CALLER.              4F13168 
       REM  END OF PROGRAM CC500.                                       4F13169 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13170 
       REM                                                              4F13171 
       REM ETMSW(LTMSW),4/ CALLS=CIT. CALLERS=RDC,LPR,SPC,CMA,EMK.      4F13172 
       REM ETMSW = ENTRY POINT USED BY RDC,CMA.                         4F13173 
ETMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOPI.         4F13174 
       CAL ETM                       PICKUP ETM000, AND                 4F13175 
XR4X   TXI SETOP,0,**                GO SET OP.                         4F13176 
       REM LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK.                 4F13177 
LTMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP).         4F13178 
       CAL LTM                       PICKUP LTM000, AND                 4F13179 
SETOP  SLW TOP                       SET TOP.                           4F13180 
       SXD XR4X,4                    SAVE THE C(XR4), AND               4F13181 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13182 
       PZE SL                        WORD1--0(IFN)000                   4F13183 
       PZE TOP                       WORD2--ETM000 OR LTM000            4F13184 
       PZE L(0)                      WORD3--000000                      4F13185 
       PZE L(0)                      WORD4--000000                      4F13186 
       STZ SL                        CLEAR,SL,                          4F13187 
       LXD XR4X,4                    RESTORE THE C(XR4), AND            4F13188 
NOTTM  TRA 1,4                     * EXIT TO CALLER.                    4F13189 
       REM  END OF PROGRAM ETMSW(LTMSW).                                4F13190 
       REM   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13191 
       REM                                                              4F13192 
       REM IFFIX,1/ USES=TESTFX. CALLERS=CMA,VRA(VRD).                  4F13193 
IFFIX  CAL EIFNO                     SET                                4F13194 
       STZ G                         G TO                               4F13195 
       STD G                         (0(IFN)000).                       4F13196 
       CAL SYM                       MOVE SYMBOL                        4F13197 
       SLW G+1                       INTO G+1.                          4F13198 
       CAL CHR-6                     PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199 
       TXI TESTFX+1,0              * GO TEST FOR FIXED OR FLOATING PT.  4F13200 
       REM  END OF PROGRAM IFFIX.                                       4F13201 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13202 
       REM                                                              4F13203 
       REM INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB.                          4F13204 
       REM CALLERS=RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.                 4F13205 
       REM INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD.                 4F13206 
INPUT  CLA L(6)                      PICKUP 6 TO                        4F13207 
       TXI OUTPUT+1                  GO SET INOUT FOR FORVAL ENTRY.     4F13208 
       REM OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD.            4F13209 
OUTPUT CLA L(5)                      PICKUP 5 TO                        4F13210 
       STO INOUT                     SET INOUT FOR FORVAR ENTRY.        4F13211 
       TSX GIF,4                   * SET SL = IFN,000.                  4F13212 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13213 
       PZE SL                        WORD1--0(IFN)000                   4F13214 
       PZE CAL                       WORD2--CAL000                      4F13215 
       PZE 15P                       WORD3--*00000                      4F13216 
       PZE L(0)                      WORD4--000000                      4F13217 
       TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F13218 
       PZE L(0)                      WORD1--000000                      4F13219 
       PZE XIT                       WORD2--XIT000                      4F13220 
       PZE LEV                       WORD3--(LEV)                       4F13221 
       PZE L(0)                      WORD4--000000                      4F13222 
       STZ SL                        CLEAR SL, AND                      4F13223 
       TRA 1,2                     * EXIT TO CALLER.                    4F13224 
       REM  END OF PROGRAM INPUT(OUTPUT).                               4F13225 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13226 
       REM                                                              4F13227 
       REM LIB,1/ CALLS=TET00,CIT. CA=LERS=RDC,EMK,INPUT(OUTPUT).       4F13228 
LIB    CAL 3,4                       MOVE NAME OF SUBROUTINE,           4F13229 
       STA LIC                       ADDRESS OF WHICH                   4F13230 
LIC    CAL **                        IS IN WORD3 OF CALLING SEQ,        4F13231 
       SLW G                         INTO G, AND                        4F13232 
       TSX TET00,1                 * GO ENTER IN THE                    4F13233 
       PZE 9                         CLOSUB TABLE.                      4F13234 
       TXI CIT,0                   * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235 
       REM  END OF PROGRAM LIB.                                         4F13236 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237 
       REM                                                              4F13236 
       REM VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF.           4F13239 
       REM CALLERS=RIT,WOT,EFT.                                         4F13240 
       REM VRA = ENTRY POINT USED BY EFT.                               4F13241 
VRA    CLA L(TL)                     RESET TPOA ADDRESS                 4F13242 
       STA TPOA                      TO TL.                             4F13243 
       CAL TXLOP                     PREPARE TO SET OP-SWITCH TO TRA.   4F13244 
       TXI VRD1,4,-1                 SET RETURN TO TSX+2, AND GO SET OP.4F13245 
       REM VRD = ENTRY POINT USED BY RIT,WOT.                           4F13246 
VRD    CLA TXLOP                     PREPARE TO SET OP-SWITCH TO NOP.   4F13247 
VRD1   STP VRX                       SET VRX OP-SWITCH.                 4F13248 
       SXD VRX,4                     SAVE THE C(XR4) FOR RETURN.        4F13249 
       TSX IFFIX,1                 * SET UP IFN AND SYMBOL FOR FORVAR.  4F13250 
       TSX DIAG,4                  * ILLEGAL USE OF FLOATING VARIABLE.  4F13251 
       TSX TET00,1                 * IF SYMBOL IS FXD-PT, GO MAKE       4F13252 
       PZE 5                         ENTRY IN FORVAR TABLE.             4F13253 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13254 
       PZE SL                        WORD1--0(IFN)000                   4F13255 
       PZE CAL                       WORD2--CAL000                      4F13256 
       PZE SYM                       WORD3--(FXD-PT SYMBOL)             4F13257 
       PZE L(0)                      WORD4--000000                      4F13258 
VRX    TXH VDA,0,**                  SWITCH (TXL=TRA, TXH=NOP).         4F13259 
       CAL STD                       PICKUP STD000, AND                 4F13260 
XRW    TXI RVX,0,**                  GO SET TOP.                        4F13261 
VDA    CLA CON                       IF CON                             4F13262 
       TZE SDA                       IS NOT ZERO,                       4F13263 
       STO G                         THEN                               4F13264 
       TSX FXCNIX,4                * ENTER CON IN FIXCON,AND GET TAG.   4F13265 
       ALS 18                        ADJUST TAG, AND                    4F13266 
       STO RA                        SET RA.                            4F13267 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY.   4F13268 
       PZE L(0)                      WORD1--000000                      4F13269 
       PZE ADD                       WORD2--ADD000                      4F13270 
       PZE 2P                        WORD3--200000                      4F13271 
       PZE RA                        WORD4--(FIXCON TAG)                4F13272 
SDA    TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13273 
       PZE L(0)                      WORD1--000000                      4F13274 
       PZE ARS                       WORD2--ARS000                      4F13275 
       PZE L(0)                      WORD3--000000                      4F13276 
       PZE D18                       NORD4--0(18)000                    4F13277 
       CAL STA                       PICKUP STA000, AND                 4F13278 
RVX    SLW TOP                       SET TOP TO STA OR STD.             4F13279 
       TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F13280 
       TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13281 
       PZE L(0)                      WORD1--000000                      4F13282 
       PZE TOP                       WORD2--STA000 OR STD000            4F13283 
       PZE TL                        WORD3--0(IFN)000                   4F13284 
       PZE L(0)                      WORD4--000000                      4F13285 
NLA    PXD LAST,0                    CLEAR THE AC,                      4F13286 
       LXD VRX,4                     RESTORE THE C(XR4), AND            4F13287 
       TRA 1,4                     * EXIT TO CALLER.                    4F13288 
       REM  END OF PROGRAM VRA(VRD).                                    4F13289 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290 
       REM              ,                                               4F13291 
       REM STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=            4F13292 
       REM                                                              4F13293 
 BCD   BCD 1BCD000                   CONSTANT USED BY IOT.              4F13294 
 BST   BCD 1BST000                   CONSTANT USED BY IOT.              4F13295 
 ETM   BCD 1ETM000                   CONSTANT USED BY IOT.              4F13296 
 LTM   BCD 1LTM000                   CONSTANT USED BY IOT.              4F13297 
 NTR   BCD 1NTR000                   CONSTANT USED BY IOT.              4F13298 
 RDR   BCD 1RDR000                   CONSTANT USED BY IOT.              4F13299 
 REW   BCD 1REW000                   CONSTANT USED BY IOT.              4F13300 
 RTB   BCD 1RTB000                   CONSTANT USED BY IOT.              4F13301 
 SLW   BCD 1SLW000                   CONSTANT USED BY IOT.              4F13302 
 STD   BCD 1STD000                   CONSTANT USED BY IOT.              4F13303 
 WDR   BCD 1WDR000                   CONSTANT USED BY IOT.              4F13304 
 WEF   BCD 1WEF000                   CONSTANT USED BY IOT.              4F13305 
 WTB   BCD 1WTB000                   CONSTANT USED BY IOT.              4F13306 
 XIT   BCD 1XIT000                   CONSTANT USED BY IOT.              4F13307 
 BDC   BCD 1(BDC)                    CONSTANT USED BY IOT.              4F13308 
 CSH   BCD 1(CSH)                    CONSTANT USED BY IOT.              4F13309 
 DBC   BCD 1(DBC)                    CONSTANT USED BY IOT.              4F13310 
 FIL   BCD 1(FIL)                    CONSTANT USED BY IOT.              4F13311 
 LEV   BCD 1(LEV)                    CONSTANT USED BY IOT.              4F13312 
 RTN   BCD 1(RTN)                    CONSTANT USED BY IOT.              4F13313 
 SCH   BCD 1(SCH)                    CONSTANT USED BY IOT.              4F13314 
 SPH   BCD 1(SPH)                    CONSTANT USED BY IOT.              4F13315 
 STH   BCD 1(STH)                    CONSTANT USED BY IOT.              4F13316 
 TSH   BCD 1(TSH)                    CONSTANT USED BY IOT.              4F13317 
       REM                                                              4F13318 
 CON   BSS 1                         VARIABLE USED BY IOT.              4F13319 
 END   PZE **                        VARIABLE USED BY IOT.              4F13320 
 TOP   BSS 1                         VARIABLE USED BY IOT.              4F13322 
 TSA   PZE **                        VARIABLE USED BY IOT.              4F13323 
 TTA   PZE **                        VARIABLE USED BY IOT.              4F13324 
       REM                                                              4F13325 
       REM DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326 
DIC    OCT 244677274663              DO-GOT                             4F13327 
       OCT -67731267462              O-IF(S                             4F13328 
       OCT 254562256266              ENSESW                             4F13329 
       OCT 316323307731              ITCH-I                             4F13330 
       OCT 267462254562              F(SENS                             4F13331 
       OCT 254331273063              ELIGHT                             4F13332 
       OCT -373126243165             -IFDIV                             4F13333 
       OCT 312425233025              IDECHE                             4F13334 
       OCT 234277312621              CK-IFA                             4F13335 
       OCT 232364446443              CCUMUL                             4F13336 
       OCT 216346514665              ATOROV                             4F13337 
       OCT 255126434666              ERFLOW                             4F13338 
       OCT -373126506446             -IFQUO                             4F13339 
       OCT -233125456346             TIENTO                             4F13340 
       OCT -252551264346             VERFLO                             4F13341 
       OCT -267731267721             W-IF-A                             4F13342 
       OCT -226231274577             SSIGN-                             4F13343 
       OCT -226346477747             STOP-P                             4F13344 
       OCT 216462257762              AUSE-S                             4F13345 
       OCT 254562254331              ENSELI                             4F13346 
       OCT 273063772431              GHT-DI                             4F13347 
       OCT -42545623146              MENSIO                             4F13348 
       OCT -57725506431              N-EQUI                             4F13349 
       OCT -252143254523             VALENC                             4F13350 
       OCT 257726512550              E-FREQ                             4F13351 
       OCT -242545237077             UENCY-                             4F13352 
       OCT 234645633145              CONTIN                             4F13353 
       OCT -242577512521             UE-REA                             4F13354 
       OCT 246321472577              DTAPE-                             4F13355 
       OCT -112521243145             READIN                             4F13356 
       OCT -76463632147              PUTTAP                             4F13357 
       OCT 257751252124              E-READ                             4F13358 
       OCT 245164447751              DRUM-R                             4F13359 
       OCT 252124776651              EAD-WR                             4F13360 
       OCT 316325632147              ITETAP                             4F13361 
       OCT 257766513163              E-WRIT                             4F13362 
       OCT 254664634764              EOUTPU                             4F13363 
       OCT -236321472577             TTAPE-                             4F13364 
       OCT -265131632524             WRITED                             4F13365 
       OCT -116444774751             RUM-PR                             4F13366 
       OCT 314563774764              INT-PU                             4F13367 
       OCT -52330775125              NCH-RE                             4F13368 
       OCT -263145247722             WIND-B                             4F13369 
       OCT 212342624721              ACKSPA                             4F13370 
       OCT 232577254524              CE-END                             4F13371 
       OCT 263143257726              FILE-F                             4F13372 
       OCT -65144216377              ORMAT-                             4F13373 
       OCT -226422514664             SUBROU                             4F13374 
       OCT -233145257723             TINE-C                             4F13375 
       OCT -064444464577             OMMON-                             4F13376 
       OCT -112563645145             RETURN                             4F13377 
       OCT -372321434377             -CALL-                             4F13378 
       OCT 254524747726              END(-F                             4F13379 
       OCT -244523633146             UNCTIO                             4F13380 
       OCT -057777777777             N-----.                            4F13381 
       BSS 10                                                           4F133815
       REM  END OF DICTIONARY.                                          4F13382 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383 
       REM                                                              4F13384 
       REM T/ TRANSFER TABLE (USED BY CC000).                           4F13385 
T      TXI C0100,0                   DO.                                4F13386 
       TXI C0200,0                   G0 TO.                             4F13387 
       TXI C0400,0                   IF (SENSE SWITCH.                  4F13388 
       TXI C0500,0                   IF (SENSE LIGHT.                   4F13389 
       TXI C0600,0                   IF DIVIDE CHECK.                   4F13390 
       TXI C0700,0                   IF AC OVERFLOW.                    4F13391 
       TXI C0800,0                   IF MQ OVERFLOW.                    4F13392 
       TXI C0300,0                   IF.                                4F13393 
       TXI C1000,0                   ASSIGN.                            4F13394 
       TXI C1300,0                   STOP.                              4F13395 
       TXI C0900,0                   PAUSE.                             4F13396 
       TXI C1100,0                   SENSE LIGHT.                       4F13397 
       TXL C1200,0                   DIMENSION.                         4F13398 
       TXL C1500,0                   EQUIVALENCE.                       4F13399 
       TXL C1400,0                   FREQUENCY.                         4F13400 
       TXI C1600,0                   CONTINUE.                          4F13401 
       TXI RBT,0                     READ TAPE.                         4F13402 
       TXI RIT,0                     READ INPUT TAPE.                   4F13403 
       TXI RDD,0                     READ DRUM.                         4F13404 
       TXI RDC,0                     READ CARD.                         4F13405 
       TXI WBT,0                     WRITE TAPE.                        4F13406 
       TXI WOT,0                     WRITE OUTPUT TAPE.                 4F13407 
       TXI WRD,0                     WRITE DRUM.                        4F13408 
       TXI RDP,0                     PRINT.                             4F13409 
       TXI PDC,0                     PUNCH.                             4F13410 
       TXI RWN,0                     REWIND.                            4F13411 
       TXI BSP,0                     BACKSPACE.                         4F13412 
       TXI EFT,0                     END FILE.                          4F13413 
       TXL FOR,0                     FORMAT.                            4F13414 
       TXL C3000,0                   SUBROUTINE.                        4F13415 
       TXL C3100,0                   COMMON.                            4F13416 
       TXI C3200,0                   RETURN.                            4F13417 
       TXI C3300,0                   CALL.                              4F13418 
       TXL C3400,0                   END.                               4F13419 
       TXL C3500,0                   FUNCTION.                          4F13420 
       BSS 10                                                           4F134205
       REM  END OF TRANSFER TABLE.                                      4F13421 
STATEB BSS 0                                                            4F134215
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422 
       REM                                                              4F13423 
       ORG 3783+4096                                                    4F13424 
 BIN   BSS 1                         VARIABLE USED BY IOT.              4F13425 
 CHR   BES 6                         VARIABLE USED BY IOT.       4      4F13426 
       BSS 50                        PARAMETERS FOR TLDOS TABLE -IOT.   4F13427 
 DOLEV BSS 1                         PARAMETERS FOR TLDOS TABLE -IOT.   4F13428 
 OP    BSS 1                         VARIABLE USED BY IOT.              4F13429 
 RA    BSS 1                         VARIABLE USED BY IOT.              4F13430 
 SA    BSS 1                         VARIABLE USED BY IOT.              4F13431 
 SYM   BSS 1                         VARIABLE USED BY IOT.              4F13432 
TLDOS  BSS 250                       DO TABLE USED BY IOT.              4F13433 
       REM  END OF WORKING STORAGE USED BY STATEA.                      4F13434 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13435 
       REM                                                              4F13436 
       REM END OF THE NON-ARITHMETIC PART OF SECTION ONE.               4F13437 
       REM                                                              4F13438 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13439 
       REM                                                              4F13440 
       REM ARITHMETIC / STATE B=                                        4F13441 
       ORG 0                                                            4F13442 
       PZE STATEB,,FORSUB                                               4F13443 
       PZE ENDD                                                         4F13444 
       ORG STATEB                                                       4F134441
       REM                                                              4F13445 
       REM THIS IS A RECODED VERSI0N 0F STATE B OF SECTION ONE, 704     4F13446 
       REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL   4F13447 
       REM ANALYSIS HAS BEEN FOLDED OVER.                               4F13448 
       REM                                                              4F13449 
       REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS.    4F13450 
       REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451 
       REM IN THE F REGION OF COMMON AND IS IN BCD.                     4F13452 
       REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD  4F13453 
       REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454 
       REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME.                  4F13455 
       REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 
       REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457 
       REM AND THE OPERATOR WHICH PRECEDES IT.                          4F13458 
       SLF                                                              4F13459 
       CLA SIG1ST                                                       4F13460 
       STO SIG1IX-3                                                     4F13461 
       STZ ARGCTR            CLEAR                                      4F13462 
       STZ CHSAVE            X                                          4F13463 
       STZ 3LBAR             X                                          4F13464 
       STZ NBAR              X                                          4F13465 
       STZ CBAR              X                                          4F13466 
       STZ ABAR              X                                          4F13467 
       STZ FSTYPE            X                                          4F13468 
       LXD 1BAR,4            SET NBAR=-1                                4F13469 
       SXD NBAR,4            X                                          4F13470 
       CAL E(                SET ARERAS - E(                            4F13471 
       SLW ARERAS            X                                          4F13472 
       TSX C0190X,4          SET FWA - -F AND CHCTR - 0                 4F13473 
       CAL TXHOP             SET SWITCHES FOR LEFT SCAN.                4F13474 
       STP MS093             X                                          4F13475 
       STP MS310             X                                          4F13476 
       STP MS321             X                                          4F13477 
MS010  CAL ADPLUS            SET OP TO ADDITION                         4F13478 
MS030  SLW E+1               X                                          4F13479 
       STZ FNBITS            CLEAR FUNCTION NAME INDICATOR              4F13480 
       STZ FNCTR             CLEAR FUNCTION ARG COUNTER.                4F13481 
       STZ G                 CLEAR RECEIVING CELL.                      4F13482 
       CLS L(0)              SET E = -0                                 4F13483 
       STO E                 X                                          4F13484 
       LXA L(6),2            SET IR2 FOR SIX CHARS.                     4F13485 
MS040  CAL CHSAVE            CHAR IN CHSAVE, IF ANY, TO AC.             4F13486 
       TNZ MS041             X                                          4F13487 
       TSX C0190,4           CHSAVE EMPTY, GET NEXT CHAR.               4F13488 
MS041  CAS L(9)              IS CHAR. NUMERIC.                          4F13489 
       TRA MS050             N/, TAKE TRA                               4F13490 
MS4007 TXH CM4100,0                                                     4F13491 
       TSX ROYCNV,4          X                                          4F13492 
       TRA HOLL              RETURN 1, THIS WAS HOLLERITH.              4F13493 
       TRA LATXH             THIS WAS FIXED OR FLOATING CONSTANT.       4F13494 
MS050  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13495 
MS051  CAS CTEST,4                                                      4F13496 
       TRA MS052             X                                          4F13497 
       TRA MS090             CHAR IS SOME PUNCTUATION.                  4F13498 
MS052  TIX MS051,4,1         X                                          4F13499 
MS060  ALS 36,2              POSITI0N CHAR FOR BUILDING SYMBOL.         4F13500 
       ORS G                 ADD CHAR TO THOSE IN G.                    4F13501 
       TXI MS061,2,6         UPDATE POSITIONING TAG.                    4F13502 
MS061  TSX C0190,4           GET NEXT CHAR.                             4F13503 
MS070  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13504 
MS071  CAS CTEST,4           X                                          4F13505 
       TRA MS072             X                                          4F13506 
       TRA MS091             CHAR IS SOME PUNCTUATION.                  4F13507 
MS072  TIX MS071,4,1         X                                          4F13508 
       TXL MS060,2,18        IF THIS IS CHAR 1, 2 /R 3 GO BUILD G.      4F13509 
       CAS L(F)              IS THIS AN F ENDING FUNCTION NAME.         4F13510 
       TRA MS073             X                                          4F13511 
       TRA MS080             MAYBE, GO LOOK AT NEXT CHAR.               4F13512 
MS073  TXL MS060,2,36        TEST FOR UNDER 7 CHARS.                    4F13513 
MS074  TSX DIAG,4            BUILD G, 7TH CHAR IS ERROR.                4F13514 
MS080  TSX C0190,4           GET NEXT CHAR.                             4F13515 
       CAS OPEN              TEST FOR (.                                4F13516 
       TRA MS081             X                                          4F13517 
       TRA MS092             YES, THIS IS A FUNCTION NAME.              4F13518 
MS081  STO FIRSTC            NO, SAVE CURRENT CHAR.                     4F13519 
       CAL L(F)              ADD F TO CONTENTS OF G.                    4F13520 
       ALS 36,2              X                                          4F13521 
       ORS G                 X                                          4F13522 
       TXH MS074,2,36        TEST FOR 7TH CHAR, YES IS ERROR.           4F13523 
       CLA FIRSTC            RESTORE CURRENT CHAR.                      4F13524 
       TXI MS070,2,6         UPDATE POSITIONING TAG.                    4F13525 
MS090  STZ CHSAVE            CLEAR                                      4F13526 
       TRA TRBLKA,4                                                     4F13527 
MS091  SLW CHSAVE            OP IS IN NEXT ELEMENT, SAVE.               4F13528 
       CAL BLANK             ADD,BLANK TO CHARS IN G.                   4F13529 
       ALS 36,2              X                                          4F13530 
       ORS G                 X                                          4F13531 
       LDQ G                 MOVE G TO E+2 AND TO G+1.                  4F13532 
       STQ E+2               X                                          4F13533 
       STQ G+1               X                                          4F13534 
       TRA TRBLKB,4          NOW BRANCH TO INDIVIDUAL ROUTINE           4F13535 
MS092  PXD ,0                CLEAR                                      4F13536 
       LDQ BLANKS            ADD BLANKS TO SUBROUTINE NAME IN G.        4F13537 
       LGL 42,2              X                                          4F13538 
       ORA G                 X                                          4F13539 
       SLW G                 X                                          4F13540 
       SLW E+2               MOVE FUNCTION NAME TO E+2.                 4F13541 
MS093  *** MS335,0           TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.     4F13542 
       LXD BK,4              THIS IS ARITH FUNCTION STATEMENT.          4F13543 
       SLW FORSUB,4          ENTER FUNCTION NAME IN FORSUB TABLE.       4F13544 
       CAL EIFNO             ENTER INTERNAL FORMULA NO IN FORSUB.       4F13545 
       ANA MASK1             X                                          4F13546 
       STO FORSUB+1,4        X                                          4F13547 
       TXI FS010,4,-2        UPDATE COUNT OF ENTRIES IN FORSUB.         4F13548 
FS010  SXD BK,4              X                                          4F13549 
FS020  TSX C0190,4           GET FIRST CHAR OF ARGUMENT.                4F13550 
       CAS EQUAL             TEST FOR EQUAL.                            4F13551 
       TRA FS030             X                                          4F13552 
       TRA MS322             GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553 
FS030  CAS L(9)              TEST FOR ILLEGAL ARGUMENT.                 4F13554 
       TRA FS040             LEGAL, CONTINUE                            4F13555 
MS9002 TXH CM4200,0                                                     4F13556 
       TSX DIAG,4            BEGINS NUMERIC, ERROR.                     4F13557 
FS040  TSX C0160,2           COLLECT ARGUMENT NAME IN 1G.               4F13558 
       TSX TESTB0,4          TEST CHAR FOLLOWING ARG FOR , OR)          4F13559 
       LXD ARGCTR,2          GET COUNT OF ARGUMENTS                     4F13560 
       LDQ 1G                ENTER ARGUMENT NAME IN ARGREG TABLE.       4F13561 
       STQ ARGREG,2          X                                          4F13562 
       TXI FS050,2,-1        UPDATE COUNT OF ARGUMENTS.                 4F13563 
FS050  SXD ARGCTR,2                                                     4F13564 
       TXH FS020,2,-50       TEST FOR ARGREG TABLE OVERFLOW.            4F13565 
       TSX DIAG,4            YES, ERROR.                                4F13566 
MS200  TSX DECPNT,4          CONVERT BCD NUMBER T0 BINARY               4F13567 
       TSX DIAG,4            HOLLERITH RETURN, ERROR.                   4F13568 
       TRA LATXH             FLOATING POINT CONSTANT RETURN.            4F13569 
MS210  SLN 1                 TURN , LITE ON.                            4F13570 
       LXD 3LBAR,1           PERFORM LEVEL ANALYSIS FOR ,               4F13571 
       LXD ABAR,4                                                       4F13572 
       CLS ALPHA-4,4                                                    4F13573 
       STO LAMBDA,1                                                     4F13574 
       CAL ADSPOP                                                       4F13575 
       SLW LAMBDA+1,1                                                   4F13576 
       CLA NBAR                                                         4F13577 
       ARS 18                                                           4F13578 
       STO LAMBDA+2,1                                                   4F13579 
       TXI MS211,1,-3                                                   4F13580 
MS211  SXD 3LBAR,1                                                      4F13581 
       LXD NBAR,1                                                       4F13582 
       SXD CBAR,1                                                       4F13583 
       TXI MS212,1,-1                                                   4F13584 
MS212  SXD NBAR,1                                                       4F13585 
       TXI MS213,4,3                                                    4F13586 
MS213  SXD ABAR,4                                                       4F13587 
       TRA MS010                                                        4F13588 
MS220  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOR )               4F13589 
       CLA ALPHA-4,4                                                    4F13590 
       PAX ,1                                                           4F13591 
       SXD CBAR,1                                                       4F13592 
       TXI MS221,4,4                                                    4F13593 
MS221  SXD ABAR,4                                                       4F13594 
       TRA MS020                                                        4F13595 
MS230  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOE ENDMK.          4F13596 
       TXI MS231,4,3                                                    4F13597 
MS231  TXL MS232,4,0         FINISHED, HAS LEVEL BEEN REDUCED TO ZERO,  4F13598 
       TSX DIAG,4            NO, ERROR.                                 4F13599 
MS232  LXD ARGCTR,4          WAS THIS AN ARITH FUNCTION STATEMENT       4F13600 
       TXL STATEC,4,0                                                   4F13601 
       CAL FSTYPE            YES, UPDATE FUNCTION TYPE AND              4F13602 
       ADD L(1)              COMPLETE FORSUB ENTRY BY ASSIGNING         4F13603 
       LXD BK,1              TYPE NUMBER.                               4F13604 
       STA FORSUB-1,1        X                                          4F13605 
       ORS ARERAS            ALSO SAVE FOR LATER REFERENCF.             4F13606 
       TRA STATEC                                                       4F13607 
       TRA MS230             ENDMK                                      4F13608 
       TRA MS260             (                                          4F13609 
       TRA MS210             ,                                          4F13610 
       TRA MS220             )                                          4F13611 
MSERR= TSX DIAG,4            =                                          4F13612 
       TRA MS250             -                                          4F13613 
       TRA MS250             /                                          4F13614 
       TRA MS200             .                                          4F13615 
       TRA MS250             +                                          4F13616 
MS240  ALS 30                *   SAVE *                                 4F13617 
TRBLKA BSS 0                                                            4F13618 
       SLW E+1               X                                          4F13619 
       TSX C0190,4           GET NEXT CHAR.                             4F13620 
       CAS STAR              IS IT *                                    4F13621 
       TRA MS041             X                                          4F13622 
       TRA MS241             YES, THIS WAS **                           4F13623 
       TRA MS041             NO, GO COMPARE TO OTHER PUNCTUATION.       4F13624 
MS241  CAL STRSTR            REPLACE * WITH **                          4F13625 
       TRA MS251             X                                          4F13626 
MS250  ALS 30                POSITI0N CHAR WHICH IS + OR - OR /         4F13627 
MS251  SLW E+1               PUT CURRENT OP IN E+1.                     4F13628 
       TRA MS040             NOW GO COLLECT SYMBOL.                     4F13629 
MS260  ALS 30                ( TO SYMBOL WORD                           4F13630 
       SLW E+2               X                                          4F13631 
       TRA LATXL             GO PERFORM LEVEL ANALYSIS FOR (            4F13632 
       TRA MS300             ENDMK                                      4F13633 
       TRA MS320             (                                          4F13634 
       TRA MS300             ,                                          4F13635 
       TRA MS300             )                                          4F13636 
       TRA MS310             =                                          4F13637 
       TRA MS300             -                                          4F13638 
       TRA MS300             /                                          4F13639 
       TSX DIAG,4            .                                          4F13640 
       TRA MS300             +                                          4F13641 
MS300  PXD ,0                *   CLEAR                                  4F13642 
TRBLKB BSS 0                 BASE ADDRESS FOR TAGGED TRANSFER.          4F13643 
       LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13644 
       TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT.          4F13645 
       TRA LATXL             FLOATING, GO PERFORM LEVEL ANALYSIS.       4F13646 
       CAL EIFNO             FIXED, PREPARE FORVAR ENTRY.               4F13647 
       ANA MASK1             X                                          4F13648 
       SLW G                 X                                          4F13649 
       TSX TET00,1           MAKE FORVAR ENTRY.                         4F13650 
           5                 X                                          4F13651 
       PXD ,0                                                           4F13652 
       LDQ LEFT+2                                                       4F13653 
       LGL 12                                                           4F13654 
       SUB CALLER                                                       4F13655 
       TNZ LATXL                                                        4F13656 
       TSX TET00,1                                                      4F13657 
           6                                                            4F13658 
       TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13659 
MS320  STZ CHSAVE            CLEAR CELL FOR OP.                         4F13660 
MS321  *** MS330,0           TXH ON LEFT, TXL ON RIGHT OF = SIGN.       4F13661 
       TSX SS000X,4          G0 PROCESS SUBSCRIPT COMBINATION.          4F13662 
       TSX C0190,4           GET NEXT CHAR.                             4F13663 
       SUB EQUAL             TEST FOR EQUAL SIGN.                       4F13664 
       TNZ MSERR=            NO, ERROR.                                 4F13665 
MS322  LXA L(3),4            MOVE CONTENT4 OF E WORDS TO LEFT WORDS.    4F13666 
MS323  LDQ E+3,4             X                                          4F13667 
       STQ LEFT+3,4          X                                          4F13668 
       TIX MS323,4,1         X                                          4F13669 
MS311  CAL TXLOP             SET SWITCHES FOR RIGHT SIDE SCAN.          4F13670 
       STP MS093             X                                          4F13671 
       STP MS310             X                                          4F13672 
       STP MS321             X                                          4F13673 
       SLN 1                 TURN = OR ) LITE ON.                       4F13674 
       TRA MS010             GO SCAN NEXT ELEMENT.                      4F13675 
MS310  *** MSERR=,0          TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676 
       STZ CHSAVE            CLEAR                                      4F13677 
       PXD ,0                CLEAR AC.                                  4F136775
       LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13678 
       TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT           4F13679 
       TRA MS322             FLOATING,                                  4F13680 
       CAL EIFNO             FIXED, PREPARE FORVAL ENTRY.               4F13681 
       ANA MASK1             X                                          4F13682 
       SLW G                 X                                          4F13683 
       TSX TET00,1           MAKE FORVAL ENTRY.                         4F13684 
           6                 X                                          4F13685 
       TRA MS322                                                        4F13686 
MS330  TSX DIM1SR,4          SEARCH FOR THIS NAME IN THE DIM1, DIM2,    4F13687 
       TRA MS331             AND DIM3 TABLES. IF IT IS FOUND IN ONE OF  4F13688 
       TRA MS333             THESE TABLES IT IS A SUBSCRIPTED VARIABLE  4F13689 
MS331  TSX DIM2SR,4          OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 4F13690 
       TRA MS332             FOUND IN ANY DIMENSION TABLE THEN IT IS    4F13691 
       TRA MS333             ASSUMED TO BE THE NAME OF A FORTRAN II     4F13692 
MS332  TSX DIM3SR,4          SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693 
       TRA MS334             X                                          4F13694 
MS333  TSX SS000X,4 .        GO PROCESS SUBSCRIPT COMBINATION.          4F13695 
       TRA LATXH             GO PERFORM LEVEL ANALYSIS.                 4F13696 
MS334  CAL FNIND             NOT FOUND, TREAT AS FUNCTION NAME.         4F13697 
       SLW FNBITS            X                                          4F13698 
       PXD ,0                X                                          4F13699 
       LDQ BLANKS            COMPLETE NAME WITH BLANKS.                 4F13700 
       LGL 42,2              X                                          4F13701 
       ORS G                 X                                          4F13702 
       ORS E+2               X                                          4F13703 
       TSX TET00,1           ENTER NAME IN CLOSUB TABLE.                4F13704 
           9                 X                                          4F13705 
MS335  SLN 2                 TURN FUNCTION LITE ON.                     4F13706 
       TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13707 
HOLL   STZ CHSAVE                    CLEAR CHSAVE                       4F13708 
       CAL HOLCNT                    GET CURRENT H(+I WORD              4F13709 
       SLW E+2                                                          4F13710 
       LXA N,2                    GET NUMBER OF CHARACTERS IN THIS ARG  4F13711 
       LXD CHCTR,4                GET CURRENT RESIDUE CHAR COUNT        4F13712 
       LDQ RESIDU                 GET CURRENT RESIDU WORD               4F13713 
C3351  LXA L(6),1                 SET TO COLLECT SIX CHARS              4F13714 
       PXD 0,0                    CLEAR AC                              4F13715 
C3352  TNX C3354,4,1              TEST FOR NO MORE CHARS IN RESIDU      4F13716 
C33525 LGL 6                      GET NEXT CHAR                         4F13717 
       SLW 1G                     STORE WORD                            4F13718 
       ANA ENDMK                  BLANK ALL EXCEPT CURRENT CHAR         4F13719 
       SUB ENDMK                  TEST FOR INTERNAL ENDMK               4F13720 
       TNZ C3353                                                        4F13721 
       TSX DIAG,4                    YES, ERROR, GO TO DIAGNOSTIC.      4F13722 
C3353  CAL 1G                     RETREIVE WORD                         4F13723 
       TNX C3358,2,1              TEST FOR ALL CHARS COLLECTED          4F13724 
       TNX C3356,1,1              TEST FOR SIX CHARS COLLECTED          4F13725 
       TRA C3352                  NOT SIX CHARS YET, CONTINUE COLLECTING4F13726 
C3354  LXD FWA,4                  L0AD MQ WITH NEXT F REGION WORD       4F13727 
       LDQ 0,4                                                          4F13728 
       TXI C3355,4,-1             UPDATE FWA                            4F13729 
C3355  SXD FWA,4                                                        4F13730 
       LXA L(6),4                 RESET MQ CHAR CQUNT T0 SIX            4F13731 
       TRA C33525                 CONTINUE COLLECTING                   4F13732 
C3356  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13733 
C3357  TXI C3351,0,**             RETURN TO CONTINUE COLLECTING         4F13734 
C3358  STQ RESIDU                 UPDATE RESIDU                         4F13735 
       SXD CHCTR,4                UPDATE CHCTR                          4F13736 
       TNX C3360,1,1              TEST FOR SIX CHARS IN AC, DEC IR1     4F13737 
       LDQ BLANKS                 NOT SIX CHARS, PREPARE TO ADD BLANKS  4F13738 
C3359  LGL 6                      ADD BLANKS                            4F13739 
       TIX C3359,1,1                                                    4F13740 
C3360  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13741 
       CAL ALL1                   GET WORD OF ONES                      4F13742 
       TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13743 
       REM     LEVEL ANALYSIS                                           4F13744 
LATXL  CAL TXLOP                                                        4F13745 
       TRA LATXL+3                                                      4F13746 
LATXH  CAL TXHOP                                                        4F13747 
       STP CM4105                                                       4F13748 
LA0000 LXA L(0),A                                                       4F13749 
       CLA E+2                                                          4F13750 
       SLT 2                 IS THIS A FUNCTION NAME                    4F13751 
       TRA LA0000+36         NO                                         4F13752 
       SLN 2                 YES - TURN F LITE BACK ON                  4F13753 
       LXD BK,C              IS FORSUB EMPTY                            4F13754 
       TXL LA0000+13,C,0     YES. GO SET FS BITS TO 0                   4F13755 
       SXD LA0000+12,C                                                  4F13756 
       CAS FORSUB,A          SEARCH FN NAME IN FORSUB                   4F13757 
       TXI LA0000+12,A,-2                                               4F13758 
       TRA LA0000+15                                                    4F13759 
       TXI LA0000+12,A,-2                                               4F13760 
       TXH LA0000+8,A,0                                                 4F13761 
       STZ FSBITS            SET FSBITS TO 0                            4F13762 
       TRA LA0000+25                                                    4F13763 
       CAL FORSUB+1,A        FN NAME IN FORSUB                          4F13764 
       ANA MASK2             EXTRACT TYPE NUMBER                        4F14765 
       LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F13766 
       TXL LA0000+22,C,0     NO                                         4F13767 
       CAS FSTYPE            YES - UPDATE FS TYPE                       4F13768 
       STA FSTYPE                                                       4F13769 
       TXH 0,0                                                          4F13770 
       ALS 7                                                            4F13771 
       ORA FSIND                                                        4F13772 
       SLW FSBITS                                                       4F137)3 
       LXD 3LBAR,A           LOAD LA COUNTERS                           4F13774 
       LXD NBAR,B                                                       4F13775 
       LXD ABAR,C                                                       4F13776 
       TXL LA0003,A,0                                                   4F13777 
       TXH LA0001,A,-1200                                               4F13778 
       TSX DIAG,4                    ERROR..LAMBDA TABLE EXCEEDED.      4F13779 
LA0001 TXH LA0002,B,-301                                                4F13780 
       TSX DIAG,4                    ERROR..BETA TABLE EXCEEDED         4F13781 
LA0002 TXL LA0003,C,0                                                   4F13782 
       TXH LA0003,C,-139                                                4F13783 
       TSX DIAG,4                    ERROR..ALPHA TABLE EXCEEDED        4F13784 
       LXD ARGCTR,C          VARIABLE OR (                              4F13785 
       TXL LA0000+13,C,0     NOT AN FS - GO SET FS BITS TO 0            4F13786 
       SXD LA0000+43,C       FUNCTION STATEMENT                         4F13787 
       CAS ARGREG,A          SEARCH FREE VARIABLE TABLE                 4F13788 
       TXI LA0000+43,A,-1                                               4F13789 
       TRA MS1018                                                       4F13790 
       TXI LA0000+43,A,-1                                               4F13791 
       TXH LA0000+39,A,0                                                4F13792 
       TRA LA0000+13         NOT PRESENT - GO SET FSBITS TO 0           4F13793 
MS1018 PXD 0,A               PRESENT - STORE TYPE IN FSBITS             4F13794 
       ARS 11                                                           4F13795 
       TRA LA0000+23                                                    4F13796 
LA0003 CLA MS9002                                                       4F13797 
       STA LA4320                                                       4F13798 
       PXD 0,0                                                          4F13799 
       LDQ E+2                                                          4F13800 
       STQ LAMBDA+11,A                                                  4F13801 
       STQ LAMBDA+8,A                                                   4F13802 
       STQ LAMBDA+5,A                                                   4F13803 
       LGL 6                                                            4F13804 
       STO FIRSTC                                                       4F13805 
       SUB OPEN                                                         4F13806 
       TZE LA003                                                        4F13807 
       CLA MS4007                                                       4F13808 
       SLT 2                                                            4F13809 
       TRA LA002                                                        4F13810 
       SLN 2                                                            4F13811 
       CLA FINI03                                                       4F13812 
LA002  STA LA4320                                                       4F13813 
LA003  CLA E                                                            4F13814 
       STO LAMBDA+9,A                                                   4F13815 
       STO LAMBDA+6,A                                                   4F13816 
       STO LAMBDA+3,A                                                   4F13817 
       CAL ADSPOP                                                       4F13818 
       SLW LAMBDA+13,A                                                  4F13819 
       SLW LAMBDA+10,A                                                  4F13820 
       SLW LAMBDA+7,A                                                   4F13821 
       PXD ,0                                                           4F13822 
       LDQ E+1                                                          4F13823 
       STQ LAMBDA+1,A                                                   4F13824 
       LGL 6                                                            4F13825 
       CAS STAR                                                         4F13826 
       TRA LA0015            / SIGN                                     4F13827 
       TRA LA0010            * OR ** SIGN                               4F13828 
       SLT 2                 + OR - SIGN                                4F13829 
       TRA LA0044                                                       4F13830 
       TXI MS1033,B,-3       -N TO -(N+3)                               4F13831 
MS1033 PXD ,B                                                           4F13832 
       ARS 18                                                           4F13833 
       STO LAMBDA+14,A       STO  (N+3) IN LAMBDA+3 (L+4)+2             4F13834 
       TXI FINI03,B,1        -(N+3) TO - (N+2)                          4F13835 
FINI03 PXD CM4300,B                                                     4F13836 
       ARS 18                                                           4F13837 
       SSM                                                              4F13838 
       STO LAMBDA+12,A       STO -(N+2) IN LAMBDA+3 (L+4)               4F13839 
LA0041 SLT 1                                                            4F13840 
       TXI L43130,B,1        UNARY... -(N+2) TO -(N+1)                  4F13841 
       TXI L13130,B,1        BINARY... -(N+2) TO - (N+1)                4F13842 
LA0044 CLA FIRSTC                                                       4F13843 
       CAS OPEN              EXAMINE SYMBOL                             4F13844 
       TRA LA0050                                                       4F13845 
       TXI LA0058,B,-3       -N TO -(N+3)                               4F13846 
LA0050 SLT 1                                                            4F13847 
       TXI LA4000,B,-1       UNARY... -NTO -(N+1)                       4F13848 
       TXI LA1000,B,-1       BINARY... -N TO -(N+I)                     4F13849 
LA0058 PXD ,B                                                           4F13850 
       ARS 18                                                           4F13851 
       STO LAMBDA+11,A       STO S(N+3) IN LAMBDA +3(L+3)+2             4F13852 
       ADD L(1)              FORM -(N+2) IN ADD (ACC)                   4F13853 
       TXI LA0041,2,1                                                   4F13854 
LA0010 TQP LA0015            G0 TO * ROUTINE                            4F13855 
       SLT 2                 **                                         4F13856 
       TRA LA0072                                                       4F13857 
       TXI L23000,B,-1       -N TO -(N+1)                               4F13858 
LA0072 CLA FIRSTC                                                       4F13859 
       SUB OPEN                                                         4F13860 
       TNZ LA2000                                                       4F13861 
       TXI L22000,B,-1       -N TO -(N+1)                               4F13862 
LA0015 SLT 2                 * OR /                                     4F13863 
       TRA LA0021                                                       4F13864 
       TXI L33000,B,-2       -N TO -(N+2)                               4F13865 
LA0021 CLA FIRSTC                                                       4F13066 
       CAS OPEN                                                         4F13867 
       TXI LA3000,B,-1                                                  4F13868 
       TXI L32000,B,-2       -N TO -N(+2)                               4F13869 
       TXI LA3000,B,-1                                                  4F13870 
L13130 SLW ALPHA+3,C         STO -(N+2) IN ALPHA+A+3                    4F13871 
       CLS L(0)                                                         4F13872 
       STO LAMBDA+9,A        STO -0 IN LAMBDA +3(L+3)                   4F13873 
       SLN 1                                                            4F13074 
LA1000 CLS CBAR                                                         4F13875 
       ARS 18                                                           4F13876 
       SLW ALPHA,C           STO -C IN ALPHA+A                          4F13877 
       TXI LA1040,C,-3       -A TO - (A+3)                              4F13878 
LA1040 SXD ABAR,C                                                       4F13879 
       TRA LA4010                                                       4F13880 
L22000 PXD ,B                                                           4F13881 
       ARS 18                                                           4F13882 
       STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13883 
       ADD L(1)                                                         4F13884 
       TXI L23130,B,1        -(N+1) TO -N                               4F13885 
L23000 PXD ,B                                                           4F13886 
       ARS 18                                                           4F13887 
       STO LAMBDA+8,A        STO S(N+1) IN LAMBDA+3(L+2)+2              4F13888 
       ADD L(1)                                                         4F13889 
       SSM                                                              4F13890 
       TXI L23090,B,1        -(N+1) TO -N                               4F13891 
L23090 STO LAMBDA+6,A        STO -N IN LAMBDA+3(L+2)                    4F13892 
L23130 SLW ALPHA,C           STO -N IN ALPHA +A                         4F13893 
       CLS L(0)                                                         4F13894 
       STO LAMBDA+3,A        STO -0 IN LAMBDA+3(L+1)                    4F13895 
       SLN 1                                                            4F13896 
LA2000 CLS ALPHA-1,C                                                    4F13897 
       STO LAMBDA,A          STO C(ALPHA+A-1) IN LAMBDA+3L              4F13898 
       CLA NBAR                                                         4F13899 
       TXI LA4180,A,6                                                   4F13900 
L43130 SLW ALPHA,C           STO -(N+2) IN ALPHA+A                      4F13901 
       CLS L(0)                                                         4F13902 
       STO LAMBDA+9,A        STO -0 IN LAMBDA+3(L+3)                    4F13903 
       SLN 1                                                            4F13904 
LA4000 CLS ALPHA-3,C                                                    4F13905 
LA4010 STO LAMBDA,A          STO C(ALPHA+A-3) IN LAMBDA+3L              4F13906 
       CLS NBAR                                                         4F13907 
       ARS 18                                                           4F13908 
       SLW ALPHA-2,C         STO-N IN ALPHA+A-2                         4F13909 
       SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13910 
       STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13911 
       PXD ,B                                                           4F13912 
       ARS 18                                                           4F13913 
       STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13914 
       STO ALPHA-1,C         STO-(N,1) IN ALPHA+A-1                     4F13915 
       SSM                                                              4F13916 
       STO LAMBDA+6,A        STO -(N+1) IN LAMBDA+3IL+2)                4F13917 
       TXI LA4150,B,-1       -(N+1) TO -(N+2)                           4F13916 
LA4150 CAL ADSTAR                                                       4F13919 
       SLW LAMBDA+4,A        STO * IN LAMBDA+3(L+1)+1                   4F13920 
LA4170 PXD ,B                                                           4F13921 
LA4180 ARS 18                                                           4F13922 
       STO LAMBDA+8,A        STOS(N+2) IN LAMBDA+3(L+2)+2               4F13923 
       ORS LAMBDA+9,A        STO -(N+2) IN LAMBDA+3(L+3)                4F13924 
       CAL STRSTR                                                       4F13925 
       SLW LAMBDA+7,A        STO SPOP IN LAMBDA+3(L+2)+1                4F13926 
       CAL ADSPOP                                                       4F13927 
       ORA FSBITS                                                       4F13928 
       ORA FNBITS                                                       4F13929 
       SLW LAMBDA+10,A       STO SPOP IN LAMBDA+3(L+3)+1                4F13930 
LA4320 TXI **,A,-9                                                      4F13931 
L32000 PXD ,B                                                           4F13932 
       ARS 18                                                           4F13933 
       STO LAMBDA+8,A        STO 5(N+2) IN LAMBDA+3(L+2)+2              4F13934 
       ADD L(1)                                                         4F13935 
       TXI L33130,B,1        -(N+2) TO -(N+1)                           4F13936 
L33000 PXD ,B                                                           4F13937 
       ARS 18                                                           4F13938 
       STO LAMBDA+11,A       STO S(N+2) IN LAMBDA+3(L+3)+2              4F13939 
       ADD L(1)                                                         4F13940 
       SSM                                                              4F13941 
       TXI L33090,B,1        -(N+2) TO -(N+1)                           4F13942 
L33090 STO LAMBDA+9,A        STO -(N+1) IN LAMBDA+3(L+3)                4F13943 
L33130 SLW ALPHA,C           STO -(N+1) IN ALPHA+A                      4F13944 
       CLS L(0)                                                         4F13945 
       STO LAMBDA+6,A                                                   4F13946 
       SLN 1                                                            4F13947 
LA3000 CLS ALPHA-2,C                                                    4F13948 
       STO LAMBDA,A          STO C(ALPHA+A-2) IN LAMBDA+3L              4F13949 
       CLS NBAR                                                         4F13950 
       ARS 18                                                           4F13951 
       SLW ALPHA-1,C         STO -N IN ALPHA+A-1                        4F13952 
       SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13953 
       STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13954 
       TXI LA4170,A,3                                                   4F13955 
CM4100 TXI CM4101,A,-3       LA COUNTER MODIFICATION ROUTINES           4F13956 
CM4101 SXD 3LBAR,A                                                      4F13957 
CM4102 SXD CBAR,B                                                       4F13958 
       TXI CM4104,B,-1                                                  4F13959 
CM4104 SXD NBAR,B                                                       4F13960 
CM4105 *** MS010,0                                                      4F13961 
MS020  CAL ADSTAR                                                       4F13962 
       TRA MS030                                                        4F13963 
CM4200 TXI CM4201,A,-3                                                  4F13964 
CM4201 SXD 3LBAR,A                                                      4F13965 
       TXI CM4303,C,-1                                                  4F13966 
CM4300 TXI CM4301,A,-6                                                  4F13967 
CM4301 SXD 3LBAR,A                                                      4F13968 
       TXI CM4303,C,-1                                                  4F13969 
CM4303 SXD ABAR,C                                                       4F13970 
       TXI CM4102,B,-1                                                  4F13971 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972 
       REM                                                              4F13973 
       REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE            4F13974 
C3390  SXD C3357,1                SAVE CALLING IR                       4F13975 
       SLW 1G                     MOVE WORD TO BE ENTERED TO 1G         4F13976 
       TSX TET00,1                GO TO ENTER WORD IN HOLARG TABLE      4F13977 
           13                                                           4F13978 
       CLA HOLCNT                                                       4F13979 
       ADD L(1)                   UPDATE HOLCNT                         4F13980 
       STO HOLCNT                                                       4F13981 
       LXD C3357,1                RELOAD CALLING IR                     4F13982 
       TRA 1,1                    RETURN TO CALLER+1                    4F13983 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984 
       REM                                                              4F13985 
       REM PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN   4F13986 
       REM SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987 
SS000X SXD SSIR4,4           SAVE CALLING TAG.                          4F13988 
       TSX SS000,4           GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989 
       TSX RA000,4           GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990 
       CAL GTAG                                                         4F13991 
       ANA MASK1                                                        4F13992 
       SLW E+11                                                         4F13993 
       TSX SIG1IX,4          GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.  4F13994 
       ALS 15                POSITION SIGMA TAG.                        4F13995 
       ORS E                 ADD SIGMA TAG TO I-TAU TAGS IN E.          4F13996 
       LXD SSIR4,4           RELOAD CALLING TAG.                        4F13997 
       TRA 1,4               RETURN TO CALLER +1.                       4F13998 
       REM                                                              4F13999 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000 
       REM                                                              4F14001 
       REM ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.                    4F14002 
       REM ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION  4F14003 
       REM ARITHMETIC.                                                  4F14004 
       REM ROYCNV= ENTRY POINT FOR FIXED OR FLQATING POINT INTEGERS.    4F14005 
ROYCNV STO N                         SAVE DECIMAL DIGIT IN N.           4F14006 
       SXD EXIT,4                    SAVE C(XR4) FOR RETURN.            4F14007 
       STZ DOE                       CLEAR DOE (IMPLICIT EXPONENT).     4F14008 
       CLA CM1                       PICK UP SWITCH CONTROL,            4F14009 
EXIT   TXI IN2,0,**                  AND G0 SET SWITCH.                 4F14010 
       REM DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS.            4F14011 
DECPNT STZ N                         CLEAR N (NO INTEGER).              4F14012 
       SXD EXIT,4                    SAVE C(XR4) FOR RETURN.            4F14013 
       STZ DOE                       CLEAR DOE (IMPLICIT EXPONENT).     4F14014 
NC7    CAL CM1                       PICK UP SWITCH CONTROL.            4F14015 
IN2    STP CM2                       SET SWITCHES CM2, AND              4F14016 
       STP CM3                       CM3.                               4F14017 
       TOV NC5                       TURN OFF OV TRIGGER.               4F14018 
NC5    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14019 
       SLW CHSAVE                    SAVE IT FOR STATE B, AND THEN      4F14020 
       CAS L(H)                      COMPARE IT WITH H.                 4F14021 
       TXI NC1,0                     IF H, GO TO HEXIT.                 4F14022 
SSIR4  TXI HEXIT,0                   IF NOT H, CONTINUE                 4F14023 
NC1    CAS TEN                       AND COMPARE WITH TEN.              4F14024 
CM1    TXL NC2,0                     CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14025 
       PXD ,0                        CLEAR THE AC (MACHINE ERROR).      4F14026 
       STO H                         CHARACTER IS NUMERIC, SO HOLD IT.  4F14027 
       CLA N                         MULTIPLY THE PREVIOUS              4F14028 
       ALS 2                         PARTIAL RESULT (OR ZERO)           4F14029 
       ADD N                         BY 10,                             4F14030 
       ALS 1                         AND ADD IN                         4F14031 
       ADD H                         THE CURRENT DIGIT.                 4F14032 
CM2    TXH NC3,0                     SWITCH (NO TRANSFER IF INTEGER).   4F14033 
       TOV NC4                       TEST OVERFLOW, AND                 4F14034 
       STO N                         IF NONE, SAVE NEW PARTIAL RESULT.  4F14035 
       TXI NC5,0                     THEN GO PICK UP NEXT CHARACTER.    4F14036 
NC2    CAS POINT                     COMPARE NON-NUMERIC WITH A POINT.  4F14037 
       TXI CM3,0                     IF GREATER THAN 27, GO OUT.        4F14038 
       TXI NC7,0                     IF POINT, GO BACK AND SET SWITCH.  4F14039 
       CAS L(E)                      IF LESS THAN 27, COMPARE WITH E.   4F14040 
       TXI CM3,0                     IF GREATER THAN 21, GO OUT.        4F14041 
       TXI EC1,0                     IF E, GO TO EXPONENT ROUTINE.      4F14042 
CM3    TXH FN4,0                     SWITCH (NO TRANSFER IF INTEGER).   4F14043 
       CLA N                         PICK UP CONVERTED CONSTANT, AND    4F14044 
MS9506 ALS 18                        STORE IN THE                       4F14045 
       STO G                         DECREMENT OF G, AND                4F14046 
       TSX FXCNIX,4                * GO MAKE FIXCON ENTRY.              4F14047 
       ORA FIXVAR                    CREATE INTERNAL FXD-P, VARIABLE,AND4F14048 
       TXI EXITR,0                   GO TAKE EXITR.                     4F14049 
NC3    TOV NC8                       IF THERE WAS NO OVERFLOW,          4F14050 
       STO N                         SAVE PARTIAL RESULT, AND           4F14051 
       CLS L(1)                      SUBTRACT 1 FROM DOE                4F14052 
NC9    ADD DOE                       TO ADJUST EXPONENT                 4F14053 
       STO DOE                       IN FINAL RESULT.                   4F14054 
NC8    TXI NC5,0                     THEN GO PICK UP NEXT CHARACTER.    4F14055 
NC4    CLA L(1)                      ADD 1 TO DOE ,                     4F14056 
       TXI NC9,0                     IF THERE WAS INTEGER OVERFLOW.     4F14057 
EC1    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14058 
       SLW CHSAVE                    SAVE IT FOR STATE B, AND           4F14059 
       STZ EKE                       CLEAR EKE (EXPLICIT EXPONENT).     4F14060 
       CAS 11Z                       COMPARE CHARACTER WITH A DASH.     4F14061 
       TXI FN5,0                     IF GREATER THAN 32, GO OUT.        4F14062 
       TXI EC3,0                     IF A DASH, SET EKE MINUS.          4F14063 
       CAS 12Z                       IF LESS THAN 32, COMPARE WITH PLUS.4F14064 
       TXI FN5,0                     IF GREATER THAN 16, GO OUT.        4F14065 
       TXI EC6,0                     IF PLUS, GO EXAMINE NEXT CHAR.     4F14066 
       CAS MINUS                     IF LESS THAN 16,COMPARE WITH MINUS.4F14067 
       TXI FN5,0                     IF GREATER THAN 12, GO OUT.        4F14068 
EC3    CLS EKE                       IF MINUS, SET EKE TO -0.           4F14069 
       CAS TEN                       COMPARE WITH TEN.                  4F14070 
       TXI FN5,0                     IF NON-NUMERIC, GO EXAMINE NEXT CH.4F14071 
EC4    PXD ,0                        CLEAR ACC,                         4F14072 
EC5    STO EKE                       SAVE PARTIAL RESULT(OR 0) IN EKE.  4F14073 
EC6    TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F14074 
       SLW CHSAVE                    SAVE IT FOR STATE B,               4F14075 
       CAS TEN                       AND COMPARE WITH TEN.              4F14076 
       TXI FN5,0                     CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14077 
       PXD ,0                        CLEAR THE AC (MACHINE ERROR).      4F14078 
       STO H                         CHARACTER IS NUMERIC, SO HOLD IT.  4F14079 
       CLA EKE                       MULTIPLY THE PREVIOUS              4F14080 
       ALS 2                         PARTIAL RESULT (OR ZERO)           4F14081 
       ADD EKE                       BY 10,                             4F14082 
       ALS 1                         AND ADD IN                         4F14083 
       ACL H                         THE CURRENT DIGIT.                 4F14084 
       TXI EC5,0                     CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085 
FN5    CLA EKE                       COMBINE EXPLICIT EXPONENT          4F14086 
       ADD DOE                       WITH IMPLICIT EXPONENT,            4F14087 
       STO DOE                       AND SAVE IN DOE.                   4F14088 
FN4    CLA N                         IF N CONTAINS ZERO, TAKE           4F14089 
       TZE MS9500                    FLO PT CONSTANT RETURN.            4F14090 
       STA K1                        PUT INTEGER INTO FLO PT WORD,      4F14091 
       ARS 15                        ADJUST, AND                        4F14092 
       TZE FN1                       IF MORE THAN 15 BITS IN LENGTH     4F14093 
       ORA K2                        AFFIX CORRECT EXPONENT.            4F14094 
FN1    FAD K1                        THEN FLOATING ADD THE RESULT       4F14095 
       RQL 8                         OF INTEGER CONVERSION, AND         4F14096 
       RND                           ROUND --TO OBTAIN                  4F14097 
       ORA K3                        NORMALIZED RESULT.                 4F14098 
       LXA DOE,1                     EXAMINE THE C(DOE), AN0            4F14099 
       TXL MS9500,1,0                IF ZERO, TAKE FLO PT RETURN.       4F14100 
       TXL FN2,1,50                  IF GREATER THAN 50, THEN           4F14101 
       TXI CER,0                     ERROR. --GO TO DIAGNOSTIC.         4F14102 
FN2    LDQ DOE                       DETERMINE WHETHER INTEGER WAS      4F14103 
       TQP FN3                       TO THE RIGHT OR TO THE LEFT OF DP. 4F14104 
       FDP TAB,1                     IF TO THE RIGHT, DIVIDE BY A       4F14105 
       STQ N                         SUITABLE CONSTANT                  4F14106 
       CLA N                         TO ADJUST RESULT                   4F14107 
       ACL K4                        AND TEST FOR OUT OF RANGE.         4F14108 
       PBT                           IF P=1, SKIP TO ARITH RETURN.      4F14109 
       TXI CER,0                     ERROR. --GO TO DIAGNOSTIC.         4F14110 
MS9500 STO G                         STORE IN G, AND                    4F14111 
       TSX FLCNIX,4                * GO MAKE FLOCON ENTRY.              4F14112 
       ORA FLOVAR                    CREATE INTERNAL FLO-PT VARIABLE,   4F14113 
EXITR  SLW E+2                       SAVE VARIABLE IN E+2,              4F14114 
       LXD EXIT,4                    RESTORE THE C(XR4), AND            4F14115 
       TRA 2,4                     * RETURN TO MAIN ROUTINE.            4F14116 
FN3    STO N                         IF INTEGER WAS SITUATED            4F14117 
       LDQ N                         TO THE LEFT OF THE DECIMAL POINT,  4F14118 
       FMP TAB,1                     MULTIPLY BY A SUITABLE             4F14119 
       ACL K5                        CONSTANT TO ADJUST AND TEST RANGE. 4F14120 
       PBT                           IF P=1, SKIP TO ERROR.             4F14121 
       TXI MS9500,0                  RETURN TO ARITHMETIC ROUTINE.      4F14122 
 CER   TSX DIAG,4                  * CONVERSION ERROR, GO TO DIAGNOSTIC.4F14123 
HEXIT  LXD EXIT,4                    RESTORE THE C(XR4), AND            4F14124 
       TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F14125 
       REM                                                              4F14126 
K1     OCT 233000000000              CONSTANT USED BY ROYCNV.           4F14127 
K2     OCT 252000000000              CONSTANT USED BY ROYCNV.           4F14128 
K3     OCT 400000000                 CONSTANT USED BY ROYCNV.           4F14129 
K4     OCT 335000000000              CONSTANT USED BY ROYCNV.           4F14130 
K5     OCT 43000000000               CONSTANT USED BY ROYCNV.           4F14131 
L(E)   BCD 100000E                   CONSTANT USED BY ROYCNV.           4F14132 
       REM                                                              4F14133 
       OCT 375536246150              48-TABLE USED BY ROYCNV.           4F14134 
       OCT 372430204754              47-TABLE USED BY ROYCNV.           4F14135 
       OCT 366700324573              46-TABLE USED BY ROYCNV.           4F14136 
       OCT 363546566774              45-TABLE USED BY ROYCNV.           4F14137 
       OCT 360436770626              44-TABLE USED BY ROYCNV.           4F14138 
       OCT 354713132675              43-TABLE USED BY ROYCNV.           4F14139 
       OCT 351557257061              42-TABLE USED BY ROYCNV.           4F14140 
       OCT 346445677215              41-TABLE USED BY ROYCNV.           4F14141 
       OCT 342726145174              40-TABLE USED BY ROYCNV.           4F14142 
       OCT 337570120775              39-TABLE USED BY ROYCNV.           4F14143 
       OCT 334454732312              38-TABLE USED BY ROYCNV.           4F14144 
       OCT 330741367020              37-TABLE USED BY ROYCNV.           4F14145 
       OCT 325601137163              36-TABLE USED BY ROYCNV.           4F14146 
       OCT 322464114134              35-TABLE USED BY ROYCNV.           4F14147 
       OCT 316755023372              34-TABLE USED BY ROYCNV.           4F14148 
       OCT 313612334310              33-TABLE USED BY ROYCNV.           4F14149 
       OCT 310473426555              32-TABLE USED BY ROYCNV.           4F14150 
       OCT 304770675742              31-TABLE USED BY ROYCNV.           4F14151 
       OCT 301623713116              30-TABLE USED BY ROYCNV.           4F14152 
       OCT 276503074076              29-TABLE USED BY ROYCNV.           4F14153 
       OCT 273402374713              28-TABLE USED BY R0YCNV.           4F14154 
       OCT 267635456171              27-TABLE USED BY ROYCNV.           4F14155 
       OCT 264512676456              26-TABLE USED BY ROYCNV.           4F14156 
       OCT 261410545213              25-TABLE USED BY ROYCNV.           4F14157 
       OCT 255647410337              24-TABLE USED BY ROYCNV.           4F14158 
       OCT 252522640262              23-TABLE USED BY ROYCNV.           4F14159 
       OCT 247417031702              22-TABLE USED BY ROYCNV.           4F14160 
       OCT 243661534466              21-TABLE USED BY ROYCNV.           4F14161 
       OCT 240532743536              20-TABLE USED BY ROYCNV.           4F14162 
       OCT 235425434430              19-TABLE USED BY ROYCNV.           4F14163 
       OCT 231674055530              18-TABLE USED BY ROYCNV.           4F14164 
       OCT 226543212741              17-TABLE USED BY ROYCNV.           4F14165 
       OCT 223434157116              16-TABLE USED BY ROYCNV.           4F14166 
       OCT 217706576512              15-TABLE USED BY ROYCNV.           4F14167 
       OCT 214553630410              14-TABLE USED BY ROYCNV.           4F14168 
       OCT 211443023471              13-TABLE USED BY ROYCNV.           4F14169 
       OCT 205721522451              12-TABLE USED BY ROYCNV.           4F14170 
       OCT 202564416672              11-TABLE USED BY ROYCNV.           4F14171 
       OCT 177452013710              10-TABLE USED BY ROYCNV.           4F14172 
       OCT 173734654500              09-TABLE USED BY ROYCNV.           4F14173 
       OCT 170575360400              08-TABLE USED BY ROYCNV.           4F14174 
       OCT 165461132000              07-TABLE USED BY ROYCNV.           4F14175 
       OCT 161750220000              06-TABLE USED BY ROYCNV.           4F14176 
       OCT 156606500000              05-TABLE USED BY ROYCNV.           4F14177 
       OCT 153470400000              04-TABLE USED BY ROYCNV.           4F14178 
       OCT 147764000000              03-TABLE USED BY ROYCNV.           4F14179 
       OCT 144620000000              02-TABLE USED BY ROYCNV.           4F14180 
       OCT 141500000000              01-TABLE USED BY ROYCNV.           4F14181 
TAB    OCT 136400000000              00-TABLE USED BY ROYCNV.           4F14182 
       REM  END OF PROGRAM ROYCNV.                                      4F14183 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14184 
       REM                                                              4F14185 
SIG1ST PZE SIGMA1+2,,1                                                  4F14186 
STATEC BSS 0                                                            4F141865
       REM                                                              4F14187 
       ORG 2701+4096                                                    4F14188 
ARGREG BSS 50                                                           4F14189 
CBAR   BSS 1                                                            4F14190 
ABAR   BSS 1                                                            4F14191 
FSTYPE BSS 1                                                            4F14192 
FSBITS BSS 1                                                            4F14193 
FNBITS BSS 1                                                            4F14194 
FNCTR  BSS 1                                                            4F14195 
ALPHA  BSS 139                                                          4F14196 
LAMBDA BSS 1200                                                         4F14197 
       REM  END OF ARITHMETIC / STATE B.                                4F14198 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14199 
       REM                                                              4F14200 
       REM ARITHMETIC / STATE C=                                        4F14201 
       REM STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE.              4F14204 
       REM                                                              4F14205 
       ORG STATEC                                                       4F14206 
R00000 LDQ L(0)              CLEAR MQ                                   4F14207 
       LXD NBAR,A            LDXA WITH -N                               4F14208 
       SXD R00700,A                                                     4F14209 
       SXD R05200,A                                                     4F14210 
       SXD AS0800,A                                                     4F14211 
       SXD AS2900,A                                                     4F14212 
       LXA L(0),7            CLEAR XA,XB,XC,                            4F14213 
R00500 STQ BETA,B                                                       4F14214 
       TXI R00700,B,-1                                                  4F14215 
R00700 TXH R00500,B,0                                                   4F14216 
       CLA 3LBAR                                                        4F14217 
       STD R01700                                                       4F14218 
       STD R06200                                                       4F14219 
R01000 CLA LAMBDA,A          ADD INTO GAMMA COUNTERS                    4F14220 
       PAX 0,B                                                          4F14221 
       CLA BETA,B                                                       4F14222 
       ADD BETAD1            (-3)*2**18+(-3)                            4F14223 
       STD BETA,B                                                       4F14224 
       STA BETA,B                                                       4F14225 
       TXI R01700,A,-3                                                  4F14226 
R01700 TXH R01000,A,0        -3L IN XA AT END                           4F14227 
R01800 TXH R04200,A,-6       EXIT FROM SINGLE ELEMENT REDUCTION         4F14228 
       CLA LAMBDA-3,A                                                   4F14229 
       PAX 0,B                                                          4F14230 
       CLA BETA,B                                                       4F14231 
       SUB BETAD1                                                       4F14232 
       TZE R02600                                                       4F14233 
       TXI R01800,A,3                                                   4F14234 
R02600 LDQ LAMBDA-2,A        SINGLE ELEMENT                             4F14235 
       LGL 6                 EXAMINE OPERATION                          4F14236 
       SUB 11Z                                                          4F14237 
       TNZ R03200                                                       4F14238 
       TXI R01800,A,3                                                   4F14239 
R03200 CAL MASK1             SINGLE ELEMENT, NON-UNARY OP               4F14240 
       ANS LAMBDA-3,A        EXTRACT TAGS AND STORE BACK                4F14241 
       CLA LAMBDA-6,A                                                   4F14242 
       ORA LAMBDA-3,A                                                   4F14243 
       SLW LAMBDA-6,A                                                   4F14244 
       CAL LAMBDA-2,A        EXTRACT FS BITS AND STORE BACK             4F14245 
       ANA MASK5                                                        4F14246 
       ORS LAMBDA-5,A                                                   4F14247 
       CAL LAMBDA-1,A        STORE BACK SYMBOL                          4F14248 
       SLW LAMBDA-4,A                                                   4F14249 
       STZ BETA,B            REDUCE GAMMA COUNT TO 0                    4F14250 
       STZ LAMBDA-3,A        CLEAR TAG WORD                             4F14251 
       TXI R01800,A,3        RESUME SCAN-BACK                           4F14252 
R04200 STZ G                                                            4F14253 
       LXA L(0),7            CLEAR XA,XB,XC                             4F14254 
R04500 CLA BETA,B            SET ORIGINS OF SCRIPL TABLE                4F14255 
       TZE R05100                                                       4F14256 
       LDQ G                                                            4F14257 
       SLQ BETA,B                                                       4F14258 
       ADD G                                                            4F14259 
       STD G                                                            4F14260 
R05100 TXI R05200,B,-1                                                  4F14261 
R05200 TXH R04500,B,0        DEC(K)=DEC(ACC)=-3P AT END                 4F14262 
R05300 CAL LAMBDA,A          STRING BEADS... COMPRESS LAMBDA TABLE      4F14263 
       TZE R06100                                                       4F14264 
       SLW LAMBDA,C                                                     4F14265 
       CLA LAMBDA+1,A                                                   4F14266 
       STO LAMBDA+1,C                                                   4F14267 
       CLA LAMBDA+2,A                                                   4F14268 
       STO LAMBDA+2,C                                                   4F14269 
       TXI R06100,C,-3                                                  4F14270 
R06100 TXI R06200,A,-3                                                  4F14271 
R06200 TXH R05300,A,0                                                   4F14272 
       SXD R07800,C          -3P IN XC AT END                           4F14273 
       SXD CS0760,C                                                     4F14274 
       LXA L(0),A                                                       4F14275 
R06400 CLA LAMBDA,A          STORE ORDERED, REDUCED LAMBDA TABLE        4F14276 
       PAX 0,B               IN SCRIPL TABLE                            4F14277 
       CLA BETA,B                                                       4F14278 
       PDX 0,C                                                          4F14279 
       CLA LAMBDA,A                                                     4F14280 
       STO SCRIPL,C                                                     4F14281 
       CLA LAMBDA+1,A                                                   4F14282 
       STO SCRIPL+1,C                                                   4F14283 
       CLA LAMBDA+2,A                                                   4F14284 
       STO SCRIPL+2,C                                                   4F14285 
       TXI R07500,C,-3                                                  4F14286 
R07500 PXD 0,C                                                          4F14287 
       STD BETA,B                                                       4F14288 
       TXI R07800,A,-3                                                  4F14289 
R07800 TXH R06400,A,0        -3P IN XA AT END                           4F14290 
CS0000 LDQ L(0)              ELIMINATE COMMON,SEGMENTS                  4F14291 
CS0010 CAL SCRIPL-3,A                                                   4F14292 
       TZE CS0080            ERASED SEGMENT - CONTINUE BACK-SCAN        4F14293 
CS0030 PAX 0,B                                                          4F14294 
       TXL CS0660,B,0        EXIT FROM CS ROUTINE                       4F14295 
       STA CS0030                                                       4F14296 
       CLA BETA,B                                                       4F14297 
CS0060 PAX 0,C                                                          4F14298 
       TXL CS0090,C,-6       AT LEAST TWO ELEMENTS                      4F14299 
CS0080 TXI CS0010,A,3        ONE ELEMENT OR ERASED SEGMENT              4F14300 
CS0090 SXD CS0470,A          SAVE XA                                    4F14301 
       SXD LENGTH,C          SAVE XC, CONTAINING LENGTH OF SEGMENT      4F14302 
CS0100 TXL CS0130,C,0        SEARCH UP FOR MATCHING SEGMENT             4F14303 
       TXI CS0120,A,3                                                   4F14304 
CS0120 TXI CS0100,C,3                                                   4F14305 
CS0130 CAL SCRIPL-3,A                                                   4F14306 
       TNZ CS0151                                                       4F14307 
       TXI CS0130,A,3        ERASED SEGMENT                             4F14308 
CS0151 PAX 0,B                                                          4F14309 
       TXL CS0610,B,0        G0 ON TO NEXT SEGMENT                      4F14310 
       STA CS0060                                                       4F14311 
       CLA BETA,B                                                       4F14312 
       PAX 0,C                                                          4F14313 
       PXD 0,C                                                          4F14314 
       SUB LENGTH                                                       4F14315 
       TNZ CS0100            NOT SAME LENGTH SEGMENT-CONTINUE SEARCH    4F14316 
       LXD CS0470,B          SAME LENGTH SEGMENT                        4F14317 
       SXD CS0600,A                                                     4F14318 
CS0250 TXL CS0430,C,0        MATCHING SEGMENTS                          4F14319 
       CLA SCRIPL-1,B                                                   4F14320 
       SUB SCRIPL-1,A                                                   4F14321 
       TNZ CS0100                                                       4F14322 
       CAL SCRIPL-3,B        SYMBOLS MATCH                              4F14323 
       ANA MASK1                                                        4F14324 
       SLW G                                                            4F14325 
       CAL SCRIPL-3,A                                                   4F14326 
       ANA MASK1                                                        4F14327 
       COM                                                              4F14328 
       ACL G                                                            4F14329 
       COM                                                              4F14330 
       TNZ CS0100                                                       4F14331 
       CLA SCRIPL-2,B        TAGS MATCH                                 4F14332 
       ARS 6                                                            4F14333 
       ALS 6                                                            4F14334 
       SUB SCRIPL-2,A                                                   4F14335 
       TNZ CS0100                                                       4F14336 
       TXI CS0360,A,3        OPS MATCH                                  4F14337 
CS0360 TXI CS0370,B,3                                                   4F14338 
CS0370 TXI CS0250,C,3                                                   4F14339 
CS0430 CAL SCRIPL,A          MATCHING SEGMENTS                          4F14340 
       ANA MASK2             SEARCH FOR REFERENCES                      4F14341 
CS0450 CAS SCRIPL-1,A                                                   4F14342 
       TXI CS0450,A,3                                                   4F14343 
CS0470 TXI CS0490,0,0                                                   4F14344 
       TXI CS0450,A,3                                                   4F14345 
CS0490 CLA CS0030            CHANGE REFERENCE                           4F14346 
       STA SCRIPL-1,A                                                   4F14347 
       LXD LENGTH,C                                                     4F14348 
       LXD CS0600,A                                                     4F14349 
CS0530 TXL CS0570,C,0        ERASE DUPLICATE SEGMENT                    4F14350 
       STQ SCRIPL-3,A                                                   4F14351 
       TXI CS0560,A,3                                                   4F14352 
CS0560 TXI CS0530,C,3                                                   4F14353 
CS0570 LXA CS0060,C                                                     4F14354 
       STQ BETA,C                                                       4F14355 
       CAL 11Z               STORE CS BIT                               4F14356 
       ORS SCRIPL+1,B                                                   4F14357 
CS0600 TXI CS0130,0,0                                                   4F14358 
CS0610 LXD CS0470,A                                                     4F14359 
       LXD LENGTH,C                                                     4F14360 
CS0630 TXL CS0010,C,0                                                   4F14361 
       TXI CS0650,A,3                                                   4F14362 
CS0650 TXI CS0630,C,3                                                   4F14363 
CS0660 LXA L(0),5            STRING BEADS... COMPRESS SCRIPL TABLE      4F14364 
CS0670 CAL SCRIPL,A                                                     4F14365 
       TZE CS0750                                                       4F14366 
       SLW SCRIPL,C                                                     4F14367 
       CLA SCRIPL+1,A                                                   4F14368 
       STO SCRIPL+1,C                                                   4F14369 
       CLA SCRIPL+2,A                                                   4F14370 
       STO SCRIPL+2,C                                                   4F14371 
       TXI CS0750,C,-3                                                  4F14372 
CS0750 TXI CS0760,A,-3                                                  4F14373 
CS0760 TXH CS0670,A,0                                                   4F14374 
       SXD PM0080,C          -3Q IN XC AT END                           4F14375 
       SXD AS1800,C                                                     4F14376 
       SXD AS3600,C                                                     4F14377 
PM0000 SLF                   TURN OFF ALL SENSE LITES                   4F14378 
       LXA L(0),A            PERMUTE * AND /                            4F14379 
PM0010 CLA SCRIPL,A                                                     4F14380 
       PAX 0,B                                                          4F14381 
       CLA BETA,B                                                       4F14382 
       PAX 0,C               LDXC WITH SEGMENT LENGTH                   4F14383 
       SXD PM0070,C                                                     4F14384 
       TXL PM0100,C,-9                                                  4F14385 
PM0070 TXI PM0080,A,0        LENGTH LESS THAN 3 OR OD NOT = TO *        4F14386 
PM0080 TXL AS0000,A,0        EXIT FROM PERMUTATION ROUTINE              4F14387 
       TRA PM0010                                                       4F14388 
PM0100 LDQ SCRIPL+1,A        SEGMENT LENGTH AT LEAST = TO 3             4F14389 
       PXD 0,0                                                          4F14390 
       LGL 6                                                            4F14391 
       SUB STAR                                                         4F14392 
       TNZ PM0070                                                       4F14393 
       TQP PM0170                                                       4F14394 
       TRA PM0070                                                       4F14395 
PM0170 SXD PM0260,C                                                     4F14396 
       SXD PM0400,C                                                     4F14397 
       SXD PM0680,C                                                     4F14398 
       LXA L(0),C            LDXC WITH 0                                4F14399 
       TXI PM0240,A,-3                                                  4F14400 
PM0240 SLN 3                 TURN * LITE ON                             4F14401 
PM0250 TXI PM0260,C,-3                                                  4F14402 
PM0260 TXL PM0790,C,0        EXIT                                       4F14403 
       SXD PM0340,C                                                     4F14404 
       LXD PM0290,B                                                     4F14405 
PM0290 TXI PM0300,3,0        XA TO XA AND XB                            4F14406 
PM0300 PXD 0,0                                                          4F14407 
       LDQ SCRIPL+1,A                                                   4F14408 
       LGL 6                                                            4F14409 
       CAS SLASH                                                        4F14410 
FEXUB  HTR 0,0,7                                                        4F14411 
PM0340 TXL PM0640,0,0        / SIGN                                     4F14412 
       SLT 3                 * SIGN... IS * LITE ON                     4F14413 
       TXI PM0240,A,-3       NO                                         4F14414 
       TXI PM0390,B,-3       YES - SEARCH FOR / SIGN                    4F14415 
PM0390 TXI PM0400,C,-3                                                  4F14416 
PM0400 TXL PM0770,C,0        EXIT                                       4F14417 
       PXD 0,0                                                          4F14418 
       LDQ SCRIPL+1,B                                                   4F14419 
       LGL 6                                                            4F14420 
       SUB SLASH                                                        4F14421 
       TZE PM0480                                                       4F14422 
       TXI PM0390,B,-3                                                  4F14423 
PM0480 CLA SCRIPL,A          PERMUTE TAG WORDS                          4F14424 
       LDQ SCRIPL,B                                                     4F14425 
       STQ SCRIPL,A                                                     4F14426 
       STO SCRIPL,B                                                     4F14427 
       CLA SCRIPL+1,A        PERMUTE OP WORDS                           4F14428 
       LDQ SCRIPL+1,B                                                   4F14429 
       STQ SCRIPL+1,A                                                   4F14430 
       STO SCRIPL+1,B                                                   4F14431 
       CLA SCRIPL+2,A        PERMUTE SYMBOL WORDS                       4F14432 
       LDQ SCRIPL+2,B                                                   4F14433 
       STQ SCRIPL+2,A                                                   4F14434 
       STO SCRIPL+2,B                                                   4F14435 
       LXD PM0340,C                                                     4F14436 
       TXI PM0250,A,-3       RESUME SEGMENT SCAN                        4F14437 
PM0640 SLT 3                 / SIGN... IS * LITE ON                     4F14438 
PM0650 TXI PM0670,B,-3       NO                                         4F14439 
       TXI PM0250,A,-3                                                  4F14440 
PM0670 TXI PM0680,C,-3                                                  4F14441 
PM0680 TXL PM0770,C,0                                                   4F14442 
       PXD 0,0                                                          4F14443 
       LDQ SCRIPL+1,B                                                   4F14444 
       LGL 6                                                            4F14445 
       SUB SLASH                                                        4F14446 
       TZE PM0650                                                       4F14447 
       SLN 3                 TORN * LITE ON                             4F14448 
       TRA PM0480                                                       4F14449 
PM0770 LXD PM0780,A                                                     4F14450 
PM0780 TXI PM0790,3,0        XB TO XA,XB                                4F14451 
PM0790 PXD 0,0                                                          4F14452 
       LDQ SCRIPL-2,A                                                   4F14453 
       LGL 6                                                            4F14454 
       SUB SLASH                                                        4F14455 
       TZE PM0080            ... / - EXIT FROM SEGMENT SCAN             4F14456 
       PXD 0,0                                                          4F14457 
       LDQ SCRIPL-5,A                                                   4F14458 
       LGL 6                                                            4F14459 
       SUB SLASH                                                        4F14460 
       TZE PM0080            ... / * - EXIT FROM SEGMENT SCAN           4F14461 
       CLA SCRIPL-3,A        ... **                                     4F14462 
       STO E                                                            4F14463 
       CLA SCRIPL-2,A                                                   4F14464 
       STO E+1                                                          4F14465 
       CLA SCRIPL-1,A                                                   4F14466 
       STO E+2                                                          4F14467 
       TXI PM0980,A,3                                                   4F14468 
PM0980 TXI PM0990,C,3                                                   4F14469 
PM0990 TXL PM1070,C,0        FINIS                                      4F14470 
       CLA SCRIPL-3,A                                                   4F14471 
       STO SCRIPL,A                                                     4F14472 
       CLA SCRIPL-2,A                                                   4F14473 
       STO SCRIPL+1,A                                                   4F14474 
       CLA SCRIPL-1,A                                                   4F14475 
       STO SCRIPL+2,A                                                   4F14476 
       TXI PM0980,A,3                                                   4F14477 
PM1070 CLA E                                                            4F14478 
       STO SCRIPL,A                                                     4F14479 
       CLA E+1                                                          4F14480 
       STO SCRIPL+1,A                                                   4F14481 
       CLA E+2                                                          4F14482 
       STO SCRIPL+2,A                                                   4F14483 
       CAL SCRIPL+4,A        PRESERVE CS BIT                            4F14464 
       ANA 11Z                                                          4F14485 
       ORS SCRIPL+1,A                                                   4F14486 
       TRA PM0070                                                       4F14487 
AS0000 LXA L(0),7            RENUMBER SEGMENT OF SCRIPL                 4F14488 
AS0100 CLA BETA,B                                                       4F14489 
       TZE AS0700                                                       4F14490 
       PXD 0,C                                                          4F14491 
       ARS 18                                                           4F14492 
       STA BETA,B                                                       4F14493 
       TXI AS0700,C,-1                                                  4F14494 
AS0700 TXI AS0800,B,-1                                                  4F14495 
AS0800 TXH AS0100,B,0                                                   4F14496 
AS0900 CLA SCRIPL,A                                                     4F14497 
       PAX 0,B                                                          4F14498 
       CLA BETA,B                                                       4F14499 
       STA SCRIPL,A                                                     4F14500 
       LDQ SCRIPL+2,A                                                   4F14501 
       LGL 1                                                            4F14502 
       LBT                                                              4F14503 
       TQP AS2000                                                       4F14504 
       TXI AS1800,A,-3                                                  4F14505 
AS1800 TXH AS0900,A,0                                                   4F14506 
       TRA AS2500                                                       4F14507 
AS2000 LGL 35                                                           4F14508 
       PAX 0,B                                                          4F14509 
       CLA BETA,B                                                       4F14510 
       STA SCRIPL+2,A                                                   4F14511 
       TXI AS1800,A,-3                                                  4F14512 
AS2500 LXA L(0),3            LDXA,XB WITH 0                             4F14513 
       LDQ L(0)              CLEAR MQ                                   4F14514 
AS2700 STQ BETA,B            RECLEAR BETA TABLE                         4F14515 
       TXI AS2900,B,-1                                                  4F14516 
AS2900 TXH AS2700,B,0                                                   4F14517 
AS3000 CLA SCRIPL,A          ADD INTO GAMMA COUNTERS                    4F14518 
       PAX 0,B                                                          4F14519 
       CLA BETA,B                                                       4F14520 
       ADD BETAD2            3*2**18+(-3)                               4F14521 
       STD BETA,B                                                       4F14522 
       STA BETA,B                                                       4F14523 
       TXI AS3600,A,-3                                                  4F14524 
AS3600 TXH AS3000,A,0        -3Q IN XA AT END                           4F14525 
       SXD 3QBAR,A           -3Q TO 3QBAR = 3LBAR                       4F14526 
CCS000 CAL SCRIPL-3,A        ELIMINATE COMMON SUBEXPRESSIONS            4F14527 
       PAX 0,B               LOAD XB WITH S(I)                          4F14528 
       TXL CCS240,B,0        EXIT AT S(0)                               4F14529 
       CAL BETA,B            OBTAIN LENGTH OF S(I)                      4F14530 
       STD CCS060            AND BACK UP TO                             4F14531 
CCS060 TXI CCS070,A,0        BEGINNING OF CURRENT SEGMENT               4F14532 
CCS070 CAL SCRIPL+1,A        OBTAIN OP1 (S(I))                          4F14533 
       ANA 11Z               EXTRACT CS-BIT                             4F14534 
       TZE CCS000            CONTINUE TO S(I-1)                         4F14535 
       PXD 0,B                                                          4F14536 
       ARS 18                                                           4F14537 
       LXA L(0),C            TO S(I)                                    4F14538 
       LXD CCS140,B          AND KEEP COUNT OF SAME                     4F14539 
CCS140 TXI CCS150,3,0        XA TO XA,XB                                4F14540 
CCS150 TXL CCS200,B,0        SEARCH-UP FINISHED. EXAMINE COUNT          4F14541 
       CAS SCRIPL-1,B                                                   4F14542 
       TXI CCS150,B,3        CONTINUE SEARCH                            4F14543 
       TXI CCS190,C,1        RAISE REF COUNTER AND                      4F14544 
CCS190 TXI CCS150,B,3        CONTINUE SEARCH                            4F14545 
CCS200 TXH CCS000,C,1        MULTIPLE REFERENCE                         4F14546 
       CAL MASK4             SINGLE REFERENCE - SO SET                  4F14547 
       ANS SCRIPL+1,A        OP1(S(I))30 TO 0, AND                      4F14548 
       TRA CCS000            CONTINUE FOR S(I-1)                        4F14549 
CCS240 LXD AS3600,A          -3Q TO XA                                  4F14550 
PL0000 TXL LK0000,A,0        GO TO LINKAGE                              4F14551 
       CLA SCRIPL-3,A                                                   4F14552 
       PAX 0,B                                                          4F14553 
       CAL BETA,B                                                       4F14554 
       PAX 0,C                                                          4F14555 
       STD PL0060                                                       4F14556 
PL0060 TXI PL0070,A,0        SET XA TO BEGINNING OF S(I)                4F14557 
PL0070 PXD 0,0                                                          4F14558 
       LDQ SCRIPL+1,A        OBTAIN                                     4F14559 
       LGL 6                 AND                                        4F14560 
       CAS SPECOP            EXAMINE OP1 (S(I))                         4F14561 
       TRA PL0680                                                       4F14562 
       TRA PL0460                                                       4F14563 
PL0130 PXD 0,0               OP1 (S(I)) IS +, - OR *                    4F14564 
       LDQ SCRIPL+2,A        OBTAIN                                     4F14565 
       LGL 1                 AND                                        4F14566 
       LBT                   EXAMINE SYM1 (S(I))                        4F14567 
       TQP PL0300                                                       4F14568 
       LGL 5                 EX (IN)TERNAL VARIAVLE                     4F14569 
PL0135 CAS L(H)              IS SYM1 (S(I)) FIX OR FLO PT               4F14570 
       CAS L(O)                                                         4F14571 
       TRA PL0240            FLO PT... SET OP1 (S(I)) 32 = 1            4F14572 
       TRA PL0240            FLO PT... DITTO                            4F14573 
       TRA PL0000            FIX PT... OP1 (S(I)) 32 = 0                4F14574 
PL0240 CAL L(8)              SET OP1 (S(I)) 32 = 1                      4F14575 
PL0250 ORS SCRIPL+1,A                                                   4F14576 
PL0260 TXI PL0000,0,0        CONTINUE SCAN                              4F14577 
PL0300 LXD PL0310,B          SYM1 (S(I)) = SOME S(J)                    4F14578 
PL0310 TXI PL0320,3,0        XA TO XA,XB                                4F14579 
PL0320 SXD PL0330,C                                                     4F14580 
PL0330 TXI PL0340,B,0                                                   4F14581 
PL0340 CAL SCRIPL,B                                                     4F14582 
       PAX 0,C                                                          4F14583 
       ANA MASK2                                                        4F14584 
       SUB SCRIPL+2,A                                                   4F14585 
       TZE PL0420                                                       4F14586 
       CLA BETA,C                                                       4F14587 
       PAX 0,C                                                          4F14588 
       TRA PL0320                                                       4F14589 
PL0420 CAL SCRIPL+1,B        SYM1(S(I)) = S(J)                          4F14590 
       ANA L(8)              EXTRACT OP1 (S(J)) 32 AND GO               4F14591 
       TRA PL0250            SET OP1 (S(I)) 32 = OP1 (S(J)) 32          4F14592 
PL0460 LGL 7                 OP1 (S(I)) IS SPOP                         4F14593 
       TQP PL0465                                                       4F14594 
PL0461 LDQ SCRIPL+2,A        FS NAME -                                  4F14595 
       PXD 0,0               EXAMINE SUM1 (S(I)) S,1-5                  4F14596 
       LGL 6                                                            4F14597 
       SUB L(X)                                                         4F14598 
       TNZ PL0240            FLO PT... GO SET OP1 (S(I)) 32 = 1         4F14599 
       TRA PL0000            FIX PT ... OP1 (S(I)) 32 = 0               4F14600 
PL0465 LBT                                                              4F14601 
       TRA PL0470                                                       4F14602 
       LDQ SCRIPL+2,A                                                   4F14603 
       PXD ,0                                                           4F14604 
       LGL 6                                                            4F14605 
       TRA PL0135                                                       4F14606 
PL0470 CLA SCRIPL+2,A        NOT AN FS NAME                             4F14607 
       LXA L(0),B                                                       4F14608 
PL0480 CAS OPSUB,B                                                      4F14609 
       TXI PL0520,B,-1                                                  4F14610 
       TRA PL0650                                                       4F14611 
       TXI PL0520,B,-1                                                  4F14612 
PL0520 TXH PL0480,B,-20                                                 4F14613 
       STO G                                                            4F14614 
       SXD PL0260,A                                                     4F14615 
       TSX TET00,A                                                      4F14616 
       HTR 9                                                            4F14617 
       LXD PL0260,A                                                     4F14618 
       TRA PL0461                                                       4F14619 
PL0650 CAL L(4)              SET OP1 (S(I)) 33 =1                       4F14620 
       ORS SCRIPL+1,A                                                   4F14621 
       TRA PL0461                                                       4F14622 
PL0680 TQP PL0130                                                       4F14623 
       PXD 0,0               OP1 (S(I) IS **                            4F14624 
       LDQ SCRIPL+2,A        OBTAIN AND                                 4F14625 
       LGL 1                 EXAMINE                                    4F14626 
       LBT                   SYM1 (S(I))                                4F14627 
       TQP PL1000                                                       4F14628 
       LGL 5                 EX (IN)TERNAL VARIABLE                     4F14629 
       CAS L(H)              IS OT FIX OR FLO PT                        4F14630 
       CAS L(O)                                                         4F14631 
       TRA PL0800                                                       4F14632 
       TRA PL0800                                                       4F14633 
       TRA PL0830            FIX PT                                     4F14634 
PL0800 CAL L(8)              FLO PT... SET OP1 (S(I)) 32 = 1            4F14635 
PL0820 ORS SCRIPL+1,A                                                   4F14636 
PL0830 PXD 0,0                                                          4F14637 
       LDQ SCRIPL+5,A        OBTAIN                                     4F14638 
       LGL 1                 AND                                        4F14639 
       LBT                   EXAMINE                                    4F14640 
       TQP PL1200            SYM2 (S(I))                                4F14641 
       LGL 5                                                            4F14642 
       CAS L(H)                                                         4F14643 
       CAS L(O)                                                         4F14644 
       TRA PL0940            SYM2 (S(I)) IS FLO PT, SO GO               4F14645 
       TRA PL0940            SET OP2 (S(I)) 32 = 1                      4F14646 
PL0850 PXD 0,0               SYM2(S(I)) IS FIX PT                       4F14647 
       LGL 6                                                            4F14648 
       SUB OPEN                                                         4F14649 
       TNZ PL0000            SYM2 (S(I)) IS EXTERNAL                    4F14650 
       LGL 25                SYM2 (S(I)) IS INTERNAL (AND FIX PT)       4F14651 
       ADD PL0880                                                       4F14652 
       STA PL0850                                                       4F14653 
       RDR FXCODR                                                       4F14654 
       LDA PL0850                                                       4F14655 
       CPY G                                                            4F14656 
       CPY G+1                                                          4F14657 
       CLA G                                                            4F14658 
       CAS G+1                                                          4F14659 
       TRA *+2                       GO TO THE DIAGNOSTIC.              4F14660 
       TRA PL1570                                                       4F14661 
       TSX DIAG,4                  * GO TO THE DIAGNOSTIC.              4F14662 
PL1570 TZE PL0000            EXP IS 0, SO OP1 (S(I)) 33 = 0             4F14663 
       CAS FEXUB                                                        4F14664 
PL0880 TXH FIXCON,0,0        EXP NOT LESS THAN 7, SO                    4F14665 
       TRA PL0000            OP1 (S(I)) 33 = 0                          4F14666 
       STO SCRIPL+5,A        EXP LESS THAN 7, SO STORE EXP              4F14667 
       CAL L(4)              AS SYM2 (S(I)) AND SET                     4F14668 
       ORS SCRIPL+1,A        OP1 (S(I)) 33 = 1                          4F14669 
       TRA PL0000                                                       4F14670 
PL0940 CAL L(8)              SYM2 (S(I)) IS FLO PT                      4F14671 
       ORS SCRIPL+4,A        SET OP2 (S(I)) 32 = 1                      4F14672 
       TRA PL0000                                                       4F14673 
PL1000 LXD PL1010,B          SYM1 (S(I)) IS SOME S(J)                   4F14674 
PL1010 TXI PL1020,3,0        XA TO XA,XB                                4F14675 
PL1020 SXD PL1030,C                                                     4F14676 
PL1030 TXI PL1040,B,0                                                   4F14677 
PL1040 CAL SCRIPL,B                                                     4F14678 
       PAX 0,C                                                          4F14679 
       ANA MASK2                                                        4F14680 
       SUB SCRIPL+2,A                                                   4F14681 
       TZE PL1130                                                       4F14682 
       CLA BETA,C                                                       4F14683 
       PAX 0,C                                                          4F14684 
       TRA PL1020                                                       4F14685 
PL1130 CAL SCRIPL+1,B                                                   4F14686 
       ANA L(8)                                                         4F14687 
       TRA PL0820                                                       4F14688 
PL1200 LXD PL1210,B          SYM2 (S(I)) = SOME S(K)                    4F14689 
PL1210 TXI PL1220,3,0        XA TO XA,XB                                4F14690 
PL1220 LXD PL1330,C          LKXC WITH -6                               4F14691 
PL1230 SXD PL1240,C                                                     4F14692 
PL1240 TXI PL1250,B,0                                                   4F14693 
PL1250 CAL SCRIPL,B                                                     4F14694 
       PAX 0,C                                                          4F14695 
       ANA MASK2                                                        4F14696 
       SUB SCRIPL+5,A                                                   4F14697 
       TZE PL1340            SYM2(S(I)) = S(K)                          4F14698 
       CLA BETA,C                                                       4F14699 
       PAX 0,C                                                          4F14700 
PL1330 TXI PL1230,0,-6                                                  4F14701 
PL1340 CAL SCRIPL+1,B        SET OP2(S(I)) 32 = OP1 (S(K)) 32           4F14702 
       ANA L(8)                                                         4F14703 
       ORS SCRIPL+4,A                                                   4F14704 
       TRA PL0000            RESUME SCAN                                4F14705 
LK0000 LXD AS3600,A          -3Q TO XA                                  4F14706 
LK0030 CAL SCRIPL-3,A                                                   4F14707 
       PAX 0,B               S(I) TO XB                                 4F14708 
       TXL LK1610,B,0        EXIT UPON ENCOUNTERING S(0)                4F14709 
       LDQ SCRIPL-2,A        PLACE LAST OP OP S(I) IN MQ                4F14710 
       CLA BETA,B                                                       4F14711 
       STD LK0110                                                       4F14712 
LK0110 TXI LK0120,A,0        MOVE XA TO BEGINNING OF S(I)               4F14713 
LK0120 LXD LK0130,C                                                     4F14714 
LK0130 TXI LK0140,5,0        XA TO XA,XC                                4F14715 
LK0140 SXD AS3600,A                                                     4F14716 
       CLA BETA-1,B                                                     4F14717 
       PDX 0,B               LENGTH OF S(I-1) TO XB                     4F14718 
       SXD LK0180,B                                                     4F14719 
LK0180 TXI LK0190,C,0        MOVE XC TO BEGINNING OF S(I-1)             4F14720 
LK0190 TQP LK1200            S(I) TYPE AC                               4F14721 
       RQL 1                                                            4F14722 
       TQP LK1200            S(I) TYPE AC                               4F14723 
       CAL 12Z               S(I) RESULTS IN MQ (TYPE MQ)               4F14724 
       ORS SCRIPL+1,A        SET OP1 (S(I)) 31 = 1                      4F14725 
       PXD 0,0                                                          4F14726 
       LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MQ                   4F14727 
       LGL 6                                                            4F14728 
       CAS SPECOP                                                       4F14729 
       TRA LK0320                                                       4F14730 
       TRA LK0950                                                       4F14731 
       TRA LK0030            S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0   4F14732 
LK0320 TQP LK0570                                                       4F14733 
       LGL 27                S(I)TYPE MQ, OP1(S(I-1) = **               4F14734 
       CAL SCRIPL,A                                                     4F14735 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14736 
       TQP LK0480            OP1 (S(I-1)) 33 = 0                        4F14737 
       SUB SCRIPL+2,C        OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE.   4F14738 
       TNZ LK0030            SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0    4F14739 
       CAL L(3)              S(I) = SYM1 (S(I-1)), SO                   4F14740 
LK0430 ORS SCRIPL+1,C                                                   4F14741 
LK0440 CAL BIT29                                                        4F14742 
       ORS SCRIPL+1,A                                                   4F14743 
       TRA LK0030            OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE.    4F14744 
LK0480 SUB SCRIPL+5,C                                                   4F14745 
       TNZ LK0030            SET OP1,S(I))29=OP1(S(I-1))35=0            4F14746 
       CAL L(1)              S(I) = SYM2 (S(I-1)), S0                   4F14747 
       ORS SCRIPL+4,C        SET OP2 (S(I-1)) 35 = 1                    4F14748 
       TRA LK0440                                                       4F14749 
LK0570 PXD 0,0               S(I) TYPE MQ, OP1 (S(I-1)) = *             4F14750 
       LDQ SCRIPL+4,C        F1ACE PO2 (S(I-1)) IN MQ                   4F14751 
       LGL 6                 IS OP2 (S(I-1)) = *                        4F14752 
       SUB STAR                                                         4F14753 
       TNZ LK0030            NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754 
       CAL L(2)              YES                                        4F14755 
       ORS SCRIPL+1,C        SET OP1(S(I-1))34=1                        4F14756 
LK0630 CAL SCRIPL,A                                                     4F14757 
       ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14758 
LK0650 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14759 
       CAS SCRIPL-1,A                                                   4F14760 
       TXI LK0700,A,3                                                   4F14761 
       TRA LK0710                                                       4F14762 
       TXI LK0700,A,3        NOT FOUND - CONTINUE SEARCH                4F14763 
LK0700 TXI LK0650,B,-3                                                  4F14764 
LK0710 LDQ SCRIPL-2,A        S(I) IS SYMJ (S(I-1))                      4F14765 
       RQL 1                 IS OPJ (S(I-1)) = *                        4F14766 
       TQP LK0750                                                       4F14767 
       TXI LK0700,A,3        NO... CONTINUE SEARCH                      4F14768 
LK0750 CLA SCRIPL,C          YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1)) 4F14769 
       LDQ SCRIPL-3,A        EXCHANGE                                   4F14770 
       STO SCRIPL-3,A        TAG                                        4F14771 
       STQ SCRIPL,C          WORDS                                      4F14772 
       CAL SCRIPL+1,C        PLACE OP1 (S(I-1)) IN ACC                  4F14773 
       LDQ SCRIPL-2,A        PLACE OPJ (S(I-1)) IN MQ                   4F14774 
       SLW SCRIPL-2,A        EXCHANGE                                   4F14775 
       STQ SCRIPL+1,C        OP                                         4F14776 
       ANA MASK2             WORDS AND                                  4F14777 
       ORS SCRIPL+1,C        SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33     4F14778 
       CLA SCRIPL+2,C        THEN                                       4F14779 
       LDQ SCRIPL-1,A        EXCHANGE                                   4F14780 
       STO SCRIPL-1,A        SYMBOL                                     4F14781 
       STQ SCRIPL+2,C        WORDS                                      4F14782 
       LXD AS3600,A          RESTORE XA                                 4F14783 
LK0900 CAL L(1)              AND                                        4F14784 
       TRA LK0430                                                       4F14785 
LK0950 RQL 27                S(I) TYPE MQ, OP1 (S(I-1)) = SPOP          4F14786 
       CAL SCRIPL,A                                                     4F14787 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14788 
       TQP LK1050            0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE)    4F14789 
       TXH LK0030,B,6        OPEN MULTIV... SET OP1 (S(I)) 29 = 0       4F14790 
       SUB SCRIPL+5,C        OPEN UNIV... IS S(I) = SUM2 (S(I-1))       4F14791 
       TNZ LK0030            NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 04F14792 
       CAL L(3)              AND                                        4F14793 
       ORS SCRIPL+4,C        SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1    4F14794 
       TRA LK0440                                                       4F14795 
LK1050 RQL 15                                                           4F14796 
       TQP LK1100            TEST OP1(S(I-1))12                         4F14797 
       TRA LK0030            FN-NAME                                    4F14798 
LK1100 TXL LK0030,B,6        CLOSED UNIV. SBRTN                         4F14799 
       SUB SCRIPL+8,C        CLOSED MULTIV. SBRTN                       4F14800 
       TNZ LK0030            S(I) NOT = SYM3 (S (I-1))                  4F14801 
       CAL L(1)              S(I) = SYM3 (S(I-1)), S0                   4F14802 
       ORS SCRIPL+7,C        SET OP3 (S(I-1))35 = 1                     4F14803 
       TRA LK0440                                                       4F14804 
LK1200 PXD 0,0               S(I) TYPE AC                               4F14805 
       LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MQ                   4F14806 
       LGL 6                                                            4F14807 
       CAS SPECOP                                                       4F14808 
       TRA LK1340                                                       4F14809 
       TRA LK1470                                                       4F14810 
       CAL SCRIPL,A          S(I) TYPE AC, OP1 (S(I-1)) = + OR -        4F14811 
       ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14812 
LK1280 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14813 
       CAS SCRIPL-1,A                                                   4F14814 
       TXI LK1330,A,3                                                   4F14815 
       TRA LK0750            S(I) = SOME SYMJ (S(I-1))... GO PERMUTE    4F14816 
       TXI LK1330,A,3        NOT FOUND... CONTINUE SEARCH               4F14817 
LK1330 TXI LK1280,B,-3                                                  4F14818 
LK1340 TQP LK1410                                                       4F14819 
       CAL SCRIPL,A          S(I) TYPE AC, OP1 (S(I-1)) = **            4F14820 
       ANA MASK2                                                        4F14821 
       SUB SCRIPL+2,C        IS S(I) = SYM1 (S(I-1))                    4F14822 
       TNZ LK0030            NO                                         4F14823 
       TRA LK0900            YES                                        4F14824 
LK1410 PXD 0,0               S(I) TYPE AC, OP1 (S(I-1)) = *             4F14825 
       LDQ SCRIPL+4,C                                                   4F14826 
       LGL 6                 IS OP2 (S(I-1)) = 1                        4F14827 
       SUB SLASH                                                        4F14828 
       TZE LK0630            YES                                        4F14829 
       CAL L(2)              NO                                         4F14830 
       ORS SCRIPL+1,C        SET OP1 (S(I-1)) 34 = 1                    4F14831 
       TRA LK0000                                                       4F14832 
LK1470 RQL 27                S(I) TYPE AC, OP1 (S(I-1)) = SPOP          4F14833 
       CAL SCRIPL,A                                                     4F14834 
       ANA MASK2             EXTRACT S(I) IN ACC                        4F14835 
       TQP LK1530                                                       4F14836 
       TXH LK0030,B,6        OPEN MULTIV.                               4F14837 
LK1520 TRA LK0480                                                       4F14838 
LK1530 RQL 15                                                           4F14839 
       TQP LK0480                                                       4F14840 
       TRA LK0030            FN-NAME                                    4F14841 
LK1610 LXD BETA,B            IS S(0) A SINGLE ELEMENT                   4F14842 
       PXD 0,0                                                          4F14843 
       LDQ SCRIPL-2,A                                                   4F14844 
       TXH LK1780,B,3        NO                                         4F14845 
       LGL 6                 YES                                        4F14846 
       SUB 11Z               IS OP (S(0)) = + OR -                      4F14847 
       TZE LKK000            OP (S(0)) = -                              4F14848 
       CAL SCRIPL+2          OP (S(0)) = +                              4F14849 
       ANA MASK1             DOES SYM (S(0)) = S(1)                     4F14850 
       TNZ LKK000            NO                                         4F14851 
       CAL SCRIPL+4          YES - PLACE OP1 (S(1)) IN ACC              4F14852 
       ANA 12Z                                                          4F14853 
       TZE LKK000            OP1 (S(1)) 31 = 0                          4F14854 
       ORS SCRIPL+1          SET OP (S(0)) 31 = 1                       4F14855 
       ALS 2                                                            4F14856 
       ORS SCRIPL+4          SET OP1 (S(1)) 29 = 1                      4F14857 
       ARS 6                                                            4F14858 
       TRA LK1820                                                       4F14859 
LK1780 TQP LKK000            S(0) TYPT AC                               4F14860 
       RQL 1                                                            4F14861 
       TQP LKK000            S(0) TYPE AC                               4F14862 
       CAL 12Z               S(0) TYPE MQ, SO                           4F14863 
LK1820 ORS SCRIPL+1                                                     4F14864 
LKK000 LXD 3QBAR,5           -3Q TO XA,XC                               4F14865 
       CAL SCRIPL-3,C                                                   4F14866 
       PAX 0,B                                                          4F14867 
       CLA BETA,B                                                       4F14868 
       STD LKK050                                                       4F14869 
LKK050 TXI LKK060,C,0        BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT  4F14870 
LKK060 PXD 0,0                                                          4F14871 
       LDQ SCRIPL+1,C        PLACE OP1 OF LAST SEGMENT 1N MQ            4F14872 
       LGL 6                                                            4F14873 
       SUB STAR                                                         4F14874 
       TNZ PC0000                                                       4F14875 
       TQP LKK130                                                       4F14876 
       TRA PC0000                                                       4F14877 
LKK130 LDQ SCRIPL+4,C        OP1 OF LAST SEGMENT IS *                   4F14878 
       LGL 2                                                            4F14879 
       LBT                                                              4F14880 
       ORS SCRIPL+1,C        OP2 IS *, SO SET OP1 (S(L)) 34 = 1         4F14881 
PC0000 LXD ARGCTR,C          IS THIS AN FS                              4F14882 
       TXH PC0030,C,0                                                   4F14883 
       TXI PC0040,C,1        NO                                         4F14884 
PC0030 LXA L(0),C            YES                                        4F14885 
PC0040 CAL SCRIPL-3,A                                                   4F14886 
       PAX 0,B                                                          4F14887 
       TXL PC0190,B,0        EXIT AT S(0)                               4F14888 
       CLA BETA,B                                                       4F14889 
       STD PC0100                                                       4F14890 
PC0100 TXI PC0110,A,0                                                   4F14891 
PC0110 LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14892 
       LGL 30                                                           4F14893 
       LBT                                                              4F14894 
PC0140 TXI PC0160,0,300                                                 4F14895 
       TQP PC0040            OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0     4F14896 
PC0160 PXD 0,C               OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1     4F14897 
       STD BETA,B            STORE ERAS. REL. ADD. COUNT IN BETA,       4F14898 
       TXI PC0040,C,1        AND UPDATE FOR NEXT SEGMENT                4F14899 
PC0190 LXD PC0140,B                                                     4F14900 
PC0200 CLA BETA+300,B                                                   4F14901 
       STO CPBETA+300,B                                                 4F14902 
       TIX PC0200,B,1                                                   4F14903 
       TRA STATED            GO FETCH STATE D                           4F14904 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14905 
       REM                                                              4F14906 
       REM DICTIONARY OF OPEN SUBROUTINES FOLLOWS                       4F14907 
OPSUB  OCT 672122626060      XABS                                       4F14908 
       OCT 212262606060      ABS                                        4F14909 
       OCT 673145636060      XINT                                       4F14910 
       OCT 314563606060      INT                                        4F14911 
       OCT 674446246060      XMOD                                       4F14912 
       OCT 444624606060      MOD                                        4F14913 
       OCT 674421670060      XMAX0                                      4F14914 
       OCT 442167016060      MAX1                                       4F14915 
       OCT 674421670160      XMAX1                                      4F14916 
       OCT 442167006060      MAX0                                       4F14917 
       OCT 674431450060      XMIN0                                      4F14918 
       OCT 443145016060      MIN1                                       4F14919 
       OCT 674431450160      XMIN1                                      4F14920 
       OCT 443145006060      MIN0                                       4F14921 
       OCT 264346216360      FLOAT                                      4F14922 
       OCT 672631676060      XFIX                                       4F14923 
       OCT 623127456060      SIGN                                       4F14924 
       OCT 676231274560      XSIGN                                      4F14925 
       OCT 672431446060      XDIM                                       4F14926 
       OCT 243144606060      DIM                                        4F14927 
       BSS 10                                                           4F14928 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929 
STATED BSS 0                                                            4F149295
       REM                                                              4F14930 
       ORG 2596+4096                                                    4F14931 
BETA   BSS 300                                                          4F14932 
       REM  END OF ARITHMETIC / STATE C.                                4F14933 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934 
       REM                                                              4F14935 
       REM ARITHMETIC / STATE D=                                        4F14936 
       ORG STATED                                                       4F14939 
MC00OO LXD 3QBAR,A           MODE CHECKING ROUTINE                      4F14940 
       SXD MC0420,A                                                     4F14941 
       LXA L(0),A                                                       4F14942 
MC0030 SXD XASAVE,A                                                     4F14943 
       CAL SCRIPL,A                                                     4F14944 
MC0050 PAX ,2                S(I) TO XB                                 4F14945 
       CLA CPBETA,B                                                     4F14946 
MC0070 PAX TAU2,B                                                       4F14947 
       SXD MC0410,B                                                     4F14946 
       SXD MC0460,B                                                     4F14949 
       TXH MC0410,B,-6       SINGLE ELEMENT - GO ONTO S(I+1)            4F14950 
       SLF                   TURN OFF ALL SENSE LITES                   4F14951 
       PXD 0,0               CLEAR ACC                                  4F14952 
       LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14953 
       LGL 6                                                            4F14954 
       CAS SPECOP                                                       4F14955 
       TQP MC0180                                                       4F14956 
XASAVE TXI MC0410,0,0                                                   4F14957 
MC0180 LGL 26                OP1 (S(I)) = +, - OR *                     4F14958 
       TQP MC0210            FIX PT                                     4F14959 
       SLN 1                 FLO PT                                     4F14960 
MC0210 PXD 0,0                                                          4F14961 
       LDQ SCRIPL+2,A        PLACE SYMJ (S(I)) IN MQ - J = 1....        4F14962 
       LGL 1                                                            4F14963 
       LBT                                                              4F14964 
       TQP MC0440                                                       4F14965 
       LGL 5                 SYMJ (S(I)) IS A VARIABLE                  4F14966 
       CAS L(H)                                                         4F14967 
       CAS L(O)                                                         4F14968 
XBSAVE TXI MC0340,0,0        FLO PT                                     4F14969 
       TRA MC0340            FLO PT                                     4F14970 
MC0310 SLT 1                 SYMJ (S(I)) IS A FIX PT VARIABLE           4F14971 
       TXI MC0380,B,3        OK                                         4F14972 
       TSX DIAG,4            ERROR.. FLO PT LITE ON                     4F14973 
MC0340 SLT 1                 SYMJ(S(I)) IS A FLO PT VARIABLE            4F14974 
       TSX DIAG,4            ERROR.. FLO PT LITE OFF                    4F14975 
       SLN 1                 RESTORE FLO PT LITE                        4F14976 
       TXI MC0380,B,3                                                   4F14977 
MC0380 TXL MC0400,B,0        FINISHED WITH S(I)                         4F14978 
       TXI MC0210,A,-3       CONTINUE SCANNING S(I). J TO J+1           4F14979 
MC0400 LXD XASAVE,A          GO T0 S(I+1)                               4F14980 
MC0410 TXI MC0420,A,0                                                   4F14981 
MC0420 TXH MC0030,A,0                                                   4F14982 
       TRA CP0000            EXIT TO COMPILER                           4F14983 
MC0440 SXD XBSAVE,B          SYMJ (S(ITT = SAME S(K)                    4F14984 
       LXD XASAVE,C                                                     4F14985 
MC0460 TXI MC0470,C,0        MOVE XC TO 1ST ELEMENT OF S(I+1)           4F14986 
MC0470 CAL SCRIPL,C                                                     4F14987 
       ANA MASK2             EXTRACT S(K) IN ACC                        4F14988 
       CAS SCRIPL+2,A        AND COMPARE WITH SYMJ (S(I))               4F14989 
       TRA MC0520                                                       4F14990 
       TRA MC0570                                                       4F14991 
MC0520 PAX SIGMA1,B          S(K) TO XB                                 4F14992 
       CLA CPBETA,B                                                     4F14993 
MC0540 PAX TAU1,B                                                       4F14994 
       SXD MC0560,B                                                     4F14995 
MC0560 TXI MC0470,C,0                                                   4F14996 
MC0570 LXD XBSAVE,B          SYMJ (S(I)) = S(K) FOR SOME K              4F14997 
       CAL SCRIPL+1,C        PLACE OP1 (S(K)) IN ACC                    4F14998 
       ARS 3                                                            4F14999 
       LBT                                                              4F15000 
       TRA MC0310            S(K) IS FIX PT                             4F15001 
       TRA MC0340            S(K) IS FL0 PT                             4F15002 
       REM                                                              4F15003 
CP0000 SLF                   TURN OFF ALL SENSE LITES                   4F15004 
       STZ FNSW                                                         4F15005 
       LXD ARGCTR,C          IS THIS AN FS STATEMENT                    4F15006 
       TXL CP0090,C,0        NO                                         4F15007 
       TSX CIT00,C           YES - COMPILE FOUR 36 - BIT                4F15008 
       HTR ALL1              STRINGS IN 1 AS A PRELUDE TO               4F15009 
       HTR ALL1              FS STATEMENT COMPILATION                   4F15010 
       HTR ALL1                                                         4F15011 
       HTR ALL1                                                         4F15012 
CP0090 CAL EIFNO                                                        4F15013 
       ANA MASK1                                                        4F15014 
       SLW CW                STO INT. FORM. NO. IN DEC. FIELD 0F CW.    4F15015 
       LXD 3QBAR,A           -3Q TO XA                                  4F15016 
CP0130 CLA SCRIPL-3,A        EXTRACT CURRENT S(II                       4F15017 
CP0140 PAX ,2                                                           4F15018 
       CLA CPBETA,B                                                     4F15019 
       STD PHI(I)            STO ERAS. REL. ADD. IN PHI (I)             4F15020 
       ANA MASK2                                                        4F15021 
CP0180 PAX TAU3,B                                                       4F15022 
       SXD CP0400,B                                                     4F15023 
       COM                                                              4F15024 
       ADD L(1)                                                         4F15025 
       ALS 18                                                           4F15026 
       STD CP0240                                                       4F15027 
CP0240 TXI CP0250,A,0        MOVE XA TO 1ST ELEMENT OF CURRENT S(I)     4F15028 
CP0250 SXD 3QBAR,A                                                      4F15029 
       LDQ SCRIPL+1,A        EXAMINE OP1 (S(I)I 29,30,31,32             4F15030 
       LGL 30                                                           4F15031 
       LBT                                                              4F15032 
       TRA CP0310            OP1 (S(I)) 29 = 0                          4F15033 
       TQP CP0370            OP1 (S(I)) 30 = 0                          4F15034 
CP0310 SLN 1                 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035 
       RQL 1                 SET STORE LITE                             4F15036 
       TQP CP0350            OP1 (S(I)) 31 = 0, SO SET STO LITE         4F15037 
       SLN 2                 OP1 (S(I)) 31 = 1, SO SET STQ LITE         4F15038 
CP0350 RQL 1                                                            4F15039 
       TRA CP0380                                                       4F15040 
CP0370 RQL 2                                                            4F15041 
CP0380 TQP CP0420            TEST OP1 (S(I)) 32                         4F15042 
       SLT 4                 OP1 (S(I)) 32 = 1, SO SET FLPTSW           4F15043 
CP0400 TXH 0,0,0                                                        4F15044 
       TRA CP0430                                                       4F15045 
CP0420 SLN 4                 OP1 (S(II) 32 = 0, SO SET FXPTSW           4F15046 
CP0430 PXD 0,0                                                          4F15047 
       LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F15048 
       LGL 6                                                            4F15049 
       CAS SPECOP                                                       4F15050 
       TXI CP0960,0,0                                                   4F15051 
       TXI CP2040,A,-3                                                  4F15052 
       SUB 11Z                                                          4F15053 
       TZE CP0760                                                       4F15054 
       LGL 29                OP1 (S(I)) = +                             4F15055 
       TQP CP1130            OP1 (S(I)) 35 = 0                          4F15056 
CP0540 LXD CP0400,B          OP1 (S(I)) 35 = 1                          4F15057 
       TXI CP0560,B,3                                                   4F15058 
CP0560 TXL ES0000,B,0        GO TO END-OF-SEGMENT SBRTN                 4F15059 
       SXD CP0400,B                                                     4F15060 
       TXI CP0590,A,-3                                                  4F15061 
CP0590 PXD 0,0                                                          4F15062 
       LDQ SCRIPL+1,A        PLACE OPJ (S(I)) IN MQ                     4F15063 
       LGL 6                                                            4F15064 
       CAS STAR                                                         4F15065 
       TRA CP1200            OPJ (S(I)) = /                             4F15066 
       TRA CP1720            OPJ (S(I)) = *                             4F15067 
       SUB 11Z                                                          4F15068 
       TZE CP0880            OPJ (S(I)) = -                             4F15069 
       CAL L(FAD)            OPJ (S(I)) = +                             4F15070 
       SLT 4                                                            4F15071 
       TRA CP0740                                                       4F15072 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15073 
       CAL L(ADD)                                                       4F15074 
CP0740 SLW CW+1                                                         4F15075 
       TRA CP1690                                                       4F15076 
CP0760 LGL 29                OP1 (S(I)) = -                             4F15077 
       TQP CP0850                                                       4F15078 
       CAL L(CHS)            C81 (SI))) 35 = 1, SO                      4F15079 
       SLW CW+1              COMPILE CHS FOR 1ST ELEMENT                4F15080 
       STZ CW+2                                                         4F15081 
       STZ CW+3                                                         4F15082 
       TSX COMP,B                                                       4F15083 
       TRA CP0540                                                       4F15084 
CP0850 CAL L(CLS)            OP1 (S(I)) 35 = 0, S0                      4F15085 
       SLW CW+1              COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT    4F15086 
       TRA CP1150                                                       4F15087 
CP0880 CAL L(FSB)            OPJ (SII)I = -                             4F15088 
       SLT 4                                                            4F15089 
       TRA CP0940                                                       4F15090 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15091 
       CAL L(SUB)                                                       4F15092 
CP0940 SLW CW+1                                                         4F15093 
       TRA CP1690                                                       4F15094 
CP0960 TQP CP0980                                                       4F15095 
       TRA CP4140                                                       4F15096 
CP0980 LGL 29                OP1 (S(I)) = *                             4F15097 
       SLN 3                 TURN LITE 3 ON                             4F15098 
       LBT                   TEST OP1 (S(I)) 34                         4F15099 
       TRA CP1050            OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON      4F15100 
       SLT 3                 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF      4F15101 
       TXH 0,0,0                                                        4F15102 
CP1050 TQP CP1070                                                       4F15103 
       TRA CP0540            OP1 (S(I)) 35 = 1, SO GO MODIFY J          4F15104 
CP1070 CAL L(LDQ)            OP1 (S(I)) 35 = 0                          4F15105 
       SLT 3                                                            4F15106 
       TRA CP1140            EL1 (S(I)) TO MQ                           4F15107 
       SLN 3                 EL1 (S(I)) TO ACC                          4F15108 
CP1130 CAL L(CLA)                                                       4F15109 
CP1140 SLW CW+1                                                         4F15110 
CP1150 TSX AC0000,C          ADDRESS COMPILE SYM1 (S(I))                4F15111 
       TSX COMP,B                                                       4F15112 
       STZ CW                RESET CW                                   4F15113 
       TRA CP0540            GO MODIFY J                                4F15114 
CP1200 SLT 3                 OPJ (S(I)) = /                             4F15115 
       TRA CP1330                                                       4F15116 
       SLT 4                 PREDECESSOR IN ACC                         4F15117 
       TRA CP1670            FLO PT.                                    4F15118 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15119 
       TSX CIT00,C           COMPILE LRS 35                             4F15120 
       HTR L(0)                                                         4F15121 
       HTR L(LRS)                                                       4F15122 
       HTR L(0)                                                         4F15123 
       HTR DEC35                                                        4F15124 
       TRA CP1450                                                       4F15125 
CP1330 SLT 4                 PREDECESSOR IN MQ                          4F15126 
       TRA CP1570            AND SEGMENT IS                             4F15127 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15128 
CP1450 CLA L(DVP)                                                       4F15129 
       STO CW+1                                                         4F15130 
       TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15131 
       TSX COMP,B            COMPILE DVP SYMJ (S(I))                    4F15132 
       TSX CIT00,C           COMPILE CLM                                4F15133 
       HTR L(0)                                                         4F15134 
       HTR L(CLM)                                                       4F15135 
       HTR L(0)                                                         4F15136 
       HTR L(0)                                                         4F15137 
       TSX CIT00,C           COMPILE LLS 18                             4F15138 
       HTR L(0)                                                         4F15139 
       HTR L(LLS)                                                       4F15140 
       HTR L(0)                                                         4F15141 
       HTR DEC18                                                        4F15142 
       TRA CP0540            GO MODIFY J                                4F15143 
CP1570 CLA L(STQ)            PREDECESSOR IN MQ                          4F15144 
       STO CW+1              AND SEGMENT IS FLO PT                      4F15145 
       CLA X(                                                           4F15146 
       STO CW+2                                                         4F15147 
       STZ CW+3                                                         4F15148 
       TSX COMP,B            COMPILE STQ 700000                         4F15149 
       CLA L(CLA)                                                       4F15150 
       STO CW+1                                                         4F15151 
       TSX COMP,B            COMPILE CLA 700000                         4F15152 
CP1670 CLA LIFDP)                                                       4F15153 
       STO CW+1              COMPILE FDP SYMJ (S(I))                    4F15154 
CP1690 TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15155 
       TSX COMP,B                                                       4F15156 
       TRA CP0540            GO MODIFY J                                4F15157 
CP1720 SLT 3                 OPJ(S(I))=*                                4F15158 
       TRA CP1840                                                       4F15159 
       CLA L(STO)            PREDECESSOR IN ACC                         4F15160 
       STO CW+1                                                         4F15161 
       CLA X(                                                           4F15162 
       STO CW+2                                                         4F15163 
       STZ CW+3                                                         4F15164 
       TSX COMP,B            COMPILE STO 700000                         4F15165 
       CLA L(LDQ)                                                       4F15166 
       STO CW+1                                                         4F15167 
       TSX COMP,B            COMPILE LDQ 700000                         4F15168 
CP1840 SLN 3                 TURN LATE 3 ON                             4F15169 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I))                 4F15170 
       SLT 4                                                            4F15171 
       TRA CP2000                                                       4F15172 
       SLN 4                 FIX PT. RESTORE FXPTSW                     4F15173 
       CLA L(MPY)                                                       4F15174 
       STO CW+1                                                         4F15175 
       TSX COMP,B            COMPILE MPY SYMJ(S(I))                     4F15176 
       TSX CIT00,C           COMPILE ALS 17                             4F15177 
       HTR L(0)                                                         4F15178 
       HTR L(ALS)                                                       4F15179 
       HTR L(0)                                                         4F15180 
       HTR DEC17                                                        4F15181 
       TRA CP0540            GO MODIFY J                                4F15182 
CP2000 CLA L(FMP)            FLO PT.                                    4F15183 
       STO CW+1                                                         4F15184 
       TSX COMP,B            COMPILE FMP SYMJ(S(I))                     4F15185 
       TRA CP0540            GO MODIFY J.                               4F15186 
CP2040 LGL 7                 OP1(S(I))=SPOP                             4F15187 
       LBT                   TEST OP1(S(I))12                           4F15188 
       TQP CP2650            LIB OR OPEN FUNCTION                       4F15189 
       TQP CP5000            FN-FUNCTION                                4F15190 
       PXD 0,0               FS-FUNCTION                                4F15191 
       LLS 15                PUT TYPE NO IN ADD(ACC)                    4F15192 
       ORA P(                FORM 4...TYPE NO.                          4F15193 
       SLW ARGORG            AND STO IN ARGORG                          4F15194 
       ANA MASK2                                                        4F15195 
       ORA X(                FORM 7...TYPE NO.                          4F15196 
       SLW XRSAVE            AND STO IN XRSAVE                          4F15197 
       CLA SCRIPL+1,A                                                   4F15198 
       LBT                   EXAMINE OP2(S(I))35                        4F15199 
       TRA CP2150            1ST ARG STORED                             4F15200 
CP2100 TSX CIT00,C           1ST ARG IN ACC                             4F15201 
       HTR L(0)              COMPILE STO 4...TYPE NO. + 0               4F15202 
       HTR L(STO)                                                       4F15203 
       HTR ARGORG                                                       4F15204 
       HTR L(0)                                                         4F15205 
       TXI CP2200,A,-3       GO ON TO OP3(S(I))                         4F15206 
CP2150 CAL L(CLA)                                                       4F15207 
       SLW CW+1                                                         4F15208 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15209 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15210 
       TRA CP2100                                                       4F15211 
CP2200 STZ CW                RESET CW                                   4F15212 
       LXD CP0400,B                                                     4F15213 
       TXI CP2230,B,3                                                   4F15214 
CP2230 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15215 
       SXD CP0400,B                                                     4F15216 
       CLA SCRIPL+1,A                                                   4F15217 
       LBT                   EXAMINE OP3(S(I))35                        4F15218 
       TRA CP2300            2ND ARG STORED                             4F15219 
CP2250 TSX CIT00,C           2ND ARG IN MQ                              4F15220 
       HTR L(0)              COMPILE STQ 4...TYPE NO. + 1               4F15221 
       HTR L(STQ)                                                       4F15222 
       HTR ARGORG                                                       4F15223 
       HTR 2E18                                                         4F15224 
       TXI CP2350,A,-3       GO ON TO SYM4(S(I))                        4F15225 
CP2300 CAL L(LDQ)                                                       4F15226 
       SLW CW+1                                                         4F15227 
       TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15228 
       TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15229 
       TRA CP2250                                                       4F15230 
CP2350 CLA DECMI2            INITIALIZE DEC(P(CNTR) TO 2                4F15231 
       SLW P(CNTR                                                       4F15232 
CP2370 LXD CP0400,B                                                     4F15233 
       TXI CP2390,B,3                                                   4F15234 
CP2390 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15235 
       SXD CP0400,B                                                     4F15236 
       CAL L(CLA)                                                       4F15237 
       SLW CW+1                                                         4F15238 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)), J=4,...        4F15239 
       TSX COMP,B            COMPILE CLA SYMJ(S(I)), J=4,...            4F15240 
       TSX CIT00,C           COMPILE STO 4...TYPE NO. + J-2, J=4,...    4F15241 
       HTR L(0)                                                         4F15242 
       HTR L(STO)                                                       4F15243 
       HTR ARGORG                                                       4F15244 
       HTR P(CNTR                                                       4F15245 
       CLA P(CNTR            UPDATE P(CNTR                              4F15246 
       ADD 2E18                                                         4F15247 
       STO P(CNTR                                                       4F15248 
       TXI CP2370,A,-3                                                  4F15249 
CP2500 LXD 3QBAR,A           FINISHED WITH S(I)                         4F15250 
       CAL L(SXD)                                                       4F15251 
       SLW CW+1                                                         4F15252 
       CAL XRSAVE                                                       4F15253 
       SLW CW+2                                                         4F15254 
       CAL L(4)                                                         4F15255 
       SLW CW+3                                                         4F15256 
       TSX COMP,B            COMPILE SXD 7...TYPE NO. , 4               4F15257 
       CAL L(TSX)                                                       4F15258 
       SLW CW+1                                                         4F15259 
       CAL SCRIPL+2,A                                                   4F15260 
       SLW CW+2                                                         4F15261 
       TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15262 
       CAL L(LXD) ,                                                     4F15263 
       SLW CW+1                                                         4F15264 
       CAL XRSAVE                                                       4F15265 
       SLW CW+2                                                         4F15266 
       TRA CP6000                                                       4F15267 
CP5830 TXI ES0000,0,0                                                   4F15268 
       REM                                                              4F15269 
CP2650 LGL 20                TEST OPI(S(I))33                           4F15270 
       TQP CP3060            0... LIB. SBRTN                            4F15271 
       CLS CW                1... OPEN SBRTN                            4F15272 
       STO CW                CW TO -CW                                  4F15273 
       CLA SCRIPL-1,A                                                   4F15274 
       STO CW+2                                                         4F15275 
       TSX COMP,B            COMPILE FUNCTION NAME                      4F15276 
       STZ CW                RESET CW                                   4F15277 
       LXD CP0400,B                                                     4F15278 
       TXL CP2930,B,-9                                                  4F15279 
       CAL ALL1              OPEN UNIVARIATE FUNCTION                   4F15280 
       SLW CW                                                           4F15281 
       CLA SCRIPL+1,A                                                   4F15282 
       LBT                   EXAMINE OP2(S(I))35                        4F15283 
       TRA CP2900            0... ARG STORED                            4F15284 
       ARS 1                 1... ARG NOT STORED                        4F15285 
       LDQ ADPLUS                                                       4F15286 
       LBT                                                              4F15287 
       TRA CP2860                                                       4F15288 
       LDQ ADSTAR                                                       4F15289 
CP2860 STQ CW+2                                                         4F15290 
       STZ CW+3                                                         4F15291 
CP2880 TSX COMP,B            COMPILE ACC OR MQ INDICATOR                4F15292 
       STZ CW                RESET CW                                   4F15293 
       TRA ES0000                                                       4F15294 
CP2900 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15295 
       TRA CP2880            GO COMPILE SYM2(S(I))                      4F15296 
CP2930 TSX AC0000,C          OPEN MULTIVARIATE FUNCTION                 4F15297 
       LXD CP0400,B                                                     4F15298 
       TXI CP2960,B,3                                                   4F15299 
CP2960 TXH CP3000,B,-6                                                  4F15300 
       SXD CP0400,B                                                     4F15301 
       TSX COMP,B            COMPILE SYMJ(S(I))                         4F15302 
       TXI CP2930,A,-3                                                  4F15303 
CP3000 CAL ALL1                                                         4F15304 
       SLW CW                                                           4F15305 
       TSX COMP,B            COMPILE LAST ARGUMENT NAME                 4F15306 
       STZ CW                RESET CW                                   4F15307 
       TRA ES0000            GO TO END-OF-SEGMENT SBRTN                 4F15308 
CP3060 TXL CP3350,B,-9                                                  4F15309 
       CLA SCRIPL+1,A        CLOSED UNIVARIATE FUNCTION                 4F15310 
       LBT                   EXAMINE OP2(S(I))35                        4F15311 
       TRA CP3280            0... ARG STORED                            4F15312 
CP3100 CLA L(SXD)            1... ARG IN ACC                            4F15313 
       STO CW+1                                                         4F15314 
       CLA X(                                                           4F15315 
       STO CW+2                                                         4F15316 
       CLA L(4)                                                         4F15317 
       STO CW+3                                                         4F15318 
       TSX COMP,B            COMPILE SXD7...0,4                         4F15319 
       CLA L(TSX)                                                       4F15320 
       STO CW+1                                                         4F15321 
       CLA SCRIPL-1,A                                                   4F15322 
       STO CW+2                                                         4F15323 
       TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15324 
       TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15325 
CP3280 CLA L(CLA)                                                       4F15331 
       STO CW+1                                                         4F15332 
       TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15333 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15334 
       STZ CW                RESET CW                                   4F15335 
       TRA CP3100            GO COMPILE SXD,TSX,LXD SEQUENCE            4F15336 
CP3350 TXL CP3560,B,-12                                                 4F15337 
       CLA SCRIPL+1,A        CLOSED BIVARIATE FUNCTION                  4F15338 
       LBT                   EXAMINE OP2(S(I))35                        4F15339 
       TRA CP3450            0... ARG1 STORED                           4F15340 
CP3390 CLA L(LDQ)            1... ARG1 IN ACC                           4F15341 
       STO CW+1                                                         4F15342 
       TXI CP3420,A,-3                                                  4F15343 
CP3420 TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15344 
       TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15345 
       TXI CP3100,A,3        GO COMPILE SXD,TSX,LXD SEQUENCE            4F15346 
CP3450 CLA SCRIPL+4,A                                                   4F15347 
       LBT                   EXAMINE OP3(S(I))35                        4F15348 
       TRA CP3490            0... ARG2 STORED                           4F15349 
       TRA CP3280            1... ARG2 IN MQ                            4F15350 
CP3490 CLA L(CLA)                                                       4F15351 
       STO CW+1                                                         4F15352 
       TSX AC0000,C          ADDRESS COMPILE SYM2(SI)))                 4F15353 
       TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15354 
       STZ CW                REST CW                                    4F15355 
       TRA CP3390            GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE        4F15356 
CP3560 CLA SCRIPL+1,A        CLOSED MULTIVARIATE FUNCTION               4F15357 
       LBT                   EXAMINE OP2(S(I))35                        4F15358 
       TXI CP3820,A,-6       0... ARG1 STORED                           4F15359 
       TXI CP3600,A,-6       1... ARG1 IN ACC                           4F15360 
CP3600 CLA DECMI2                                                       4F15361 
       STO P(CNTR            INITIALIZE P(CNTR TO -2                    4F15362 
CP3620 CLA L(LDQ)                                                       4F15363 
       STO CW+1                                                         4F15364 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15365 
       TSX COMP,B            COMPILE LDQ SYMJ(S(I))                     4F15366 
       CLA L(STQ)                                                       4F15367 
       STO CW+1                                                         4F15368 
       CLA P(                                                           4F15369 
       STO CW+2                                                         4F15370 
       CLA P(CNTR                                                       4F15371 
       STO CW+3                                                         4F15372 
       SUB 2E18                                                         4F15373 
       STO P(CNTR                                                       4F15374 
       TSX COMP,B            COMPILE STQ 4...0-(J-2)                    4F15375 
       LXD CP0400,B                                                     4F15376 
       TXI CP3770,B,3                                                   4F15377 
CP3770 TXL CP3800,B,-12                                                 4F15378 
       LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15379 
       TXI CP3390,A,-3                                                  4F15380 
CP3800 SXD CP0400,B                                                     4F15381 
       TXI CP3620,A,-3       GO PICK UP NEXT ARG.                       4F15382 
CP3820 CLA SCRIPL-2,A                                                   4F15383 
       LBT                   EXAMINE OP3(S(I))35                        4F15384 
       TXI CP4070,A,6        0... ARG2 STORED                           4F15385 
       CLA DECMI2            1... ARG2 IN MQ                            4F15386 
       STO P(CNTR                                                       4F15387 
CP3870 CLA L(CLA)                                                       4F15388 
       STO CW+1                                                         4F15389 
       TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15390 
       TSX COMP,B            COMPILE CLA SYMJ(S(I))                     4F15391 
       CLA L(STO)                                                       4F15392 
       STO CW+1                                                         4F15393 
       CLA P(                                                           4F15394 
       STO CW+2                                                         4F15395 
       CLA P(CNTR                                                       4F15396 
       STO CW+3                                                         4F15397 
       SUB 2E18                                                         4F15398 
       STO P(CNTR                                                       4F15399 
       TSX COMP,B            COMPILE STO 4...0-(J-2)                    4F15400 
       LXD CP0400,B                                                     4F15401 
       TXI CP4020,B,3                                                   4F15402 
CP4020 TXL CP4050,B,-12                                                 4F15403 
       LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15404 
       TXI CP3280,A,-3                                                  4F15405 
CP4050 SXD CP0400,B                                                     4F15406 
       TXI CP3870,A,-3       GO PICK UP NEXT ARG                        4F15407 
CP4070 CLA L(CLA)                                                       4F15408 
       STO CW+1                                                         4F15409 
       TSX AC0000,C          ASDRESS COMPILE SYM2(S(I))                 4F15410 
       TSX COMP,B            COMPILE CLASYM2(S(I))                      4F15411 
       STZ CW                RESET CW                                   4F15412 
       TXI CP3600,A,-6                                                  4F15413 
CP4140 LGL 27                OP1(S(I))=**                               4F15414 
       TQP CP4410            CLOSED SBRTN SINCE OP1(S(I))33=0           4F15415 
       LBT                   OPEN SBRTN SINCE OP1(S(I))33=1             4F15416 
       TRA CP4200            BASE FIX PT SINCE OP1(S(I))32=0            4F15417 
       CLA STRSTR            BASE FLO PT SINCE OP1(S(II)I32=1           4F15418 
       TRA CP4210                                                       4F15419 
CP4200 CLA ADSTAR                                                       4F15420 
CP4210 STO CW+1                                                         4F15421 
       LGL 2                 EXAMINE OP1(S(I))35                        4F15422 
       TQP CP4310            0... BASE STORED                           4F15423 
       LDQ ADSTAR            1... BASE NOT STORED                       4F15424 
       LBT                   EXAMINE OP1(S(I))34                        4F15425 
       LDQ ADPLUS            0... BASE IN ACC                           4F15426 
       STQ CW+2              1...BASE IN MQ                             4F15427 
       STZ CW+3                                                         4F15428 
       TRA CP4320                                                       4F15429 
CP4310 TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15430 
CP4320 CLS CW                                                           4F15431 
       STO CW                CW TO -CW                                  4F15432 
       TSX COMP,B            COMPILE BASE                               4F15433 
       STZ CW                RESET CW                                   4F15434 
       CLA SCRIPL+5,A                                                   4F15435 
       STO CW+2                                                         4F15436 
       TSX COMP,B            COMPILE FIX PT CONSTANT EXPONENT           4F15437 
       STZ CW+1              RESET CW+1                                 4F15438 
       TRA ES0000                                                       4F15439 
CP4410 LGL 3                 CLOSED EXP. SBRTN                          4F15440 
       LBT                   EXAMINE OP1(S(I))35                        4F15441 
       TRA CP4860            0... BASE STORED                           4F15442 
CP4440 CLA L(LDQ)            1... BASE IN ACC.                          4F15443 
       STO CW+1                                                         4F15444 
       TXI CP4470,A,-3                                                  4F15445 
CP4470 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15446 
       TSX COMP,B            COMPILE LDQ SYM2 (S(I))                    4F15447 
CP4490 CLA L(SXD)                                                       4F15448 
       STO CW+1                                                         4F15449 
       CLA X(                                                           4F15450 
       STO CW+2                                                         4F15451 
       CLA L(4)                                                         4F15452 
       STO CW+3                                                         4F15453 
       TSX COMP,B            COMPILE SXD 7...0,4                        4F15454 
       CLA L(TSX)                                                       4F15455 
       STO CW+1                                                         4F15456 
       CLA SCRIPL+1,A                                                   4F15457 
       ARS 3                                                            4F15458 
       LBT                   EXAMINE OP2(S(I))32                        4F15459 
       TXI CP4660,A,3        0...                                       4F15460 
       CLA FLFL              1... FLO**FLO                              4F15461 
       LDQ SCRIPL-2,A        EXAMINE OP1(S(I))32 TO CHECK               4F15462 
       RQL 32                FOR MIXED EXPONENTIAL EXPRESSION           4F15463 
       TQP MC0310+2          ERROR FIX PT BASE, FLOAT EXP.              4F15464 
       TRA CP4730                                                       4F15465 
CP4660 LDQ SCRIPL+1,A                                                   4F15466 
       RQL 32                EXAMINE OP1(SI)))32                        4F15467 
       CLA FXFX                                                         4F15468 
       TQP CP4730            0...FX**FX                                 4F15469 
       CLA FLFX              1... FL**FX                                4F15470 
CP4730 STO CW+2                                                         4F15471 
       STO G                                                            4F15472 
       TSX COMP,B            COMPILE TSX FXFX/FLEX/FLFL,4               4F15473 
       TSX TET00,A                                                      4F15474 
       HTR 9                                                            4F15475 
       TRA CP5780            COMPILE FL0W TRACE INFO AND LXD 7(,4       4F15476 
CP4860 CLA L(CLA)                                                       4F15482 
       STO CW+1                                                         4F15483 
       TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15484 
       TSX COMP,B            COMPILE CLA SYM1(S(I))                     4F15485 
       STZ CW                                                           4F15486 
       CLA SCRIPL+4,A                                                   4F15487 
       LBT                   EXAMINE OP2(S(I))35                        4F15488 
       TXI CP4440,0,0        0...EXP STORED                             4F15489 
       TXI CP4490,A,-3       1... EXP IN MQ                             4F15490 
       REM                                                              4F15491 
CP5000 CLA EIFNO             FN FUNCTI0N                                4F15492 
       ADD 2E18              UPDATE EIFNO                               4F15493 
       STO EIFNO             AND                                        4F15494 
       STO FNSW              SET FN SWITCH                              4F15495 
       STD 1C                KEEP 1C UPDATED FOR PENDING TIFGO ENTRY.   4F15496 
       LXA L(1),C            INITIALIZE STAIX T0 1                      4F15497 
CP5050 CLA SCRIPL,A          EXAMINE TAGJ(S(I)), J=2,...                4F15498 
       TMI CP5180            NONSUBSCRIPTED                             4F15499 
       SXD CP5830,B          SOBSCRIPTED-IS THERE A GENERAL TAG         4F15500 
       SXD STACTR,C                                                     4F15501 
       TSX AC0000,C                                                     4F15502 
       CAL TAGPRT                                                       4F15503 
       TNZ CP5220            GENERAL TAG PRESENT                        4F15504 
       CAL CW+3              NO GENERAL TAG PRESENT,SO PLACE            4F15505 
       ARS 11                RELATIVE ADDRESS IN OPJ(S(II)14-28 AND     4F15506 
       ORA NGTBIT            SET OPJ(S(I))10=1 FROM NGTBIT              4F15507 
       ORS SCRIPL+1,A                                                   4F15508 
CP5160 LXD STACTR,C                                                     4F15509 
       LXD CP5830,B                                                     4F15510 
CP5180 TXI CP5190,B,3                                                   4F15511 
CP5190 TXH CP5460,B,-6       FINISHED WITH PRELUDE,IF ANY               4F15512 
       TXI CP5210,C,1        NOT FINISHED-STAIX=STAIX+1                 4F15513 
CP5210 TXI CP5050,A,-3       GO ON TO NEXT ARGUMENT                     4F15513 
CP5220 CAL L(PXD)                                                       4F15515 
       SLW CW+1                                                         4F15516 
       TSX COMP,B            COMPILE PXD SYMJ(S(I)), TAGJ(S(I))         4F15517 
       STZ CW                RESET CW                                   4F15518 
       TSX CIT00,C           COMPILE ARS 18                             4F15519 
       HTR L(0)                                                         4F15520 
       HTR L(ARS)                                                       4F15521 
       HTR L(0)                                                         4F15522 
       HTR DEC18                                                        4F15523 
       TSX CIT00,C           COMPILE ADD *-2                            4F15524 
       HTR L(0)                                                         4F15525 
       HTR L(ADD)                                                       4F15526 
       HTR PROCTR                                                       4F15527 
       HTR DECMI2                                                       4F15528 
       CAL L(STA)                                                       4F15529 
       SLW CW+1                                                         4F15530 
       CAL EIFNO                                                        4F15531 
       ANA MASK1                                                        4F15532 
       SLW CW+2                                                         4F15533 
       LXD STACTR,C                                                     4F15534 
       PXD 0,C                                                          4F15535 
       SLW CW+3                                                         4F15536 
       TSX COMP,B            COMPILE STA IFN+STAIX                      4F15537 
       TXI CP5160,0,0        GO ON TO NEXT ARGUMENT,IF ANY              4F15538 
CP5460 LXD 3QBAR,A                                                      4F15539 
       CAL L(SXD)                                                       4F15540 
       SLW CW+1                                                         4F15541 
       CAL X(                                                           4F15542 
       SLW CW+2                                                         4F15543 
       CAL L(4)                                                         4F15544 
       SLW CW+3                                                         4F15545 
       TSX COMP,B            COMPILE SXD 7,4                            4F15546 
       CAL EIFNO                                                        4F15547 
       ANA MASK1                                                        4F15548 
       SLW CW                                                           4F15549 
       CAL L(TSX)                                                       4F15550 
       SLW CW+1                                                         4F15551 
       CAL SCRIPL+2,A                                                   4F15552 
       SLW CW+2                                                         4F15553 
       TSX COMP,B            COMPILE TSX SYM1(S(I)),4                   4F15554 
       STZ CW                RESET CW                                   4F15555 
       TXI CP5680,A,-3       POSITION XA TO SYM2(S(I))                  4F15556 
CP5680 CLA SCRIPL,A                                                     4F15557 
       TPL CP5700                                                       4F15558 
       TSX AC0000,C          NONSUBSCRIPTED                             4F15559 
STACTR TXI CP5720,0,0                                                   4F15560 
CP5700 LDQ SCRIPL+1,A        SUBSCRIPTED                                4F15561 
       LGL 11                                                           4F15562 
       LBT                                                              4F15563 
       LDQ L(0)              GENERAL TAG PRESENT                        4F15564 
       STQ CW+3              NO GENERAL TAG PRESENT                     4F15565 
       CAL SCRIPL+2,A                                                   4F15566 
       SLW CW+2                                                         4F15567 
CP5720 TSX COMP,B            COMPILE TSX SYMJ(S(I)) , J=2,...           4F15568 
       LXD CP0400,B                                                     4F15569 
       TXI CP5750,B,3                                                   4F15570 
CP5750 TXH CP5780,B,-6       FINISHED SCANNING                          4F15571 
       SXD CP0400,B                                                     4F15572 
       TXI CP5680,A,-3                                                  4F15573 
CP5780 TSX FLTR00,4          COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15574 
       HTR L(0)                                                         4F15575 
       HTR L(LXD)                                                       4F15576 
       HTR X(                                                           4F15577 
       HTR L(4)                                                         4F15578 
ES0000 LXD 3QBAR,A           -3Q TO XA                                  4F15579 
       SLT 1                                                            4F15580 
       TRA CP0130            GO TO NEXT SEGMENT                         4F15581 
       CAL SCRIPL,A                                                     4F15582 
       ANA MASK2                                                        4F15583 
       TZE ES0160                                                       4F15584 
       CLA ARERAS            S(I) NOT = S(0)                            4F15585 
       STO CW+2                                                         4F15586 
       CLA PHI(I)                                                       4F15587 
       STO CW+3                                                         4F15588 
       CLA L(STQ)                                                       4F15589 
       SLT 2                                                            4F15590 
       CLA L(STO)                                                       4F15591 
       STO CW+1                                                         4F15592 
       TSX COMP,B            COMPILE STO/STQ 1... TYPE NO + PHI(I)      4F15593 
       TRA CP0130            GO TO NEXT SEGMENT                         4F15594 
ES0160 LDQ LEFT+2            S(I)=S(0)                                  4F15595 
       LGL 12                                                           4F15596 
       CAS IFSYM             IS THIS AN IF STATEMENT                    4F15597 
       TRA ES0200                                                       4F15598 
       TRA ES1500                                                       4F15599 
ES0200 CAS CALLER            IS THIS A CALL STATEMENT                   4F15600 
       TRA ES0210                                                       4F15601 
       TRA ES1520                                                       4F15602 
ES0210 CAS SAPSYM                                                       4F15603 
       TRA ES0220                                                       4F15604 
       TRA ES1710                                                       4F15605 
ES0220 ARS 6                                                            4F15606 
       LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15607 
       TXH ES1300,C,0        YES                                        4F15608 
       CAS L(H)              NOT A FUNCTION STATEMENT                   4F15609 
       CAS L(O)                                                         4F15610 
       TRA ES0300                                                       4F15611 
       TRA ES0300                                                       4F15612 
       SLT 4                                                            4F15613 
       TRA ES0870                                                       4F15614 
ES0710 CLA L(STQ)            FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT    4F15615 
       SLT 2                                                            4F15616 
ES0730 CLA L(STO)                                                       4F15617 
       STO CW+1                                                         4F15618 
       CLA LEFT                                                         4F15619 
       STO TAGWRD                                                       4F15620 
       CLA LEFT+1                                                       4F15621 
       STO OPWORD                                                       4F15622 
       CLA LEFT+2                                                       4F15623 
       STO SYMWRD                                                       4F15624 
       TSX AC0060,C          ADDRESS COMPILE VAR1ABLE ON LEFT           4F15625 
       TSX COMP,B            COMPILE STO/STQ LEFT+2                     4F15626 
       TRA ES1590            EXIT TO FETCH STATE A                      4F15627 
ES0870 SLT 2                 FX PT ON LEFT, FLO PT ON RIGHT             4F15628 
       TRA ES0990                                                       4F15629 
       CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15630 
       STO CW+1                                                         4F15631 
       CLA X(                                                           4F15632 
       STO CW+2                                                         4F15633 
       STZ CW+3                                                         4F15634 
       TSX COMP,B            COMPILE STQ 700000                         4F15635 
       CLA L(CLA)                                                       4F15636 
       STO CW+1                                                         4F15637 
       TSX COMP,B            COMPILE CLA 700000                         4F15638 
ES0990 TSX CIT00,C           COMPILE FIXING INSTRUCTIONS, WHEN          4F15639 
       HTR L(0)              RESULT ON RIGHT IS IN ACC.                 4F15640 
       HTR L(UFA)                                                       4F15641 
       HTR O(                                                           4F15642 
       HTR L(0)                                                         4F15643 
       TSX CIT00,C                                                      4F15644 
       HTR L(0)                                                         4F15645 
       HTR L(LRS)                                                       4F15646 
       HTR L(0)                                                         4F15647 
       HTR L(0)                                                         4F15648 
       TSX CIT00,C                                                      4F15649 
       HTR L(0)                                                         4F15650 
       HTR L(ANA)                                                       4F15651 
       HTR O(                                                           4F15652 
       HTR 2E18                                                         4F15653 
       TSX CIT00,C                                                      4F15654 
       HTR L(0)                                                         4F15655 
       HTR L(LLS)                                                       4F15656 
       HTR L(0)                                                         4F15657 
       HTR L(0)                                                         4F15658 
       TSX CIT00,C                                                      4F15659 
       HTR L(0)                                                         4F15660 
       HTR L(ALS)                                                       4F15661 
       HTR L(0)                                                         4F15662 
       HTR DEC18                                                        4F15663 
       TRA ES0610                                                       4F15664 
ES0300 SLT 4                                                            4F15665 
       TRA ES0710                                                       4F15666 
ES0320 SLT 2                 FLO PT ON LEFT, FX PT ON RIGHT             4F15667 
       TRA ES0440                                                       4F15668 
       CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15669 
       STO CW+1                                                         4F15670 
       CLA X(                                                           4F15671 
       STO CW+2                                                         4F15672 
       STZ CW+3                                                         4F15673 
       TSX COMP,B            COMPILE STQ 700000                         4F15674 
       CLA L(CLA)                                                       4F15675 
       STO CW+1                                                         4F15676 
       TSX COMP,B            COMPILE CLA 700000                         4F15677 
ES0440 TSX CIT00,C           COMPILE FLOATING INSTRUCTIONS, WHEN        4F15678 
       HTR L(0)              RESULT ON RIGHT IS IN ACC                  4F15679 
       HTR L(LRS)                                                       4F15680 
       HTR L(0)                                                         4F15681 
       HTR DEC18                                                        4F15682 
       TSX CIT00,C                                                      4F15683 
       HTR L(0)                                                         4F15684 
       HTR L(ORA)                                                       4F15685 
       HTR O(                                                           4F15686 
       HTR L(0)                                                         4F15687 
       TSX CIT00,C                                                      4F15688 
       HTR L(0)                                                         4F15689 
       HTR L(FAD)                                                       4F15690 
       HTR O(                                                           4F15691 
       HTR L(0)                                                         4F15692 
ES0610 LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15693 
       TXL ES0730,C,0        NO                                         4F15694 
ES0630 CLA L(TRA)            YES                                        4F15695 
       STO CW+1                                                         4F15696 
       STZ CW+2                                                         4F15697 
       CAL 2E18                                                         4F15698 
       ORA L(4)                                                         4F15699 
       SLW CW+3                                                         4F15700 
       TSX COMP,B            COMPILE TRA 1,4                            4F15701 
       TRA ES1590            EXIT TO FETCH STATE A                      4F15702 
ES1300 SUB L(X)                                                         4F15703 
       TZE ES1360                                                       4F15704 
       SLT 4                                                            4F15705 
       TRA ES1380                                                       4F15706 
       TRA ES0320                                                       4F15707 
ES1360 SLT 4                                                            4F15708 
       TRA ES0870                                                       4F15709 
ES1380 SLT 2                                                            4F15710 
       TRA ES0630                                                       4F15711 
       CLA L(STQ)                                                       4F15712 
       STO CW+1                                                         4F15713 
       CLA X(                                                           4F15714 
       STO CW+2                                                         4F15715 
       STZ CW+3                                                         4F15716 
       TSX COMP,B            COMPILE STQ 700000                         4F15717 
       CLA L(CLA)                                                       4F15718 
       STO CW+1                                                         4F15719 
       TSX COMP,B            COMPILE CLA 700000                         4F15720 
       TRA ES0630                                                       4F15721 
ES1500 TSX TET00,1                 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722 
       PZE 2                         INTO TIFGO TABLE (TABLE 2).        4F15723 
       TRA ES1530                                                       4F15724 
ES1520 LXD EIFNO,4                                                      4F15725 
       SXD CALLNM,4          PREPARE ENTRY FOR TABLE OF CALL FIRST AND  4F15726 
       TSX TET00,1           LAST IFN NUMBERS.                          4F15727 
           16                                                           4F15728 
ES1530 SLT 2                                                            4F15729 
       TRA ES1590            EXIT T0 FETCH STATE A                      4F15730 
       TSX CIT00,C           COMPILE LLS 37                             4F15731 
           L(0)                                                         4F15732 
           L(STQ)                                                       4F15733 
           X(                                                           4F15734 
           L(0)                                                         4F15735 
       TSX CIT00,4                                                      4F15736 
           L(0)                                                         4F15737 
           L(CLA)                                                       4F15738 
           X(                                                           4F15739 
           L(0)                                                         4F15740 
ES1590 CLA FNSW                                                         4F15741 
       TZE MTR000                                                       4F15742 
       CLA F-1                                                          4F15743 
       SUB 5BLANS                                                       4F15744 
       TZE MTR000                                                       4F15745 
       CLS EIFNO                                                        4F15746 
       STO EIFNO                                                        4F15747 
       TSX TET00,A                                                      4F15748 
       HTR 0                                                            4F15749 
       CLS EIFNO                                                        4F15750 
       STO EIFNO                                                        4F15751 
       TRA MTR000                                                       4F15752 
ES1710 LXD BBOX,B                                                       4F15753 
       CLA OPNWRD                                                       4F15754 
       STO CIB-3,B                                                      4F15755 
       TRA MTR000                                                       4F15756 
       REM                                                              4F15757 
COMP   TSX CIT00,C                                                      4F15758 
       HTR CW                                                           4F15759 
       HTR CW+1                                                         4F15760 
       HTR CW+2                                                         4F15761 
       HTR CW+3                                                         4F15762 
       TRA 1,B                                                          4F15763 
       REM                                                              4F15764 
AC0000 CLA SCRIPL,A                                                     4F15765 
       STO TAGWRD                                                       4F15766 
       CLA SCRIPL+1,A                                                   4F15767 
       STO OPWORD                                                       4F15768 
       CLA SCRIPL+2,A                                                   4F15769 
       STO SYMWRD                                                       4F15770 
AC0060 CAL TAGWRD                                                       4F15771 
       ANA MASK1             EXTRACT TAGS IN ACC.                       4F15772 
       PBT                                                              4F15773 
       TRA AC0540                                                       4F15774 
       PXD 0,0               NON-SUBSCRIPTED SYMBOL                     4F15775 
       LDQ SYMWRD                                                       4F15776 
       LGL 1                                                            4F15777 
       LBT                                                              4F15778 
       TQP AC0460            SYMBOL IS SOME S(K)                        4F15779 
       LGL 11                NON-SUBSCRIPTED EX/INTERNAL VARIABLE       4F15780 
       SUB L(A()             IS THIS A FLO PT CONSTANT                  4F15781 
       TZE AC0410            YES                                        4F15782 
       ADD L(A()             NO                                         4F15783 
       SUB L(I()             IS THIS A FIX PT CONSTANT                  4F15784 
       TZE AC0390            YES                                        4F15785 
       ADD L(I()             NO                                         4F15786 
       SUB L(H()             IS THIS A HOLLERITH FIELD                  4F15787 
       TZE AC0350            YES                                        4F15788 
       LDQ OPWORD            NON-SUBSCRIPTD0 EXTERNAL VARIABLE          4F15789 
       LGL 13                IS THIS A FREE VARIABLE                    4F15790 
       TQP AC0340            NO                                         4F15791 
       LLS 15                YES                                        4F15792 
       COM                                                              4F15793 
       SUB L(1)                                                         4F15794 
       PAX 0,B                                                          4F15795 
       PXD 0,B                                                          4F15796 
       SLW CW+3              STORE ARGUMENT BUFFER RELATIVE ADDRESS     4F15797 
       LXD BK,B                                                         4F15798 
       CAL FORSUB-1,B                                                   4F15799 
       ANA MASK2             EXTRACT FUNCTION STATEMENT TYPE            4F15800 
       ORA P(                                                           4F15801 
AC0320 SLW CW+2                                                         4F15802 
       TRA 1,C               RETURN                                     4F15803 
AC0340 STZ CW+3              NON-SUBSCRIPTED, REAL VARIABLE             4F15804 
       CAL SYMWRD                                                       4F15805 
       TRA AC0320                                                       4F15806 
AC0350 CAL H(                                                           4F15807 
       TRA AC0420                                                       4F15808 
AC0390 CLA I(                FIX PT INTERNAL VARIABLE                   4F15809 
       TRA AC0420                                                       4F15810 
AC0410 CLA A(                FLO PT INTERNAL VARIABLE                   4F15811 
AC0420 STO CW+2                                                         4F15812 
       RQL 6                                                            4F15813 
       STQ CW+3                                                         4F15814 
       TRA 1,C               RETURN                                     4F15815 
AC0460 LGL 35                SYMBOL IS SOME S(K).                       4F15816 
TDRADD PAX 0,B                                                          4F15817 
       CAL CPBETA,B                                                     4F15818 
       ANA MASK1             EXTRACT PHI(K)                             4F15819 
       SLW CW+3                                                         4F15820 
       CAL ARERAS                                                       4F15821 
       TRA AC0320                                                       4F15822 
AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823 
       LDQ TAGWRD                                                       4F15824 
       PXD ,0                CLEAR AC.                                  4F15825 
       LGL 12                I-TAU TAGS TO AC.                          4F15826 
       SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827 
       TQP *+3                                                          4F15828 
       STZ CW+3                                                         4F15829 
       CAL 2E18              REPLACE NULL TAG.                          4F15830 
       SLW TAGPRT            SAVE FOR LATER USE.                        4F15831 
       LGL 1                                                            4F15832 
       PXD ,0                CLEAR AC.                                  4F15833 
       LGL 8                 FORM TWICE SIGMA TAG.                      4F15834 
       ALS 1                                                            4F15835 
       ADM SIG1IX-2          FORM BASE OF TABLE + SIGMA TAG.            4F15836 
       STA SDRADD                                                       4F15837 
SDRADD PXD **,0                                                         4F15838 
       RDR 2                                                            4F15839 
       LDA SDRADD                                                       4F15840 
       CAD DUMP                                                         4F15841 
       COM                                                              4F15842 
       CAD DUMP                                                         4F15843 
       COM                                                              4F15844 
       TZE *+2               CHECK SUM TEST.                            4F15845 
       TSX DIAG,4            ERROR SIGMA1 CKSUM FAILS                   4F15846 
       CAL DUMP                                                         4F15847 
       ORS CW+3              ADD RELATIVE ADDRESS TO I-TAU TAG.         4F15848 
       CLA SYMWRD            MOVE VARIABLE NAME FOR NEXT CIT ENTRY.     4F15849 
       STO CW+2                                                         4F15850 
       TRA 1,4               RETURN TO CALLER                           4F15851 
       REM                                                              4F158511
CP6000 TSX FLTR00,4          COMPILE FLOW TRACE INFORMATI0N AND THEN    4F158512
           CW                COMPILE LXD 7(TYPE =,4                     4F158513
           CW+1                                                         4F158514
           CW+2                                                         4F158515
           CW+3                                                         4F158516
       TRA ES0000                                                       4F158517
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852 
ENDD   BSS 0                                                            4F158525
       REM                                                              4F15853 
       ORG 3184+4096                                                    4F15854 
FNSW   BSS 1                                                            4F15855 
P(CNTR BSS 1                                                            4F15856 
ARGORG BSS 1                                                            4F15857 
XRSAVE BSS 1                                                            4F15858 
CW     BSS 4                                                            4F15859 
TAGWRD BSS 1                                                            4F15860 
OPWORD BSS 1                                                            4F15861 
SYMWRD BSS 1                                                            4F15862 
TAGPRT BSS 1                                                            4F15863 
CPBETA BSS 300                                                          4F15864 
SCRIPL BSS 600                                                          4F15865 
       REM  END OF ARITHMETIC / STATE D.                                4F15866 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867 
       REM                                                              4F15868 
       REM SYNONYMS USED BY SECTION ONE.                                4F15869 
1E     SYN ERASE                     COMMON WORKING STORAGE.            4F15870 
1TOCS  SYN 4                         ENTRY TO SYSTEM TAPE MONITOR.      4F15871 
2E     SYN ERASE+1                   COMMON WORKING STORAGE.            4F15872 
2P     SYN I(                                                           4F15873 
36ONES SYN ALL1                                                         4F15874 
3E     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15875 
3QBAR  SYN 3LBAR                                                        4F15876 
4E     SYN ERASE+3                   COMMON WORKING STORAGE.            4F15877 
A      EQU 1                                                            4F15878 
ABLANK SYN BLANK                                                        4F15879 
ACOMMA SYN COMMA                                                        4F15880 
ADD    SYN L(ADD)                                                       4F15881 
AEQUAL SYN EQUAL                                                        4F15882 
ALPAR  SYN OPEN                                                         4F15883 
ARITH  SYN STATEB                                                       4F15884 
ARPAR  SYN CLOS                                                         4F15885 
ARS    SYN L(ARS)                                                       4F15886 
B      EQU 2                                                            4F15887 
C      EQU 4                                                            4F15888 
 CAL   SYN L(CAL)                                                       4F15889 
CIT    SYN CIT00                                                        4F15890 
CITMQR SYN E1C                       ERASABLE STORAGE.                  4F15891 
CITTAP SYN 147                       COMPILED INSTRUCTION TAPE.         4F15892 
CITXR1 SYN ERASE+1                   ERASABLE STORAGE.                  4F15893 
CITXR2 SYN ERASE+2                   ERASABLE STORAGE.                  4F15894 
 CPY   SYN L(CPY)                                                       4F15895 
D1     SYN 2E18                                                         4F15896 
D12    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15897 
 D18   SYN DEC18                                                        4F15898 
D3     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15899 
 DED   SYN L(DED)                                                       4F15900 
DIM1   SYN 0200                      DRUM TABLE ORIGIN -DRTABS,DIM.SR.  4F15905 
DIM2   SYN 0500                      DRUM TABLE ORIGIN -DRTABS,DIM.SR.  4F15906 
DIM3   SYN 0800                      DRUM TABLE ORIGIN -DRTABS,DIM.9R.  4F15907 
DIMCTR SYN ERASE                     COMMON WORKING STORAGE.            4F15908 
DMP    SYN E(                                                           4F15909 
DOE    SYN ERASE                     COMMON WORKING STORAGE.            4F15910 
DRCKSM SYN ERASE+3                   COMMON WORKING STORAGE.            4F15911 
DRMADR SYN ERASE+4                   ERASABLE STORAGE.                  4F15912 
DRMERC SYN L(5)                      NUMBER OF DRUM READING ATTEMPTS.   4F15913 
DRSYM  SYN ERASE                     COMMON WORKING STORAGE.            4F15914 
E1TDR  SYN ERASE                     COMMON WORKING STORAGE.            4F15915 
E2C    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15916 
E2TDR  SYN ERASE+1                   COMMON WORKING STORAGE.            4F15917 
E3C    SYN ERASE+2                   COMMON WORKING STORAGE.            4F15918 
E3TDR  SYN ERASE+2                   COMMON WORKING STORAGE.            4F15919 
EKE    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15920 
ENONO  SYN ERASE+3                   COMMON WORKING STORAGE.            4F15921 
FEOD   SYN ERASE+4                   COMMON WORKING STORAGE.            4F15922 
FIXCON SYN 0002                      DRUM TABLE ORIGIN -DRTABS.         4F15923 
FLOCON SYN 202                       DRUM TABLE ORIGIN -DRTABS.         4F15924 
FXCODR SYN 2                                                            4F15925 
H      SYN ERASE+2                   COMMON WORKING STORAGE.            4F15926 
H(     SYN ADSPOP                                                       4F15927 
HPR    SYN L(HPR)                                                       4F15928 
 LDA   SYN L(LDA)                                                       4F15929 
LXD    SYN L(LXD)                                                       4F15930 
L(10)  SYN TEN                                                          4F15931 
L(11)  SYN EQUAL                                                        4F15932 
L(12)  SYN MINUS                                                        4F15933 
L(1DI  SYN 2E18                                                         4F15934 
L(63)  SYN ENDMK                                                        4F15935 
MEMORG SYN 1824                      MEMORY ORIGIN FOR ALL STATES.      4F15936 
MSK    SYN MASK2                                                        4F15937 
MTR000 SYN STATEA                                                       4F15938 
N      SYN ERASE+3                   COMMON WORKING STORAGE.            4F15943 
PLUS   SYN 12Z                                                          4F15945 
PXD    SYN L(PXD)                                                       4F15946 
RAXR4  SYN ERASE                     COMMON WORKING STORAGE.            4F15947 
SIGMA1 SYN 0662                      DRUM TABLE ORIGIN -DRTABS.         4F15948 
SR6WRK SYN ERASE+1                   ERASABLE STORAGE.                  4F15949 
 ST    SYN L(8)                                                         4F15950 
STA    SYN L(STA)                                                       4F15951 
STCKSM SYN ERASE+4                   COMMON WORKING STORAGE.            4F15952 
TABTAP SYN 148                       TABLE TAPE.                        4F15953 
TAG4   SYN 2E17                                                         4F15954 
TAU1   SYN 0000                      DRUM TABLE ORIGIN -DRTABS.         4F15955 
TAU2   SYN 0300                      DRUM TABLE ORIGIN -DRTABS.         4F15956 
TAU3   SYN 0750                      DRUM TABLE ORIGIN -DRTABS.         4F15957 
TERC   SYN L(5)                      TAPE ERROR COUNTER.                4F15958 
TETMQR SYN ERASE+3                   ERASABLE STORAGE.                  4F15959 
TETWRK SYN ERASE+2                   ERASABLE STORAGE.                  4F15960 
TETXR2 SYN ERASE                     ERASABLE STORAGE.                  4F15961 
TETXR4 SYN ERASE+1                   ERASABLE STORAGE.                  4F15962 
 TIX   SYN L(TIX)                                                       4F15963 
ZER    SYN O(                                                           4F15964 
..     EQU 0                                                            4F15965 
       REM  END OF SYNONYMS USED BY SECTION ONE.                        4F15966 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967 
       REM                                                              4F15968 
       REM END OF SECTION ONE.                                          4F15969 
       END                                                              4F15970 
       REM 704 FORTRAN II, SECTION V, TAG ANALYSIS, 8-1-6-2             F5G00010
       REM DAVID STERNLIGHT      I.B.M. WORLD HEADQUARTERS  5 N0V 58.   F5G00020
       REM                    INTRODUCTION                              F5G00030
       REM TNE GENERAL PHILOSOPHY OF SECTI0N 5 IS TO REDUCE A PROGRAM   F5G00040
       REM USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050
       REM REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON    F5G00060
       REM INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070
       REM INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE   F5G00080
       REM REPLACED.  THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090
       REM REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTION5.F5G00100
       REM THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING     F5G00110
       REM INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120
       REM 3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL      F5G00130
       REM TIMES FOR THE CORRECT EXECUTION 0F TAGGED INSTRUCTIONS.      F5G00140
       REM GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL    F5G00150
       REM MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND   F5G00160
       REM NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT  F5G00170
       REM CONCERN ABOUT WHAT IS WIPED OUT.   THE SKILLFUL PLACEMENT OF F5G00180
       REM THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5.            F5G00190
       REM THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS,   F5G00200
       REM PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210
       REM ED BY SECTION 4.  THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220
       REM BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION.     F5G00230
       REM SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE   F5G00240
       REM HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD    F5G00250
       REM ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS.  THE AREA FORM-F5G00260
       REM ED IN THIS MANNER IS A PORT1ON OF THE OBJECT PROGRAM AND IS  F5G00270
       REM CALLED A LOOPLIST.  THIS IS TREATED TO REDUCE THE NUMBER OF  F5G00280
       REM INDEX REGISTERS TO 3, IS THEN CALLED A REGION, AND CAN ENTER F5G00290
       REM FUTURE LOOPLISTS.  THE LOOPLIST PROCESS IS CONTINUED,        F5G00300
       REM CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM  F5G00310
       REM BY THE INCLUSION OF ALREADY TREATED REGIONS IN  THE CURRENT  F5G00320
       REM LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM.  THESEF5G00330
       REM REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340
       REM END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350
       REM FINALLY THE ENTIRE PR0GRAM HAS BEEN TREATED.  A FURTHER PRIN-F5G00360
       REM CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX,S AS   F5G00370
       REM LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME,     F5G00380
       REM SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUENCY  F5G00390
       REM OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS  F5G00400
       REM OF THE SX.                                                   F5G00410
       REM LPLST IS FORMED IN CORES BY SECTION 5 PART 1.  IT SUMMARIZES F5G00420
       REM EACH NEW REGION TO BE TREATED.  PREFIX CODES ARE 2=OPAQUE    F5G00430
       REM REGION,  1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER   F5G00440
       REM FREE) AND PREFIX CODE 0=BASIC BLOCKS.  THE BB NUMBER         F5G00450
       REM IS CONTAINED IN THE DECREMENT OR ADDRESS.  77777 INDICATES   F5G00460
       REM LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470
       REM OF REGION, SPECIFIED BY BB NUMBER.  000000 INDICATES NOTHING F5G00480
       REM INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR     F5G00490
       REM ADDRESS.  A WORD OF FULL SEVENS, CALLED SENTINEL, TERMINATES F5G00500
       REM EPLST.  THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST   F5G00510
       REM BEFORE TREATMENT LIKE                                        F5G00520
       REM 277777 000014                                                F5G00530
       REM 000023 000000                                                F5G00540
       REM 100026 000033                                                F5G00550
       REM 200003 777777                                                F5G00560
       REM 777777 777777.                                               F5G00570
       REM TNIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580
       REM BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM     F5G00590
       REM BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3,      F5G00600
       REM TERMINATING THIS LPLST.  WHEN TREATED, THIS ENT1RE LPLST     F5G00610
       REM BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS   F5G00620
       REM AND BB,S IN IT, WHICH WILL DISAPPEAR.                        F5G00630
       REM REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION.  PREFIX F5G00640
       REM INDICATES EXISTENCE IN REGI0N OF LX,S TO THE IR,S ,          F5G00650
       REM DECREMENT=FIRST BB NO. IN REGION,  TAG BITS=EMPTINESS        F5G00660
       REM THROUGHOUT REGION OF IR,S.                                   F5G00670
       REM      INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM.      F5G00680
       REM SUCC IS FIRST DRUM TABLE.  IT IS PREPARED BY SECTION 4,      F5G00690
       REM ORDERED ON BB NUMBER.  IT IS PING PONGED BETWEEN DRUM AND    F5G00700
       REM CORES BY THE SE6 ROUTINE.                                    F5G00710
       REM THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720
       REM IS TREATED.  BITS 1-14=FREQUENCY OF LINK,  ADDRESS=NO. OF    F5G00730
       REM SUCCESSOR BASIC BLOCK.                                       F5G00740
       REM PRED IS THE SECOND DRUM TABLE.  IT IS PREPARED BY SECTION 4. F5G00750
       REM PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760
       REM CORES BY THE SE5 ROUTINE.                                    F5G00770
       REM WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED.          F5G00780
       REM BITS 1-14=FREQUENCY OF LINK.  BITS 15-17 CALL FOR LX,S TO    F5G00790
       REM THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800
       REM PRIATE INDEX CELLS.  THESE SX,S WILL LATER BE COMPILED       F5G00810
       REM BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5.  THE ADDRESS    F5G00820
       REM CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK.          F5G00830
       REM BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4.   F5G00840
       REM THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850
       REM THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860
       REM WORD FORMAT FROM SECTION 4.  FIRST WORD DECR=STARTING POIN,  F5G00870
       REM IN SUCC,  ADDRESS=STARTING POINT IN PRED OF ENTRIES          F5G00880
       REM REFERRING TO THIS BASIC BLOCK.  FIRST WORD PREFIX CONTAINS   F5G00890
       REM CODE DESCRIBING TYPE OF ENDING BB HAS.  CODING IS....        F5G00900
       REM 000=DO WITH AN IF,  001=MSE,  010=PROBABILITY BRANCH         F5G00910
       REM 011=CERTAINTY BRANCH,  100=DO WITHOUT AN IF,  101=GO TO N,   F5G00920
       REM 110=STOP.  SECOND WORD, BITS 12-17=PERMUTATION NUMBERS,      F5G00930
       REM INITIALIZED TO 33 BY SECTION 4.  ADDRESS=ORDINAL NUMBER OF   F5G00940
       REM FIRST TAGLIST ENTRY BELONGING TO THIS BB.  REMAINING WORDS   F5G00950
       REM INITIALIZED TO ZEROES BY SECTION 4.                          F5G00960
       REM IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE.  SECOND WORD  F5G00970
       REM BITS S-2 INDICATE IR ACTIVITY IN THIS BB.  PERMUTATION NOS.  F5G00980
       REM MAY UNDERGO CHANGE.  WORDS 3-5 RECORD ENTRY AND EXIT CONDS.  F5G00990
       REM FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS.      F5G01000
       REM WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO.           F5G01010
       REM ADDRESS=NUMBER OF NEXT BB IN REGION.                         F5G01020
       REM STAG IS THE FOURTH DRUM TABLE.  INITIALIZED TO ZEROES AT SEC.F5G01030
       REM 5 PART 1 START.  ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040
       REM IS MADE IN SECTION 5 PART 1 AND READ IN PART 4.  BITS S-8    F5G01050
       REM CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION,  BITS 9-17 F5G01060
       REM FOR AN LX FOLLOWING.  BITS 18-35 IN PAIRS SPECIFY THE INDEX  F5G01070
       REM REGISTER TAGLIST INSTRUCTION IS TO USE.  THUS PRED RECORDS   F5G01080
       REM INTER BB LX,S AND SX,S AN0 STAG RECORDS INTRA-BB LX,S AND    F5G01090
       REM SX,S.  STAG IS HANOLED BY THE SE4 ROUTINE.                   F5G01100
       REM CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD        F5G01110
       REM FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTI0N      F5G01120
       REM CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE       F5G01130
       REM SYMBOLIC ADDRESS, AS FOLLOWS,   BITS 24-26 CONTAIN TAU 1,2,  F5G01140
       REM OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150
       REM TAU TABLE.  NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160
       REM INDEX CELLS IS, TAU 1=G,  TAU 2=10, TAU 3=1G, AND THIS       F5G01170
       REM SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY.  THUS A       F5G01180
       REM TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5, THAT IS, F5G01190
       REM TAU 3, ENTRY 5.  THE INSTRUCTION CLASSES AS FOLLOWS,  IN DECRF5G01200
       REM L=LXA,LXD,PAX,PDX.   2=LXP.  3=DED.  4 IS UNUSED BUT AVAIL.  F5G01210
       REM FOR TNX.  5=ACTIVE INSTR LIKE TIX AND TXI.  6=PASSIVE INSTR. F5G01220
       REM A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE   F5G01230
       REM OONTENTS 0F THE INDEX REGISTER.  7=UNUSED BUT AVAIL. FOR TIX.F5G01240
       REM WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A      F5G01250
       REM TRANSFER, NOT AN ACTIVE TIX.  ACTIVE 1NSTRUCTIONS MAY        F5G01260
       REM BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q  F5G01270
       REM WHERE Q IS SOME CONSTANT.                                    F5G01280
       REM CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290
       REM IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS.                F5G01300
       REM GIVING DRUM TABLE LENGTHS.  TAPE TABLES USED FOR INPUT       F5G01310
       REM INCLUDE TAGLIST AND CIT.  INTERMEDIATE TABLES INCLUDE THE    F5G01320
       REM ABOVE AND STAG, LPLST, CMTAG, AND REG.  CMTAG IS A CORE      F5G01330
       REM BUFFER FOR TAGLIST.  THE DRUM TABLES ALSO APPEAR IN CORE     F5G01340
       REM IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN    F5G01350
       REM COMBINATION 0F THE FACTORS OF LENGTH AND COMPLEXITY OF       F5G01360
       REM TRANSFER STRUCTURE.  OUTPUT TABLES INCLUDE CIT ON TAPE.      F5G01370
       REM TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE.  IT IS AF5G01380
       REM SEQUENTIAL LIST OF ALL TAGGED OBJECT PR0GRAM INSTRUCTIONS    F5G01390
       REM RESULTING FROM SECTION 3.  EACH ENTRY IS ONE WORD.  THE      F5G01400
       REM PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS     F5G01410
       REM CONTAINS SYMBOLIC INDEX REGISTER,S NAME.                     F5G01420
       REM      BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM       F5G01430
       REM TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER       F5G01440
       REM COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING.      F5G01450
       REM IN ADDITION, SENSE SWITCH 4, WHEN 0OWN, PROVIDES UP TO       F5G01460
       REM 20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT   F5G01470
       REM A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PROGRAM          F5G01480
       REM EFFICIENCY.  THIS SENSE SWITCH HAS NO EFFECT ON SHORTER      F5G01490
       REM PROGRAMS.                                                    F5G01500
       REM      IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE,    F5G01510
       REM SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST   F5G01520
       REM BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED  F5G01530
       REM ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END  F5G01540
       REM OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED.         F5G01550
       REM IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN      F5G01560
       REM THE FOLLOWING PARAMETER LIST MUST BE CHANGED.                F5G01570
       REM             8-1-6-2 PARAMETER LIST                           F5G01580
 MSIZE EQU 8192              8-1-6-2 MEMORY SIZE                        F5G01590
   FP1 EQU 150               8-1-6-2 REG TABLE SIZE                     F5G01600
  S3P1 EQU 60                8-1-6-2 LPLST TABLE SIZE                   F5G01610
   STL EQU 240               8-1-6-2 STAG LENGTH                        F5G01620
       REM           FIXED PARAMETER LIST, INDEP. OF CORESIZE           F5G01670
  KEYS SYN MSIZE-4           CONSTANTS TO RELATE PROGRAM TO TABLES      F5G01680
       REM ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLLOWED BY   F5G01690
       REM PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V.        F5G01700
       REM THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS,  F5G01710
       REM KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG.  F5G01720
INSTTP EQU 4                 COMPILED INST ON TAPE 4                    F5G01730
  TAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01740
 OTAPE EQU 3                 OUTPUT TAPE IS 3                           F5G01750
   BLT EQU 3                 BLOCK LIST ON TAPE 3                       F5G01760
 ACTPE EQU 2                 ASSIGN CONSTANTS ON TAPE 2                 F5G01770
 RECNO EQU 1                 NO OF CIT RECORDS IN AT ONE TIME           F5G01780
 ZINST EQU RECNO*100         LENGTH OF INST TABLE                       F5G01790
 LCLST EQU 100               LENGTH OF OUTPUT BLOCK, COMPILED INSTR     F5G01800
  NSXD EQU 128               NO. OF SXD CASES IN SXD LIST               F5G01810
  PTL1 EQU 20                SPACE FOR PATCHES, PART 1                  F5G01811
  PTL2 EQU 41                SPACE FOR PATCHES, PART 2.                 F5G01812
  PTL3 EQU 42                SPACE FOR PATCHES, PART 3                  F5G01813
 PTL4  EQU 34                SPACE FOR PATCHES, PART 4.                 F5G01814
   SET EQU 0                 INITIAL DRUM ADDRESS                       F5G01820
     K EQU 0                 INITIAL DRUM ADDRESS                       F5G01830
       REM         EDITOR RECORD NO. 75                                 F5G01840
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G01850
       REM       NO DIAGNOSTIC CALLER FOLLOWS                           F5G01870
       REM                   PART 1A                                    F5G01880
       REM OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N,           F5G01890
       REM INSTRUCTION COMPILATION.                                     F5G01900
       ORG 24                                                           F5G01910
       REM     ROUTINE TO TRANSFER NEXT                                 F5G01920
       REM       PP0GRAM PART                                           F5G01930
R      RTB 1  SKIP DIAGNOSTIC                                           F5G01940
       TRA 4   READ NEXT PROGRAM RECORD                                 F5G01950
       REM THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES   F5G01960
       REM AUCC, PRED, BBB, AND STAG.  THEY ARE ENTERED WITH THE WANTED F5G01970
       REM ITEM IN THE AC.  THEY LOAD IX1 FOR IMMEDIATE REFERENCE T0 THEF5G01980
       REM STATED ITEM.  AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990
       REM THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES.  IF THE   F5G02000
       REM ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM        F5G02010
       REM MANIPULATION IS NECESSARY.                                   F5G02020
SE4    ALS 18                                                           F5G02030
       ANA SEK4                                                         F5G02040
       TSX SE21,2                                                       F5G02050
       REM  PARAMETERS FOR STAG TABLE                                   F5G02060
STAGP  HTR 0 N(0)                                                       F5G02070
       HTR 0 N(1)                                                       F5G02080
       HTR 0,0,STAGL N(S)                                               F5G02090
       HTR 0,0,SET N(L)                                                 F5G02100
       HTR 1 S                                                          F5G02110
       HTR SET D(0)                                                     F5G02120
       HTR STAG A                                                       F5G02130
       REM  PARAMETERS FOR SUCC. TABLE                                  F5G02140
SE6    ANA SEK4                                                         F5G02150
       TSX SE21,2                                                       F5G02160
 SUCCP HTR 0              N(0)                                          F5G02170
       OCT -1 N(1)                                                      F5G02180
       HTR 0,0,SUCCL N(S)                                               F5G02190
       HTR SET N(L)                                                     F5G02200
       HTR 1 S                                                          F5G02210
       HTR 0 D(0)                                                       F5G02220
       HTR SUCC A                                                       F5G02230
       REM   PARAMETERS FOR PRED. TABLE                                 F5G02240
SE5    ALS 18                                                           F5G02250
       ANA SEK4                                                         F5G02260
       TSX SE21,2                                                       F5G02270
 PREDP HTR 0              N(0)                                          F5G02280
       OCT -1 N(1)                                                      F5G02290
       HTR 0,0,PREDL N(S)                                               F5G02300
       HTR SET N(L)                                                     F5G02310
       HTR 1 S                                                          F5G02320
       HTR SET D(0)                                                     F5G02330
       HTR PRED A                                                       F5G02340
       REM  PARAMETERS FOR BBB TABLE                                    F5G02350
SE1    ALS 18 BB NO. IN ADDR.                                           F5G02360
SE     ANA SEK4 BB NO. IN DECR.                                         F5G02370
       TSX SE21,2                                                       F5G02380
 BBBP  HTR 0              N(0) IN DECR. 1ST BB IN CM                    F5G02390
       OCT -1 N(1) IN DECR,LAST BB IN CM +1                             F5G02400
       HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM                    F5G02410
       HTR SET N(L) IN DECR,NO. OF BBS                                  F5G02420
       HTR 6 S IN ADDR.,NO. OF WDS PER BB                               F5G02430
       HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR.                         F5G02440
       HTR BBB A IN ADDR.,INITIAL CM ADDR                               F5G02450
       REM  2 ED PARAMETER IS + OR - ACCORDING                          F5G02460
       REM  AS CM BLOCK IS FULL OR EMPTY                                F5G02470
       REM  SR FOR SHUFFLING TABLES TO AND FROM DRUM                    F5G02480
SE21   STO SEV2 STORE ITEM NO.,N                                        F5G02490
       CAS 2,2 IS N IN CM                                               F5G02500
       TXH -,-,-                                                        F5G02510
       TXL SE42,0,-                                                     F5G02520
       TRA SE41 POSSIBLY                                                F5G02530
SE42   SXD SEV5,4 NO,STORE RETURN INDEX                                 F5G02540
       CLA 2,2                                                          F5G02550
       TMI SE35 IS CM BLOCK EMPTY                                       F5G02560
       TSX SE22,4 NO,FORM CHECK SUM                                     F5G02570
       CLA SE23                                                         F5G02580
       STA SE24 STORE                                                   F5G02590
       CLA SEV3 CHECK                                                   F5G02600
SE24   STO SET SUM                                                      F5G02610
       CLA SEK                                                          F5G02620
       TSX SE26,4                                                       F5G02630
SE35   CLA ZERO                                                         F5G02640
       LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S)                            F5G02650
       DVP 3,2                                                          F5G02660
       MPY 3,2                                                          F5G02670
       STQ 1,2 N(1)=MIN (N (0)+N(S),N(L))                               F5G02680
       CLA 1,2                                                          F5G02690
       ADD 3,2                                                          F5G02700
       LDQ 4,2                                                          F5G02710
       STQ 2,2                                                          F5G02720
       TLQ SE36                                                         F5G02730
       STO 2,2                                                          F5G02740
SE36   CLA SEK1 TRANSFER IN A                                           F5G02750
       TSX SE26,4 BLOCK OF THE TABLE                                    F5G02760
       TSX SE22,4 CHECK SUM                                             F5G02770
       CLA SE23 COMPARE                                                 F5G02780
       STA SE37 CHECK                                                   F5G02790
SE37   CLA SET SUMS                                                     F5G02800
       CAS SEV3                                                         F5G02810
SE45   TRA SE43                                                         F5G02820
       TRA SE40 AGREE                                                   F5G02630
SE43   LXD TPCT,4     REPEAT 5 TIMES                                    F5G02840
       TXI SE44,4,1                                                     F5G02850
SE44   SXD TPCT,4                                                       F5G02860
       TXL SE36,4,4           TRY AGAIN                                 F5G02870
       TSX 4,4      TRIED 5 TIMES GO TO DIAGNOSTIC                      F5G02880
       REM NOTE ON THIS 150 STOP.  THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890
       REM BY MACHINE ERROR.                                            F5G02900
       REM IF IX 2 CONTAINS       TABLE IS  AND CHECK                   F5G02910
       REM 77744                  STAG      40                          F5G02920
       REM 77732                  SUCC      51         ALL              F5G02930
       REM 77721                  PRED      63        OCTAL             F5G02940
       REM 77707                  BBB       75                          F5G02950
       REM TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS             F5G02960
       REM THAN THE CONTENTS 0F 306 OCTAL.  IF SO, SOURCE PROGRAM, RATH-F5G02970
       REM ER THAN MACHINE ERROR IS LIKELY.  THE ERROR C0ULD BE         F5G02980
       REM A.  TRANSFER TO A NON-EXECUTABLE INSTRUCTION.                F5G02990
       REM B.  UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM.           F5G03000
       REM C.  LAST STATEMENT OF A DO IS A TRANSFER.                    F5G03010
       REM D.  INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT.    F5G03020
 TPCT  HTR -                                                            F5G03030
SE40   SXD TPCT,0     RESET TAPECOUNT                                   F5G03040
       LXD SEV5,4 RESTORE RETURN INDEX                                  F5G03050
       CLA SEV2 GET N AGANIN                                            F5G03060
       TRA SE41                                                         F5G03070
       REM  THE ITEM MIGHT BE IN STORAGE                                F5G03080
SE41   SUB 1,2 N-N(01                                                   F5G03090
       TMI SE42 DOES IT LIE IN STORAGE                                  F5G03100
       LRS 35 YES,INDEX=                                                F5G03110
       MPY 5,2 COM((N-N(0).S)                                           F5G03120
       LLS 17                                                           F5G03130
       SUB SEK5                                                         F5G03140
       PAX 0,1                                                          F5G03150
       TRA 1,4                                                          F5G03160
       REM  DRUM TRANSFER SUBROUTINE PROPER                             F5G03170
SE26   SXD SEV4,4 STORE RETURN INDEX AND ITEM NO. TO BE TRANSFERRED     F5G03180
       STO SE25 STORE READ-WRITE INDICATOR                              F5G03190
       LDQ 3,2 FORM                                                     F5G03200
       MPY 5,2 N(S)*S+1                                                 F5G03210
       LLS 17 AND                                                       F5G03220
       ADD ONEA STORE                                                   F5G03230
       STO SEV1 IT                                                              
       CLA ZERO FORM                                                    F5G03250
       LDQ 1,2 ((N(O)/N(S))                                             F5G03260
       DVP 3,2     (N(S)(S+1))                                          F5G03270
       MPY SEV1                                                         F5G03280
       STQ SEV1 INITIAL DRUM ADDRESS                                    F5G03290
       CLA 6,2 =D(0)+(NON(S))$(N(S).S=1)                                F5G03300
       ADD SEV1                                                         F5G03310
       STO SEV7 SET LDA INSTRUCTIONS                                    F5G03320
       ALS 7 COMPUTE THE                                                F5G03330
       COM  DRUM SELECTION                                              F5G03340
       PDX 0,1 INDEX                                                    F5G03350
       TSX SE25,4 SELECT DRUM                                           F5G03360
       CLA 2,2                                                          F5G03370
       SUB 1,2 (N(1)-N(0))S                                             F5G03380
       LRS 53 INTO MQ                                                   F5G03390
       MPY 5,2                                                          F5G03400
       CLA SEV7 FORM NO. OF                                             F5G03410
       ANA SEK2 WORDS LEFT ON                                           F5G03420
       SUB SEK3 DRUM GROUP                                              F5G03430
       SSP                                                              F5G03440
       TLQ SE31 MUST BLOCK BE SPLIT                                     F5G03450
       PAX 0,4 YES                                                      F5G03460
       ADD 7,2 SET INDEX AND                                            F5G03470
       STA SE27 COMPUTE ADDRESS OF 1ST CPY                              F5G03480
       SUB 7,2 COMPUTE NO.                                              F5G03490
       STQ SEV1 OF WORDS IN                                             F5G03500
       SUB SEV1 2 ED TRANSFER                                           F5G03510
       SUB ONEA                                                         F5G03520
       SSP                                                              F5G03530
       STO SEV1                                                         F5G03540
       ADD SE27                                                         F5G03550
       STA SE29 SET 2 ED CPY                                            F5G03560
SE28   LDA SEV7                                                         F5G03570
SE27   CPY SET,4 TRANSFER                                               F5G03580
       TIX SE27,4,1 1ST BLOCK OF WORDS                                  F5G03590
       TIX SE30,1,1 DECREASE C(1) BY 1                                  F5G03600
SE30   TSX SE25,4 SELECT DRUM                                           F5G03610
       LXA SEV1,4                                                       F5G03620
SE29   CPY SET,4 TRANSFER                                               F5G03630
       TIX SE29,4,1 2 EDBLOCK                                           F5G03640
SE34   LXD SEV4,4                                                       F5G03650
       TRA 1,4 RETURN                                                   F5G03660
SE31   LLS 35 (N(1)-N(0)).S+1                                           F5G03670
       ADD ONEA WORDS ARE TO                                            F5G03680
       PAX 0,4 BE TRANSFERED                                            F5G03690
       ADD 7,2                                                          F5G03700
       STA SE32                                                         F5G03710
SE33   LDA SEV7                                                         F5G03720
SE32   CPY SET,4                                                        F5G03730
       TIX SE32,4,1                                                     F5G03740
       TRA SE34                                                         F5G03750
SE25   RDS 192,1 (OR WRS) DRUM                                          F5G03760
       TRA 1,4 SELECTION SUBROUTINE.                                    F5G03770
       REM  CHECK SUM SUBROUTINE                                        F5G03780
SE22   CLA 2,2                                                          F5G03790
       SUB 1,2 COMPUTE                                                  F5G03800
       LRS 35 (N(1)-N(0)).S                                             F5G03610
       MPY 5,2 THE NUMBER OF WORDS                                      F5G03820
       LLS 17 TO BE SUM                                                 F5G03830
       PAX 0,1 CHECKED                                                  F5G03840
       ADD 7,2 COMPUTE AND STORE                                        F5G03850
       REM ADDRESS OF WORD                                              F5G03860
       STA SE23 FOLLOWING LAST TABLE WORD.                              F5G03870
       CLA ZERO CLEAR SUM CHECK.                                        F5G03880
SE23   ACL -,1     FORM THE                                             F5G03890
       TIX SE23,1,1 SUM CHECK.                                          F5G03900
       SLW SEV3                                                         F5G03910
       TRA 1,4                                                          F5G03920
SEK    WRS 192,1 WRS,192,1                                              F5G03930
SEK1   RDS 192,1 RDS,192,1                                              F5G03940
SEK2   HTR 2047 MASK TO EXTRACT LAST 11 BIT                             F5G03950
SEK3   HTR 2048 2048 IN ADDR.                                           F5G03960
SEK4   HTR 0,0,-1         IN DECR. PART                                 F5G03970
SEK5   HTR 0,1 2 15                                                     F5G03980
 SEV1       NS.S+1 TEMP STORAGE                                         F5G03990
 SEV2       STORAGE OF N (DECR.)                                        F5G04000
 SEV3       STORAGE OF CK SUM.                                          F5G04010
 SEV4       RETURN FROM SE 26                                           F5G04020
 SEV5       RETURN FROM SE                                              F5G04030
 SEV6       STORE N TO BE TRANSFERRED                                   F5G04040
 SEV7       INITIAL DRUM ADDR.                                          F5G04050
ZERO   OCT 0                                                            F5G04060
ONEA   HTR 1                                                            F5G04070
ONED   HTR 0,0,1                                                        F5G04080
       REM  CONSTANTS USED IN S1                                        F5G04090
S1K2   HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF.                   F5G04100
S1K3   HTR 8 NO. OF S3 VARIABLES SAVED.                                 F5G04110
C      SYN S1K2                                                         F5G04120
S2K1   HTR 0,0,-1 ONES IN DECR. PART.                                   F5G04130
S2K2   HTR 0,0,1 CONST. USED TO TEST FOR LX.                            F5G04140
S3K1   OCT -377777777777 END LOOP LIST SENTENIAL                        F5G04150
S3K2   HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS     IS BB           F5G04160
S3K3   HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST                   F5G04170
S3K4   OCT 777777 MASK TO EXTRACT LAST 1/2 WORD.                        F5G04180
S3K5   HTR 0,0,-1 MASK TO EXTRACT INST. TYPE                            F5G04190
       REM CONSTANTS OF S4                                              F5G04200
S4K1       CMTL SIZE OF STORAGE FOR TAG TABLE.                          F5G04210
S4K2   HTR 15 NO OF TAGS PER RECORD.                                    F5G04220
S4K3   HTR CMTAG                                                        F5G04230
       REM  THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5               F5G04240
LK1    OCT 777776 E,HASH SYMBOL                                         F5G04250
LK2    OCT -200000000000 CONSTANT= FOR EXTRACTING                       F5G04260
LK3    OCT -300000000000 1ST 2,3 BITS OF WORD RESPT.                    F5G04270
       REM CONSTANTS FOR MATCHING SUBR0UTINE                            F5G04280
S5K1   OCT 777777 PHI,EMPTINESS  444                                    F5G04290
S5K2   OCT 777775 CONSTANT USED TO TEST-FOR REAL TAGS                   F5G04300
S5K3   OCT -0 -0                                                        F5G04310
S5K4   HTR 2 +2                            .1                           F5G04320
S5K5   HTR 3 +3                                                         F5G04330
S5K6   HTR 8 +8                                                         F5G04340
S9K1   HTR 4 +4                                                         F5G04350
S9K2       0,1 MASK FOR PHI DIGIT NO. 1                                 F5G04360
           0,2 MASK FOR PHI DIGIT NO. 2                                 F5G04370
           0,4 MASK FOR PHI DIGIT NO. 3                                 F5G04380
S9K3   HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR.                        F5G04390
SAK1       4094            CONST  USED TO TEST NON EXISTENT BB          F5G04400
       REM CONSTANTS 0F SB                                              F5G04410
SBK1   OCT +001000000000 CONST. USED T0 GENERATE SX BIT. AD.            F5G04420
SBK2   HTR -1 USED TO EXTRACT ADDR.                                     F5G04430
SBK3   HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER                 F5G04440
SCK1   HTR 0,0,LPLST                                                    F5G04450
FK1    OCT 177777077777           TRANSPARANT REGION CONST              F5G04460
FK2    OCT 277777077777       OPAQUE REGION CONST                       F5G04470
FK3    HTR 0,7 MASK TO EXTRACT TAG.                                     F5G04480
FK4    OCT 177777777777 CONST TO TEST FOR OPAQUE REG.                   F5G04490
FK5    HTR FP1 LENGTH OF REGION LIST                                    F5G04500
XK3    OCT -0 3 CONSTANTS USED TO                                       F5G04510
       OCT 200000000000 CHANGE REGION WDS.                              F5G04520
       OCT 100000000000 TO INDICATE IRS LX ED.                          F5G04530
XK4    OCT -377776000000 E,HASH SYMBOL,IN LQT HALF                      F5G04540
XK5    OCT -300000000000 MASK FOR PREFIX                                F5G04550
XK6    OCT 200000000000                                                 F5G04560
XK9    HTR 9                                                            F5G04570
XK10   SYN XK3 MASK TO EXTRACT 1ST IN BB FIT.                           F5G04580
XK11   OCT 1000000 CONST. TO GENERAGE LX BIT.                           F5G04590
XK12   HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE                      F5G04600
XK13   HTR 0,0,4 TNX                                                    F5G04610
XK14   HTR 0,0,7 TIX                                                    F5G04620
XK15   HTR 0,0,2 LXP                                                    F5G04630
XK16   HTR 0,4 CONST. TO GENERATE LX BIT.                               F5G04640
XK17   PON              CONST. TO SEPARATE TYPES                        F5G04650
XK18   SYN XK4 E IN LEFT HALF WORD.                                     F5G04660
XK19   OCT -377777000000 MASK LEFT HALF WORD.                           F5G04670
XK20   OCT -377700777777 CONST. TO DELETE PERM. NOS.                    F5G04680
XK21   HTR 0,0,3 CONST. TO TEST FOR DED INST.                           F5G04690
XK22   OCT -377777077777 CONST. TO DELETE PHIS.                         F5G04700
XK23   HTR 0,1                                                          F5G04710
       HTR 0,2                                                          F5G04720
       HTR 0,4                                                          F5G04730
 S1V1       TEMP. STORAGE FOR                                           F5G04740
       HTR -                                                            F5G04750
       HTR -              1ST 9 VARIABLES                               F5G04760
       HTR -              IN S3                                         F5G04770
       HTR -                                                            F5G04780
       HTR -                                                            F5G04790
       HTR -                                                            F5G04800
       HTR -                                                            F5G04810
 S1V3                     THE CLA IN S3                                 F5G04820
 S1V4                     RETURN INDEX                                  F5G04830
 S1V5                     (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R.       F5G04840
 S1V6                     TEMP                                          F5.04850
 S1V7                     STORAGE                                       F5G04860
       REM THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS,   F5G04870
       REM AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880
       REM SYMBOL 777776. IHASH MEANS THE REGISTER IS NOT EMPTY BUT     F5G04890
       REM ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900
       REM DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910
       REM IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920
 IR1                      THE 3 I.R.S IN                                F5G04930
 IR2                      THE LAST 1/2 OF REGISTER                      F5G04940
 IR3                                                                    F5G04950
 IRR                      HOLDS 3,2,1 IF IR1,2,3 SELECTED               F5G04960
IND1        + OR - ACCORDING AS IR1 FOUND OR IR1 NOT FOUND              F5G04970
IND2       + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND               F5G04980
IND3       + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND               F5G04990
 IN4                  +F OR - IF IR HAS OR HASNT BEEN FOUND             F5G05000
       REM  VARIABLES OF S3 SUBROUTINE                                  F5G05010
 S3V1       LOCATION OF 1ST TAG IN BB                                   F5G05020
 S3V2       TAG COUNTER,IN DECR. PART.                                  F5G05030
 S3V3       + NO. OF TAGS LEFT IN BB AFTER TIX,OR-                      F5G05040
 S3V4       LOOP LIST INDEX.                                            F5G05050
 1TAG       THE TAN-TAG                                                 F5G05060
 TPE        THE TYPE OF INSTR.                                          F5G05070
 INTAG      TAG + INSTR. TYPE (ENTRY IN TAG LIST)                       F5G05080
 S3V5       LOOP LIST QUANTITY                                          F5G05090
 S3V8       RETURN INDEX                                                F5G05100
 S3V6       (1ST TAG IN BB-1ST TAG IN C.M.)                             F5G05110
 S3V7       NO. OF WORDS LEFT IN C.M.                                   F5G05120
 S3V9       (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB)                  F5G05130
       REM  VARIABLES OF S4                                             F5G05140
 S4V1       LOC OF 1ST TAG IN CMTAG                                     F5G05150
 S4V2       LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.)                   F5G05160
 S4V3       (LOC OF LAST TAG)+ 1                                        F5G05170
       REM  ABOVE MUST BE SET AT START.                                 F5G05180
 S4V4       (LOC. OF 1ST TAG IN BB-POS OF TAPE)                         F5G05190
       REM  VARIABLES FOR MATCHING SUBROUTINE S5                        F5G05200
IR4         TEMP. STORAGE FOR C (IR1)                                   F5G05210
IR5         TEMP. STORAGE FOR C (IR2)                                   F5G05220
IR6         TEMP. STORAGE FOR C (IR3)                                   F5G05230
ENC         COUNTER OF =                                                F5G05240
IRC         COUNTER OF =                                                F5G05250
       REM THE IN 1,2,3,  EN4,5,6 CELLS ARE LOADED BY THE S5 R0UTINE    F5G05260
       REM FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN   F5G05270
       REM ALREADY TREATED REGI0N UPON ENTRY TO THIS REGION IN LPLST.   F5G05280
       REM OPTIMIZED MATCH T0 CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290
       REM PERMUTING THE ENTIRE REGION AS NECESSARY.  THE IN1,2,3       F5G05300
       REM AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3,  EX1,2,3 F5G05310
       REM ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3,   F5G05320
       REM AC1,2,3,  LX1,2,3.  FOR EXAMPLE EN4 IS 3,2,OR1 DEPENDING ON  F5G05330
       REM WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3.  INVERSELY, F5G05340
       REM IN1 IS 3,2,OR1 FOR THE CORRESPONDENT OF IR1 EQUAL TO EN1,2,3.F5G05350
IN1         INDEX OF CORRES 0F IR1                                      F5G05360
IN2         INDEX OF CORRES OF IR2                                      F5G05370
IN3         INDEX OF CORRES OF IR3                                      F5G05380
EN4         INDEX OF CORRES 0F EN1                                      F5G05390
EN5         INDEX OF CORRES OF EN2                                      F5G05400
EN6         INDEX OF CORRES OF EN3                                      F5G05410
EN1         THE ENTRANCE REQUIREM                                       F5G05420
EN2         ENTS EN1,ENZ,EN3.                                           F5G05430
EN3                                                                     F5G05440
S5V1        TEMP. STORE FOR RETURN INDEX.                               F5G05450
S5V2        TEMP STORE FOR LOOP LIST QUANT.                             F5G05460
S9V1        TEMP. STORE FOR BB NO.                                      F5G05470
S9V2        TEMP. STORE FOR RETURN INDEX                                F5G05480
S9V4        TEMP. STORE FOR REGION WORD.                                F5G05490
       REM  VARIABLES 0F SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS)    F5G05500
SAV1        TEMP STORE FOR PERMUTATION NOS.                             F5G05510
SAV2        RETURN INDEX.                                               F5G05520
SAV3        TEMP. STORE FOR REGION WORD.                                F5G05530
       REM THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540
       REM HAS ALREADY BEEN TREATED.                                    F5G05550
EX1         3 EXIT CONDITIONS                                           F5G05560
EX2                                                                     F5G05570
EX3                                                                     F5G05580
       REM THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590
ACT1        3 ACTIVE                                                    F5G05600
       HTR -              INDICATORS                                    F5G05610
       HTR -                                                            F5G05620
       REM  VARIABLES OF SB                                             F5G05630
SBV1        RETURN INDEX                                                F5G05640
SBV2        TEMP. STORAGE.                                              F5G05650
SBV3        TEMP. STORAGE.                                              F5G05660
SBV4        INDEX OF REGISTER WHICH IS ACTIVE.                          F5G05670
SBV5        STORAGE FOR PERMUTATION NOS.                                F5G05680
SCV1        RETURN INDEX                                                F5G05690
SCV2        INDEX OF BB.                                                F5G05700
SCV3        INDEX OF POSITION IN LOOP LIST                              F5G05710
ACIND                 + OR - MEANS 2ED OR ACTIVE PASS                   F5G05720
SDV1        STORE FOR RETURN INDEX.                                     F5G05730
SDV2        INDEX OF ACTIVE I.R.                                        F5G05740
SDV3        THE PERMUTATION NOS.                                        F5G05750
SDV4        TEMP. STORE FOR INDEX OF BB                                 F5G05760
SFV1        ACTIVE INDICATOR FORMED HERE.                               F5G05770
SFV2        RETURN INDEX.                                               F5G05780
SGV1                       RETURN INDEX                                 F5G05790
SGV2                       PERMUTED REGION WORD                         F5G05800
FV1         HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY)            F5G05810
FV2         BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.)                   F5G05820
FV3         PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.)                   F5G05830
FV4         WORD HAVING REGION NO. (5TH BB WORD)                        F5G05840
FV5         CURRENT BB NO. BEING CONSIDERED. (ADDR.)                    F5G05850
FV6         RETURN INDEX OF F1,F80                                      F5G05860
FV7         PRED. NO. BEING CONSIDERED IN B.B. (ADDR.)                  F5G05870
FV8         FIRST PRED. FROM NEXT B.B. (ADDR.)                          F5G05880
FV9        0,0,-    TEMP STORE FORCURRENT SUCC IN DECR ONLY             F5G05890
FV10       0,0,-     TEMP STORE IN DECR ONLY, CURRENT SUCC              F5G05900
FV101       HIGHEST FREQ. IN BB (PRED. TABLE ENTRY)                     F5G05910
FV102       BB NO. BEING CONSIDERED. (ADDR.)                            F5G05920
FV103       PRED. NO. (0TH WORD FROM BB) (ADDR.)                        F5G05930
FV104       WORD HAVING REGION. NO.                                     F5G05940
LPIND                   + OR - IF IT ISNT 0F IS A LOOP                  F5G05950
LV1         THE CONDITIONS OF THE I.R.S                                 F5G05960
LV2         AT END OF THE                                               F5G05970
LV3         1ST LXING PASS.                                             F5G05980
LV4         THE LOOP LIST QUANTITY                                      F5G05990
LV5         WORD FROM BB WITH PRED. AND SUCC. LOCS                      F5G06000
       REM  VARIABLES OF 2ED LXING PASS.                                F5G06010
       REM ACTIVITY.  WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS,   F5G06020
       REM IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX  F5G06030
       REM REGISTER BECOMES ACTIVE.  THIS IS PLUS ACTIVITY.  IF THE SAMEF5G06040
       REM REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED  F5G06050
       REM TO RECORD AN SX NECESSARY.  SINCE THE ACTIVITY IS PLUS, THE  F5G06060
       REM SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE     F5G06070
       REM INSTRUCTION.  THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING   F5G06080
       REM CARE OF THE PROBLEM.  AT THE END OF LPLST, IF THE INDEX      F5G06090
       REM REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE     F5G06100
       REM REGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110
       REM IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120
       REM MINUS.  THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED.  THE F5G06130
       REM APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE        F5G06140
       REM APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150
       REM THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB    F5G06160
       REM ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM  F5G06170
       REM THAT BB.  THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180
       REM INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190
       REM 0F SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW      F5G06200
       REM FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT     F5G06210
       REM PROGRAM TIME.                                                F5G06220
       REM THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3.   F5G06230
       REM ZERO...NOT ACTIVE,  PLUS ACTIVITY...ACTIVE INSTRUCTION IN A  F5G06240
       REM BB NOT TREATED UNTIL THIS LPLST.  AC1,2,3 CONTAINS INFO.     F5G06250
       REM FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION.       F5G06260
       REM MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION.    F5G06270
       REM AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK   F5G06280
       REM OUT OF THE REGION.                                           F5G06290
AC1         3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE                     F5G06300
AC2         IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS               F5G06310
AC3         LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE,      F5G06320
       HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR.          F5G06330
       REM THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340
LX1         3 ENTRANCE REQUIREMENTS OF A BB                             F5G06350
LX2         BUILT UP HERE. +0 MEANS                                     F5G06360
LX3         NO ENTRANCE REQU. DETERMINED.                               F5G06370
XV1         IN DECR., INDEX OF CURRENT REGION                           F5G06380
XV2         THE NEW REGION WORD.                                        F5G06390
XV3         THE WORD POSITION IN STAG                                   F5G06400
XV4         THE DIGIT INDEX WITHIN THE WORD.                            F5G06410
XV5         THE LOCATION OF CURRENT TAG (INSTR.)                        F5G06420
XV6         NEAR XO7,C.F. OF TNX BRANCH,NEAR X85, TAG                   F5G06430
XV7         X07 TO X09+,INDEX OF BB,NEAR X85,TAG                        F5G06440
XV8         INDEX OF BB NE-R X33                                        F5G06450
       REM PERMUTATION.  WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN  F5G06460
       REM ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AND BBB MUST F5G06470
       REM BE UPDATED.  INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION     F5G06480
       REM NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING    F5G06490
       REM REQUIRES ONLY THESE NUMBERS TO BE CHANGED.  IN SECTION 5 PARTF5G06500
       REM 2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES  F5G06510
       REM THEMSELVES ARE ACTUALLY UPDATED.                             F5G06520
XV9         THE PERMUTATION NOS.                                        F5G06530
XV10        INDEX OF I.R. IN BB CONSIDERED.                             F5G06540
XV11                                                                    F5G06550
XV12                                                                    F5G06560
XV13        INDEX OF PARTICULAR BB X40 ON                               F5G06570
XV14        TEMP. STORE FOR 2 INDEXES                                   F5G06580
XV15        WHILE USING SUBROUTINE.                                     F5G06590
XV16        TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON                 F5G06600
XV17        TEMP. STORE FOR OLD REGION WD.,X74                          F5G06610
XV18        IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR.                   F5G06620
XV19           TEMP STORE FOR PREVIOUS LPLST QUANTITY                   F5G06630
XV20              TEMP STORE IN DECR. ONLY                              F5G06640
XV21              TEMP STORE FOR TAG NEAR X43                           F5G06650
XV22             NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED       F5G06660
XV23            DECR ONLY , TEMP STORE FOR REGION INDEX                 F5G06670
XV24                     0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION     F5G06680
AV1         TEMP. STORE FOR PRED. TABLE ENTRY.                          F5G06690
AV2         TEMP. STORE FOR INDEX OF I.R.                               F5G06700
AV3         TEMP. STORE FOR PERM. NOS.                                  F5G06710
       REM THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST   F5G06720
       REM (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD         F5G06730
       REM THROUGH LPLST.  THE IR WHOSE CONTENTS ARE REQUIRED AGAIN     F5G06740
       REM SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE.  THESE       F5G06750
       REM R0UTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO      F5G06760
       REM SELECT AN IR.                                                F5G06770
S111   SSM  SET INDICATOR TO-MEANING                                    F5G06780
       TRA S109 SEARCH FOR LEAST REPLACEABLE I.R.                       F5G06790
S1     SSP  SET INDICATOR TO + MEANING                                  F5G06800
S109   STO S1V5 SEARCH FOR MOST REPLACEABLE I.R.                        F5G06810
       SXD S1V4,4 STORE RETURN INDEX.                                   F5G06820
       SSM  SET                                                         F5G06830
       STO IND1 INDICATORS                                              F5G06840
       STO IND2 TO                                                      F5G06850
       STO IND3 NOT                                                     F5G06860
       STO IN4 FOUND.                                                   F5G06870
       LXD S123,2 SET TO LO0P FOR EMPTY I.R.                            F5G06880
S119   LXA S5K5,1        SET COUNT TO 3, N TO 1                         F5G06890
S120   CLA IR1+3,1 IS IRN EMPTY OR                                      F5G06900
       CAS 0,2 (FILLED WITH HASH)                                       F5G06910
S121   TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR.                   F5G06920
       TRA S124 YES,                                                    F5G06930
S122   TIX S120,1,1 NO,C0UNT TO 3,N=N+1                                 F5G06940
S123   TXH S127,2,-S5K1 HAVE WE LOOKED FOR HASH                         F5G06950
       LXD S121,2 NO,SET TO LOOP FOR HASH.                              F5G06960
       TRA S119                                                         F5G06970
S124   CLS S1V5 LOOKING FOR MOST REPLACEABLE                            F5G06980
       TMI S129 I.R.                                                    F5G06990
       STO IND1+3,1 NO, RECORD IRN ELIMINATED                           F5G07000
       LDQ IN4                                                          F5G07010
       STO IN4 RECORD SOME IR ELIMINATED                                F5G07020
       TQP S128 HAS AN IR BEEN ELIMINATED BEFORE                        F5G07030
       TRA S122                                NO,                      F5G07040
S128   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G07050
S126   CLA IND1+3,1 HAS IRN                                             F5G07060
       TPL S125 BEEN ELIMINATED                                         F5G07070
S129   SXD IRR,1 NO,SELECT IRN                                          F5G07080
       TRA 1,4 AND RETURN.                                              F5G07090
S125   TIX S126,1,1 COUNT TO 3,N=N+1                                    F5G07100
S130   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR.                           F5G07110
S127   CLA S39                                                          F5G07120
       STO S1V3 STORE ASIDE                                             F5G07130
       LXA S1K3,4 THE                                                   F5G07140
S112   CLA S3V1+8,4 STATE                                               F5G07150
       STO S1V1+8,4 OF THE                                              F5G07160
       TIX S112,4,1 S3 ROUTINE.                                         F5G07170
S11    TSX S3,4 GET NEXT TAG                                            F5G07180
       TRA S103 COME HERE IF TAG NOT GOT.                               F5G07190
       CLA S1V1                                                         F5G07200
       CAS S3V1 IS THE LOOP C0MPLETED                                   F5G07210
       TRA S104 NO                                                      F5G07220
       TRA S135 PERHAPS                                                 F5G07230
S104   TSX S2,4 NO                                                      F5G07240
       TRA S16 COME HERE IF IR DECIDED ON                               F5G07250
       TRA S11 COME HERE IF NOT DECIDED ON                              F5G07260
S135   CLA S1V1+1 IS THE LOOP COMPLETED                                 F5G07270
       CAS S3V2                                                         F5G07280
       TRA S104                                                         F5G07290
       TRA S102 YES                                                     F5G07300
       TRA S104                                                         F5G07310
S103   CAS S3K1 IS THIS AN END LOOP LIST                                F5G07320
       TRA S105 NO                                                      F5G07330
       TRA S101 YES                                                     F5G07340
S105   CLA S3V5 GET LOOP LIST QUANTITY AGAIN.                           F5G07350
       CAS S3K2 IS IT A BB                                              F5G07360
       NOP  NO,IT IS EITHER A TRANSPARENT                               F5G07370
       TRA P001              OR OPAQUE REGION                           F5G07380
       TRA S11 YES                                                      F5G07390
  P001 CAS S1V1+7                                                       F5G07400
       TRA S136                                                         F5G07410
       TRA S102                                                         F5G07420
S136   TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU.                       F5G07430
       LDQ S1K2 MAKE THIS LOOK LIKE A                                   F5G07440
       STQ TPE PASSIVE REFERENCE.                                       F5G07450
       LXA S5K5,4 SET COUNT TO 3.                                       F5G07460
S115   CAL BBB+2,1     PUT THIS TAU TAG                                 F5G07470
       ARS 18 IN LOCATION                                               F5G07480
       SLW 1TAG           TAG                                           F5G07490
       SXD S1V6,1 STORE THE                                             F5G07500
       SXD S1V7,4 INDEXES.                                              F5G07510
       TSX S2,4 TRY TO SELECT AN I.R.                                   F5G07520
       TRA S16 COME HERE IF I.R. SELECTED.                              F5G07530
       LXD S1V6,1 AND HERE IF NOT. RESTORE                              F5G07540
       LXD S1V7,4 THE INDEXES.                                          F5G07550
       TXI S114,1,-1     DECREASE ENTR. INDEX                           F5G07560
S114   TIX S115,4,1 COUNT TO 3.                                         F5G07570
       TRA S11                                                          F5G07580
S102   CLA IND1 HAS C(IR1) BEEN                                         F5G07590
       TPL S13 FOUND (ELIMINATED)                                       F5G07600
S18    LXA S5K5,4 NO,SELECT                                             F5G07610
S15    SXD IRR,4 IR1.                                                   F5G07620
S16    LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR)                          F5G07630
S113   CLA S1V1+8,4 TO STATE                                            F5G07640
       STO S3V1+8,4 BEFORE                                              F5G07650
       TIX S113,4,1 S1 WAS USED.                                        F5G07660
       CLA S1V3                                                         F5G07670
       STO S39                                                          F5G07680
       TSX S4,4 MAKE SURE SAME TAGS ARE IN CM.                          F5G07690
       LXD S1V4,4                                                       F5G07700
S14    TRA 1,4 RETURN                                                   F5G07710
S13    CLA IND2 HAS IR2 BEEN                                            F5G07720
       TPL S107 FOUND (ELIMINATED)                                      F5G07730
S108   LXA S5K4,4 NO,SELECT                                             F5G07740
       TRA S15 IR2.                                                     F5G07750
S107   TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR                            F5G07760
       REM  OF SOME KIND.                                               F5G07770
S101   LDQ LPIND IS THIS                                                F5G07780
       TQP S102 A LOOP                                                  F5G07790
       TRA S11 YES                                                      F5G07800
 S2    CLA 1TAG           PUT TAU-TAG IN AC.                            F5G07810
       LXA S5K5,1 SET COUNT TO 3.                                       F5G07820
S22    LDQ IND1+3,1                                                     F5G07830
       TQP S21 BEEN FOUND                                               F5G07840
       CAS IR1+3,1     NO, IS TAU TAG EQUAL                             F5G07850
       TRA S21 NO,TO C(IRN)                                             F5G07860
       TRA S24 YES                                                      F5G07870
S21    TIX S22,1,1 NO.                                                  F5G07880
       TRA 2,4 RETURN TO L(TSX)+2                                       F5G07890
   S24 CLA TPE               IS IT A DED, LXP, OR LX CLASS.             F5G07900
       CAS XK21              IF SO, MAKE P=1, MAKING TEST=TMI S25       F5G07910
       ORA S5K3              WHILE IF SO MAKE TEST TPL S25.             F5G07920
       NOP                   THUS GO TO S23 AND USE IT IF LXP,DED,LX    F5G07930
       STP TEST              AND TAGS LEFT IN BB AFTER TIX, OR          F5G07940
       CLS S1V5              IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950
  TEST TMI S25               THIS MIGHT BE A TPL S25.                   F5G07960
S23    SXD IRR,1 RECORD IRN INDEX.                                      F5G07970
       TRA 1,4                                                          F5G07980
S25    LDQ ZERO      RECORD IRN FOUND OR ELIM                           F5G07990
       STQ IND1+3,1                                                     F5G08000
       CLS IN4       HAS ONE OTHER I R BEEN                             F5G08010
       TMI S26 (FOUND/ELIM)                                             F5G08020
       STO IN4                                                          F5G08030
       TRA 2,4                                                          F5G08040
S26    LXA S5K5,1 SEARCH FOR THE                                        F5G08050
S27    CLA IND1+3,1 I.R. WHICH HASNT                                    F5G08060
       TMI S23 BEEN (FOUND/ELIM) YET.                                   F5G08070
       TIX S27,1,1                                                      F5G08080
       TSX 4,4   NOT FOUND, DIAGNOSTIC                                  F5G08090
       REM THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES.   F5G08100
       REM IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES  F5G08110
       REM THE TAG FEED EXIT.  IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120
       REM LPLST AND TAKES THE LPLST FEED EXIT.  WHEN IT COMES TO A     F5G08130
       REM EPLST ITEM  WHICH IS A BB AND NOT IN A REGION, IT GOES TO    F5G08140
       REM FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150
       REM THAT BB HAS BEEN FED.  THEN IT RETURNS T0 LPLST FEED.  WHEN  F5G08160
       REM SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE     F5G08170
       REM BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE.  IT USES   F5G08180
       REM THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190
S3     LXD S3V2,1 ARE THERE ANY                                         F5G08200
       TIX S39,1,1                                                      F5G08210
       SXD S3V8,4 NO,STORE RETURN INDEX                                 F5G08220
       CLA S3V3                                                         F5G08230
       STO S3V9                                                         F5G08240
       TPL S300 ARE THERE ANY MORE TAGS IN BB                           F5G08250
       LXD S3V4,1 NO                                                    F5G08260
       CLA S3V5       WAS THE LAST THING                                F5G08270
       TPL S306       AN END LPLST                                      F5G08280
       LXD S3K3,1     YES, RESET LPLST IN0EX                            F5G08290
S306   CLA LPLST+S3P1,1      GET LOOP LIST QUANTITY                     F5G08300
       STO S3V5 QUANT1TY.                                               F5G08310
       TXI S31,1,-1                                                     F5G08320
S31    SXD S3V4,1 THE INDEX.                                            F5G08330
       CAS S3K1 IS THIS END OF LOOP LIST                                F5G08340
       TRA S32 NO,                                                      F5G08350
       TRA S35 YES,                                                     F5G08360
S32    CAS S3K2                                                         F5G08370
       NOP  NO                                                          F5G08380
       TRA S305                                                         F5G08390
       TRA S34 YES                                                      F5G08400
S305   LXD S3V8,4                                                       F5G08410
       CLA S3V5 RETURN WITH LOOP                                        F5G08420
S35    TRA 1,4        LIST QUANTITY                                     F5G08430
S34    TSX SE,4 GET INDEX OF BB                                         F5G08440
       CLA BBB+1,1                                                      F5G08450
       ANA S3K4 GET AND STORE THE                                       F5G08460
S303   STO S3V1 TAG LOCATION.                                           F5G08470
       TSX S4,4 GO TO PUT TAG IN CM.                                    F5G08480
       STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.)                      F5G08490
       SUB S4K1 FORM NO. OF                                             F5G08500
       SSP  WDS LEFT IN C.M.                                            F5G08510
       STO S3V7                                                         F5G08520
       CLA S3V5 GET THE                                                 F5G08530
       ADD ONED LOC. OF 1ST                                             F5G08540
       TSX SE,4 TAG IN                                                  F5G08550
       CLA BBB+1,1 NEXT BB.                                             F5G08560
       ANA S3K4                                                         F5G08570
       SUB S3V1 IS NO. OF TAGS IN BB LESS                               F5G08580
       CAS S3V7 THAN OR EQUAL TO SPACE IN C.M.                          F5G08590
       TRA S304                                                         F5G08600
       TRA S36 YES,                                                     F5G08610
       TRA S36 YES,                                                     F5G08620
S304   SUB S3V7      STORE S  EXCESS OF TAGS                            F5G08630
       STO S3V3                                                         F5G08640
       CLA S3V7                                                         F5G08650
S302   PAX 0,1 SET COUNT OF NO. OF TAGS.                                F5G08660
S37    TXI S38,1,1                                                      F5G08670
S38    SXD S3V2,1                                                       F5G08680
       ADD S4K3 SET ADDRESS OF                                          F5G08690
       ADD S3V6 CLA                                                     F5G08700
       STA S39 INSTRUCTION.                                             F5G08710
       LXD S3V8,4                                                       F5G08720
       CLA S3V9 IS THIS A                                               F5G08730
       TPL S3 NEW BB                                                    F5G08740
       CLA S3V5 YES,RETURN WITH                                         F5G08750
       TRA 1,4 LOOP LIST QUANTITY.                                      F5G08760
S300   CLA S4V1 NEXT TAG NEEDED HAS                                     F5G08770
       ADD S4K1 LOC. (S+1ST TAG IN C.M.)                                F5G08780
       TRA S303                                                         F5G08790
S36    LDQ S3K1                                                         F5G08800
       STQ S3V3                                                         F5G08810
       TRA S302                                                         F5G08820
S39    CLA -,1 GET TAG WORD                                             F5G08830
       SXD S3V2,1                                                       F5G08840
       STO INTAG AND                                                    F5G08850
       ANA S3K4 SEPARATE TYPE                                           F5G08860
       STO 1TAG           FROM                                          F5G08870
       CAL S3K5 TAU-TAG.                                                F5G08880
       ANA INTAG                                                        F5G08890
       STO TPE                                                          F5G08900
       TRA 2,4                                                          F5G08910
S4     CLA S3V1 FORM (LOC. OF 1ST TAG IN BB                             F5G08920
       SUB S4V1 -LOC. OF 1ST TAG IN CM)                                 F5G08930
       TMI S41 IS TAG IN C.M.                                           F5G08940
       CAS S4K1 POSSIBLY,IS IT FOR SURE                                 F5G08950
       NOP  NO                                                          F5G08960
       TRA S41       NO                                                 F5G08970
       TRA 1,4 YES. RETURN.                                             F5G08980
S41    CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB                          F5G08990
       SUB S4V2 -POSITION OF TAPE)                                      F5G09000
       TMI S42 MUST WE RUN TAPE BACK WORDS                              F5G09010
       STO S4V4 NO,                                                     F5G09020
       CLA S4V3 CAN ALL THE FOLLOWING TAGS                              F5G09030
       SUB S4V2 BE PUT IN C.M.                                          F5G09040
       CAS S4K1                                                         F5G09050
       TRA S401    NO                                                   F5G09060
       TRA S45 YES,GO,TO SET COUNT                                      F5G09070
       TRA S45 YES,TO NO. OF TAGS IN BB.                                F5G09080
S401   CLA S4V4                                                         F5G09090
       CAS S4K2 IS TAG IN NEXT RECORD                                   F5G09100
       NOP  NO                                                          F5G09110
       TRA S47                                                          F5G09120
       TRA S44 YES                                                      F5G09130
S47    RTB TAPE       NO, SPACE FWD 1 REC.                              F5G09140
       CLA S4V2 ADJUST TAPE POSITION                                    F5G09150
       ADD S4K2                                                         F5G09160
S43    STO S4V2                                                         F5G09170
       TRA S41                                                          F5G09180
S42    BST TAPE ADJUST TAPE POSITION                                    F5G09190
       CLA S4V2 AFTER BACKSPACING                                       F5G09200
       SUB S4K2 ONE RECORD.                                             F5G09210
       TRA S43                                                          F5G09220
S44    CLA S4K1 SET COUNT TO STORAGE SIZE.                              F5G09230
S45    PAX 0,2                                                          F5G09240
       ADD S4K3 SET CPY                                                 F5G09250
       STA S46 ADDRESS.                                                 F5G09=60
       CLA S4V2                                                         F5G09270
       STO S4V1                                                         F5G09280
S49    RTB TAPE                                                         F5G09290
       SXD S407,2 STORE (2) IN CASE OF TAPE CHECK                       F5G09300
       RTT  TURN OFF TAPE                                               F5G09310
       NOP  CHECK.                                                      F5G09320
       CLA S4V2 ADJUST                                                  F5G09330
       ADD S4K2 TAPE                                                    F5G09340
       STO S4V2 POSIT1ON                                                F5G09350
S46    CPY -,2                                                          F5G09360
S407   TXI S48,0,- VALUE OF (2) STORED HERE                             F5G09370
       TSX 4,4 END OF FILE OCCURRED,DIAGNOSTIC                          F5G09380
       SXD S405,4                                                       F5G09390
       TSX S406,4 CHECK REDUNDANCY BITS                                 F5G09400
       LXD S405,4                                                       F5G09410
       TRA S49                                                          F5G09420
S48    TIX S46,2,1 COUNT NO. OF WORDS CPYED.                            F5G09430
S409   CPY S4V4 COPY OUT TO                                             F5G09440
       TRA S409 END OF RECORD.                                          F5G09450
       TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC                         F5G09460
       SXD S405,4 CHECK REDUNDANCY BITS                                 F5G09470
       TSX S406,4                                                       F5G09480
       LXD S405,4                                                       F5G09490
       TRA S4                                                           F5G09500
S406   IOD                                                              F5G09510
       RTT                                                              F5G09520
       TRA S402  TRY AGAIN                                              F5G09530
       SXD TPCT,0   RESETS REPEAT COUNT                                 F5G09540
S404   TRA 1,4 RETURN                                                   F5G09550
S402   BST TAPE PREPARE TO READ AGAIN                                   F5G09560
       LXD TPCT,2 FIVE TIMES                                            F5G09570
       TXI S402A,2,1                                                    F5G09580
S402A  SXD TPCT,2                                                       F5G09590
       TXL S402B,2,4 GO ON                                              F5G09600
       TSX 4,4  NO GOOD,DIAGNOSTIC                                      F5G09610
S402B  LXD S407,2 RESET INDEX                                           F5G09620
       RTB TAPE                                                         F5G09630
       LXD S405,4                                                       F5G09640
S405   TXI S46,0,- RETURN ADDR. STORED HERE                             F5G09650
       REM TNE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660
       REM OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED   F5G09670
       REM IN LPLST.  IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680
       REM THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND      F5G09690
       REM EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5.  S5 USES F5G09700
       REM S1,S111,S6,S7,S9, AS SUBROUTINES.                            F5G09710
S5     SXD S5V1,4     STORE RETURN INDEX                                F5G09720
       STO S5V2 STORE LOOP LIST QUANTITY                                F5G09730
       TSX S9,4 GET THE ENTRANCE                                        F5G09740
       REM  REQUIREMENTS                                                F5G09750
       CLA S5K3                                                         F5G09760
       LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL            F5G09770
S51    STO ENC+8,2       STORE -0S IN THE                               F5G09780
       TIX S51,2,1 REGISTERS.                                           F5G09790
       LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09800
S54    LXA S5K5,2      SET INDEX FOR IR1, M EQUALS 1                    F5G09810
       CLA EN1+3,1                                                      F5G09820
       CAS S5K1 IS ENN EMPTY                                            F5G09830
       TRA S55 NO                                                       F5G09840
       TRA S58 YES                                                      F5G09850
S55    LDQ IN1+3,2 NO                                                   F5G09860
       TQP S56 IS IRM ASSIGNED                                          F5G09870
       CAS IR1+3,2 NO,IS C(ENM)=C(IRM)                                  F5G09880
       TRA S56 NO.                                                      F5G09890
       TRA S59 YES.                                                     F5G09900
S56    TIX S55,2,1 NO. THRU WITH IRS                                    F5G09910
S57    TIX S54,1,1 YES. THRU WITH ENS                                   F5G09920
       LXA S5K5,2 YES,SET INDEX FOR IR1,M=1                             F5G09930
S510   LXA S5K5,1 SET INDEX FOR EN1,N=1                                 F5G09940
       CLA IR1+3,2                                                      F5G09950
       CAS S5K1 IS IRM EMPTY                                            F5G09960
       TRA S511 NO                                                      F5G09970
       TRA S513 YES                                                     F5G09980
S511   LDQ IN1+3,2 NO                                                   F5G09990
       TQP S514 IS IRM ASSIGNED                                         F5G10000
       CAS S5K2 NO,IS C(IRM)REAL                                        F5G10010
       TRA S514 NO,                                                     F5G10020
       TRA S514 NO,                                                     F5G10030
S512   CLA IRC INCREASE REAL                                            F5G10040
       ADD ONEA UNASSIGNED TAG                                          F5G10050
       STO IRC COUNTER.                                                 F5G10060
       TRA S514                                                         F5G10070
S513   CLA EN4+3,1 HAS ENN                                              F5G10080
       TPL S537 BEEN ASSIGNED                                           F5G10090
       LDQ S5K2 NO,IS C(ENN)                                            F5G10100
       CLA EN1+3,1 REAL                                                 F5G10110
       TLQ S537                                                         F5G10120
       TSX S6,4 YES,MAKE IRM=ENN                                        F5G10130
       TRA S514                                                         F5G10140
S537   TIX S513,1,1 ARE WE THRU WITH EN S                               F5G10150
S514   TIX S510,2,1 YES, ARE WE THRU WITH IRS                           F5G10160
       CLA ENC YES.                                                     F5G10170
       TMI S515 ARE THERE NO EMPTY ENS                                  F5G10180
       CAS S5K4 HOW MANY EMPTY ENS.                                     F5G10190
       TRA S515     3  OR 0                                             F5G10200
       TRA S520 2 EMPTY EN                                              F5G10210
       TRA S526 1 EMPTY EN                                              F5G10220
S515   LXA S5K5,1 3 OR 0 EMPTY EN,N=1                                   F5G10230
S519   LXA S5K5,2 M=1                                                   F5G10240
       CLA EN4+3,1                                                      F5G10250
       TPL S516 ENN ASSIGNED                                            F5G10260
S518   CLA IN1+3,2 NO,IRM                                               F5G10270
       TPL S517 ASSIGNED                                                F5G10280
       TSX S6,4 NO,MAKE IRM=IRN                                         F5G10290
       TRA S516                                                         F5G10300
S517   TIX S518,2,1                                                     F5G10310
S516   TIX S519,1,1                                                     F5G10320
       LXD S5V1,4                                                       F5G10330
       TRA 1,4 RETURN                                                   F5G10340
S520   CLA IRC                                                          F5G10350
       CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS               F5G10360
       TRA S536                                                         F5G10370
       TRA S531 1,NO,GO MATCH EMPTY ENS                                 F5G10380
       TRA S531 2,NO. WITH ANY REAL UNASS. IRS                          F5G10390
S536   TSX S7,4    3, YES, TO COPY  IRS, ETC.                           F5G10400
       TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G10410
       LXA S5K5,1                                                       F5G10420
       TSX S595,4                                                       F5G10430
S521   CLA EN1+3,1 IS EN                                                F5G10440
       CAS S5K1 EMPTY                                                   F5G10450
       TRA S522 NO                                                      F5G10460
       TIX S521,1,1 INDEX COUNTER OF IR S                               F5G10470
S522   TSX S6,4 MADE ENN = IRM                                          F5G10480
S529   LXA S5K5,1                                                       F5G10490
S525   CLA IR4+3,1    REPLACE THE IRS                                   F5G10500
       STO IR1+3,1                                                      F5G10510
       TIX S525,1,1                                                     F5G10520
       TRA S515                                                         F5G10530
S526   LDQ IRC                                                          F5G10540
       CLA S5K4 ARE THERE 2 OR 3 REAL                                   F5G10550
       TLQ S530 UNASSNED TAGS                                           F5G10560
       TSX S7,4 YES,COPY IRS                                            F5G10570
       TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R.                       F5G10580
       TSX S595,4                                                       F5G10590
       LXA S5K5,1 ASSIGN THE EMPTY                                      F5G10600
S527   CLA EN1+3,1 EN TO THE IR                                         F5G10610
       CAS S5K1 SELECTED                                                F5G10620
       TRA S528                                                         F5G10630
       TSX S6,4 BY                                                      F5G10640
S528   TIX S527,1,1 S111.                                               F5G10650
       TRA S529                                                         F5G10660
S530   TQP S531 IS THERE ONE REAL TAG                                   F5G10670
       TRA S515 NO,GO MATCH ARBITRARILY.                                F5G10680
S531   LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G10690
       LXA S5K5,2 SET COUNT TO 3,M=1                                    F5G10700
S532   CLA EN1+3,1 IS ENN                                               F5G10710
       CAS S5K1 EMPTY                                                   F5G10720
       TRA S533 NO,                                                     F5G10730
       TRA S534 YES,                                                    F5G10740
S533   TIX S532,1,1 NO,THRU WITH ENS                                    F5G10750
       TRA S515 YES.                                                    F5G10760
S534   CLA IN1+3,2                                                      F5G10770
       TPL S535                                                         F5G10780
       CLA IR1+3,2 NO                                                   F5G10790
       CAS S5K2 IS C (IRM) REAL                                         F5G10800
       NOP  N0                                                          F5G10810
       TRA S535                                                         F5G10820
       TSX S6,4 YES                                                     F5G10830
       TRA S515                                                         F5G10840
S535   TIX S534,2,1 NO                                                  F5G10850
       TRA S533                                                         F5G10860
S58    CLA ENC YESENM EMPTY                                             F5G10870
       ADD ONEA INCREASE COUNTER                                        F5G10880
       STO ENC OF NO. OF EMPTY ENS.                                     F5G10890
       TRA S57                                                          F5G10900
S59    TSX S6,4 MAKE IRM=ENN                                            F5G10910
       TRA S57                                                          F5G10920
S595   LXD IRR,2                                                        F5G10930
       CLA IR1+3,2                                                      F5G10940
       CAS S7K1                                                         F5G10950
       TRA 1,4                                                          F5G10960
       TRA S529                                                         F5G10970
       TRA 1,4                                                          F5G10980
S6     PXD 0,1                                                          F5G10990
       STO IN1+3,2                                                      F5G11000
       PXD 0,2                                                          F5G11010
       STO EN4+3,1                                                      F5G11020
       TRA 1,4                                                          F5G11030
S7     LXA S5K5,1 SET COUNT TO 3,M=1                                    F5G11040
S71    CLA IR1+3,1 COPY ASIDE C(IRM)                                    F5G11050
       STO IR4+3,1                                                      F5G11060
       LDQ IN1+3,1 IRM ASSIGNED                                         F5G11070
       TQP S72                                                          F5G11080
       CAS S5K2 NO, IS C(IRM) REAL                                      F5G11090
       NOP                                                              F5G11100
       TRA S72 NO                                                       F5G11110
       TRA S73 YES.                                                     F5G11120
S72    CLA S7K1 NO,REPLACE C(IRM)                                       F5G11130
       STO IR1+3,1 BY IMPOSSIBLE TAG.                                   F5G11140
S73    TIX S71,1,1 COUNT TO 3,M=M+1                                     F5G11150
       TRA 1,4 RETURN                                                   F5G11160
S7K1   OCT 777760 IMPOSSIBLE TAG VALUE.                                 F5G11170
       REM THE S9 SUBROUTINE LOADS EN1,2,3.                             F5G11180
S9     SXD S9V2,4 STORE RETURN INDEX.                                   F5G11190
       TSX SE,4 MAKE SURE BB IS IN C+M+                                 F5G11200
       CLA BBB+5,1 GET AND                                              F5G11210
       PDX 0,2 STORE THE                                                F5G11220
       CLA REG,2 REGION                                                 F5G11230
       STO S9V4 WORD+                                                   F5G11240
       LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G11250
       CLA BBB+1,1 STORE THE WORD                                       F5G11260
       STO S9V1 CONTAINING THE PERMATATION NOS.                         F5G11270
S92    CLA S9V1 EXTRACT THE N TH                                        F5G11280
       ARS 3,2 PERMUTATION NO.                                          F5G11290
       ARS 3,2 AND PUT IT                                               F5G11300
       ANA S9K3 IN                                                      F5G11310
       PDX 0,4 INDEX 4.                                                 F5G11320
       CAL S9V4 IS THIS                                                 F5G11330
       ANA S9K2+3,4 AN EMPTY                                            F5G11340
       TZE S93 I.R.                                                     F5G11350
       CLA S5K1 YES,STORE EMPTINESS SYMBOL                              F5G11360
S94    STO EN1+3,4                                                      F5G11370
       TXI S91,1,-1      DOWN THE ENTR. INDEX                           F5G11380
S91    TIX S92,2,1 COUNT TO 3                                           F5G11390
       LXD S9V2,4                                                       F5G11400
       TRA 1,4 RETURN                                                   F5G11410
S93    CAL BBB+2,1 SET THE                                              F5G11420
       ARS 18 ENTRANCE REQUIREMENT.                                     F5G11430
       CAS S5K1 IS IT AN EMPTINESS SYMBOL                               F5G11440
       TRA S94 NO,                                                      F5G11450
       CLA LK1 YES,STORE E,(HASH SYMBOL).                               F5G11460
       TRA S94 NO,                                                      F5G11470
       REM THE SA SUBROUTINE LOADS EX1,2,3 ANO ACT1,2,3 FROM EXIT       F5G11480
       REM CONDITIONS AND ACTIVITY BITS (PREFIX, WORD 2, BBB) OF THE    F5G11490
       REM EXIT BB IN A REGION.                                         F5G11500
SA     SXD SAV2,4 STORE RETURN INDEX.                                   F5G11510
       ANA SBK2         IF THIS IS AN IMPOSSIBLE BB,                    F5G11520
       LDQ SAK1         RETURN AT ONCE, DOING NOTHING                   F5G11530
       TLQ 1,4                                                          F5G11540
       TSX SE1,4 MAKE SURE BB IS IN CM.                                 F5G11550
       CLA BBB+5,1 GET AND                                              F5G11560
       PDX 0,2 STORE                                                    F5G11570
       CLA REG,2 REGION                                                 F5G11580
       STO SAV3 WORD.                                                   F5G11590
       CLA BBB+1,1 GET AND STORE THE                                    F5G11600
       STO SAV1 WORD HAVING PERMUTATION N0S.                            F5G11610
       LXA S5K5,2 SET COUNT TO 3,N=N+1                                  F5G11620
SA1    CAL SAV1 PUT PERMUTATION                                         F5G11630
       ARS 3,2 NUMBER                                                   F5G11640
       ARS 3,2 IN                                                       F5G11650
       ANA S9K3 INDEX 4                                                 F5G11660
       PDX 0,4                                                          F5G11670
       CAL SAV3 IS THIS                                                 F5G11680
       ANA S9K2+3,4 AN EMPTY                                            F5G11690
       TZE SA2 EXIT                                                     F5G11700
       CLA S5K1 YES,STORE EMPTINESS SYMBOL.                             F5G11710
SA4    STO EX1+3,4                                                      F5G11720
SA5    CAL SAV1       STORE THE                                         F5G11730
       ALS 3,2 ACTIVE                                                   F5G11740
       SLW ACT1+3,4        INDICATOR                                    F5G11750
       TXI SA3,1,-1                                                     F5G11760
SA3    TIX SA1,2,1 COUNT TO 3                                           F5G11770
       LXD SAV2,4                                                       F5G11780
       TRA 1,4          RETURN                                          F5G11790
SA2    CAL BBB+2,1                                                      F5G11800
       ANA S3K4 IS THIS                                                 F5G11810
       CAS S5K1 AN EMPTY SYMBOL                                         F5G11820
       TRA SA4 NO                                                       F5G11830
       CLA LK1 YES REPLACE BY E.                                        F5G11840
       TRA SA4 NO                                                       F5G11850
       REM THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860
       REM COMPILATION.  THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS   F5G11870
       REM EXAMINED.  IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB     F5G11880
       REM ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE    F5G11890
       REM LINK OUT OF THE REGION.  IF IT IS POSITIVE (ACTIVE INSTRUC.  F5G11900
       REM IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG     F5G11910
       REM TABLE AT THE ACTIVE INSTRUCTION.  THE APPROPRIATE AC1,2, OR 3F5G11920
       REM IS ALSO TURNED OFF BY SB.                                    F5G11930
SB     SXD SBV4,1 STORE INDEX OF ACTIVE I.R+                            F5G11940
       SXD SBV1,4 STORE INDEX OF RETURN,                                F5G11950
       CLA AC1+3,1 IS THE ACTIVE THING                                  F5G11960
       TPL SB1 AN INSTRUCTION                                           F5G11970
       PDX 0,1 N0                                                       F5G11980
       CLA LPLST+S3P1,1 GET + STORE                                     F5G11990
       CAS S3K2 PRED. BB                                                F5G12000
       NOP                                                              F5G12010
       TRA SB01                                                         F5G12020
       ARS 18 NO                                                        F5G12030
SB01   STA SBV3                                                         F5G12040
       CLA LPLST+S3P1+1,1                                               F5G12050
       CAS S3K1 END LOOP LIST SENTINEL                                  F5G12060
       TRA SB7 NO,                                                      F5G12070
       CLA LPLST YES,SUCCESSOR IS 1ST ENTRY.                            F5G12080
SB7    TSX SE,4 NO,GET ADDR. OF                                         F5G12090
       CLA BBB+1,1 PRED.                                                F5G12100
       STO SBV5 STORE PERMUTATION NOS.                                  F5G12110
       CLA BBB,1 GET ADDR OF 1ST PRED.                                  F5G12120
SB4    SLW SBV2                                                         F5G12130
       TSX SE5,4                                                        F5G12140
       CAL PRED,1                                                       F5G12150
       ANA SBK2                                                         F5G12160
       CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G12170
       TRA SB2 NO                                                       F5G12180
       TRA SB5 YES                                                      F5G12190
SB2    CLA SBV2 NO TRY NEXT PRED.                                       F5G12200
       ADD ONEA                                                         F5G12210
       TRA SB4                                                          F5G12220
SB5    LXA S5K5,2                                                       F5G12230
SB00   CAL SBV5 SEARCH PERMUTATION                                      F5G12240
       ARS 3,2 NOS. FOR THE INDEX                                       F5G12250
       ARS 3,2 STORED IN SBV4                                           F5G12260
       ANA S9K3                                                         F5G12270
       CAS SBV4 IS THIS PERMUTATION NO.                                 F5G12280
       TRA SB8 NO EQUAL TO THE ACTIVE                                   F5G12290
       TRA SB9 YES IR                                                   F5G12300
SB8    TIX SB00,2,1 NO                                                  F5G12310
       TSX 4,4 DIAGNOSTIC,ERROR                                         F5G12320
SB9    CLA SBK3 GENERATE NO STORE                                       F5G12330
       ARS 3,2 THE                                                      F5G12340
       ORS PRED,1 SX FIT IN                                             F5G12350
       TRA SB6 PRED. TABLE.                                             F5G12360
SB1    ANA S3K4                                                         F5G12370
       LRS 35 COMPUTE NO. OF WORD IN                                    F5G12380
       DVP XK9 STAG AND POSITION OF SX                                  F5G12390
       PAX 0,2 FIT IN WORD.                                             F5G12400
       CAL SBK1 GENERATE                                                F5G12410
       ALS 8,2 THE BIT                                                  F5G12420
       SLW SBV2 TO                                                      F5G12430
       REM  STORE.                                                      F5G12440
       LLS 35 GET NO. OF WORD OUT OF MQ.                                F5G12450
       TSX SE4,4 MAKE SURE THE WD IS IN C.M.                            F5G12460
       CAL SBV2                                                         F5G12470
       ORS STAG,1                                                       F5G12480
SB6    CLA ZERO SET IR                                                  F5G12490
       LXD SBV4,1 TO  F                                                 F5G12500
       STO AC1+3,1 NOT ACTIVE.                                          F5G12510
       LXD SBV1,4 RE-                                                   F5G12520
       TRA 1,4 TURN                                                     F5G12530
       REM THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX     F5G12540
       REM REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION.  THIS  F5G12550
       REM POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND.  F5G12560
       REM THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2,  F5G12570
       REM BBB TABLE FOR ALL BB,S DURINC WHICH IN0EX REGISTER IS ACTIVE.F5G12580
       REM THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590
       REM TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600
       REM ING A SECTION OF LPLST ACTIVE.  ALL BB,S BETWEEN THE ORIGIN  F5G12610
       REM OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC 1S    F5G12620
       REM ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS     F5G12630
       REM TURNED OFF.  SD IS USED AS A SUBROUTINE, DOING THE ACTUAL    F5G12640
       REM MARKING OF BB,S ACTIVE.                                      F5G12650
SC     CLA AC1+3,1 IS IR                                                F5G12660
       TZE 1,4 ACTIVE                                                   F5G12670
       SXD SCV1,4 YES,STORE RETURN                                      F5G12680
       SXD SC9,1 AND INDEX OF ACT1VE I.R+                               F5G12690
       STD SCV3 STORE INDEX OF LOOP LIST.                               F5G12700
       CLA SCV3 IS THIS THE CURRENT                                     F5G12710
       SUB ONED                                                         F5G12720
       SBM S3V4       IS THIS THE CURRENT LPLST INDEX                   F5G12730
       TNZ SC40                                                         F5G12740
       CLA ACIND      YES                                               F5G12750
       TPL 1,4        IS THIS THE ACTIVE PASS                           F5G12760
SC40   LXD SCV3,2     YES                                               F5G12770
       CLA LPLST+S3P1,2                                                 F5G12780
       CAS S3K2       IS 1ST AACTIVE QUANTITY A BB                      F5G12790
       TRA SC02                                                         F5G12800
       TRA SC02       NO                                                F5G12810
       TRA SC8        YES                                               F5G12820
SC4    SUB ONED       IS THIS CURRENT                                   F5G12830
       CAS S3V4       LOOP LIST INDEX                                   F5G12840
       TRA SC2 NO,                                                      F5G12850
       TRA SC5 YES,                                                     F5G12860
SC2    LXD SCV3,2 NO,                                                   F5G12870
       CLA LPLST+S3P1,2                                                 F5G12880
       CAS S3K1 IS IT END LOOP LIST                                     F5G12890
       TRA SC3 NO,                                                      F5G12900
       TRA SC6 YES,                                                     F5G12910
SC3    CAS S3K2 NO,IS IT A BB                                           F5G12920
       NOP  NO,                                                         F5G12930
       TRA SC04                                                         F5G12940
       TRA SC8 YES,                                                     F5G12950
SC04   LXD SC9,2      NO, PUT INDEX OF ACTIVE IR                        F5G12960
       TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE.                       F5G12970
SC02   CLA SCV3 PREPARE TO GET                                          F5G12980
       SUB ONED       NEXT                                              F5G12990
SC7    STD SCV3 LOOP LIST QUANTITY.                                     F5G13000
       TRA SC4                                                          F5G13010
SC5    LXD SC9,1                                                        F5G13020
       CLA ZERO RECORD I.R. NOT                                         F5G13030
       STO AC1+3,1 ACTIVE ANYMORE.                                      F5G13040
       LXD SCV1,4                                                       F5G13050
       TRA 1,4 RETURN.                                                  F5G13060
SC6    CLA S3K3          ARRANGE TO GET 1ST LPLST QUANTITY              F5G13070
       TRA SC7 QUANTITY NEXT.                                           F5G13080
SC8    TSX SE,4                                                         F5G13090
       SXD SCV2,1 GET INDEX OF BB                                       F5G13100
SC9    TXI SC01,1,0 INCREASE INDEX BY INDEX OF OCT. I.R.                F5G13110
SC01   CLA BBB+5,1 GET THE                                              F5G13120
       ANA S3K4 EXIT CONDITION.                                         F5G13130
       LXD SC9,2 IS EXIT COND. SAME                                     F5G13140
       CAS IR1+3,2 AS TAG IN ACTIVE I.RH                                F5G13150
       TRA SC02 NO,                                                     F5G13160
       TRA SC03 YES,                                                    F5G13170
       TRA SC02 NO,                                                     F5G13180
SC03   CAL S5K3 RECORD THAT BB IS                                       F5G13190
       ARS 3,2 ACTIVE                                                   F5G13200
       LXD SCV2,1 WO THIS                                               F5G13210
       ORS BBB+1,1 I+R.                                                 F5G13220
       TRA SC02                                                         F5G13230
SD     SXD SDV2,2                                                       F5G13240
       SXD SDV1,4 STORE RETURN.                                         F5G13250
       TSX SE,4 GET INDEX OF BB                                         F5G13260
       CLA BBB+5,1 GET                                                  F5G13070
       PDX 0,1 REGION                                                   F5G13280
       CLA REG,1 WORD.                                                  F5G13290
       TSX SE,4 GET BB INDEX.                                           F5G13300
SD7    SXD SDV4,1                                                       F5G13310
       CLA BBB+1,1 STORE                                                F5G13320
       STO SDV3 AWAY THE PERMUTATION NOS.                               F5G13330
       LXA S5K5,2 SET COUNT TO 3,N=1                                    F5G13340
SD3    CAL SDV3 IS                                                      F5G13350
       ARS 3,2 PERMUTATION NO.                                          F5G13360
       ARS 3,2                                                          F5G13370
       ANA S9K3 N EQUAL                                                 F5G13380
       CAS SDV2 TO I.R. INDEX                                           F5G13390
       TRA SD1 NO                                                       F5G13400
       TRA SD4 YES                                                      F5G13410
SD1    TXI SD1+1,1,-1    NO                                             F5G13420
SD2    TIX SD3,2,1 COUNT TO 3                                           F5G13430
       TSX 4,4                                                          F5G13440
SD4    CAL BBB+2,1                                                      F5G13450
       ANA S3K4 IS TAG IN                                               F5G13460
       LXD SDV2,4 EXIT CONDITION                                        F5G13470
       LXD SDV4,1 SAME AS IN ACTIVE I.R.                                F5G13480
       CAS IR1+3,4                                                      F5G13490
       TRA SD5 NO                                                       F5G13500
       TRA SD9 YES,IS                                                   F5G13510
SD5    CAL BBB+5,1 NO THIS LAST                                         F5G13520
       ANA SBK2 BB                                                      F5G13530
       CAS SBK2 IN REGION                                               F5G13540
       TRA SD6 NO                                                       F5G13550
       TRA SD8 YES                                                      F5G13560
SD6    TSX SE1,4 NO                                                     F5G13570
       TRA SD7                                                          F5G13580
SD8    LXD SDV1,4 RETURN                                                F5G13590
       TRA 1,4                                                          F5G13600
SD9    CAL S5K3 RECORD THIS BB                                          F5G13610
       ARS 3,2 ACTIVE                                                   F5G13620
       ORS BBB+1,1 WO THIS IR                                           F5G13630
       TRA SD5                                                          F5G13640
       REM THE SF SUBROUTINE FORMS APPROPRIATE AC1,2,3 ENTRY WHEN AN    F5G13650
       REM ACTIVE INSTRUCTION IS ENCOUNTERED.                           F5G13660
SF     CLA TPE IS THIS                                                  F5G13670
       CAS S2K2 AN LX                                                   F5G13680
       TRA SF1 NO,                                                      F5G13690
       TRA SF4 YES,                                                     F5G13700
SF1    CAS XK12 NO,IS IT AN ACTIVE INSTR                                F5G13710
       TRA 1,4 NO RETURN                                                F5G13720
       TRA SF4 YES,                                                     F5G13730
       TRA 1,4 NO                                                       F5G13740
SF4    CLA XV5 FORM QUANTITY TO                                         F5G13750
       STO SFV1 BE PUT                                                  F5G13760
       LXD S3V4,2 INTO                                                  F5G13770
       TXI SF5,2,1 ACTIVE                                               F5G13780
SF5    SXD SFV1,2        INDICATOR                                      F5G13790
       TRA 2,4                                                          F5G13800
       REM   PERMUTE THE PHI AND LX BITS  SUBROUTINE                    F5G13810
       REM THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG  F5G13820
       REM ENTRY.                                                       F5G13830
SG     SXD SGV1,4          SAVE RETURN                                  F5G13840
       LDQ ONEA            SET NEN LX AND PHI BITS TO ONEA              F5G13850
       STQ SGV2                                                         F5G13860
       CLA S3V5            GET INDEX OF REGION WORD                     F5G13870
       TSX SE,4                                                         F5G13880
       CLA BBB+5,1                                                      F5G13890
       PDX 0,2                                                          F5G13900
       LXA S5K5,4          SET COUNT T0 3                               F5G13910
SG1    CLA EN4+3,4         FIND INDEX OF IR                             F5G13920
       PDX 0,1                                                          F5G13930
       CAL REG,2           PERMUTE THE LX BIT                           F5G13940
       ALS 3,4                                                          F5G13950
       ANA S5K3                                                         F5G13960
       ARS 3,1                                                          F5G13970
       ORS SGV2                                                         F5G13980
       CAL REG,2           PERMUTE THE PHI BIT                          F5G13990
       ARS 3,4                                                          F5G14000
       ANA XK23                                                         F5G14010
       ALS 3,1                                                          F5G14020
       ORS SGV2                                                         F5G14030
       TIX SG1,4,1       COUNT TO 3                                     F5G14040
       CAL REG,2                                                        F5G14050
       ANA SEK4                                                         F5G14060
       ORA SGV2                                                         F5G14070
       SLW REG,2                                                        F5G14080
       LXD SGV1,4          RETURN                                       F5G14090
       TRA 1,4                                                          F5G14100
       REM THE F1 SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110
       REM A GIVEN BB AND STORES 1T IN FV 101.                          F5G14120
F1     SXD FV6,4 STORE RETURN                                           F5G14130
       LDQ ZERO SET HIGHEST                                             F5G14140
       STQ FV101 FREQ. TO 0.                                            F5G14150
       STO FV102 STORE BB NO+                                           F5G14160
       TSX SE1,4 GET INDEX OF BB                                        F5G14170
       CLA BBB+5,1 STORE REGION                                         F5G14180
       STO FV104 NO. WORD.                                              F5G14190
       CAL BBB,1 GET PRED.                                              F5G14200
       STA FV7 NO. AND STORE IT                                         F5G14210
       CAL FV102           GET AND STORE                                F5G14220
       ADD ONEA FIRST PRED. IN                                          F5G14230
       TSX SE1,4 NEXT B.B.                                              F5G14240
       CLA BBB,1                                                        F5G14250
       STA FV8                                                          F5G14260
       CLA FV7 IS TH1S PRED.                                            F5G14270
F4     CAS FV8 IN SAME BB                                               F5G14280
       TRA F2                                                           F5G14290
       TRA F5 NO                                                        F5G14300
F2     TSX SE5,4 GET INDEX 0F PRED                                      F5G14310
       CLA PRED,1                                                       F5G14320
       CAS FV101 IS THIS FREQ. GREATER                                  F5G14330
       TRA F92                                                          F5G14340
       NOP                                                              F5G14350
       TRA F3 NO                                                        F5G14360
F92    STO FV101     STORE NEW MAX.                                     F5G14370
       CLA FV7 STORE NEW                                                F5G14380
       STO FV103 PRED. NO.                                              F5G14390
F3     CLA FV7 ARRANGE TO                                               F5G14400
       ADD ONEA CONSIDER NEXT PRED.                                     F5G14410
       STA FV7                                                          F5G14420
       TRA F4                                                           F5G14430
F5     LXD FV6,4                                                        F5G14440
       TRA 1,4 RETURN                                                   F5G14450
       REM THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460
       REM A GIVEN BB AND STORES IT IN FV 101.                          F5G14470
F30    SXD FV6,4                                                        F5G14480
       LDQ ZERO SET HIGHEST FREQH                                       F5G14490
       STQ FV101 TO 0.                                                  F5G14500
       STO FV102 STORE BB NO.                                           F5G14510
       TSX SE,4                                                         F5G14520
       CLA BBB+5,1                                                      F5G14530
       STO FV104                                                        F5G14540
       CAL BBB,1 GET SUCC. NO.                                          F5G14550
       STD FV9          AND STORE IT                                    F5G14560
       CAL FV102           GET AND STORE                                F5G14570
       ADD ONED SUCC.                                                   F5G14580
       TSX SE,4 NO.                                                     F5G14590
       CLA BBB,1 OF 1ST SUCC.                                           F5G14600
       STD FV10       IN NEXT BB                                        F5G14610
       CLA FV9                                                          F5G14620
F31    CAS FV10     IS SUCC IN SAME BB                                  F5G14630
       TRA F32                                                          F5G14640
       TRA F34 N0.                                                      F5G14650
F32    TSX SE6,4 GET INDEX OF SUCC.                                     F5G14660
       CLA SUCC,1                                                       F5G14670
       CAS FV101 IS THIS FREQ. GREATER                                  F5G14680
       TRA F93                                                          F5G14690
       NOP                                                              F5G14700
       TRA F33 NO                                                       F5G14710
F93    STO FV101      STORE NEW MAX.                                    F5G14720
       CLA FV9       STORE NEW                                          F5G14730
       STO FV103 SUCC. NO.                                              F5G14740
F33    CLA FV9       ARRANGE TO CONSIDER                                F5G14750
       ADD ONED NEXT SUCC.                                              F5G14760
       STD FV9                                                          F5G14770
       TRA F31                                                          F5G14780
F34    LXD FV6,4                                                        F5G14790
       TRA 1,4 RETURN                                                   F5G14800
F      CLA ZERO SET INDICATOR TO SAY                                    F5G14810
       STO LPIND THIS ISNT A LOOP.                                      F5G14820
       STO FV1 SET HIGHEST FREQ. TO 0.                                  F5G14630
       STO FV5        SET TO CONSIDER 0TH BB                            F5G14840
F7     CLA FV5                                                          F5G14850
       TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER                   F5G14860
       CLA FV101 IS IT GREATER THAN                                     F5G14870
       CAS FV1 PREVIOUS MAXIMUM                                         F5G14880
       TRA F85                                                          F5G14890
       NOP                                                              F5G14900
       TRA F6 NO+                                                       F5G14910
F85    STO FV1      REPLACE PREV. MAX.                                  F5G14920
       CLA FV102 AND BB NO.                                             F5G14930
       STO FV2                                                          F5G14940
       CLA FV103 AND PRED. NO.                                          F5G14950
       STO FV3                                                          F5G14960
       CLA FV104 AND REGION NO. WORD.                                   F5G14970
       STO FV4                                                          F5G14980
F6     CLA FV5 ARRANGE TO CONSIDER NEXT                                 F5G14990
       ADD ONEA B.B.                                                    F5G15000
       STO FV5                                                          F5G15010
       SUB KEYS                                                         F5G15020
       ADD ONEA                                                         F5G15030
       TNZ F7         WAS THIS THE LAST BB                              F5G15040
 F86   DCT         YES, IF ANY DIVIDE CHECKS GO                         F5G15050
       TSX 4,4     TO DIAGNOSTIC.                                       F5G15060
       CLA FV1     NO DVD CHECKS, WERE THERE ANY                        F5G15070
       TNZ F86A    UNCONSIDERED PREDS                                   F5G15080
       TRA R  NO,CONTINUE PROGRAM, PART I DONE.                         F5G15090
 F86A  CLA FV4     YES                                                  F5G15100
       TZE F9 IS THIS A REGION ALREADY                                  F5G15110
       PDX 0,1 YES.                                                     F5G15120
       CLA REG,1 GET REGION WORD.                                       F5G15130
       ANA FK3                                                          F5G15140
       TZE F8 IS IT AN OPAQUE REGION                                    F5G15150
       CLA FK1 NO,GET TRANSPARENT REGION MARKER.                        F5G15160
       TRA F9                                                           F5G15170
F8     CLA FK2 GET OPAQUE REGION MARKER.                                F5G15180
F9     STO LPLST+S3P1-2                                                 F5G15190
       CLA FV2 STORE THE REGION MARKER                                  F5G15200
       ALS 18 AT END OF LPLST.                                          F5G15210
       STD LPLST+S3P1-2                                                 F5G15220
       CLA S9K3 INITIALIZE THE STORING                                  F5G15230
       STD F11 POSITION IN LPLST.                                       F5G15240
F23    CLA FV1 GET INDEX                                                F5G15250
       TSX SE1,4 OF BB UP FOR ENTRY.                                    F5G15260
       CLA BBB+5,1 IS THIS BB IN                                        F5G15270
       TZE F57 A REGION                                                 F5G15280
       PDX 0,2 YES                                                      F5G15290
       CLA REG,2 GET AND STORE                                          F5G15300
       STO FV4 REGION WORD                                              F5G15310
       ANA FK3                                                          F5G15320
       TZE F55 IS IT AN OPAQUE REGION                                   F5G15330
       LXA S5K4,1      NO, TRANSPARENT                                  F5G15340
F12    CLA LPLST+S3P1,1                                                 F5G15350
       TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED.        F5G15360
F25    SXD F18,1                                                        F5G15370
F11    TXH F19,1,K ARE WE THRU WITH COMPARISONS                         F5G15380
       CAS S3K2 NO,IS THIS BB ENTRY                                     F5G15390
       NOP                                                              F5G15400
       TRA F87                                                          F5G15410
       TRA F12 YES.                                                     F5G15420
F87    TSX SE,4      GET INDEX OF BB                                    F5G15430
       CLA BBB+5,1 GET                                                  F5G15440
       PDX 0,1 REGION                                                   F5G15450
       CLA REG,1 WORD.                                                  F5G15460
       LXD F18,1                                                        F5G15470
       CAS FV4 IS THIS THE SAME REGION                                  F5G15480
       TRA F12 NO                                                       F5G15490
       TRA F100                                                         F5G15500
       TRA F12 NO                                                       F5G15510
F100   CLA FV1             PUT EXIT BB NO.                              F5G15520
       STA LPLST+S3P1+1,1     IN TR. REG. QUANTITY                      F5G15530
F13    TIX F24,1,1 GENERATE INDEX OF LAST THING TO BE MOVED UP.         F5G15540
F24    LXD F11,2 GET INDEX TO GENERATE INDEX OF 1ST THING               F5G15550
F43    SXD F18,1 STORE INDEX OF LAST THING                              F5G15560
       LDQ S3K1 RECORD                                                  F5G15570
       STQ LPIND LOOP.                                                  F5G15580
       TIX F14,2,1 GENERATE INDEX OF 1ST THING                          F5G15590
F14    TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+                        F5G15600
       TSX F80,4                                                        F5G15610
       TRA L TO 1ST LXING PASS.                                         F5G15620
F19    CLA FK1                                                          F5G15630
       LXD F11,1 STORE TRANSPARENT                                      F5G15640
       STO LPLST+S3P1,1 REGION MARKER                                   F5G15650
       CLA FV1                                                          F5G15660
       STA LPLST+S3P1,1                                                 F5G15670
       TSX SE1,4 FIND BB INDEX.                                         F5G15680
       CLA ZERO SET INITIAL MAX                                         F5G15690
       STO FV1 FREQ. TO 0+                                              F5G15700
       CLA BBB+5,1 GET THE                                              F5G15710
       PDX 0,1 REGION                                                   F5G15720
       CLA REG,1 WORD                                                   F5G15730
       ARS 18                                                           F5G15740
F21    TSX F1,4 DETERMINE MOST FREQ. PRED IN BB.                        F5G15750
       CLA FV101 IS IT MORE FREQ. THAN                                  F5G15760
       CAS FV1 PREV. MAX.                                               F5G15770
       TRA F88                                                          F5G15780
       NOP                                                              F5G15790
       TRA F20 NO.                                                      F5G15800
F88    STO FV1     REPLACE PREV.  MAX.                                  F5G15810
       CLA FV102 AND BB NO.                                             F5G15820
       STO FV2 AND                                                      F5G15830
       CLA FV103 PRED. NO.                                              F5G15840
       STO FV3 AND                                                      F5G15850
       CLA FV104 REGION NO. WORD.                                       F5G15860
       STO FV4                                                          F5G15870
F20    CLA FV104 ARRANGE TO CONSIDER THE                                F5G15880
       ANA SBK2 NEXT B.B. IN REGION.                                    F5G15890
       CAS SBK2 ARE WE THRU WITH REGION                                 F5G15900
       TRA F21                                                          F5G15910
       TRA F22 YES                                                      F5G15920
       TRA F21                                                          F5G15930
F22    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G15940
       TZE F28 PRED                                                     F5G15950
       CLA FV2 YES,STORE THE                                            F5G15960
       LXD F11,1 ENTRY B.B.                                             F5G15970
       ALS 18 NO.                                                       F5G15980
       STD LPLST+S3P1,1                                                 F5G15990
       TXI F70,1,1 UP THE STORING INDEX                                 F5G16000
F70    SXD F11,1                                                        F5G16010
       TXH F73,1,S3P1 IS LPLST FULL                                     F5G16020
       TRA F23                                                          F5G16030
F28    LXD F11,2                                                        F5G16040
F56    LXA S5K4,1                                                       F5G16050
       SXD F18,1                                                        F5G16060
       TSX F15,4 NONE LPLST UP.                                         F5G16070
       CLA LPLST-1                                                      F5G16080
       CAS FK4 IS THIS AN OPAQUE REGION                                 F5G16090
       NOP                                                              F5G16100
       TRA F75 TO 2ED LXING PASS.                                       F5G16110
  POO2 TXH F29,1,2                                                      F5G16120
       TRA F75                                                          F5G16130
F73    CLA SEK4 STORE SPECIAL                                           F5G16140
       STD LPLST SYMBOL IN DECR. PART OF 1STSLPLST                      F5G16150
       TRA F53 QUANTITY                                                 F5G16160
F15    LXD S3K3,1 SET INDEX TO START OF LOOP LIST.                      F5G16170
F26    CLA LPLST+S3P1,2 MOVE THIS                                       F5G16180
       STO LPLST+S3P1,1 ENTRY UP.                                       F5G16190
F18    TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED.             F5G16200
       TIX F16,1,1 NO.                                                  F5G16210
F16    TIX F26,2,1 ARE WE FINISHED COPYING                              F5G16220
F17    STO LPLST-1 CASE OF LOOP,STORE PRED. 0F 1ST ELEMENT.             F5G16230
       CLA S3K1 STORE THE END                                           F5G16240
       STO LPLST+S3P1+1,1 LOOP LIST QUANTITY.                           F5G16250
       TRA 1,4                                                          F5G16260
F29    SXD F39,1 INITIALIZE STORING LOCATION.                           F5G16270
F64    CAS S3K2 ISNT OPAQUE REGIONH IS IT BE                            F5G16280
       NOP  NO.                                                         F5G16290
       TRA F89                                                          F5G16300
       TRA F44 YES.                                                     F5G16310
F89    LDQ ZERO   NO, SET INITIAL                                       F5G16320
       STQ FV1 FREQ+ TO 0.                                              F5G16330
       TSX SE,4 GET                                                     F5G16340
       CLA BBB+5,1 REGION                                               F5G16350
       PDX 0,1 NO.                                                      F5G16360
       CLA REG,1 GET NO. OF 1ST BB IN REGION                            F5G16370
F35    TSX F30,4  DETERMINE MOST FREQ SUCC IN BB                        F5G16380
       CLA FV101 IS IT MORE FREQ. THAN                                  F5G16390
       CAS FV1 PREV+ MAX                                                F5G16400
       TRA F90                                                          F5G16410
       NOP  YES,                                                        F5G16420
       TRA F36 NO                                                       F5G16430
F90    STO FV1    YES, REPLACE PREV.MAX.                                F5G16440
       CLA FV102 AND BB NO.                                             F5G16450
       STO FV2 AND                                                      F5G16460
       CLA FV103 SUCC. NO+                                              F5G16470
       STO FV3 AND                                                      F5G16480
       CLA FV104 REGION NO. WORD                                        F5G16490
       STO FV4                                                          F5G16500
F36    CLA FV104 ARRANGE TO CONSIDER THE                                F5G16510
       ANA SBK2 NEXT BB IN REGION                                       F5G16520
       CAS SBK2 IS IT LAST BB IN REGION                                 F5G16530
       TRA F94                                                          F5G16540
       TRA F37 YES                                                      F5G16550
F94    ALS 18                                                           F5G16560
       TRA F35                                                          F5G16570
F37    CLA FV1 WAS THERE AN UNCONSIDERED                                F5G16580
       LXD F39,1 SUCC                                                   F5G16590
       TZE F47                                                          F5G16600
       CLA FV2 EXIT BB                                                  F5G16610
       ARS 18 NO.                                                       F5G16620
       STA LPLST+S3P1,1                                                 F5G16630
F45    TIX F62,1,1 DOWN THE STORING                                     F5G16640
F62    SXD F39,1 INDEX.                                                 F5G16650
       CLA FV1 GET INDEX OF                                             F5G16660
       TSX SE1,4 BB UP FOR ENTRY.                                       F5G16670
       CLA BBB+5,1 IS THIS BB IN                                        F5G16680
       TZE F48 A REGION                                                 F5G16690
       PDX 0,2 YES.                                                     F5G16700
       CLA REG,2 GET AND                                                F5G16710
       STO FV4 STORE REGION WORD.                                       F5G16720
       ANA FK3 IS IT IN AN                                              F5G16730
       TZE F54 OPAGUE REGION                                            F5G16740
       LXD F39,1 NO.                                                    F5G16750
       CLA FK1 STORE TRANSPARENT REGION                                 F5G16760
       STO LPLST+S3P1,1 MARKER                                          F5G16770
       CLA FV1 WITH                                                     F5G16780
       ALS 18 ENTRY                                                     F5G16790
       STD LPLST+S3P1,1 BB NO. IN DECR.                                 F5G16800
       LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST.                    F5G16810
F38    CLA LPLST+S3P1,2                                                 F5G16820
       CAS S3K2 IS THIS A BB ENTRY                                      F5G16830
       NOP                                                              F5G16840
       TRA F91                                                          F5G16850
       TRA F40 YES                                                      F5G16860
F91    SXD F18,2    STOREINDEX OF QUANTITYBEING C.F. ED                 F5G16870
       TSX SE1,4                                                        F5G16860
       CLA BBB+5,1       GET                                            F5G16890
       PDX 0,2 REGION WORD.                                             F5G16900
       CLA REG,2                                                        F5G16910
       LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED.                  F5G16920
       CAS FV4 IS THIS NAME REGION                                      F5G16930
       TRA F40                                                          F5G16940
       TRA F41 YES                                                      F5G16950
F40    TIX F39,2,1                                                      F5G16960
F39    TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED             F5G16970
       TRA F38 NO                                                       F5G16980
F41    CLA LPLST+S3P1,2 PUT EXIT BB NO.                                 F5G16990
       LXD F39,1 FROM PREVIOUS QUANTITY                                 F5G17000
       STA LPLST+S3P1,1 IN THIS LATEST ONE.                             F5G17010
       TRA F43                                                          F5G17020
F42    TXH F63,2,2 IS LPLST FULL                                        F5G17030
F53    CLA S3K1 STORE END                                               F5G17040
       STO LPLST+S3P1-1 LOOP LIST SENTINEL.                             F5G17050
       TRA F75 GO TO DEAL WITH STRING.                                  F5G17060
F63    CLA LPLST+S3P1,2                                                 F5G17070
       TRA F64                                                          F5G17080
F44    TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB.                      F5G17090
       CLA FV101 STORE THE                                              F5G17100
       STO FV1 MOST FREQ. SUCC. AWAY.                                   F5G17110
       LXD F39,1                                                        F5G17120
       TNZ F45 WAS THERE AN UNCONSIDERED SUCC.                          F5G17130
F47    CLA S3K1 NO,RECORD AN                                            F5G17140
       STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL.                       F5G17150
       TRA F75                                                          F5G17160
F48    LXD F39,1 ENTER BB                                               F5G17170
       CLA FV1 NO. AND MARKER                                           F5G17100
       ANA SBK2 IN                                                      F5G17190
       ALS 18 LPLST                                                     F5G17200
       STO FV4                                                          F5G17210
       STO LPLST+S3P1,1                                                 F5G17220
       SXD F50,1                                                        F5G17230
       LXD S3K3,2 S + TO                                                F5G17240
F51    CLA LPLST+S3P1,2                                                 F5G17250
       CAS FV4 IS THIS SAME BB AS NEW ENTRY                             F5G17260
       TRA F49                                                          F5G17270
       TRA F43 YES                                                      F5G17280
F49    TIX F50,2,1 DECREASE COMPARISON INDEX.                           F5G17290
F50    TXL F52,2,- IS THIS INDEX OF NEW QUANTITY                        F5G17300
       TRA F51 NO.                                                      F5G17310
F52    TXH F63,2,2       IS LPLST FULL                                  F5G17320
       TRA F53 YES.                                                     F5G17330
F54    LXD F39,1 IS OPAQUE REGION                                       F5G17340
       CLA FK2 ENTER OPAQUE                                             F5G17350
       STO LPLST+S3P1,1 REGION MARKER                                   F5G17360
       CLA FV1 WITH CORRECT                                             F5G17370
       ALS 18 ENTRY BB                                                  F5G17380
       STD LPLST+S3P1,1 NO.                                             F5G17390
       TRA F47                                                          F5G17400
F55    LXD F11,2 STORE THE                                              F5G17410
       CLA FK2 OPAQUE                                                   F5G17420
       STO LPLST+S3P1,2 REGION MARKR                                    F5G17430
       CLA FV1 WITH                                                     F5G17440
       STA LPLST+S3P1,2 EXIT BB                                         F5G17450
       TRA F56 NO.                                                      F5G17460
F57    CLA FV1 PUT THE                                                  F5G17470
       ANA SBK2 B.B. NO.                                                F5G17480
       ALS 18 IN                                                        F5G17490
       STO FV4 DECR. PART.                                              F5G17500
       CLA F11 SET THE END                                              F5G17510
       STD F59 TEST.                                                    F5G17520
       LXA S5K4,1     SET INDEX OF 1ST LPLST TO BE COMPARED             F5G17530
F61    CLA LPLST+S3P1,1                                                 F5G17540
       TXI F58,1,1                                                      F5G17550
F58    SXD F18,1                                                        F5G17560
F59    TXH F60,1,- WAS THAT THE LAST QUANTITY                           F5G17570
       CAS FV4 IS THIS THE SAME BB.                                     F5G17580
       TRA F61                                                          F5G17590
       TRA F13 YES                                                      F5G17600
       TRA F61                                                          F5G17610
F60    LXD F11,1                                                        F5G17620
       CLA FV1 STORE THE                                                F5G17630
       ANA SBK2 BB                                                      F5G17640
       ALS 18 MARKER.                                                   F5G17650
       STO LPLST+S3P1,1                                                 F5G17660
       CLA FV1                                                          F5G17670
       TSX F1,4 FIND MOST FREQ. PRED. OF BB.                            F5G17680
       CLA FV101 DOES B.B. HAVE                                         F5G17690
       STO FV1 UNCONSIDERED PRED.                                       F5G17700
       TNZ F71                                                          F5G17710
       LXD F11,2 NO,GO TO MOVE LPLST UP.                                F5G17720
       TRA F56                                                          F5G17730
F71    LXD F11,1                                                        F5G17740
       TXI F72,1,1 UP THE STORING INDEX                                 F5G17750
F72    SXD F11,1                                                        F5G17760
       TXH F53,1,S3P1 IS LPLST FULL                                     F5G17770
       TRA F23 NO.                                                      F5G17780
F80    LXA FK5,1 FIND                                                   F5G17790
F81    CLA REG,1 THE 1ST AVAILABLE REGION                               F5G17800
       TZE F82 POSITION.                                                F5G17810
       TIX F81,1,1                                                      F5G17820
       TSX 4,4 DIAGNOSTIC, ERROR                                        F5G17830
F82    SXD XV1,1      STORE THE INDEX                                   F5G17840
       REM    OF THE NEW REGION WORD                                    F5G17850
F83    LDQ ZERO         STORE INITIAL                                   F5G17860
       STQ XV2        VALUE OF REGION                                   F5G17870
       TRA 1,4                                                          F5G17880
F78    TSX SA,4 GET EXIT CONDITIONS OF REGION.                          F5G17890
       LXA S5K5,1        PUT EXIT                                       F5G17900
       LDQ ZERO                                                         F5G17910
F76    CLA EX1+3,1 CONDITONS                                            F5G17920
       STO IR1+3,1 INTO                                                 F5G17930
       CLA ACT1+3,1 I+R.S                                               F5G17940
       STQ AC1+3,1                                                      F5G17950
       TPL F77 IS THIS EXIT ACTIVE                                      F5G17960
       CLA S3K3 YES,FORM AND                                            F5G17970
       SSM  STORE ACTIVE                                                F5G17980
       STO AC1+3,1 INDICATOR                                            F5G17990
F77    TIX F76,1,1 COUNT TO 3                                           F5G18000
       CLA S3K3 INITIALIZE                                              F5G18010
       SUB ONED LOOP LIST                                               F5G18020
       STO S3V4 TO ITS                                                  F5G18030
       STO S3V5                                                         F5G18040
       CLA S5K3 2ED                                                     F5G18050
       STO S3V3 ELEMENT                                                 F5G18060
       SXD S3V2,0                                                       F5G18070
       TRA X32                                                          F5G18080
F75    TSX F80,4 DETERMINE NEW REGION INDEX                             F5G18090
       CLA LPLST IS 1ST                                                 F5G18100
       LDQ S3K2              ELEMENT OF LPLST A TRANSPARENT             F5G18110
       TLQ F78 ON OPAQUE REGION                                         F5G18120
       LXA S5K5,1 NO,INITIALIZE                                         F5G18130
       CLA S5K1 THE                                                     F5G18140
F79    STO IR1+3,1 I.R.S                                                F5G18150
       TIX F79,1,1 TO EMPTINESS                                         F5G18160
       TRA X                                                            F5G18170
       REM  FIRST LXING PASS.                                           F5G18180
 L     SXD ROT3,0                                                       F5G18190
       SXD ROT1,0                                                       F5G18200
INIZ   LXA S5K5,1            INITIALIZE                                 F5G18210
       CLA S5K1 THE                                                     F5G18220
L23    STO IR1+3,1 INDEX REGISTERS                                      F5G18230
       TIX L23,1,1 TO EMPTINESS.                                        F5G18240
       LDQ S3K3                                                         F5G18250
       STQ S3V4       INITIALIZE THE                                    F5G18260
       LDQ S5K3 LOOP LIST.                                              F5G18270
       STQ S3V3 MAKE SURE THAT THE                                      F5G18280
       SXD S3V2,0                                                       F5G18290
 1L4   TSX S3,4 GET NEXT TAG.                                           F5G18300
       TRA L6 *RETURN HERE IF TAG WASNT GOTTEN.                         F5G18310
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18320
       CLA 1TAG           IS CL (TAG) EQUAL                             F5G18330
L2     CAS IR1+3,1 TO C (IRN)                                           F5G18340
       TRA L1 NO.                                                       F5G18350
       TRA 1L3            YES                                           F5G18360
L1     TIX L2,1,1 NO. COUNT TO 3,N=N+1                                  F5G18370
       CLA TPE IS THIS                                                  F5G18380
       CAS XK15 AN LXP INSTR.                                           F5G18390
       TRA L18 NO,                                                      F5G18400
       TRA ROT0          YES                                            F5G18410
L18    CAS XK21 NO,IS IT A DED INSTR.                                   F5G18420
       TRA L17 NO                                                       F5G18430
       TRA ROT0               YES                                       F5G18440
       TRA L17                                                          F5G18450
 ROT0  LXD S3V4,2                                                       F5G18460
       TXL 1L4,2,S3P1-2                                                 F5G18470
       LXD ROT3,2                                                       F5G18480
       TXI ROT1,2,-1                                                    F5G18490
 ROT1  TXL 1L4,2,-                                                      F5G18500
       SXD ROT3,2                                                       F5G18510
       LXD ZERO,2                                                       F5G18520
 ROT2  CLA LPLST,2                                                      F5G18530
       CAS S3K1                                                         F5G18540
 ROT3  TXL ROT4,0,-                                                     F5G18550
       TXL ROT5,0,-                                                     F5G18560
 ROT4  STO LPLST-1,2                                                    F5G18570
       TXI ROT2,2,-1                                                    F5G18580
 ROT5  SXD ROT1,2                                                       F5G18590
       CLA LPLST-1                                                      F5G18600
       STO LPLST-1,2                                                    F5G18610
       TRA INIZ                                                         F5G18620
L17    TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G18630
       LXD IRR,4 PLACE TAU-TAG                                          F5G18640
       CLA 1TAG           IN APPROPRIATE                                F5G18650
       STO IR1+3,4 I.R.                                                 F5G18660
       TRA 1L4                                                          F5G18670
 1L3   CLA TPE IS THIS AN LXP                                           F5G18680
       CAS XK15                                                         F5G18690
       TRA 1L19                                                         F5G18700
       TRA L5 YES                                                       F5G18710
 1L19  CAS XK21 IS IT AN DED                                            F5G18720
       TRA 1L4                                                          F5G18730
       TRA L5 YES.                                                      F5G18740
       TRA 1L4                                                          F5G18750
L5     CLA LK1 PLACE AN E IHASH                                         F5G18760
       STO IR1+3,1 SYMBOL) IN                                           F5G18770
       TRA 1L4            RIGHT IR,                                     F5G18780
L6     STO LV4 IS THIS AN END OF LOOP                                   F5G18790
       CAS S3K1 LIST SENTINEL                                           F5G18800
       TRA L14 NO,                                                      F5G18810
       TRA L15 YES,                                                     F5G18820
L14    CAL LV4 IS                                                       F5G18830
       ANA LK3 THIS A                                                   F5G18840
       TZE 1L4            BB                                            F5G18850
       CLA LV4 NO,FORM CORRESPONDENCE                                   F5G18860
       TSX S5,4 BETWEEN IRS AND ENS                                     F5G18870
       CLA LV4 GET + STORE EXIT CONDITIONS                              F5G18880
       TSX SA,4 AND (USELESSLY+ OCTIVE INDICATORS.                      F5G18890
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G18900
L11    CLA EN4+3,1 PUT CORRESPONDENCE INDEX                             F5G18910
       PDX 0,2 IN 2.                                                    F5G18920
       CLA EX1+3,1 IS THIS EXIT CONDITION                               F5G18930
       CAS S5K1 EMPTY                                                   F5G18940
       TRA L13 NO,                                                      F5G18950
       TRA P003                                                         F5G18960
L13    STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION.                 F5G16970
L10    TIX L11,1,1 COUNT TO 3,N*M+1                                     F5G18980
       TRA 1L4                                                          F5G18990
  P003 CLA IR1+3,2                                                      F5G19000
       LDQ LK1                                                          F5G19010
       TLQ L10                                                          F5G19020
       LXA S5K5,4                                                       F5G19030
 P003A CAS EX1+3,4                                                      F5G19040
       TRA P003B                                                        F5G19050
       STQ IR1+3,2                                                      F5G19060
 P003B TIX P003A,4,1                                                    F5G19070
       TRA L10                                                          F5G19080
L15    LXA S5K5,1 COPY ASIDE THE FINAL                                  F5G19090
L16    CLA IR1+3,1 CONTENTS                                             F5G19100
       CAS LK1               (IF REAL, OTHERWISE                        F5G19110
       NOP                                                              F5G19120
       CLA S5K1              SET TO                                     F5G19130
       STO IR1+3,1           EMPTY)                                     F5G19140
       STO LV1+3,1 OF THE                                               F5G19150
       TIX L16,1,1 IRS                                                  F5G19160
       REM  TNE SECOND LXING PASS FOLLOWS.                              F5G19170
       REM  PRECEEDED BY 1ST LXING PASS                                 F5G19180
X      LDQ S3K3 INITIALIZE THE                                          F5G19190
       STQ S3V4 LOOP LIST AND                                           F5G19200
       LDQ S5K3 MAKE SURE TAG                                           F5G19210
       STQ S3V3 LOC. GETS SET.                                          F5G19220
       SXD S3V2,1                                                       F5G19230
X21    CLA ZERO SET ACTIVE INDICATORS                                   F5G19240
       STO AC1 TO                                                       F5G19250
       STO AC2                                                          F5G19260
       STO AC3 NOT ACTIVE.                                              F5G19270
X32    CLA ZERO SET LX INDICATORS                                       F5G19280
       STO LX1 TO                                                       F5G19290
       STO LX2 NOT                                                      F5G19300
       STO LX3 LX ED.                                                   F5G19310
       STO ACIND      SET IND. TO SAY THIS IS 2ED LXING PASS            F5G19320
X3     TSX S3,4 TRY TO GET NEXT TAG.                                    F5G19330
       TRA X13 COME HERE IF TAG NOT GOT.                                F5G19340
       CLA S39 COMPUTE LOCATIONS OF                                     F5G19350
       ANA SBK2 THIS TAG=(ADDR. FOLLOWING                               F5G19360
       ADD S4V1 TIX BLACK + L (CM)-                                     F5G19370
       SUB S4K3 CMTAG-INDEX OF TAG                                      F5G19380
       ALS 18                                                           F5G19390
       SBM S3V2                                                         F5G19400
       LRS 53 THEN FORM LOC/9                                           F5G19410
       STQ XV5 AND REMAINDER                                            F5G19420
       DVP XK9 STORE INTEG. PART                                        F5G19430
       STQ XV3 AND REMAINDER.                                           F5G19440
       STO XV4                                                          F5G19450
       LXA S5K5,1 SET COUNT TO 3,N=1                                    F5G19460
       CLA 1TAG                                                         F5G19470
X2     CAS IR1+3,1       IS CONTENTS OF IRN SAME AS OF TAG              F5G19480
       TRA X1 NO                                                        F5G19490
       TRA X7 YES                                                       F5G19500
X1     TIX X2,1,1 NO COUNT OT 3,N=N+1                                   F5G19510
       CLA TPE IS THIS AN                                               F5G19520
       CAS XK15 LX PRIME                                                F5G19530
       TRA X103 NO                                                      F5G19540
       TRA X8    YES.  COMPILE LXD FOR LXP.                             F5G19550
X103   CAS XK21 IS IT A DED                                             F5G19560
       TRA X8                                                           F5G19570
       TRA X3 YES                                                       F5G19580
X8     TSX S1,4 SELECT MOST REPLACEABLE I.R.                            F5G19590
       LXD IRR,1 PLACE TAU-TAG                                          F5G19600
       CLA 1TAG           IN SELECTED                                   F5G19610
       STO IR1+3,1 I.R.                                                 F5G19620
       CLA AC1+3,1 IS THIS                                              F5G19630
       TZE X4 IR ACTIVE                                                 F5G19640
       TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G19650
X4     CLA TPE 1S THIS                                                  F5G19660
       CAS S2K2 AN LX                                                   F5G19670
       TRA X5 NO                                                        F5G19680
       TRA X14 YES                                                      F5G19690
X5     CAL INTAG IS THIS 1ST INSTR.                                     F5G19700
       ANA XK10 IN A BB                                                 F5G19710
       TNZ X9                                                           F5G19720
       CLA XV3 NO,                                                      F5G19730
       TSX SE4,4 DETERMINE INDEX IN STAG                                F5G19740
       LXA XV4,2                                                        F5G19750
       CAL XK11 GENERATE                                                F5G19760
       ALS 8,2 LX BIT                                                   F5G19770
       ORS STAG,1 STORE IN STAG.                                        F5G19780
X14    TSX SF,4 CHECK IF AN ACTIVE INSTR.                               F5G19790
       TRA X01 COME HERE IF NOT ACTIVE                                  F5G19800
       LXD IRR,1 ACTIVE-STQRE ACTIVE                                    F5G19810
       CLA SFV1 INDICATOR                                               F5G19820
       STO AC1+3,1                                                      F5G19830
X01    LXD IRR,2                                                        F5G19840
       CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT                          F5G19850
       TNZ X19 BEEN DETERMINED FOR THIS BB.                             F5G19860
       CLA LK1 NO,RECORD HASH                                           F5G19870
       STO LX1+3,2 AS ENTRANCE REQUIREMENT                              F5G19880
X19    CAL S5K3 RECORD THAT THERE IS AN                                 F5G19890
       ARS 3,2 LX FOR THIS IR IN                                        F5G19900
       ORS XV2 REGION.                                                  F5G19910
X02    CLA XV3 RECORD THE                                               F5G19920
       TSX SE4,4 SPECIFIC                                               F5G19930
       CAL XV4 TAG                                                      F5G19940
       COM  IN                                                          F5G19950
       PAX 0,2 THE                                                      F5G19960
       CAL IRR STAG                                                     F5G19970
       ARS 0,2 TABLE                                                    F5G19980
       ARS 0,2                                                          F5G19990
       ORS STAG,1                                                       F5G20000
       TRA X3                                                           F5G20010
X9     LXD S3V4,1 GET                                                   F5G20020
       TXL XI1+1,1,S3P1-2                                               F5G20030
       CLA LPIND                                                        F5G20040
       TMI XI1+1                                                        F5G20050
       LXD IRR,2                                                        F5G20060
XI1    TRA X16-3                                                        F5G20070
       CLA LPLST+S3P1-2,1 AND                                           F5G20080
       CAS S3K2 STORE                                                   F5G20090
       NOP  BB                                                          F5G20100
       TRA X117                                                         F5G20110
       ARS 18 PRED                                                      F5G20120
X117   STA SBV3      NO.                                                F5G20130
       CLA LPLST+S3P1-1,1                                               F5G20140
       TSX SE,4 GET ADDR. OF                                            F5G20150
       CLA BBB,1 1ST PRED.                                              F5G20160
X03    SLW SBV2                                                         F5G20170
       TSX SE5,4 GET PRED.                                              F5G20180
       CAL PRED,1                                                       F5G20190
       ANA SBK2                                                         F5G20200
       CAS SBV3 IS THIS RIGHT PRED.                                     F5G20210
       TRA X04 NO                                                       F5G20220
       TRA X05 YES                                                      F5G20230
X04    CLA SBV2 NO ARRANGE TO                                           F5G20240
       ADD ONEA TRY NEXT                                                F5G20250
       TRA X03 PRED.                                                    F5G20260
X05    LXD IRR,2 PUT LX                                                 F5G20270
       CAL XK16 BIT INTO                                                F5G20280
       ARS 3,2 PRED.                                                    F5G20290
       ORS PRED,1 TABLE.                                                F5G20300
       LXD S3V4,4                                                       F5G20310
       ORS LPLST+S3P1-1,4                                               F5G20320
       CLA IR1+3,2       SET ENTR. REQU.                                F5G20330
       STO LX1+3,2                                                      F5G20340
       TRA X14                                                          F5G20350
X16    TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST                  F5G20360
       LDQ LK1                                                          F5G20370
       CLA LX1+3,1 HAS THIS                                             F5G20380
       TNZ X100 ENTR. REQU. BEEN DETERMINED                             F5G20390
       STQ LX1+3,1 NO,RECORD ENTR. REOU. IS AN E.                       F5G20400
X100   STQ IR1+3,1 ERASE THIS I.R.                                      F5G20410
       CLA ZERO RECORD THAT THIS                                        F5G20420
       STO AC1+3,1 I.R. ISNT ACTIVE.                                    F5G20430
       TRA X02                                                          F5G20440
X7     SXD IRR,1                                                        F5G20450
       CLA TPE IS THIS                                                  F5G20460
       CAS XK15 AN LXP                                                  F5G20470
       TRA X104 NO                                                      F5G20480
       TRA X16 YES.                                                     F5G20490
X104   CAS XK21 IS IT A DED                                             F5G20500
       TRA X15                                                          F5G20510
       TRA X16 YES.                                                     F5G20520
X15    TSX SF,4 DETERMINE ACTIVITY.                                     F5G20530
       TRA X17 COME HERE IF NOT ACTIVE.                                 F5G20540
       LXD IRR,1                                                        F5G20550
       TSX SC,4 RECORD PART OF L0OP LIST ACTIVE.                        F5G20560
       CLA SFV1 STORE ACTIVE                                            F5G20570
       STO AC1+3,1 INDICATOR.                                           F5G20580
X17    CLA TPE                                                          F5G20590
       CAS S2K2 IS THIS AN LX                                           F5G20600
       TRA X18                                                          F5G20610
       TRA X01 YES.                                                     F5G20620
X18    LXD IRR,1                                                        F5G20630
       CLA LX1+3,1 WAS THIS                                             F5G20640
       TNZ X02 I.R. LX ED                                               F5G20650
       CLA IR1+3,1 NO,STORE THE TAG                                     F5G20660
       STO LX1+3,1 IN TH LX INDICATOR.                                  F5G20670
       TRA X02                                                          F5G20680
X22    TSX SE,4 MAKE SURE BB IS IN C+M.                                 F5G20690
       LXA S5K5,2                                                       F5G20700
X25    CLA LX1+3,2                                                      F5G20710
       TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND                        F5G20720
       CLA IR1+3,2 NO,ENTRANCE = EXIT.                                  F5G20730
X23    ALS 18 PUT ENTR. REQ. IN LEFT.                                   F5G20740
       ADD IR1+3,2 ADD THE EXIT REQUIREMENTS.                           F5G20750
       SLW BBB+2,1                                                      F5G20760
       TXI X24,1,-1      DOWN INDEX OF ENTR-EXIT REQU.                  F5G20770
X24    TIX X25,2,1 COUNT TO 3                                           F5G20780
       TRA X26                                                          F5G20790
X13    LXD S3V4,1      GET LOOP LIST QUANTITY                           F5G20800
       TXH X26,1,S3P1-2  TRANSFER IF THIS IS 1ST IN LPLST               F5G20810
       CLA LPLST+S3P1-2,1     OF PREVIOUS QUANTITY                      F5G20820
       STO XV19                                                         F5G20830
       LDQ S3K2        WAS IT                                           F5G20840
       TLQ X126      A BB                                               F5G20850
       ARS 18       YES                                                 F5G20860
 X126  ANA S3K4              IS THERE                                   F5G20870
       LDQ SAK1                                                         F5G20880
       TLQ X129                                                         F5G20890
       TSX SE1,4             YES, GET EXIT BB                           F5G20900
       CLA BBB,1       WAS THAT BB                                      F5G20910
       ARS 33        TERMINATED BY                                      F5G20920
       ADD ONEA           A                                             F5G20930
       TNZ X129          GO TO N                                        F5G20940
       LXA S5K5,1       YES, SET COUNT TO 3                             F5G20950
X128   CLA AC1+3,1      IS THIS IR                                      F5G20960
       TZE X127          ACTIVE                                         F5G20970
       TSX SB,4          YES, RECORD SXD NECESSARY                      F5G20980
X127   TIX X128,1,1         COUNT TO 3                                  F5G20990
X129   CLA XV19       GET                                               F5G21000
       CAS S3K2                                                         F5G21010
       NOP  NO                                                          F5G21020
       TRA X26                                                          F5G21030
       TRA X22 YES,                                                     F5G21040
X26    CLA S3V5 NO                                                      F5G21050
       CAS S3K1 IS THIS AN END-LOOP-LIST                                F5G21060
       TRA X31 NO                                                       F5G21070
       TRA X88 YES                                                      F5G21080
X31    CAL S3V5                                                         F5G21090
       ANA LK3                                                          F5G21100
       CAS XK17 WHAT TYPE ENTRY IS THIS                                 F5G21110
       TRA X118                                                         F5G21120
       TRA X33 TRANSPARENT REGION                                       F5G21130
       TRA X32 BB                                                       F5G21140
X118   CLA S3V5     OPAQUE REGION                                       F5G21150
       TSX SE,4     IS                                                  F5G21160
       CLA BBB+5,1     THIS                                             F5G21170
       STO XV24                                                         F5G21180
       STD XV23      THE                                                F5G21190
       CLA LPLST      SAME                                              F5G21200
       LDQ FK4                                                          F5G21210
       TLQ X221                                                         F5G21220
       TXI X213,0,-                                                     F5G21230
X221   TSX SE1,4         REGION                                         F5G21240
       CLA BBB+5,1        AS                                            F5G21250
       ANA S2K1          AT THE BEGINNING                               F5G21260
       SUB XV23      OF THE                                             F5G21270
       STO XV24          STORE IND. OF SAMENESS OF 1ST REGION           F5G21280
       TZE X61       LPLST                                              F5G21290
X213   CLA S3V5                                                         F5G21300
X57    TSX S5,4 NO,MATCH ENTR. REQU.                                    F5G21310
X63    LXD XV23,1        GET                                            F5G21320
       CLA REG,1         REGION WORD                                    F5G21330
       TSX SE,4          CST INDEX OF 1ST BB                            F5G21340
X209   CAL BBB+1,1       GET THE                                        F5G21350
       SLW XV9           ORIGINAL PERM. NOS.                            F5G21360
       ANA XK20          STORE WORD TO                                  F5G21370
       SLW XV8           CONTAIN NEW PERM. NOS.                         F5G21380
       LXA S5K5,2        SET COUNT TO 3                                 F5G21390
X210   CAL XV9           GET THE                                        F5G21400
       ARS 3,2                                                          F5G21410
       ARS 3,2           PERM. NO. AND                                  F5G21420
       ANA S9K3          PUT IT                                         F5G21430
       PDX 0,4           IN 4.                                          F5G21440
       CLA EN4+3,4       GET THE                                        F5G21450
       ALS 3,2           CORRESPONDENCE                                 F5G21460
       ALS 3,2           OF THE ENTR. REQUIREMENTS                      F5G21470
       ORS XV8           FORM NEW PERM.                                 F5G21480
       TIX X210,2,1                                                     F5G21490
       CAL XV8            STORE NEW PERM.                               F5G21500
       STD BBB+1,1       NOS.                                           F5G21510
       CLA BBB+5,1       IS THIS THE LAST                               F5G21520
       ANA SBK2          BB IN REGION                                   F5G21530
       CAS SBK2                                                         F5G21540
       TRA X211          NO.                                            F5G21550
       TRA X212          YES, DONE                                      F5G21560
X211   TSX SE1,4         ARRANGE TO DO NEXT                             F5G21570
       TRA X209          BB.                                            F5G21580
X212   LXA S5K5,1        SET COUNT TO 3                                 F5G21590
X60    CLA IN1+3,1       GET INDEX                                      F5G21600
       PDX 0,2 OF EN.                                                   F5G21610
       CLA EN1+3,2 IS C(ENM)                                            F5G21620
       CAS IR1+3,1 =C(IRN)                                              F5G21630
       TRA X58                                                          F5G21640
       TRA X64 YES,                                                     F5G21650
X58    CAS S5K2 IS C(ENM) REAL                                          F5G21660
       NOP  NO,                                                         F5G21670
       TRA X119                                                         F5G21680
       TRA X67 YES,                                                     F5G21690
X119   CLA AC1+3,1     NO,IS                                            F5G21700
X102   TZE X59 IRN ACTIVE                                               F5G21710
X65    TSX SB,4 YES,RECORD SXD NECESSARY.                               F5G21720
X59    TIX X60,1,1                                                      F5G21730
       TSX SG,4            PERMUTE REGION WORD                          F5G21740
X89    CLA LPLST                                                        F5G21750
       CAS S3K2          IS IT A BB                                     F5G21760
       TSX SE1,4         NO                                             F5G21770
       TRA X206                                                         F5G21780
       TRA X207                                                         F5G21790
X206   CLA BBB+5,1                                                      F5G21800
       PDX 0,1                                                          F5G21810
       CLA REG,1         FORM NO OF 1ST BB IN REGION                    F5G21820
X207   STD XV2                                                          F5G21830
       LXA S5K5,1                                                       F5G21840
X116   CLA S5K1                                                         F5G21850
       CAS IR1+3,1      IS THIS IR EMPTY                                F5G21860
       TRA X115                                                         F5G21870
       CAL XK23+3,1     YES, INITIALIZE IR                              F5G21880
       ORS XV2       TO EMPTYNESS                                       F5G21890
X115   TIX X116,1,1      COUNT TO 3                                     F5G21900
       LXD S3K3,2        PREPARE TO SCAN LO0P LIST                      F5G21910
       SXD XV12,2                                                       F5G21920
X79    CLA LPLST+S3P1,2                                                 F5G21930
       CAS S3K1 IS THIS END LOOP LIST                                   F5G21940
       TRA X120                                                         F5G21950
       TRA X81 YES.                                                     F5G21960
X120   CAS S3K2         IS IT A BB                                      F5G21970
       NOP                                                              F5G21980
       TRA X121                                                         F5G21990
       ARS 18 YES.                                                      F5G22000
X121   STA SBV3       STORE EXIT BB NO.                                 F5G22010
       CLA LPLST+S3P1+1,2                                               F5G22020
       CAS S3K1 IS NEXT QUANTITY AN END LPLST                           F5G22030
       TRA X107                                                         F5G22040
       TRA X114 YES.                                                    F5G22050
X107   ARS 18                                                           F5G22060
       STA XV18 STORE ENTRY BB NO.                                      F5G22070
       ADD ONEA                                                         F5G22080
       TSX SE1,4                                                        F5G22090
       CAL BBB,1                                                        F5G22100
       ANA SBK2                                                         F5G22110
       STO SBV5                                                         F5G22120
       CLA XV18                                                         F5G22130
       TSX SE1,4                                                        F5G22140
       CLA BBB,1                                                        F5G22150
       ANA SBK2                                                         F5G22160
X109   SLW SBV2                                                         F5G22170
       TSX SE5,4                                                        F5G22180
       CAL PRED,1                                                       F5G22190
       ANA SBK2                                                         F5G22200
       CAS SBV3 IS THIS THE RIGHT TRANSFER                              F5G22210
       TRA X108                                                         F5G22220
       TRA X110 YES                                                     F5G22230
X108   CLA SBV2 ARRANGE TO TRY                                          F5G22240
       ADD ONEA NEXT PRED.                                              F5G22250
       CAS SBV5            IS THIS PRED ENTRY IN SAME BB                F5G22260
       TRA X109                                                         F5G22270
       TRA X222                                                         F5G22280
       TRA X109                                                         F5G22290
X110   CLA PRED,1 SET SIGN                                              F5G22300
       SSM  OF PRED.                                                    F5G22310
       STO PRED,1 ENTRY NEGATIVE.                                       F5G22320
       TRA X108                                                         F5G22330
X222   CLA SBV3            GET INDEX                                    F5G22340
       ADD ONEA                                                         F5G22350
       TSX SE1,4 OF                                                     F5G22360
       CLA BBB,1                                                        F5G22370
       ANA S2K1                                                         F5G22380
       STO SBV5                                                         F5G22390
       CLA SBV3                                                         F5G22400
       TSX SE1,4                                                        F5G22410
       CLA BBB,1                                                        F5G22420
       ANA S2K1                                                         F5G22430
X112   SLW SBV2                                                         F5G22440
       TSX SE6,4                                                        F5G22450
       CAL SUCC,1                                                       F5G22460
       ANA SBK2                                                         F5G22470
       CAS XV18 IS THIS RIGHT SUCC.                                     F5G22480
       TRA X111                                                         F5G22490
       TRA X113                                                         F5G22500
X111   CLA SBV2 ARRANGE TO TRY NEXT SUCC.                               F5G22510
       ADD ONED                                                         F5G22520
       CAS SBV5            IS THIS SUCC IN SAME BB                      F5G22530
       TRA X112                                                         F5G22540
       TRA X74                                                          F5G22550
       TRA X112                                                         F5G22560
X114   CLA LPIND IS THIS                                                F5G22570
       TPL X74        A LOOP                                            F5G22580
       CLA LPLST YES                                                    F5G22590
       TRA X107                                                         F5G22600
X113   CLA SUCC,1 SET SIGN                                              F5G22610
       SSM  OF SUCC+ ENTRY                                              F5G22620
       STO SUCC,1 NEGATIVE                                              F5G22630
       TRA X111                                                         F5G22640
X74    LXD XV12,2                                                       F5G22650
       CLA LPLST+S3P1,2                                                 F5G22660
       CAS S3K2         IS IT A BB                                      F5G22670
       NOP                                                              F5G22680
       TRA X122                                                         F5G22690
       TRA X80 YES                                                      F5G22700
X122   PDX 0,4                                                          F5G22710
       TXH X205,4,-2     IS THE DECR. AN IMPOSSIBLE BB                  F5G22720
       ARS 18                                                           F5G22730
X205   TSX SE1,4                                                        F5G22740
       CLA BBB+5,1 THE                                                  F5G22750
       PDX 0,1 REOEON                                                   F5G22760
       CAL REG,1           WORD                                         F5G22770
       SLW XV17                                                         F5G22780
       TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED                 F5G22790
       ANA LK3     OR THE LX BITS FOR                                   F5G22800
       ORS XV2 OLD REGION IN NEW REGION WORD.                           F5G22810
       CAL XK22            AND THE OLD PHI                              F5G22820
       ORA XV17 BITS                                                    F5G22830
       ANS XV2 INTO NEW REGION WORD.                                    F5G22840
       CLA ZERO CLEAR OLD                                               F5G22850
       STO REG,1 REGION WORD.                                           F5G22860
       CLA XV17 GET INDEX OF                                            F5G22870
       ARS 18                FIRST BB IN REG                            F5G22880
X75    STA XV22       STOREBB NO.                                       F5G22890
       TSX SE1,4 GET INDEX OF BB                                        F5G22900
X101   CLA XV1 STORE THE                                                F5G22910
       STD BBB+5,1 NEW REGION NO.                                       F5G22920
       CLA BBB+5,1 IS THIS THE                                          F5G22930
       ANA SBK2 LAST BB                                                 F5G22940
       CAS SBK2 OF THE REGION                                           F5G22950
       TRA X75                                                          F5G22960
       TRA X76 YES.                                                     F5G22970
       TRA X75                                                          F5G22980
X105   CLA XV22      RECORD THAT PREVI0USLY                             F5G22990
       TSX SE1,4 NUMBERED BB                                            F5G23000
       CLA XK22 WAS LAST                                                F5G23010
       STA BBB+5,1 ONE IN NEW REGION.                                   F5G23020
       TRA X81 FINISHED RENUMBERING.                                    F5G23030
X80    ARS 18                                                           F5G23040
       STA XV22                                                         F5G23050
       TSX SE1,4                                                        F5G23060
X76    LXD XV12,2                                                       F5G23070
X140   TXI X140+1,2,-1                                                  F5G23080
       SXD XV12,2                                                       F5G23090
X77    CLA LPLST+S3P1,2                                                 F5G23100
       CAS S3K1 IS THIS END LOOP LIST                                   F5G23110
X219   TXI X217,0,-      SEE X217+2                                     F5G23120
       CLA S5K1          YES                                            F5G23130
X216   STA BBB+5,1       RECORD THE NEXT BB NO.                         F5G23140
       CLA XV1 RECORD THE                                               F5G23150
       STD BBB+5,1 NEW REGION                                           F5G23160
       TRA X79 NO.                                                      F5G23170
X217   LDQ S3K2                                                         F5G23180
       TLQ X220                                                         F5G23190
X215   ARS 18            NO                                             F5G23200
X218   TXI X216,0,-                                                     F5G23210
 X220  SXD X219,2                                                       F5G23220
       TSX SE,4                                                         F5G23230
       CLA BBB+5,1                                                      F5G23240
       PDX 0,1                                                          F5G23250
       CLA REG,1         GET REGION WORD                                F5G23260
       STD X218                                                         F5G23270
       CLA XV22                                                         F5G23280
       TSX SE1,4                                                        F5G23290
       CLA X218                                                         F5G23300
       LXD X219,2                                                       F5G23310
       TXI X215,-,-                                                     F5G23320
X81    CLA XV2                                                          F5G23330
       ORA ONEA                                                         F5G23340
       LXD XV1,1 NEW REGION                                             F5G23350
       STO REG,1 WORD.                                                  F5G23360
       TRA F                                                            F5G23370
X61    LXA S5K5,1                                                       F5G23380
X62    PXD 0,1 PLACE APPROPRIATE NOS.                                   F5G23390
       STD IN1+3,1     IN CORRSEPONDENCE                                F5G23400
       STD EN4+3,1      TABLES                                          F5G23410
       TIX X62,1,1                                                      F5G23420
       CLA S3V5                                                         F5G23430
       TSX S9,4          GET THE ENTRANCE REQUIREMENTS                  F5G23440
       TRA X63                                                          F5G23450
X64    CLA AC1+3,1 IS THIS I.R.                                         F5G23460
       TZE X59 ACTIVE                                                   F5G23470
       LXD S3V4,4 YES.                                                  F5G23480
       CLA LPLST+S3P1-1,4 GET                                           F5G23490
       SXD XV11,1 THE                                                   F5G23500
       SXD XV12,2 REGION                                                F5G23510
       TSX SE,4 WORD                                                    F5G23520
       CLA BBB+5,1 IN                                                   F5G23530
       PDX 0,4 THE                                                      F5G23540
       LDQ REG,4 MQ.                                                    F5G23550
       LXD XV11,1 HAS THERE                                             F5G23560
       LXD XV12,2                                                       F5G23570
       RQL 3,2               BEEN AN LX                                 F5G23580
       TQP X66 FOR THIS I.R.                                            F5G23590
       TRA X65 YES                                                      F5G23600
X66    CLA XV24                                                         F5G23610
       TNZ X208          IS THIS SAME REG. AS BEGINS STRING             F5G23620
       CLA LPLST         YES                                            F5G23630
       TSX SA,4          GET ACTIVE INDS. AT START OF STRING            F5G23640
       LXD XV11,1                                                       F5G23650
       CLA ACT1+3,1      WAS THIS IR ACTIVE AT START                    F5G23660
       TPL X65                                                          F5G23670
X208   LXD S3V4,4        YES, MARK ALL                                  F5G23680
       CLA LPLST+S3P1-1,4           BBS IN OPAQUE                       F5G23690
       LXD XV11,2        REGION ACTIVE                                  F5G23700
       TSX SD,4                                                         F5G23710
       LXD XV11,1                                                       F5G23720
       TSX SC,4          MARK SECTION OF LLLST ACTIVE                   F5G23730
       TRA X59                                                          F5G23740
X67    SXD XV11,1                                                       F5G23750
       LXD S3V4,1       GET                                             F5G23760
       CLA LPLST+S3P1-2,1 PRED+ NO                                      F5G23770
       CAS S3K2 IS THIS A BB                                            F5G23780
       NOP       NO,                                                    F5G23790
       TRA X123                                                         F5G23800
       ARS 18 YES,SHIFT BB NO RIGHT.                                    F5G23810
X123   STA SBV3      AND STORE IT                                       F5G23020
       CLA LPLST+S3P1-1,1 GET INDEX OF                                  F5G23830
       TSX SE,4 THIS BB                                                 F5G23840
       CLA BBB+1,1 GET TO STORE                                         F5G23050
       STO XV9 PREM. NO.                                       -        F5G23060
       CLA BBB,1 GET PRED. NO.                                          F5G23070
X68    SLW SBV2                                                         F5G23880
       TSX SE5,4 GET INDEX OF PRED.                                     F5G23890
       CAL PRED,1 IS THIS THE                                           F5G23900
       ANA SBK2 RIGHT PRED                                              F5G23910
       CAS SBV3                                                         F5G23920
       TRA X69                                                          F5G23930
       TRA X70 YES.                                                     F5G23940
X69    CLA SBV2                                                         F5G23950
       ADD ONEA                                                         F5G23960
       TRA X68                                                          F5G23970
X70    LXA S5K5,4 SET COUNT TO 3                                        F5G23980
X72    CAL XV9 FIND                                                     F5G23990
       ARS 3,4 THE                                                      F5G24000
       ARS 3,4 PERM+ NO.                                                F5G24010
       ANA S9K3                                                         F5G24020
       CAS XV11 IS THIS THE RIGHT I.R.                                  F5G24030
       TRA X71 NO,                                                      F5G24040
       TRA X73 YES,                                                     F5G24050
X71    TIX X72,4,1 NO,                                                  F5G24060
       TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G24070
X73    CAL XK16 RECORD THAT AN                                          F5G24080
       ARS 3,4 LX IS                                                    F5G24090
       ORS PRED,1 NECESSARY.                                            F5G24100
       LXD XV11,4 RECORD                                                F5G24110
       CAL S5K3 LX                                                      F5G24120
       ARS 3,4 FOR THIS I.R.                                            F5G24130
       ORS XV2 IN THIS REGION.                                          F5G24140
       LXD XV11,1                                                       F5G24150
       TRA X119                                                         F5G24160
X33    CLA S3V5                                                         F5G24170
       TSX S5,4 MATCH ENTRANCE REQU.                                    F5G24180
       CLA S3V5                                                         F5G24190
       TSX SA,4 GET EXIT COND.                                          F5G24200
       CLA S3V5                                                         F5G24210
       TSX SE,4 GET INDEX OF                                            F5G24220
       CLA BBB+5,1 B.B.                                                 F5G24230
       PDX 0,1 GET                                                      F5G24240
       CLA REG,1 REGION                                                 F5G24250
       TSX SE,4 WORD.                                                   F5G24260
X40    SXD XV13,1 GET INDEX OF FIRST BB.                                F5G24270
       CAL BBB+1,1 CLEAR REGISTER TO                                    F5G24280
       SLW XV9 CONTAIN PERM. NOS.                                       F5G24290
       ANA XK20 GET ORIGINAL PERM. NOS.                                 F5G24300
       SLW XV8                                                          F5G24310
       LXA S5K5,2 SET COUNT TO 3.                                       F5G24320
X38    CAL XV9 GET THE                                                  F5G24330
       ARS 3,2 PERM.                                                    F5G24340
       ARS 3,2 NO. AND                                                  F5G24350
       ANA S9K3 PUT IT                                                  F5G24360
       PDX 0,4 IN 4.                                                    F5G24370
       CLA EN4+3,4 GET THE CORRESPONDENCE                               F5G24380
       ALS 3,2 OF THE ENTR,                                             F5G24390
       ALS 3,2 REQUIREMENTS.                                            F5G24400
       ORS XV8 FORM NEW PERM. NOS.                                      F5G24410
       SXD XV10,1                                                       F5G24420
       CLA EN4+3,4                                                      F5G24430
       PDX 0,1 GET INDEX OF I.R.                                        F5G24440
       CLA EN1+3,4                                                      F5G24450
       CAS S5K1 IS ENM EMPTY                                            F5G24460
       TRA X34 NO,                                                      F5G24470
       TRA X41 YES,                                                     F5G24480
X34    CAS LK1 NO,IS C(ENM)=E                                           F5G24490
       TRA X35 NO,                                                      F5G24500
       TRA X36 YES,                                                     F5G24510
X35    CAS IR1+3,1 C-(ENM)=C(IRN)                                       F5G24520
       TRA X36 NO                                                       F5G24530
       TRA X43 YES                                                      F5G24540
X36    LXD XV10,1 NO                                                    F5G24550
X42    TXI X42+1,1,-1                                                   F5G24560
X37    TIX X38,2,1 COUNT TO 3                                           F5G24570
       CAL XV8       STORE NEW                                          F5G24580
       STD BBB-2,1 PERM. NOS.                                           F5G24590
       STP BBB-2,1      AND ACTIVE INDICATORS                           F5G24600
       CLA BBB+2,1 IS THIS                                              F5G24610
       ANA SBK2 LAST BB IN REGION                                       F5G24620
       CAS SBK2                                                         F5G24630
       TRA X39                                                          F5G24640
       TRA X45 YES,DONE.                                                F5G24650
X39    TSX SE1,4 GET INDEX 0F NEXT B.B.                                 F5G24660
       TRA X40                                                          F5G24670
X200   CLA EX1+3,4       IS CONTENTS OF IR                              F5G24680
       LDQ S5K2       AT EXIT                                           F5G24690
       TLQ X130      REAL                                               F5G24700
       TRA X36       YES                                                F5G24710
X43    CLA ACT1+3,4                                                     F5G24720
 PW0   SXD W2+1,1                                                       F5G24730
       TPL X200       IS IT ACTIVE AT EXIT                              F5G24740
X130   CLA AC1+3,1     YES,IS THIS IR ACTIVE                            F5G24750
       TZE X36                                                          F5G24760
       CLA IR1+3,1 YES                                                  F5G24770
       STO XV21                                                         F5G24780
       LXD XV10,1 DOES THIS BB CONTAIN THE                              F5G24790
       CLA BBB+2,1     SAME TAG IN THIS POSITION                        F5G24800
       ANA S5K1                                                         F5G24810
       CAS XV21                                                         F5G24820
       TRA W0                                                           F5G24830
       TRA X44 YES.                                                     F5G24840
       TRA W0                                                           F5G24850
       REM  C(XV10)= INDEX OF PARTICULAR                                F5G24860
       REM  ENTRANCE REQUIREMENT.                                       F5G24870
X41    CLA IR1+3,1                                                      F5G24880
       STO XV6                                                          F5G24890
       ALS 18 STORE AWAY THIS                                           F5G24900
       ADD IR1+3,1 TAG TEMPORARILY.                                     F5G24910
       SLW XV7                                                          F5G24920
       CLA IR1+3,1     IS THIS                                          F5G24930
       LDQ S5K2      TAG                                                F5G24940
       TLQ X201                                                         F5G24950
       LXD XV13,1                                                       F5G24960
       LXA S5K5,4 SET COUNT TO 3.                                       F5G24970
X85    CAL BBB+2,1                                                      F5G24980
       LRS 18                                                           F5G24990
       CAS XV6 IS ENTR. REQU. EQUAL TO TAG                              F5G25000
       TRA X82 NO,                                                      F5G25010
       TRA X86 YES,                                                     F5G25020
X82    CLA ZERO NO,                                                     F5G25030
       LLS 18                                                           F5G25040
       CAS XV6 IS TAG EQUAL TO EXIT COND.                               F5G25050
       TRA X83                                                          F5G25060
       TRA X87 YES                                                      F5G25070
X83    TXI X83+1,1,-1                                                   F5G25080
X84    TIX X85,4,1 COUNT TO 3.                                          F5G25090
X201   CLA XV7       STORE THE                                          F5G25100
       LXD XV10,1 NEW ENTRANCE-                                         F5G25110
       STO BBB+2,1 EXIT REQUI.                                          F5G25120
       TRA X42                                                          F5G25130
X86    CAL XK18 PUT AN E                                                F5G25140
       STD XV7 IN THE ENTR. REQU.                                       F5G25150
       STP XV7                                                          F5G25160
       TRA X82                                                          F5G25170
X87    CAL XV7 PLACE E                                                  F5G25180
       ANA XK19 IN                                                      F5G25190
       ADD LK1 EXIT                                                     F5G25200
       SLW XV7 REQUIREMENT.                                             F5G25210
       TRA X83                                                          F5G25220
X44    CAL S5K3 RECORD THIS                                             F5G25230
       ARS 3,2 I.R.                                                     F5G25240
       ORS XV8 ACTIVE                                                   F5G25250
       TRA X42                                                          F5G25260
X45    LXA S5K5,2                                                       F5G25270
X56    SXD XV14,2                                                       F5G25280
       CLA EN4+3,2                                                      F5G25290
       PDX 0,4 GET INDEX                                                F5G25300
       SXD SBV4,4 OF I.R.                                               F5G25310
       CLA EN1+3,2                                                      F5G25320
       CAS S5K1 IS ENM EMPTY                                            F5G25330
       TRA X46                                                          F5G25340
       TRA X223                                                         F5G25350
X46    CAS LK1 IS THERE HASH IN ENM                                     F5G25360
       TRA X134                                                         F5G25370
       TRA X55 YES                                                      F5G25380
X134   CAS IR1+3,4        DOES CONTENTS OF IR EQUAL CONTENTS OF EN      F5G25390
       TRA X47          NO                                              F5G25400
       TRA X131          YES                                            F5G25410
X47    LXD S3V4,1 GET AND                                               F5G25420
       CLA LPLST+S3P1-2,1 STORE PRED.                                   F5G25430
       CAS S3K2 BB                                                      F5G25440
       NOP  NO.                                                         F5G25450
       TRA X124                                                         F5G25460
       ARS 18                                                           F5G25470
X124   STA SBV3                                                         F5G25480
       CLA LPLST+S3P1-1,1 GET                                           F5G25490
       TSX SE,4 BB NO.                                                  F5G25500
       CLA BBB+1,1 STORE THE                                            F5G25510
       STO XV9 PERM. NOS.                                               F5G25520
       CLA BBB+5,1                                                      F5G25530
       PDX 0,4                                                          F5G25540
       LXD XV14,2                                                       F5G25550
       CAL S5K3                                                         F5G25560
       ARS 3,2                                                          F5G25570
       ORS REG,4                                                        F5G25580
       CLA BBB,1 GET PRED. NO.                                          F5G25590
X48    SLW SBV2          STORE PRED. NO.                                F5G25600
       TSX SE5,4 OBTAIN PRED. INDEX.                                    F5G25610
       CAL PRED,1 IS THIS                                               F5G25620
       ANA SBK2 THE CORRECT                                             F5G25630
       CAS SBV3 PRED                                                    F5G25640
       TRA X49                                                          F5G25650
       TRA X50 YES.                                                     F5G25660
X49    CLA SBV2 ARRANGE TO                                              F5G25670
       ADD ONEA TRY NEXT PREDECESSOR.                                   F5G25680
       TRA X48                                                          F5G25690
X50    LXA S5K5,4 1 HAS INDEX OF PRED.                                  F5G25700
X52    CAL XV9 EXTRACT                                                  F5G25710
       ARS 3,4 THE                                                      F5G25720
       ARS 3,4 PERM.                                                    F5G25730
       ANA S9K3 NO.                                                     F5G25740
       CAS SBV4 IS THIS THE PERM. NO.                                   F5G25750
       TRA X51                                                          F5G25760
       TRA X53 YES.                                                     F5G25770
X51    TIX X52,4,1                                                      F5G25780
       TSX 4,4 DIAGNOSTIC, ERROR.                                       F5G25790
X53    CAL XK16 GENERATE                                                F5G25800
       ARS 3,4 THE LX BIT.                                              F5G25810
       ORS PRED,1 INSERT LX BIT.                                        F5G25820
X55    LXD SBV4,1 IS THE                                                F5G25830
       CLA AC1+3,1 I.R.                                                 F5G25840
       TZE X135         ACTIVE                                          F5G25850
       TSX SB,4 YES,RECORD SXD NEEDED.                                  F5G25860
X135   LXD XV14,2     REPLACE IR                                        F5G25870
       LXD SBV4,4      BY EXIT CONDITIONS                               F5G25880
       CLA EX1+3,2       OF THE                                         F5G25890
       STO IR1+3,4      REGION                                          F5G25900
X136   CLA ACT1+3,2      IS IR                                          F5G25910
       TPL X54       ACTIVE AT EXIT                                     F5G25920
       CLA S3V4        SET                                              F5G25930
       SSM                   ACTIVE                                     F5G25940
       SUB ONED         INDICATOR                                       F5G25950
       STO AC1+3,4                                                      F5G25960
X54    LXD XV14,2      COUNT TO                                         F5G25970
       TIX X56,2,1        3                                             F5G25980
       TSX SG,4            PERMUTE REGION WORD                          F5G25990
       CAL REG,2                                                        F5G26000
       ANA XK22                                                         F5G26010
       SLW REG,2                                                        F5G26020
       LXA S5K5,4                                                       F5G26030
XY1    CLA IR1+3,4                                                      F5G26040
       SUB S5K1                                                         F5G26050
       TNZ XY2                                                          F5G26060
       CAL XK23+3,4                                                     F5G26070
       ORS REG,2                                                        F5G26080
XY2    TIX XY1,4,1                                                      F5G26090
       TRA X3                                                           F5G26100
X223   CLA IR1+3,4         IS CONTENTS OF IR REAL                       F5G26110
       LDQ S5K2                                                         F5G26120
       TLQ X54                                                          F5G26130
       LXA S5K5,1          YES, SET COUNT TO 3                          F5G26140
X225   CAS EX1+3,1         IS CONTENTS SAME AS EXIT CONDITIONS          F5G26150
       TRA X224                                                         F5G26160
       TRA X226            YES                                          F5G26170
X224   TIX X225,1,1        COUNT TO 3                                   F5G26180
       TRA X54                                                          F5G26190
X226   CLA LK1             REPLACE IR BY E                              F5G26200
       STO IR1+3,4                                                      F5G26210
       TRA X54                                                          F5G26220
X131   LDQ EX1+3,2       IS THE EXIT                                    F5G26230
       CLA S5K2         CONDITION REAL FOR THIS IR                      F5G26240
       TLQ X132                                                         F5G26250
 X133  LXD SBV4,1            NO                                         F5G26260
       TSX SC,4        RECORD PART OF LPLST ACTIVE                      F5G26270
       TRA X135                                                         F5G26280
X132   CLA ACT1+3,2       IS THIS IR ACTIVE                             F5G26290
       TPL X135          AT EXIT OF REGION                              F5G26300
       TRA X133        YES                                              F5G26310
X88    CLA LPIND                                                        F5G26320
       TPL XY3               IS THIS A LOOP                             F5G26330
       CLA LPLST-1 YES                                                  F5G26340
       CAS S3K2 IS LAST LPLST QUANTITY A BB                             F5G26350
       NOP  NO,                                                         F5G26360
       TRA X125                                                         F5G26370
       ARS 18 YES                                                       F5G26380
X125   STA SBV3     STORE PRED. NO.                                     F5G26390
       CLA LPLST                                                        F5G26400
       TSX SE,4 GET INDEX 0F 1ST BB IN LOOP.                            F5G26410
       SXD XV8,1        STORE INDEX OF 1ST BB                           F5G26420
       CLA BBB,1                                                        F5G26430
X91    SLW XV16          STORE PRED. NO.                                F5G26440
       TSX SE5,4 GET INDEX OF PRED.                                     F5G26450
       CLA PRED,1 IS                                                    F5G26460
       ANA SBK2 THIS THE                                                F5G26470
       CAS SBV3 RIGHT PRED                                              F5G26460
       TRA X90                                                          F5G26490
       TRA X92 YES                                                      F5G26500
X90    CLA XV16                                                         F5G26510
       ADD ONEA                                                         F5G26520
       TRA X91                                                          F5G26530
XY3    LXA S5K5,1                                                       F5G26540
XY4    TSX SC,4                                                         F5G26550
       TIX XY4,1,1                                                      F5G26560
       TRA X89                                                          F5G26570
X97    SXD X137,1                                                       F5G26580
       CAS IR1+3,1  IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM         F5G26590
       TRA X98                                                          F5G26600
       TRA X93        YES                                               F5G26610
X98    CAL S5K3 RECORD LX FOR                                           F5G26620
       ARS 3,1 THIS IR IN THIS                                          F5G26630
       LXD XV1,1 REGION.                                                F5G26640
       ORS REG,1                                                        F5G26650
       SXD XV14,4 GET                                                   F5G26660
       SXD XV15,2 INDEX                                                 F5G26670
       CLA XV16 OF                                                      F5G26680
       TSX SE5,4 PRED.                                                  F5G26690
       LXD XV14,4                                                       F5G26700
       LXD XV15,2                                                       F5G26710
       CAL XK16 RECORD                                                  F5G26720
       ARS 3,4 LX                                                       F5G26730
       ORS PRED,1 NECESSARY.                                            F5G26740
       LXD X137,1                                                       F5G26750
X137   TXI X96,0,-                                                      F5G26760
X92    LXD XV8,2                                                        F5G26770
       LXA S5K5,4 SET COUNT TO 3                                        F5G26760
       CLA BBB+1,2 GET THE WORD WITH                                    F5G26790
       STO XV9 PERM. NOS.                                               F5G26800
X95    CAL XV9 GET                                                      F5G26810
       ARS 3,4 INDEX                                                    F5G26820
       ARS 3,4 OF                                                       F5G26830
       ANA S9K3 THE                                                     F5G26640
       PDX 0,1 I.R.                                                     F5G26850
       CAL BBB+2,2 GET ENTRANCE                                         F5G26860
       ARS 18 REQUIREMENT.                                              F5G26870
       CAS S5K2          IS ENM REAL                                    F5G26880
       NOP                                                              F5G26890
       TRA X96         NO                                               F5G26900
       TRA X97 YES                                                      F5G26910
X96    CLA AC1+3,1 IS IRN                                               F5G26920
       TZE X93 ACTIVE                                                   F5G26930
       SXD XV14,2 YES,                                                  F5G26940
       SXD XV15,4                                                       F5G26950
       TSX SB,4 RECORD SXD NECESSARY.                                   F5G26960
       LXD XV14,2                                                       F5G26970
       LXD XV15,4                                                       F5G26980
X93    TXI X93+1,2,-1                                                   F5G26990
X94    TIX X95,4,1 COUNT TO 3                                           F5G27000
       REM  ACTIVE PASS.                                                F5G27010
       REM  FOLLOWS 2 ED LXING PASS.                                    F5G27020
       LDQ S3K3 INITIALIZE THE                                          F5G27030
       STQ S3V4 LOOP LIST                                               F5G27040
       LDQ S5K3 AND                                                     F5G27050
       STQ S3V3 MAKE SURE TAG                                           F5G27060
       STQ ACIND      SET IND. TO SAY THIS IS ACTIVE PASS               F5G27070
       SXD S3V2,0     LOCATION GETS SET                                 F5G27080
A3     CLA ZERO ARE                                                     F5G27090
       ADM AC1 THERE                                                    F5G27100
       ADM AC2 ANY                                                      F5G27110
       ADM AC3 ACTIVE I.R.S                                             F5G27120
       TZE X89 LEFT GO TO RENUMBER.                                     F5G27130
       TSX S3,4 YES. TRY TO GET NEXT TAG.                               F5G27140
       TRA A12 COME HERE IF TAG NOT GOT                                 F5G27150
       CLA S39 COMPUTE LOCATION OF THIS                                 F5G27160
       ANA SBK2 TAG=(ADDR. F0LLOWING                                    F5G27170
       ADD S4V1 TIX BLOCK + L(CM)-CM TAG                                F5G27180
       SUB S4K3 - INDEX OF TAG.)                                        F5G27190
       ALS 18                                                           F5G27200
       SBM S3V2                                                         F5G27210
       LRS 53                                                           F5G27220
       STQ XV5                                                          F5G27230
       DVP XK9 FORM LOC/9 AND                                           F5G27240
       STQ XV3 REMAINDER                                                F5G27250
       STO XV4                                                          F5G27260
       CLA TPE IS THIS                                                  F5G27270
       CAS S2K2 AN LX                                                   F5G27280
       TRA A1                                                           F5G27290
       TRA A5 YES                                                       F5G27300
A1     CAS XK15 IS IT AN LX PRIME                                       F5G27310
       TRA A20                                                          F5G27320
       TRA A8 YES                                                       F5G27330
A20    CAS XK21 IS IT A DED                                             F5G27340
       TRA A21                                                          F5G27350
       TRA A8 YES.                                                      F5G27360
A21    CAS XK12 IS IT AN ACTIVE INSTR.                                  F5G27370
       TRA A2                                                           F5G27380
       TRA A5 YES.                                                      F5G27390
A2     CLA XV3 GET INDEX                                                F5G27400
       TSX SE4,4 OF STAG ENTRY.                                         F5G27410
       LXA XV4,2 IS THERE                                               F5G27420
       CAL STAG,1 AN LX                                                 F5G27430
       ARS 8,2 IN FRONT                                                 F5G27440
       ANA XK11 OF                                                      F5G27450
       CAS XK11 THIS INSTR.                                             F5G27460
       TRA A3                                                           F5G27470
       TRA A4 YES.                                                      F5G27480
       TRA A3                                                           F5G27490
A4     CAL XV4 GET                                                      F5G27500
       COM  THE                                                         F5G27510
       PAX 0,2 S-TAG                                                    F5G27520
       CAL STAG,1 IN                                                    F5G27530
       ALS 0,2 DECR.                                                    F5G27540
       ALS 0,2 PART.                                                    F5G27550
       ANA S9K3                                                         F5G27560
       PDX 0,1                                                          F5G27570
       CLA AC1+3,1 IS THE CORRESPONDING                                 F5G27580
       TZE A3 I.R. ACTIVE                                               F5G27590
       TSX SB,4 YES,RECORD SXD NECESSARY                                F5G27600
       TRA A3                                                           F5G27610
A5     CLA XV3                                                          F5G27620
       TSX SE4,4 GET STAG INDEX.                                        F5G27630
       CAL XV4                                                          F5G27640
       COM  IS IT                                                       F5G27650
       PAX 0,2 TO                                                       F5G27660
       CAL STAG,1 AN                                                    F5G27670
       ALS 0,2                                                          F5G27680
       ALS 0,2 ACTIVE                                                   F5G27690
       ANA S9K3                                ,                        F5G27700
       PDX 0,1 IR                                                       F5G27710
       CLA AC1+3,1                                                      F5G27720
       TZE A3                                                           F5G27730
  A51  CLA IR1+3,1 IS IT                                                F5G27740
       CAS 1TAG           SAME TAU-TAG                                  F5G27750
       TRA A6                                                           F5G27760
       TRA A7 YES                                                       F5G27770
A6     TSX SB,4 RECORD SXD NEEDED.                                      F5G27780
       TRA A3                                                           F5G27790
A7     TSX SC,4 RECORD CERTAIN PART OF                                  F5G27800
       TRA A3 LOOP LIST ACTIVE.                                         F5G27810
A8     CLA XV3 GET                                                      F5G27820
       TSX SE4,4 THE                                                    F5G27830
       CAL XV4                                                          F5G27840
       COM  S-TAG                                                       F5G27850
       PAX 0,2 OF                                                       F5G27860
       CAL STAG,1                                                       F5G27870
       STO S1V6                                                         F5G27871
       ALS 0,2 THIS                                                     F5G27880
       ALS 0,2 INSTR.                                                   F5G27890
       ANA S9K3                                                         F5G27900
       PDX 0,1                                                          F5G27910
       TZE A3 DOES THIS INSTR HAVE AN S-TAG                             F5G27920
       CLA AC1+3,1 YES.                                                 F5G27930
       TZE A3                IS THIS IR ACTIVE                          F5G27940
       CLA ZERO                                                         F5G27941
       PXD 0,2                                                          F5G27942
       COM                                                              F5G27943
       PDX 0,4                                                          F5G27944
       CLA S1V6                                                         F5G27945
       ARS 8,4                                                          F5G27946
       ANA ONED                                                         F5G27947
       TNZ A51                                                          F5G27948
       TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE                      F5G27950
       TRA A3                                                           F5G27960
A12    LXD S3V4,1      GET INDEX OF LPLST QUANTITY                      F5G27970
       CLA LPLST+S3P1-2,1     GET PREVIOUS LPLST QUANTITY               F5G27980
       STO XV19                                                         F5G27990
       LDQ S3K2      WAS IT A                                           F5G28000
       TLQ A28                                                          F5G28010
A25    TSX SE,4          YES, WAS THAT                                  F5G28020
       CLA BBB,1     BB TERMINATED                                      F5G28030
       ARS 33        BY A                                               F5G28040
       ADD ONEA         GO TO N                                         F5G28050
       TNZ A28                                                          F5G28060
       LXA S5K5,1     YES                                               F5G28070
A26    CLA AC1+3,1     IS THIS                                          F5G28080
       TZE A27      IR ACTIVE                                           F5G28090
       TSX SB,4     YES, RECORD SXD NECESSARY                           F5G28100
A27    TIX A26,1,1                                                      F5G28110
A28    CLA S3V5                                                         F5G28120
       LDQ S3K2          IS THIS                                        F5G28130
       TLQ A35           ATR. REGION                                    F5G28140
       ANA S5K1              NO, BB                                     F5G28150
       TZE A3                                                           F5G28160
       ALS 3                                                            F5G28170
       PDX 0,1                                                          F5G28180
       TXL AP1,1,2                                                      F5G28190
       TXI AP1,1,-1                                                     F5G28200
AP1    CLA AC1+3,1                                                      F5G28210
       TZE A3                                                           F5G28220
       TSX SB,4                                                         F5G28230
       TRA A3                                                           F5G28240
A35    TSX SE,4                                                         F5G28250
       CLA BBB+5,1                                                      F5G28260
       PDX 0,2          INDEX OF REGION TO 2                            F5G28270
       CLA REG,2        GET REGION                                      F5G28260
       STO XV19                                                         F5G28290
       LXA S5K5,1                                                       F5G28300
A31    CAL XV19                                                         F5G28310
       ALS 3,1                                                          F5G28320
       PBT                   IS THERE AN LX                             F5G28330
       TRA A30               FOR THIS IR                                F5G28340
       CLA AC1+3,1      YES                                             F5G28350
       TZE A30          IS THIS IR ACTIVE                               F5G28360
       TSX SB,4         YES, RECORD SXD NECESSARY                       F5G28370
A30    TIX A31,1,1                                                      F5G28380
       CLA S3V5                                                         F5G28390
       TSX SA,4         GET THE EXIT CONDITIONS                         F5G28400
       LXA S5K5,1                                                       F5G28410
A34    CLA AC1+3,1                                                      F5G28420
       TZE A32          IS THIS IR ACTIVE                               F5G28430
       CLA EX1+3,1      YES                                             F5G28440
       LDQ S5K2                                                         F5G28450
       TLQ A33          IS THE EXIT CONDITION REAL                      F5G28460
       CLA ACT1+3,1     YES                                             F5G28470
       TPL A32          IS THE IR ACTIVE AT EXIT                        F5G28480
A33    SXD XV20,1       YES                                             F5G28490
       LXD XV20,2                                                       F5G28500
       CLA S3V5                                                         F5G28510
       TSX SD,4         RECORD TR. REG. ACTIVE                          F5G28520
       LXD XV20,1                                                       F5G28530
       TSX SC,4         RECORD SECTION OF LPLST ACTIVE                  F5G28540
A32    TIX A34,1,1      COUNT TO 3                                      F5G28550
       TRA A3                                                           F5G28560
 QP    CLA XK15                                                         F5G28580
       ANA 16                                                           F5G28590
       ARS 1                                                            F5G28600
       STD SE21+2                                                       F5G28610
       TZE R                                                            F5G28620
       LXD PREDP+3,4                                                    F5G28630
       CLA BBBP+3                                                       F5G28640
QP0    TXL R,4,0                                                        F5G28650
       TXI QP1,4,-1                                                     F5G28660
 QP1   SXD SE21+3,4                                                     F5G28670
       SUB ONED                                                         F5G28680
       TSX SE,4                                                         F5G28690
       LXD BBBP,4                                                       F5G28700
       TXI QP2,4,BBBL-1                                                 F5G28710
 QP2   SXD QP4,4                                                        F5G28720
       SXD QP5,4                                                        F5G28730
       LXA BBB,4                                                        F5G28740
       SXD QP8,4                                                        F5G28750
       LXD SE21+3,4                                                     F5G28760
 QP3   PXD 0,4                                                          F5G28770
       TSX SE5+1,4                                                      F5G28780
       CLS PRED,1                                                       F5G28790
       PAX 0,4                                                          F5G28800
 QP4   TXH QP6,4,-                                                      F5G28810
       TXI QP5,4,BBBL                                                   F5G28820
 QP5   TXH QP7,4,-                                                      F5G28830
 QP6   STO PRED,1                                                       F5G28840
 QP7   LXD SEV2,4                                                       F5G28850
       CLA BBBP                                                         F5G28860
 QP8   TXL QP0,4,-                                                      F5G28870
       TXI QP3,4,-1                                                     F5G28880
       ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS.        F5G28890
       REM  STORAGE ASSIGNMENT (TABLES)                                 F5G28900
LPLST  BSS S3P1 SPACE FOR LOOP LIST TABLE                               F5G28910
REG    BES FP1 SPACE FOR REGION WORDS                                   F5G28920
SPACE  EQU MSIZE-5-REG     STORAGE SPACE LEFT                           F5G28930
 STAGL SYN STL                                                          F5G28940
STAG   HTR -                                                            F5G28950
       HTR -                                                            F5G28960
       REP 1,239                                                        F5G28970
 W0    CLA BBB+2,1                                                      F5G28980
       ARS 18                                                           F5G28990
       SUB XV21                                                         F5G29000
       TZE X42                                                          F5G29010
       LXA S5K5,1                                                       F5G29020
       LXD XV13,4                                                       F5G29030
 W1    CLA BBB+2,4                                                      F5G29040
       LRS 18                                                           F5G29050
       SUB XV21                                                         F5G29060
       TZE W3                                                           F5G29070
       CLA ZERO                                                         F5G29080
       LLS 18                                                           F5G29090
       SUB XV21                                                         F5G29100
       TZE W3                                                           F5G29110
       TXI W2,4,-1                                                      F5G29120
 W2    TIX W1,1,1                                                       F5G29130
       TXL X36,-,-                                                      F5G29140
 W3    SXD W4,2                                                         F5G29150
       LXD W2+1,1                                                       F5G29160
       TSX SB,4                                                         F5G29170
       LXD W4,2                                                         F5G29180
 W4    TXL X36,-,-                                                      F5G29190
       BSS PTL1      SPACE FOR PATCHES                                  F5G29200
CMTL   SYN 9*SPACE/20/15*15                                             F5G29210
CMTAG  BSS CMTL                                                         F5G29220
BBBL   SYN 6*SPACE/20/6                                                 F5G29230
BBB    BSS BBBL*6+1                                                     F5G29240
PRED   SYN BBB+BBBL*6+1                                                 F5G29250
SPAC1  EQU MSIZE-4-PRED                                                 F5G29260
PREDL  EQU SPAC1/2-1                                                    F5G29270
       BSS PREDL+1                                                      F5G29280
SUCCL  SYN PREDL                                                        F5G29290
SUCC   BSS SUCCL+1                                                      F5G29300
       REM         EDITOR RECORD NO. 76                                 F5G29310
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBEY.           F5G29320
       REM      DIAGNOSTIO CALLER FOLLOWS                               F5G29340
       REM                 PART 1B                                      F5G29350
       REM    INITIALIZATION AND PRED LIMIT FOR FAST COMPILING.         F5G29360
       ORG PRED                                                         F5G29370
I      LXA FK5,1                  CLEAR REG. TABLE                      F5G29380
       DCT   CLEAR DIVIDE CHECK LIGHT                                   F5G29390
       NOP      IN CASE DIVIDE CHECK IS ON                              F5G29400
       CLA ZERO                                                         F5G29410
I11    STO REG,1                                                        F5G29420
       TIX I11,1,1                                                      F5G29430
       PSE 96                TURN OFF SENSE LIGHTS.                     F5G29440
       CLA KEYS+3               INITIALIZE                              F5G29441
       STO STAGP+5 DRUM ADDR. OF STAG                                   F5G29450
       CLA KEYS+1                                                       F5G29460
       STO PREDP+5                                                      F5G29470
       CLA KEYS+2                                                       F5G29480
       STO BBBP+5 DRUM ADDR. OF BB.B.                                   F5G29490
       CLA KEYS                                                         F5G29500
       ALS 18                                                           F5G29510
       STO BBBP+3 NO. OF BASIC BLOCKS.                                  F5G29520
       SUB ONED                                                         F5G29530
       TSX SE,4                                                         F5G29540
       CLA BBB,1                                                        F5G29550
       STD SUCCP+3    LOCATION OF LAST SUCC                             F5G29560
       ALS 18                                                           F5G29570
       STD PREDP+3      LOCATION OF LAST PRED                           F5G29580
       CLA BBB+1,1                                                      F5G29590
       ANA S3K4                                                         F5G29600
       STO S4V3                                                         F5G29610
       LRS 35                                                           F5G29620
       DVP S4K2 COMPUTE                                                 F5G29630
       STQ IV1 THE                                                      F5G29640
       TZE I1 LOCATI0N                                                  F5G29650
       CLA ONEA WHICH A TAG                                             F5G29660
I1     ADD IV1 WOULD HAVE                                               F5G29670
       LRS 35 IF IT                                                     F5G29680
       MPY S4K2 WERE FIRST IN                                           F5G29690
       LLS 35 THE NEXT RECORD.                                          F5G29700
       STO S4V2                                                         F5G29710
       STO S4V1                                                         F5G29720
       CLA BBB+1,1 DETERMINE NO.                                        F5G29730
       ANA S3K4 OF ENTRIES IN                                           F5G29740
       LRS 35 STAG.                                                     F5G29750
       DVP XK9                                                          F5G29760
       STQ IV1                                                          F5G29770
       TZE I10                                                          F5G29780
       CLA ONEA                                                         F5G29790
I10    ADD IV1          INITIALIZE                                      F5G29800
       ALS 18                                                           F5G29010
       STO STAGP+3 OF ENTRIES IN STAG                                   F5G29820
       LRS 35 COMPUTE                                                   F5G29830
       DVP STAGP+2   THE                                                F5G29840
       TZE I3 DRUM                                                      F5G29850
       CLA ONEA ADDR.                                                   F5G29860
I3     STQ IV2 FOLLOWING                                                F5G29870
       ADD IV2 THE                                                      F5G29880
       ALS 18                                                           F5G29890
       ADD STAGP+3 STAG                                                 F5G29900
       ARS 18                                                           F5G29910
       ADD STAGP+5 TABLE.                                               F5G29920
       LDQ IK1                                                          F5G29930
       TLQ I7                                                           F5G29940
I6     CLA STAGP+1                                                      F5G29950
       CAS STAGP+3    ARE WE THRU STORING 0 S                           F5G29960
       TRA I4                                                           F5G29970
       TRA I9                                                           F5G29980
I4     STO STAGP SET N(0) TO OLD N(1)                                   F5G29990
       ADD STAGP+2 SET N(1) T0 MIN (OLD N(1)+N.,                        F5G30000
       LDQ STAGP+3 N(L)                                                 F5G30010
       STQ STAGP+1                                                      F5G30020
       TLQ I5                                                           F5G30030
       STO STAGP+1                                                      F5G30040
I5     CLA SEK                                                          F5G30050
       LXA IK2,2                                                        F5G30060
       TSX SE26,4 STORE BLOCK OF 0S                                     F5G30070
       TRA I6                                                           F5G30080
I7     TSX 4,4 TO DIAGNOSTIC                                            F5G30090
IV1                                                                     F5G30100
IV2                                                                     F5G30110
IK2        1-STAGP                                                      F5G30120
IK1    HTR 8191                                                         F5G30130
I9     TSX S4,4                                                         F5G30140
       REW INSTTP            REWIND THE COMPILED INST TAPE              F5G30150
       CLA KEYS+1                                                       F5G30160
       TNZ LPLST-1                                                      F5G30170
       STO LPIND                                                        F5G30180
       STO LPLST-1                                                      F5G30190
       STO LPLST                                                        F5G30200
       CLA S3K1                                                         F5G30210
       STO LPLST+1                                                      F5G30220
       LXD S1K2,4  SKIP DIAGNOSTICS                                     F5G30230
I9A    RTB 1  AND ANTIPINGPONG                                          F5G30240
       TIX I9A,4,1   SIX RECORDS                                        F5G30250
       TRA F75                                                          F5G30260
       REM         EDITOR RECORD NO. 78                                 F5G30270
       REM FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.           F5G30280
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G30300
       REM           PART 1C                                            F5G30310
       REM       SUCC LIMIT FOR FAST COMPILING                          F5G30320
       ORG LPLST-1                                                      F5G30330
 QS    LXD SE21+2,1                                                     F5G30340
       TXL F,1,0                                                        F5G30350
       LXD SUCCP+3,4                                                    F5G30360
       CLA BBBP+3                                                       F5G30370
 QS0   TXL F,4,0                                                        F5G30380
       TXI QS1,4,-1                                                     F5G30390
 QS1   SXD SE21+3,4                                                     F5G30400
       SUB ONED                                                         F5G30410
       TSX SE,4                                                         F5G30420
       LXD BBBP,4                                                       F5G30430
       TXI QS2,4,BBBL-1                                                 F5G30440
 QS2   SXD QS4,4                                                        F5G30450
       SXD QS5,4                                                        F5G30460
       LXD BBB,4                                                        F5G30470
       SXD QS8,4                                                        F5G30480
       LXD SE21+3,4                                                     F5G30490
 QS3   PXD 0,4                                                          F5G30500
       TSX SE6,4                                                        F5G30510
       CLS SUCC,1                                                       F5G30520
       PAX 0,4                                                          F5G30530
 QS4   TXH QS6,4,-                                                      F5G30540
       TXI QS5,4,BBBL                                                   F5G30550
 QS5   TXH QS7,4,-                                                      F5G30560
 QS6   STO SUCC,1                                                       F5G30570
 QS7   LXD SEV2,4                                                       F5G30580
       CLA BBBP                                                         F5G30590
 QS8   TXL QS0,4,-                                                      F5G30600
       TXI QS3,4,-1                                                     F5G30610
       REM         EDITOR RECORD NO. 80                                 F5G30620
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30630
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G30650
       REM           PART 1D                                            F5G30660
       REM         PRED UNDO FROM FAST COMPILING                        F5G30670
       ORG LPLST-1                                                      F5G30660
 QPU   LXD SE21+2,1                                                     F5G30690
       TXL R,1,0                                                        F5G30700
       LXD PREDP+3,4                                                    F5G30710
       CLA BBBP+3                                                       F5G30720
QPU0   TXL R,4,0                                                        F5G30730
       TXI QPU1,4,-1                                                    F5G30740
 QPU1  SXD SE21+3,4                                                     F5G30750
       SUB ONED                                                         F5G30760
       TSX SE,4                                                         F5G30770
       LXD BBBP,4                                                       F5G30780
       TXI QPU2,4,BBBL-1                                                F5G30790
 QPU2  SXD QPU4,4                                                       F5G30800
       SXD QPU5,4                                                       F5G30810
       LXA BBB,4                                                        F5G30820
       SXD QPU8,4                                                       F5G30830
       LXD SE21+3,4                                                     F5G30840
 QPU3  PXD 0,4                                                          F5G30850
       TSX SE5+1,4                                                      F5G30860
       CLS PRED,1                                                       F5G30870
       PAX 0,4                                                          F5G30880
 QPU4  TXH QPU6,4,-                                                     F5G30890
       TXI QPU5,4,BBBL                                                  F5G30900
 QPU5  TXH QPU7,4,-                                                     F5G30910
 QPU6  STO PRED,1                                                       F5G30920
 QPU7  LXD SEV2,4                                                       F5G30930
       CLA BBBP                                                         F5G30940
 QPU8  TXL QPU0,4,-                                                     F5G30950
       TXI QPU3,4,-1                                                    F5G30960
       REM         EDITOR RECORD NO. 82                                 F5G30970
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G30980
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G31000
       REM           PART 1E                                            F5G31010
       REM           SUCC UNDO FROM FAST COMPILING                      F5G31020
       ORG LPLST-1                                                      F5G31030
 QSU   LXD SE21+2,1                                                     F5G31040
       TXL F,1,0                                                        F5G31050
       LXD SUCCP+3,4                                                    F5G31060
       CLA BBBP+3                                                       F5G31070
 QSU0  TXL F,4,0                                                        F5G31080
       TXI QSU1,4,-1                                                    F5G31090
 QSU1  SXD SE21+3,4                                                     F5G31100
       SUB ONED                                                         F5G31110
       TSX SE,4                                                         F5G31120
       LXD BBBP,4                                                       F5G31130
       TXI QSU2,4,BBBL-1                                                F5G31140
 QSU2  SXD QSU4,4                                                       F5G31150
       SXD QSU5,4                                                       F5G31160
       LXD BBB,4                                                        F5G31170
       SXD QSU8,4                                                       F5G31180
       LXD SE21+3,4                                                     F5G31190
 QSU3  PXD 0,4                                                          F5G31200
       TSX SE6,4                                                        F5G31210
       CLS SUCC,1                                                       F5G31220
       PAX 0,4                                                          F5G31230
 QSU4  TXH QSU6,4,-                                                     F5G31240
       TXI QSU5,4,BBBL                                                  F5G31250
 QSU5  TXH QSU7,4,-                                                     F5G31260
 QSU6  STO SUCC,1                                                       F5G31270
 QSU7  LXD SEV2,4                                                       F5G31280
       CLA BBBP                                                         F5G31290
 QSU8  TXL QSU0,4,-                                                     F5G31300
       TXI QSU3,4,-1                                                    F5G31310
       REM         EDITOR RECORD N0. 84                                 F5G31320
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G31330
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G31350
       REM           PART 2                                             F5G31360
       REM PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE            F5G31370
       ORG C                                                            F5G31380
BLV09  HTR -1              BB NO. OF LAST GO TO N                       F5G31390
BL12   RTB BLT             FIND THE END OF FILE PRECEEDING BB LIST      F5G31400
BL13   CPY BLIST                                                        F5G31410
       TRA BL12                                                         F5G31420
       TRA BL6                                                          F5G31430
       TRA BL12                                                         F5G31440
BL6    LXD CON1,2                                                       F5G31450
BL5    RTB BLT                                                          F5G31460
       LXA CON1,1                                                       F5G31470
BL1    CPY BLIST,1         COPY BB LIST INTO CS                         F5G31480
       TXI BL1,1,-1                                                     F5G31490
CON1       0,0,5                                                        F5G31500
       IOD                                                              F5G31510
       RTT                                                              F5G31520
       TRA BL4             ERROR                                        F5G31530
       CLA KEYS            O.K. COMPUTE TEST CONSTANT                   F5G31540
       SUB TWO                                                          F5G31550
       STO BLV3                                                         F5G31560
       CLA ZERO                                                         F5G31570
       TSX SE4,4           STAG WORD                                    F5G31580
       CLA STAG,1                                                       F5G31590
       STO BLV07                                                        F5G31600
       CLA BLV1                                                         F5G31610
BL3    LDQ BLV3            HAVE WE ALREADY DEALT WITH LAST BB           F5G31620
       TLQ BL06            YES , GO TO READ IN NEXT PART                F5G31630
       ADD ONEA                                                         F5G31640
       TSX SE1,4           GET UNDEX OF NEXT BB                         F5G31650
       CLA BBB+1,1         STORE THE NO. OF THE                         F5G31660
       ANA RMSK            FIRST TAG IN                                 F5G31670
       STO BLV6            NEXT BB.,                                    F5G31680
       CLA BBB,1                                                        F5G31690
       ANA 2AMSK                                                        F5G31700
       STO BLV5            STORE AWAY NO. OF U1ST PRED IN NEXT BB.      F5G31710
       CLA BLV1                                                         F5G31720
       TSX SE1,4                                                        F5G31730
       LXD BLV2,2                                                       F5G31740
       CLA BLIST,2         REPLACE LAST WORD OF BBB ENTRY               F5G31750
       STO BBB+5,1         BY THE LOCATION FROM THE BB LIST.            F5G31760
BL2    TXI BL2+1,2,-1                                                   F5G31770
       SXD BLV2,2                                                       F5G31780
       CLA BBB+1,1         STORE PERMUTATION NOS.                       F5G31790
       STO BLV7                                                         F5G31800
       SXD BLV4,1                                                       F5G31810
       CLA BBB+1,1         GET                                          F5G31820
       ANA RMSK            OF 1ST TAG IN BB                             F5G31830
       SUB BLV6            FORM COUNT OF NO. OF T.GS                    F5G31840
       SUB ONEA                                                         F5G31850
       PAX 0,2             C0UNT OF NO. OF TAGS INTO 2.                 F5G31860
       SXD BLV05,2         STORE COUNT OF NO. OF TAGS                   F5G31870
       CLA BBB,1                                                        F5G31880
       ANA 2AMSK                                                        F5G31890
BL9    STO BLV01                                                        F5G31900
       CAS BLV5            IS THIS PRED IN SAME BB                      F5G31910
       TRA BL7             YES                                          F5G31920
       TRA BL01            NO                                           F5G31930
BL7    TSX SE5,4           YES, GET INDEX OF PRED                       F5G31940
       CAL SALM                                                         F5G31950
       SLW BLV9                                                         F5G31960
       CAL PRED,1                                                       F5G31970
       SLW BLV8            STODRE OLD PRED WORD                         F5G31980
       ANS BLV9            INT  INITIALIZE NEW PRED WORD                F5G31990
       LXD 2LD3,2         SET COUNT TO 3                                F5G32000
BL8    CAL BLV7            PLACE THE                                    F5G32010
       ARS 3,2             PERMUTATION NO.                              F5G32020
       ARS 3,2             IN REGISTER 4                                F5G32030
       ANA 2LD3                                                         F5G32040
       PDX 0,4                                                          F5G32050
       CAL BLV8            PERMUTE                                      F5G32060
       ALS 3,2             THE LXD                                      F5G32070
       ANA BITMK           AND SXD                                      F5G32080
       ARS 3,4             BITS IN THE                                  F5G32090
       ORS BLV9            PRED ENTRY                                   F5G32100
       TIX BL8,2,1         COUNT TO 3                                   F5G32110
       CLA BLV9                                                         F5G32120
       STO PRED,1          STORE PRED ENTRY WITH PERMUTED BITS          F5G32130
       CLA BLV01           ARRANGE TO CONSIDER                          F5G32140
       ADD ONEA            NEXT PRED ENTRY                              F5G32150
       TRA BL9                                                          F5G32160
BL4    BST BLT             TAPE CHECK     BACKSPACE TAPE                F5G32170
       TIX BL5,2,1         TRY 5 TIMES                                  F5G32160
       TSX 4,4 THEN START DIAGNOSTIC.                                   F5G32190
BL01   LXD BLV05,1                                                      F5G32200
BL03   TNX BL04,1,1        IS THERE ANOTHER TAG IN BB                   F5G32210
       LXD BLV04,2         YES                                          F5G32220
       TIX BL02,2,1        HAVE WE EXHAUSTED STAG WORD                  F5G32230
       SXD BLV05,1         YES, STORE COUNT OF NO. OF TAGS              F5G32240
       LXD BLV08,2         STORE                                        F5G32250
       CLA BLV07           OLD PERMUTED                                 F5G32260
       STO STAG,2          STAG WORD                                    F5G32270
       CLA ZERO                                                         F5G32280
       STO BLV07                                                        F5G32290
       CLA BLV03           GET                                          F5G32300
       TSX SE4,4           NEXT                                         F5G32310
       SXD BLV08,1         STAG                                         F5G32320
       CAL STAG,1          WORD                                         F5G32330
       SLW BLV06           STORE STAG WORD                              F5G32340
       ANA LMSK            AND                                          F5G32350
       SLW BLV07           INITIALIZE NEW STAG WORD                     F5G32360
       CLA BLV03           INCREASE THE                                 F5G32370
       ADD ONEA            STAG WORD NO.                                F5G32380
       STO BLV03                                                        F5G32390
       LXD 2LD9,2         RESET COUNT TO 9                              F5G32400
       LXD BLV05,1         RESTORE 1                                    F5G32410
BL02   SXD BLV04,2         STORE COUNTER                                F5G32420
       CAL BLV06                                                        F5G32430
       ALS 2                                                            F5G32440
       SLW BLV06                                                        F5G32450
       ANA 2LD3           EXTRACT TAG                                   F5G32460
       PDX 0,4                                                          F5G32470
       CAL BLV7            PERMUTE                                      F5G32480
       ARS 3,4                                                          F5G32490
       ARS 3,4             THE                                          F5G32500
       ANA 2LD3           TAG                                           F5G32510
       ARS 10,2                                                         F5G32520
       ARS 10,2                                                         F5G32530
       ORS BLV07           FORM NEW TAG WORD                            F5G32540
       TRA BL03                                                         F5G32550
BL04   LXD BLV4,1          GET INDEX OF BB                              F5G32560
       CLA BBB,1           IS                                           F5G32570
       ARS 33              THIS                                         F5G32560
       ADD ONEA            A GO N                                       F5G32590
       TNZ BL07            NO                                           F5G32600
       CLA BLV09           YES, STORE BB NO.                            F5G32610
       ALS 18              OF LAST                                      F5G32620
       STD BBB+1,1         GO N ENCOUNTERED                             F5G32630
       CLA BLV1            STORE PRESENT                                F5G32640
       STO BLV09           BB NO.                                       F5G32650
 BL07  LXD 2LD3,2         SET COUNT TO 3                                F5G32660
BL09   CAL BLV7                                                         F5G32670
       ARS 3,2                                                          F5G32680
       ARS 3,2             GET PERMUTATION NO.                          F5G32690
       ANA 2LD3                                                         F5G32700
       PDX 0,4                                                          F5G32710
       CLA BBB+2,1         PERMUTE                                      F5G32720
       STO EXCO,4          ENTRANCE-EXIT REQUIREMENTS                   F5G32730
BL08   TXI BL08+1,1,-1                                                  F5G32740
       TIX BL09,2,1        COUNT TO 3                                   F5G32750
       LXD 2LD3,2         PLACE PERMUTED                                F5G32760
BL10   CLA EXCO,2          ENTRANCE-EXIT COND.                          F5G32770
       STO BBB-1,1         BACK IN BB                                   F5G32780
BL11   TXI BL11+1,1,-1                                                  F5G32790
       TIX BL10,2,1        COUNT TO 3                                   F5G32800
BL05   CLA BLV1            PREPARE TO DEAL WITH                         F5G32810
       ADD ONEA            WITH NEXT BB                                 F5G32820
       STO BLV1                                                         F5G32830
       TRA BL3                                                          F5G32840
BL06   TSX SE1,4  PUT EDN MARK INTO THF DUMMEY BB                       F5G32850
       CLA EN2MK                                                        F5G32860
       STO BBB+5,1                                                      F5G32870
       CLA BLV07           STORE                                        F5G32880
       LXD BLV08,2         OLD                                          F5G32890
       STO STAG,2          STAG WORD                                    F5G32900
       TRA R               READ NEXT PART                               F5G32910
 2LD3      0,0,3                                                        F5G32920
 2LD9      0,0,9                                                        F5G32930
TWO        2                                                            F5G32940
 2AMSK     -1             ADDRESS MASK                                  F5G32950
RMSK       -1,-1           RIGHT HALF MASK                              F5G32960
SALM   OCT -377770077777   MS    MASK OUT SXD AND LXD PRED REULTS       F5G32970
 EN2MK PTH -1,-1,-1        PUT IN LOCATION OF DUMMEY BB                 F5G32980
BITMK      0,4,4           MASK TO EXTRACT ONE SXD AND LXD BIT          F5G32990
LMSK   OCT -377777000000                                                F5G33000
EXCO   BES 3               THE ENTRANCE-EXIT CONDITIONS  PERMUTED       F5G33010
BLV1                       BBNO.                                        F5G33020
BLV2                       INDEX IN BB LIST                             F5G33030
BLV3                       TEST CONSTANT                                F5G33040
BLV4                       INDEX OF BB                                  F5G33050
BLV5                       1ST PRED NO. IN NEXT BB                      F5G33060
BLV6                       UST TAG IN NEXT BB                           F5G33070
BLV7                       PERMUTTTION NOS.                             F5G33080
BLV8                       OLD PRED ENTRY                               F5G33090
BLV9                       NEW, PERMUTED, PRED ENTRY                    F5G33100
BLV01                      CURRENT PRED. NO.                            F5G33110
BLV03                      NO. OF STAG WORD, INITIALLY ZERO             F5G33120
BLV04                      COUNTER TO 9, INITIALLY ZERO                 F5G33130
BLV05                      C0UNT OF NO. OF TAGS IN BB                   F5G33140
BLV06                      STAG WORD                                    F5G33150
BLV07                      NEW, PERMUTED , STAG WORD                    F5G33160
BLV08                      INDEX OF OLD STAG WORD                       F5G33170
       BSS PTL2      SPACE FOR PATCHES                                  F5G33180
BLIST                                                                   F5G33190
       REM         EDITOR RECORD NO. 86                                 F5G33200
       REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY.           F5G33210
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G33230
       REM           PART 3                                             F5G33240
       REM CHANGE LXD AND SXD RESULTS TO BE C0MPATIBLE WITH GO TO       F5G33250
       REM N RESTRICTION.  MODIFY ASSIGN CONSTANT TABLE.                F5G33260
       REM   C CONTAINS THE BB NO. OF THE GO TO N                       F5G33270
       ORG C+1                                                          F5G33280
START  RTB ACTPE           LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290
       CPY ACV12                                                        F5G33300
       TRA START                                                        F5G33310
       TRA RDIN                                                         F5G33320
       TRA START                                                        F5G33330
ERR    BST ACTPE           BACKSPACE TAPE TO TRY AGAIN                  F5G33340
       TIX AAC2,2,1        COUNT TO 5                                   F5G33350
       TSX 4,4     TO DIAGNOSTIC                                        F5G33360
 RDIN  LXD 3LD3,2                                                       F5G33370
AAC2   RTB ACTPE                                                        F5G33360
       CPY ACV12           COPY THE EXTRA WORD                          F5G33390
       LXA ZERO,1                                                       F5G33400
AAC1   CPY ASCON,1                                                      F5G33410
       TXI AAC1,1,-1                                                    F5G33420
       TSX 4,4                                                          F5G33430
       IOD                 CHECK      REDUNDANCY BITS                   F5G33440
       RTT                                                              F5G33450
       TRA ERR             THERR IS AN ERROR                            F5G33460
       RTB ACTPE                                                        F5G33470
       RTB ACTPE                                                        F5G33480
       RTB ACTPE                                                        F5G33490
       IOD                                                              F5G33500
       SXD ACV1,1          O.K. STORE RECORD  OF NO. OF ENTRIES         F5G33510
       SXD AC22,1                                                       F5G33520
       CLA C                                                            F5G33530
AC15   LDQ ACK1            GET BB NO. OF 1ST GO TO N                    F5G33540
       TLQ AC16            WAS THIS THE LAST GO TO N                    F5G33550
       ADD ONEA            NO                                           F5G33560
       TSX SE1,4                                                        F5G33570
       CAL BBB,1           FIND NO. OF 1ST SUCC IN NEXT BB              F5G33580
       ARS 18                                                           F5G33590
       STA ACV3                                                         F5G33600
       CLA C                                                            F5G33610
       TSX SE1,4                                                        F5G33620
       CLA ZERO            CLEAR THE COMBINED SXDD CASE                 F5G33630
       STO ACV4                                                         F5G33640
       CAL BBB,1           FIND THE NO. OF 1ST SUCC IN THIS BB          F5G33650
       ARS 18                                                           F5G33660
       ANA AMSK                                                         F5G33670
AC13   STO ACV2                                                         F5G33680
       CAS ACV3            IS THIS SUCC IN SAME BB                      F5G33690
       TRA AAC3            YES                                          F5G33700
       TRA AC14            NO                                           F5G33710
AAC3   ALS 18                                                           F5G33720
       TSX SE6,4           YES GET BB NO. OF SUCESSOR                   F5G33730
       CAL SUCC,1                                                       F5G33740
       STA ACV8                                                         F5G33750
       ADD ONEA            FIN NO. OF 1ST PRED ENTRY NEXT BBB           F5G33760
       TSX SE1,4                                                        F5G33770
       CLA BBB,1                                                        F5G33780
       STA ACV6                                                         F5G33790
       CLA ZERO                                                         F5G33800
       STO ACV10           PRESET COMBINED LXO CASE TO 0                F5G33810
       CLA ACV8            FIND NO. OF 1ST PRED  IN THIS BB             F5G33620
       TSX SE1,4                                                        F5G33830
       CAL BBB,1                                                        F5G33840
       ANA AMSK                                                         F5G33850
       STA ACV9            RECORD 1ST PRED FOR FUTURE USE               F5G33860
AC7    STA ACV7                                                         F5G33870
       CAS ACV6            IS THIS PRED IN SAME BB                      F5G33880
       TRA AC4                                                          F5G33890
       TRA AC8             NO                                           F5G33900
AC4    TSX SE5,4           IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910
       CAL PRED,1          ED GO TO NP                                  F5G33920
       ANA AMSK                                                         F5G33930
       SUB C                                                            F5G33940
       TNZ AC5             IF NOT SKIP THE ORING 0F SXD CASE            F5G33950
       CAL PRED,1          OR THE SXD CASE INTO COMBINED SXD CASE       F5G33960
       ORS ACV4                                                         F5G33970
       CAL NTMSK                                                        F5G33980
       ANS PRED,1                                                       F5G33990
AC5    CAL PRED,1          IS THE BB WHICH IS PREDECESSOR               F5G34000
       SXD ACV11,1         A GO TO N                                    F5G34010
       TSX SE1,4                                                        F5G34020
       CLA BBB,1                                                        F5G34030
       ARS 33                                                           F5G34040
       ADD ONEA                                                         F5G34050
       TNZ AC6                                                          F5G34060
       LXD ACV11,2         YES, OR THE LXD XCASE INTO THE               F5G34070
       CAL PRED,2          COMBINED LXD CASE                            F5G34080
       ORS ACV10                                                        F5G34090
AC6    CLA ACV7                                                         F5G34100
       ADD ONEA                                                         F5G34110
       TRA AC7                                                          F5G34120
AC8    CAL ACV10           IS THE COMBINED LXD CASE ZERO                F5G34130
       ANA TMSK                                                         F5G34140
       TZE AC12                                                         F5G34150
       CLA ACV8            NO, HAS THIS BB ALREADY BEEN                 F5G34160
       TSX SE1,4           CONSIDERED                                   F5G34170
       LDQ BBB,1           AS A SUCCESSOR TO                            F5G34180
       RQL 20              A GO TO N                                    F5G34190
       TQP AC18                                                         F5G34200
       TRA AC12                                                         F5G34210
AC18   CLA LT1                                                          F5G34220
       ORS BBB,1           RECORD THAT THIS BB HAS BEEN CONSIDERED AS   F5G34230
       CLA ACV9            ECT..PE  PREPARE TO SCAN ALL PRED ENTRYS     F5G34240
AC11   STA ACV7                                                         F5G34250
       CAS ACV6            IS THIS PRED IN SAME BB                      F5G34260
       TRA AC9                                                          F5G34270
       TRA AC19            NO                                           F5G34280
AC9    TSX SE5,4           DETERMINE IF THE BB WHICH                    F5G34290
       SXD ACV11,1         IS THE PREDECESSOR OF THIS ONE               F5G34300
       CLA PRED,1          IS A GO TO N                                 F5G34310
       TSX SE1,4                                                        F5G34320
       CLA BBB,1                                                        F5G34330
       ARS 33                                                           F5G34340
       ADD ONEA                                                         F5G34350
       TNZ AC10                                                         F5G34360
       LXD ACV11,2         IT IS A GO TO N                              F5G34370
       CLA ACV10           REPLACE LXD CASE BY THE                      F5G34380
       ANA TMSK            COMBINED LXD CASE                            F5G34390
       ORS PRED,2                                                       F5G34400
AC10   CLA ACV7            ARRANGE TO TREAT NEXT PRED ENTRY             F5G34410
       ADD ONEA                                                         F5G34420
       TRA AC11                                                         F5G34430
AC12   CLA ACV2                                                         F5G34440
       ADD ONEA            ARRANGE TO TREAT NEXT SUCC ENTRY             F5G34450
       TRA AC13                                                         F5G34460
AC14   CLA C               STORE COMBINED                               F5G34470
       TSX SE1,4           SXDCASE IN PREFIX                            F5G34480
       CLA ACV4            OF 2ED WORD OF BBB ENTRY                     F5G34490
       ALS 15                                                           F5G34500
       STP BBB+1,1                                                      F5G34510
       CLA BBB+1,1         GET NEXT GO TO N NUMBER                      F5G34520
       ARS 18                                                           F5G34530
       ANA AMSK                                                         F5G34540
       STO C                                                            F5G34550
       TRA AC15                                                         F5G34560
AC16   WTB ACTPE           WRITE ASSIGN CONSTANTS BACK ON TAPE          F5G34570
       LXA ZERO,1                                                       F5G34580
       LXD ACV1,2                                                       F5G34590
       CPY ACV12                                                        F5G34600
       TXL R,2,0           IF NO ASSIGN CONST., GO TO NEXT PART         F5G34610
AC17   CPY ASCON,1                                                      F5G34620
       TXI ACV1,1,-1                                                    F5G34630
ACV1   TXL R,1,SET                                                      F5G34640
       TRA AC17                                                         F5G34650
AC19   CLA ACV8                                                         F5G34660
       TSX SE1,4                                                        F5G34670
       LXA ZERO,2                                                       F5G34680
AC25   CLA BBB+5,1                                                      F5G34690
AC23   CAS ASCON,2         IS THIS ASSIGN CONST. EQUAL TO THE           F5G34700
       TRA AC20            LOCATION OF 1ST INST IN BB                   F5G34710
       TRA AC24            YES                                          F5G34720
AC20   TXL AC21,2,0                                                     F5G34730
AC22   TXL AC12,2,SET                                                   F5G34740
AC21   TXI AC23,2,-1                                                    F5G34750
AC24   CAL ACV10           REPLACE ASSIGN CONST. BY NEW                 F5G34760
       ANA TMSK            LOCATION SYMBOL                              F5G34770
       ARS 5                                                            F5G34780
       ADD ACV8                                                         F5G34790
       ACL LXDC                                                         F5G34800
       SLW ASCON,2                                                      F5G34810
       TRA AC25                                                         F5G34820
AMSK   HTR -1                                                           F5G34830
TMSK   HTR 0,-1                                                         F5G34840
NTMSK  OCT 777770777777                                                 F5G34050
 3LD3      0,0,5                                                        F5G34860
LXDC   OCT 150000000000      THE NUMBER IDENTIFYING THE LOC. OF AN LXD  F5G34870
LT1    HTR 0,1                                                          F5G34880
ACK1   OCT 77776                                                        F5G34890
ACV2                       NO. OF CURRENT SUCC. OF THIS BB  IN ADDR.    F5G34900
ACV3                       NO. OF 1ST SUCC IN NEXT BB   IN ADDR         F5G34910
ACV4                       COMBINED SXD CASE  LAST OCTAL DIGIT IN DECR  F5G34920
ACV5                       NO. OF CURRENT PRED   IN ADDR                F5G34930
ACV6                       NO. OF 1ST PRED IN NEXT BB  IN ADDR          F5G34940
ACV7                       MO. OF CURRENT PRED IN THIS BB   IN ADDR     F5G34950
ACV8                       BB NO. OF SUCCESSOR   IN ADDR                F5G34960
ACV9                       NO. OF 1ST PRED IN THE SUCCESSOR BB   IN ADDRF5G34970
ACV10                      THE COMBINED LXD CASE                        F5G34980
ACV11                      TEMP. STORE FOR PRED TABLE INDEX   AT AC5    F5G34990
ACV12                      EXTRA WORD FROM ASSIGN CONSTANT RECORD       F5G35000
ACV13                      TEMP. STORE FOR LOCATION OF 1ST INST. IN BB  F5G35010
ASCON  BES PTL3       SPACE FOR PATCHES                                 F5G35020
       REM         EDITOR RECORD NO. 88                                 F5G35030
       REM FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY.           F5G35040
       REM      DIAGNOSTIC CALLER FOLLOWS                               F5G35060
       REM           PART 4                                             F5G35070
       REM COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS                   F5G35080
       REM  CONSTANTS                                                   F5G35090
       ORG C                                                            F5G35100
L3         3                                                            F5G35110
L4         4                                                            F5G35120
L7         7                                                            F5G35130
L19        19                                                           F5G35140
LD1    SYN ONED                                                         F5G35150
LD2        0,0,2                                                        F5G35160
LD3        0,0,3                                                        F5G35170
LD4        0,0,4                                                        F5G35180
LD7        0,0,7                                                        F5G35190
LD8        0,0,8                                                        F5G35200
LD9        0,0,9                                                        F5G35210
LD12       0,0,12                                                       F5G35220
LT7        0,7                                                          F5G35230
LM20       -20                                                          F5G35240
LM4        -4                                                           F5G35250
DECMK      0,0,-1          DECREMENT MASK                               F5G35260
ENDMK  PTH -1,-1,-1                                                     F5G35270
ADDMK      -1                                                           F5G35280
STMSK  OCT 777770                                                       F5G35290
PRMK       0,7,7           MASK FOR PRED RESULTS                        F5G35300
TAGMK      -1,-1           MASK FOR TAU- TAGS                           F5G35310
LFTMSK MTH 0,0,-1                                                       F5G35320
SMK3   SYN LFTMSK                                                       F5G35330
LTPL   BCD 1TPL000                                                      F5G35340
LLXP   BCD 1LXP000                                                      F5G35350
LSYN   BCD 1SYN000                                                      F5G35360
LDED   BCD 1DED000                                                      F5G35370
LTRA   BCD 1TRA000                                                      F5G35380
LTSX   BCD 1TSX000                                                      F5G35390
 LBSS  BCD 1BSS000           BSS IN BCD.                                F5G35391
LPSE   OCT 76225000000                                                  F5G35400
GSYM   OCT 60000000000     GARBAGE SYMBLE                               F5G35410
T4SYM  PZE 4,0,4             TAG 4 AND RELATIVE PART 4                  F5G35420
           4               4 NUMBERS TO CONVERT S-TAG                   F5G35430
           2                                                            F5G35440
           1                                                            F5G35450
VSTAG  PZE 0                                                            F5G35460
RECSC  HTR RECNO           ADDR, NO. OF RECS. BROUGHT IN , C.I.T.       F5G35470
 LCOUT TRA -               TRANSFER TO EXIT ROUTINE                     F5G35480
       OCT 35121000000     TRA OP CODE                                  F5G35490
       OCT 41104000000     PSE-TRA                                      F5G35500
       OCT -33642000000    DCT-PSE                                      F5G35510
       OCT -24000000000    RTT-DCT                                      F5G35520
       OCT 27642000000     MSE-RTT                                      F5G35530
       OCT -7100000000     TZE-MSE                                      F5G35540
       OCT -32154000000    HPR-TZE                                      F5G35550
LNTOP  OCT 31316000000     TSX-HPR                                      F5G35560
       OCT 35121000000                                                  F5G35570
       OCT 1622000000      TXL-TRA                                      F5G35580
       OCT -31772000000    HPR-TXL                                      F5G35590
LTROP  OCT 31400000000     TTR-HPR                                      F5G35600
FSTLT  OCT -370000000000                                                F5G35610
FSTT   OCT -230000000000                                                F5G35620
PCC    OCT 170000000000    MEANS LOCATION OF THIS INST.                 F5G35630
PFXMK  OCT -300000000000                                                F5G35640
XXPSX  OCT 770000000       CONSTANTS TO TEST PSE ADDR.                  F5G35650
XX16X  OCT 160000000                                                    F5G35660
XX360  OCT 360000000                                                    F5G35670
SHK1   OCT 777777          CONST. TO EXTRACT R. HALF WORD               F5G35680
SHK2   SYN L4                                                           F5G35690
SIK2   OCT 160000000000    I.D. FOR LOCATION OF SXD                     F5G35700
SIK3   BCD 1SXD000         SXD IN BCD                                   F5G35710
LSXD   SYN SIK3                                                         F5G35720
IDSXD  SYN SIK2                                                         F5G35730
SKK1       LCLST                                                        F5G35740
SLK1   SYN LTRA            TRA IN BCD                                   F5G35750
SMK1   OCT 150000000000    I.D. FOR LOCATION OF LXD                     F5G35760
SMK2   BCD 1LXD000         LXD IN BCD                                   F5G35770
LLXD   SYN SMK2                                                         F5G35780
       REM                 FOR SMK3 SEE LFTMSK                          F5G35790
SMK4   OCT 140000000000    I.D. FOR TAU-TAG                             F5G35800
SLK2   SYN SMK1                                                         F5G35810
IDLXD  SYN SMK1                                                         F5G35820
IDTAG  SYN SMK4                                                         F5G35830
Z1K3   OCT -0                                                           F5G35840
MZE    SYN Z1K3                                                         F5G35850
Z2K1       0,0,-2          THE INDEXES NEEDED T0 REFER                  F5G35860
           0,0,-6          TO THE BOTTOM POSITIONS                      F5G35870
           0,0,-10         IN LIST1, LIST2, L1ST3, RESPT.               F5G35880
Z2K2   HTR 3,0,7           NO. OF LISTS, NO. OF CASES                   F5G35890
CASE   HTR 1                                                            F5G35900
           2                                                            F5G35910
           4                                                            F5G35920
           3                                                            F5G35930
           5                                                            F5G35940
           6                                                            F5G35950
           7                                                            F5G35960
Z2K3   OCT 32212110        CONST. TO DETERMINE NO. 1 S IN 3 BITS        F5G35970
Z2K4   DEC 3B14                                                         F5G35980
Z2K5   HTR 7                                                            F5G35990
Z4K1       -1                                                           F5G36000
Z4K2       0               INDEX OF ST SXD CASE                         F5G36010
LNSXD      NSXD*4          NO. OF SXD IN SXD LIST                       F5G36020
Z7K1       0,0,-8          INDEAXES OF ASSOCIATED SXD CASES             F5G36030
           0,0,-12                                                      F5G36040
           0,0,-16                                                      F5G36050
       REM THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS       F5G36060
BBNO   MZE 0,0,1           DECR., CURRENT BB NO. BEING SCANNED          F5G36070
NXTLOC                     LOCATUON OF 1ST INST OF THE BB               F5G36080
OUTBX                      TEMP. STORAGE OF RETURN INDEXES              F5G36090
ERRBX                      ERROR INDICATOR                              F5G36100
BBOX                       TEMP. STORE FOR INDEXES, MAINLY 2            F5G36110
BBOX1                      ANOTHER  OF SAME                             F5G36120
ABOX                       TEMP. STORE , INDEX 1                        F5G36130
TAG                        TAU-TAG FROM AN INST.                        F5G36140
STAGN1                     WORD FROM STAG SHIFTED LEFT MULTIPLE OF 1    F5G36150
STAGN2                     SAME WORD SHIFTED BY ONES                    F5G36160
9CNT                       COUNT TO 9, 9 TAGS IN STAG WORD              F5G36170
STGWD  DEC -1              NO. OF STAG ENTRY BEING CONSIDERED           F5G36180
TMP10                      TEMP. STORE , LASTS ONLY 10 INSTRS.          F5G36190
CIND                       + OR - MEANS IR4 ISNT OR 1S NECESSARY        F5G36200
 CPIND MZE              + OR - MEANS COMPILE/DONT COMPILE               F5G36210
ARG1                       U  1ST ARGUMENT FOR SUBROUTINES              F5G36220
MBOX                       16. OF TRANSFERS IN GO TO VECTOR             F5G36230
SUCNO                      I0. OF A SUCCESSOR, GOV ROUTINE              F5G36240
SXD0                       LXD CASE IN DECR., PRED NO. IN ADDR.         F5G36250
SXD1                       3 TAU TAGS WHICH MUST BE STORED              F5G36260
SXD2                       FROM IR1,2,3                                 F5G36270
SXD3                       RESPT.                                       F5G36280
SADV1                      RETURN INDEX                                 F5G36290
SADV2                      LOCATION OF 1ST INST IN SUCCESSOR BB         F5G36300
SADV3                      NO. OF CURRENT PRED                          F5G36310
SADV4                      NO. OF 1ST PRED IN SUCCESSOR BB              F5G36320
SADV5                      THE SUCCESSOR BB NO.                         F5G36330
SHV1                       RETURN INDEX                                 F5G36340
SHV2                       ENTRY FROM PRED.                             F5G36350
SIV1                       INDEX OF SXD CASE RELATIVE TO SXST           F5G36360
SIV2                       RETURN INDEX                                 F5G36370
SIV3                       LOCATI0N OF 1ST INST. IN SXD GROUP           F5G36380
SIV4                       TEMP. STORE                                  F5G36390
SIV5                       STORE FOR INDEX OF TAU TAG IN SXD CASE       F5G36400
SIV6                       STOER FOR THE TAG                            F5G36410
SJV1                       LXD CASE IN DECR.                            F5G36420
SJV2                       RETURN INDEX                                 F5G36430
SJV3                                                                    F5G36440
CLST   BES LCLST           THE NEW LIST OF COMPILED INST.               F5G36450
SKV1       0,0,LCLST       INDEX FOR NEXT ENTRY IN CLST                 F5G36460
       REM  SKV1 COMES ALREADY INITIALIZED                              F5G36470
SLV1                       RETURN INDEX                                 F5G36480
SLV2                       LOCATION TO BE ATTACHED T0 TRA               F5G36490
SLV3                       + OR - MEANS  ISNT OR IS HANGING TRA0        F5G36500
SMV1                       RETURN INDEX                                 F5G36510
SMV2                       TAG TO BE COMPILED                           F5G36520
SMV3                       STORE INDEX OF QUANTITY IN LIST              F5G36530
SMV4                       LOCATION , TEMP. STORE                       F5G36540
Z1V2                       NO. OF 1ST PRED. IN NEXT BB                  F5G36550
Z1V3                       NO. OF PRED BEING CONSIDERED                 F5G36560
Z1V5                       THE CASES                                    F5G36570
Z1V8                       THE LOC. OF 1ST PRED IN BB,  USED IN Z4      F5G36580
Z2V1                       IN DECREMENTS, THE INDEXES                   F5G36590
                           THE TOP ENTRIES                              F5G36600
                           IN THE 3 LXD LISTS                           F5G36610
Z2V2                       IN ADDR., NO. OF 1S IN DIFFERENCE            F5G36620
Z2V3                       IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630
LIST1  BSS 4                                                            F5G36640
LIST2  BSS 4                                                            F5G36650
LIST3  BSS 4                                                            F5G36660
LLIND  BES 3               + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670
Z4V1                       TEMP. STORE , LXD CASE IN ADDR.              F5G36680
Z5V1                       INDEX IN SYN TABLE                           F5G36690
Z7V1                       INDEX OF LIST                                F5G36700
Z7V2                       + OR - MEANS 1ST OR 2ED TIME THRU            F5G36710
NDINS  BES 12              BLOCK FOR 3 EXTRA COMPILED INST.             F5G36720
INST   BES RECNO*100       THE BLOCK FOR THE COMPILED INSTR             F5G36730
SXST   MZE                 - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740
       BSS 3                                                            F5G36750
       REM  THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER           F5G36760
SXAS0  BSS 4               ASSOCIATED WITH 0 LXD CASE                   F5G36770
SXAS1  BSS 4               WITH 1ST LXD LIST                            F5G36780
SXAS2  BSS 4               2ED LIST                                     F5G36790
SXAS3  BSS 4               3RD                                          F5G36800
SXAS   BSS 4*NSXD          THE LIST 0F SXD INST.                        F5G36810
SYN    MZE                 SYN CARD TABLE STORED BACKWARD               F5G36820
       REM WHEN ENTERED WITH PRESENT BB NO. IN ADDR 0F ARG1 AND BBNO.   F5G36830
       REM  OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840
       REM DRESS OF CORRESPONDING TRANSFER INST.  SH0ULD BE AND RETURNS F5G36850
       REM  WITH THE ADDR IN LOGICAL AC                                 F5G36860
SAD    SXD SADV1,4         STORE RETURN                                 F5G36870
       ANA ADDMK           STORE THE SUCC. NO.                          F5G36880
       STO SADV5                                                        F5G36890
       TSX SE1,4                                                        F5G36900
       CLA BBB+5,1                                                      F5G36910
       STO SADV2                                                        F5G36920
       CLA BBB,1                                                        F5G36930
       ANA ADDMK                                                        F5G36940
       SLW SADV4                                                        F5G36950
SAD1   SLW SADV3                                                        F5G36960
       TSX SE5,4                                                        F5G36970
       CLA PRED,1                                                       F5G36980
       ANA ADDMK           IS THIS THE CORRECT                          F5G36990
       SUB ARG1            PRED ENTRY                                   F5G37000
       TZE SAD2                                                         F5G37010
       CAL SADV3           NO, TRY NEXT RETURN                          F5G37020
       ADD ONEA                                                         F5G37030
       TRA SAD1                                                         F5G37040
SAD2   CAL PRED,1          IS THE SXD CASE 0                            F5G37050
       ANA LD7                                                          F5G37060
       TZE SAD3            YES                                          F5G37070
       CLA SADV3           N0, FORM THE SYMBOLIC ADDR.                  F5G37080
       SUB SADV4           AS ID FOR SXD PLUS NO. OF PRED WITHIN        F5G37090
       ALS 10              THE BB * 1024    PLUS BB NO.                 F5G37100
       ADD IDSXD                                                        F5G37110
       TRA SAD6                                                         F5G37120
SAD3   CLA PRED,1          IS THE LXD CASE ZERO                         F5G37130
       ANA LT7                                                          F5G37140
       TZE SAD4                                                         F5G37150
       ARS 5               NO, FORM TH SYMBOLIC ADOR.                   F5G37160
       ADD IDLXD           AS 1024* LXD CASE PLUS BB NO. PLUS           F5G37170
SAD6   ADD SADV5           I. D. FOR AN LXD                             F5G37180
SAD5   LXD SADV1,4                                                      F5G37190
       TRA 1,4                                                          F5G37200
SAD4   CAL SADV2                                                        F5G37210
       TRA SAD5                                                         F5G37220
       REM  THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND   F5G37230
       REM  INDICATES IT SHOULD BE                                      F5G37240
SCMI   CLA CPIND           SHOULD INST. BE COMPILED                     F5G37250
       TPL SCMI1                                                        F5G37260
       SXD TMP10,4         YES, COMP1LE THE INST                        F5G37270
       CLA INST,2                                                       F5G37280
       TSX SK,4                                                         F5G37290
       CLA INST-1,2                                                     F5G37300
       TSX SK,4                                                         F5G37310
       CLA INST-2,2                                                     F5G37320
       TSX SK,4                                                         F5G37330
       CLA INST-3,2                                                     F5G37340
       TSX SK,4                                                         F5G37350
       LXD TMP10,4                                                      F5G37360
SCMI1  SSM                                                              F5G37370
       STO CPIND           RECORD INST SHOULD BE COMPILED               F5G37380
       TRA 1,4                                                          F5G37390
       REM DETERMINE AN SXD CASE SUBROUTINE                             F5G37400
SH     SXD SHV1,4          STORE RETURN                                 F5G37410
       LXA SHK2,4          CLEAR                                        F5G37420
       LDQ ZERO            THE                                          F5G37430
SH1    STQ SXD0+4,4        SXD                                          F5G37440
       TIX SH1,4,1         POSITIONS 0-3                                F5G37450
       STA SXD0            STORE THE PRED NO.                           F5G37460
       TSX SE5,4           GET INDEX OF PRED                            F5G37470
       CLA PRED,1          GET AND                                      F5G37480
       STO SHV2            STORE PRED ENTRY                             F5G37490
       TSX SE1,4           GET INDEX OF BBB TABLE ENTRY                 F5G37500
       LXD LD3,4           NO, SET COUNT TO 3                           F5G37510
SH2    LDQ SHV2            IS                                           F5G37520
       RQL 18,4            SXD REQUIRED                                 F5G37530
       TQP SH3             FOR THIS I.R.                                F5G37540
       CLA BBB+2,1         YES, GET AND                                 F5G37550
       ANA TAGMK           EXTRACT THE                                  F5G37560
       STO SXD1+3,4        EXIT CONDITIONS                              F5G37570
SH3    TXI SH3+1,1,-1      DOWN THE EXIT CONDITIONS                     F5G37580
       TIX SH2,4,1         COUNT TO 3                                   F5G37590
SH4    CAL SHV2            GET                                          F5G37600
       ANA LT7             AND STORE                                    F5G37610
       ALS 3               LXD CASE                                     F5G37620
       STD SXD0                                                         F5G37630
       LXD SHV1,4                                                       F5G37640
       TRA 1,4             RETURN                                       F5G37650
       REM COMPILE AN SXD CASE SUBROUTINE                               F5G37660
SI     SXD SIV2,4          STORE RETURN                                 F5G37670
       SXD SIV1,1          STORE INDEX 0F SXD CASE                      F5G37680
       TSX SL1,4           RECORD ANY HANGING TRANSFER                  F5G37690
       CAL BBNO                                                         F5G37700
       ARS 18                                                           F5G37710
       STO SLV2            STORE BB NO.                                 F5G37720
       TSX SE1,4           GET INDEX OF BB                              F5G37730
       CLA BBB,1                                                        F5G37740
       ANA ADDMK                                                        F5G37750
       STO SIV4            STORE LOC. 0F 1ST PRED IN BB                 F5G37760
       LXD SIV1,1          FORM                                         F5G37770
       CLA SXST,1          LOC. OF THIS PRED -                          F5G37780
       ANA ADDMK           LOC. OF 1ST  PRED IN BB                      F5G37790
       SUB SIV4                                                         F5G37800
       ALS 10                                                           F5G37810
       ADD SLV2                                                         F5G37820
       ADD SIK2                                                         F5G37830
       STO SLV2            STORE THE LOC. OF 1ST SXD                    F5G37840
       LXD LD3,2                                                        F5G37650
SI2    CLA SXST+1,1                                                     F5G37860
       TZE SI1             IS THIS TAG 0                                F5G37870
       SXD SIV5,1          NO, PRESERVE INDEX 1                         F5G37880
       STO SIV6            PRESERVE THE TAG                             F5G37890
       CLA SLV2            PUT LOCATION WORD ON TAPE                    F5G37900
       TSX SK,4                                                         F5G37910
       CLA ZERO            AND RESET TO 0                               F5G37920
       STO SLV2                                                         F5G37930
       CLA SIK3            PUT SXD ON TAPE                              F5G37940
       TSX SK,4                                                         F5G37950
       CLA SIV6            14*2**-5+TAU-TAG IS                          F5G37960
       ADD SMK4            SYMBOLIC ADDRESS                             F5G37970
       TSX SK,4                                                         F5G37980
       CLA VSTAG,2                                                      F5G37990
       TSX SK,4            PUT S-TAG ON TAPE                            F5G38000
       LXD SIV5,1                                                       F5G38010
SI1    TXI SI1+1,1,-1                                                   F5G38020
       TIX SI2,2,1         COUNT TO 3, FORM N+1                         F5G38030
       LXD SIV1,1                                                       F5G38040
       CLA SXST,1                                                       F5G38050
       PDX 0,2                                                          F5G38060
       TXL SI3,2,0         IS THE LXD CASE 0                            F5G38070
       TXL SI4,1,0         NO, IS THIS THE ST POSITION                  F5G38080
       TXH SI6,1,-16-1     IS THIS ASSOCIATED WITH A LIST               F5G38090
SI5    ARS 18              NO                                           F5G38100
       TSX SL,4            COMPILE A TRA TO LXD CASE                    F5G38110
       LXD SIV2,4                                                       F5G38120
       TRA 3,4             RETURN TO LOC. OF TSX + 3                    F5G38130
SI3    CLS ONEA            RECORD THAT THERE IS                         F5G38140
       STO SLV3            A HANGING TRA TO 0 CASE                      F5G38150
       LXD SIV2,4                                                       F5G38160
       TRA 1,4             RETURN TO LOC. OF TSX +1                     F5G38170
SI4    STO SXD0            STORE LXD CASE AS ARG FOR SJ                 F5G38180
       TSX SJ,4            IS SXD CASE INST POS. ASSOC. WITH LIST       F5G38190
                           SHOULDENT BE WITH CASE 0                     F5G38200
       TRA SI6             YES                                          F5G38210
       LXD SIV1,1          NO                                           F5G38220
       CLA SXST,1                                                       F5G38230
       TRA SI5             GO TO COMPILE TRA TO LXD CASE                F5G38240
SI6    LXD SIV2,4          RETURN TO 2 FOLLOWING TSX WITH               F5G38250
       TRA 2,4             INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260
       REM  DETERMINE IF THE SXD CASE IS ASSOCIATED WITH AN LXD LIST    F5G38270
SJ     SXD SJV2,4                                                       F5G38280
       CLA SXD0                                                         F5G38290
       ANA DECMK                                                        F5G38300
       STO SJV1                                                         F5G38310
       TZE SJ3             IS THIS THE 0 LXD CASE                       F5G38320
       LXD ZERO,4          NO, SET COUNT TO 3, N TO 1                   F5G38330
       LXD LD3,2           2 HAS THE COUNTER                            F5G38340
SJ2    CLA SXAS1,4                                                      F5G38350
       TPL SJ1             DOES THE LIST ALREADY HAVE SXD               F5G38360
       CLA Z2V1+3,2        NO                                           F5G38370
       PDX 0,1             GET INDEX OF TOP QUANTITY                    F5G38380
       CLA LIST1,1                                                      F5G38390
       ALS 18                                                           F5G38400
       SUB SJV1            IS THIS CASE SAME AS CASE HEADUNG LIST N     F5G38410
       TNZ SJ1                                                          F5G38420
       LXD SJV2,4          YES                                          F5G38430
       TRA 2,4             RETURN, INDEX OF TOP OF LIST IN 1            F5G38440
SJ1    TXI SJ1+1,4,-1                                                   F5G38450
       TIX SJ2,2,1         COUNT TO 3                                   F5G38460
       LXD SJV2,4                                                       F5G38470
       TRA 3,4                                                          F5G38480
SJ3    LXD SJV2,4                                                       F5G38490
       CLA SXAS0                                                        F5G38500
       TPL 3,4                                                          F5G38510
       TRA 1,4                                                          F5G38520
       REM PUT WORD OF COMPILED INST ON TAPE                            F5G38530
SK     LXD SKV1,1                                                       F5G38540
       STO CLST,1          STORE THE WORD IN CLST                       F5G38550
       TIX SK1,1,1         COUNT NO OF WORDS  IS CLST FULL              F5G38560
       LXA SKK1,1          YES                                          F5G38570
       SXD SKV1,1          RESET THE INDEX                              F5G38580
       WTB OTAPE           WRITE THE BLOCK ON                           F5G38590
SK2    CPY CLST,1          THE OUTPUT TAPE                              F5G38600
       TIX SK2,1,1                                                      F5G38610
       IOD                                                              F5G38620
       TRA 1,4                                                          F5G38630
SK1    SXD SKV1,1          STORE INDEX OF NEXT WORD                     F5G38640
       TRA 1,4                                                          F5G38650
       REM  SUBROUTINE FOR COMPILING TRA TO LXD CASE                    F5G38660
SL     ANA Z2K5            FORM                                         F5G38670
       ALS 10              THE                                          F5G38680
       ADD SLK2            ADDRESS                                      F5G38690
       STO SLV2            OF                                           F5G38700
       CLA BBNO            THE                                          F5G38710
       ANA DECMK                                                        F5G38720
       ARS 18              TRA IN                                       F5G38730
       ORS SLV2            SLV2                                         F5G38740
       SXD SLV1,4          STORE RETURJ                                 F5G38750
SL2    CLA ZERO            PUT 0 LOCATION                               F5G38760
       TSX SK,4            ON TAPE                                      F5G38770
       CLA LTRA                                                         F5G38780
       TSX SK,4            PUT SYMB. ADDR. ON TAPE                      F5G38790
       CLA SLV2                                                         F5G38800
       TSX SK,4            PUT SYMB. ADDR ON TAPE                       F5G38810
       CLA ZERO                                                         F5G38820
       TSX SK,4            ANOTHER 0                                    F5G38830
       LXD SLV1,4                                                       F5G38840
       TRA 1,4                                                          F5G38850
       REM  SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE                F5G38860
SL1    CLA SLV3                                                         F5G38870
       TPL 1,4             RETURN IF THERE IS NO HANGING TRA0           F5G38880
       SXD SLV1,4          OTHERWISE , STORE RETURN AND                 F5G38890
       CLA BBNO            GET                                          F5G38900
       TSX SE,4            THE                                          F5G38910
       CLA BBB+5,1         SYMBOLIC LOCATION                            F5G38920
       STO SLV2            OF 1ST INST IN BB AND                        F5G38930
       CLA ZERO            STORE IN SYNBOLIS ADDR WORD                  F5G38940
       STO SLV3            SET INDICATOR TO SAY NO HANGING TRA          F5G38950
       TRA SL2                                                          F5G38960
       REM COMPILE AN LXD LIST                                          F5G38970
SM     CLA LLIND,2         IMMEDIATELY RETURN IF LIST IS                F5G38980
       TPL 1,4             ALREADY COMPOLED                             F5G38990
       SLW LLIND,2         RECORD LIST ALREADY COMPILED                 F5G39000
       SXD SMV1,4          STORE RETURN                                 F5G39010
       CLA Z2K1+3,2        COMPUTE THE                                  F5G39020
       SUB ONED            INDEX OF SUB BOTTEM                          F5G39030
       STD SM1             POSITION OF LIDT                             F5G39040
       STD SM5             SET END TEST                                 F5G39050
SM6    CLA LIST1,1                                                      F5G39060
       TMI SM8             DOES THIS ELEMENT OF LIST REPRESENT AN LXD   F5G39070
       TXL SM1+1,1,0                                                    F5G39080
SM1    TXL SM10,1,SET      YES, IS ELEMENT IN SUB BOTTOM POS.           F5G39090
       SBM LIST1+1,1       NO                                           F5G39100
SM10   STO SMV2            STORE THE TAG AWAY                           F5G39110
       CLA BBNO            FORN                                         F5G39120
       ANA DECMK           THE                                          F5G39130
       LRS 28              LOCATION                                     F5G39140
       CLA LIST1,1                                                      F5G39150
       LLS 10                                                           F5G39160
       ADD SMK1                                                         F5G39170
       SXD SMV3,1          STORE INDEX OF LIST QUANTITY                 F5G39180
       STO SMV4                                                         F5G39190
       TSX SL1,4           RECORD ANY HANGING TRA0                      F5G39200
       CLA SMV4                                                         F5G39210
       TSX SK,4            COMPILE THE LOCATION                         F5G39220
       CLA SMK2                                                         F5G39230
       TSX SK,4            C0MPILE LXD                                  F5G39240
       CLA BBNO                                                         F5G39250
       TSX SE,4            FIND INDEX OF BB                             F5G39260
       CLA SMV2                                                         F5G39270
SM3    CAS L4              IS THIS THE CORRECT ENT. REQUIREMENT         F5G39280
       TRA SM2                                                          F5G39290
       TRA SM4             YES                                          F5G39300
SM2    ALS 1               NO, SHIFT IT LEFT ONE                        F5G39310
       TXI SM3,1,-1        AND INDEX TO NEXT ENRR. REQUIREMENT          F5G39320
SM4    CAL BBB+2,1         FORM                                         F5G39330
       ARS 18              AND COMPILE                                  F5G39340
       ADD SMK4            THE                                          F5G39350
       TSX SK,4                                                         F5G39360
       CLA SMV2            COMPILE THE TAG                              F5G39370
       TSX SK,4                                                         F5G39380
       LXD SMV3,1          IS THE ELEMENT IN SUB BOTTOM POSITION        F5G39390
       TXL SM5+1,1,0                                                    F5G39400
SM5    TXL SM7,1,SET                                                    F5G39410
       TXI SM6,1,-1        NO, INDEX TO NEXT LIST POS.                  F5G39420
SM7    CLS ONEA                                                         F5G39430
       STO SLV3            RECORD THAT THERE IS HANGING TRA 0           F5G39440
SM9    LXD SMV1,4                                                       F5G39450
       TRA 1,4             RETURN                                       F5G39460
SM8    TZE SM7             GO TO RECORD HANGING TRA                     F5G39470
       SSP                                                              F5G39480
       TSX SL,4            RECORD A TRA TO LXD CASE                     F5G39490
       TRA SM9                                                          F5G39500
       REM THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND      F5G39510
       REM CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL.  F5G39520
FNDAS  TNX 2FNDS,2,ZINST   IS BLOCK OF INST. ALL USED                   F5G39530
       TSX RDINS,4         YES, READ IN NEXT BLOCK                      F5G39540
2FNDS  CAL INST-3,2        IS THIS INST. TAGGED                         F5G39550
       ANA STMSK                                                        F5G39560
       TZE CI7A                                                         F5G39570
CI4    LXD 9CNT,4          YES                                          F5G39580
       TIX CI5,4,1         COUNT TO 9, IS STAG WORD EXHAUSTED           F5G39590
       SXD BBOX,2          YES, GET ANOTHER                             F5G39600
       CLA STGWD           INCREASE THE NO. OF CURRENT STAG WORD        F5G39610
       ADD ONEA                                                         F5G39620
       STO STGWD                                                        F5G39630
       TSX SE4,4           GET INDEX OF NEXT STAG WORD                  F5G39640
       CLA STAG,1                                                       F5G39650
       STO STAGN2          GET AND STORE                                F5G39660
       ALS 2                                                            F5G39670
       STO STAGN1          THE STAG WORD                                F5G39680
       LXD BBOX,2          RESTORE INDEX REGISER 2                      F5G39690
       LXD LD9,4           RESET COUNT TO 9                             F5G39700
CI5    SXD 9CNT,4                                                       F5G39710
       CAL INST-3,2                                                     F5G39720
       ANA TAGMK           EXTRACT THE TAG                              F5G39730
       STO TAG                                                          F5G39740
       CAL STAGN1                                                       F5G39750
       ANA LD3             EXTRACT THE S-TAG                            F5G39760
       PDX 0,4                                                          F5G39770
       CAL VSTAG,4         CONVERT S-TAG TO 1,2, OR 4                   F5G39780
       STA INST-3,2        REPLACE TAU-TAG BY S-TAG                     F5G39790
       SUB L4              IS THE TAG 4                                 F5G39800
       TNZ CI5A                                                         F5G39810
       SSM                                                              F5G39820
       STO CIND            YES, RECORD IR 4 NECESSARY                   F5G39830
CI5A   CAL STAGN2                                                       F5G39840
       ALS 9                                                            F5G39850
       PBT                 IS AN LXD NECESSARY                          F5G39860
       TRA SKLX            NO                                           F5G39870
       CLA ZERO            YES                                          F5G39880
       TSX SK,4            COMPILE LOCATION OF 0                        F5G39890
       CLA SMK2            COMPILE LXD                                  F5G39900
       TSX SK,4                                                         F5G39910
       CLA TAG             COMPILE THE SYMB. ADDR. OF THE CELL          F5G39920
       ORA SMK4                                                         F5G39930
       TSX SK,4                                                         F5G39940
       CLA INST-3,2        COMPILE THE S-TAG                            F5G39950
       ANA ADDMK                                                        F5G39960
       TSX SK,4                                                         F5G39970
SKLX   CAL INST-1,2                                                     F5G39980
       ANA LFTMSK                                                       F5G39990
       SLW TMP10                                                        F5G40000
       CLA TMP10                                                        F5G40010
       CAS LLXP            IS THIS AN LXP                               F5G40020
       TRA CI1                                                          F5G40030
       TRA SKLY              YES.                                       F5G40031
       TRA CI1                                                          F5G40032
 SKLY  CAL STAGN2                                                       F5G40040
       ALS 9                                                            F5G40041
       PBT                   IS LXD NECESSARY.                          F5G40042
       TRA CI3A              NO.                                        F5G40043
       CLA INST-3,2          YES.  IS S-TAG=4.                          F5G40044
       SLW CPIND             RECORD DONT COMPILE.                       F5G40045
       ANA ADDMK                                                        F5G40046
       SUB L4                                                           F5G40047
       TNZ CI6               NOT 4.                                     F5G40048
       CAL INST-5,2          IS NEXT INSTR                              F5G40049
       ANA LFTMSK                                                       F5G40050
       SLW TMP10             AN LXD                                     F5G40051
       CLA TMP10                                                        F5G40052
       SUB LLXD              WITH REAL                                  F5G40053
       TNZ CI6               IR4.                                       F5G40054
       CLA INST-7,2                                                     F5G40055
       ANA ADDMK             IF SO,                                     F5G40056
       SUB L4                                                           F5G40057
       TNZ CI6               TURN ON                                    F5G40058
       PSE 97                                                           F5G40059
       TRA CI6               SENSE LIGHT.                               F5G40060
 CI1   CAS LDED              IS IT A DED                                F5G40061
       TRA CI2                                                          F5G40062
       TRA CI3A            YES                                          F5G40070
CI2    CLA STAGN2                                                       F5G40080
       TPL CI6             IS SXD REQUIRED                              F5G40090
       CLA INST,2          NEITHER LXP NOR DED, COMPILE THE             F5G40100
       TSX SK,4            INST.                                        F5G40110
       CLA INST-1,2                                                     F5G40120
       TSX SK,4                                                         F5G40130
       CLA INST-2,2                                                     F5G40140
       TSX SK,4                                                         F5G40150
       CLA INST-3,2                                                     F5G40160
       TSX SK,4                                                         F5G40170
       CLA ZERO            YES, COMPILE AN SXD, ZERO LOCATION           F5G40180
       STO CPIND           RECORD THAT THIS INST. SHOULDNT BE CONPILED  F5G40190
       TSX SK,4                                                         F5G40200
       CLA SIK3            SXD IN BCD                                   F5G40210
       TSX SK,4                                                         F5G40220
       CLA TAG             SYMB. ADDR. OF TAU-TAG CELL                  F5G40230
       ORA SMK4                                                         F5G40240
       TSX SK,4                                                         F5G40250
       CLA INST-3,2        AND TAG WORD                                 F5G40260
       ANA ADDMK                                                        F5G40270
       TSX SK,4                                                         F5G40280
 CI6   CAL STAGN1            NO SXD REQUIRED.                           F5G40290
       ALS 2                                                            F5G40300
       SLW STAGN1                                                       F5G40310
       CAL STAGN2                                                       F5G40320
       ALS 1                                                            F5G40330
       SLW STAGN2                                                       F5G40340
       TRA CKLOC           GO TO CHECK FOR ENDINGS                      F5G40350
CI7    SSM                                                              F5G40360
       STO CPIND           RECODD LATER COMPILING NECESSARY             F5G40370
       REM NOW THE END OF BB IS CHECKED FOR                             F5G40380
CKLOC  CLA INST,2          IF NO LOCATION SYMBOL , THIS CANT BE         F5G40390
       TZE TR3S            ENSING OTHER THAN CERTAINTY                  F5G40400
       CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40410
       SUB NXTLOC                                                       F5G40420
       TZE ENDBB           YES, LOOK FOR TYPE OF ENDING                 F5G40430
       LXD LD8,4           NO, CHECK FOR ENDING OF GROUP OF INST        F5G40440
       CAL INST-1,2                                                     F5G40450
       ANA DECMK           LOOK AT OP CODE                              F5G40460
SUBP   SUB LNTOP+1,4       COMPARE TO OP CODES OF POSSIBLE              F5G40470
       TZE TRTIN+1,4       ENDINGS    TRANSFER WHEN FOUND               F5G40480
       TIX SUBP,4,1        TRY NEXT POSSIBILITY                         F5G40490
       CAL INST-1,2        NOT FOUND, LOOK FORCONDITIONAL TRANSFER      F5G40500
6ANA   ANA FSTLT                                                        F5G40510
       SLW TMP10                                                        F5G40520
       CLA TMP10                                                        F5G40530
       SUB FSTT                                                         F5G40540
       TZE TTYPE           IS A CONDITIONAL TRANSFER                    F5G40550
NOEND  TSX SCMI,4          NOT AN END OD BB COMPILE INST                F5G40560
       TXI FNDAS,2,4       IF IT NEEDS TO BE                            F5G40570
TR3S   CLA INST-4,2        IS THIS LAST INST IN BB                      F5G40580
       SUB NXTLOC                                                       F5G40590
       TZE SEQTR           YES                                          F5G40600
       TRA NOEND           NO                                           F5G40610
       REM  TRANSFER VECTOR      SEE SUBP+1 ABOVE                       F5G40620
       TRA GOTOV           TRA IS OP CODE                               F5G40630
       TRA IF2PS           PSE                                          F5G40640
       TRA IF2CS           DCT                                          F5G40650
       TRA IF2CS           RTT                                          F5G40660
       TRA MSECS           MSE                                          F5G40670
       TRA IF3CS           TZE                                          F5G40680
       TRA STPCSZ            HPR                                        F5G40690
TRTIN  TRA NOEND           TSX                                          F5G40700
       REM THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW     F5G40710
       TRA TRACS           TRAIS OP CODE                                F5G40720
       TRA DOCS            TXL                                          F5G40730
       TRA PAUSE           HPR                                          F5G40740
TRTTR  TRA TRAC3           TTR                                          F5G40750
ENDBB  LXD LD4,4           THIS INST ENDS A BASIC                       F5G40760
       CLA INST-1,2        BLOCK    LOOKAT OP CODE                      F5G40770
       ANA DECMK           FOR TYPE OF ENDING                           F5G40780
6SUB   SUB LTROP+1,4                                                    F5G40790
       TZE TRTTR+1,4       TRANSFER IF IOUND                            F5G40800
       TIX 6SUB,4,1        TRY NEXT POSSIBILITY                         F5G40810
       TRA SEQTR                                                        F5G40820
TRACS  CAL INST-2,2        OP CODE IS TRA    SEE IF ADDRESS             F5G40830
       ANA PFXMK           IS IN PROGRAM  UNCONDITITONAL TRANSFER       F5G40840
       TNZ GOTON           IF TRANSFER     IT IS A GO TO N              F5G40850
TRAC3  SXD BBOX,2          THIS IS GO TO ALPHA                          F5G40860
       CAL BBNO                                                         F5G40870
       ARS 18                                                           F5G40880
       STO ARG1            STORE BBNO AS ARGUMENT OF SAD                F5G40890
       TSX SE1,4                                                        F5G40900
       CAL BBB,1                                                        F5G40910
       TSX SE6,4           GET SUCC. TABLE ENTRY                        F5G40920
       CAL SUCC,1                                                       F5G40930
       TSX SAD,4           GO TO DETERMINE SYMBOLIC ADDRESS             F5G40940
       LXD BBOX,2                                                       F5G40950
       SLW INST-2,2        TEPLACE SYMBOLIC ADDR.                       F5G40960
       TSX SCMI,4          COMPILE THE INSTR                            F5G40970
       TXI BEGBB,2,4       BEGINNING OF BB, INDEX TO NEXT INSTR         F5G40980
GOTON  SXD BBOX,2                                                       F5G40990
       CLA BBNO                                                         F5G41000
       TSX SE,4                                                         F5G41010
       CLA BBB,1           CHECK TO MAKE SURE THIS IS GO TO N           F5G41020
       ARS 33                                                           F5G41030
       ADD ONEA                                                         F5G41040
       TZE GON1                                                         F5G41050
       TSX 4,4       DIAGNOSTIC THIS ISNT GO N                          F5G41060
GON1   CAL BBB+1,1                                                      F5G41070
       ARS 33              PUT SXD CASE IN TMP10                        F5G41080
       SLW TMP10                                                        F5G41090
       REM  NOW ANY SXD BEFIR GO TO N ARE COMPILED                      F5G41100
       LXD LD3,2                                                        F5G41110
GON3   CLA VSTAG,2         DOES THIS THIS IR NEED SXD                   F5G41120
       ANA TMP10                                                        F5G41130
       TZE GON2                                                         F5G41140
       SXD ABOX,1          YES                                          F5G41150
       LDQ ZERO            REPLACE LOCATION BY 0 AND                    F5G41160
       LXD BBOX,4          PUT LOCATION ON THE                          F5G41170
       CLA INST,4          SXD INST.                                    F5G41180
       STQ INST,4          SXDINST                                      F5G41190
       TSX SK,4                                                         F5G41200
       CLA LSXD                                                         F5G41210
       TSX SK,4                                                         F5G41220
       LXD ABOX,1                                                       F5G41230
       CAL BBB+2,1                                                      F5G41240
       ANA TAGMK                                                        F5G41250
       ORA IDTAG                                                        F5G41260
       TSX SK,4                                                         F5G41270
       CAL TMP10                                                        F5G41280
       ANA VSTAG,2                                                      F5G41290
       TSX SK,4                                                         F5G41300
       LXD ABOX,1                                                       F5G41310
GON2   TXI GON2+1,1,-1                                                  F5G41320
       TIX GON3,2,1                                                     F5G41330
       LXD BBOX,2                                                       F5G41340
       TSX SCMI,4          COMPILE THE INST                             F5G41350
       TXI BEGBB,2,4                                                    F5G41360
DOCS   PXD 0,0                                                          F5G41370
       STO SXST            T     RECORD THERE IS SEQUDNTIAL TRANSFER    F5G41380
       TRA TRAC3           OTHERWISE DO EXACTLY AS FOR TRA TRANSFER     F5G41390
PAUSE  PXD 0,0                                                          F5G41400
SEQTR  SYN PAUSE                                                        F5G41410
       STO SXST            RECORD SEQUENTIAL TRANSFER                   F5G41420
       TSX SCMI,4                                                       F5G41430
       TXI BEGBB,2,4                                                    F5G41440
GOTOV  TSX SCMI,4          COMPILE INST IF NECESSARY                    F5G41450
       CLA INST-3,2        FIND NO. OF BRANCHES IN VECTOR               F5G41460
       SUB LD1                                                          F5G41470
       STD MBOX                                                         F5G41480
       CLA BBNO                                                         F5G41490
       ARS 18              STORE BBNO FOR SAD ROUTINE                   F5G41500
       STO ARG1                                                         F5G41510
GOV4   TXI GOV4+1,2,4                                                   F5G41520
       SXD BBOX1,2                                                      F5G41530
       TSX SE1,4                                                        F5G41540
       CLA BBB,1                                                        F5G41550
       SLW SUCNO           STORE NO OF 1ST SUCCESSOR                    F5G41560
       LXD BBOX1,2                                                      F5G41570
13TNX  TNX GOV1,2,ZINST    IS BLOCK OF INST ALL USED                    F5G41580
       TSX RDINS,4         T   READ NEXT BLOCK                          F5G41590
GOV1   SXD BBOX1,2                                                      F5G41600
       CAL SUCNO                                                        F5G41610
       TSX SE6,4                                                        F5G41620
       CLA SUCC,1                                                       F5G41630
       TSX SAD,4           FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER     F5G41640
       LXD BBOX1,2                                                      F5G41650
       SLW TMP10           STORE SYMBOLIC ADDR.                         F5G41660
       LXD MBOX,4                                                       F5G41670
       TIX GOV2,4,1        IS THIS THE LAST TRANSFER                    F5G41680
       CLA INST-2,2                                                     F5G41690
       SUB NXTLOC          1ST INST IN NEXT BB, IS IT                   F5G41700
       TZE GOV3                                                         F5G41710
GOV2   CLA TMP10           NO                                           F5G41720
       STO INST-2,2                                                     F5G41730
       TSX SCMI,4          COMPILE THE INXT                             F5G41740
GOV3   TXI GOV3+1,2,4                                                   F5G41750
       CAL SUCNO                                                        F5G41760
       ADD ONED                                                         F5G41770
       SLW SUCNO                                                        F5G41780
       LXD MBOX,4                                                       F5G41790
GOV5   TXI GOV5+1,4,-1                                                  F5G41800
       SXD MBOX,4                                                       F5G41810
       TXH 13TNX,4,0       IS THIS LAST TRA OF VECTOR                   F5G41820
       TRA BEGBB           YES                                          F5G41830
IF2PS  CLA INST-3,2        THIS IS PSE LOOK AT ADDRESS TO               F5G41840
       ANA XXPSX           SEE IF IT IS 164-6                           F5G41850
       SUB XX16X                                                        F5G41860
       TZE PSTCS           YES, IT IS A TEST                            F5G41870
       CLA INST-3,2                                                     F5G41880
       ANA DECMK           NO, SEE IF ADDR IS 360                       F5G41890
       SUB XX360                                                        F5G41900
       TNZ NOEND           NO, THIS ISNT BB END                         F5G41910
PSTCS  TSX SCMI,4          THIS IS A PSE TEST INST                      F5G41920
MSECS  SYN PSTCS           OR AN MSE INST                               F5G41930
PS1    TXI PS1+1,2,4       INEDX TO CONSIEER 1ST TRANSFER               F5G41940
       SXD BBOX1,2                                                      F5G41950
       CAL BBNO                                                         F5G41960
       ARS 18                                                           F5G41970
       STO ARG1            STORE BBNO AS ARGUMENT FOR SAD               F5G41980
       TSX SE1,4                                                        F5G41990
       CAL BBB,1                                                        F5G42000
       STO SUCNO           GETNUMBER OF 1ST SUCCESSOR                   F5G42010
       ADD LD1                                                          F5G42020
       TSX SE6,4           GET THE SECOND SUCC ENTRY                    F5G42030
       CLA SUCC,1                                                       F5G42040
       TSX SAD,4                                                        F5G42050
       LXD BBOX1,2                                                      F5G42060
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42070
       TSX SCMI,4                                                       F5G42080
PS2    TXI PS2+1,2,4       INCREASE INSTR INDEX                         F5G42090
       CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42100
       SUB NXTLOC                                                       F5G42110
       TZE PS3             YES, SKIP COMPILING THE INST                 F5G42120
       SXD BBOX1,2         NO                                           F5G42130
       CLA SUCNO                                                        F5G42140
       TSX SE6,4                                                        F5G42150
       CLA SUCC,1                                                       F5G42160
       TSX SAD,4           DETERMINE THE SYMBQLIC ADDRESS               F5G42170
       LXD BBOX1,2                                                      F5G42180
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42190
       TSX SCMI,4          COMPILE THE INST.                            F5G42200
       TXI BEGBB,2,4                                                    F5G42210
TTYPE  CLA INST-2,2        IS THIS TRANSFER TO NEXT INST.               F5G42220
       CAS INST,2                                                       F5G42230
       TRA TTYP1                                                        F5G42240
       TRA NOEND           YES                                          F5G42250
TTYP1  SUB PCC                                                          F5G42260
       TZE NOEND           YES                                          F5G42270
       TRA CNDTR           NO, IS CONDITIONAL TRANSFER                  F5G42280
IF2CS  TSX SCMI,4          THIS IS DCT OR RTT                           F5G42290
RT1    TXI RT1+1,2,4       INDEX TO CONSIDER 1ST TRANSFER               F5G42300
CNDTR  SXD BBOX1,2      STORE BBNO. AS ARGUMENT                         F5G42310
       CAL BBNO            STORE BBNO AS ARGUMENT                       F5G42320
       ARS 18              OF SAD                                       F5G42330
       STO ARG1                                                         F5G42340
       TSX SE1,4                                                        F5G42350
       CAL BBB,1                                                        F5G42360
       STO SUCNO                                                        F5G42370
       TSX SE6,4           GET THE 1ST SUCC ENTRY                       F5G42380
       CLA SUCC,1                                                       F5G42390
       TSX SAD,4                                                        F5G42400
       LXD BBOX1,2                                                      F5G42410
       SLW INST-2,2        REPLACE SYMBOLIC ADDRESS                     F5G42420
       TSX SCMI,4          COMPILE THE INST                             F5G42430
RT2    TXI RT2+1,2,4                                                    F5G42440
       CLA INST-2,2        IS THIS A SEQUENTIAL TRANSFER                F5G42450
       SUB NXTLOC                                                       F5G42460
       TZE PS3             YES, SKIP COMPILING THE INST                 F5G42470
       SXD BBOX1,2                                                      F5G42480
       CLA SUCNO                                                        F5G42490
       ADD LD1                                                          F5G42500
       TSX SE6,4                                                        F5G42510
       CLA SUCC,1                                                       F5G42520
       TSX SAD,4           DETERMINE THE SYMBOLIC ADDR                  F5G42530
       LXD BBOX1,2                                                      F5G42540
       SLW INST-2,2                                                     F5G42550
       TSX SCMI,4          COMPILE THE TRANSFER                         F5G42560
       TXI BEGBB,2,4                                                    F5G42570
IF3CS  SXD BBOX1,2         THIS IS A TZE INST I. E. AN IF               F5G42580
       CAL BBNO                                                         F5G42590
       ARS 18              STORE BB NO. FOR SUBROUTINE                  F5G42600
       STO ARG1                                                         F5G42610
       TSX SE1,4           ARGUMENT                                     F5G42620
       CAL BBB,1                                                        F5G42630
       STO SUCNO                                                        F5G42640
       ADD LD1             GET THE SUCC ENTRY                           F5G42650
       TSX SE6,4           FOR THE TZE                                  F5G42660
       CLA SUCC,1                                                       F5G42670
       TSX SAD,4                                                        F5G42680
       LXD BBOX1,2                                                      F5G42690
       SLW INST-2,2        REPLACE THE SYMBOLIC ADDREAS                 F5G42700
       TSX SCMI,4          COMPILE THE TZE                              F5G42710
IF1    TXI IF1+1,2,4                                                    F5G42720
       CAL INST-1,2        CHECK NEXT INST TO SEE                       F5G42730
       ANA LFTMSK          IF IT IS TPL                                 F5G42740
       SLW TMP10                                                        F5G42750
       CLA TMP10                                                        F5G42760
       SUB LTPL                                                         F5G42770
       TZE 16CLA                                                        F5G42780
IFHPR  TSX 4,4             IF NOT, DIAGNOSTIC                           F5G42790
16CLA  CLA INST-2,2        DOES THIS EXIT GO TO NEXT BB                 F5G42800
       SUB NXTLOC                                                       F5G42810
       TNZ IF2                                                          F5G42820
       CLA INST-6,2        YES, DOES NEXT ONE ALSO                      F5G42830
       SUB NXTLOC                                                       F5G42840
       TNZ IF2                                                          F5G42850
       PXD 0,0             YES, RECORD SEQUENTIAL TRANSFER              F5G42860
       STO SXST                                                         F5G42870
       TXI BEGBB,2,8                                                    F5G42880
IF2    SXD BBOX1,2         COMPILE THE TPL                              F5G42890
       CLA SUCNO                                                        F5G42900
       TSX SE6,4                                                        F5G42910
       CLA SUCC,1                                                       F5G42920
       TSX SAD,4           FIND AND                                     F5G42930
       LXD BBOX1,2         REPLACE                                      F5G42940
       SLW INST-2,2        SYMBOLIC ADDRESS                             F5G42950
       TSX SCMI,4                                                       F5G42960
IF3    TXI IF3+1,2,4                                                    F5G42970
       CAL INST-1,2        IS THIS TRA                                  F5G42980
       ANA LFTMSK                                                       F5G42990
       SLW TMP10                                                        F5G43000
       CLA TMP10                                                        F5G43010
       SUB LTRA                                                         F5G43020
       TNZ IFHPR           IF NOT , STOP                                F5G43030
       CLA INST-2,2        YES IT IS   IS THIS A                        F5G43040
       SUB NXTLOC          SEQUENTIAL TRANSFER                          F5G43050
       TNZ IF4                                                          F5G43060
PS3    PXD 0,0             YES, RECORD THAT                             F5G43070
       STO SXST                                                         F5G43080
       TXI BEGBB,2,4                                                    F5G43090
IF4    SXD BBOX1,2         CONPILE THE TRA                              F5G43100
       CLA SUCNO                                                        F5G43110
       ADD LD2                                                          F5G43120
       TSX SE6,4                                                        F5G43130
       CLA SUCC,1          IF NECESSARY                                 F5G43140
       TSX SAD,4           MODIFY THE                                   F5G43150
       LXD BBOX1,2         SYMBOLIC                                     FSG43160
       SLW INST-2,2        A0DRESS                                      F5G43170
       TSX SCMI,4                                                       F5G43180
       TXI BEGBB,2,4                                                    F5G43190
STPCSZ CLA INST-5,2                                                     F5G43200
       SUB LTRA                                                         F5G43210
       TNZ NOEND                                                        F5G43220
       CLA INST,2                                                       F5G43230
       SUB INST-6,2                                                     F5G43240
       TNZ NOEND                                                        F5G43250
STPCS  TSX SCMI,4          COMPILE THE TWO INXT                         F5G43260
STP1   TXI STP1+1,2,4      AND GO TO STAET BB                           F5G43270
       TSX SCMI,4                                                       F5G43280
       TXI BEGBB,2,4                                                    F5G43290
       REM  THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND       F5G43300
       REM  SUBROUTINE CALL SEQUENCES                                   F5G43310
CI7A   CAL INST-1,2        IS THIS AN SXD INST                          F5G43320
       ANA LFTMSK                                                       F5G43330
       SLW TMP10                                                        F5G43340
       CLA TMP10                                                        F5G43350
       SUB LSXD                                                         F5G43360
       TNZ CI7C                                                         F5G43370
       CAL INST-3,2        YES, DOES IT HAVE TAG 4                      F5G43380
       ANA ADDMK                                                        F5G43390
       SUB L4                                                           F5G43400
       TNZ CI7C                                                         F5G43410
       CLA CIND            YES, IS IR4 NECESSARY                        F5G43420
       TPL DLSXD                                                        F5G43430
       CAL INST-5,2        YES, IS THE NEXT INST A TSX                  F5G43440
       ANA LFTMSK                                                       F5G43450
       SLW TMP10                                                        F5G43460
       CLA TMP10                                                        F5G43470
       SUB LTSX                                                         F5G43480
       TNZ CI7C                                                         F5G43490
       CLA INST,2                                                       F5G43500
       TSX SK,4            YES, COMPILE AN SXD INSTR , TAG 4, TO        F5G43510
       CLA LSXD            SPECIAL TEMP. STORAGE LOC.                   F5G43520
       TSX SK,4                                                         F5G43530
       CLA GSYM                                                         F5G43540
       TSX SK,4                                                         F5G43550
       CLA T4SYM                                                        F5G43560
       TSX SK,4                                                         F5G43570
CMTSX  CLA INST-4,2        COMPILE THE TSX INST                         F5G43580
CMTS1  TSX SK,4                                                         F5G43590
       CLA INST-5,2                                                     F5G43600
       TSX SK,4                                                         F5G43610
       CLA INST-6,2                                                     F5G43620
       TSX SK,4                                                         F5G43630
       CLA INST-7,2                                                     F5G43640
       TSX SK,4                                                         F5G43650
CI7B   TXI FNDAS,2,8       LOOK AT NEXT INST   LXF                      F5G43660
DLSXD  CLA INST,2                                                       F5G43670
       TSX SK,4    IR4 NOT NECESS.  C0MPILE BSS 0.                      F5G43680
       CLA LBSS                                                         F5G43690
       TSX SK,4                                                         F5G43700
       CLA ZERO                                                         F5G43710
       TSX SK,4                                                         F5G43720
       CLA ZERO                                                         F5G43730
       TSX SK,4                                                         F5G43740
       TRA CMTSX                                                        F5G43750
CI7C   CAL INST-1,2        IS THIS AN LXD                               F5G43770
       ANA LFTMSK                                                       F5G43780
       SLW TMP10                                                        F5G43790
       CLA TMP10                                                        F5G43800
       SUB LLXD                                                         F5G43810
       TNZ CI7             NO, GO TO COMPILE THE INST                   F5G43820
       CAL INST-3,2        YES, IS THE TAG 4                            F5G43830
       ANA ADDMK                                                        F5G43840
       SUB L4                                                           F5G43850
       TNZ CI7             NO, GO TO COMPILE THE INST.                  F5G43860
       CLA CIND            YES.  IS IR4 NECESSARY.                      F5G43870
       TPL CI7E            NO, GO TO REPRESS LATER COMPILING OF INST    F5G43880
       MSE 97                CHECK FOR LXP WHICH WAS LXD-D.             F5G43881
       TRA CI7C1             NO SUCH.                                   F5G43882
       SSP                   THERE WAS, SUPPRESS LATER COMPILING        F5G43883
       TRA CI7E              OF INST.                                   F5G43884
 CI7C1 CAL INST-5,2          IS FOLLOWING INSTR AN SXD.                 F5G43885
       ANA LFTMSK                                                       F5G43900
       SLW TMP10                                                        F5G43910
       CLA TMP10                                                        F5G43920
       SUB LSXD                                                         F5G43930
       TNZ CI7D                                                         F5G43940
       CAL INST-7,2        YES, IS THE TAG A 4                          F5G43950
       ANA ADDMK                                                        F5G43960
       SUB L4                                                           F5G43970
       TNZ CI7D                                                         F5G43980
       CLA INST-4,2    IS SXD FIRST INSTR                               F5G43990
       SUB NXTLOC   OF NEXT BB.                                         F5G44000
       TZE CI7D     YES, COMPILE LX.                                    F5G44010
       TXI FNDAS,2,8     NO--DELETE LX, SX.                             F5G44020
CI7D   CLA ZERO            CLMPILE THE LXD WITH GARBAGE                 F5G44030
       TSX SK,4            SYMBOLADDEAA AND TAG 4                       F5G44040
       CLA LLXD                                                         F5G44050
       TSX SK,4                                                         F5G44060
       CLA GSYM                                                         F5G44070
       TSX SK,4                                                         F5G44080
       CLA T4SYM                                                        F5G44090
       TSX SK,4                                                         F5G44100
CI7E   STO CPIND           SURPRESS LATER COMPILING INST  SET +         F5G44110
       TRA CKLOC                                                        F5G44120
CI3A   CLA INST-3,2        IS THE S-TAG EQUAL TO 4                      F5G44130
       SLW CPIND           RECORD INST. NOT TO BE COMPILED              F5G44140
       ANA ADDMK                                                        F5G44150
       SUB L4                                                           F5G44160
       TNZ CI6                                                          F5G44170
       PXD 0,0             YES, RECORD IR4 NOT NECESSARY                F5G44180
       STO CIND                                                         F5G44190
       TRA CI6             SINCE LXP OR DED, SKIP COMPILING INST.       F5G44200
       REM  THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS   F5G44210
       REM  AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK         F5G44220
RDINS  SXD OUTBX,4         SAVE RETURN INDEX                            F5G44230
       CLA L4  SET ERRBX FOR 5 TRIES                                    F5G44240
       STO ERRBX                                                        F5G44250
       SXD BBOX,1          SAVE INDEX 1                                 F5G44260
       LXD LD12,4          SHIFT EX,RA INST FROM END                    F5G44270
D1CLA  CLA NDINS,4         OF BLOCK TO BEGINNING                        F5G44280
       STO INST,4                                                       F5G44290
       TIX D1CLA,4,1       IS BLOCK SHIFTED                             F5G44300
D1RDS  RTB INSTTP          SELECT INST TAPE                             F5G44310
       LXA RECSC,1         YES, SET INDEX FOR NO. OF RECORDS            F5G44320
D1CPY  CPY INST-12,4       COPY BLOCK OF INST                           F5G44330
       TXI D1CPY,4,1       SET FOR NEXT WORD                            F5G44340
       TRA D2END           END OF FILE                                  F5G44350
       TNX D1BCK,1,1       END OF RECORD    IS IT END OF LAST RECORD    F5G44360
       RTB INSTTP          NO, READ NEXT RECORD                         F5G44370
       TRA D1CPY                                                        F5G44380
D1BCK  IOD                 TEST FOR TAPE ERROR                          F5G44390
       RTT                                                              F5G44400
       TRA INERR           ERROR                                        F5G44410
       TXH D1XX,4,ZINST-1   IF 3RD FULL REC. NOT END OF FILE            F5G44420
D2END  PXD 0,4             REACHED END OF INSTR                         F5G44430
       ADD LD8             PUT TEST FOR LAST INST                       F5G44440
       STD FNDAS INTO MAIN ROUTINE                                      F5G44450
       CLA LCOUT           PUT ADDR 0F FINAL EXIT INTO  MAIN            F5G44460
       STO FNDAS+1         ROUTINE                                      F5G44470
       CLA ENDMK                                                        F5G44480
       STO INST-12,4                                                    F5G44490
D1XX   LXD OUTBX,4         NO ERROR, RESTORE INDEX REGISTERS            F5G44500
       LXD BBOX,1                                                       F5G44510
       TRA 1,4             RETURN TO MAIN ROUTINE                       F5G44520
INERR  CLA ERRBX           ERROR IN READING  IS THIS 1ST TRY            F5G44530
       TZE HTRD2           TO READ IN                                   F5G44540
       SUB ONEA            YES, STORE INDICATION AND TRY AGAIN          F5G44550
       STO ERRBX                                                        F5G44560
D2BST  BST INSTTP          BACKSPACE OVER RECORDS JUST READ             F5G44570
       TXI D2TIX,1,1                                                    F5G44580
D2TIX  TNX D2BST,1,RECNO                                                F5G44590
       TRA D1RDS           TAPE BACKSPACED   TRY AGAIN                  F5G44600
HTRD2  TSX 4,4             ERROR ON 5TH TRY  DIAGNOSTIC                 F5G44610
PASS2  LXD LD12,2                                                       F5G44620
       REW OTAPE                                                        F5G44630
1TXI   TXI 1TXI+1,2,ZINST+1                                             F5G44640
       REM  INITIALIZE FOR START OF BB                                  F5G44650
BEGBB  SXD BBOX1,2         STORE INDEX OF POSITION ON ONST TABOE        F5G44660
       CLA ONED                                                         F5G44670
       ADD BBNO                                                         F5G44680
       STO BBNO                                                         F5G44690
       ARS 18              WAS THIS THE LAST BB                         F5G44700
       SUB KEYS                                                         F5G44710
       ADD ONEA                                                         F5G44720
       TZE LSTBB           YES, GL  GO WRITE PARTIAL BLOLK              F5G44730
       CLA SXST              NO                                         F5G44740
       TMI BEGBBY                                                       F5G44750
       CLA ADDMK                                                        F5G44760
       STO SXST                                                         F5G44770
BEGBBY CLA BBNO                                                         F5G44780
       TSX SE,4                                                         F5G44790
       CAL BBB+2,1         GET ENTRANCE REQUIREMENT                     F5G44800
       ARS 18              FOR IR4                                      F5G44810
       SUB STMSK           STORE + OR - IF IR4                          F5G44820
       STO CIND            ISNT OR IS NECESSARY                         F5G44830
       CLA ONEA            RECORD THERE ISNT HANGING TRA 0              F5G44840
       STO SLV3                                                         F5G44650
       CAL BBNO            FIND THE 1ST INST IN NEXT                    F5G44860
       ADD ONED                                                         F5G44870
       TSX SE,4            BB                                           F5G44880
       CLA BBB+5,1                                                      F5G44890
       STO NXTLOC                                                       F5G44900
       REM  DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5            F5G44910
Z1     LDQ ZERO            INITIALIZE THE EXISTENCE                     F5G44920
       STQ Z1V5            INDICATOR WORD                               F5G44930
       CLA BBB,1           GET AND STORE NO. OF 1ST PRED IN             F5G44940
       STA Z1V2            NEXT BB                                      F5G44950
       CAL BBNO                                                         F5G44960
       TSX SE,4                                                         F5G44970
       CAL BBB,1           STORE THE NO OF                              F5G44980
       STA Z1V3            1ST PRED IN                                  F5G44990
       STA Z1V8            THIS BB                                      F5G45000
       CLA Z1V3                                                         F5G45010
Z15    CAS Z1V2            IS THIS PRED IN SAME BB                      F5G45020
       TRA Z12             YES                                          F5G45030
       TRA Z2              NO                                           F5G45040
Z12    TSX SE5,4                                                        F5G45050
       CLA PRED,1          DETERMINE THE                                F5G45060
       ANA LT7             LXD CASE                                     F5G45070
       ALS 3                                                            F5G45080
       PDX 0,4                                                          F5G45090
       CAL Z1K3            STORE BIT AS INDICATOR                       F5G45100
       ARS 7,4             FOR THIS                                     F5G45110
       ORS Z1V5            LXD CASE                                     F5G45120
       CLA Z1V3                                                         F5G45130
       ADD ONEA            ARRANGE TO DEAL WITH NEXT                    F5G45140
       STA Z1V3            PRED                                         F5G45150
       TRA Z15                                                          F5G45160
       REM  THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN   F5G45170
       REM  Z1V5 BY Z1                                                  F5G45180
Z2     LDQ ZERO                                                         F5G45190
       LXA Z2K2,1                                                       F5G45200
Z21    STQ LLIND,1         SET THE 3 INDEXDS TO THE SUB                 F5G45210
       CLA Z2K1+3,1        BOTT0M POSITIONS                             F5G45220
       SUB ONED            IN THE 3 LISTS AND ALL                       F5G45230
       STO Z2V1+3,1        INDICATORS TO SAY COMPILED                   F5G45240
       TIX Z21,1,1                                                      F5G45250
       LXD LD12,1                                                       F5G45260
       CLA MZE             PLACE -0 S IN THE                            F5G45270
Z28    STO LIST1+12,1      LXD LISTS                                    F5G45280
       TIX Z28,1,1                                                      F5G45290
       LXD Z2K2,1          SET TO BEGINNING OF CASE LIST                F5G45300
Z25    LDQ Z1V5            DID                                          F5G45310
       CLA CASE+7,1        THIS                                         F5G45320
       PAX 0,2             CASE                                         F5G45330
       RQL 7,2             OCCURR                                       F5G45340
       TQP Z26                                                          F5G45350
       CLA Z2K5            YES, SET NO OF ONES IN                       F5G45360
       STO Z2V2            DIFFERENCE TO HIGH NUMBER                    F5G45370
       LXA Z2K2,2          INITIALIZE TO 1ST LIST                       F5G45380
   Z23 LDQ ZERO        IS P004                                          F5G45390
       CLA Z2V1+3,2                                                     F5G45400
  R004 PDX 0,4    QUANTITY IN THE LIST                                  F5G45410
       CLA LIST1,4         IS THE TOP                                   F5G45420
       ANA CASE+7,1        YES, DETERMINE                               F5G45430
       SBM LIST1,4         CONTAINED IN THIS                            F5G45440
       TNZ Z27             CASE                                         F5G45450
       CLA CASE+7,1        YES, DETERMINE                               F5G45460
       SUB LIST1,4         THE NO.                                      F5G45470
       LRS 21              OF ONES                                      F5G45480
       MPY Z2K4            IN THE                                       F5G45490
       STA Z22 LOGICAL                                                  F5G45500
       CLA Z2K3            DIFFERENCE                                   F5G45510
Z22    ARS SET                                                          F5G45520
       ANA Z2K5                                                         F5G45530
       CAS Z2V2              IS THE NUMBER 0F ONES IN THE               F5G45540
       TRA Z27               DIFFERENCE LESS THAN OR EQUAL TO           F5G45550
       TRA Z27               THE PREVIOUS MINIMUM.  NO                  F5G45560
       STO Z2V2 ,          YES, STORE NEW MIN                           F5G45570
       SXD Z2V3,2          STORE INDEX OF LIST OF GIVING NEW MIN        F5G45580
Z27    TIX Z23,2,1         COUNT TO 3 LISTS   ARE WE THRU               F5G45590
       LXD Z2V3,2          UES, GET INDEX OF L1ST WIIH MIN DIFF         F5G45600
       CLA Z2V1+3,2        STIRE                                        F5G45610
       PDX 0,4             THIS                                         F5G45620
       CLA CASE+7,1        CASE AT TOP OF                               F5G45630
Z24    TXI Z24+1,4,1       THAT LIST                                    F5G45640
       STO LIST1,4                                                      F5G45650
       PXD 0,4             STORE INDEX OF TOP                           F5G45660
       STO Z2V1+3,2        POSITION IN THAT LIST                        F5G45670
       CLA MZE             STORE INDICATION THAT THE                    F5G45680
       STO LLIND,2         LIST IS TO BE COMPILED                       F5G45690
Z26    TIX Z25,1,1         COUNT THE 7 CASES                            F5G45700
       REM  EXPAND TNE LXD LISTS                                        F5G45710
Z3     CLA Z2K5            IS THE                                       F5G45720
       SBM LIST1+2         BOTTOM ENTRY OF                              F5G45730
       TZE Z307            LIST1 A CASE 7                               F5G45740
       CLA LIST1+2         NO, DO THE BOTTOMS                           F5G45750
       ANA LIST2+2         OF LISTS 1 AND 2 HAVE                        F5G45760
       TZE Z35             A NON ZERO INTERSECTION                      F5G45770
       CAS LIST1+2         YES, DOES 1NTERSECTION EQUAL 1               F5G45780
       TRA Z31                                                          F5G45790
       TRA Z33             YES                                          F5G45800
Z31    CAS LIST2+2         IS IT EQUAL TO BOTTOM OF 2                   F5G45810
       TRA Z32                                                          F5G45820
       TRA Z34             YES                                          F5G45830
Z32    STO LIST1+3         STORE INTERSECTION IN SUB1                   F5G45840
       SSM                 POSITITON AND -(INTER.) IN                   F5G45850
       STO LIST2+3         SUB2 POS.                                    F5G45860
       TRA Z306                                                         F5G45870
Z38    SSM                 ENTER -INTER1 AND 3                          F5G45880
       STO LIST3+3         IN SUB3 POS.                                 F5G45890
       TRA Z306                                                         F5G45900
Z39    SSM                 ENTER - INTER 1 AND 3                        F5G45910
       STO LIST1+3         INSUV1 POS.                                  F5G45920
       TRA Z306                                                         F5G45930
Z300   CLA LIST2+2         DO BOTTOM ENTRIES                            F5G45940
       ANA LIST3+2         OF 2 AND 3 HAVE                              F5G45950
       TZE Z306            NONZERO INTERSECTION                         F5G45960
       CAS LIST2+2         YES, IS INTRE 2 AND 3                        F5G45970
       TRA Z301                                                         F5G45980
       TRA Z303            YES                                          F5G45990
Z301   CAS LIST3+2         IS INTERSECTION EQUAL TO BOTTOM OF LIST 3    F5G46000
       TRA Z302                                                         F5G46010
       TRA Z304            YES                                          F5G46020
Z302   STO LIST3+3         STORE INTER 2 AND 3 IN SUB 3 POS.            F5G46030
       SSM                 AND -INTER IN                                F5G46040
       STO LIST2+3         SUB 2 POS.                                   F5G46050
       TRA Z306                                                         F5G46060
Z303   SSM                 ENTER -(INTER 2 AND 3 )                      F5G46070
       STO LIST3+3         IN SUB 3 POS.                                F5G46080
       TRA Z306                                                         F5G46090
Z33    SSM                 ENTER -(INTER 1 AND 2 )                      F5G46100
       STO LIST2+3         IN SUB 2 POS.                                F5G46110
       TRA Z306                                                         F5G46120
Z34    SSM                 STORE -(INTER 1 AND 2 )                      F5G46130
       STO LIST1+3         IN SUB 1 POS.                                F5G46140
       TRA Z306                                                         F5G46150
Z35    CLA LIST1+2         DO BOTTOM ENTRIES IN                         F5G46160
       ANA LIST3+2         1 AND 3 HAVE NONZERO                         F5G46170
       TZE Z300            INTERSECTION                                 F5G46180
       CAS LIST1+2         YES, IS IT EQUAL TO BOT. 1                   F5G46190
       TRA Z36                                                          F5G46200
       TRA Z38             YES                                          F5G46210
Z36    CAS LIST3+2         TO THE BOTTOM ENTRY IN 3                     F5G46220
       TRA Z37                                                          F5G46230
       TRA Z39             YES                                          F5G46240
Z37    STO LIST3+3         ENTER INTER 1 AND 3 IN SUB                   F5G46250
       SSM                 3 POS. AND -( INTER ) IN                     F5G46260
       STO LIST1+3         SUB1 POS.                                    F5G46270
       TRA Z306                                                         F5G46280
Z307   SXD Z2V1,0          CREATE THE LIST                              F5G46290
       CLA L7                                                           F5G46300
       STO LIST1                                                        F5G46310
       CLA L3                                                           F5G46320
       STO LIST1+1                                                      F5G46330
       CLA ONEA                                                         F5G46340
       STO LIST1+2                                                      F5G46350
       TRA Z4                                                           F5G46360
Z304   SSM                 ENTER  - INTER 2 AND 3                       F5G46370
Z305   STO LIST2+3         INSUB2 POS.                                  F5G46300
Z306   LXD LD3,2           SET COUNT TO 3                               F5G46390
       LXA ZERO,1          SET TO INSPECT 1ST LIST                      F5G46400
Z309   CLA LIST1+2,1                                                    F5G46410
       TZE Z308            IS THE BOTTOM ENTRY ZERO                     F5G46420
       SUB ONEA            NO                                           F5G46430
       ANA LIST1+2,1       DOES IT HAVE TWO ONES                        F5G46440
       TZE Z308                                                         F5G46450
       STO TMP10           YES                                          F5G46460
       CLA LIST1+3,1       IS THE SUB BOTTOM                            F5G46470
       TNZ Z308            ENTRY ZERO                                   F5G46480
       CLA TMP10           YES                                          F5G46490
       STO LIST1+3,1                                                    F5G46500
Z308   TXI Z308+1,1,-4     PREPARE FOR NEXT LIST                        F5G46510
       TIX Z309,2,1        COUNT TO 3                                   F5G46520
       CLA Z2K5                                                         F5G46530
       SBM LIST1+1                                                      F5G46540
       TNZ Z4                                                           F5G46550
       CLA LIST1+2                                                      F5G46560
       SUB ONEA                                                         F5G46570
       ANA LIST1+2                                                      F5G46580
       TNZ Z4                                                           F5G46590
       CLA LIST1+2                                                      F5G46600
       STO LIST1+3                                                      F5G46610
       CLA Z2K5                                                         F5G46620
       SUB LIST1+2                                                      F5G46630
       STO LIST1+2                                                      F5G46640
       SUB ONEA                                                         F5G46650
       ANS LIST1+2                                                      F5G46660
       CAL LIST1+3                                                      F5G46670
       ORS LIST1+2                                                      F5G46680
       REM  DETECT AND COMPILE ANY SEQUENTIAL TRANSFER                  F5G46690
Z4     LDQ MZE             PUT MINUS ZEROS IN                           F5G46700
       STQ SXAS            THE ASS0XIATED                               F5G46710
       LXA L19,4           SXDPOSIT1ONS                                 F5G46720
Z411   STQ SXST+20,4                                                    F5G46730
       TIX Z411,4,1                                                     F5G46740
       CLA SXST                                                         F5G46750
       TMI Z5              IS THERE A SEQUENTIAL TRANSFER               F5G46760
       CAL BBNO            YES                                          F5G46770
       ARS 18                                                           F5G46780
       SUB ONEA                                                         F5G46790
       STO TMP10           PUT NO OF PREV. BB IN TMP10                  F5G46800
       CLA Z1V8            INITIALIZE 1ST PRED NO THIS BB               F5G46810
Z49    STO Z1V3                                                         F5G46820
       TSX SE5,4                                                        F5G46830
       CAL PRED,1                                                       F5G46840
       ANA ADDMK           IS THIS THE SEQUENTIAL                       F5G46850
       SUB TMP10           TRANSFERS PRED ENTRY                         F5G46860
       TZE Z410                                                         F5G46870
       CAL Z1V3            NO, TRY NEXT ONE                             F5G46880
       ADD ONEA                                                         F5G46890
       TRA Z49                                                          F5G46900
Z410   CLA Z1V3            GET THE PRED NO                              F5G46910
       TSX SH,4            FORM THE SXD CASE                            F5G46920
       CLA SXD1                                                         F5G46930
       ADD SXD2                                                         F5G46940
       ADD SXD3                                                         F5G46950
       TZE Z44             IS THIS A 0 SXD CASE                         F5G46960
       LXA L4,4            ISNT 0 SXD CASE                              F5G46970
Z41    CLA SXD1+3,4        RECORD SXD CASE                              F5G46980
       STO SXST+4,4        IN POSITION ASSOCIATED                       F5G46990
       TIX Z41,4,1         WITH SEQUENTIAL TRANSFER                     F5G47000
       LXA ZERO,1          COMPILE THE SXD                              F5G47010
       TSX SI,4            INST. WITH                                   F5G47020
       TRA Z47             (1) ASSOCIATED SXD WITH 0 LXD CASE           F5G47030
Z42    TSX SM,4            (2)ASSOCIATED       WITH AN LXD LIST         F5G47040
       TRA Z47             (3) NOT ASSOCIATED  ( TRA COMPILED )         F5G47050
Z44    LXD SXD0,4                                                       F5G47060
       TXL Z46,4,0         DOES IT HAVE A 0 LXD CASE                    F5G47070
       PXD 0,4             NO                                           F5G47080
       ARS 18              LXD CASE TO AC  (ADDR)                       F5G47090
       STO Z4V1                                                         F5G47100
       LXD LD3,2           SET COUNT TO 3 , N=1                         F5G47110
Z45    CLA Z2V1+3,2        GET INDEX                                    F5G47120
       PDX 0,1             OF TOP QUANTITY IN LIST N                    F5G47130
       CLA LIST1,1         IS THE LXD CASE OF THIS SXD                  F5G47140
       SUB Z4V1            CASE THE SAME AS                             F5G47150
       TZE Z42             THE TOP  QUANTITY IN LIST N                  F5G47160
       TIX Z45,2,1         NO, COUNT TO 3                               F5G47170
       CLA Z4V1            COMPILE A                                    F5G47180
       TSX SL,4            TRA  (LXD )                                  F5G47190
       TRA Z47                                                          F5G47200
Z46    CLS ONEA            RECORD THAT THERE                            F5G47210
Z48    STO SLV3            IS A HANGING TRA 0CASE                       F5G47220
Z47    SYN Z48+1                                                        F5G47230
       REM  FORM THE SXD LIST AND THE SYN CARD LIST                     F5G47240
Z5     CLA ONED            SET INDEX IN SYN TABLE                       F5G47250
       STO Z5V1                                                         F5G47260
       CLA Z1V8            RESET 1 ST PRED IN BB                        F5G47270
Z53    STO Z1V3                                                         F5G47280
       SUB Z1V2            IS THIS PRED IN SAME BB                      F5G47290
       TZE Z6              NO, ADD FINISHED                             F5G47300
       CLA SXST            YES                                          F5G47310
       TMI Z51             WAS THERE A SEQUENTIAL TRANSFER              F5G47320
       ANA ADDMK           YES, EXTRACT ADDRESS                         F5G47330
       SUB Z1V3            HAS PRED ALREDY BEEN CONSIDERED              F5G47340
       TZE Z55             AS A SEQUENTIAL TRANSFER                     F5G47350
Z51    CLA Z1V3            NO                                           F5G47360
       TSX SH,4            GENERATE SXD CASE                            F5G47370
       CLA SXD1            IS THE                                       F5G47380
       ADD SXD2            SXD CASE                                     F5G47390
       ADD SXD3            ZERO                                         F5G47400
       TZE Z55                                                          F5G47410
       LXA ZERO,1          NO, PREPARE T  SCAN SXD LIST                 F5G47420
Z503   CLA SXST,1          IS               SUBSXD0                     F5G47430
       ANA DECMK                                                        F5G47440
       STO TMP10                                                        F5G47450
       CLA SXD0                                                         F5G47460
       ANA DECMK                                                        F5G47470
       SUB TMP10                                                        F5G47480
       TNZ Z54                                                          F5G47490
       CLA SXST+1,1        THIS SXD CASE                                F5G47500
       SUB SXD1                                                         F5G47510
       TNZ Z54                                                          F5G47520
       CLA SXST+2,1        SAME AS                                      F5G47530
       SUB SXD2                                                         F5G47540
       TNZ Z54                                                          F5G47550
       CLA SXST+3,1        THE ONE ALREADY                              F5G47560
       SUB SXD3            STORED                                       F5G47570
       TNZ Z54                                                          F5G47580
       CLA SXST,1          YES, STORE INDICATION                        F5G47590
       LXD Z5V1,2                                                       F5G47600
       ANA ADDMK           SYN,2  CARD                                  F5G47610
       STO SYN,2           IN THE                                       F5G47620
       CLA SXD0            SYN                                          F5G47630
       ALS 18              LIST                                         F5G47640
       STD SYN,2                                                        F5G47650
Z52    TXI Z52+1,2,1                                                    F5G47660
       SXD Z5V1,2                                                       F5G47670
Z55    CLA Z1V3            PREPARE TO DEAL WITH NEXT PRED               F5G47680
       ADD ONEA                                                         F5G47690
       TRA Z53                                                          F5G47700
Z54    CLA SXST,1                                                       F5G47710
       TPL Z502            IS THIS SXD POS. EMPTY                       F5G47720
       LXD LD3,2           YES                                          F5G47730
       TXL Z502,1,0        IS THIS ST CASE                              F5G47740
       TXH Z504,1,-4-1     NO, IS THIS 0 LIST CASE                      F5G47750
       TXH Z507,1,-8-1     NO             1ST                           F5G47760
       TXH Z506,1,-12-1                2ED                              F5G47770
       TXH Z505,1,-16-1                3RD                              F5G47780
       TSX Z500,4          ENTER THE SXD CASE IN THE LIST               F5G47790
       CLA MZE                                                          F5G47800
       STO SXST+4,1        STORE END MARK FOR SYN CAEDS                 F5G47810
       TRA Z55                                                          F5G47820
Z502   TXI Z503,1,-4       EXAMINE NEXT SXD CASE                        F5G47830
Z504   CAL SXD0            ZERO LIST CASE                               F5G47840
       ANA DECMK           IS THE LXD CASE 0                            F5G47850
       TNZ Z502                                                         F5G47860
       TSX Z500,4          YES, ENTER SXD CASE IN                       F5G47870
       TRA Z55             ASSOCIATED       POSITION                    F5G47880
Z505   TIX Z505+1,2,1      GENERATE INDEX OF LIST                       F5G47890
Z506   TIX Z506+1,2,1                                                   F5G47900
Z507   CAL Z2V1+3,2        IS                                           F5G47910
       PDX 0,4             THE                                          F5G47920
       CLA SXD0            LXD                                          F5G47930
       ARS 18              CASE THE                                     F5G47940
       SUB LIST1,4         SAME                                         F5G47950
       TNZ Z502                                                         F5G47960
       TSX Z500,4          YES                                          F5G47970
       TRA Z55                                                          F5G47980
       REM  SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST                F5G47990
Z500   CLA SXD0                                                         F5G48000
       STO SXST,1                                                       F5G48010
       CLA SXD1                                                         F5G48020
       STO SXST+1,1                                                     F5G48030
       CLA SXD2                                                         F5G48040
       STO SXST+2,1                                                     F5G48050
       CLA SXD3                                                         F5G48060
       STO SXST+3,1                                                     F5G48070
       TRA 1,4                                                          F5G48080
       REM  COMPILE THE SXD LIST                                        F5G48090
Z6     LXA LM20,1          SET TO START OF SXD LIST                     F5G48100
Z61    CLA SXST,1                                                       F5G48110
       TMI Z7              IS THIS SXD POSITION EMPTY                   F5G48120
       SXD Z6V1,1          NO                                           F5G48130
       TSX SI,4            COMPILE THE SXD CASE WITH                    F5G48140
       NOP                 (1)   0 LXD CASE,  OR                        F5G48150
Z6V1   TXH 0,0,SET         (2) THIS RETURN CANT OCCURR                  F5G48160
       LXD Z6V1,1          (3) TRA ALREADY CONPILED                     F5G48170
       TXI Z61,1,-4                                                     F5G48180
       REM  COMPILE TNE LXD LISTS AND ASSOCIATED SXD S                  F5G48190
Z7     LXD LD3,2           SET TO BEGIN SCAN OF LISTS                   F5G48200
Z72    CLA Z2K1+3,2                                                     F5G48210
       PDX 0,1             PUT INDEX OF BOTTOM POSITION IN 1            F5G48220
       CLA LIST1,1                                                      F5G48230
       TMI Z75             YES, IS IT A TRA(0) CASE                     F5G48240
       TZE Z73             IS THE LIST FILLED                           F5G48250
       CLA LIST1+1,1       PERHAPS, IS IT A FOR SURE                    F5G48260
       TZE Z75              IT IS IF EITHER THE SUB BOTTOM              F5G48270
       TPL Z75             ENTRY IS -0 OR POSITIVE                      F5G48280
       CLA Z7V2                                                         F5G48290
       TMI Z73             IS THIS 1ST TIME THRU                        F5G48300
Z76    CLA Z7K1+3,2        YES                                          F5G48310
       PDX 0,1             IS THERE ASSOCIATED                          F5G48320
       CLA SXST,1          SXDLIST                                      F5G48330
       SXD Z7V1,2                                                       F5G48340
       TMI Z74                                                          F5G48350
       TSX SI,4            YES, COMPILE SXD CASE                        F5G48360
       TRA Z71                                                          F5G48370
       TRA Z77             COMPILE                                      F5G48380
Z71    LXD Z7V1,2                                                       F5G48390
Z73    TIX Z72,2,1         COUNT TO 3                                   F5G46400
       CLS Z7V2            IS THIS 1ST TIME THRU                        F5G48410
       STO Z7V2                                                         F5G48420
       TMI Z7              YES, OO BACK     CLASXST                     F5G48430
       CLA SXAS0           IS THERE A 0 ASSOCIATED SXD CASE             F5G46440
       TMI Z8                                                           F5G48450
       LXA LM4,1           YES                                          F5G48460
       TSX SI,4            COMPILE SXD CASE                             F5G48470
       TRA Z8                                                           F5G48480
       TRA Z8                                                           F5G48490
       TRA Z8                                                           F5G48500
Z77    LXD Z7V1,2                                                       F5G46510
       CLA Z4V1,2                                                       F5G48520
       TMI Z74                                                          F5G48530
       CLA Z7K1+3,2                                                     F5G48540
       PDX 0,1                                                          F5G48550
       CLA SXST,1                                                       F5G48560
       ARS 18                                                           F5G46570
       TSX SL,4                                                         F5G48580
       TRA Z71                                                          F5G48590
Z74    CLA Z2V1+3,2        COMPILE THE LXD LIST                         F5G48600
       PDX 0,1                                                          F5G48610
       TSX SM,4                                                         F5G48620
       TRA Z71                                                          F5G48630
Z75    CLA Z7V2            IS THIS 1ST TIME THRU                        F5G48640
       TMI Z76             NO, 2ED TIME                                 F5G48650
       TRA Z73             YES                                          F5G48660
       REM  COMPILE ANY SYN CARDS                                       F5G48670
Z8     CAL BBNO            FORM                                         F5G48680
       ARS 18              AND                                          F5G48690
       STO TMP10           STORE                                        F5G48700
       TSX SE1,4                                                        F5G48710
       CAL BBB,1           -(IDSXD)-(BBNO)+(1ST PRED)*2**25             F5G48720
       ANA ADDMK                                                        F5G48730
       ALS 10                                                           F5G48740
       SUB TMP10                                                        F5G48750
       SUB IDSXD                                                        F5G48760
       STO TMP10                                                        F5G48770
       LXD Z5V1,2          SET TO START OF SYN LIST                     F5G48780
Z81    TXL Z83,2,1         ARE WE THRU                                  F5G48790
Z82    TIX Z82+1,2,1       DECREASE INDEX                               F5G48800
       CAL SYN,2                                                        F5G48810
       ANA DECMK           COMPILE THE SYN CARD                         F5G48820
       ARS 8                                                            F5G48830
       SUB TMP10                                                        F5G48840
       TSX SK,4                                                         F5G48850
       CLA LSYN                                                         F5G48860
       TSX SK,4                                                         F5G48870
       CAL SYN,2                                                        F5G48880
       ANA ADDMK                                                        F5G48890
       ALS 10                                                           F5G48900
       SUB TMP10                                                        F5G48910
       TSX SK,4                                                         F5G48920
       CLA ZERO                                                         F5G48930
       TSX SK,4                                                         F5G48940
       TRA Z81                                                          F5G48950
Z83    LXD BBOX1,2         GET INDEX OF COMPILED INDT                   F5G48960
       CLA MZE             RECORD NO SEQUENTIAL TRANSFER                F5G48970
       STO SXST                                                         F5G48980
       TRA FNDAS                                                        F5G48990
       REM  WRITE TH E LAST BLOCK OF C.I. T. ON TAPE                    F5G49000
       REM  AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END             F5G49010
LSTBB  RTB INSTTP          AN END OF                                    F5G49020
       CPY TMP10           FILE SEPARATES RELATIVE CONST. ROUTINES      F5G49030
       TRA EF3             END FILE ALREADY READ                        F5G49040
       TRA LSTBB           READ END FILE                                F5G49050
       TSX 4,4  DIAGNOSTIC, ERROR                                       F5G49060
EF3    LXD LD4,4             TRY 4 TIMES                                F5G49070
EFRTB  LXA ADDMK,3         READ IN NEXT RECORD                          F5G49080
       RTB INSTTP          OF RELATIVE CONSTANT SUBROUTINES             F5G49090
EFCPY  CPY RELSR,1                                                      F5G49100
       TXI EFCPY,1,-1                                                   F5G49110
       TRA EFREW           END OF FILE , END OF INST.                   F5G49120
       IOD                                                              F5G49130
       RTT                                                              F5G49140
       TRA EFERR                                                        F5G49150
       SXD EFTXL,1         STORE END TEST                               F5G49160
EFTXL  TXL EFRTB,2,SET     COMPILE THE INSTRUCTIONS                     F5G49170
       CLA RELSR,2                                                      F5G49180
       TSX SK,4                                                         F5G49190
       TXI EFTXL,2,-1                                                   F5G49200
EFREW  REW INSTTP          REWIND THE TAPE                              F5G49210
       LXA SKK1,1          SET 1 TO LENGTH OF CS BLOCK                  F5G49220
       LXD SKV1,4          INDEX OF NEXTCLST POSITION                   F5G49230
       SXD LSTXL,4                                                      F5G49240
       TXH LSWEF,4,LCLST-1    IS BLOCK EMPTY                            F5G49250
       WTB OTAPE           NO, WRITE                                    F5G49260
LSTXL  TXL LSWEF,1,-       IT ON TAPE                                   F5G49270
       CPY CLST,1                                                       F5G49280
       TXI LSTXL,1,-1                                                   F5G49290
LSWEF  WEF OTAPE           WRITE AN END FILE                            F5G49300
       TRA R                                                            F5G49310
EFERR  BST INSTTP                                                       F5G49320
       TIX EFRTB,4,1                                                    F5G49330
       TSX 4,4  4TH ERROR, TO DIAGN0STIC                                F5G49340
       BSS PTL4        SPACE FOR PATCHES                                F5G49350
RELSR                      START OF REL. CONST. ROUTINES                F5G49360
       ORG 0                                                            F5G49370
       HTR R,0,4                  CONTROL CARD PART 1.                  F5G49371
       HTR CMTAG-1                                                      F5G49372
       ORG 0                                                            F5G49373
       HTR PRED,0,PRED            CONTROL CARD PART 1B.                 F5G49374
       HTR I9A+2                                                        F5G49375
       ORG 0                                                            F5G49376
       HTR QS,0,QS                CONTROL CARD, PART 1C.                F5G49377
       HTR QS8+1                                                        F5G49378
       ORG 0                                                            F5G49379
       HTR QPU,0,QPU              CONTROL CARD, PART 1D.                F5G49380
       HTR QPU8+1                                                       F5G49381
       ORG 0                                                            F5G49382
       HTR QSU,0,QSU              CONTROL CARD, PART 1E.                F5G49383
       HTR QSU8+1                                                       F5G49384
       ORG 0                                                            F5G49385
       HTR BLV09,0,BL12           CONTROL CARD, PART 2.                 F5G49386
       HTR BLIST                                                        F5G49387
       ORG 0                                                            F5G49388
       HTR START,0,START          CONTROL CARD, PART 3.                 F5G49389
       HTR ASCON                                                        F5G49390
       ORG 0                                                            F5G49391
       HTR L3,0,PASS2             CONTROL CARD, PART 4.                 F5G49392
       HTR RELSR                                                        F5G49393
       END PASS2                                                        F5G49394
       ORG 24                                                                                           
       REM 704 FORTRAN II / DBC / 12 JAN 59.                                                            
       REM                                                                      
       REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=                  
       REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION               
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.           
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F           
       REM THIS LOGICAL BLOCK OR SUBROUTINE.                                    
       REM C IN C0L/34 INDICATES THE INSTRUCTI0N WAS CORRECTED.                 
       REM P IN COL/32 INDICATES THE INSTRUCTI0N WAS INSERTED (PATCH).          
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM CONTROL CARD FOR DBC.                                        DBC/C01 
       ORG 0                                                            DBC/C02 
       PZE TAB+1                                                        DBC/C03 
       PZE COMMON                                                       DBC/C04 
       BCD 1(DBC)                                                       DBC/C05 
       PZE (DBC)                                                        DBC/C06 
       REM  END OF DBC CONTROL CARD.                                    DBC/C07 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/C08 
       REM                                                              DBC/C09 
       ORG 0                                                            DBC/O01 
       REM (DBC)/ CALLS=LINE,READ.  CALLER=MAIN PROGRAM.                DBC/002 
       REM (DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT.       DBC/003 
(DBC)  TTR NEW                       INSTRUCTI0N EXECUTED IN LOCATION 1.DBC/004 
       REM NEW = ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT DBC/005 
       REM ROUTINE TO HANDLE CURRLNT  INPUT, AND C(0)= LOCATION OF THE  DBC/006 
       REM CURRENT FORMAT STATEMENT).                                   DBC/007 
NEW    LTM                           SET RBCD  TO CALL THE INDICATED    DBC/008 
       STA TYPE                      TYPE OF  INPUT ROUTINE.            DBC/009 
       CAL 0                         SET  INPUT FORMAT STATEMENT        DBC/010 
       STA CALL                      LOCATI0N.                          DBC/011 
       ADD ONE                       SET EXIT                           DBC/012 
       STA FX4                       TO MAIN PROGRAM.                   DBC/013 
CALL   CAL **                        OBTAIN FORMAT STATEMENT            DBC/014 
       SXD FX4,4                     FOR SCAN.                          DBC/015 
       TSX LINE,4                  * GO SCAN FORMAT.                    DBC/O16 
       LXD FX4,4                     WHEN DONE, RESTORE C(XR4).         DBC/017 
       CAL TRAP                      SET LOCATION 1 FOR FUTURE          DBC/018 
       SLW 1                         TRAP TRANSFER TO SEEK, AND         DBC/019 
FX4    TXI **,0,**                 * TRANSFER CONTROL TO MAIN PROGRAM.  DBC/020 
       REM THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.          DBC/021 
TRAP   TTR SEEK                      INSTRUCTION EXECUTED IN LOCATION 1.DBC/022 
       REM SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATI0N OF    DBC/023 
       REM THE ADDRESS OF THE NEXT  INPUT NUMBERS).                     DBC/024 
SEEK   LTM                           PICKUP NTR INSTRUCTION, AND        DBC/025 
       CAL 0                         SET LOCATION                       DBC/O26 
       STA SETL                      0F  INPUT NUMBERS.                 DBC/027 
       ADD ONE                       SET LOCATION FOR                   DBC/028 
       STA OUT                       RETURN TO MAIN PROGRAM.            DBC/029 
SETL   CLA **                        PICKUP LOCATION OF  INPUT          DBC/030 
STO    STO PUT                       AND SET ADDRESS AND TAG OF PUT.    DBC/031 
       LDQ STO                       SET PUT OP                         DBC/032 
       SLQ PUT                       TO STO.                            DBC/033 
       SXD FX4,4                     SAVE THE C(XR4), AND               DBC/034 
       TSX READ,4                  * GO READ AND CONVERT INPUT.         DBC/035 
       LXD FX4,4                     RESTORE THE C(XR4).                DBC/036 
PUT    STO **,**                     STORE INPUT NUMBER.                DBC/037 
       ETM                           REPEAT UNTIL LIST IS EXHAUSTED,    DBC/038 
OUT    TTR **                      * UNDER CONTROL OF THE MAIN PROGRAM. DBC/039 
       REM  END OF PROGRAM (DBC).                                       DBC/040 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/041 
       REM                                                              DBC/042 
       REM LINE,4/ CALLS=RBCD,FIELD. USES=READ. CALLER=(DBC).           DBC/043 
       REM LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT.      DBC/044 
LINE   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN.        DBC/045 
       SXD AX1,1                     SAVE THE ORIGINAL C(XR1), AND      DBC/046 
       SXD AX2,2                     SAVE THE ORIGINAL C(XR2).          DBC/047 
       COM                           COMPLEMENT THE C(AC), AND SET      DBC/048 
       STD UNIT                      UNIT DECREMENT= -(CURRENT UNIT).   DBC/049 
       STZ PEX                       SET PEX (SCALE FACTOR) = 0, AND    DBC/050 
       STZ INT                       SET INT = 0.                       DBC/051 
       STA SCAN5                     SAVE THE C(AC) ADDRESS, AND        DBC/052 
       TSX RBCD,2                  * GO READ INPUT UNIT RECORD. THEN    DBC/053 
       LXA SCAN5,2                   SET XR2= -(CURRENT FORMAT LOC.),ANDDBC/054 
       LXD SEVEN,1                   SET XR1 = 7, AND PICKUP THE        DBC/055 
       LDQ -1,2                      1ST WORD OF CURRENT FORMAT.        DBC/056 
       REM CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.    DBC/057 
CCLPAR SXD BX1,1                     SAVE THE CURRENT CHARACTER COUNT,  DBC/058 
       SXD BX2,2                     SCAN POSITION, AND FORMAT WORD,    DBC/059 
       STQ MQR                       FOR POSSIBLE REPETITION OF GROUP.  DBC/060 
       LXA INT,4                     SET GROUP CONTROL COUNT FOR THE    DBC/061 
       SXD BX4,4                     INDICATED NUMBER OF REPETITIONS,   DBC/062 
       SXD GROUPX,4                  AND SAVE FOR POSSIBLE RESCAN.      DBC/063 
       REM SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN.          DBC/064 
SCAN   STZ INT                       CLEAR INT WORKING STORAGE, AND     DBC/065 
SIX    TXI SCAN5,0,6                 GO RESUME SCAN.                    DBC/066 
SCAN1  LXD SIX,1                     RESET FORMAT CHARACTER COUNT, AND  DBC/067 
       LDQ -1,2                      PICKUP NEXT FORMAT WORD.           DBC/068 
SCAN2  LGL 6                         EXAMINE NEXT CHARACTER,            DBC/069 
       CAS BLANK                     AND IF BLANK,                      DBC/070 
UNIT   TXI SCAN3,0,**                THEN                               DBC/071 
SEVEN  TXI SCAN5,0,7                 GO EXAMINE NEXT CHARACTER.         DBC/072 
SCAN3  CAS L(9)                      IF NOT BLANK, COMPARE WITH NINE,   DBC/073 
       TXI SCAN6,0                   IF NON-NUMERIC, COMPARE CCTEST.    DBC/074 
       NOP                           IF NUMERIC, THEN                   DBC/075 
       STO DIG                       CONVERT                            DBC/076 
       CLA INT                       SUCCESSIVE                         DBC/077 
       ALS 2                         BCD                                DBC/078 
       ADD INT                       0IGITS                             DBC/079 
       ALS 1                         T0 BINARY,                         DBC/080 
       ACL DIG                       T0 SET INT= SCALE FACTOR,          DBC/081 
       REM SCAN4 = ENTRY POINT USED BY CCSCFM.                          DBC/082 
SCAN4  STO INT                       CURRENT FIELD OR GROUP CONTROL.    DBC/083 
       REM SCAN5 = ENTRY POINT USED BY CCDCPT.                          DBC/084 
SCAN5  PXD **,0                      CLEAR THE AC, AND UPDATE COUNT.    DBC/085 
       TIX SCAN2,1,1                 WHEN N0 CHARACTERS REMAIN,         DBC/086 
       TXI SCAN1,2,-1                ADJUST SCAN POSITION, AND REPEAT.  DBC/087 
       REM SCAN6 = ENTRY POINT USED BY CCDCPT.                          DBC/088 
SCAN6  LXD NCC,4                     WHEN A NON-NUMERIC IS MET,         DBC/089 
SCAN7  CAS CCTEST,4                  SCAN LIST OF CONTROL CHARACTERS,   DBC/090 
NCC    TXI SCAN8,0,12                AND IF EQUALITY IS FOUND,          DBC/091 
       TRA FRMTR,4                 * TAKE THE INDICATED TRANSFER.       DBC/092 
SCAN8  TIX SCAN7,4,1                 IF NOT FOUNO IN CONTROL LIST, THEN DBC/093 
       HPR 5,1                       STOP. PRESS START TO CONTINUE.     DBC/0935
       REM  END OF PROGRAM LINE.                                        DBC/097 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/098 
       REM                                                              DBC/099 
       REM FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =                  DBC/100 
       TXI CCEDMK,0                  END OF FORMAT STATEMENT.           DBC/1005
AX1    TXI CCLPAR,0,**               BEGIN FORMAT OR GROUP.             DBC/101 
AX2    TXI CCCMMA,0,**               END FIELD.                         DBC/102 
AX4    TXI CCSLSH,0,**               END LINE OR RECORD.                DBC/103 
       TXI CCSCFP,0                  SCALE FACTOR PLUS.                 DBC/104 
BX1    TXI CCSCFM,0,**               SCALE FACTOR MINUS.                DBC/105 
BX2    TXI CCRPAR,0,**               END FORMAT OR GROUP.               DBC/106 
BX4    TXI CCDCPT,0,**               ROUNDING OF  INPUT NUMBER.         DBC/107 
       TXI CCINPT,0                  DECIMAL INPUT.                     DBC/108 
CX1    TXI CCHNPT,0,**               HOLLERITH FIELD INPUT.             DBC/109 
CX2    TXI CCFNPT,0,**               FIXED POINT INPUT.                 DBC/110 
CX4    TXI CCENPT,0,**               FLOATING POINT INPUT.              DBC/111 
FRMTR  BSS 0                                                            DBC/112 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/113 
       REM                                                              DBC/114 
       REM CCEDMK/ CALLS=FIELD. USES=MAIN PROGRAM.                      DBC/1141
       REM CCEDMK = ENTRY POINT WHEN AN ENDMK IS MET IN FORMAT SCAN.    DBC/1142
CCEDMK TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/1143
       CAL TXLOP                     THEN GO SET CNVSW TO RESCAN FORMAT DBC/1144
       TXI SETSW,0                 * IF LIST IS NOT EXHAUSTED.          DBC/1145
       REM  END OF PR0GRAM CCEDMK.                                      DBC/1146
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/1147
       REM                                                              DBC/1148
       REM CCCMMA/ CALLS=FIELD. USES=LINE(SCAN).                        DBC/115 
       REM CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.     DBC/116 
CCCMMA TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/117 
       REM RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT.           DBC/118 
RESUME LXD CX1,1                     WHEN DONE, RESTORE CHARACTER COUNT,DBC/119 
       LXD CX2,2                     RESTORE SCAN POSITION, AND         DBC/120 
       LDQ MQ                        CURRENT FORMAT WORD. THEN          DBC/121 
       TXI SCAN,0                  * GO RESUME SCAN.                    DBC/122 
       REM  END OF PROGRAM CCCMMA.                                      DBC/123 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/124 
       REM                                                              DBC/125 
       REM CCSLSH/ CALLS=FIELD,RBCD.  USES=CCCMMA.                      DBC/126 
       REM CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.     DBC/127 
CCSLSH TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/128 
       TSX RBCD,2                  * WHEN DONE, READ A RECORD, AND      DBC/129 
       TXI RESUME,0                * GO RESUME SCAN.                    DBC/130 
       REM  END OF PR0GRAM CCSLSH.                                      DBC/131 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/132 
       REM                                                              DBC/133 
       REM CCSCFP/ USES=LINE(SCAN).                                     DBC/I34 
       REM CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.         DBC/135 
CCSCFP CLA INT                       PICKUP AND                         DBC/136 
       STO PEX                       STORE SCALE FACTOR.                DBC/137 
       TXI SCAN,0                  * GO RESUME SCAN.                    DBC/138 
       REM  END OF PROGRAM CCSCFP.                                      DBC/139 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/140 
       REM                                                              DBC/141 
       REM CCSCFM/ USES=LINE(SCAN).                                     DBC/142 
       REM CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.DBC/143 
CCSCFM CLS INT                       SET INT MINUS, ANO                 DBC/144 
       TXI SCAN4,0                 * GO GET SCALE FACTOR.               DBC/145 
       REM  END OF PROGRAM CCSCFM.                                      DBC/146 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/147 
       REM                                                              DBC/148 
       REM CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).              DBC/149 
       REM CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.    DBC/150 
CCRPAR TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    DBC/151 
       LXD BX4,4                     WHEN DONE, UPDATE GROUP COUNT, AND DBC/152 
       TNX RESUME,4,1              * GO RESUME SCAN, UNLESS             DBC/153 
       TXI GROUP,0                 * REPETITION OF GROUP IS INDICATED.  DBC/154 
       REM  END OF PROGRAM CCRPAR.                                      DBC/155 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/156 
       REM                                                              DBC/157 
       REM CCDCPT/ USES=LINE(SCAN).                                     DBC/158 
       REM CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.     DBC/159 
CCDCPT CLA DTR                       MODIFY SCAN INSTRUCTION            DBC/160 
       STO SCAN3                     TO TRANSFER INTO DCPT1.            DBC/161 
       STZ DIG                       CLEAR DIG, AND                     DBC/1615
       TXI SCAN5,0                 * GO RESUME SCAN.                    DBC/162 
       REM DCPT1 = REENTRY POINT FROM LINE(SCAN).                       DBC/163 
DCPT1  CAS L(9)                      DETERMINE THE                      DBC/164 
       TXI DCPT3,0                   NUMBER, MODULO TEN,                DBC/165 
       NOP                           OF DIGITS                          DBC/166 
       STO DIG                       IN FRACTION.                       DBC/167 
       TXI SCAN5,0                 * WHEN A CONTROL CHARACTER IS MET,   DBC/168 
DCPT3  STQ MQ                        RESTORE THE                        DBC/169 
       LDQ DCPT1                     SCAN INSTRUCTION                   DBC/170 
       STQ SCAN3                     T0 ITS ORIGINAL FORM, AND          DBC/171 
       LDQ MQ                        GO COMPARE CHARACTER               DBC/172 
       TXI SCAN6,0                 * WITH CCTEST LIST.                  DBC/173 
       REM  END OF PROGRAM CCDCPT.                                      DBC/174 
DTR    TXI DCPT1,0                 * INSTRUCTION CONSTANT.              DBC/175 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/176 
       REM                                                              DBC/177 
       REM CCINPT/ USES=LINE(SCAN).                                     DBC/17B 
       REM CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.        DBC/179 
CCINPT CAL TXLOP                     PICKUP TXLOP, AND                  DBC/180 
       REM SETFX = ENTRY POINT USED BY CCFNPT.                          DBC/181 
SETFX  STP FIXSW                     FIXED POINT SWITCH.                DBC/182 
       LXA INT,4                     SET COUNT FOR THE                  DBC/183 
       SXD COUNT,4                   REPETITION OF THIS FIELD, AND      DBC/184 
       TXI SCAN,0                  * GO RESUME SCAN.                    DBC/185 
       REM  END OF PROGRAM CCINPT.                                      DBC/186 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/187 
       REM                                                              DBC/188 
       REM CCHNPT/ USES=CCCMMA.                                         DBC/189 
       REM CCHNPT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.        DBC/190 
CCHNPT LXA INT,4                     SET XR4 = HOLLERITH FIELD WIDTH.   DBC/191 
       LDQ MQD                       PICKUP ANY REMAINING INPUT.        DBC/192 
       SXD CX2,2                     SAVE FORMAT SCAN POSITION.         DBC/193 
       CAL -1,2                      PICKUP CURRENT FORMAT WORD.        DBC/194 
       LXD DX1,2                     SET XR2 = INPUT CHARACTER COUNT.   DBC/195 
       TNX HNPT5,1,1                 IF ANY CHARACTERS REMAIN IN CURRENTDBC/196 
       SXD CX1,1                     FORMAT WORD, SAVE FOR-CHAR COUNT,  DBC/197 
HNPT1  ARS 6                         AND SHIFT REMAINDER INTO           DBC/198 
       TIX HNPT1,1,1                 THE MQ. WHEN DONE,                 DBC/199 
       LXD CX1,1                     RESTORE FOR-CHAR COUNT, AN0        DBC/200 
HNPT2  TIX HNPT4,2,1                 IF INPUT-CHAR COUNT IS EXHAUSTED,  DBC/201 
       LXD DX2,2                     SET XR2 = INPUT WORD COUNT,        DBC/202 
       TXI HNPT3,2,-1                UPDATE IT, AND                     DBC/203 
HNPT3  LDQ BCD,2                     PICKUP NEXT INPUT WORD.            DBC/204 
       SXD DX2,2                     THEN SAVE INPUT WORD COUNT,        DBC/205 
       LXD SIX,2                     AND RESET INPUT-CHAR COUNT TO 6.   DBC/206 
HNPT4  LGL 6                         FILL OUT THE PARTIAL WORD 1N THE ACDBC/207 
       TNX HNPT7,4,1                 WITH NEW INPUT, UPDATING FIELD     DBC/208 
       TIX HNPT2,1,1                 CONTROL, AND WHEN DONE,            DBC/209 
HNPT5  LXD CX2,1                     SET XR1 = CURRENT FOR-SCAN POSITIONDBC/210 
       SLW -1,1                      AND STORE INPUT WORD IN FORMAT,    DBC/211 
       TXI HNPT6,1,-1                THEN UPDATE FORMAT SCAN            DBC/212 
HNPT6  SXD CX2,1                     POSITION, AND SAVE IT.             DBC/213 
       LXD SIX,1                     RESET FORMAT CHARACTER COUNT TO 6, DBC/214 
       TXI HNPT2,0                   AND REPEAT UNDER FIELD CONTROL.    DBC/215 
HNPT7  SXD DX1,2                     WHEN FIELD CONTR0L IS EXHAUSTED,   DBC/216 
       LXD CX2,2                     SAVE INPUT CHAR COUNT, AND SET XR2 DBC/217 
       STQ MQD                       T0 SCAN POSITION. SAVE REMA1NING   DBC/218 
       SXD CX1,1                     INPUT, AND SAVE FOR-CHAR COUNT.    DBC/219 
       TXL HNPT11,1,1                IF ANY CHARACTERS REMAIN           DBC/220 
       LDQ -1,2                      IN CURRENT FORMAT WORD,            DBC/221 
HNPT8  RQL 6                         SHIFT THEM INTO POSITION,          DBC/222 
       TXI HNPT9,1,1                 LEFT-ADJUSTED                      DBC/223 
HNPT9  TXL HNPT8,1,6                 IN THE MQ,                         DBC/224 
       STQ MQ                        AND SAVE THE C(MQ).                DBC/225 
       LXD CX1,1                     RESTORE FORMAT CHARACTER COUNT.    DBC/226 
       TNX HNPT11,1,1                SHIFT REMAINDER INTO               DBC/227 
HNPT10 LGL 6                         THE AC,                            DBC/228 
       TIX HNPT10,1,1                UPDATING CHARACTER COUNT. AND      DBC/229 
HNPT11 SLW -1,2                      STORE LAST WORD OF FIELD. THEN     DBC/230 
       TXI RESUME,0                * GO RE9UME SCAN.                    DBC/231 
       REM  END OF PROGRAM CCHNPT.                                      DBC/232 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/233 
       REM                                                              DBC/234 
       REM CCFNPT/ USES=CCINPT.                                         DBC/235 
       REM CCFNPT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.        DBC/236 
CCFNPT CLS PEX                       PICKUP NEGATIVE OF SCALE FACTOR TO DBC/237 
       REM SETXP = ENTRY POINT USED BY CCENPT.                          DBC/238 
SETXP  STO EXP                       SET EXPONENT.                      DBC/239 
       CLA TXLOP                     PICKUP TXHOP AND                   DBC/240 
       TXI SETFX,0                 * GO SET FIXSW TO NOP.               DBC/241 
       REM  END OF PROGRAM CCFNPT.                                      DBC/242 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/243 
       REM                                                              DBC/244 
       REM EOENPT/ USES=CCFNPT.                                         DBC/245 
       REM COENPT,= ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.        DBC/246 
CCENPT PXD ,0                        CLEAR THE AC, AND                  DBC/247 
       TXI SETXP,0                 * GO SET EXPONENT AND FIXSW.         DBC/248 
       REM  END OF PROGRAM CCENPT.                                      DBC/249 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/250 
       REM                                                              DBC/251 
       REM RESCAN/ CALLS=RBCD.  USES=LINE(SCAN).                        DBC/252 
       REM RESCAN = ENTRY POINT USED BY READ.                           DBC/253 
RESCAN SXD AX4,4                     FOR RETURN FROM FORMAT SCAN.       DBC/256 
       TSX RBCD,2                  * G0 READ A RECORD.                  DBC/257 
       LXD GROUPX,4                  THEN PICKUP ORIGINAL GROUP COUNT TODBC/258 
       REM GROUP = ENTRY POINT USED BY CCRPAR.                          DBC/259 
GROUP  SXD BX4,4                     UPDATE GROUP CONTROL.              DBC/260 
       LXD BX1,1                     RESET CHARACTER COUNT,             DBC/261 
       LXD BX2,2                     RESET SCAN POSITION, AND           DBC/262 
       LDQ MQR                       PICKUP 1ST FORMAT WORD OF GROUP.   DBC/263 
GROUPX TXI SCAN,0,**               * GO RESCAN THIS GROUP.              DBC/264 
       REM  END OF PROGRAM RESCAN.                                      DBC/265 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/266 
       REM                                                              DBC/267 
       REM FIELD,4/ USES READ.  CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.DBC/268 
       REM FIELD CONTROLS THE REPEATED  INPUT OF THE CURRENT FIELD.     DBC/269 
FIELD  SXD CX4,4                     SAVE THE C(XR4) FOR RETURN.        DBC/270 
       SXD CX1,1                     SAVE THE CHARACTER COUNT,          DBC/271 
       SXD CX2,2                     THE SCAN POSITION, AND             DBC/272 
       STQ MQ                        THE CURRENT FORMAT WORD.           DBC/273 
       LXA INT,4                     EXAMINE INT, AND                   DBC/274 
TXLOP  TXL DONE,4,0                  IF NOT ZERO, THEN                  DBC/275 
       CLA TXLOP                     PICKUP TXHOP TO                    DBC/276 
       REM SETSW = ENTRY POINT USED BY LINE(SCAN8).                     DBC/277 
SETSW  STP CNVSW                     SET CONVERSION SWITCH.             DBC/278 
       CLA DATUM                     THEN PICKUP DATUM,                 DBC/279 
       TXI LIST,0                  * GO STORE, AND EXAMINE LIST.        DBC/280 
       REM DONE = ENTRY POINT USED BY READ.                             DBC/281 
DONE   LXD CX4,4                     WHEN DONE, RESTORE THE C(XR4), AND DBC/282 
       TRA 1,4                     * RETURN TO CALLER.                  DBC/283 
       REM  END OF PROGRAM FIELD.                                       DBC/284 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/285 
       REM                                                              DBC/286 
       REM RBCD,2/ CALLS=(CSH),(TSH). CALLERS=LINE,CCSLSH,=ESCAN.       DBC/287 
       REM RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER.             DBC/288 
EOF    HPR 0,1                       EOF HALT / PRESS START TO REPEAT.  DBC/289 
RBCD   LXD UNIT,1                    SET XR1 FOR CURRENT UNIT, AND      DBC/290 
TYPE   TSX **,4                    * GO TO INDICATED INPUT ROUTINE.     DBC/291 
       PZE BCD,,-1                   (INPUT BUFFER)                     DBC/292 
       REM DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE.                DBC/293 
DCR1   TXI EOF,0,1                   GO TO END-OF-FILE STOP.            DBC/294 
       REM N=R1+1 = NORMAL RETURN FROM INPUT ROUTINE.                   DBC/295 
       CAL DCR1                      FOR CURRENT INPUT, RESET           DBC/296 
       STD DX1                       INPUT CHARACTER COUNT AND          DBC/297 
       STD DX2                       INPUT WORD COUNT TO ONE. THEN      DBC/298 
       TRA 1,2                     * EXIT TO CALLER.                    DBC/299 
       REM  END OF PROGRAM RBCD.                                        DBC/300 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/301 
       REM                                                              DBC/302 
       REM REA0,4/  USES=FIELD,LINE. CALLERS=IDBC),LINEIRESCAN).        DBC/303 
       REM READ  DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.    DBC/304 
       REM XREAD = EXIT FROM READ WHEN FORMAT IS EXHAUSTED.             DBC/305 
XREAD  SXD CNVSW,4                   SAVE THE C(XR4), AND               DBC/306 
       TSX RESCAN,4                * GO RESCAN FORMAT. THEN RETURN,     DBC/3061
       LXD CNVSW,4                   AFTER GETTING FORMAT.              DBC/3062
       REM READ  = ENTRY POINT USED BY (DBC).                           DBC/307 
READ   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN TO LIST.DBC/308 
       SXD AX1,1                     SAVE THE ORIGINAL C(XR1),          DBC/309 
       SXD AX2,2                     SAVE THE ORIGINAL C(XR2), AND      DBC/310 
CNVSW  TXL XREAD,0,**                SWITCH (TXL=TRA, TXH=NOP).         DBC/311 
       REM                                                              DBC/312 
       CLA MZE                                                          DBC/313 
       STO N                                                            DBC/314 
       SLW V                                                            DBC/315 
       SLW DG                                                           DBC/316 
       CLS DIG                                                          DBC/317 
       STO D                                                            DBC/318 
       CLA EXP                                                          DBC/319 
       STO E                                                            DBC/320 
       LXA INT,4                                                        DBC/321 
       LDQ MQD                                                          DBC/322 
       LXD DX1,1                                                        DBC/323 
       LXD DX2,2                                                        DBC/324 
       TNO F6                                                           DBC/325 
F6     TIX F1,1,1                                                       DBC/326 
       TXI F2,2,-1                                                      DBC/327 
F2     LXD SIX,1                                                        DBC/328 
       LDQ BCD,2                                                        DBC/329 
F1     PXD ,0                                                           DBC/330 
       LGL 6                                                            DBC/331 
       TXL D6,4,0                                                       DBC/332 
       CAS BLANK                                                        DBC/333 
DX1    TXI STOP1,0,**                                                   DBC/334 
DX2    TXI F3,0,**                                                      DBC/335 
       CAS MINUS                                                        DBC/336 
       TXI STOP1,0                                                      DBC/337 
       TXI F4,0                                                         DBC/338 
       CAS PLUS                                                         DBC/339 
       TXI C5L,0                                                        DBC/340 
       TXI F5,0                                                         DBC/34I 
       CAS NEGAT                                                        DBC/342 
       TXI STOP1,0                                                      DBC/343 
F4     CLA MZE                                                          DBC/344 
       CAS TEN                                                          DBC/345 
STOP1  HPR 1,1                                                          DBC/346 
F5     PXD ,0                                                           DBC/347 
       STO DG                                                           DBC/348 
       TXI D9,0                                                         DBC/349 
F3     TIX F6,4,1                                                       DBC/350 
       TXI D6,0                                                         DBC/351 
E1     TNX E5,4,1                                                       DBC/352 
       TIX E2,1,1                                                       DBC/353 
       TXI E3,2,-1                                                      DBC/354 
E3     LXD SIX,1                                                        DBC/355 
       LDQ BCD,2                                                        DBC/356 
E2     PXD ,0                                                           DBC/357 
       LGL 6                                                            DBC/358 
       CAS BLANK                                                        DBC/359 
       TXI STOP2,0                                                      DBC/360 
       TXI E1,0                                                         DBC/361 
       SXD ER,4                                                         DBC/362 
C2L    CAS MINUS                                                        DBC/363 
       TXI ER,0                                                         DBC/364 
       TXI E4,0                                                         DBC/365 
C4L    CAS PLUS                                                         DBC/366 
       TXI ER,0                                                         DBC/367 
       TXI E5,0                                                         DBC/368 
       CAS NEGAT                                                        DBC/369 
       TXI ER,0                                                         DBC/370 
E4     CLA MZE                                                          DBC/371 
       CAS TEN                                                          DBC/372 
STOP2  HPR 2,1                                                          DBC/373 
E5     PXD ,0                                                           DBC/374 
       STO E                                                            DBC/375 
       TNX D6,4,1                                                       DBC/376 
E9     TIX E6,1,1                                                       DBC/377 
       TXI E7,2,-1                                                      DBC/378 
ER     TXH STOP4,4,**                                                   DBC/379 
       TXI STOP2,0                                                      DBC/380 
E7     LXD SIX,1                                                        DBC/381 
       LDQ BCD,2                                                        DBC/382 
E6     PXD ,0                                                           DBC/383 
       LGL 6                                                            DBC/384 
       CAS BLANK                                                        DBC/385 
       TXI STOP3,0                                                      DBC/386 
       TXI E8,0                                                         DBC/387 
       CAS TEN                                                          DBC/388 
STOP3  HPR 3,1                                                          DBC/389 
E8     PXD ,0                                                           DBC/390 
       STO DG                                                           DBC/391 
       CLA E                                                            DBC/392 
       ALS 2                                                            DBC/393 
       ADD E                                                            DBC/394 
       ALS 1                                                            DBC/395 
       ACL DG                                                           DBC/396 
       STO E                                                            DBC/397 
       TIX E9,4,1                                                       DBC/398 
       TXI D6,0                                                         DBC/399 
C1L    CAS BLANK                                                        DBC/400 
STOP4  HPR 4,1                                                          DBC/401 
       TXI D7,0                                                         DBC/402 
C5L    SXD U,4                                                          DBC/403 
       STD ER                                                           DBC/404 
       CAS POINT                                                        DBC/405 
       TXI C2L,0                                                        DBC/406 
       TXI C3L,4,-1                                                     DBC/407 
       CAS EXPON                                                        DBC/408 
       TXI STOP4,0                                                      DBC/409 
       TXI E1,0                                                         DBC/410 
       TXI C4L,0                                                        DBC/411 
C3L    PXD ,4                                                           DBC/412 
       ARS 18                                                           DBC/413 
       STO U                                                            DBC/414 
       STO D                                                            DBC/415 
       TXI D8,4,1                                                       DBC/416 
D4     CLA V                                                            DBC/417 
       ADD ONE                                                          DBC/418 
       STO V                                                            DBC/419 
       TNX D6,4,1                                                       DBC/420 
D5     TIX D1,1,1                                                       DBC/421 
       TXI D2,2,-1                                                      DBC/422 
D2     LXA D3,1                                                         DBC/423 
       LDQ BCD,2                                                        DBC/424 
D1     PXD ,0                                                           DBC/425 
D3     LGL 6                                                            DBC/426 
       CAS TEN                                                          DBC/427 
       TXI C1L,0                                                        DBC/428 
D7     PXD ,0                                                           DBC/429 
       STA DG                                                           DBC/430 
       CLA N                                                            DBC/431 
       ALS 2                                                            DBC/432 
       ADD N                                                            DBC/433 
       ALS 1                                                            DBC/434 
       ADD DG                                                           DBC/435 
       TOV D4                                                           DBC/436 
D9     STO N                                                            DBC/437 
D8     TIX D5,4,1                                                       DBC/438 
D6     CLA N                                                            DBC/439 
       STQ MQD                                                          DBC/440 
       SXD DX1,1                                                        DBC/441 
       SXD DX2,2                                                        DBC/442 
FIXSW  TXL T1,0                                                         DBC/443 
       TZE T2                                                           DBC/444 
       CLA D                                                            DBC/445 
       TMI ADE                                                          DBC/446 
       CLA U                                                            DBC/447 
       ARS 18                                                           DBC/448 
       SUB D                                                            DBC/449 
ADE    ADD E                                                            DBC/450 
       ADD V                                                            DBC/451 
       STO D                                                            DBC/452 
       CLA N                                                            DBC/453 
       STA K1                                                           DBC/454 
       ARS 15                                                           DBC/455 
       ORA K2                                                           DBC/456 
       FAD K2                                                           DBC/457 
       STO F                                                            DBC/458 
       CLM                                                              DBC/459 
       ORA K1                                                           DBC/460 
       FAD F                                                            DBC/461 
       RQL 8                                                            DBC/462 
       RND                                                              DBC/463 
       ORA K3                                                           DBC/464 
       LXA D,4                                                          DBC/465 
       TXL T2,4,0                                                       DBC/466 
       LDQ D                                                            DBC/467 
       TQP T4                                                           DBC/468 
       TXH T5,4,49                                                      DBC/469 
       FDP TAB,4                                                        DBC/470 
       STQ F                                                            DBC/471 
       CLA F                                                            DBC/472 
       ACL K4                                                           DBC/473 
       PBT                                                              DBC/474 
T5     CLM                                                              DBC/475 
       TXI T2,0                                                         DBC/476 
T4     STO F                                                            DBC/477 
       TXH T3,4,49                                                      DBC/478 
       LDQ F                                                            DBC/479 
       FMP TAB,4                                                        DBC/480 
       ACL K5                                                           DBC/481 
       PBT                                                              DBC/482 
       TXI T2,0                                                         DBC/483 
T3     CLM                                                              DBC/484 
       COM                                                              DBC/485 
       TXI T2,0                                                         DBC/486 
T1     ALS 18                                                           DBC/487 
T2     LXD COUNT,4                   UPDATE FIELD COUNT, AND            DBC/488 
       TIX MORE,4,1                  IF EXHAUSTED, THEN                 DBC/489 
       STO DATUM                     SAVE THE CONVERTED FIELD, AND      DBC/490 
COUNT  TXI DONE,0,**               * (FIELD REPEAT COUNT)EXAMINE FORMAT.DBC/491 
MORE   SXD COUNT,4                   OTHERWISE, GO EXAMINE LIST.        DBC/492 
       REM LIST = ENTRY POINT USED BY FIELD.                            DBC/493 
LIST   LXD AX4,4                     SET XR4 FOR INDICATED RETURN,      DBC/494 
       LXD AX1,1                     RESTORE THE ORIGINAL C(XR1),       DBC/495 
       LXD AX2,2                     RESTORE THE ORIGINAL C(XR2I, AND   DBC/496 
       TRA 1,4                     * GO STORE (OR CONVERT) INPUT.       DBC/497 
       REM  END OF PROGRAM READ.                                        DBC/498 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/499 
       REM                                                              DBC/500 
       REM CONSTANTS AND WORKING STORAGE USED BY DBC.                   DBC/501 
ENDMK  OCT 77                        CCTEST-12.                         DBC/5015
 (     BCD 100000(                   CCTEST-11.                         DBC/502 
 COMMA BCD 100000,                   CCTEST-10.                         DBC/503 
 SLASH BCD 100000/                   CCTEST-9.                          DBC/504 
 P     BCD 100000P                   CCTEST-8.                          DBC/505 
 MINUS BCD 100000-                   CCTEST-7.                          DBC/506 
 )     BCD 100000)                   CCTEST-6.                          DBC/507 
 POINT BCD 100000.                   CCTEST-5.                          DBC/508 
 I     BCD 100000I                   CCTEST-4.                          DBC/509 
H      BCD 100000H                   CCTEST-3.                          DBC/510 
FCC    BCD 100000F                   CCTEST-2.                          DBC/511 
EXPON  BCD 100000E                   CCTEST-1.                          DBC/512 
CCTEST BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   DBC/513 
 ONE   DEC 1                         CONSTANT USED BY DBC.              DBC/514 
 TEN   DEC 10                        CONSTANT USED BY DBC.              DBC/515 
 L(9)  PZE 9                         CONSTANT USED BY DBC.              DBC/5155
 BLANK BCD 100000                    CONSTANT USED BY DBC.              DBC/516 
PLUS   BCD 100000+                   CONSTANT USED BY DBC.              DBC/517 
NEGAT  BCD 100000'                   CONSTANT USED BY DBC.              DBC/518 
MZE    MZE                           CONSTANT USED BY DBC.              DBC/519 
K1     DEC 155B8                     CONSTANT USED BY DBC.              DBC/520 
K2     DEC 170B8                     CONSTANT USED BY DBC.              DBC/521 
K3     DEC 1B9                       CONSTANT USED BY DBC.              DBC/522 
K4     DEC 221B8                     CONSTANT USED BY DBC.              DBC/523 
K5     DEC 35B8                      CONSTANT USED BY DBC.              DBC/524 
       OCT 375536246150              48-TABLE USED BY DBC.              DBC/525 
       OCT 372430204755              47-TABLE USED BY DBC.              DBC/526 
       OCT 366700324573              46-TABLE USED BY DBC.              DBC/527 
       OCT 363546566774              45-TABLE USED BY DBC.              DBC/528 
       OCT 360436770626              44-TABLE USED BY DBC.              DBC/529 
       OCT 354713132675              43-TABLE USED BY DBC.              DBC/530 
       OCT 351557257061              42-TABLE USED BY DBC.              DBC/531 
       OCT 346445677215              41-TABLE USED BY DBC.              DBC/532 
       OCT 342726145174              40-TABLE USED BY DBC.              DBC/533 
       OCT 337570120775              39-TABLE USED BY DBC.              DBC/534 
       OCT 334454732312              38-TABLE USED BY DBC.              DBC/535 
       OCT 330741367020              37-TABLE USED BY DBC.              DBC/536 
       OCT 325601137163              36-TABLE USED BY DBC.              DBC/537 
       OCT 322464114134              35-TABLE USED BY DBC.              DBC/538 
       OCT 316755023372              34-TABLE USED BY DBC.              DBC/539 
       OCT 313612334310              33-TABLE USED BY DBC.              DBC/540 
       OCT 310473426555              32-TABLE USED BY DBC.              DBC/541 
       OCT 304770675742              31-TABLE USED BY DBC.              DBC/542 
       OCT 301623713116              30-TABLE USED BY DBC.              DBC/543 
       OCT 276503074076              29-TABLE USED BY DBC.              DBC/544 
       OCT 273402374713              28-TABLE USED BY DBC.              DBC/545 
       OCT 267635456171              27-TABLE USED BY DBC.              DBC/546 
       OCT 264512676456              26-TABLE USED BY DBC.              DBC/547 
       OCT 261410545213              25-TABLE USED BY DBC.              DBC/548 
       OCT 255647410337              24-TABLE USED BY DBC.              DBC/549 
       OCT 252522640262              23-TABLE USED BY DBC.              DBC/550 
       OCT 247417031702              22-TABLE USED BY DBC.              DBC/551 
       OCT 243661534466              21-TABLE USED BY DBC.              DBC/552 
       OCT 240532743536              20-TABLE USED BY DBC.              DBC/553 
       OCT 235425434430              19-TABLE USED BY DBC.              DBC/554 
       OCT 231674055530              18-TABLE USED BY DBC.              DBC/555 
       OCT 226543212741              17-TABLE USED BY DBC.              DBC/556 
       OCT 223434157116              16-TABLE USED BY DBC.              DBC/557 
       OCT 217706576512              15-TABLE USED BY DBC.              DBC/558 
       OCT 214553630410              14-TABLE USED BY DBC.              DBC/559 
       OCT 211443023471              13-TABLE USED BY DBC.              DBC/560 
       OCT 205721522451              12-TABLE USED BY DBC.              DBC/561 
       OCT 202564416672              11-TABLE USED BY DBC.              DBC/562 
       OCT 177452013710              10-TABLE USED BY DBC.              DBC/563 
       OCT 173734654500              09-TABLE USED BY DBC.              DBC/564 
       OCT 170575360400              08-TABLE USED BY DBC.              DBC/565 
       OCT 165461132000              07-TABLE USED BY DBC.              DBC/566 
       OCT 161750220000              06-TABLE USED BY DBC.              DBC/567 
       OCT 156606500000              05-TABLE USED BY DBC.              DBC/568 
       OCT 153470400000              04-TABLE USED BY DBC.              DBC/569 
       OCT 147764000000              03-TABLE USED BY DBC.              DBC/570 
       OCT 144620000000              02-TABLE USED BX DBC.              DBC/571 
       OCT 141500000000              01-TABLE USED BY DBC.              DBC/572 
TAB    OCT 136400000000              00-TABLE USED BY DBC.              DBC/573 
COMMON ORG -39                                                          DBC/574 
 INT   BSS 1                         VARIABLE USED BY DBC.              DBC/575 
 DIG   BSS 1                         VARIABLE USED BY DBC.              DBC/576 
 DATUM BSS 1                         VARIABLE USED BY DBC.              DBC/577 
 MQ    BSS 1                         VARIABLE USED BY DBC.              DBC/578 
 MQR   BSS 1                         VARIABLE USED BY DBC.              DBC/579 
MQD    BSS 1                         VARIABLE USED BY DBC.              DBC/580 
 PEX   BSS 1                         VARIABLE USED BY DBC.              DBC/581 
 EXP   BSS 1                         VARIABLE USED BY DBC.              DBC/582 
 ND    BSS 1                         VARIABLE USED BY DBC.              DBC/563 
DG     BSS 1                         VARIABLE USED BY DBC.              DBC/584 
N      BSS 1                         VARIABLE USED BY DBC.              DBC/585 
E      BSS 1                         VARIABLE USED BY DBC.              DBC/586 
F      BSS 1                         VARIABLE USED BY DBC.              DBC/587 
U      BSS 1                         IARIABLE USED BY DBC.              DBC/588 
V      BSS 1                         VARIABLE USED BY DBC.              DBC/589 
D      BSS 1                         VARIABLE USED BY DBC.              DBC/590 
BCD    BSS 14                        VARIABLE USED BY DBC.              DBC/591 
       REM  END OF CONSTANTS AND WORKING STORAGE USED BY DBC.           DBC/592 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/593 
       END                                                              DBC/594 
       ABS                                                                                              
       REM CONTROL CARD FOR CSH.                                        CSH/C01 
       ORG 0                                                            CSH/C02 
       PZE C7+13                                                        CSH/C03 
       PZE COMMON                                                       CSH/C04 
       BCD 1(CSH)                                                       CSH/C05 
           3                                                            CSH/C06 
       REM END OF CSH CONTROL CARD                                      CSH/C07 
       REM CSH FOR FORTRAN II                                           CSH 0001
       ORG 0                                                            CSH 0002
COMMON SYN -9                                                           CSH 0003
   B17 HPR 0,2               NON-H0LLERITH CHARACTER ON CARD            CSH 0004
       LXD B2,1              RESTART AFTER ERROR                        CSH 0005
       LXD B3,2              X                                          CSH 0006
 RDBCD RCD                                                              CSH 0007
       CPY L                                                            CSH 0008
       TXL B1                     X                                     CSH 0009
       TRA 2,4                    END OF FILE EXIT                      CSH 0010
 B1    STQ LS                     SET LEFT SUM                          CSH 0011
       SXD B2,1                   SAVE INDEX REGISTERS                  CSH 0012
       SXD B3,2                   X                                     CSH 0013
       LXD B4,1                   SET DIGIT ROW COUNT                   CSH 0014
       CPY R                      COPY 9 RIGHT ROW AND                  CSH 0015
       STQ RS                     SET RIGHT SUM                         CSH 0016
       TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0017
 B2    TXL B5                     LEAVE CONVERSION LOOP                 CSH 0018
       ALS 1                                                            CSH 0019
 B3    TXL C2                     INITIALIZE BCD RECORD                 CSH 0020
 B5    CPY 8L                     COPY 8 ROW AND                        CSH 0021
       STQ LS                     USE AS SUM                            CSH 0022
       CPY 8R                     X                                     CSH 0023
       STQ RS                     X                                     CSH 0024
       TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0025
 B4    TXL B6,0,8                 LEAVE CONVERSION LOOP                 CSH 0026
       ALS 3                      ADD 8 TIMES 8 ROW                     CSH 0027
       TXL C3                     X                                     CSH 0028
 B6    CAL L                      USE 9 ROW AS SUM                      CSH 0029
       SLW LS                     X                                     CSH 0030
       CAL R                      X                                     CSH 0031
       SLW RS                     X                                     CSH 0032
 B13   TXL B7,1,1                 TEST FOR ZERO ROW                     CSH 0033
 B14   CPY L                      C0PY LEFT ROW AND                     CSH 0034
       TXL B8                     TEST FOR END OF RECORD                CSH 0035
       TRA B17                                                          CSH 0036
 B9    CAL LS                     SAVE LEFT ZONE SUM                    CSH 0037
       SLW L                      X                                     CSH 0038
       CAL LDS                    FORM INDICATOR FOR                    CSH 0039
       COM                        ZERO AND X AND / OR Y                 CSH 0040
       ANA LZ                     IN LEFT ROWS                          CSH 0041
       ANS LS                     X                                     CSH 0042
       CAL RS                     SAVE RIGHT ZONE SUM                   CSH 0043
       SLW R                      X                                     CSH 0044
       CAL RDS                    FORM INDICATOR FOR                    CSH 0045
       COM                        ZERO AND X AND/OR Y                   CSH 0046
       ANA RZ                     IN RIGHT ROWS                         CSH 0047
       ANS RS                     X                                     CSH 004B
       TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0049
       TXL B15                    LEAVE CONVERSION LOOP                 CSH 0050
       SLW TP                     MULTIPLY INDICATOR                    CSH 0051
       ALS 2                      BITS BY TEN                           CSH 0052
       ACL TP                     X                                     CSH 0053
       ALS 1                      X                                     CSH 0054
 C3    ACL 0,1                    ADD T0 BCD RECORD                     CSH 0055
 C2    SLW 0,1                    STORE IN BCD RECORD                   CSH 0056
       TIX C7,1,1                 COUNT WORDS                           CSH 0057
 C11   CLS C4                     INVERT ROW SWITCH AND                 CSH 0058
       STO C4                     TEST FOR RIGHT ROW DONE               CSH 0059
 ICSH) PDX RDBCD,1                RESTORE ROW COUNT                     CSH 0060
       TMI 1,2                    TRANSFER IF RIGHT ROW DONE            CSH 0061
 C10   TXI C9                     GO CONVERT RIGHT ROW                  CSH 0062
 B8    CAL L                      TEST LEFT ROW FOR                     CSH 0063
       ANA LS                     ILLEGAL DOUBLE PUNCH                  CSH 0064
       TNZ B17                    X                                     CSH 0065
 B10   CAL L                      FORM LOGICAL SUM                      CSH 0066
       ORS LS                     0F LEFT ROWS                          CSH 0067
       CPY R                      COPY RIGHT ROW AND                    CSH 0068
       CAL R                      TEST FOR ILLEGAL                      CSH 0069
       ANA RS                     DOUBLE PUNCH                          CSH 0070
       TNZ B17                    X                                     CSH 0071
 B11   CAL R                      FORM LOGICAL SUM OF                   CSH 0072
       ORS RS                     RIGHT ROWS                            CSH 0073
       TNX B12,1,1                TEST FOR ZONE ROWS                    CSH 0074
       TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0075
       TXL B13                    LEAVE CONVERSION LOOP                 CSH 0076
       TXL C3                     ADD TO BCD RECORD                     CSH 0077
 B7    CAL 8L                     ADD 8 LEFT R0W TO                     CSH 0078
       ORA LS                     LEFT LOGICAL SUM                      CSH 0079
       SLW LDS                    X                                     CSH 0080
       CPY LZ                     COPY ZERO LEFT AND                    CSH 0081
       ANA LZ                     FORM INDICATOR FOR                    CSH 0082
       SLW LS                     BOTH DIGIT AND ZERO                   CSH 0083
       CAL 8R                     ADD 8 RIGHT ROW TO                    CSH 0084
       ORA RS                     RIGHT LOGICAL SUM                     CSH 0085
       SLW RDS                    X                                     CSH 0086
       CPY RZ                     COPY ZERO RIGHT AND                   CSH 0087
       ANA RZ                     FORM INDICATOR FOR                    CSH 0088
       SLW RS                     BOTH DIGIT AND ZERO                   CSH 0089
 B12   TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0090
       TXL B14                    LEAVE CONVERSION LOOP                 CSH 0091
       ALS 4                      SHIFT TO ZONE POSITION                CSH 0092
       TXL C3                     X                                     CSH 0093
 B15   CAL LDS                    FORM INDICATOR FOR                    CSH 0094
       ORA LZ                     BLANK COLUMNS IN                      CSH 0095
       ORA L                      LEFT HALF OF CARD                     CSH 0096
       COM                        X                                     CSH 0097
       SLW LS                     X                                     CSH 0098
       CAL RDS                    FORM INDICATOR FOR                    CSH 0099
       ORA RZ                     BLANK COLUMNS IN                      CSH 0100
       ORA R                      RIGHT HALF OF CARD                    CSH 0101
       COM                        X                                     CSH 0102
       SLW RS                     X                                     CSH 0103
       TSX C1,2                   ENTER CONVERSION LOOP                 CSH 0104
       TXL B16                    LEAVE CONVERSION LOOP                 CSH 0105
       SLW TP                     MULTIPLY INDICATOR                    CSH 0106
       ALS 1                      BITS BY 3 AND                         CSH 0107
       ACL TP                     SHIFT TO ZONE POSITION                CSH 0108
       ALS 4                      X                                     CSH 0109
       TXL C3                     X                                     CSH 0110
 B16   LXD B2,1                   RESTORE INDEX REGISTERS               CSH 0111
       LXD B3,2                   AND RETURN TO MAIN                    CSH 0112
       TRA 3,4                    PROGRAM                               CSH 0113
 C1    SXD C4,1                   SAVE ROW COUNT                        CSH 0114
 C9    CAL 1,4                    INITIALIZE ADDRESSES                  CSH 0115
       ADM C7                     X ADD 6                               CSH 0116
 C6    LDQ LS                     OBTAIN LEFT SUM                       CSH 0117
 C4    TXL C8,,**                 TRANSFER IF LEFT ROW                  CSH 011B
       ADM C7                     RIGHT ROW, ADD 6 MORE                 CSH 0119
       LDQ RS                     OBTAIN RIGHT SUM AND                  CSH 0120
 C8    STA C2                     SET BCD RECORD ADDRESS                CSH 0121
       STA C3                     X                                     CSH 0I22
       TXH C5,1,1                 SKIP TEST IF DIGIT ROW                CSH 0123
       STQ TP                     TEST FOR NO SUM                       CSH 0124
       CAL TP                     X                                     CSH 0125
       TZE C11                    X                                     CSH 0126
 C5    LXA C7,1                   SET WORD COUNT                        CSH 0127
 C7    PXD 6                      CONVERT ROW                           CSH 0128
       LGL 1                      X                                     CSH 0129
       ALS 5                      X                                     CSH 0130
       LGL 1                      X                                     CSH 0131
       ALS 5                      X                                     CSH 0132
       LGL 1                      X                                     CSH 0133
       ALS 5                      X                                     CSH 0134
       LGL 1                      X                                     CSH 0135
       ALS 5                      X                                     CSH 0136
       LGL 1                      X                                     CSH 0137
       ALS 5                      X                                     CSH 0138
       LGL 1                      X                                     CSH 0139
       TRA 2,2                    EXIT FOR ROW PROCEDURE                CSH 0140
       ORG COMMON                                                       CSH 014I
 TP    BSS 1                      TEMPORARY                             CSH 0142
 LS    BSS 1                      LEFT SUM                              CSH 0143
 RS    BSS 1                      RIGHT SUM                             CSH 0144
 LDS   BSS 1                      LEFT DIGIT SUM                        CSH 0145
 RDS   BSS 1                      RIGHT DIGIT SUM                       CSH 0146
 LZ    BSS 1                      LEFT ZERO ROW                         CSH 0147
 RZ    BSS 1                      RIGHT ZERO ROW                        CSH 0148
 L     BSS 1                      LEFT ROW                              CSH 0149
 R     BSS 1                      RIGHT ROW                             CSH 0150
 8L    SYN LDS                    8 LEFT ROW                            CSH 0151
 8R    SYN RDS                    8 RIGHT ROW                           CSH 0152
       END                                                              CSH 0153
       ABS                                                                                              
       REM CONTROL CARD FOR TSH.                                        TSH/C01 
       ORG 0                                                            TSH/C02 
       PZE BAD+1                                                        TSH/C03 
       PZE                                                              TSH/C04 
       BCD 1(TSH)                                                       TSH/C05 
       PZE                                                              TSH/C06 
       REM END OF TSH CONTROL CARD.                                     TSH/C07 
       ORG 0                                                            TSH000  
   RTD SXD X2,2              SAVE INDEX REGISTER                        TSH001  
       RTT                   CLEAR RTT INDICATOR                        TSH002  
 (TSH) NOP RTD               X                                          TSH003  
       CLA 1,4               OBTAIN ADDRESS OF 1ST                      TSH004  
       STA CPY               LOCATION FOR COPY                          TSH005  
       CLA BAC               INITIALIZE TAPE CHECK TEST                 TSH006  
   REP STO ERR               TO REREAD,AFTER 1ST ERROR.                 TSH007  
       RDS 127,1             SELECT TAPE                                TSH008  
       LXD BAC,2             SET IR2 TO ZERO                            TSH009  
   CPY CPY *,2               READ TAPE RECORD OF                        TSH010  
       TXI CPY,2,-1          N WORDS                                    TSH011  
       TXI RES,4,1           EOF (END OF LIST)                          TSH012  
       RTT                   EOR REDUNDANCY TEST                        TSH013  
   ERR ***                   IT,ERROR, REREAD                           TSH014  
   RES LXD X2,2              RETURN TO MAIN                             TSH015  
       TRA 3,4               PROGRAM FOR EOF                            TSH016  
   TRY BST 127,1             PREPARE TO REREAO,BAO,                     TSH017  
       CLA BAD               RECORD                                     TSH01B  
    X2 TXI REP               X                                          TSH019  
   BAC TXI TRY                                                          TSH020  
   BAD HPR 0,3               2ND ERROR HALT                             TSH021  
       END                                                              TSH022  
       REM 704 FORTRAN II / BDC / 12 JAN 59.                                                            
       REM                                                                      
       REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=                  
       REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION               
       REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.           
       REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF           
       REM THIS LOGICAL BLOCK OR SUBROUTINE.                                    
       REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.                 
       REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).          
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       REM CONTROL CARD FOR BDC.                                        BDC/C01 
       ORG                                                              BDC/C02 
       PZE TAB+1,,1                                                     BDC/C03 
       PZE COMMON                                                       BDC/C04 
       BCD 1(BDC)                                                       BDC/C05 
       PZE (BDC)                                                        BDC/C06 
       BCD 1(FIL)                                                       BDC/C07 
       MZE (FIL)                                                        BDC/C08 
       REM  END OF BDC CONTROL CARD.                                    BDC/C13 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       ORG 0                                                            BDC/001 
       REM (BDC)/ CALLS=LINE,PRINT. CALLER=MAIN PROGRAM.                BDC/002 
       REM (BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT.      BDC/003 
 (RTN) BCD 1(RTN)                                                       BDC/0035
(BDC)  TTR NEW                       INSTRUCTION EXECUTED IN LOCATION 1.BDC/004 
       REM NEW = ENTRY POINT FROM MAIN PROGRAM (CIAC)= ADDRESS OF OUTPUTBDC/005 
       REM ROUTINE TO HANDLE CURRENT OUTPUT, AND C(0)= LOCATI0N OF THE  BDC/006 
       REM CURRENT FORMAT STATEMENT).                                   BDC/007 
NEW    LTM                           SET FILLW TO CALL THE INDICATED    BDC/008 
       STA TYPE                      TYPE OF OUTPUT ROUTINE.            BDC/009 
       CAL 0                         SET OUTPUT FORMAT STATEMENT        BDC/010 
       STA CALL                      LOCATI0N.                          BDC/011 
       ADD ONE                       SET EXIT                           BDC/012 
       STA FX4                       TO MAIN PROGRAM.                   BDC/013 
CALL   CAL **                        OBTAIN FORMAT STATEMENT            BDC/014 
       SXD FX4,4                     FOR SCAN.                          BDC/015 
       TSX LINE,4                  * GO SCAN FORMAT.                    BDC/016 
       LXD FX4,4                     WHEN DONE, RESTORE C(XR4).         BDC/017 
       CAL TRAP                      SET LOCATION 1 FOR FUTURE          BDC/018 
       SLW 1                         TRAP TRANSFER TO SEEK, AND         BDC/019 
FX4    TXI **,0,**                 * TRANSFER CONTROL TO MAIN PROGRAM.  BDC/020 
       REM THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.          BDC/021 
TRAP   TTR SEEK                      INSTRUCTION EXECUTED IN LOCATION 1.BDC/022 
       REM SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF    BDC/023 
       REM THE ADDRESS OF THE NEXT OUTPUT NUMBERS).                     BDC/024 
SEEK   LTM                           PICKUP NTR INSTRUCTION, AND        BDC/025 
       CAL 0                         SET LOCATION                       BDC/026 
       STA SETL                      OF OUTPUT NUMBERS.                 BDC/027 
       ADD ONE                       SET LOCATION FOR                   BDC/028 
       STA OUT                       RETURN TO MAIN PROGRAM.            BDC/029 
SETL   CAL **                        PICKUP LOCATION OF OUTPUT          BDC/030 
       SLW GET                       AND SET ADDRESS AND TAG OF GET.    BDC/031 
       LDQ CLA                       SET GET OP                         BDC/032 
       SLQ GET                       TO CLA.                            BDC/033 
GET    CLA **,**                     GET OUTPUT NUMBER.                 BDC/034 
       SXD FX4,4                     SAVE THE C(XR4), AND               BDC/035 
       TSX PRINT,4                 * GO CONVERT AND PRINT OUTPUT.       BDC/036 
       LXD FX4,4                     RESTORE THE C(XR4).                BDC/037 
       ETM                           REPEAT UNTIL LIST IS EXHAUSTED,    BDC/038 
OUT    TTR **                      * UNDER CONTROL OF THE MAIN PROGRAM. BDC/039 
       REM  END OF PR0GRAM (BDC).                                       BDC/040 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/041 
       REM                                                              BDC/042 
       REM (FIL)/ CALLS=FILLW. USES=(RTN). CALLER=MAIN PR0GRAM.         BDC/043 
       REM (FIL) CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.BDC/044 
 (FIL) ADD TWO                       SET ADDRESS FOR                    BDC/045 
       STA RET                       RETURN TO MAIN PROGRAM.            BDC/046 
       LTM                           IF NO                              BDC/047 
CLA    CLA PACK                      OUTPUT REMAINS                     BDC/048 
       SUB FILT                      IN REC BUFFER,                     BDC/049 
       TNZ LAST                      OR IN                              BDC/050 
       CLA WORD                      WORD INDICATOR,                    BDC/051 
       SUB ONE                       THEN                               BDC/052 
       TZE EXIT                    * EXIT TO RESTORE ALL INDICATORS.    BDC/053 
LAST   SXD FX4,4                     OTHERWISE, SAVE THE C(XR4), AND    BDC/054 
       TSX FILLW,4                 * GO TRANSMIT REMAINING OUTPUT.      BDC/055 
       LXD FX4,4                     RESTORE THE C(XR4), AND            BDC/056 
 EXIT  CAL EXIT                      PICKUP EXIT ADDRESS, AND           BDC/057 
 FILLX TXI (RTN),0,**              * EXIT TO RESTORE ALL INDICATORS.    BDC/0575
 RET   TTR **                        THEN RETURN TO MAIN PROGRAM        BDC/0576
       REM  END OF PROGRAM (FIL).                                       BDC/05B 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/059 
       REM                                                              BDC/060 
       REM LINE,4/ CALLS=RESET,FIELD,FILLW.  USES=PRINT. CALLER=(BDC).  BDC/156 
       REM LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT.     BDC/157 
LINE   SXD AX4,4                     SAVE THE C(XR4) FOR RETURN.        BDC/158 
       SXD AX1,1                     SAVE THE ORIGINAL C(XR1), AND      BDC/159 
       SXD AX2,2                     SAVE THE ORIGINAL C(XR2).          BDC/160 
       COM                           COMPLEMENT THE C(AC), AND          BDC/161 
SEVEN  PAX 7,2                       SET XR2= -(CURRENT FORMAT LOC.),ANDBDC/162 
       STD UNIT                      UNIT DECREMENT= -(CURRENT UNIT).   BDC/163 
       STZ PEX                       SET PEX (SCALE FACTOR) = 0, AND    BDC/164 
       TSX RESET,4                 * SET REC=BLANKS, PACK=REC, WORD=1.  BDC/165 
       STO INT                       SET INT = I.                       BDC/166 
       LXA SEVEN,1                   SET XR1 = 7, AND PICKUP THE        BDC/167 
       LDQ -1,2                      1ST WORD OF CURRENT FORMAT.        BDC/168 
       REM CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.    BDC/169 
CCLPAR SXD BX1,1                     SAVE THE CURRENT CHARACTER C0UNT,  BDC/170 
       SXD BX2,2                     SCAN POSITION, AND FORMAT WORD,    BDC/171 
       STQ MQR                       FOR POSSIBLE REPETITION OF GROUP.  BDC/172 
       LXA INT,4                     SET GROUP CONTROL COUNT FOR THE    BDC/173 
       SXD BX4,4                     INDICATED NUMBER OF REPETITIONS,   BDC/174 
       SXD GROUPX,4                  AND SAVE FOR POSSIBLE RESCAN.      BDC/175 
       REM SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCIOUT,CCHOUT,RESCAN.   BDC/176 
SCAN   STZ INT                       CLEAR INT WORKING STORAGE, AND     BDC/177 
SIX    TXI SCAN5,0,6                 GO RESUME SCAN.                    BDC/178 
SCAN1  LXD SIX,1                     RESET FORMAT CHARACTER COUNT, AND  BDC/179 
       LDQ -1,2                      PICKUP NEXT FORMAT WORD.           BDC/180 
SCAN2  LGL 6                         EXAMINE NEXT CHARACTER,            BDC/181 
       CAS BLANK                     AND IF BLANK,                      BDC/182 
UNIT   TXI SCAN3,0,**                THEN                               BDC/183 
       TXI SCAN5,0                   GO EXAMINE NEXT CHARACTER.         BDC/184 
SCAN3  CAS L(9)                      IF NOT BLANK, COMPARE WITH NINE,   BDC/185 
       TXI SCAN6,0                   IF NON-NUMERIC, COMPARE CCTEST.    BDC/186 
       NOP                           IF NUMERIC, THEN                   BDC/187 
       STO DIG                       CONVERT                            BDC/188 
       CLA INT                       SUCCESSIVE                         BDC/189 
       ALS 2                         BCD                                BDC/190 
       ADD INT                       DIGITS                             BDC/191 
       ALS 1                         TO BINARY,                         BDC/192 
       ACL DIG                       TO SET INT= SCALE FACTOR,          BDC/193 
       REM SCAN4 = ENTRY POINT USED BY CCSCFM.                          BDC/194 
SCAN4  STO INT                       CURRENT FIELD OR GROUP CONTROL.    BDC/195 
       REM SCAN5 = ENTRY POINT USED BY CCDCPT.                          BDC/196 
SCAN5  PXD XPRINT,0                  CLEAR THE AC, AND UPDATE COUNT.    BDC/197 
       TIX SCAN2,1,1                 WHEN NO CHARACTERS REMAIN,         BDC/198 
       TXI SCAN1,2,-1                ADJUST SCAN POSITION, AND REPEAT.  BDC/199 
       REM SCAN6 = ENTRY POINT USED BY CCDCPT.                          BDC/200 
SCAN6  LXD NCC,4                     WHEN A NON-NUMERIC IS MET,         BDC/201 
SCAN7  CAS CCTEST,4                  SCAN LIST OF CONTROL CHARACTERS,   BDC/202 
NCC    TXI SCAN8,0,12                AND IF EQUALITY IS FOUND,          BDC/203 
       TRA FRMTR,4                 * TAKE THE INDICATED TRANSFER.       BDC/204 
SCAN8  TIX SCAN7,4,1                 IF NOT FOUND IN CONTROL LIST, THEN BDC/205 
       HPR 5,1                       STOP. PRESS START TO CONTINUE.     BDC/2055
       REM  END OF PROGRAM LINE.                                        BDC/210 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/211 
       REM                                                              BDC/212 
       REM FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =                  BDC/213 
       TXI CCEDMK,0                  END OF FORMAT STATEMENT.           BDC/2135
AX1    TXI CCLPAR,0,**               BEGIN FORMAT OR GROUP.             BDC/214 
AX2    TXI CCCMMA,0,**               END FIELD.                         BDC/215 
AX4    TXI CCSLSH,0,**               END LINE OR RECORD.                BDC/216 
       TXI CCSCFP,0                  SCALE FACTOR PLUS.                 BDC/217 
BX1    TXI CCSCFM,0,**               SCALE FACTOR MINUS.                BDC/218 
BX2    TXI CCRPAR,0,**               END FORMAT OR GROUP.               BDC/219 
BX4    TXI CCDCPT,0,**               ROUNDING OF OUTPUT NUMBER.         BDC/220 
       TXI CCIOUT,0                  DECIMAL OUTPUT.                    BDC/221 
CX1    TXI CCHOUT,0,**               HOLLERITH FIELD OUTPUT.            BDC/222 
CX2    TXI CCFOUT,0,**               FIXED POINT 0UTPUT.                BDC/223 
CX4    TXI CCEOUT,0,**               FLOATING POINT OUTPUT.             BDC/224 
FRMTR  BSS 0                                                            BDC/225 
       REM * * * * * * * * * * * * * *.* * * * * * * * * * * * * * * * *BDC/226 
       REM                                                              BDC/227 
       REM CCEDMK/ CALLS=FIELD,MAIN PROGRAM.                            BDC/2271
       REM CCEDMK = ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN.  BDC/2272
CCEDMK TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/2273
       CLA SCAN5                     WHEN DONE, SET                     BDC/2274
       STA CNVSW                     CONVERSION SWITCH TO RESCAN, AND   BDC/2275
       TXI LIST,0                  * GO SEE IF LIST IS EXHAUSTED.       BDC/2276
       REM  END OF PROGRAM CCEDMK.                                              
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/2277
       REM                                                              BDC/2278
       REM CCCMMA/ CALLS=FIELD. USES=LINEISCAN).                        BDC/228 
       REM CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.     BDC/229 
CCCMMA TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/230 
       REM RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR.                  BDC/231 
RESUME LXD CX1,1                     WHEN DONE, RESTORE CHARACTER.COUNT,BDC/232 
       LXD CX2,2                     RESTORE SCAN P0SITI0N, AND         BDC/233 
       LDQ MQ                        CURRENT FORMAT WORD. THEN          BDC/234 
       TXI SCAN,0                  * GO RESUME SCAN.                    BDC/235 
       REM  END OF PROGRAM CCCMMA.                                      BDC/236 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/237 
       REM                                                              BDC/238 
       REM CCSLSH/ CALLS=FIELD,FILLW. USES=CCCMMA.                      BDC/239 
       REM CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.     BDC/240 
CCSLSH TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/241 
       TSX FILLW,4                 * WHEN DONE, OUTPUT RECORD, AND      BDC/242 
       TXI RESUME,0                * GO RESUME SCAN.                    BDC/243 
       REM  END OF PROGRAM CCSLSH.                                      BDC/244 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/245 
       REM                                                              BDC/246 
       REM CCSCFP/ USES=LINE(SCAN).                                     BDC/247 
       REM CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.         BDC/248 
CCSCFP CLA INT                       PICKUP AND                         BDC/249 
       STO PEX                       STORE SCALE FACTOR.                BDC/250 
       TXI SCAN,0                  * GO RESUME SCAN.                    BDC/25I 
       REM  END OF PROGRAM CCSCFP.                                      BDC/252 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/253 
       REM                                                              BDC/254 
       REM CCSCFM/ USES=LINE(SCAN).                                     BDC/255 
       REM CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.BDC/256 
CCSCFM CLS INT                       SET INT MINUS, AND                 BDC/257 
       TXI SCAN4,0                 * G0 GET SCALE FACTOR.               BDC/258 
       REM  END OF PROGRAM CCSCFM.                                      BDC/259 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/260 
       REM                                                              BDC/261 
       REM CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).              BDC/262 
       REM CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.    BDC/263 
CCRPAR TSX FIELD,4                 * GO PROCESS UNDER FIELD CONTROL.    BDC/264 
       LXD BX4,4                     WHEN DONE, UPDATE GROUP COUNT, AND BDC/265 
       TNX RESUME,4,1              * GO RESUME SCAN, UNLESS             BDC/266 
       TXI GROUP,0                 * REPETITION OF GROUP IS INDICATED.  BDC/267 
       REM  END OF PROGRAM CCRPAR.                                      BDC/268 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/269 
       REM                                                              BDC/270 
       REM CCDCPT/ USES=LINE(SCAN).                                     BDC/271 
       REM CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.     BDC/272 
CCDCPT CLA DTR                       MODIFY SCAN INSTRUCTION            BDC/273 
       STO SCAN3                     TO TRANSFER INTO DCPT1.            BDC/274 
       STZ DIG                       CLEAR DIG, AND                     BDC/2745
       TXI SCAN5,0                 * GO RESUME SCAN.                    BDC/275 
       REM DCPT1 = REENTRY POINT FROM LINE(SCAN).                       BDC/276 
DCPT1  CAS L(9)                      DETERMINE THE                      BDC/277 
       TXI DCPT3,0                   NUMBER, MODULO TEN,                BDC/278 
       NOP                           OF DIGITS                          BDC/279 
       STO DIG                       IN FRACTION.                       BDC/280 
       TXI SCAN5,0                 * WHEN A CONTROL CHARACTER IS MET,   BDC/281 
DCPT3  STQ MQ                        RESTORE THE                        BDC/282 
       LDQ DCPT1                     SCAN INSTRUCTION                   BDC/283 
       STQ SCAN3                     TO ITS ORIGINAL FORM, AND          BDC/284 
       LDQ MQ                        GO COMPARE CHARACTER               BDC/285 
       TXI SCAN6,0                 * WITH CCTEST LIST.                  BDC/286 
       REM  END OF PROGRAM CCDCPT.                                      BDC/287 
DTR    TXI DCPT1,0                 * INSTRUCTION CONSTANT.              BDC/28B 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/289 
       REM                                                              BDC/290 
       REM CCIOUT/ USES=LINE(SCAN).                                     BDC/291 
       REM CCIOUT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.        BDC/292 
CCIOUT CLA IAD                       PICKUP INTG, AND                   BDC/293 
       REM SETAD = ENTRY POINT USED BY CCFOUT,CCEOUT.                   BDC/294 
SETAD  STA CNVSW                     SET CONVERSION SWITCH.             BDC/295 
       LXA INT,4                     SET,COUNT FOR THE                  BDC/296 
       SXD COUNT,4                   REPETITION OF THIS FIELD, AND      BDC/297 
       TXI SCAN,0                  * GO RESUME SCAN.                    BDC/298 
       REM  END OF PROGRAM CCIOUT.                                      BDC/299 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/300 
       REM                                                              BDC/301 
       REM CCHOUT/ USES=LINE(SCAN).                                     BDC/302 
       REM CCHOUT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.        BDC/303 
CCHOUT CLA PACK                      SET STORING ADDRESS                BDC/304 
       STA HOUT4                     TO CURRENT LOCATION IN REC BUFFER. BDC/305 
       CAL WORD                      PICKUP WORD INDICATOR.             BDC/306 
       LXA INT,4                     SET XR4 = FIELD WIDTH.             BDC/307 
       TNO HOUT1                     TURN OFF OVERFLOW INDICATOR.       BDC/308 
HOUT1  TIX HOUT3,1,1                 UPDATE COUNT, AND IF NO CHARACTERS BDC/309 
       LXD SIX,1                     REMAIN, RESET CHARACTER C0UNT,     BDC/310 
       TXI HOUT2,2,-1                RESET CURRENT FORMAT SCAN POSITION,BDC/311 
HOUT2  LDQ -1,2                      AND PICKUP NEXT FORMAT WORD.       BDC/312 
HOUT3  LGL 6                         SHIFT SIX CHARACTERS               BDC/313 
       TNO HOUT5                     INTO THE AC.                       BDC/3I4 
HOUT4  SLW **                        STORE BCD WORD IN REC BUFFER, AND  BDC/315 
       CAL HOUT4                     UPDATE                             BDC/316 
       ADD ONE                       STORING                            BDC/317 
       STA HOUT4                     ADDRESS                            BDC/318 
       STA PACK                      AND PACK ADDRESS.                  BDC/319 
       CAL ONE                       RESET WORD INDICATOR.              BDC/320 
HOUT5  TIX HOUT1,4,1                 REPEAT UNTIL WHOLE GROUP IS MOVED. BDC/321 
       STO WORD                      SAVE INCOMPLETE WORD. AND          BDC/322 
       TXI SCAN,0                  * GO RESUME SCAN.                    BDC/323 
       REM  END OF PROGRAM CCHOUT.                                      BDC/324 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/325 
       REM                                                              BDC/326 
       REM CCFOUT/ USES=CCIOUT.                                         BDC/327 
       REM COFOUT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.        BDC/328 
CCFOUT CLA FXDW                      SET CONVERSION ROUTINE             BDC/329 
       STA CNV5                      FOR FIXED POINT                    BDC/330 
       STD CNV6                      OUTPUT                             BDC/331 
       STD CLR                       (WITHOUT EXPONENT).                BDC/332 
       CLS PEX                       SET EXP TO THE                     BDC/333 
       STO EXP                       NEGATIVE OF SCALE FACTOR.          BDC/334 
       CLA FAD                       PICKUP FXD, AND                    BDC/335 
       TXI SETAD,0                 * GO SET CONVERSI0N SWITCH.          BDC/336 
       REM  END OF PROGRAM CCFOUT.                                      BDC/337 
FXDW   PZE CHAR,0,1                  CONSTANT USED BY CCFOUT.           BDC/338 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/339 
       REM                                                              BDC/340 
       REM CCEOUT/ USES=CCIOUT.                                         BDC/341 
       REM CCEOUT = ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.        BDC/342 
CCEOUT CLA FLTW                      SET CONVERSION ROUTINE             BDC/343 
       STA CNV5                      FOR FLOATING POINT                 BDC/344 
       STD CNV6                      OUTPUT                             BDC/345 
       STD CLR                       (WITH EXPONENT).                   BDC/346 
       CLA FLT1                      PICKUP FLT, AND                    BDC/347 
       TXI SETAD,0                 * GO SET CONVERSION SWITCH.          BDC/348 
       REM  END OF PROGRAM CCEOUT.                                      BDC/349 
FLTW   PZE CHAR-4,0,5                CONSTANT USED BY CCEOUT.           BDC/350 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/351 
       REM                                                              BDC/352 
       REM RESCAN/ CALLS=FILLW. USES=LINE(SCAN).                        BDC/353 
       REM RESCAN = ENTRY POINT USED BY PRINT.                          BDC/354 
RESCAN SXD AX4,4                     FOR RETURN FROM FORMAT SCAN.       BDC/357 
       SXD AX1,1                     SAVE THE ORIGINAL C(XR1),          BDC/358 
       SXD AX2,2                     SAVE THE ORIGINAL C(XR2), AND      BDC/359 
       TSX FILLW,4                 * GO OUTPUT RECORD.                  BDC/360 
       LXD GROUPX,4                  THEN PICKUP ORIGINAL GROUP COUNT TOBDC/361 
       REM GROUP = ENTRY POINT USED BY CCRPAR.                          BDC/362 
GROUP  SXD BX4,4                     UPDATE GROUP CONTROL.              BDC/363 
       LXD BX1,1                     RESET CHARACTER COUNT,             BDC/364 
       LXD BX2,2                     RESET SCAN POSITION, AND           BDC/365 
       LDQ MQR                       PICKUP 1ST FORMAT WORD OF GROUP.   BDC/366 
GROUPX TXI SCAN,0,**               * GO RESCAN THIS GR0UP.              BDC/367 
       REM  END OF PROGRAM RESCAN.                                      BDC/368 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/369 
       REM                                                              BDC/370 
       REM FIELD,4/ USES PRINT. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.BDC/371 
       REM FIELD OONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD.     BDC/372 
FIELD  SXD CX4,4                     SAVE THE C(XR4) FOR RETURN.        BDC/373 
       SXD CX1,1                     SAVE THE CHARACTER COUNT,          BDC/374 
       SXD CX2,2                     THE SCAN POSITION, AND             BDC/375 
       STQ MQ                        THE CURRENT FORMAT WORD.           BDC/376 
       LXD AX1,1                     RESTORE THE ORIGINAL C(XR1),       BDC/377 
       LXD AX2,2                     RESTORE THE ORIGINAL C(XR2), AND   BDC/378 
       LXA INT,4                     EXAMINE INT, AND                   BDC/379 
       TXL DONE,4,0                  IF NOT ZERO, THEN                  BDC/380 
       SXD CLR2,4                    SET COLUMN WIDTH OF EACH FIELD.    BDC/381 
       TXI LIST,0                  * AND GO PROCESS FIELD.              BDC/382 
       REM DONE = ENTRY POINT USED BY PRINT.                            BDC/383 
DONE   LXD CX4,4                     WHEN DONE, RESTORE THE C(XR4), AND BDC/384 
       TRA 1,4                     * RETURN TO CALLER.                  BDC/385 
       REM  END OF PROGRAM FIELD.                                       BDC/386 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/387 
       REM                                                              BDC/388 
       REM PRINT,4/ USES=FIELD,LINE. CALLERS=(BDC),LINE(RESCAN).        BDC/389 
       REM PRINT DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.    BDC/390 
       REM XPRINT = EXIT FROM PRINT WHEN FORMAT IS EXHAUSTED.           BDC/391 
XPRINT SXD CNVSW,4                   SAVE THE C(XR4), AND               BDC/392 
       TSX RESCAN,4                * GO RESCAN FORMAT. THeN RETURN,     BDC/3921
       LXD CNVSW,4                   AFTER GETTING FORMAT.              BDC/3922
       CLA DATUM                     THEN  PROCEED TO CONVERSION.       BDC/393 
       REM PRINT = ENTRY POINT USED BY (BDC).                           BDC/394 
PRINT  SXD AX4,4                     SAVE THE C(XR4) FOR RETURN TO LIST.BDC/395 
       STO DATUM                     STORE CURRENT FIELD FOR CONVERSION.BDC/396 
CNVSW  TXI **,0,**                 * SWITCH TO FLT, FXD, INTG,OR RESCAN.BDC/397 
       REM FLT = ENTRY POINT FOR FLOATING POINT CONVERSION.             BDC/398 
FLT    TZE CNVN                      IF NON-ZERO, BEGIN E, F CONVERSION.BDC/399 
       LRS 27                        PLACE CHARACTERISTIC IN THE AC,    BDC/400 
       SSP                           FRACTION IN THE MQ.                BDC/401 
       SUB BASE                                                         BDC/402 
       LRS 35                        OBTAIN REQUIRED BASE IN THE MQ.    BDC/403 
       MPY LOG2                                                         BDC/404 
       STO EXP                                                          BDC/405 
       TPL FLT1                                                         BDC/406 
       SUB PEX                                                          BDC/407 
FAD    PAX FXD,4                                                        BDC/408 
       LDQ DATUM                                                        BDC/409 
       FMP TAB-1,4                                                      BDC/410 
       SSP                           TEST PROBABLE                      BDC/411 
       LXA PEX,4                     EXPONENT.                          BDC/412 
       SUB TAB,4                                                        BDC/413 
       TXI FLT4,0                                                       BDC/414 
FLT1   PAX FLT,4                                                        BDC/415 
       CLA TAB,4                                                        BDC/416 
       SBM DATUM                                                        BDC/417 
       ADD BIAS                                                         BDC/4I8 
FLT4   TPL FLT2                                                         BDC/419 
       CAL EXP                       ADJUST EXPONENT.                   BDC/420 
       ADD ONE                                                          BDC/421 
       SLW EXP                                                          BDC/422 
FLT2   CAL E                         OBTAIN E FOR                       BDC/423 
       SLW CHAR-4                    EXPONENT.                          BDC/424 
       CLA EXP                                                          BDC/425 
       SUB PEX                                                          BDC/426 
       STO EXP                                                          BDC/427 
       CAL BLANK                                                        BDC/428 
       LDQ EXP                       OBTAIN SIGN.                       BDC/429 
       TQP FLT3                                                         BDC/430 
       CAL MINUS                                                        BDC/431 
FLT3   SLW CHAR-3                                                       BDC/432 
IAD    PXD INTG,0                                                       BDC/433 
       DVP TEN                       OBTAIN DIGITS                      BDC/434 
       STQ CHAR-2                    OF EXPONENT.                       BDC/435 
       SLW CHAR-1                                                       BDC/436 
       CLA DATUM                                                        BDC/437 
       TXI CNV,0                                                        BDC/438 
       REM FXD = ENTRY POINT FOR FIXED POINT CONVERSION.                BDC/439 
FXD    TZE CNVN                      TEST OUTPUT NUMBER FOR ZERO.       BDC/440 
CNV    LXA EXP,4                     TEST FOR SCALING.                  BDC/441 
       TXL CNV1,4,0                                                     BDC/442 
       LDQ EXP                                                          BDC/443 
       TQP CNV2                                                         BDC/444 
       LDQ DATUM                                                        BDC/445 
       FMP TAB,4                                                        BDC/446 
       ACL BIAS                                                         BDC/447 
CNV1   UFA FIXN                      FIX INTERNAL FLOATING BINARY NO.   BDC/448 
       TXI CNVN1,0                                                      BDC/449 
CNV2   FDP TAB,4                                                        BDC/450 
       STQ FD                                                           BDC/451 
       CLA FD                                                           BDC/452 
       UFA FIXQ                                                         BDC/453 
CNVN1  LLS 8                                                            BDC/454 
       ALS 2                                                            BDC/455 
       ARS 10                                                           BDC/456 
       STO ND                        STORE INTEGRAL PART.               BDC/457 
       STQ FD                        STORE FRACTIONAL PART.             BDC/458 
       LXA DIG,4                                                        BDC/459 
       CLA FD                        SKIP FRACTIONAL.                   BDC/460 
       ACL RND,4                                                        BDC/461 
       LRS 35                        ROUND NUMBER.                      BDC/462 
       ADD ND                                                           BDC/463 
       STO ND                                                           BDC/464 
       TXL CNV3,4,0                  TEST FOR FRACTION WANTED.          BDC/465 
CNV4   STQ FD                                                           BDC/466 
       ALS 4                         CONVERT FRACTIONAL PART.           BDC/467 
       LLS 33                                                           BDC/468 
       ADD FD                                                           BDC/469 
       LRS 32                                                           BDC/470 
CNV5   SLW **,4                      (FXD=CHAR, FLT=CHAR-4)             BDC/471 
       TIX CNV4,4,1                                                     BDC/472 
       CLA ND                        OBTAIN INTEGRAL PART.              BDC/473 
       TXI CNV3,0                                                       BDC/474 
CNVN   LXA DIG,4                                                        BDC/475 
       LDQ BLANK                                                        BDC/476 
CLR    TXI CLR1,4,**                 (FXD=1, FLT=5)                     BDC/477 
CLR1   STQ CHAR,4                                                       BDC/478 
       TIX CLR1,4,1                                                     BDC/479 
CNV3   LXA DIG,4                                                        BDC/480 
CNV6   TXI CNV7,4,**                 (FXD=1, FLT=5)                     BDC/481 
CNV7   LDQ POINT                     ESTABLISH POINT.                   BDC/482 
       STQ CHAR,4                                                       BDC/483 
       TXI CNV11,0                                                      BDC/484 
       REM INTG = ENTRY POINT FOR INTEGER CONVERSION.                   BDC/485 
INTG   LXD ONE,4                                                        BDC/486 
       ARS 18                                                           BDC/487 
CNV11  LRS 35                                                           BDC/488 
CNV9   DVP TEN                       CONVERT INTEGRAL PART.             BDC/489 
       SLW CHAR-1,4                                                     BDC/490 
       STQ ND                                                           BDC/491 
       CLA ND                                                           BDC/492 
       TZE CNV8                                                         BDC/493 
       CLM                                                              BDC/494 
       TXI CNV9,4,1                                                     BDC/495 
CNV8   CAL BLANK                     PUT SIGN IN SPREAD BCD.            BDC/496 
       TQP CNV12                                                        BDC/497 
       CAL MINUS                                                        BDC/498 
CNV12  SLW CHAR-2,4                                                     BDC/499 
       CAL BLANK                                                        BDC/500 
       TXI CLR2,4,3                                                     BDC/501 
CLR3   SLW CHAR,4                                                       BDC/502 
       TXI CLR2,4,1                                                     BDC/503 
CLR2   TXL CLR3,4,**                 (COLUMN WIDTH OF THIS FIELD)       BDC/504 
       LXD CLR2,4                                                       BDC/505 
       CAL WORD                      PACK RECORD INTO                   BDC/506 
       TOV PACK2                     FULL WORDS.                        BDC/507 
PACK2  ALS 6                                                            BDC/508 
       ADD CHAR,4                                                       BDC/509 
       TNO PACK3                                                        BDC/510 
PACK   SLW **                        (CURRENT ADDRESS IN REC BUFFER)    BDC/511 
       CAL PACK                                                         BDC/512 
       ADD ONE                                                          BDC/513 
       STA PACK                                                         BDC/514 
       CAL ONE                                                          BDC/515 
PACK3  TIX PACK2,4,1                 WHEN THIS FIELD HAS BEEN PROCESSED,BDC/516 
       SLW WORD                      SAVE ANY REMAINDER, AND            BDC/517 
       LXD COUNT,4                   COUNT NUMBER OF                    BDC/518 
       TIX MORE,4,1                  WORDS CONVERTED.                   BDC/519 
       SXD AX1,1                     IF FIELD COUNT HAS BEEN EXHAUSTED, BDC/520 
       SXD AX2,2                     RESTORE THE C(XR1),C(XR2), AND     BDC/521 
COUNT  TXI DONE,0,**               * (FIELD REPEAT COUNT) EXIT TO FIELD.BDC/522 
MORE   SXD COUNT,4                   OTHERWISE, G0 GET MORE L1ST.       BDC/523 
       REM LIST = ENTRY POINT USED BY LINE(SCAN),FIELD.                 BDC/524 
LIST   LXD AX4,4                     RESTORE THE C(XR4I, AN0            BDC/525 
       TRA 1,4                     * GO GET NEXT OUTPUT NUMBER.         BDC/526 
       REM  END OF PROGRAM PRINT.                                       BDC/527 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/528 
       REM                                                              BDC/529 
       REM FILLW(RESET),4/ CALLERS=IFIL),LINE,CCSLSH,RESCAN.            BDC/530 
       REM FILLW FILLS OUT LAST WORD,CONTROLS OUTPUT, AND RESETS.       BDC/531 
FILLW  SXD FILLX,4                   SAVE THE C(XR4) FOR RETURN.        BDC/532 
       LXA PACK,4                    SET XR4 = REC + NO. WORDS ENTERED. BDC/533 
       CAL WORD                      EXAMINE                            BDC/534 
       SUB ONE                       WORD INDICATOR, AND                BDC/535 
       TZE FILL1                     IF NOT ZERO, THEN                  BDC/536 
       CAL PACK                      SET ADDRESS                        BDC/537 
       STA FILL3                     FOR LAST WORD.                     BDC/538 
       CAL WORD                      PICKUP WORD,                       BDC/539 
       TOV FILL4                     AND                                BDC/540 
FILL4  ALS 6                         FILL OUT                           BDC/541 
       ADD BLANK                     WITH BLANKS.                       BDC/542 
       TNO FILL4                     WHEN DONE,                         BDC/543 
FILL3  SLW **                        STORE LAST WORD.                   BDC/544 
       TXI FILL1,4,1                 UPDATE, AND SET                    BDC/545 
FILL1  TIX FILL2,4,REC               XR4 AND THE DECREMENT OF FILL      BDC/546 
       LXA ONE,4                     TO THE NUMBER OF WORDS ENTERED     BDC/547 
FILL2  SXD FILL,4                    IN REC BUFFER. THEN                BDC/548 
       LXD UNIT,4                    SELECT CURRENT OUTPUT UNIT.        BDC/549 
       TXH TYPE,4,-2                 PUNCH OR PRINT OUTPUT.             BDC/550 
       WRS 127,4                     BCD TAPE OUTPUT.                   BDC/551 
TYPE   TSX **,4                    * GO TO INDICATED OUTPUT ROUTINE.    BDC/552 
FILL   PZE REC,,**                   (DECREMENT = NO. WORDS ENTERE0)    BDC/553 
       LXD FILLX,4    F              REENTRY FROM OUTPUT R0UT1NE.       BDC/554 
       REM RESET = ENTRY POINT USED BY LINE.                            BDC/555 
RESET  CAL BLANKS                    RESET REC                          BDC/556 
FILT   SLW REC                       TO BLANKS,                         BDC/557 
       CAL FILL                      PACK ADDRESS                       BDC/558 
       STA PACK                      TO REC, AN0                        BDC/559 
       CAL ONE                       PICKUP 1 TO                        BDC/560 
       SLW WORD                      SET WORD INDICATOR.                BDC/561 
       TRA 1,4                     * EXIT TO CALLER.                    BDC/562 
       REM  END OF PROGRAM FILLW(RESET).                                BDC/563 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/564 
       REM                                                              BDC/565 
       REM CONSTANTS AND WORKING STORAGE USDO BY FIL/BDC.               BDC/566 
ENDMK  OCT 77                        CCTEST-12.                         BDC/5665
 (     BCD 100000(                   CCTEST-11.                         BDC/567 
 COMMA BCD 100000,                   CCTEST-10.                         BDC/56B 
 SLASH BCD 100000/                   CCTEST-9.                          BDC/569 
 P     BCD 100000P                   CCTEST-8.                          BDC/570 
 MINUS BCD 100000-                   CCTEST-7.                          BDC/571 
 )     BCD 100000)                   CCTEST-6.                          BDC/572 
 POINT BCD 100000.                   CCTEST-5.                          BDC/573 
 I     BCD 100000I                   CCTEST-4.                          BDC/574 
H      BCD 100000H                   CCTEST-3.                          BDC/575 
 F     BCD 100000F                   CCTEST-2.                          BDC/576 
 E     BCD 100000E                   CCTEST-1.                          BDC/577 
CCTEST BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   BDC/578 
BLANKS BCD 1                         CONSTANT USED BY FIL/BDC.          BDC/579 
 BLANK BCD 100000                    CONSTANT USED BY FIL/BDC.          BDC/580 
 TEN   DEC 10                        CONSTANT USED BY FIL/BDC.          BDC/581 
 FIXN  DEC 155B8                     CONSTANT USED BY FIL/BDC.          BDC/582 
 FIXQ  DEC 182B8                     CONSTANT USED BY FIL/BDC.          BDC/583 
 BIAS  DEC 27B8                      CONSTANT USED BY FIL/BDC.          BDC/584 
 BASE  DEC 128                       CONSTANT USED BY FIL/BDC.          BDC/585 
 LOG2  DEC .301029957B               CONSTANT USED BY FIL/BDC.          BDC/586 
 ONE   DEC 1                         CONSTANT USED BY FIL/BDC.          BDC/587 
 TWO   PZE 2                         CONSTANT USED BY FIL/BDC.          BDC/5875
L(9)   PZE 9                         CONSTANT USED BY FIL/BDC.          BDC/5876
       DEC .5BE-9                    09-TABLE USED BY FIL/BDC.          BDC/588 
       DEC .5BE-8                    08-TABLE USED BY FIL/BDC.          BDC/589 
       DEC .5BE-7                    07-TABLE USED BY FIL/BDC.          BDC/590 
       DEC .5BE-6                    06-TABLE USED BY FIL/BDC.          BDC/591 
       DEC .5BE-5                    05-TABLE USED BY FIL/BDC.          BDC/592 
       DEC .5BE-4                    04-TABLE USED BY FIL/BDC.          BDC/593 
       DEC .5BE-3                    03-TABLE USED BY FIL/BDC.          BDC/594 
       DEC .5BE-2                    02-TABLE USED BY FIL/BDC.          BDC/595 
       DEC .5BE-1                    01-TABLE USED BY FIL/BDC.          BDC/596 
RND    DEC .5B                       00-TABLE USED BY FIL/BDC.          BDC/597 
       OCT 376700324573              46-TABLE USED BY FIL/BDC.          BDC/598 
       OCT 373546566774              45-TABLE USED BY FIL/BDC.          BDC/599 
       OCT 370436770626              44-TABLE USED BY FIL/BDC.          BDC/600 
       OCT 364713132675              43-TABLE USED BY FIL/BDC.          BDC/601 
       OCT 361557257061              42-TABLE USED BY FIL/BDC.          BDC/602 
       OCT 356445677215              41-TABLE USED BY FIL/BDC.          BDC/603 
       OCT 352726145174              40-TABLE USED BY FIL/BDC.          BDC/604 
       OCT 347570120775              39-TABLE USED BY FIL/BDC.          BDC/605 
       OCT 344454732312              38-TABLE USED BY FIL/BDC.          BDC/606 
       OCT 340741367020              37-TABLE USED BY FIL/BDC.          BDC/607 
       OCT 335601137163              36-TABLE USED BY FIL/BOC.          BDC/608 
       OCT 332464114134              35-TABLE USED BY FIL/BDC.          BDC/609 
       OCT 326755023372              34-TABLE USED BY FIL/BDC.          BDC/610 
       OCT 323612334310              33-TABLE USED BY FIL/BDC.          BDC/611 
       OCT 320473426555              32-TABLE USED BY FIL/BOC.          BDC/612 
       OCT 314770675742              31-TABLE USED BY FIL/BDC.          BDC/613 
       OCT 311623713116              30-TABLE USED BY FIL/BDC.          BDC/614 
       OCT 306503074076              29-TABLE USED BY F1L/BDC.          BDC/615 
       OCT 303402374713              28-TABLE USED BY F1L/BDC.          BDC/616 
       OCT 277635456171              27-TABLE USED BY FIL/BDC.          BDC/617 
       OCT 274512676456              26-TABLE USED BY FIL/BOC.          BDC/618 
       OCT 271410545213              25-TABLE USED BY FIL/BDC.          BDC/619 
       OCT 265647410337              24-TABLE USED BY FIL/BDC.          BDC/620 
       OCT 262522640262              23-TABLE USED BY FIL/BDC.          BDC/621 
       OCT 257417031702              22-TABLE USED BY FIL/BDC.          BDC/622 
       OCT 253661534466              21-TABLE USED BY FIL/BDC.          BDC/623 
       OCT 250532743536              20-TABLE USED BY FIL/BDC.          BDC/624 
       OCT 245425434430              19-TABLE USED BY FIL/BDC.          BDC/625 
       OCT 241674055530              18-TABLE USED BY FIL/BDC.          BDC/626 
       OCT 236543212741              17-TABLE USEO BY FIL/BDC.          BDC/627 
       OCT 233434157116              16-TABLE USED BY FIL/BDC.          BDC/628 
       OCT 227706576512              15-TABLE USED BY FIL/BDC.          BDC/629 
       OCT 224553630410              14-TABLE USED BY FIL/BDC.          BDC/630 
       OCT 221443023471              13-TABLE USED BY FIL/BDC.          BDC/631 
       OCT 215721522451              12-TABLE USED BY FIL/BDC.          BDC/632 
       OCT 212564416672              11-TABLE USED BY FIL/BDC.          BDC/633 
       OCT 207452013710              10-TABLE USED BY FIL/BDC.          BDC/634 
       OCT 203734654500              09-TABLE USED BY FIL/BDC.          BDC/635 
       OCT 200575360400              08-TABLE USED BY FIL/BDC.          BDC/636 
       OCT 175461132000              07-TABLE USED BY FIL/BDC.          BDC/637 
       OCT 171750220000              06-TABLE USED BY FIL/BDC.          BDC/638 
       OCT 166606500000              05-TABLE USED BY FIL/BDC.          BDC/639 
       OCT 163470400000              04-TABLE USED BY FIL/BDC.          BDC/640 
       OCT 157764000000              03-TABLE USED BY FIL/BDC.          BDC/641 
       OCT 154620000000              02-TABLE USED BY FIL/BDC.          BDC/642 
       OCT 151500000000              01-TABLE USED BY FIL/BDC.          BDC/643 
TAB    OCT 146400000000              00-TABLE USE0 BY FIL/BDC.          BDC/644 
COMMON ORG -150                      COMMON WORKING STORAGE=            BDC/645 
 CHAR  BES 120                       VARIABLE USED BY FIL/BDC.          BDC/646 
 EXP   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/647 
 ND    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/648 
 FD    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/649 
 INT   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/650 
 DIG   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/651 
 DATUM BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/652 
 PEX   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/653 
 MQ    BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/654 
 MQR   BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/655 
 REC   BSS 20                        VARIABLE USED BY FIL/BDC.          BDC/656 
 WORD  BSS 1                         VARIABLE USED BY FIL/BDC.          BDC/657 
       REM  END OF CONSTANTS AND WORKING STORAGE USED BY FIL/BDC.       BDC/658 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/659 
       END                                                              BDC/660 
       ABS                                                                                              
       REM CONTROL CARD FOR SCH.                                        SCH/C01 
       ORG 0                                                            SCH/C02 
       PZE COL1+1                                                       SCH/C03 
       PZE COMMON                                                       SCH/C04 
       BCD 1(SCH)                                                       SCH/C00 
       PZE                                                              SCH/C06 
       REM END OF SCH CONTROL CARD.                                     SCH/C07 
       ORG 0                                                            SCH 0001
COMMON SYN -63                                                          SCH2P11 
 FIRST SXD X1,1                                                         SCH 0002
       SXD X2,2                                                         SCH 0003
       SXD X4,4                                                         SCH 0004
       CAL PR6                                                          SCH 0005
       SLW 0                                                            SCH 0006
   PR6 TXL START                                                        SCH 0007
 START LXD X4,4                                                         SCH 0008
       CLA 1,4               OBTAIN STARTING LOCATION OF                SCH 0009
       ARS 18                BUFFER AREA FOR LINE IMAGE                 SCH 0010
       ADD 1,4               IN BCD                                     SCH 0011
 (SCH) PDX FIRST,4           SAVE LOCATION                              SCH 0012
       SXD PR6,4             X                                          SCH 0013
       STA PR2               SUPPLY ADDRESS                             SCH 0014
       STA CI9               X                                          SCH 0015
       WPU                                                              SCH 0016
       CLA BLNKS                  FIND LAST NON-BLANK                   SCH 0017
       LXD CI4,4                  GROUP                                 SCH 0018
 PR2   CAS 0,4                    X                                     SCH 0019
       TXI PR1,4,-1                                                     SCH 0020
       TXI PR2,4,1                X                                     SCH 0021
       TXI PR1,4,-1                                                     SCH 0022
 PR1   SXD CI6,4                  STORE END TEST                        SCH 0023
       SXD CI8,4                  X                                     SCH 0024
       SXD PR8,4                                                        SCH 0025
       LXD PR6,4                                                        SCH 0026
 PR8   TNX PR5,4                                                        SCH 0027
 PR3   LXD PR6,4                  INITIALIZE GROUP COUNT                SCH 0028
 PR5   LXA PR7,2                  INITIALIZE LEFT SETUP                 SCH 0029
       LXD YZ1,1                  CLEAR CARD IMAGE                      SCH 0030
 PR7   PXD                                                              SCH 0031
 PR4   SLW LT,1                                                         SCH 0032
       SLW RT,1                                                         SCH 0033
       TIX PR4,1,1                X                                     SCH 0034
 CIR   CAL COL1                   INITIALIZE COLUMN INDICATOR           SCH 0035
 CI2   SLW COL                    X                                     SCH 0036
 CI9   LDQ 0,4                    OBTAIN GROUP                          SCH 0037
       SXD OZ2,4                  STORE GROUP COUNT                     SCH 0038
       LXA Q6,4                   SET CHARACTER COUNT                   SCH 0039
 CI1   PXD 12                                                           SCH 0040
 Q6    LGL 6                                                            SCH 0041
       PAX 0,1                    X                                     SCH 0042
       CAL COL                    POSITION COLUMN INDICATOR             SCH 0043
       ARS 6,4                    X                                     SCH 0044
       TIX YZ1,1,16               TEST FOR DIGIT                        SCH 0045
       TXH YZ2,1,15               TEST FOR Y-ZONE                       SCH 0046
 CI5   ORS D,3                    STORE DIGIT                           SCH 0047
 CI4   TIX CI1,4,1                COUNT CHARACTERS                      SCH 0048
 CI3   ARS 1                      SHIFT AND TEST COLUMN                 SCH 0049
       LXD OZ2,4                  RESTORE GROUP COUNT                   SCH 0050
       TXI CI6,4,-1               COUNT GROUPS                          SCH 0051
 CI6   TXL CI7,4                  TEST FOR LAST NON-BLANK GR.           SCH 0052
       TNZ CI2                    TEST.FOR END OF R0W                   SCH 0053
 CI7   CAL 8.3,2                  FORM TRUE 8,4                         SCH 0054
       ORS D-8,2                  AND 3 ROWS AND                        SCH 0055
       ORS D-3,2                  MOVE8.4 AND 8.3                       SCH 0056
       SLW 8.2,2                  ROWS                                  SCH 0057
       CAL 8.4,2                  FORM TRUE8.4                          SCH 0058
       ORS D-8,2                                                        SCH 0059
       ORS D-4,2                                                        SCH 0060
       SLW 8.3,2                  X                                     SCH 0061
 CI8   TXL WP,4                   TEST FOR END                          SCH 0062
       TXH WP,2,15                TEST FOR RIGHT HALF                   SCH 0063
       TXI CIR,2,16               INITIALIZE RIGHT HALF                 SCH 0064
 YZ1   TIX XZ1,1,16               TEST FOR 16/CH/32                     SCH 0065
       TXH XZ2,1,15               TEST FOR X-ZONE                       SCH 0066
       ORS D,3                    STORE DIGIT                           SCH 0067
 YZ2   ORS Y,2                    STORE Y-ZONE                          SCH 0068
       TIX CI1,4,1                COUNT CHARACTERS                      SCH 0069
 X1    TXL CI3                    OBTAIN NEXT GROUP                     SCH 0070
 XZ1   TIX OZ1,1,16               TEST FOR 32/CH/48                     SCH 0071
       TXH CI4,1,15               TEST FOR BLANK                        SCH 0072
       ORS D,3                    STORE DIGIT                           SCH 0073
 XZ2   ORS X,2                    STORE X-ZONE                          SCH 0074
       TIX CI1,4,1                COUNT CHARACTERS                      SCH 0075
 X2    TXL CI3                    OBTAIN NEXT GROUP                     SCH 0076
 OZ1   ORS Z,2                    STORE 0-ZONE                          SCH 0077
       ORS D,3                                                          SCH 0078
       TIX CI1,4,1                COUNT CHARACTERS                      SCH 0079
 OZ2   TXL CI3                                                          SCH 0080
 WP    LXA CI1,1                                                        SCH 0081
 WP3   CPY LT,1                   COPY CARD IMAGE                       SCH 0082
       CPY RT,1                                                         SCH 0083
       TIX WP3,1,1                                                      SCH 0084
       LXD X1,1                                                         SCH 0085
       LXD X2,2                                                         SCH 0086
 WT2   LXD X4,4                                                         SCH 0087
       TRA 2,4                                                          SCH 0088
 BLNKS BCD 1                                                            SCH 0089
 X4    HTR 1                                                            SCH 0090
 COL1  MZE                                                              SCH 0091
       ORG -63                                                          SCH 0092
 COL   BSS 1                                                            SCH 0093
 RT    BES 16                                                           SCH 0094
 8.5   BSS 1                                                            SCH 0095
 8.4   BSS 1                                                            SCH 0096
 8.3   BSS 1                                                            SCH 0097
 8.2   BSS 1                                                            SCH 0098
 D     BES 9                                                            SCH 0099
 Z     BSS 1                                                            SCH 0100
 X     BSS 1                                                            SCH 0101
 Y     BSS 1                                                            SCH 0102
 LT    SYN Y+1                                                          SCH 0103
       END                                                              SCH 0104
       ABS                                                                                              
       REM CONTROL CARD FOR SPH.                                        SPH/C01 
       ORG 0                                                            SPH/C02 
       PZE COL1+1                                                       SPH/C03 
       PZE COMMON                                                       SPH/C04 
       BCD 1(SPH)                                                       SPH/C05 
           3                                                            SPH/C06 
       REM END OF SPH CONTROL CARD.                                     SPH/C07 
       REM SPH FOR FORTRAN II                                           SPH 0001
       ORG 0                                                            SPH 0002
COMMON SYN -85                                                          SPH 0003
   RPT LXD X1,1              PREPARE TO CAUSE LINE                      SPH 0004
       LXD X2,2              TO BE PRINTED AGAIN AND THE                SPH 0005
       LXD X4,4              PrOGRAM TO CONTINUE                        SPH 0006
   LMT CLA 1,4               OBTAIN STARTING LOCATION OF BUFFER AREA *  SPH 0007
       STA T5                SUPPLY ADDRESS                             SPH 0008
       ARS 18                * FOR LINE IMAGE IN BCD                    SPH 0009
       ADD 1,4               X                                          SPH 0010
       SXD X1,1                                                         SPH 0011
       SXD X2,2                                                         SPH 0012
       SXD X4,4                                                         SPH 0013
   L11 PDX 11,4              SAVE LOCATION                              SPH 0014
       STA PR2                                                          SPH 0015
       STA CI9                                                          SPH 0016
       SXD PR6,4             SAVE LOCATION                              SPH 0017
       CAL DEL                                                          SPH 0018
       SLW 1ST                                                          SPH 0019
 T4    RPR                        SELECT PRINTER                        SPH 0020
 T5    CAL *                      OBTAINFIRST CHARACTER                 SPH 0021
       ARS 30                     X                                     SPH 0022
       TZE SP4                    DOUBLE SPACE IF ZERO                  SPH 0023
       CAS YZONE                  TEST FOR SPACE SUPPRESS               SPH 0024
 Z2    TXL BK                     NO                                    SPH 0025
 PR6   TXL RPR+1                  SUPPRESS SPACE                        SPH 0026
 BK    CAS BNK                    TEST FOR BLANK                        SPH 0027
 OZ2   TXL DIGF                   100                                   SPH 0028
 X4    TXL RPR+2                                                        SPH 0029
 DIGF  SPR 10                     SET 0HANNEL SKIP                      SPH 0030
       ANA MK                     MASK OUT ZONE                         SPH 0031
 MK    PAX 15,1                   OBTAIN SPR COMBINATION                SPH 0032
       TXI N2,1,1                 X                                     SPH 0033
 N2    TNX N3,1,8                 X                                     SPH 0034
       SPR 8                      X                                     SPH 0035
 N3    TNX N4,1,4                 X                                     SPH 0036
       SPR 4                      X                                     SPH 0037
 N4    TNX N5,1,2                 X                                     SPH 0038
       SPR 2                      X                                     SPH 0039
 N5    TNX RPR,1,1                X                                     SPH 0040
       SPR 1                      X                                     SPH 0041
 RPR   RPR                        SELECT PRINTER AGAIN                  SPH 0042
       SPR 5                      SUPPRESS SPACE                        SPH 0043
       CLA BLNKS                  FIND LAST NON-BLANK GROUP             SPH 0044
       LXD CI4,4                  X                                     SPH 0045
 PR2   CAS 0,4                    X                                     SPH 0046
       TXI PR1,4,-1               X                                     SPH 0047
       TXI PR2,4,1                X                                     SPH 0048
       TXI PR1,4,-1               X                                     SPH 0049
 PR1   SXD CI6,4                  STORE END TEST                        SFH 0050
       SXD CI8,4                  X                                     SPH 0051
       SXD PR8,4                  X                                     SPH 0052
       SXD WP4,4                  X                                     SPH 0053
       LXD PR6,4                  X                                     SPH 0054
 PR8   TNX PR5,4                                                        SPH 0055
       TXL PR3,4,12                                                     SPH 0056
       SPR 8                      FIRST CYCLE                           SPH 0057
 PR3   LXD PR6,4                  INITIALIZE GROUP COUNT                SPH 0058
 PR5   LXA PR7,2                  INITIALIZE LEFT SETUP                 SPH 0059
       LXD YZ1,1                  CLEAR CARD IMAGE                      SPH 0060
 PR7   PXD                        X                                     SPH 0061
 PR4   SLW LT,1                   X                                     SPH 0062
       SLW RT,1                   X                                     SPH 0063
       TIX PR4,1,1                X                                     SPH 0064
 CIR   CAL COL1                   INITIALIZE COLUMN INDICATOR           SPH 0065
 CI2   SLW COL                    X                                     SPH 0066
 CI9   LDQ 0,4                    OBTAIN GROUP                          SPH 0067
       SXD OZ2,4                  STORE GROUP COUNT                     SPH 0068
       LXA Q6,4                   SET CHARACTER COUNT                   SPH 0069
 CI1   PXD LMT                                                          SPH 0070
 Q6    LGL 6                                                            SPH 0071
 1ST   PAX 0,1                                                          SPH 0072
       CAL COL                    POSITION COLUMN INDICATOR             SPH 0073
       ARS 6,4                    X                                     SPH 0074
       TIX YZ1,1,16               TEST FOR DIGIT                        SPH 0075
       TXH YZ2,1,15               TEST FOR Y-ZONE                       SPH 0076
 CI5   ORS D,3                    STORE DIGIT                           SPH 0077
 CI4   TIX CI1,4,1                COUNT  CHARACTERS                     SPH 0078
 CI3   ARS 1                      SHIFT AND TEST COLUMN                 SPH 0079
       LXD OZ2,4                  RESTORE GROUP COUNT                   SPH 0080
       TXI CI6,4,-1               COUNT GROUPS                          SPH 0081
 CI6   TXL CI7,4                  TEST FOR LAST NON-BLANK GROUP         SPH 0082
       TNZ CI2                    TEST FOR END OF ROW                   SPH 0083
 CI7   CAL 8.3,2                  FORM TRUE 8.4                         SPH 0084
       ORS D-8,2                  AND 3 ROWS AND                        SPH 0085
       ORS D-3,2                  MOVE 8.4 AND 8.3                      SPH 0086
       SLW 8.2,2                  ROWS                                  SPH 0087
       CAL 8.4,2                  FORM TRUE 8.4                         SPH 0088
       ORS D-8,2                  X                                     SPH 0089
       ORS D-4,2                  X                                     SPH 0090
       SLW 8.3,2                  X                                     SPH 0091
 CI8   TXL WP,4                   TEST FOR END                          SPH 0092
       TXH WP,2,15                TEST FOR RIGHT HALF                   SPH 0093
       TXI CIR,2,16               INITIALIZE RIGHT HALF                 SPH 0094
 YZ1   TIX XZ1,1,16               TEST FOR I6/CH/32                     SPH 0095
       TXH XZ2,1,15               TEST FOR X-ZONE                       SPH 0096
       ORS D,3                    STORE DIGIT                           SPH 0097
 YZ2   ORS Y,2                    STORE Y-ZONE                          SPH 0098
       TIX CI1,4,1                C0UNT CHARACTERS                      SPH 0099
 X1    TXL CI3                    OBTAIN NEXT GROUP                     SPH 0100
 XZ1   TIX OZ1,1,16               TEST FOR 32/CH/48                     SPH 0101
       TXH CI4,1,15               TEST FOR BLANK                        SPH 0102
       ORS D,3                    STORE DIGIT                           SPH 0103
 XZ2   ORS X,2                    STORE X-ZONE                          SPH 0104
       TIX CI1,4,1                COUNT CHARACTERS                      SPH 0105
 X2    TXL CI3                    OBTAIN NEXT GROUP                     SPH 0106
 OZ1   ORS Z,2                    STORE 0-ZONE                          SPH 0107
       ORS D,3                    STORE DIGIT                           SPH 0108
       TIX CI1,4,1                COUNT CHARACTERS                      SPH 0109
       TXL CI3                                                          SPH 0110
 WP    LXD Z2,1                   COPY LOOP                             SPH 0111
 C     CPY LT-12,1                CARD IMAGE COPIES                     SPH 0112
       CPY RT-12,1                X                                     SPH 0113
       TXI T2,1,-1                                                      SPH 0114
 T2    TXH C,1,-9                 TEST FOR ECHO                         SPH 0115
       CPY LECHO-9,1              ECHO COPIES                           SPH 0116
       CPY RECHO-9,1              X                                     SPH 0117
       TXH C,1,-12                TEST FOR END OF CARD IMAGE            SPH 0118
       TXH T2-1,1,-19             TEST FOR END OF ECHOS                 SPH 0119
       LXA L2,1                                                         SPH 0120
 CL    CAL LECHO+2,1              8.3 AND 8.4 ECHOS INTO                SPH 0121
       ORS LECHO+3                8 AND 3 AND 4 ECHO R0WS               SPH 0122
       ORS LECHO+9,1              X                                     SPH 0I23
       CAL RECHO+2,1              X                                     SPH 0124
       ORS RECHO+3                X                                     SPH 0125
       ORS RECHO+9,1              X                                     SPH 0126
       TIX CL,1,1                 X                                     SPH 0127
       LXA L11,1                                                        SPH 0128
    T9 CAL 8.4L+11,1         LEFT ECHO CHECK                            SPH 0129
       COM                        X                                     SPH 0130
       ACL LECHO+11,1             X                                     SPH 0131
       COM                        X                                     SPH 0132
       TNZ ERRL              LEFT ECHO CHECK EPROR                      SPH 0133
     R CAL 8.4R+11,1         RIGHT ECHO CHECK                           SPH 0134
       COM                        X                                     SPH 0135
       ACL RECHO+11,1             X                                     SPH 0136
       COM                        X                                     SPH 0137
       TZE ERR+1             RIGHT ECHO CHECK ERROR                     SPH 0138
  ERRL LDQ RES               SET UP FOR SECOND ATTEMPT TO PRINT LINE    SPH 0139
       STQ 0                 X                                          SPH 0140
   ERR HPR 0,4               ECHO CHECK ERROR. RESTART OR CONTINUE      SPH 0141
       TIX T9,1,1            CONTINUE                                   SPH 0142
 WP4   TXH WP5,4                  TEST FOR SECOND CYCLE                 SPH 0143
       LXD X1,1                   NO, RELOAD INDEX REGISTERS AND RETURN SPH 0144
       LXD X2,2                   X                                     SPH 0145
 WT2   LXD X4,4                   X                                     SPH 0I46
 L2    TRA 2,4                    X                                     SPH 0147
 SP4   SPR 4                      DOUBLE SPACE                          SPH 0148
       TXL RPR+2                                                        SPH 0149
 DEL   TXL FIX                                                          SPH 0150
 FIX   CAL MK                                                           SPH 0151
       SLW 1ST                                                          SPH 0152
       TIX CI1,4,1                                                      SPH 0153
 RES   TRA RPT                                                          SPH 0154
 WP5   RPR                        SELECT PRINTER AGAIN                  SPH 0155
       SPR 9                      SECOND CYCLE                          SPH 0156
 WP2   TXL PR5,0,12               CONVERT REST OF LINE                  SPH 0157
 BLNKS BCD 1                                                            SPH 0158
 YZONE OCT 20                                                           SPH 0159
 BNK   OCT 60                                                           SPH 0160
 COL1  MZE                                                              SPH 0I61
       ORG COMMON                                                       SPH 0162
 COL   BSS 1                                                            SPH 0163
 RT    BES 16                                                           SPH 0164
 8.5   BSS 1                                                            SPH 0165
 8.4   BSS 1                                                            SPH 0166
 8.3   BSS 1                                                            SPH 0167
 8.2   BSS 1                                                            SPH 0168
 D     BES 9                                                            SPH 0169
 Z     BSS 1                                                            SPH 0170
 X     BSS 1                                                            SPH 0I71
 Y     BSS 1                                                            SPH 0172
 LT    SYN Y+1                                                          SPH 0173
 8.4L  SYN LT-14                                                        SPH 0174
 8.4R  SYN RT-14                                                        SPH 0175
 LECHO BSS 11                                                           SPH 0I76
 RECHO BSS 11                                                           SPH 0177
 (SPH) SYN CI1                                                          SFH 0178
       END                                                              SPH 0179
       ABS                                                                                              
       REM CONTROL CARD FOR STH.                                        STH/C01 
       ORG 0                                                            STH/C02 
       PZE X4+1                                                         STH/C03 
       PZE                                                              STH/C04 
       BCD 1(STH)                                                       STH/C05 
       PZE                                                              STH/C06 
       REM END OF STH CONTROL CARD.                                     STH/C07 
       ORG 0                                                            STHF2001
   WOT CLA 1,4               CALCULATE ADDRESS                          STHF2002
       ARS 18                FOR COPY INSTRUCTION                       STHF2003
       ADD 1,4               X                                          STHF2004
       SXD X4,4              SAVE INDEX REGISTER                        STHF2005
 (STH) PDX WOT,4             COUNT OF WORDS PER RECORD TO IR4           STHF2006
       STA WT1               SUPPLY ADDRESS TO CPY INSTRUCTI0N          STHF2007
   WT1 CPY 0,4               COPY RECORD TO OUTPUT TAPE                 STHF2008
       TIX WT1,4,1           X                                          STHF2009
       IOD                   INPUT OUTPUT DELAY                         STHF2010
       LXD X4,4              RESTORE IR4, RETURN TO                     STHF2011
       TRA 2,4               MAIN PROGRAM                               STHF2012
    X4 HTR 1                 STORAGE FOR INDEX REGISTER 4               STHF2013
       END                                                              STHF2014
       ABS                                                              LRT/CO0                         
       REM CONTROL CARD FOR LRT.                                        LRT/C01 
       ORG                                                              LRT/C02 
       PZE BT+1                                                         LRT/C03 
       PZE                                                              LRT/C04 
       BCD 1(LEV)                                                       LRT/C05 
       PZE (LEV)                                                        LRT/C06 
       BCD 1(RTN)                                                       LRT/C07 
       PZE (RTN) ,                                                      LRT/C08 
       REM  END OF LRT CONTROL CARD.                                    LRT/C09 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *        
       REM                                                                      
       ORG                                                              LRT/C   
       REM (LEV)/ CALLER=MAIN PROGRAM.                                  LRT/001 
       REM (LEV) SAVES ALL INDICATORS BEFORE I/O TRANSMISSION.          LRT/002 
(LEV)  ADD L(2)                      SET UP FOR RETURN                  LRT/003 
       STA BAK                       TO CONTROL LOOP.                   LRT/004 
       RTT                           MAKE CERTAIN REDUNDANCY            LRT/005 
       NOP                           INDICATOR IS TURNED OFF.           LRT/006 
       STA RT                        SAVE FOR 2ND TRY, IF NECESSARY=    LRT/007 
       SXD ERX1,1                    STARTING LOCATION, AND THE         LRT/008 
       SXD ERX2,2                    CONTENTS OF XR1, XR2,              LRT/009 
       SXD ERX4,4                    AND XR4.                           LRT/010 
       CAL 0                         ALSO SAVE THE                      LRT/011 
       SLW C(0)                      CONTENTS OF LOCATION 0,            LRT/012 
       CAL 1                         AND THE                            LRT/013 
       SLW C(1)                      CONTENTS OF LOCATION 1.            LRT/014 
       CAL TON                       SET UP FOR                         LRT/015 
       SLW 1                         PREVIOUS TRAP                      LRT/016 
       CLA LTM                       IMDE CONDITION.                    LRT/017 
ERX1   TXI SET,0,**                  IF IN TRAPPING MODE, THEN          LRT/018 
TON    TTR CHS                       INSTRUCTION EXECUTED IN LOCATION 1.LRT/019 
CHS    CHS                           CHANGE LTM TO ETM, AND             LRT/020 
SET    STO RTM                       SET RTM TO RESTORE TRAPPING COND.  LRT/021 
LTM    LTM                           LEAVE TRAPPING MODE, AND           LRT/022 
       CLA NOP                       THEN                               LRT/023 
TOV    TOV SETAC                     RETAIN PREVIOUS                    LRT/024 
       CLA TOV                       AC OVERFLOW CONDITION              LRT/025 
SETAC  STD AVR                       IN AVR.                            LRT/026 
       CLA NOP                       THEN                               LRT/027 
TQO    TQO SETMQ                     RETAIN PREVIOUS                    LRT/028 
       CLA TQO                       MQ OVERFLOW CONDITION              LRT/029 
SETMQ  STD QVR                       IN OVR.                            LRT/030 
       CLA DCT                       THEN                               LRT/031 
DCT    DCT                           RETAIN PREVIOUS                    LRT/032 
       CLA NOP                       DIVIDE CHECK CONDITION             LRT/033 
       STO DCR                       IN DCR.                            LRT/034 
BAK    TTR **                      * EXIT TO MAIN PROGRAM.              LRT/035 
       REM  END OF PROGRAM (LEV).                                       LRT/036 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/037 
       REM                                                              LRT/038 
       REM (RTNI/ CALLERS=MAIN PROGRAM,(FIL).                           LRT/039 
       REM (RTN) RESTORES ALL INDICATORS AFTER I/O TRANSMISSION.        LRT/040 
(RTN)  LTM                           LEAVE TRAPPING MODE, AND           LRT/041 
       ADD L(2)                      SET UP FOR RETURN                  LRT/042 
       STA RET                       TO CONTROL LO0P.                   LRT/043 
       IOD                           INPUT-OUTPUT DELAY.                LRT/044 
       RTT                           IF BINARY TAPE READING WAS NOT     LRT/045 
ERX2   TXI TRY,0,**                  CORRECT, THEN TRY AGAIN.           LRT/046 
GOOD   CAL TXLOP                     OTHERWISE, CONTINUE.               LRT/047 
       STP TRY                       SET TRY TO TRANSFER CASE.          LRT/048 
       REM  RES = ENTRY POINT USED BY (FIL).                            LRT/049 
RES    CAL C(0)                      RESTORE                            LRT/050 
       SLW 0                         THE C(0).                          LRT/051 
       CAL C(1)                      RESTORE                            LRT/052 
       SLW 1                         THE C(1).                          LRT/053 
       IOD                           INPUT-OUTPUT DELAY.                LRT/054 
       LDQ MAX                       FORCE ALL TEST                     LRT/055 
       FMP MAX                       CONDITIONS ON, AND THEN            LRT/056 
AVR    PZE QVR,,**                   RESTORE ORIGINAL AC OV CONDITION.  LRT/057 
QVR    PZE NXT,,**                   RESTORE ORIGINAL MQ OV CONDITION.  LRT/058 
NXT    DVP ZER                       AND THEN                           LRT/059 
DCR    PZE **                        RESTORE ORIGINAL DIVIDE CHECK COND.LRT/060 
NOP    NOP                           AND THEN                           LRT/061 
RTM    PZE **                        RESTORE ORIGINAL TRAP MODE COND.   LRT/062 
RET    TTR **                      * EXIT TO MAIN PROGRAM.              LRT/063 
TRY    TXL TRY1,0                    OPSWITCH (TXL=TRA, TXH=NOP).       LRT/064 
       HPR 7,7                       HALT AFTER 2ND FAILURE.            LRT/065 
TXLOP  TXL GOOD,0                    PRESS START TO ACCEPT RECORD.      LRT/066 
TRY1   CLA TXLOP                     SET TRY TO NO TRANSFER CASE        LRT/067 
       STP TRY                       FOR 2ND ATTEMPT AT READING RECORD. LRT/068 
       LXA ZER,1                     SET XR1 = 0, AND                   LRT/069 
RT     LDQ **,1                      OBTAIN RTB LOCATION.               LRT/070 
       PXD ,0                        OBTAIN OPERATION                   LST/071 
       LGL 12                        BITS, AND TEST                     LRT/072 
       SUB BT                        FOR LOCATION RTB.                  LRT/073 
       TZE CONT                      IF NOT, THEN ADJUST THE            LRT/074 
       TXI RT,1,-1                   C(XR1), AND CONTINUE SEARCH.       LRT/075 
CONT   LGL 24                        WHEN FOUND, SET                    LRT/076 
       STA BST                       CURRENT TAPE ADDRESS.              LRT/077 
BST    BST **                        BACKSPACE CURRENT TAPE.            LRT/078 
       LXD ERX1,1                    RESTORE THE                        LRT/079 
       LXD ERX2,2                    ORIGINAL CONTENTS 0F               LRT/080 
       LXD ERX4,4                    XR1,XR2, AND XR4.                  LRT/081 
ERX4   TXI BAK,0,**                * EXIT TO MAIN PROGRAM FOR 2ND TRY.  LRT/082 
       REM  END OF PROGRAM (RTN).                                       LRT/083 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/084 
       REM                                                              LRT/085 
       REM CONSTANTS AND WORKING STORAGE USED BY LEV/RTN/FIL/BDC.       LRT/086 
C(0)   PZE **                        VARIABLE USED BY LEV/RTN/FIL/BDC.  LRT/087 
C(1)   PZE **                        VARIABLE USED BY LEV/RTN/FIL/BDC.  LRT/088 
L(2)   PZE 2                         CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/089 
MAX    OCT 377777777777              CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/090 
ZER    PZE 0                         CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/091 
BT     OCT 000000000762              CONSTANT USED BY LEV/RTN/FIL/BDC.  LRT/092 
       REM  END OF CONSTANTS AND WORKING STORAGE USED BY LEV/RTN.       LRT/093 
       REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/094 
       REM                                                              LRT/095 
       END                                                              LRT/096 
       ABS                                                                                              
       REM CONTROL CARD FOR EXP(1                                       XP1/C01 
       ORG 0                                                            XP1/C02 
       PZE EXP+1                                                        XP1/C03 
       PZE FACTOR                                                       XP1/C04 
       BCD 1EXP(1                                                       XP1/C05 
       PZE                                                              XP1/C06 
       REM END OF EXP(1 CONTROL CARD.                                   XP1/C07 
       ORG 0                                                            EXP10001
       REM EXPONENTIATION SUBROUTINE                                    EXP10002
       REM FIXED POINT BASE, FIXED POINT EXPONENT                       EXP10003
 EXP(1 TZE 1,4                    EXIT FOR ZERO BASE                    EXP10004
       ARS 18                                                           EXP10005
       STO POWER                  SAVE BASE                             EXP10006
       LLS 17                                                           EXP10007
       STA EXP                                                          EXP10008
       CLA EXP                                                          EXP10009
       TNZ ENZ                                                          EXP10010
       LDQ FIXONE                                                       EXP10011
       TRA EXIT                                                         EXP10012
 ENZ   CLA FIXONE                                                       EXP10013
       SBM POWER                                                        EXP10014
       TZE N                                                            EXP10015
       TQP N                                                            EXP10016
       TRA EXIT                                                         EXP10017
 N     CLA FIXONE                                                       EXP10018
       STO FACTOR                 X                                     EXP10019
 CLA1  CLA EXP                    IS POWER                              EXP10020
       LBT                        A FACTOR                              EXP10021
       TRA CLA2                   NO                                    EXP10022
       LDQ POWER                  YEB                                   EXP10023
       MPY FACTOR                                                       EXP10024
       STQ FACTOR                                                       EXP10025
 CLA2  CLA EXP                                                          EXP10026
       ARS 1                                                            EXP10027
       STO EXP                                                          EXP10028
       TZE EXIT                                                         EXP10029
       LDQ POWER                  COMPUTE                               EXP10030
       MPY POWER                  NEXT                                  EXP10031
       STQ POWER                  POWER                                 EXP10032
       TRA CLA1                                                         EXP10033
 EXIT  LLS 53                                                           EXP10034
       TRA 1,4                                                          EXP10035
       REM WORKING STORAGE                                              EXP10036
FIXONE DEC 1                                                            EXP10037
 EXP                                                                    EXP1003B
 POWER SYN -1                                                           EXP10039
FACTOR SYN -2                                                           EXP10040
       END                                                              EXP10041
       ABS                                                                                              
       REM CONTROL CARD FOR EXP(2                                       XP2/C01 
       ORG 0                                                            XP2/C02 
       PZE EXP+1                                                        XP2/C03 
       PZE FACTOR                                                       XP2/C04 
       BCD 1EXP(2                                                       XP2/C05 
       PZE                                                              XP2/C06 
       REM END OF EXP(2 CONTROL CARD.                                   XP2/C07 
       ORG 0                                                            EXP20001
       REM EXPONENTIATION SUBROUTINE                                    EXP20002
       REM FLOATING POINT BASE, FIXED POINT EXPONENT                    EXP20003
 EXP(2 TZE 1,4                    EXIT FOR ZERO BASE                    EXP20004
       SXD SAVEX,2                                                      EXP20005
       TQP MQPOS                                                        EXP20006
       LXD NEGONE,2               SET NEGATIVE MQ INDICATOR             EXP20007
NEGONE TXL MQPOS+1,0,-1                                                 EXP20008
 MQPOS LXD TXL,2                  SET POSITIVE MQ INDICATOR             EXP20009
       STO POWER                  INITIALIZATION                        EXP20010
       PXD                                                              EXP20011
       LLS 17                     X                                     EXP20012
       STA EXP                    X                                     EXP20013
       CLA EXP                                                          EXP20014
       TNZ N                                                            EXP20015
       CLA FLOONE                                                       EXP20016
       TRA EXIT                                                         EXP20017
 N     CLA FLOONE                 X                                     EXPZ0018
       STO FACTOR                 X                                     EXP20019
 CLA1  CLA EXP                    IS POWER                              EXP20020
       LBT                        A FACTOR                              EXP20021
 SAVEX TXL CLA2                   NO                                    EXP20022
       LDQ POWER                  YES                                   EXP20023
       FMP FACTOR                                                       EXP20024
       STO FACTOR                                                       EXP20025
 CLA2  CLA EXP                                                          EXP20026
       ARS 1                                                            EXP20027
       STO EXP                                                          EXP20028
       TZE TXL-1                                                        EXP20029
       LDQ POWER                                                        EXP20030
       FMP POWER                                                        EXP20031
       STO POWER                                                        EXP20032
       TRA CLA1                                                         EXP20033
       CLA FACTOR                                                       EXP20034
 TXL   TXL EXIT,2                                                       EXP20035
       CLA FLOONE                                                       EXP20036
       FDH FACTOR                                                       EXP20037
       PXD                                                              EXP20038
       LLS 35                                                           EXPZ00S9
 EXIT  LXD SAVEX,2                                                      EXP20040
       REM WORKING STORAGE                                              EXP20041
       TRA 1,4                                                          EXP20042
FLOONE DEC 1.0                                                          EXP20043
 EXP                                                                    EXP20044
 POWER SYN -1                                                           EXP20045
FACTOR SYN -2                                                                   
       END                                                              EXP20047
       ABS                                                                                              
       REM  CONTROL CARD FOR EXP(3                                      XP3/C01 
       ORG 0                                                            XP3/C02 
           113                                                          XP3/C03 
           -8                                                           XP3/C04 
       BCD 1EXP(3                                                       XP3/C05 
       PZE                                                              XP3/C06 
       BCD 1EXP                                                         XP3/C07 
       MZE 8                                                            XP3/C08 
       BCD 1LOG                                                         XP3/C09 
       MZE 71                                                           XP3/C10 
       REM END OF EXP(3 CONTROL CARD.                                   XP3/C11 
       ORG 0                                                            EXP30001
       REM EXPONENTIATION SUBROUTINE                                    EXP30002
       REM FL0ATING POINT BASE, FLOATING POINT EXPONENT                 EXP30003
 EXP(3 TZE 1,4                    BASE ZERO                             EXP30004
       SSP                                                              EXP30005
       SXD TXL,4                                                        EXP30006
       STQ EXP1                                                         EXP30007
       TSX LOG,4                                                        EXP30008
       LRS 35                                                           EXP30009
       FMP EXP1                                                         EXP30010
       TSX EXP,4                                                        EXP30011
 LXD   LXD TXL,4                                                        EXP30012
       TRA 1,4                                                          EXP30013
       REM LAS816 EXPONENTIAL SUBROUTINE                                EXP30014
S816EX STO COMMON+00000,0,00000                                         EXP30015
       SSP 00000,0,00000                                                EXP30016
       SUB S816EX+00055,0,00000                                         EXP30017
       LRS 00000,0,00000                                                EXP30018
       PXD 00000,0,00000                                                EXP30019
       TQP S816EX+00051,0,00000                                         EXP30020
       ADM COMMON+00000,0,00000                                         EXP30021
       LDQ S816EX+00062,0,00000                                         EXP30022
       SUB S816EX+00061,0,00000                                         EXP30023
       TMI S816EX+00017,0,00000                                         EXP30024
       LRS 00027,0,00000                                                EXP30025
       STA S816EX+00013,0,00000                                         EXP30026
       PXD 00000,0,00000                                                EXP30027
       LLS 00000,0,00000                                                EXP30028
       DVH S816EX+00056,0,00000                                         EXP30029
       ARS 00008,0,00000                                                EXP30030
       RQL 00027,0,00000                                                EXP30031
       ADD S816EX+00061,0,00000                                         EXP30032
       STQ COMMON+00001,0,00000                                         EXP30033
       FAD S816EX+00061,0,00000                                         EXP30034
       STO COMMON+00002,0,00000                                         EXP30035
       LDQ COMMON+00002,0,00000                                         EXP30036
       FMP COMMON+00002,0,00000                                         EXP30037
       STO COMMON+00003,0,00000                                         EXP30038
       FAD S816EX+00057,0,00000                                         EXP30039
       STO COMMON+00004,0,00000                                         EXP30040
       CLA S816EX+00058,0,00000                                         EXP30041
       FDH COMMON+00004,0,00000                                         EXP30042
       STQ COMMON+00004,0,00000                                         EXP30043
       CLA S816EX+00059,0,00000                                         EXP30044
       FAD COMMON+00004,0,00000                                         EXP30045
       STO COMMON+00004,0,00000                                         EXP30046
       LDQ COMMON+00004,0,00000                                         EXP30047
       FMP COMMON+00003,0,00000                                         EXP30048
       FAD S816EX+00060,0,00000                                         EXP30049
       STO COMMON+00003,0,00000                                         EXP30050
       FSB COMMON+00002,0,00000                                         EXP30051
       STO COMMON+00004,0,00000                                         EXP30052
       CLA COMMON+00003,0,00000                                         EXP30053
       FAD COMMON+00002,0,00000                                         EXP30054
       ADD COMMON+00001,0,00000                                         EXP30055
       STO COMMON+00003,0,00000                                         EXP30056
       LDQ COMMON+00000,0,00000                                         EXP30057
       TQP S816EX+00047,0,00000                                         EXP30058
       CLA COMMON+00004,0,00000                                         EXP30059
       LDQ COMMON+00003,0,00000                                         EXP30060
       STQ COMMON+00004,0,00000                                         EXP30061
       FDH COMMON+00004,0,00000                                         EXP30062
       STQ COMMON+00000,0,00000                                         EXP30063
       CLA COMMON+00000,0,00000                                         EXP30064
       TRA 00001,4,00000                                                EXP30065
       LDQ COMMON+00000,0,00000                                         EXP30066
       TLQ 00001,4,00000                                                EXP30067
       COM 00000,0,00000                                                EXP30068
       TRA 00001,4,00000                                                EXP30069
       DEC 8.73000000000E01                                             EXP30070
       OCT 261344137676                                                 EXP30071
       DEC 4.20000000000E01                                             EXP30072
       DEC 4.90000000000E00                                             EXP30073
       DEC 5.00000000000E-02                                            EXP30074
       DEC 2.00000000000E00                                             EXP30075
       OCT 200000000000                                                 EXP30076
       OCT 000000000000                                                 EXP30077
       REM LA S820 NATURAL LOGARITHM SUBROUTINE                         EXP30078
LAS820 TZE 00001,4,00000                                                EXP30079
       SSP                                                              EXP30080
       LRS 00027,0,00000                                                EXP30081
       STQ COMMON+00000,0,00000                                         EXP30082
       ALS 00019,0,00000                                                EXP30083
       ORA LAS820+00030,0,00000                                         EXP30084
       FSB LAS820+00031,0,00000                                         EXP30085
       STO COMMON+00001,0,00000                                         EXP30086
       CLA COMMON+00000,0,00000                                         EXP30087
       LRS 00008,0,00000                                                EXP30088
       ORA LAS820+00032,0,00000                                         EXP30089
       FAD LAS820+00033,0,00000                                         EXP30090
       STO COMMON+00000,0,00000                                         EXP30091
       FSB LAS820+00034,0,00000                                         EXP30092
       FDH COMMON+00000,0,00000                                         EXP30093
       STQ COMMON+00000,0,00000                                         EXP30094
       FMP COMMON+00000,0,00000                                         EXP30095
       STO COMMON+00002,0,00000                                         EXP30096
       LDQ LAS820+00037,0,00000                                         EXP30097
       FMP COMMON+00002,0,00000                                         EXP30098
       FAD LAS820+00036,0,00000                                         EXP30099
       LRS 00035,0,00000                                                EXP30100
       FMP COMMON+00002,0,00000                                         EXP30101
       FAD LAS820+00035,0,00000                                         EXP30102
       LRS 00035,0,00000                                                EXP30103
       FMP COMMON+00000,0,00000                                         EXP30104
       FAD COMMON+00001,0,00000                                         EXP30105
       LRS 00035,0,00000                                                EXP30106
       FMP LAS820+00038,0,00000                                         EXP30107
       TRA 00001,4,00000                                                EXP30108
       OCT 210000000000                                                 EXP30109
       DEC 1.28500000000E02                                             EXP30110
       OCT 200000000000                                                 EXP30111
       DEC 7.07106781187E-01                                            EXP30112
       DEC 1.41421356237E00                                             EXP30113
       DEC 2.88539129030E00                                             EXP30114
       DEC 9.61470632300E-01                                            EXP30115
       DEC 5.98978649600E-01                                            EXP30116
       DEC 6.93147180560E-01                                            EXP30117
COMMON SYN -5                                                           EXP30118
 EXP1  SYN -6                                                           EXP30119
 BASE  SYN -7                                                           EXP30120
 TXL   SYN -8                                                           EXP30I21
 LOG   SYN LAS820                                                       EXP30I22
 EXP   SYN S816EX                                                       EXP30I23
       END                                                              EXP30124
       ABS                                                                                              
       REM CONTROL CARD FOR LOG.                                        LOG/CO1 
       ORG 0                                                            LOG/C02 
           42                                                           LOG/C03 
       PZE COMMON                                                       LOG/C04 
       BCD 1LOG                                                         LOG/C05 
       PZE                                                              LOG/C06 
       REM END OF LOG CONTROL CARD                                      LOG/C07 
       ORG                                                              LOG 0002
       REM LAS820 NATURAL LOGARITHM SUBROUTINE                          LOG 0003
LAS820 TZE 00001,4,00000                                                LOG 0004
       SSP                                                              LOG 0005
       LRS 00027,0,00000                                                LOG 0006
       STQ COMMON+00000,0,00000                                         LOG 0007
       ALS 00019,0,00000                                                LOG 0008
       ORA LAS820+00030,0,00000                                         LOG 0009
       FSB LAS820+00031,0,00000                                         LOG 0010
       STO COMMON+00001,0,00000                                         LOG 0011
       CLA COMMON+00000,0,00000                                         LOG 0012
       LRS 00008,0,00000                                                LOG 0013
       ORA LAS820+00032,0,00000                                         LOG 0014
       FAD LAS820+00033,0,00000                                         LOG 0015
       STO COMMON+00000,0,00000                                         LOG 0016
       FSB LAS820+00034,0,00000                                         LOG 0017
       FDH COMMON+00000,0,00000                                         LOG 0018
       STQ COMMON+00000,0,00000                                         LOG 0019
       FMP COMMON+00000,0,00000                                         LOG 0020
       STO COMMON+00002,0,00000                                         LOG 0021
       LDQ LAS820+00037,0,00000                                         LOG 0022
       FMP COMMON+00002,0,00000                                         LOG 0023
       FAD LAS820+00036,0,00000                                         LOG 0024
       LRS 00035,0,00000                                                LOG 0025
       FMP COMMON+00002,0,00000                                         LOG 0026
       FAD LAS820+00035,0,00000                                         LOG 0027
       LRS 00035,0,00000                                                LOG 0028
       FMP COMMON+00000,0,00000                                         LOG 0029
       FAD COMMON+00001,0,00000                                         LOG 0030
       LRS 00035,0,00000                                                LOG 0031
       FMP LAS820+00038,0,00000                                         LOG 0032
       TRA 00001,4,00000                                                LOG 0033
       OCT 210000000000                                                 LOG 0034
       DEC 1.28500000000E02                                             LOG 0035
       OCT 200000000000                                                 LOG 0036
       DEC 7.07106781187E-01                                            LOG 0037
       DEC 1.41421356237E00                                             LOG 0038
       DEC 2.88539129030E00                                             LOG 0039
       DEC 9.61470632300E-01                                            LOG 0040
       DEC 5.98978649600E-01                                            LOG 0041
       DEC 6.93147180560E-01                                            LOG 0042
COMMON SYN -3                                                           LOG 0043
       END                                                              LOG 0044
       REL                                                              F2SIN00I                        
       ORG 0                                                            F2SIN002
       REM FORTRAN LIBRARY VERSION OF IB SIN 1                          F2SIN003
       REM COMPUTES SINE OR COSINE OF A SINGLE PRECISION NORMALIZED     F2SIN004
       REM FLOATING POINT ARGUMENT. TSX SIN  OR  TSX COS . REL. ERROR   F2SIN005
       REM LESS THAN 1/2 X 10 TO -8. TIMING ABOUT 2.03 SIN, 2.I1  C0S.  F2SIN006
 COS   FSB FPHLF                                                        F2SIN007
       CHS                                                              F2SIN008
SIN    STO SPMLT                                                        F2SIN009
       LRS 9                                                            F2SIN010
       SXD SAVE,1                                                       F2SIN011
       PDX 0,1                                                          F2SIN012
 OVTST TNO NOVFL             OVERFLOW TEST                              F2SIN013
       SXD INDIC,4           OVERFLOW TO BE RESTORED                    F2SIN014
       TXH ERR,1,164                                                    F2SIN015
       LLS 19                                                           F2SIN016
       TXL SPEC,1,130                                                   F2SIN017
 LRTSH LRS 168,1             B3                                         F2SIN018
       DVH PI                PI...B3,  BQ...35                          F2SIN019
       RQL 35                LAST BIT TO SIGN MQ                        F2SIN020
       TQP FRLAR                                                        F2SIN021
       CHS                                                              F2SIN022
       STO SPMLT                                                        F2SIN023
  SAVE TXL FRLAR,0,**                                                   F2SIN024
   ERR TRA FINI-1                                                       F2SIN025
  EQUA SUB PIHLF                                                        F2SIN026
       SLW REDA                                                         F2SIN027
    SX TXI COMCA,1,2         COSC,  XR...4                              F2SIN028
       REM                   SPECIAL CASE, ANGLE NEED NOT BE REDUCED    F2SIN029
  SPEC TXL LOW,1,114                                                    F2SIN030
       PBT                                                              F2SIN031
       TRA SPEC+4                                                       F2SIN032
       TXH LRTSH,1,129                                                  F2SIN033
       LRS 133,1             B3                                         F2SIN034
       SSP                                                              FZSIN035
       LDQ TEST                                                         F2SIN036
       TLQ FRLAR+1                                                      F2SIN037
       STO REDA                                                         F2SIN038
       LXD SX,1                                                         F2SIN039
       TRA COMCA                                                        F2SIN040
 FRLAR SSP                                                              F2SIN041
       LXD SX,1                                                         F2SIN042
       CAS PIHLF                                                        F2SIN043
       SUB PI                LARGER THAN PIHLF                          F2SIN044
       SSP                   EQUAL TO PIHLF                             F2SIN045
       LDQ TEST                                                         F2SIN046
       TLQ EQUA                                                         F2SIN047
       STO REDA              ANGLE IN FIRSF QUADRANT, B3                F2SIN048
 FLOAT LRS 4                                                            F2SIN049
       ADD CHAR                                                         F2SIN050
       FAD CHAR+1            200                                        F2SIN05I
       LDQ SPMLT                                                        F2SIN052
       LLS 0                                                            F2SIN053
       STO SPMLT                                                        F2SIN054
       REM                   COMMON CALCULATION FOR SIN AND COS         F2SIN055
 COMCA LDQ Z                 COMMON CALC., B3                           F2SIN056
       MPR Z                                                            F2SIN057
       STO ZSQ               B6                                         F2SIN058
       ADD CONST+4,1         24.1B6, 50. B6                             F2SIN059
       STO SOR                                                          F2SIN060
       CLA CONST+5,1         2287B13, 1042B11                           F2SIN061
       DVH SOR                                                          F2SIN062
       STQ SOR                                                          F2SIN063
       CLA SOR                                                          F2SIN064
       ADD CONST+8,1         82.5B7, -19.B5                             F2SIN065
       ALS 1                 B6, BITS IN P,Q                            F2SIN066
       ADD ZSQ                                                          F2SIN067
       ARS 6,1               B8                                         F2SIN068
       TXL S,1,2                                                        F2SIN069
       STO SOR                                                          F2SIN070
       CLA ZSQ                                                          F2SIN071
       LRS 2                                                            F2SIN072
       ADD ZSQ                                                          F2SIN073
       LLS 1                                                            F2SIN074
       ADD CONST+5           -3276B13                                   F2SIN075
       DVH SOR                                                          F2SIN076
       STQ SOR                                                          F2SIN077
       CLA SOR                                                          F2SIN078
       ADD CONST+7           19.477B5                                   F2SIN079
       LRS 2                                                            F2SIN080
       SUB ZSQ                                                          F2SIN081
       LDQ SPMLT                                                        F2SIN082
       LLS 8                                                            F2SIN083
       PBT                                                              F2SIN084
       TXI RTSH,1,1          XR...5 FOR OCOS                            F2SIN085
 RTSH  ARS 13,1              9 OR 8                                     F2SIN086
       ACL CHAR+5,1          127 OR 128                                 F2SIN087
       LXD SAVE,1                                                       F2SIN088
  FINI TXH FINI+2,4,..                                                  F2SIN089
       TRA 1,4               LEAVE ON                                   F2SIN090
       TOV FINI+1            TURN OFF                                   F2SIN091
 S     ADD CHAR+1            126                                        F2SIN092
       STO ZSQ                                                          F2SIN093
       LDQ ZSQ                                                          F2SIN094
       FMP SPMLT                                                        F2SIN095
       TRA FINI-1                                                       F2SIN096
LOW    CLA FINI                                                         F2SIN097
       ALS 9                                                            F2SIN97A
       CLA SPMLT                                                        F2SIN97B
       TRA FINI-1                                                       F2SIN098
 NOVFL SXD INDIC,0           CLEAR DECREMENT OF INDIC                   F2SIN099
       TRA OVTST+2                                                      F2SIN100
       REM                   CONSTANTS                                  F2SIN101
 INDIC SYN FINI                                                         F2SIN102
 PI    DEC 3.14159265359B3                                              F2SIN103
 PIHLF DEC 1.57079632679B3                                              F2SIN104
 CHAR  OCT 177000000000                                                 F2SIN105
       OCT 200000000000                                                 F2SIN106
 TEST  DEC .3B3                                                         F2SIN107
 CONST DEC 24.1448946943B6,2287.443195687B13,50.0302454854B6            F2SIN108
       DEC 1042.9267081438B11,82.58030199563B7,-3276.33995164B13        F2SIN109
       DEC -19.8459242632B5,19.477149451B5                              F2SIN110
 FPHLF DEC 1.57079632679                                                F2SIN111
COMMON EQU -4                                                           F2SIN112
 SPMLT EQU COMMON                                                       F2SINI13
  REDA EQU COMMON+1                                                     F2SIN114
     Z EQU COMMON+1                                                     F2SIN115
   SOR EQU COMMON+2                                                     F2SIN116
   ZSQ EQU COMMON+3                                                     F2SIN117
       END 0                                                            F2SIN118
       REL                                                              F2EXP001                         
       ORG 0                                                            F2EXP002
       REM FLOATING POINT EXPONENTIAL SUBROUTINE, FORTRAN VERSION       F2EXP003
 EXP   STO M                 STORE ARGUMENT                             F2EXP004
       LDQ MAX               TEST IF 0UT OF RANGE                       F2EXP005
       TLQ 1,4               IF TOO LARGE ERROR RETURN                  F2EXP006
       CHS                                                              F2E6P007
       TLQ T1                IF TOO SMALL RETURN WITH ZERO              F2LXP008
       LRS 27                                                           F2EXP009
       SSM                                                              F2EXP010
       ADD CHAR              CONVERT TO FIXED POINT                     F2EXP011
       STA SH1                                                          F2EXP012
       MPY LOGE              X TIMES LOG E BASE 2                       F2EXP013
 SH1   LRS                   SEPARATE INTEGER AND FRACTION              F2EXP014
       ALS 27                                                           F2EXP015
       STO M                                                            F2EXP016
       LRS 4                                                            F2EXP017
       STQ F                                                            F2EXP018
       MPY F                 COMPUTE FRACTION SQUARED                   F2EXP019
       STO SQ                COMPUTE CONTINUED FRACTION                 F2EXP020
       ADD A                 8,27 SCALING                               F2EXP021
       STO T                 8,27                                       F2EXP022
       CLA B                 12,23                                      F2EXP023
       DVP T                 8,27 4,31                                  F2EXP024
       STQ T                 4,31                                       F2EXP025
       LDQ SQ                8,27                                       F2EXP026
       MPY C                 0,35 8,27                                  FZEXP027
       LLS 4                 4,31                                       F2EXP028
       SUB T                 4,3I                                       F2EXP029
       ADD D                 4,3I                                       F2EXP030
       SUB F                 4,3I                                       F2EXP031
       STO T                 4,3I                                       F2EXP032
       CLA F                 5,3I NUMERATOR EOUALS 2F                   F2EXP033
       DVP T                 4,31 1,34                                  F2EXP034
       STQ T                                                            F2EXP035
       CLA T                                                            F2EXP036
       LRS 8                                                            F2EXP037
       ORA CH1                                                                  
       FAD CH                                                                   
 T1    ADD M                                                            F2EXP039
       TRA 1,4               RETURN1                                    FZEXP040
       REM                   OONSTANTS                                  F2EXP041
 MAX   DEC 88.028                                                       F2EXP042
 LOGE  DEC -1.4426950409B1                                              F2EXP043
 CHAR  OCT 242                                                          F2EXP044
 CH    OCT 201400000000                                                 F2EXP045
   CH1 OCT 201000000000                                                         
 A     DEC 87.417497202B8                                               F2EXP046
 B     DEC 617.9722695B12                                               F2EXP047
 C     DEC .03465735903B0                                               F2EXP048
 D     DEC 9.9545957821B4                                               F2EXP049
       REM                   ERASABLES                                  F2EXP050
 M     EQU -1                                                           F2EXP051
 F     EQU -2                                                           F2EXP052
 SQ    EQU -3                                                           F2EXP053
 T     EQU -4                                                           F2EXP054
       END 0                                                            F2EXP055
       ABS                                                                                              
       REM CONTROL CARD FOR SQRT.                                       SQRT/C01
       ORG 0                                                            SQRT/C02
       PZE C+3                                                          SQRT/C03
       PZE COMMON                                                       SQRT/C04
       BCD 1SQRT                                                        SQRT/C05
       PZE                                                              SQRT/C06
       REM END OF SQRT CONTROL CARD.                                    SQRT/C07
       ORG 0                                                            SQRT0001
       REM CL SOR3 SQUARE ROOT SUBROUTINE                               SQRT0002
       REM FUNCTION NAME ... SQRTF                                      SQRT0003
 SQRT  TZE 1,4                    SQRT OF ZERO IS ZERO                  SQRT0004
       SSP                        SET SIGN X PLUS                       SQRT0005
 P2    STO COMMON                 X                                     SQRT0006
       ORA C                      MAKE POWER ODD                        SQRT0007
       ARS 1                                                            SQRT0008
       ADD C+1                    NORMALIZED Y0 IN A.C.                 SQRT0009
       SXD C+2,4                                                        SQRT0010
       LXA C+2,4                  4 TO INDEX                            SQRT0011
 P1    STO COMMON+1               S TO RE Y0                            SQRT0012
       CLA COMMON                 1X1 TO A.C.                           SQRT0013
       FDH COMMON+1               1C1/YO TO A.C.                        SQRT0014
       CLA COMMON+1               Y0 TO A.C.                            SQRT0015
       STQ COMMON+1               Q1 TO COMMON+1                        SQRT0016
       FAD COMMON+1               Y0+Q1 TO A.C.                         SQRT0017
       SUB C                      (Y0+Q1)/2 TO A.C.                     SQRT0018
       TIX P1,4,1                 REDUCE INDEX BY 1                     SQRT0019
       LXD C+2,4                                                        SQNT0020
       TRA 1,4                                                          SQRT0021
 C     OCT 1000000000,100000000000,4                                    SQRT0022
COMMON SYN -2                                                           SQRT0023
       END                                                              SQRT0024
       REL                                                              F2ATN001                        
       ORG 0                                                            F2ATN002
       REM FL0ATING POINT ARCTANGENT SUBROUTINE, FORTRAN VERSION        F2ATN003
 ATAN  SXD I1,1              SAVE INDEX REGISTER ONE                    F2ATN004
       TMI T100              SET ARGU0ENT POSITIVE                      F2ATN005
 T30   STO X                 STORE ARGUMENT                             F2ATN006
       SUB MAX               TEST IF OUT OF RANGE                       F2ATN007
       TMI T21                                                          F2ATN008
       CLA PI0V2             IF TOO LARGE, RETURN WITH PI/2             F2ATN009
       TRA 1,4                                                          F2ATN010
 T21   ADD MIN                                                          F2ATN011
       TPL T22                                                          F2ATN012
       CLA X                                                            F2ATN013
       TRA 1,4               IF TOO SMALL, RETURN WITH ARGUMENT         F2ATN014
 T22   LXA I1,1                                                         F2ATN015
 T17   CLA X                 TEST FOR INTERVAL CONTAINING X             F2ATN016
       SUB A,1                                                          F2ATN017
       TMI T1                                                           F2ATN018
       TXI T17,1,1                                                      F2ATN019
 T1    TXH T2,1,0            IF IN INTERVAL ONE LET Z=9X/55             F2ATN020
       LDQ X                                                            F2ATN021
       FMP L                                                            F2ATN022
       TRA T11                                                          F2ATN023
 T2    PXD 0,1               TAKE NEGATIVE OF INDEX REGISTER ONE        F2ATN024
       SUB CHAR                                                         F2ATN025
       PDX 0,1                                                          F2ATN026
 T3    CLA X                 COMPUTE Z=A-B/O+X FOR PROPER INTERVAL      F2ATN027
       FAD MAX,1                                                        F2ATN028
       STO T                                                            F2ATN029
       CLS B,1                                                          F2ATN030
       FDP T                                                            F2ATN03I
       STQ T                                                            F2ATN032
       CLA T                                                            F2ATN033
       FAD A,1                                                          F2ATN034
 T11   STO X                                                            F2ATN035
       LDQ X                                                            F2ATN036
       FMP X                 COMPUTE Z SQUARED                          F2ATN037
       STO SQ                COMPUTE CONTINUED FRACTION                 F2ATN038
       FAD C1                                                           F2ATN039
       STO T                                                            F2ATN040
       CLS C2                                                           F2ATN041
       FDP T                                                            F2ATN042
       STQ T                                                            F2ATN043
       CLA T                                                            F2ATN044
       FAD C3                                                           F2ATN045
       FAD SQ                                                           F2ATN046
       STO T                                                            F2ATN047
       CLA X                                                            F2ATN048
       FDP T                                                            F2ATN049
       STQ T                                                            F2ATN050
       CLA T                                                            F2ATN051
       FAD N,1               ADD INTERVAL CONSTANT                      F2ATN052
       LXD I1,1                                                         F2ATN053
       TRA 1,4               RETURN                                     F2ATN054
 T100  SXD I4,4              IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE  F2ATN055
       SSP                                                              F2ATN056
       TSX T30,4             ARRANGE TO SET RETURN NEGATIVE             F2ATN057
       LXD I4,4                                                         F2ATN058
       SSM                                                              F2ATN059
       TRA 1,4                                                          F2ATN060
       REM                   CONSTANTS                                  F2ATN061
 MIN   OCT 070000000000                                                 F2ATN062
 MAX   OCT 233000000000                                                 F2ATN063
       DEC 2.7474774195                                                 F2ATN064
       DEC 1.1917535926                                                 F2ATN065
       DEC .57735026919                                                 F2ATN066
 A     DEC .17632698071                                                 F2ATN067
       DEC .44958721409                                                 F2ATN068
       DEC .19501422424                                                 F2ATN069
       DEC .94475498595E-1                                              F2ATN070
 B     DEC .288535059E-1                                                F2ATN071
       DEC 1.398867082                                                  F2ATN072
       DEC .39604526598                                                 F2ATN073
       DEC .21818181818                                                 F2ATN074
       DEC .1687240152                                                  F2ATN075
 N     DEC 0                                                            F2ATN076
       DEC .3490658504                                                  F2ATN077
       DEC .6981317008                                                  F2ATN078
       DEC 1.047197551                                                  F2ATN079
       DEC 1.396263402                                                  F2ATN080
 C1    DEC .051119459                                                   F2ATN081
 C2    DEC .00270998425                                                 F2ATN082
 C3    DEC .21664913599                                                 F2ATN083
 L     DEC .16363636363                                                 F2ATN084
 PI0V2 DEC 1.57079633                                                   F2ATN085
 I1                                                                     F2ATN086
 I4                                                                     F2ATN087
 CHAR  OCT 200000000000                                                 F2ATN088
       REM                   ERASABLES                                  F2ATN089
 X     EQU -1                                                           F2ATN090
 T     EQU -2                                                           F2ATN091
 SQ    EQU -3                                                           F2ATN092
       END 0                                                            F2ATN093
       REL                                                              F2TNH001                        
       ORG 0                                                            F2TNH002
       REM FLOATING POINT HYPERBOLIC TANGENT SUBROUTINE, FORTRAN VERSIONF2TNH003
 TANH  STO F                                                            F2TNH004
       SSP                                                              F2TNH005
       SUB MIN                                                          F2TNH006
       TPL T5                                                           F2TNH007
       CLA F                 TEST IF ARGUMENT LESS THAN .00034          F2TNH008
       TRA 1,4               IF SO LET TANH X EOUAL X                   F2TNH009
 T5    SUB MAX                TEST IF ARGUMENT LARGER THAN 12           F2TNH010
       TMI T6                                                           F2TNH011
       CLA CH                IF SO LET TANH X EQUAL ONE                 F2TNH012
       TRA 1,4                                                          F2TNH013
 T6    CLA F                                                            F2TNH014
       LRS 27                                                           F2TNH015
       SSM                                                              F2TNH016
       ADD CHAR              CONVERT T0 FIXED POINT                     F2TNH017
       STA SH1                                                          F2TNH018
       MPY LOGE              X TIMES LOG E BASE 2                       F2TNH019
 SH1   LRS                   SEPARATE INTEGER AND FRACTION              F2TNH020
       ALS 27                                                           F2TNH021
       STO M                                                            F2TNH022
       LLS 2                                                            F2TNH023
       TZE T2                IF ARGUMENT LESS THAN .25 TRANSFER         F2TNH024
       LRS 6                 IF GREATER COMPUTE E TO THE X              F2TNH025
       STQ F                                                            F2TNH026
       MPY F                 COMPUTE FRACTION SQUARED                   F2TNH027
       STO SQ                COMPUTE CONTINUED FRACTION                 F2TNH028
       ADD A                 8,27 SCALING                               F2TNH029
       STO T                 8,27                                       F2TNH030
       CLA B                 12,23                                      F2TNH031
       DVP T                 8,27 4,31                                  F2TNH032
       STQ T                 4,3I                                       F2TNH033
       LDQ SQ                8,27                                       F2TNH034
       MPY C                 00,35 8,27                                 F2TNH035
       LLS 4                 4,31                                       F2TNH036
       SUB T                 4,31                                       F2TNH037
       ADD D                 4,31                                       F2TNH038
       SUB F                 4,31                                       F2TNH039
       STO T                 4,31                                       F2TNH040
       CLA F                 5,31 NUMERATOR EQUALS 2F                   F2TNH041
       DVP T                                                            F2TNH042
       STQ T                                                            F2TNH043
       CLA T                                                            F2TNH044
       LRS 8                                                            F2TNH045
       ADD CH                ADD ONE ANO CONVERT TO FLOATING POINT      F2TNH046
 T1    ADD M                                                            F2TNH047
       STO M                 COMPUTE TANH X FROM E TO THE X             F2TNH048
       CLA CH                                                           F2TNH049
       FDP M                                                            F2TNH050
       STQ F                                                            F2TNH051
       CLA M                                                            F2TNH052
       FAD F                                                            F2TNH053
       STO T                                                            F2TNH054
       CLA M                                                            F2TNH055
       FSB F                                                            F2TNH056
 T10   FDP T                                                            F2TNH057
       STQ T                                                            F2TNH058
       CLA T                                                            F2TNH059
       TRA 1,4               RETURN                                     F2TNH060
 T2    LDQ F                 COMPUTE TANH 4LOGE IF X SMALL              F2TNH061
       FMP 4LOGE             COMPUTE X TIMES 4LOGE                      F2TNH062
       STO F                                                            F2TNH063
       LDQ F                                                            F2TNH064
       FMP F                                                            F2TNH065
       STO SQ                                                           F2TNH066
       FAD D1                COMPUTE CONTINUED FRACTION                 F2TNH067
       STO T                                                            F2TNH068
       CLA C1                                                           F2TNH069
       FDP T                                                            F2TNH070
       STQ T                                                            F2TNH071
       CLA T                                                            F2TNH072
       FAD B1                                                           F2TNH073
       LRS 35                                                           F2TNH074
       FMP SQ                                                           F2TNH075
       FAD 4LOGE                                                        F2TNH076
       STO T                                                            F2TNH077
       CLA F                                                            F2TNH078
       TRA T10                                                          F2TNH079
       REM                   CONSTANTS                                  F2TNH080
 MAX   OCT 017000000000                                                 F2TNH081
 MIN   DEC .00034                                                       F2TNH082
 LOGE  DEC 1.4426950409B1                                               F2TNH083
 CHAR  OCT 242                                                          F2TNH084
 CH    OCT 201400000000                                                 F2TNH085
 A     DEC 87.417497202B8                                               F2TNH086
 B     DEC 617.9722695B12                                               F2TNH087
 C     DEC .03465735903B0                                               F2TNH088
 D     DEC 9.9545957821B4                                               F2TNH089
 B1    DEC .01732867951                                                 F2TNH090
 C1    DEC 14.1384114018                                                F2TNH091
 D1    DEC 349.6699888                                                  F2TNH092
 4LOGE DEC 5.7707801636                                                 F2TNH093
       REM                   ERASABLES                                  F2TNH094
 M     EQU -1                                                           F2TNH095
 F     EQU -2                                                           F2TNH096
 SQ    EQU -3                                                           F2TNH097
 T     EQU -4                                                           F2TNH098
       END 0                                                            F2TNH099
       REM           FNEDT2       REVISED FORTRAN EDITING PROGRAM       EDT 0001                        
       REM                                                              EDT 0002
       ORG 32                                                           EDT 0003
       REW 1                      REWIND                                EDT 0004
       REW 5                           TAPES                            EDT 0005
       CAL IDEOF                  INITIALISE THIS CARD                  EDT 0006
       SLW THISCD                      TO END FILE                      EDT 0007
       TSX ONE2CS,4               TSX TO TRANSCRIBE SPECIAL FIRST RCD   EDT 0008
REENTR CAL THISCD                 MAIN LOOP REENTRY                     EDT 0009
       ALS 3                           MOVE THIS CARD                   EDT 0010
       SLW LASTCD                      INTO LAST CARD                   EDT 0011
       RCD                        READ                                  EDT 0012
       LXD ZERO14,1                    THE NEXT CARD                    EDT 0013
A1     CPY CDBUF,1                     INTO                             EDT 0014
       TXI A1,1,-1                     CARD BUFFER                      EDT 0015
A2     HTR A2                     FALSE END OF FILE IN READING CARD     EDT 0016
       CAL CDBUF                  TEST                                  EDT 0017
       COM                                                              EDT 0018
       STD A4                                                           EDT 0019
       CAL CDBUF                       CHECK                            EDT 0020
       LXD ZERO14,1                                                     EDT 0021
A3     TXI A4,1,-1                                                      EDT 0022
A4     TXL A5,1,*                      SUM                              EDT 0023
       ACL CDBUF+1,1                                                    EDT 0024
       TRA A3                                                           EDT 0025
A5     COM                                                              EDT 0026
       ACL CDBUF+1                                                      EDT 0027
       COM                                                              EDT 0028
       TZE A6                                                           EDT 0029
       HPR                        CHECK SUM ERROR IN READING CARD       EDT 0030
A6     CAL CDBUF                  SET UP                                EDT 0031
       ARS 33                          THIS CARD                        EDT 0032
       STA THISCD                      AND                              EDT 0033
       ORA LASTCD                      SITUATION                        EDT 0034
       SLW SITWD                       WORD                             EDT 0035
       LXA ZERO14,1               TABLE SEARCH                          EDT 0036
A7     CAL TABLE+14,1                                                   EDT 0037
       LRS 18                          FOR                              EDT 0038
       CAS SITWD                                                        EDT 0039
       TRA A8                          SITUATION                        EDT 0040
       TRA A9                                                           EDT 0041
A8     TIX A7,1,1                                                       EDT 0042
ILLEGL HTR ILLEGL                 SEARCH FAILED. ILLEGAL SITUATION.     EDT 0043
A9     LLS 18                                                           EDT 0044
       STA A10                                                          EDT 0045
A10    TRA *                                                            EDT 0046
       REM                                                              EDT 0047
       REM         THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES    EDT 0048
       REM                                                              EDT 0049
EOFEND TSX LB,4                   SEQUENCE EOF-END                      EDT 0050
EOFMR  TSX SAVE,4                 SEQUENCE EOF-MR                       EDT 0051
       TSX CLEAR,4                                                      EDT 0052
       TSX READ,4                                                       EDT 0053
       TRA REENTR                                                       E0T 0054
EOFNR  TSX SAVE,4                 SEQUENCE EOF-NR                       E0T 0055
       TSX CLEAR,4                                                      EDT 0056
       TRA REENTR                                                       EDT 0057
PRGEND TSX WRITE,4                SEQUENCE PROG-END                     EDT 0058
       TSX LB,4                        MR-END                           EDT 0059
PRGEOF TSX WRITE,4                SEQUENCE PR0G-EOF                     EDT 0060
       WEF 145                         MR-EOF                           EDT 0061
       TRA REENTR                                                       EDT 0062
PRGPRG TSX MOVE,4                 SEQUENCE PROG-PROG                    EDT 0063
       TRA REENTR                      MR-PR0G, NR-PROG                 EDT 0064
PRGMR  TSX WRITE,4                SEQUENCE PROG-MR                      EDT 0065
       TSX SAVE,4                      MR-MR                            EDT 0066
       TSX CLEAR,4                                                      EDT 0067
       TSX READ,4                                                       EDT 0068
       TRA REENTR                                                       EDT 0069
PRGNR  TSX WRITE,4                SEQUENCE PROG-NR                      EDT 0070
       TSX SAVE,4                      MR-NR                            EDT 0071
       TSX CLEAR,4                                                      EDT 0072
       TRA REENTR                                                       EDT 0073
TABLE      EOFEND,0,39            TABLE OF SITUATIONS                   EDT 0074
           EOFMR,0,33                                                   EDT 0075
           EOFNR,0,34                                                   EDT 0076
           PRGEND,0,7                                                   EDT 0077
           PRGEOF,0,4                                                   EDT 0078
           PRGPRG,0,0                                                   EDT 0079
           PRGMR,0,1                                                    EDT 0080
           PRGNR,0,2                                                    EDT 0081
           PRGEND,0,15                                                  EDT 0082
           PRGEOF,0,12                                                  EDT 0083
           PRGPRG,0,8                                                   E0T 0084
           PRGMR,0,9                                                    EDT 0085
           PRGNR,0,10                                                   EDT 0086
           PRGPRG,0,16                                                  EDT 0087
ZERO14     14                                                           EDT 0088
IDEOF      4                                                            EDT 0089
THISCD                                                                  EDT 0090
LASTCD                                                                  EDT 0091
SITWD                                                                   EDT 0092
CDBUF  SYN 8                                                            EDT 0093
       REM         THERE FOLLOW THE 7 SUBROUTINES                       EDT 0094
       REM              ONE2CS, LB, SAVE, CLEAR, READ, WRITE, MOVE      EDT 0095
       REM                                                              EDT 0096
ONE2CS RTT                        TRANSCRIBES                           EDT 0097
       NOP                             SPECIAL                          EDT 0098
       RTB 5                           IST RECORD                       EDT 0099
       LXD ZERO14,1                                                             
       LXA ZEROTW,2                                                             
       RCD                                                                      
CS1    CPY MAINBF,1                                                             
       TXI CS1,1,-1                                                             
       HTR *                                                                    
       TIX CS1-1,2,1                                                            
       LXD ZERO14,1                                                             
       WTB 1                                                                    
CS2    CPY MAINBF,1                                                             
       TXI CS3,1,-1                                                             
CS3    TXH CS2,1,-27                                                            
       IOD                                                                      
       TRA 1,4                                                                  
ZEROTW     2                                                                    
       REM                                                              EDT 0124
LB     RCD                        PRESSES LOAD CARDS BUTTON             EDT 0125
       CPY 0                                                            EDT 0126
       CPY 1                                                            EDT 0127
       TRA 0                                                            EDT 0128
       REM                                                              EDT 0129
SAVE   CAL CDBUF+2                SAVES CONTROL INFORMATION             EDT 0130
       SLW EIGHTL                      FROM MR OR NR CARD               EDT 0131
       STA NEWBEG                                                       EDT 0132
       CAL CDBUF+3                                                      EDT 0133
       SLW EIGHTR                                                       EDT 0134
       TRA 1,4                                                          EDT 0135
EIGHTL                                                                  EDT 0136
EIGHTR                                                                  EDT 0137
NEWBEG                                                                  EDT 0138
       REM                                                              EDT 0139
CLEAR  PXD 0,0                    CLEARS MAIN BUFFER                    EDT 0140
       LXA BUFSIZ,1                                                     EDT 0141
CL1    SLW 0,1                                                          EDT 0142
       TIX CL1,1,1                                                      EDT 0143
       TRA 1,4                                                          EDT 0144
BUFSIZ     -MAINBF                                                      EDT 0145
       REM                                                              EDT 0I46
READ   RTT                        READS RECORD                          EDT 0147
       NOP                             FROM                             EDT 0148
       RTB 5                           1NSTER TAPE                      EDT 0149
       PXD 0,0                         INTO MAIN BUFFER                 EDT 0I50
       LXD ZERO14,1                                                     EDT 0I51
       CPY CHKSUM                                                       EDT 0152
       TRA RD1                                                          EDT 0153
       TRA READ                                                         EDT 0154
RD1    CAD FSTWD                                                        EDT 0155
       ANA ADDMK                                                        EDT 0156
       SUB NEWBEG                                                       E0T 0157
       TMI RD6                                                          E0T 0158
       COM                                                              EDT 0159
RD2    PAX 0,1                                                          EDT 0160
       CAL FSTWD                                                        EDT 0161
RD3    TXL RD7,1,MAINBF-1                                               EDT 0162
       CAD MAINBF-1,1                                                   E0T 0163
RD4    TXI RD3,1,-1                                                     E0T 0164
L1     HTR 1                      FALSE EOF IN READING MASTER TAPE      EDT 0165
RD5    RQL 255                                                          EDT 0166
       RQL 255                                                          EDT 0167
       RTT                                                              EDT 0I68
       TRA RD8                                                          EDT 0169
       COM                                                              EDT 0170
       ACL CHKSUM                                                       EDT 0171
       COM                                                              EDT 0172
       TNZ RD8                                                          EDT 0173
       TRA 1,4                                                          EDT 0174
RD6    ADD L1                                                           EDT 0175
       TRA RD2                                                          EDT 0176
RD7    CAD 0                                                            EDT 0I77
       TRA RD4                                                          EDT 0I78
       TRA L1                                                           EDT 0179
       TRA RD5                                                          EDT 0180
RD8    BST 5                                                            EDT 0181
       HTR READ                   ERROR IN READING MASTER TAPE          EDT 0182
CHKSUM                                                                  EDT 0183
FSTWD                                                                   EDT 0184
ADDMK      -1                                                           EDT 0185
       REM                                                              EDT 0186
WRITE  CLA EIGHTR                 WRITES RECORD FROM MAIN BUFFER        EDT 0187
       SUB NEWBEG                      INTO SECONDARY TAPE              EDT 0188
       TMI 1,4                                                          EDT 0189
       ALS 18                                                           EDT 0190
       COM                                                              EDT 0191
       STD WR2                                                          EDT 0192
       STD WR4                                                          EDT 0193
       LXD ZERO14,3                                                     EDT 0194
       CAL EIGHTL                                                       EDT 0195
WR1    ACL MAINBF,1                                                     EDT 0196
       TXI WR2,1,-1                                                     EDT 0197
WR2    TXH WR1,1,*                                                      EDT 0198
       SLW CHKSUM                                                       EDT 0199
       WTB 1                                                            EDT 0200
       CPY CHKSUM                                                       EDT 0201
       CPY EIGHTL                                                       EDT 0202
WR3    CPY MAINBF,2                                                     EDT 0203
       TXI WR4,2,-1                                                     EDT 0204
WR4    TXH WR5,2,*                                                      EDT 0205
       TRA 1,4                                                          EDT 0206
WR5    TXH WR3,2,MAINBF                                                 EDT 0207
       HTR 1,4                    TRYING TO WRITE TOO LONG A RECORD     EDT 0208
       REM                                                              EDT 0209
MOVE   CAL CDBUF                  MOVES A PROGRAM CARD FROM             EDT 0210
       COM                             THE CARD BUFFER INTO THE         EDT 0211
       STD MV3                         CORRECT PART OF THE MAIN BUFFER  EDT 0212
       LXD ZERO14,1                                                     EDT 0213
       CAL CDBUF                                                        EDT 0214
       ANA ADDMK                                                        EDT 0215
       SUB NEWBEG                                                       EDT 0216
       TMI MV5                                                          EDT 0217
       COM                                                              EDT 0218
MV1    PAX 0,2                                                          EDT 0219
MV2    TXI MV3,1,-1                                                     EDT 0220
MV3    TXL MV6,1,*                                                      EDT 0221
       CAL CDBUF+1,1                                                    EDT 0222
       TXL MV4,2,MAINBF-1                                               EDT 0223
       SLW MAINBF-1,2                                                   EDT 0224
MV4    TXI MV2,2,-1                                                     EDT 0225
MV5    ADD L1                                                           EDT 0226
       TRA MV1                                                          EDT 0227
MV6    TRA 1,4                                                          EDT 0228
       REM                                                              EDT 0229
MAINBF                            MAIN BUFFER STARTS HERE               EDT 0230
       END 32                                                           EDT 0231
       END                                                                      
START  LXA L(0),3            PERMANENT LIBRARIAN ENTRY POINT                    
       STZ ERASE                                                                
RCD    RCD                                                                      
       CAD 9L                                                                   
       TRA CPY9R                                                                
       TRA EXIT              EOF                                                
CPY9R  CPY 9R                                                                   
       CLA 9L                                                                   
       TZE EXIT                                                                 
       COM                                                                      
       PDX 0,4                                                                  
       TXI CPY9R+6,4,1                                                          
       TXL PASSGL,4,-64                                                         
       CLA 9L                                                                   
       ALS 1                                                                    
       PBT                                                                      
       TRA BINARY CARD                                                          
       TXI CPAREL-2,4,-2                                                        
       SXD TXHREL,4                                                             
       PXD                                                                      
       STZ ERASE                                                                
CPAREL CAD RELREG,2                                                             
       TXI TXHREL,2,-1                                                          
TXHREL TXH CPAREL,2,*                                                           
       TSX CHSTST,4                                                             
       WTB 1                                                                    
       TXL TSXREL,1,0                                                           
       TSX WRBIN,4                                                              
       WTB 1                                                                    
TSXREL TSX WRREL,4                                                              
       STZ 9LB,0,STZ                                                            
       STZ 9RB,0,STZ                                                            
       TRA RCD                                                                  
BINARY PXD                                                                      
CPABIN CAD BINREG,1                                                             
       TXI TXHBIN-1,1,-1                                                        
       TXI TXHBIN,4,1                                                           
TXHBIN TXH CPABIN,4,0                                                           
       TSX CHSTST,4                                                             
       CLA 9L                                                                   
       ADD 9LB                                                                  
       STO 9LB                                                                  
       CLA ERASE                                                                
       TZE CHER                                                                 
       CLA 9R                                                                   
       TMI CHSIGN                                                               
       ACL L(1)                                                                 
       TRA NORM                                                                 
CHSIGN SSP                                                                      
NORM   SLW 9R                                                                   
       CAL 9R                                                                   
       ACL 9RB                                                                  
       SLW 9RB                                                                  
       TRA RCD                                                                  
CHER   CLA L(1)                                                                 
       STO ERASE                                                                
       TRA NORM+1                                                               
CHSTST ACL 9L                                                                   
       SLW CHS                                                                  
       IOD                                                                      
       IOD                                                                      
       CLA 9R                                                                   
       CAS CHS                                                                  
       HTR 1,4               CARD READING ERROR                                 
       TRA 1,4                                                                  
       TRA WRREL-3                                                              
WRREL  CLA LIREL)                                                               
       STA CPY                                                                  
       SXD CPY+2,2                                                              
       CPY 9L                                                                   
       LXA L(0),2                                                               
       CPY 9R                                                                   
RETURN TXL XR,0                                                                 
WRBIN  CLA LIBIN)                                                               
       STA CPY                                                                  
       CPY 9LB                                                                  
       SXD CPY+2,1                                                              
       LXA L(0),1                                                               
       CPY 9RB                                                                  
XR     SXD RETURN,4                                                             
       LXA L(0),4                                                               
CPY    CPY *,4                                                                  
       TXI CPY+2,4,-1                                                           
       TXH CPY,4,*                                                              
       LXD RETURN,4                                                             
       IOD                                                                      
       IOD                                                                      
       TRA 1,4                                                                  
EXIT   RCD                                                                      
       CPY 0                                                                    
       CPY 1                                                                    
       TRA 0                                                                    
PASSGL LXD PASSGL+3,4        BY-PASS                                            
       RCD                   GENERAL                                            
       TIX PASSGL+1,4,1      LIBRARIAN                                          
       TXL RCD-2,0,14        G.L. CARD COUNT                                    
LIBIN)     BINREG                                                               
LIREL)     RELREG                                                               
CHS                                                                             
L(0)                                                                            
9L                                                                              
9R                                                                              
9LB                                                                             
9RB                                                                             
ERASE  HTR 0                                                                    
L(1)   OCT 377777777777                                                         
RELREG BSS 22                                                                   
BINREG BSS 1                                                                    
STZ    EQU 24576                                                                
       END START                                                                
       REM GENERAL LIBRARIAN    GLIB2                                                                   
       ORG 24                                                                   
DUP000 REW SOURCE            GENERAL LIBRARIAN                                  
       REW OBJECT                                                               
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       LXD DUP020,7          INITIALIZE INDEX REGISTERS TO 27                   
       RDS SOURCE            READ 1-CS FROM SOURCE                              
DUP010 CPY RECORD+27,1                                                          
       TXI DUP010,1,-1                                                          
DUP020 HTR 0,0,27            MACHINE ERROR                                      
       IOD                   EOR-DELAY                                          
       RTT                                                                      
       HTR DUP000            RTT ERROR-- TRY AGAIN                              
       WRS OBJECT            WRITE 1-CS ONT0 OBJECT                             
DUP030 CPY RECORD+27,2                                                          
       TIX DUP030,2,1                                                           
       IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
DUP031 TXH DUP170,0,0                                                           
       BST OBJECT                                                               
       RDS OBJECT            READ BACK 1-CS FROM OBJECT                         
DUP040 CPY DUMMY                                                                
       TRA DUP050                                                               
       HTR                                                                      
       TRA DUP060            EOR                                                
DUP050 CLA RECORD+27,4                                                          
       CAS DUMMY                                                                
       HTR DUP000            WORD COMP. FAILS-READING                           
       TXI DUP040,4,-1                                                          
       HTR DUP000            FROM OBJECT                                        
DUP060 TXH DUP280,4,0        ERROR-INCOMPLETE OBJECT RECORD                     
       IOD                                                                      
       RTT                                                                      
       HTR DUP000            RTT ERROR READING BACK OBJECT 1-CS                 
DUP070 LXD DUP031,7          INITIALIZE INDEX REG TO 0                          
       PXD                   CLEAR AC                                           
DUP071 RDS SOURCE            READ SOURCE 1ST/2ND FILE RECORD              -     
       CPY RECORD,1                                                             
       TXI DUP090,1,-1                                                          
DUP080 TRA DUP160            EOF                                                
       HTR                   MACHINE ERROR                                      
DUP090 CAD RECORD,1                                                             
       TXI DUP090,1,-1                                                          
       HTR                   MACHINE ERROR                                      
       COM                   EOR                                                
       ACL RECORD                                                               
       COM                                                                      
       TZE DUP100                                                               
       HTR DUP290            CKSM FAILS READING SOURCE 1ST/2ND FILE             
DUP100 IOD                                                                      
       RTT                                                                      
       HTR DUP300            RTT ERROR-BST AND TRY AGAIN                        
       SXD DUP120,1                                                             
       SXD DUP150,1                                                             
       WRS OBJECT            WRITE OBJECT 1ST/2ND FILE RECORD                   
DUP110 CPY RECORD,2                                                             
       TXI DUP120,2,-1                                                          
DUP120 TXH DUP110,2,**                                                          
DUP121 IOD                                                                      
       RTT                   TU0N OFF RTT TRIGGER                               
       TXH                                                                      
       BST OBJECT                                                               
       RDS OBJECT            READ BACK OBJECT 1ST/2ND FILE RECORD               
DUP130 CPY DUMMY                                                                
       TRA DUP140                                                               
       HTR                   MACHINE ERROR                                      
       TRA DUP150            EOR                                                
DUP140 CLA RECORD,4                                                             
       CAS DUMMY                                                                
       HTR DUP310            COMP. ERROR ON 1ST/2ND FILE RECORD                 
       TXI DUP130,4,-1                                                          
       HTR DUP310            COMP. ERROR ON 1ST/2ND FILE RECORD.                
DUP150 TXH DUP320,4,**       ERROR-INCOMPLETE OBJECT RECORD                     
       IOD                                                                      
       RTT                                                                      
       HTR DUP310            RTT ERROR-BST AN0 TRY AGAIN                        
       TRA DUP070                                                               
DUP160 IOD                                                                      
       RTT                                                                      
       HTR DUP340            RTT ERROR - BST TWICE ON SOURCE                    
       WEF OBJECT            WRITE 1ST EOF                                      
       IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       CLA DUP031                                                               
       STA DUP080                                                               
       TRA DUP070                                                               
DUP170 IOD                                                                      
       RTT                                                                      
       HTR DUP340            RTT ERROR- BST TWICE ON SOURCE                     
       WEF OBJECT            WRITE 2ND EOF                                      
DUP171 IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
DUP180 LXD DUP031,7          INITIALIZE INDEX REG TO 0                          
       PXD                   CLEAR AC                                           
DUP181 RDS SOURCE            READ SOURCE 3RD FILE RECORD                        
       CAD RECORD,1                                                             
       TXI DUP190,1,-1                                                          
       HTR                   FALSE 3RD FILE EOF MARK.                           
       HTR                   MACHINE ERROR                                      
DUP190 CPY RECORD,1          CPY CKSM INTO RECORD+1                             
       TXI DUP200,1,-1                                                          
DUP200 CAD RECORD,1                                                             
       TXI DUP200,1,-1                                                          
       HTR                   MACHINE ERROR                                      
SWITCH NOP                                                                      
       COM                   EOR                                                
       ACL RECORD+1                                                             
       COM                                                                      
       TZE DUP210                                                               
       HTR DUP350            CKSM FAILS READING SOURCE 3RD FILE                 
DUP210 IOD                                                                      
       RTT                                                                      
       HTR DUP350            RTT ERROR-BST                                      
       SXD DUP230,1                                                             
       SXD DUP260,1                                                             
       WRS OBJECT            WRITE OBJECT 3RD FILE RECORD                       
DUP220 CPY RECORD,2                                                             
       TXI DUP230,2,-1                                                          
DUP230 TXH DUP220,2,**                                                          
DUP231 IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       BST OBJECT                                                               
       RDS OBJECT            READ BACK  OBJECT 3RD FILE RECORD                  
DUP240 CPY DUMMY                                                                
       TRA DUP250                                                               
       HTR                   MACHINE ERROR                                      
       TRA DUP260            EOR                                                
DUP250 CLA RECORD,4                                                             
       CAS DUMMY                                                                
       HTR DUP360            COMP. ERROR ON 3RD FILE                            
       TXI DUP240,4,-1                                                          
       HTR DUP360            ERROR- INCOMPLETE OBJECT RECORD                    
DUP260 TXH DUP370,4                                                             
       IOD                                                                      
       RTT                                                                      
       HTR DUP360                                                               
       CAL RECORD+4                                                             
       SUB NAME                                                                 
       TNZ DUP180                                                               
       CAL TRAN                                                                 
       SLW SWITCH                                                               
       TRA DUP180                                                               
EXIT1  LXA L(0),3                                                               
       STZ ERASE                                                                
RCD    RCD                                                                      
       CAD 9L                                                                   
       TRA CPY9R                                                                
       TRA EXIT              EOF                                                
CPY9R  CPY 9R                                                                   
       CLA 9L                                                                   
       TZE EXIT                                                                 
       COM                                                                      
       PDX 0,4                                                                  
       TXI CPY9R+6,4,1                                                          
       CLA 9L                                                                   
       ALS 1                                                                    
       PBT                                                                      
       TRA BINARY CARD                                                          
       TXI CPAREL-2,4,-2                                                        
       SXD TXHREL,4                                                             
       PXD                                                                      
       STZ ERASE                                                                
CPAREL CAD RELREG,2                                                             
       TXI TXHREL,2,-1                                                          
TXHREL TXH CPAREL,2,*                                                           
       TSX CHSTST,4                                                             
       WTB 1                                                                    
       TXL TSXREL,1,0                                                           
       TSX WRBIN,4                                                              
       WTB 1                                                                    
TSXREL TSX WRREL,4                                                              
       STZ 9LB,0,STZ                                                            
       STZ 9RB,0,STZ                                                            
       TRA RCD                                                                  
BINARY PXD                                                                      
CPABIN CAD BINREG,1                                                             
       TXI TXHBIN-1,1,-1                                                        
       TXI TXHBIN,4,1                                                           
TXHBIN TXH CPABIN,4,0                                                           
       TSX CHSTST,4                                                             
       CLA 9L                                                                   
       ADD 9LB                                                                  
       STO 9LB                                                                  
       CLA ERASE                                                                
       TZE CHER                                                                 
       CLA 9R                                                                   
       TMI CHSIGN                                                               
       ACL L(1)                                                                 
       TRA NORM                                                                 
CHSIGN SSP                                                                      
NORM   SLW 9R                                                                   
       CAL 9R                                                                   
       ACL 9RB                                                                  
       SLW 9RB                                                                  
       TRA RCD                                                                  
CHER   CLA L(1)                                                                 
       STO ERASE                                                                
       TRA NORM+1                                                               
CHSTST ACL 9L                                                                   
       SLW CHS                                                                  
       IOD                                                                      
       IOD                                                                      
       CLA 9R                                                                   
       CAS CHS                                                                  
       HTR 1,4               CARD READING ERROR                                 
       TRA 1,4                                                                  
       TRA WRREL-3                                                              
WRREL  CLA L(REL)                                                               
       STA CPY                                                                  
       SXD CPY+2,2                                                              
       CPY 9L                                                                   
       LXA L(0),2                                                               
       CPY 9R                                                                   
RETURN TXL XR,0                                                                 
WRBIN  CLA L(BIN)                                                               
       STA CPY                                                                  
       CPY 9LB                                                                  
       SXD CPY+2,1                                                              
       LXA L(0),1                                                               
       CPY 9RB                                                                  
XR     SXD RETURN,4                                                             
       LXA L(0),4                                                               
CPY    CPY *,4                                                                  
       TXI CPY+2,4,-1                                                           
       TXH CPY,4,*                                                              
       LXD RETURN,4                                                             
       IOD                                                                      
       IOD                                                                      
       TRA 1,4                                                                  
RELBIN SLW HOLD                                                                 
       CLA 9L                                                                   
       ALS 1                                                                    
       PBT                                                                      
       TRA EXIT1       RECORD IS THE 1ST CONTROL CARD OF GEN. LIB.              
       CAL HOLD                                                                 
       TRA SWITCH+1    RETURN TO READING PERMANENT LIB.                         
EXIT   RCD             PULL IN FNDE2                                            
       CPY 0                                                                    
       CPY 1                                                                    
       TRA 0                                                                    
L(BIN)     BINREG                                                               
L(REL)     RELREG                                                               
CHS                                                                             
L(0)                                                                            
NAME   BCD 1EXP(3                                                               
9L                                                                              
9R                                                                              
9LB                                                                             
9RB                                                                             
ERASE  HTR 0                                                                    
L(1)   OCT 377777777777                                                         
TRAN   TRA RELBIN                                                               
HOLD                                                                            
DUP280 HTR DUP000                                                               
DUP290 RTT                                                                      
       TXH                                                                      
DUP300 BST SOURCE                                                               
       TRA DUP070                                                               
DUP310 LXD DUP031,4                                                             
       TRA DUP121                                                               
DUP320 HTR DUP330                                                               
DUP330 RTT                                                                      
       TXH                                                                      
       BST SOURCE                                                               
       BST OBJECT                                                               
       TRA DUP070                                                               
DUP340 BST SOURCE                                                               
       BST SOURCE                                                               
       RDS SOURCE                                                               
       TRA DUP071                                                               
DUP350 BST SOURCE                                                               
       TRA DUP171                                                               
DUP360 LXD DUP031,4                                                             
       TRA DUP231                                                               
DUP370 HTR DUP380                                                               
DUP380 BST SOURCE                                                               
       BST OBJECT                                                               
       TRA DUP171                                                               
RELREG BSS 22                                                                   
BINREG BSS 1                                                                    
STZ    EQU 24576                                                                
SOURCE SYN 149                                                                  
OBJECT SYN 145                                                                  
RECORD SYN 300                                                                  
DUMMY  SYN 299                                                                  
       END 24                                                                   
       REM TAPE DUPLICATING PROGRAM    F2TCVP                                                           
       ORG 24                                                                   
DUP000 REW SOURCE                                                               
       REW OBJECT                                                               
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       LXD DUP020,7          INITIALIZE INDEX REGISTERS TO 27                   
       RDS SOURCE            READ 1-CS FROM SOURCE                              
DUP010 CPY RECORD+27,1                                                          
       TXI DUP010,1,-1                                                          
DUP020 HTR 0,0,27            MACHINE ERROR                                      
       IOD                   EOR-DELAY                                          
       RTT                                                                      
       HTR DUP000            RTT ERROR-- TRY AGAIN                              
       WRS OBJECT            WRITE 1-CS ONTO OBJECT                             
DUP030 CPY RECORD+27,2                                                          
       TIX DUP030,2,1                                                           
       IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
DUP031 TXH DUP170,0,0                                                           
       BST OBJECT                                                               
       RDS OBJECT            READ BACK 1-CS FROM OBJECT                         
DUP040 CPY DUMMY                                                                
       TRA DUP050                                                               
       HTR                                                                      
       TRA DUP060            EOR                                                
DUP050 CLA RECORD+27,4                                                          
       CAS DUMMY                                                                
       HTR DUP000            WORD COMP. FAILS-READING                           
       TXI DUP040,4,-1                                                          
       HTR DUP000            FROM OBJECT                                        
DUP060 TXH DUP280,4,0        ERROR-INCOMPLETE OBJECT RECORD                     
       IOD                                                                      
       RTT                                                                      
       HTR DUP000            RTT ERROR READING BACK OBJECT 1-CS                 
DUP070 LXD DUP031,7          INITIALIZE INDEX REG TO 0                          
       PXD                   CLEAR AC                                           
DUP071 RDS SOURCE            READ SOURCE  1ST/2ND FILE RECORD                   
       CPY RECORD,1                                                             
       TXI DUP090,1,-1                                                          
DUP080 TRA DUP160            EOF                                                
       HTR                   MACNINE ERROR                                      
DUP090 CAD RECORD,1                                                             
       TXI DUP090,1,-1                                                          
       HTR                   MACHINE ERROR                                      
       COM                   EOR                                                
       ACL RECORD                                                               
       COM                                                                      
       TZE DUP100                                                               
       HTR DUP290            CKSM FAILS READING SOURCE 1ST/2ND FILE             
DUP100 IOD                                                                      
       RTT                                                                      
       HTR DUP300            RTT ERROR-BST AND TRY AGAIN                        
       SXD DUP120,1                                                             
       SXD DUP150,1                                                             
       WRS OBJECT            WRITE OBJECT 1ST/2ND FILE RECORD                   
DUP110 CPY RECORD,2                                                             
       TXI DUP120,2,-1                                                          
DUP120 TXH DUP110,2,**                                                          
DUP121 IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       BST OBJECT                                                               
       RDS OBJECT            READ BACK OBJECT 1ST/2ND FILE RECORD               
DUP130 CPY DUMMY                                                                
       TRA DUP140                                                               
       HTR                   MACHINE ERROR                                      
       TRA DUP150            EOR                                                
DUP140 CLA RECORD,4                                                             
       CAS DUMMY                                                                
       HTR DUP310            C0MP. ERROR ON 1ST/2ND FILE RECORD                 
       TXI DUP130,4,-1                                                          
       HTR DUP310            DITTO                                              
DUP150 TXH DUP320,4,**       ERROR-INCOMPLETE OBJECT RECORD                     
       IOD                                                                      
       RTT                                                                      
       HTR DUP310            RTT ERROR-BST AND TRY AGAIN                        
       TRA DUP070                                                               
DUP160 IOD                                                                      
       RTT                                                                      
       HTR DUP340            RTT ERROR - BST TWICE ON SOURCE                    
       WEF OBJECT            WRITE 1ST EOF                                      
       IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       CLA DUP031                                                               
       STA DUP080                                                               
       TRA DUP070                                                               
DUP170 IOD                                                                      
       RTT                                                                      
       HTR DUP340            RTT ERROR- BST TWICE ON SOURCE                     
       WEF OBJECT            WRITE 2ND EOF                                      
DUP171 IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
DUP180 LXD DUP031,7          INITIALIZE INDEX REG TO 0                          
       PXD                   CLEAR AC                                           
DUP181 RDS SOURCE            READ SOURCE 3RD FILE RECORD                        
       CAD RECORD,1                                                             
       TXI DUP190,1,-1                                                          
       TRA DUP270            EOF                                                
       HTR                   MACHINE ERROR                                      
DUP190 CPY RECORD,1          CPY CKSM INTO RECORD+1                             
       TXI DUP200,1,-1                                                          
DUP200 CAD RECORD,1                                                             
       TXI DUP200,1,-1                                                          
       HTR                   MACHINE ERROR                                      
       COM                   EOR                                                
       ACL RECORD+1                                                             
       COM                                                                      
       TZE DUP210                                                               
       HTR DUP350            CKSM FAILS READING SOURCE 3RD FILE                 
DUP210 IOD                                                                      
       RTT                                                                      
       HTR DUP350            RTT ERROR-BST                                      
       SXD DUP230,1                                                             
       SXD DUP260,1                                                             
       WRS OBJECT            WRITE OBJECT 3RD FILE RECORD                       
DUP220 CPY RECORD,2                                                             
       TXI DUP230,2,-1                                                          
DUP230 TXH DUP220,2,**                                                          
DUP231 IOD                                                                      
       RTT                   TURN 0FF RTT TRIGGER                               
       TXH                                                                      
       BST OBJECT                                                               
       RDS OBJECT            READ BACK  OBJECT 3RD FILE RECORD                  
DUP240 CPY DUMMY                                                                
       TRA DUP250                                                               
       HTR                   MACHINE ERROR                                      
       TRA DUP260            EOR                                                
DUP250 CLA RECORD,4                                                             
       CAS DUMMY                                                                
       HTR DUP360            COMP. ERROR ON 3RD FILE                            
       TXI DUP240,4,-1                                                          
       HTR DUP360            ERROR- INCOMPLETE OBJECT RECORD                    
DUP260 TXH DUP370,4                                                             
       IOD                                                                      
       RTT                                                                      
       HTR DUP360            RTT ERROR-BST                                      
       TRA DUP180                                                               
DUP270 IOD                                                                      
       RTT                                                                      
       HTR DUP390            RTT ERROR - BST TWICE                              
       WEF OBJECT            WRITE 3RD FILE EOF                                 
FILE40 LXD DUP031,7          DUPLICATE FILE 4                                   
       PXD                                                                      
       RDS SOURCE            READ SOURCE FILE 4 RECORD                          
FILE41 CPY RECORD,1                                                             
       TXI FILE41,1,-1                                                          
       TRA FILE47            EOF                                                
       IOD                   EOR                                                
       RTT                                                                      
       HTR FIL4E1            RTT ERROR - BST AND TRY AGAIN                      
       SXD FILE43,1                                                             
       SXD FILE46,1                                                             
       WRS OBJECT            WRITE OBJECT 4TH FILE RECORD                       
FILE42 CPY RECORD,2                                                             
       TXI FILE43,2,-1                                                          
FILE43 TXH FILE42,2,**                                                          
FILE50 IOD                                                                      
       RTT                   TURN OFF RTT TRIGGER                               
       TXH                                                                      
       BST OBJECT                                                               
       RDS OBJECT            READ BACK OBJECT 4TH FILE RECORD                   
FILE44 CPY DUMMY                                                                
       TRA FILE45                                                               
       HTR                   MACHINE ERROR                                      
       TRA FILE46            EOR                                                
FILE45 CLA RECORD,4                                                             
       CAS DUMMY                                                                
       HTR FIL4E2            COMP. ERROR ON 4TH FILE RECORD                     
       TXI FILE44,4,-1                                                          
       HTR FIL4E2            COMP. ERROR ON 4TH FILE RECORD                     
FILE46 TXH FIL4E4,4,**       ERROR - INCOMPLETE OBJECT RECORD                   
       IOD                                                                      
       RTT                                                                      
       HTR FIL4E2            RTT ERROR - BST AND TRY AGAIN                      
       TRA FILE40                                                               
FILE47 IOD                                                                      
       RTT                                                                      
       HTR FIL4E3            RTT ERROR - BST TWICE ON SOURCE                    
       WEF OBJECT            WRITE 4TH FILE EOF                                 
       REW SOURCE                                                               
       REW OBJECT                                                               
       RTT                                                                      
       TXH                                                                      
       HTR                   FINAL STOP.                                        
DUP280 HTR DUP000                                                               
DUP290 RTT                                                                      
       TXH                                                                      
DUP300 BST SOURCE                                                               
       TRA DUP070                                                               
DUP310 LXD DUP031,4                                                             
       TRA DUP121                                                               
DUP320 HTR DUP330                                                               
DUP330 RTT                                                                      
       TXH                                                                      
       BST SOURCE                                                               
       BST OBJECT                                                               
       TRA DUP070                                                               
DUP340 BST SOURCE                                                               
       BST SOURCE                                                               
       RDS SOURCE                                                               
       TRA DUP071                                                               
DUP350 BST SOURCE                                                               
       TRA DUP171                                                               
DUP360 LXD DUP031,4                                                             
       TRA DUP231                                                               
DUP370 HTR DUP380                                                               
DUP380 BST SOURCE                                                               
       BST OBJECT                                                               
       TRA DUP171                                                               
DUP390 BST SOURCE                                                               
       BST SOURCE                                                               
       RDS SOURCE                                                               
       TRA DUP181                                                               
FIL4E1 BST SOURCE                                                               
       TRA FILE40                                                               
FIL4E2 LXD DUP031,4                                                             
       TRA FILE50                                                               
FIL4E3 BST SOURCE                                                               
       BST SOURCE                                                               
       RDS SOURCE                                                               
       TRA FILE40+2                                                             
FIL4E4 HTR FIL4E5                                                               
FIL4E5 RTT                                                                      
       TXH                                                                      
       BST SOURCE                                                               
       BST OBJECT                                                               
       TRA FILE40                                                               
SOURCE SYN 149                                                                  
OBJECT SYN 145                                                                  
RECORD SYN 300                                                                  
DUMMY  SYN 299                                                                  
       END 24                                                                   
 LIST  SYN 32575                                                                
 TABL  SYN 32554                                                                
TOOMCH SYN LIST-20                                                              
       FUL
       ORG 0                                                                    
 VR    LXA 0,1                                                                  
 SM    CPY 2,1                                                                  
       TXI SM,1,-1                                                              
 TG    HTR 0,1                                                                  
       LTM                                                                      
X      RCD                                                                      
RB     CPY LIST-21,1                                                            
 LB    TXI RB,1,-1                                                              
R                                                                               
       TXH X,1,-200                                                             
       LXD M,1                                                                  
       SXD M,1                                                                  
       STZ LIST-20                                                              
 READ  RCD                                                                      
       CPY VR                                                                   
       TRA TEST                                                                 
       HTR READ                                                                 
 END   STZ 0,2                                                                  
       TIX END,2,1                                                              
       TOV PROG                                                                 
 PROG  TRA                                                                      
T                                                                               
 S         24                                                                   
 ADDRS OCT 000000077777                                                         
       ABS
       ORG LIST+1                                                               
 TEST  CLA VR                                                                   
       CPY SM                                                                   
       TMI PASS1              PREFIX IS  4 IF PROGRAM CARD                      
       TZE READ                                                                 
       STZ PRTST              SIGNAL END LOADING SEQUENTIAL PROG. CARDS         
       LXD VR,1                                                                 
       TXL REG,1,31                                                             
       TXH 0,1,32                                                               
       STA T                                                                    
       ADD S                                                                    
       STA S                                                                    
       CLA SM                                                                   
       STA U                                                                    
       TRA READ                                                                 
 REG   STA R                                                                    
       ARS 15                                                                   
 U     PDX 0,4                                                                  
       TXL NR,4,1                                                               
       TSX LT,2                                                                 
       STA R                                                                    
 NR    CAL VR                                                                   
       ARS 18                                                                   
       ADD R                                                                    
       STA TR                                                                   
       LXD VR,2                                                                 
 TR    TXL 0,2                                                                  
       STA TA                                                                   
       STA SA                                                                   
       STA SD                                                                   
       STA TD                                                                   
 B     STA CP                                                                   
       CAL VR                                                                   
       TXL CP,4,1                                                               
       CAD LB                                                                   
       CAD RB                                                                   
 CP    CAD 0,2                                                                  
       TIX CP,2,1                                                               
       TXL CT,4,0                                                               
       TXL READ,4,1                                                             
       TXL CT,4,2                                                               
       TXL RL,4,3                                                               
 CT    SLW VR                                                                   
       CLA SM                                                                   
       TZE RT                                                                   
       SUB VR                                                                   
       TZE RT                                                                   
       HPR                                                                      
 RT    TXL READ,4,1                                                             
       TXH SR,4,3                                                               
 RL    LDQ RB                                                                   
 DB    CLA LB                                                                   
       LGL 1                                                                    
       SLW LB                                                                   
       TPL AB                                                                   
 TD    CLA 0,1                                                                  
       ARS 18                                                                   
       TSX CB,2                                                                 
       ALS 18                                                                   
 SD    STD 0,1                                                                  
 AB    CLA LB                                                                   
       LGL 1                                                                    
       SLW LB                                                                   
       TPL TV                                                                   
 TA    CLA 0,1                                                                  
       TSX CB,2                                                                 
 SA    STA 0,1                                                                  
 TV    TIX DB,1,1                                                               
       TRA READ                                                                 
 CB    STA R                                                                    
       CLA LB                                                                   
       LGL 1                                                                    
       SLW LB                                                                   
       TMI LTA     WILL ADDRESS BE MISLEADING                                   
  LT   SLN 1       NO, CODE IS 10, TURN ON SENSE LIGHT                          
 LTA   CLS R       DOES THIS ADDRESS REFER TO PROGRAM OR DATA                   
       ADD T                                                                    
       TPL ADDS                                                                 
       SLT 1       APPEARS TO BE DATA, BUT WHAT WAS CODE                        
       TRA PROGRM  ACTUALLY PROGRAM, ADD CURRENT INCREMENT                      
 DATA  CLA R       IS DATA REFERENCE, DECREMENT                                 
       ADM U                                                                    
       TRA 1,2                                                                  
 ADDS  SLT 1       APPEARS TO BE PROGRAM, WHAT WAS CODE                         
       TRA DATA    ACTUALLY IS DATA REFERENCE, DECREMENT                        
PROGRM SUB S                                                                    
       TRA 1,2                                                                  
 PASS1 PDX 0,2                - WORD COUNT IN DEC. OF AC                        
       TXL PASS2,2,0          WORD COUNT IS 0, GO TO 2ND PASS                   
       ADD TAG                - LENGTH OF SYMB. TABLE IN DEC.                   
       ADD DECTWO             TO ALLOW SPACE IN TABLE FOR LOC. + LENGTH         
       STD STOP               STORE NEW LENGTH IN INST. TO STOP RELOC.          
       SUB M                  ADDRS. TABLE + 1 - WORD COUNT + LENGTH TAB        
       STD OVLP               STORE L0WEST ADDRS. FOUND, TO COMPARE TO S        
       ACL VR                                                                   
       SUB DECTWO                                                               
       ARS 18                                                                   
DECTWO TIX TXB,2,2                                                              
TXB    TSX B,4               FORCE IR 4 FOR CHECK SUM, BUT NOT RELOCATE         
 SR    LXD TAG,1              LOAD OLD TABLE LENGTH                             
       CLA PRTST              HAS ANOTHER PROGRAM CARD PRECEEDED                
       TZE ONLY1              THIS ONE                                          
       CLA LB                 YES, LB HAS NAME, RB HAS                          
       STO TABL-1,1           ENTRY POINT                                       
       CLA RB                                                                   
       STO TABL,1                                                               
       TIX NCARDS,1,2         SKIP, COMPARISONS ALREADY DONE                    
 ONLY1 CLA S                  STORE LOCATION OF TRA VECTOR IN                   
       STZ TABL-1,1                                                             
       STO TABL,1            SYMBOL TABLE,  S  HAS ADDRESS ONLY                 
       LXD LB,4                                                                 
       TXH CLAS,4,0                                                             
       CLA BTMASK                                                               
       STO TABL-1,1                                                             
 CLAS  CLA LB                 STORE LENGTH OF VECTOR IN                         
       STD TABL-1,1           SYMBOL TABLE                                      
       STA T                  STORE LENGTH OF ROUTINE IN T                      
       ADD S                  UPDATE S                                          
       STA S                                                                    
       PAX 0,2                COMPARE S TO LOWEST ADDRESS OF TABLE              
OVLP   TXH TG,2,0             TRA TG, TABLE + INST. OVERLAP                     
       CLA U                  FIND LOWEST ADDRESS DATA WILL USE                 
       SUB RB                                                                   
       PAX 0,4                                                                  
       PXD 0,4                                                                  
       ARS 18                                                                   
       TZE ACLA                                                                 
       CAS ADDRS                                                                
ACLA   CLA ADDRS                                                                
       NOP                                                                      
       STO ADDRS                                                                
       SUB S                                                                    
       TMI TOOMCH             TRA TOOMCH, DATA + INSTR. WILL OVERLAP            
NCARDS SXD PRTST,2           SIGNAL TO SEQUENTIAL PROGRAM CARDS                 
       STZ LB                 MAY COMPLEMENT IF 1 IS FOUND                      
       TXI LTT,1,2            TO GET PAST LOC. + LENGTH OF VECTOR               
LTT    CLA TABL,1                                                               
       TSX CB,2               RELOCATE ENTRY POINTS IN TABLE                    
       STA TABL,1                                                               
       TXI STOP,1,2                                                             
 STOP  TXL LTT,1,0                                                              
       SXD TAG,1              SAVE LENGTH OF TABLE                              
M      TNX READ,0,TABL                                                          
 VEC   CAL TABL+1,2                                                             
       TNZ G3                                                                   
       CLA TABL+2,2                                                             
       STA PROG                                                                 
       TRA PASS2                                                                
 G3    ANA BTMASK                                                               
       TNZ PASS2                                                                
       CLA TABL+1,2                                                             
 OLDU  PDX 0,4                LENGTH OF VECTOR                                  
       ARS 18                                                                   
       ADD TABL+2,2           PLUS LOACTION OF VECTOR                           
       STA A                                                                    
       STA AA                                                                   
       STA AAA                                                                  
       STA ABB                                                                  
 NXTVC LXD TAG,1              LENGTH OF SYMBOL TABLE                            
A      CAL 0,4                                                                  
       ANA BTMASK                                                               
       TZE TIXVEC                                                               
 ABB   CLA 0,4                LOOK FOR FIRST NAME IN TRA VECTOR                 
NXTNAM CAS TABL+1,1           IN SYMBOL TABLE                                   
 TTR   TTR G4                                                                   
       TRA FIX                                                                  
 G4    TIX NXTNAM,1,2         LOOK AT NEXT NAME IN TABLE                        
SAVNAM STO RB                                                                   
       LXD TWTY,1                                                               
 CMPR  CLA LIST,1                                                               
       TZE STONAM             STORE IN FIRST EMPTY CELL                         
       CAS RB                 IF NEW NAME                                       
 TWTY  TNX G2,0,20                                                              
       TRA TIXVEC             ALREADY IN TABLE, IGNORE                          
 G2    TIX CMPR,1,1                                                             
       HTR PASS2             MORE THAN 20 ENTRIES TO BE SEARCHED FOR            
STONAM CLA RB                                                                   
       STO LIST,1                                                               
       STZ LIST+1,1                                                             
       TRA TIXVEC                                                               
 FIX   CLA TTR                                                                  
 AA    STO 0,4                                                                  
       CLA TABL+2,1                                                             
 AAA   STA 0,4                                                                  
TIXVEC TIX NXTVC,4,1          GET NEXT NAME IN VECTOR                           
 PASS2 TXI TAG,2,2            IR 2 IS 0 AT BEGINING                             
 TAG   TXL VEC,2,0                                                              
       CLA TABL+1             0 IF ALL NAMES WERE FOUND                         
       TNZ SEARCH                                                               
       TXI END,2,212          CLEARS SYMBOL TABLE, LIST + LOADER                
SEARCH HTR READ-1                                                               
BTMASK OCT 700000000000                                                         
 PRTST                                                                          
       END                                                                      
       FUL                                                                                              
LOCREC SYN 707                                                                  
       ORG 0                                                                    
A      LXA 0,1               BOOTSTRAP FOR FIRST CARD                           
B      CPY 2,1                                                                  
C      TXI 1,1,-1                                                               
ONEDEC HTR 0,0,1                                                                
RD     TXL WEF1,1,-160                                                          
       RCD                                                                      
CPLODR CPY 3000-22,1         COPY REST OF EDITOR INTO UPPER MEMORY              
       TXI CPLODR,1,-1                                                          
       HTR RD                                                                   
       TRA RD                                                                   
WEF1   WEF 1                                                                    
       RTT                   TURN OFF INDICATOR                                 
       NOP                                                                      
       TRA RCD                                                                  
ONE    HTR 1                                                                    
REC2   HTR 30                                                                   
ERREC  HTR LOCREC                                                               
RDREC  HTR 1                 REC NUMBER IN DIAG FILE, 1ST WORD OF REC           
RDWDC  HTR 0,0,6             WORD COUNT OF RECORD READ FROM TAPE 5              
REC    HTR 0                 REC NUMBER FROM NEW REC CARD                       
ERAS   HTR 0                                                                    
WDC    HTR 0,0,6                                                                
SIX    HTR 6                                                                    
TPCONT HTR 0                                                                    
       ORG 3000                                                                 
RCD    RCD                                                                      
       CPY A                                                                    
       TRA TEST                                                                 
       HTR RCD                                                                  
TEST   CPY B                                                                    
       CLA A                                                                    
       TMI CONCRD            MINUS IF NEW RECORD CARD                           
       STA COPY              SAVE ADDRESS OF FIRST INSTRUCTION                  
       ARS 18                                                                   
       PAX 0,4               WORD COUNT INTO IR 4                               
       SUB COPY              ADD FIRST ADDRESS                                  
       STA COPY              STORE BASE ADDRESS IN COPY LOOP                    
       CAL A                                                                    
COPY   CAD 0,4                                                                  
       TIX COPY,4,1                                                             
       SLW C                                                                    
       CLA B                                                                    
       TZE RCD                                                                  
       SUB C                                                                    
       TZE RCD                                                                  
       HTR RCD               IGNORE CHECK SUM                                   
CONCRD CPY B                 8L OVER 9R, REST OF CARD IS IGNORED                
       TRA END2              WILL BE REPLACED BY NOP                            
       CLA REC               INIT. 0, OR HAS NUMBER OF DIAG. REC. FROM          
       TZE NX                LAST NEW REC. CARD, REMAINS 0 IF WEF ONLY          
       CLA A                 IS NEW CONTROL CARD WEF,  9L IS -0                 
       TNZ NX                                                                   
       TRA WTREC1            WRITE CURRENT BUFFER                               
ALL    TSX READ,4            YES, END OF CHANGES, HAS ALL OF MASTER             
       CLA RDREC             BEEN WRITTEN, RDREC WILL BE -                      
       TMI END                                                                  
       CLA RDWDC             NO, READ IN NEXT RECORD FROM MASTER                
       STD WDC                                                                  
       CLA RDLOOP                                                               
       STA WTLOOP                                                               
WTREC1 TSX WRITE,4           WRITE ON NEW TAPE                                  
       TRA ALL               AND GET NEXT FROM MASTER                           
END    WEF 1                                                                    
       REW 1                                                                    
       STZ 4095                                                                 
       TRA 4095                                                                 
NX     CLA A                 IF ONLY THIS PROGRAM AND WEF CARD                  
       TZE WTREC1            WRITE ALL OF MASTER WITHOUT CHANGES                
       STA REC               OTHERWISE SAVE NEW RECORD NUMBER                   
NX1    CLA RDREC             GET NUMBER OF REC LEFT IN CORES BY READ            
       TMI NX4               MINUS IF NO MORE RECORDS ON MASTER                 
       SUB REC               IS RECORD IN CORE THE ONE CALLED FOR               
       TPL NX3                                                                  
       CLA RDWDC             NOT YET, WRITE CORE RECORD ON NEW TAPE             
       STD WDC                                                                  
       CLA RDLOOP                                                               
       STA WTLOOP                                                               
       TSX WRITE,4                                                              
       TSX READ,4            BRING NEXT RECORD FROM MASTER AND                  
       TRA NX1               TEST AGAINST NEW RECORD CARD                       
NX3    TZE NX4               IF CORRECT REC, SET WORD COUNT ETC.                
       BST 5                 READ 1 TOO MANY, SOME REC DELETED                  
NX4    CLA B                                                                    
       ADD ONE               ADD 1 TO LAST ADDRESS FOR WRITE LOOP               
       STA WTLOOP                                                               
       STA ERAS                                                                 
       ARS 18                                                                   
       SUB ERAS              IF LAST ADDRESS NOT GREATER THAN                   
       TZE DELETE            FIRST ADDRESS DELETE THIS REC WHEN COPYING         
       TPL DELETE            MASTER                                             
       ALS 18                                                                   
       STD WDC                                                                  
       TRA RCD                                                                  
DELETE STZ RDWDC                                                                
       STZ WDC                                                                  
       TRA RCD                                                                  
READ   CLA RDREC                                                                
       TMI OUT               HAS END OF FILE BEEN REACHED                       
       SUB ONE               IF 1ST RECORD STILL IN CORE, SET                   
       TNZ RD2               ADDRESS TO READ IN 2ND RECORD                      
       CLA REC2                                                                 
       TRA RD3                                                                  
RD2    CLA ERREC             3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2           
RD3    STA RDLOOP                                                               
       STA SETREC                                                               
       STZ TPCONT                                                               
RDAGIN LXD ONE,2             IE., ZERO                                          
       RTB 5                                                                    
RDLOOP CPY 31,2                                                                 
       TXI RDLOOP,2,-1                                                          
       TRA SETEOF                                                               
       IOD                                                                      
       RTT                                                                      
       TRA BSTP5                                                                
FXWDC  PXD 0,2                                                                  
       COM                                                                      
       ADD ONEDEC            RECOMPLIMENT WORD COUNT                            
       STD RDWDC             AND FIND BASE ADDRESS                              
       ARS 18                                                                   
       SSP                                                                      
       ADD RDLOOP            ADD WORD COUNT TO FIRST ADDRESS                    
       STA RDLOOP                                                               
SETREC CLA 0                 FIRST WORD OF RECORD HAS RECORD NUMBER             
       STA RDREC                                                                
OUT    TRA 1,4                                                                  
SETEOF SSM                   SET RDREC - IF END OF MASTER FILE                  
       STO RDREC                                                                
       TRA 1,4                                                                  
BSTP5  LXD TPCONT,1                                                             
       TXL TRABST,1,15                                                          
       HTR FXWDC             PRESS START TO ACCEPT                              
TRABST BST 5                                                                    
       TXI MM,1,1                                                               
MM     SXD TPCONT,1                                                             
       TRA RDAGIN                                                               
WRITE  LXD WDC,2             WORD COUNT ZERO TO DELETE RECORD                   
       TXL WTOUT,2,0                                                            
       WTB 1                                                                    
WTLOOP CPY 31,2                                                                 
       TIX WTLOOP,2,1                                                           
WTOUT  TRA 1,4                                                                  
ISDIAG RTB 5                 SPACE OVER LIBRARY                                 
       CPY RTB1+1                                                               
       TRA ISDIAG                                                               
       RTB 5                                                                    
       LXA SIX,2             IF MASTER FILE DOES NOT HAVE DIAG.,                
ISCP   CPY 31,2              SET READ TO IGNORE, OTHERWISE                      
       TIX ISCP,2,1          FIRST RECORD WILL BE IN CORES                      
NOP    NOP                                                                      
       CLA 25                                                                   
       SUB TEST1                                                                
       TNZ TST1                                                                 
       CLA 26                                                                   
       SUB RTB1                                                                 
       TZE TST2                                                                 
TST1   SSM                                                                      
       STO RDREC                                                                
TST2   CLA NOP                                                                  
       STO CONCRD+1                                                             
       TRA CONCRD+2                                                             
TEST1  TXH 1                                                                    
RTB1   RTB 1                                                                    
END2   RTB 5                 SPACE OVER END FILE GAP AT END FILE 2              
       TRA ISDIAG                                                               
       END      44                                                              
       ORG 1                 FORCE NEW RECORD                                                           
       HTR X-1,0,25          CARD FOR DE                                        
       ORG 25                                                                   
       TXH 1                 READ IN REST OF DIAGNOSTIC                         
       RTB 1                 READ INTO 30, TABLE SEARCH AND ALL                 
       LXD ZERO,1            CONVERTING + PRINT ETC, ROUTINES                   
CP     CPY 30,1                                                                 
       TXI CP,1,-1           END RECORD SKIP, EXIT TO 31                        
ZERO   HTR 0,                RECORD NUMBER OF NEXT COPIED HERE                  
X                                                                               
       END                                                                      
       ORG 2                 FORCE NEW RECORD                                                           
E      HED                                                                     
       HTR XZY-1,0,30        CARD FOR DE                                        
       ORG 30                                                                   
       TXH 2                 MAIN RECORD                                        
LIST   SYN 32767                                                                
       LXA ADDMSK,1          FIND NUMBER TO SUBTRACT FROM TSX                   
       PXD 0,1               TO GET ORIGINAL LOCATION                           
       ADD DECONE            THIS WILL BE USED TO RE-COMPLIMENT ANY             
       STO PREFX1            OF THE TSX S TO THE DIAGNOSTIC                     
       PXD 0,4               IR 4 HAS BEEN SET BY TSX                           
       SUB PREFX1                                                               
       STD ERWORD                                                               
       WPR                                                                      
       SPR 7                 TEST FOR SAP BOARD                                 
       TSX PRINT,4           PRINT TITLE                                        
       HTR PR1,0,PR1+13                                                         
       WPR                                                                      
       WPR                                                                      
       WPR                                                                      
       WPR                                                                      
       NOP                                                                      
       NOP                                                                      
       CLA 2                 LOC. 2 HAS NUMBER OF FORTRAN RECORD                
       ANA ADDMSK            PRECEDING THE CALL IN OF THE DIAG.                 
       STO RECORD                                                               
       SUB TW13              IF NON-ARITHMETIC HAS CALLED DIAG                  
       TNZ NOTNA             PRINT OTHER HEADER                                 
       TSX PRINT,4                                                              
       HTR ISNONA,0,ISNONA+11                                                   
       TRA SEARCH-1                                                             
NOTNA  CLA RECORD                                                               
       TSX BINDEC,4          CONVERT TO BCD + LEFT ADJUST WORD                  
       TSX LAJUST,4                                                             
       SLW FOREC                                                                
       TSX PRINT,4           PRINT NUMBER OF RECORD IN WHICH                    
       HTR PR2,0,FOREC+1     ERROR FOUND                                        
       CLA ERWORD            IN DECREMENT                                       
       ARS 18                                                                   
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       CAL LOC+3                                                                
       ARS 24                                                                   
       LDQ ERAS                                                                 
       LGL 24                                                                   
       SLW LOC+3                                                                
       LGL 12                                                                   
       LDQ BLANKS                                                               
       LGL 24                                                                   
       SLW LOC+4                                                                
       TSX PRINT,4           PRINT LOCATION OF STOP                             
       HTR LOC,0,LOC+5                                                          
       WPR                                                                      
       WPR                                                                      
       LXD ERLIST,4                                                             
SEARCH CLA ERLIST,4          ASSORTED TSX IN DEC FIELD                          
       CAS ERWORD            OF FIRST WORD OF LIST                              
       TRA TIXA                                                                 
       TRA HAVE                                                                 
TIXA   TIX SEARCH,4,2                                                           
       TRA LXDA              UNIDENTIFYABLE, BRING IN RECORD ZERO               
       NOP                                                                      
       NOP                                                                      
HAVE   CLA ERLIST+1,4        DUPLICATE STOPS SHOULD BE MARKED MINUS             
       TMI DUP               SECOND WORD HAS NUMBER OF RECORDS                  
PD     PDX 0,4               TO BE SPACED OVER BEFORE READING                   
       TIX RTBA,4,3          REDUCE NUMBER IF NOT REC 1, NOW SAME AS            
RTBA   RTB 1                 EDITOR RECORD NUMBER                               
       CPY 25                                                                   
       TIX RTBA,4,1                                                             
LXDA   LXD ZERO,4                                                               
       RTB 1                                                                    
CPYREC CPY LOCREC,4          END RECORD SKIP WILL CONTROL                       
       TXI CPYREC,4,-1       COPY AND TRANSFER                                  
NOP    NOP                                                                      
       TRA LOCREC+1          SKIP RECORD NUMBER                                 
DUP    ANA ADDMSK            2ND WORD WILL HAVE CORRECT ERROR RECORD            
       CAS RECORD            NUMBER IN ADDRESS, FOR CORRECT FORTRAN             
       TRA NOTREC            RECORD NUMBER IN THE CASE OF                       
       TRA HAVREC            DUPLICATE STOPS.                                   
NOTREC TIX SEARCH,4,2                                                           
       TRA LXDA              IF END OF LIST, PRINT REC. ZERO                    
HAVREC CLA ERLIST+1,4                                                           
       TRA PD                                                                   
PR1    BCD 7                                                                    
       BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS                                  
PR2    BCD 2                                                                    
       BCD 8ERROR WHILE COMPILING IN FORTRAN RECORD NUMBER                      
FOREC  HTR                                                                      
ISNONA BCD 2                                                                    
       BCD 9ERROR FOUND DURING SCAN OF TABLES COMPILED BY 1 PRIME.              
TW13   HTR 213                                                                  
DIGRTN LXD 0,2               RESET MEMORY                                       
       CLA CPDR              LOOP AT LOC. 0,1 AND 2 WILL                        
       STO 0                 COPY 2045 WORDS FROM DRUM 4                        
       CLA TIXO              BEGINNING AT LOC. 3                                
       STO 1                                                                    
       CLA HTR4                                                                 
       STO 2                                                                    
RESTRT CLA PRTEST            SHOULD FOOTNOTE BE PRINTED                         
       TZE WPREND                                                               
       WPR                   YES                                                
       TSX PRINT,4                                                              
       HTR NEARBT,0,NEARBT+18                                                   
WPREND WPR                                                                      
       WPR                                                                      
       WPR                                                                      
       WPR                                                                      
       REW 2                 REWIND SO PROBLEM CAN BE RE-RUN                    
       REW 1                                                                    
       NOP              J CANNON                                                
       NOP                                                                      
SIXTST SWT 6                 SHOULD CHOICE TO NEXT BATCH BE PRINTED             
       TRA SPACE1             NO                                                
       CLA PRALT             SURE                                               
       STO PRNT1                                                                
SPACE1 RTB 1                 SPACE OVER FIRST FILE IN SYSTEM                    
       CPY ERAS                                                                 
       TRA SPACE1                                                               
SKIP   RTB 1       OVER REC 1, FILE 2, OUR TRA 4, THEIR WHO KNOWS               
       NOP                                                                      
       TSX PRINT,4                                                              
       HTR END,0,END+32                                                         
       TSX PRINT,4                                                              
PRNT1  HTR END1,0,END1+14                                                       
       WPR                                                                      
       OCT 076000000140      TURN OFF ALL SENSE LIGHTS                          
       WPR                                                                      
       SPR 2                 EJECT SHEET                                        
DONE   IOD                                                                      
       RTT                                                                      
       NOP                                                                      
       TRA ENDPCH                                                               
SPEND  CLA BST1              BACKSPACE OVER FILE MARK                           
       STO SKIP              AND OVER SOURCE ERROR RECORD                       
       STO SKIP+1                                                               
       SWT 6                                                                    
       TRA NDWP                                                                 
       CLA PRNT2                                                                
       STO PRNT1                                                                
FX6TST CLA NOP                                                                  
       STO SIXTST                                                               
       TRA DIGRTN                                                               
PRALT  HTR MACEN,0,MACEN+57                                                     
NDWP   CLA NOP               D0 NOT PRINT A LAST COMMENT                        
       STO PRNT1-1                                                              
       STO PRNT1                                                                
       TRA FX6TST                                                               
PRNT2  HTR END2,0,END2+17    MAY CONTINUE NEXT BATCH                            
PRNT4  HTR END3,0,END3+36                                                       
DRUM   HTR 3,0,2045                                                             
CPDR   CPY 2048,4                                                               
TIXO   TIX 0,4,1                                                                
HTR4   TRA 4                                                                    
BST1   BST 1                                                                    
END    BCD 7                                                                    
       BCD  END OF DIAGNOSTIC PROGRAM RESULTS.                                  
       BCD                                                                      
       BCD 5PROGRAM CANNOT BE CONTINUED.                                        
END1   BCD 7                                                                    
       BCD 7PRESS START IF YOU WISH TO RE-RUN PROBLEM.                          
END2   BCD 7                                                                    
       BCD  THE SYSTEM WILL CONTINUE BATCH COMPILING                            
END3   BCD 7                                                                    
       BCD  PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING, OR KEY         
       BCD  IN 076000 000141,                                                   
       BCD 9AND PRESS START IF YOU WISH TO RE-RUN PROBLEM.                      
NEARBT BCD 1                                                                    
       BCD  * THIS STATEMENT HAS NO FORMULA NUMBER.  THE FORMULA NUMBER         
       BCD 7ASSIGNED A NEIGHBORING STATEMENT IS GIVEN.                          
FX4PR  SXD IR4,4             THIS ROUTINE PRINTS ALPH DO BETA FOR I             
       CLA ALFBET            GETS ALPHA, OR NEAREST PRECEDING ALPHA,            
       ARS 18                AND BETA FROM WORD ALFBET, SYMBOL                  
       ANA ADDMSK            FROM WORD SYM                                      
       TSX EXBETA,4                                                             
       SLW DOALF             BLANKS ARE TO RIGHT OF WORD                        
       CLA ALFBET                                                               
       ANA ADDMSK                                                               
       TSX EXBETA,4                                                             
       TSX LAJUST,4          ADJUST FOR TRAILING BLANKS                         
       SLW DOBET                                                                
       CAL SYM                                                                  
       TSX ZEROUT,4          UNPACK WORD                                        
       SLW DOSYM                                                                
       TSX PRINT,4                                                              
       HTR PRDO,0,PRDO+9                                                        
       LXD IR4,4                                                                
       TRA 1,4                                                                  
ALFBET HTR                                                                      
SYM    HTR                                                                      
IR4    HTR                                                                      
PRDO   BCD 4                                                                    
DOALF  HTR                                                                      
       BCD 1  DO                                                                
DOBET  HTR                                                                      
       BCD 1 FOR                                                                
DOSYM  HTR                                                                      
ZEROUT SXD ZER6,4            ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED        
       LXD SIX,4             LEFT ADJUSTED, FOLL0WED BY 1 BLANK AND             
ZER1   SLW ZER5              PADDLED OUT WITH ZEROS                             
       ANA CHMASK            IE., OCT 000000000077                              
       TNZ ZER2                                                                 
       CAL ZER5              LAST CHARACTER WAS ZERO                            
       ARS 6                 SHIFT OUT OF AC                                    
       TIX ZER1,4,1                                                             
ZER2   CAL ZER5                                                                 
       LDQ BLANKS                                                               
ZER3   TXH ZER4,4,5                                                             
       LGL 6                 N0W SHIFT IN A BLANK FOR EVERY 0 TAKEN OUT         
       TXI ZER3,4,1                                                             
ZER4   LXD ZER6,4            LEAVE, BCD AND BLANKS, MUST BE SAVED               
       TRA 1,4               WITH SLW                                           
ZER5   HTR                                                                      
ZER6   HTR                                                                      
SIX    HTR 0,0,6                                                                
RAJUST SLW RAJ1              ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS          
       ANA CHMASK            IE., OCT 000000000077                              
       SUB 01BLNK                                                               
       TNZ RAJ2                                                                 
       CAL RAJ1              YES, MOVE WORD AND ADD BLANK AT FRONT              
       ARS 6                 IS LAST CHARACTER A BLANK                          
       ACL RBLNK                                                                
       TRA RAJUST                                                               
RAJ2   CAL RAJ1              LEAVES AC WITH LEADING BLANKS, MUST BE             
       TRA 1,4               SAVED WITH SLW                                     
RAJ1   HTR                                                                      
01BLNK BCD 100000                                                               
RBLNK  BCD 1 00000                                                              
LAJUST LDQ BLNKO             ENTER, CAL BCD NUMBER, LEADING BLANKS              
LAJ1   TOV LAJ2              TURN OFF INDICATOR                                 
LAJ2   LGL 1                 NUMBER HAS ZERO ZONE, BLANK WILL TURN              
       TNO LAJ3              ON INDICATOR                                       
       LGL 5                                                                    
       TRA LAJ1                                                                 
LAJ3   ARS 1                 FIRST BIT FROM Q BACK TO P                         
       TRA 1,4               EXIT TRAILING BLANKS,MUST BE SAVED WITH SLW        
BLNKO  BCD 1     0           WILL STOP ROUTINE IF WORD IS ALL BLANKS.           
       REM ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC                  
       REM EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST PRECEDING              
       REM EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION                   
       REM OF AC. THIS MUST BE SAVED WITH SLW. NUMBER WILL                      
       REM BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND                
TEIFIN SYN LIST-500                                                             
EXBETA ALS 18                                                                   
       STD BETAEX                                                               
       SXD XB10,4                                                               
       LXD INCOR,4                                                              
       TXH XB4,4,0           IF TEIFNO IN MEMORY, SKIP READ IN                  
       REW 2                                                                    
       LXA XB10,4            4 FILES TO BE SPACED OVER                          
XB1    RTB 2                                                                    
       CPY TEIFIN-1                                                             
       TRA XB1               SPACE OVER RECORDS UNTIL END FILE SKIP             
       TIX XB1,4,1                                                              
       LXA INCOR,4                                                              
XB2    RTB 2                                                                    
       CPY TEIFIN-1                                                             
       TIX XB2,4,1                                                              
       LXD ZERO,4                                                               
       RTB 2                                                                    
       CPY TEIFIN-1          IGNORE IDENTIFICATION AND WORD COUNT               
       CPY TEIFIN-1                                                             
XB3    CPY TEIFIN-1,4        READ IN TEIFNO UNTIL END OF RECORD SKIP            
       TXI XB3,4,1                                                              
INCOR  HTR 4                                                                    
       TXH XB4A,4,0                                                             
       LXD DECONE,4          SET READ IN TO FAIL IF NO TEIFNO ENTRIES           
XB4A   SXD INCOR,4                                                              
XB4    CLA TEIFIN,4          COMPARE INTERNAL FORMULA NUMBERS                   
       ANA DECMSK                                                               
       CAS BETAEX            TO THE ONE BEING ASKED FOR                         
       TRA XB8                                                                  
       TRA XB9                                                                  
XB5    CLA ADDMSK            SET TEST TO ADD ASTERISK TO END OF NUMBER          
       STO PRTEST            SET END OF DIAG TO PRINT FOOTNOTE                  
       STO XB11                                                                 
XB6    CLA TEIFIN,4          GET EXTERNAL FORMULA NUMBER                        
       ANA ADDMSK                                                               
       TSX BINDEC,4          CONVERT TO BCD DECIMAL                             
       LXA XB11,4                                                               
       LDQ ASTRSK                                                               
       TXL XB7,4,0           SHOULD ASTERISK BE ADDED                           
       LGL 6                 YES                                                
XB7    LXD XB10,4                                                               
       TRA 1,4                                                                  
XB8    TIX XB4,4,1           COMPARE TO NEXT, OR                                
       TRA XB5               PRINT FIRST ENTRY WITH ASTERISK                    
XB9    STZ XB11              SET TEST TO PRINT NUMBER ONLY                      
       TRA XB6                                                                  
XB10   HTR 4,0,0                                                                
XB11   HTR 0                                                                    
ASTRSK BCD 1*                                                                   
PRTEST HTR 0                                                                    
BETAEX HTR 0                                                                    
       REM ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL                     
       REM NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE                      
       REM SAVED WITH SLW                                                       
BINDEC SSP                   JUST IN CASE                                       
       LRS 35                                                                   
       SXD BINA,4                                                               
       LXD BINB,4                                                               
CNV    CLA TEN               IF MQ LESS THAN 10, CONVERSION IS FINISHED         
       TLQ FIN                                                                  
       PXD 0,0                                                                  
       DVP TEN                                                                  
       SLW DIG,4             SAVE REMAINDER IN 1 WORD OF BLOCK                  
       TXI CNV,4,1           UP WORD COUNT OF BLOCK                             
FIN    STQ DIG,4                                                                
       CAL BLANKS            START WITH BLANKS                                  
DEC    ALS 6                 AND BRING IN REMAINDER FROM ABOVE                  
       ORA DIG,4                                                                
BINB   TIX DEC,4,1                                                              
       LXD BINA,4                                                               
       TRA 1,4                                                                  
BLANKS BCD 1                                                                    
BINA   HTR                                                                      
TEN    DEC 10                                                                   
DIG    BES 6                                                                    
       REM  ENTER WITH OCTAL NUMBER IN ADDRESS 0F AC. EXIT OCTAL                
       REM  CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST                
       REM  BE SAVED WITH SLW                                                   
OCTBCD LRS 15                                                                   
       CLA BLANK             AC ZERO EXEPT FOR END BLANK                        
       TNO OCT               TURN OFF INDICATOR                                 
OCT    ALS 3                                                                    
       LLS 3                                                                    
       TNO OCT               END BLANK WILL TURN ON INDICATOR                   
       TRA 1,4                                                                  
BLANK  BCD 100000                                                               
 PRINT BSS 0                                                                    
C      EQU 4                                                                    
 RAN   CLA 1,4                                                                  
       STA RNA                                                                  
       ARS 18                                                                   
       STO RNB                                                                  
       SXD RNC,4                                                                
 RN40  CLA RNA                                                                  
       ADD RND                                                                  
       CAS RNB                                                                  
       NOP                                                                      
       TRA RN50                                                                 
       ALS 18                                                                   
       ADD RNA                                                                  
       STO RAN10                                                                
       ARS 18                                                                   
       STA RNA                                                                  
       TSX WOT,C                                                                
 RAN10 HTR                                                                      
       TRA RN40                                                                 
 RN50  CLA RNB                                                                  
       ALS 18                                                                   
       ADD RNA                                                                  
       STO RN60                                                                 
       TSX WOT,C                                                                
 RN60  HTR                                                                      
       LXD RNC,C                                                                
       TRA 2,C                                                                  
 RNA   HTR                                                                      
 RNB   HTR                                                                      
 RNC   HTR                                                                      
 RND   HTR 20                                                                   
 WOT   SXD X1,1                                                                 
       SXD X2,2                                                                 
       CLA 1,4                                                                  
       STD X4           X                                                       
       ARS 18           X                                                       
       ADD X4           X                                                       
       STA CI9          X                                                       
       SUB 1,4          B-A+1 IN AC                                             
       TZE 2,4                                                                  
       TMI 2,4                                                                  
       SXD X4,4                                                                 
 L11   PAX 11,4                                                                 
       SXD PR6,4                                                                
 RPR   WPR                                                                      
       NOP                                                                      
       LXD PR6,4        X                                                       
 PR8   TNX PR5,4                                                                
       TXL PR3,4,12                                                             
       SPR 8            FIRST CYCLE                                             
 PR3   LXD PR6,4        INITIALIZE GROUP COUNT                                  
 PR5   LXA PR7,2        INITIALIZE LEFT SETUP                                   
       LXD YZ1,1        CLEAR CARD IMAGE                                        
 PR7   PXD              X                                                       
 PR4   SLW LT,1         X                                                       
       SLW RT,1         X                                                       
       TIX PR4,1,1      X                                                       
 CIR   CAL COL1         INITIALIZE COLUMN INDICATOR                             
 CI2   SLW COL          X                                                       
 CI9   LDQ 0,4          OBTAIN GROUP                                            
       SXD OZ2,4        STORE GROUP COUNT                                       
       LXA Q6,4         SET CHARACTER COUNT                                     
 CI1   PXD                                                                      
 Q6    LGL 6                                                                    
       PAX 0,1                                                                  
       CAL COL          POSITION COLUMN INDICATOR                               
       ARS 6,4          X                                                       
       TIX YZ1,1,16     TEST FOR DIGIT                                          
       TXH YZ2,1,15     TEST FOR Y-ZONE                                         
 CI5   ORS D,3          STORE DIGIT                                             
 CI4   TIX CI1,4,1      COUNT CHARACTERS                                        
 CI3   ARS 1            SHIFT AND TEST COLUMN                                   
       LXD OZ2,4        RESTORE GROUP COUNT                                     
       TXI CI6,4,-1     COUNT GROUPS                                            
 CI6   TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                           
       TNZ CI2          TEST FOR END OF ROW                                     
 CI7   CAL 8.3,2        FORM TRUE 8,4                                           
       ORS D-8,2        AND 3 ROWS AND                                          
       ORS D-3,2        MOVE 8.4 AND 8.3                                        
       SLW 8.2,2        ROWS                                                    
       CAL 8.4,2        FORM TRUE 8.4                                           
       ORS D-8,2        X                                                       
       ORS D-4,2        X                                                       
       SLW 8.3,2        X                                                       
 CI8   TXL WP,4         TEST FOR END                                            
       TXH WP,2,15      TEST FOR RIGHT HALF                                     
       TXI CIR,2,16     INITIALIZE RIGHT HALF                                   
 YZ1   TIX XZ1,1,16     TEST FOR 16/CH/32                                       
       TXH XZ2,1,15     TEST FOR X-ZONE                                         
       ORS D,3          STORE DIGIT                                             
 YZ2   ORS Y,2          STORE Y-ZONE                                            
       TIX CI1,4,1      COUNT CHARACTERS                                        
 X1    TXL CI3          OBTAIN NEXT GROUP                                       
 XZ1   TIX OZ1,1,16     TEST FOR 32/CH/48                                       
       TXH CI4,1,15     TEST FOR BLANK                                          
       ORS D,3          STORE DIGIT                                             
 XZ2   ORS X,2          STORE X-ZONE                                            
       TIX CI1,4,1      COUNT CHARACTERS                                        
 X2    TXL CI3          OBTAIN NEXT GROUP                                       
 OZ1   ORS Z,2          STORE O-ZONE                                            
       ORS D,3          STORE DIGIT                                             
       TIX CI1,4,1      COUNT CHARACTERS                                        
       TXL CI3                                                                  
WP7    LXA OZ,1         COPY LOOP                                               
 CRAN  CPY LT-12,1                                                              
       CPY RT-12,1      X                                                       
       TXI T2,1,-1                                                              
 T2    TXH CRAN,1,-12                                                           
 WP4   TXH WP5,4                                                                
       LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN                   
       LXD X2,2         X                                                       
 WT2   LXD X4,4         X                                                       
 L2    TRA 2,4          X                                                       
 WP5   WPR                                                                      
       SPR 9            SECOND CYCLE                                            
 WP2   TXL PR5,0,12     CONVERT REST OF LINE                                    
PR6    HTR                                                                      
 BLNKS BCD 1                                                                    
 X4    HTR                                                                      
 YZONE OCT 20                                                                   
 BNK   OCT 60                                                                   
 MK2   OCT 377777777777                                                         
 COL1  MZE                                                                      
 COL   BSS 1                                                                    
 RT    BES 16                                                                   
 8.5   BSS 1                                                                    
 8.4   BSS 1                                                                    
 8.3   BSS 1                                                                    
 8.2   BSS 1                                                                    
 D     BES 9                                                                    
 Z     BSS 1                                                                    
 X     BSS 1                                                                    
 Y     BSS 1                                                                    
 LT    SYN Y+1                                                                  
 8.4L  SYN LT-14                                                                
 8.4R  SYN RT-14                                                                
       BSS 27                                                                   
OZ     HTR                                                                      
OZ2    SYN OZ                                                                   
WP     SYN WP7                                                                  
ADDMSK OCT 000000077777                                                         
DECMSK OCT 077777000000                                                         
CHMASK OCT 000000000077                                                         
ZERO   HTR 0                                                                    
DECONE OCT 000001000000                                                         
PREFX1 HTR 0                                                                    
ERWORD HTR 0                                                                    
RECORD                                                                          
MACHIN BCD 2                                                                    
       BCD 3MACHINE ERROR                                                       
SOURCE BCD 2                                                                    
       BCD 4SOURCE PROGRAM ERROR                                                
LOC    BCD 2                                                                    
       BCD 3LOCATION                                                            
ERAS   BSS 20                FOR PATCHING ETC.                                  
LOCREC HTR 0                 ALL ERROR RECORDS READ IN HERE OVER LIST           
       OCT 001017000000      ERROR IN 1 DOUBLE PRIME                            
       HTR 0,0,1             ERROR RECORD 1                                     
       OCT 000036000000       53                                                
       HTR 0,0,120             36                                               
       OCT 000037000000       90                                                
       HTR 0,0,142             37                                               
       OCT 000041000000       60                                                
       HTR 0,0,39              41                                               
       OCT 000046000000       90                                                
       HTR 0,0,96              46                                               
       OCT 000047000000       58                                                
       HTR 0,0,39              47                                               
       OCT 000051000000       56                                                
       HTR 0,0,115             51                                               
       OCT 000060000000       56                                                
       HTR 0,0,133             60                                               
       OCT 000061000000       47                                                
       HTR 0,0,65              61                                               
       OCT 000062000000       53                                                
       HTR 0,0,124             62                                               
       OCT 000063000000       53                                                
       HTR 0,0,124             63                                               
       OCT 000064000000       71                                                
       HTR 0,0,48              64                                               
       OCT 000066000000       53                                                
       HTR 0,0,124             66                                               
       OCT 000067000000       53                                                
       HTR 0,0,124             67                                               
       OCT 000070000000       92                                                
       HTR 0,0,39              70                                               
       OCT 000072000000       53                                                
       MZE 53,0,124            72                                               
       OCT 000072000000       60                                                
       HTR 0,0,46              72                                               
       OCT 000073000000       53                                                
       HTR 0,0,124             73                                               
       OCT 000074000000       56                                                
       HTR 0,0,74              74                                               
       OCT 000103000000       67                                                
       HTR 0,0,48             103                                               
       OCT 000106000000       53                                                
       HTR 0,0,6              106                                               
       OCT 000107000000       58                                                
       MZE 58,0,40            107                                               
       OCT 000107000000       92                                                
       HTR 0,0,38             107                                               
       OCT 000116000000       53                                                
       HTR 0,0,66             116                                               
       OCT 000123000000       47                                                
       MZE 47,0,39            123                                               
       OCT 000123000000       53                                                
       HTR 0,0,112            123                                               
       OCT 000124000000       53                                                
       HTR 0,0,112            124                                               
       OCT 000132000000       53                                                
       MZE 53,0,66            132                                               
       OCT 000132000000       60                                                
       HTR 0,0,188            132                                               
       OCT 000140000000       56                                                
       HTR 0,0,39             140                                               
       OCT 000141000000       92                                                
       HTR 0,0,98             141                                               
       OCT 000150000000       75                                                
       HTR 0,0,53             150                                               
       OCT 000160000000       67                                                
       HTR 0,0,48             160                                               
       OCT 000161000000       56                                                
       HTR 0,0,40             161                                               
       OCT 000173000000       60                                                
       HTR 0,0,188            173                                               
       OCT 000216000000       47                                                
       HTR 0,0,40             216                                               
       OCT 000222000000       94                                                
       MZE 94,0,54            222                                               
       OCT 000222000000      105                                                
       MZE 105,0,39           222                                               
       OCT 000222000000      107                                                
       MZE 107,0,55           222                                               
       OCT 000222000000      115                                                
       HTR 0,0,39             222                                               
       OCT 000223000000      113                                                
       HTR 0,0,109            223                                               
       OCT 000227000000       60                                                
       HTR 0,0,188            227                                               
       OCT 000230000000      101                                                
       HTR 0,0,39             230                                               
       OCT 000241000000      107                                                
       MZE 107,0,56           241                                               
       OCT 000241000000      115                                                
       HTR 0,0,38             241                                               
       OCT 000245000000        9                                                
       MZE 9,0,103           245                                                
       OCT 000245000000      105                                                
       HTR 0,0,38             245                                               
       OCT 000246000000       92                                                
       HTR 0,0,39             246                                               
       OCT 003672000000      115                                                
       HTR 0,0,146          3672                                                
       OCT 000247000000      101                                                
       HTR 0,0,38             247                                               
       OCT 000252000000       60                                                
       MZE 60,0,188           252                                               
       OCT 000252000000      105                                                
       HTR 0,0,164            252                                               
       OCT 000255000000      103                                                
       HTR 0,0,110            255                                               
       OCT 000256000000       73                                                
       HTR 0,0,48             256                                               
       OCT 000260000000       96                                                
       MZE 96,0,38            260                                               
       OCT 000260000000       98                                                
       HTR 0,0,38             260                                               
       OCT 000263000000       67                                                
       HTR 0,0,48             263                                               
       OCT 000264000000        7                                                
       HTR 0,0,104            264                                               
       OCT 000270000000       56                                                
       HTR 0,0,15             270                                               
       OCT 000277000000       92                                                
       MZE 92,0,38            277                                               
       OCT 000277000000      113                                                
       HTR 0,0,31             277                                               
       OCT 000301000000       67                                                
       HTR 0,0,167            301                                               
       OCT 003730000000      115                                                
       HTR 0,0,105          3730                                                
       OCT 000303000000       73                                                
       HTR 0,0,84             303                                               
       OCT 000305000000       56                                                
       MZE 56,0,39            305                                               
       OCT 000305000000       60                                                
       HTR 0,0,188            305                                               
       OCT 000311000000        9                                                
       HTR 0,0,106            311                                               
       OCT 000312000000      113                                                
       HTR 0,0,165            312                                               
       OCT 000314000000       90                                                
       HTR 0,0,119            314                                               
       OCT 000321000000       90                                                
       HTR 0,0,143            321                                               
       OCT 000327000000       86                                                
       HTR 0,0,91             327                                               
       OCT 000330000000       90                                                
       HTR 0,0,97             330                                               
       OCT 000331000000       58                                                
       HTR 0,0,116            331                                               
       OCT 000334000000       56                                                
       MZE 56,0,40            334                                               
       OCT 000334000000       60                                                
       HTR 0,0,188            334                                               
       OCT 000336000000       86                                                
       HTR 0,0,139            336                                               
       OCT 000340000000       58                                                
       HTR 0,0,134            340                                               
       OCT 000341000000       96                                                
       MZE 96,0,32            341                                               
       OCT 000341000000       67                                                
       MZE 67,0,48            341                                               
       OCT 000341000000       98                                                
       HTR 0,0,32             341                                               
       OCT 000345000000        5                                                
       HTR 0,0,162            345                                               
       OCT 000350000000       58                                                
       MZE 58,0,75            350                                               
       OCT 000350000000       62                                                
       HTR 0,0,85             350                                               
       OCT 000352000000      113                                                
       HTR 0,0,33             352                                               
       OCT 000354000000       64                                                
       HTR 0,0,157            354                                               
       OCT 000356000000       92                                                
       HTR 0,0,99             356                                               
       OCT 000357000000       58                                                
       HTR 0,0,117            357                                               
       OCT 000363000000       60                                                
       HTR 0,0,188            363                                               
       OCT 000366000000       58                                                
       HTR 0,0,135            366                                               
       OCT 000375000000       58                                                
       HTR 0,0,76             375                                               
       OCT 000377000000       56                                                
       MZE 56,0,188           377                                               
       OCT 000377000000      115                                                
       HTR 0,0,34             377                                               
       OCT 000410000000       58                                                
       MZE 58,0,77            410                                               
       OCT 000410000000       96                                                
       HTR 0,0,107            410                                               
       OCT 000417000000       58                                                
       HTR 0,0,136            417                                               
       OCT 000424000000       56                                                
       HTR 0,0,188            424                                               
       OCT 000425000000       67                                                
       MZE 67,0,30            425                                               
       OCT 000425000000       73                                                
       MZE 73,0,183           425                                               
       OCT 000425000000       98                                                
       HTR 0,0,38             425                                               
       OCT 000427000000       96                                                
       HTR 0,0,147            427                                               
       OCT 000430000000       58                                                
       HTR 0,0,78             430                                               
       OCT 000434000000       62                                                
       HTR 0,0,19             434                                               
       OCT 000437000000       84                                                
       HTR 0,0,92             437                                               
       OCT 000441000000       98                                                
       HTR 0,0,36             441                                               
       OCT 000442000000       60                                                
       MZE 60,0,188           442                                               
       OCT 000442000000       96                                                
       HTR 0,0,39             442                                               
       OCT 000443000000      103                                                
       HTR 0,0,163            443                                               
       OCT 000446000000       58                                                
       HTR 0,0,79             446                                               
       OCT 000454000000       62                                                
       MZE 62,0,137           454                                               
       OCT 000454000000       64                                                
       HTR 0,0,20             454                                               
       OCT 000460000000       98                                                
       HTR 0,0,108            460                                               
       OCT 000465000000       96                                                
       HTR 0,0,38             465                                               
       OCT 000500000000       96                                                
       HTR 0,0,39             500                                               
       OCT 000510000000       56                                                
       MZE 56,0,80            510                                               
       OCT 000510000000       73                                                
       HTR 0,0,184            510                                               
       OCT 000517000000       62                                                
       HTR 0,0,86             517                                               
       OCT 000520000000       56                                                
       MZE 56,0,81            520                                               
       OCT 000520000000      113                                                
       HTR 0,0,163            520                                               
       OCT 000521000000       60                                                
       HTR 0,0,188            521                                               
       OCT 000524000000       62                                                
       HTR 0,0,118            524                                               
       OCT 000533000000       92                                                
       HTR 0,0,27             533                                               
       OCT 000534000000       62                                                
       HTR 0,0,138            534                                               
       OCT 000544000000       60                                                
       HTR 0,0,188            544                                               
       OCT 000546000000        2                                                
       HTR 0,0,35             546                                               
       OCT 000553000000       62                                                
       HTR 0,0,87             553                                               
       OCT 000556000000       64                                                
       HTR 0,0,159            556                                               
       OCT 000562000000       92                                                
       MZE 92,0,100           562                                               
       OCT 000562000000      113                                                
       HTR 0,0,37             562                                               
       OCT 000604000000       92                                                
       HTR 0,0,28             604                                               
       OCT 000607000000       60                                                
       HTR 0,0,39             607                                               
       OCT 000613000000       56                                                
       HTR 0,0,188            613                                               
       OCT 000624000000       98                                                
       HTR 0,0,148            624                                               
       OCT 000627000000       60                                                
       HTR 0,0,40             627                                               
       OCT 000643000000       64                                                
       HTR 0,0,21             643                                               
       OCT 000654000000       56                                                
       HTR 0,0,188            654                                               
       OCT 000661000000       75                                                
       HTR 0,0,166            661                                               
       OCT 000674000000       60                                                
       HTR 0,0,82             674                                               
       OCT 000707000000       64                                                
       HTR 0,0,20             707                                               
       OCT 000711000000       62                                                
       HTR 0,0,158            711                                               
       OCT 000716000000       62                                                
       HTR 0,0,88             716                                               
       OCT 000720000000       60                                                
       HTR 0,0,83             720                                               
       OCT 000734000000       45                                                
       HTR 0,0,39             734                                               
       OCT 000747000000       56                                                
       HTR 0,0,16             747                                               
       OCT 000750000000       56                                                
       HTR 0,0,16             750                                               
       OCT 000756000000       64                                                
       HTR 0,0,22             756                                               
       OCT 000762000000       75                                                
       HTR 0,0,169            762                                               
       OCT 000765000000       92                                                
       HTR 0,0,101            765                                               
       OCT 001000000000       56                                                
       HTR 0,0,188           1000                                               
       OCT 001001000000       24                                                
       HTR 0,0,111           1001                                               
       OCT 001006000000       45                                                
       HTR 0,0,45            1006                                               
       OCT 001022000000       75                                                
       HTR 0,0,166           1022                                               
       OCT 001023000000       64                                                
       HTR 0,0,89            1023                                               
       OCT 001031000000       24                                                
       HTR 0,0,61            1031                                               
       OCT 001041000000       64                                                
       HTR 0,0,23            1041                                               
       OCT 001076000000       45                                                
       HTR 0,0,171           1076                                               
       OCT 001135000000       62                                                
       MZE 62,0,47           1135                                               
       OCT 001135000000       92                                                
       HTR 0,0,102           1135                                               
       OCT 001141000000       45                                                
       HTR 0,0,40            1141                                               
       OCT 001160000000       22                                                
       HTR 0,0,191           1160                                               
       OCT 001175000000       62                                                
       HTR 0,0,90            1175                                               
       OCT 001211000000       75                                                
       HTR 0,0,140           1211                                               
       OCT 001221000000       22                                                
       MZE 22,0,62           1221                                               
       OCT 001221000000       75                                                
       HTR 0,0,141           1221                                               
       OCT 001231000000       45                                                
       HTR 0,0,51            1231                                               
       OCT 001234000000       62                                                
       HTR 0,0,185           1234                                               
       OCT 001240000000       75                                                
       HTR 0,0,93            1240                                               
       OCT 001261000000       62                                                
       HTR 0,0,186           1261                                               
       OCT 001274000000       22                                                
       HTR 0,0,57            1274                                               
       OCT 001307000000       22                                                
       HTR 0,0,170           1307                                               
       OCT 001320000000       56                                                
       HTR 0,0,188           1320                                               
       OCT 001341000000       92                                                
       HTR 0,0,144           1341                                               
       OCT 001345000000       22                                                
       HTR 0,0,58            1345                                               
       OCT 001347000000       92                                                
       HTR 0,0,145           1347                                               
       OCT 001377000000       22                                                
       HTR 0,0,59            1377                                               
       OCT 001444000000       22                                                
       HTR 0,0,60            1444                                               
       OCT 001531000000       56                                                
       HTR 0,0,188           1531                                               
       OCT 001634000000       75                                                
       HTR 0,0,169           1634                                               
       OCT 001767000000       56                                                
       HTR 0,0,188           1767                                               
       OCT 001777000000       75                                                
       HTR 0,0,169           1777                                               
       OCT 002230000000      75                                                 
       HTR 0,0,187          2230                                                
       OCT 002155000000       56                                                
       HTR 0,0,17            2155                                               
       OCT 002163000000       56                                                
       HTR 0,0,18            2163                                               
       OCT 002655000000      75                                                 
       HTR 0,0,25           2655                                                
       OCT 003001000000      88                                                 
       HTR 0,0,160          3001                                                
       OCT 003064000000       65                                                
       HTR 0,0,168           3064                                               
       OCT 003143000000       65                                                
       HTR 0,0,48            3143                                               
       OCT 003156000000       65                                                
       HTR 0,0,24            3156                                               
       OCT 003253000000      88                                                 
       HTR 0,0,161          3253                                                
       OCT 003540000000      8B                                                 
       HTR 0,0,94           3540                                                
       OCT 004006000000       51                                                
       HTR 0,0,43            4006                                               
       OCT 004007000000       51                                                
       HTR 0,0,43            4007                                               
       OCT 004026000000       51                                                
       HTR 0,0,67            4026                                               
       OCT 004031000000       75                                                
       HTR 0,0,169           4031                                               
       OCT 004035000000       51                                                
       HTR 0,0,128           4035                                               
       OCT 004040000000       51                                                
       HTR 0,0,7             4040                                               
       OCT 004054000000       51                                                
       HTR 0,0,68            4054                                               
       OCT 004124000000       51                                                
       HTR 0,0,174           4124                                               
       OCT 004155000000       34                                                
       HTR 0,0,69            4155                                               
       OCT 004157000000       51                                                
       HTR 0,0,175           4157                                               
       OCT 004160000000       34                                                
       HTR 0,0,8             4160                                               
       OCT 004161000000       34                                                
       HTR 0,0,129           4I61                                               
       OCT 004303000000       75                                                
       HTR 0,0,169           4303                                               
       OCT 004307000000       51                                                
       HTR 0,0,52            430I                                               
       OCT 004417000000      88                                                 
       HTR 0,0,121          4417                                                
       OCT 004405000000       34                                                
       HTR 0,0,176           4405                                               
       OCT 004453000000      88                                                 
       HTR 0,0,95           4453                                                
       OCT 004533000000       51                                                
       HTR 0,0,177           4533                                               
       OCT 004570000000       34                                                
       HTR 0,0,49            4570                                               
       OCT 004623000000       51                                                
       HTR 0,0,172           4623                                               
       OCT 004666000000       51                                                
       HTR 0,0,40            4666                                               
       OCT 005037000000      34                                                 
       HTR 0,0,9              5037                                              
       OCT 005232000000       34                                                
       HTR 0,0,173           5232                                               
       OCT 005273000000       34                                                
       HTR 0,0,189           5273                                               
       OCT 005560000000       34                                                
       HTR 0,0,41            5560                                               
       OCT 005721000000       27                                                
       HTR 0,0,178           5721                                               
       OCT 005742000000       27                                                
       HTR 0,0,153           5742                                               
       OCT 005763000000       27                                                
       HTR 0,0,153           5763                                               
       OCT 005764000000       27                                                
       HTR 0,0,153           5764                                               
       OCT 005773000000       51                                                
       HTR 0,0,154           5773                                               
       OCT 006004000000       32                                                
       HTR 0,0,149           6004                                               
       OCT 006044000000       27                                                
       HTR 0,0,10            6044                                               
       OCT 006063000000       32                                                
       HTR 0,0,189           6063                                               
       OCT 006065000000       27                                                
       HTR 0,0,11            6065                                               
       OCT 006234000000       51                                                
       HTR 0,0,12            6234                                               
       OCT 006253000000       32                                                
       HTR 0,0,179           6253                                               
       OCT 006256000000       32                                                
       HTR 0,0,179           6256                                               
       OCT 006353000000       51                                                
       HTR 0,0,155           6353                                               
       OCT 006357000000       29                                                
       HTR 0,0,40            6357                                               
       OCT 006373000000       27                                                
       HTR 0,0,151           6373                                               
       OCT 006376000000       27                                                
       HTR 0,0,152           6376                                               
       OCT 006432000000       27                                                
       HTR 0,0,13            6432                                               
       OCT 006475000000       32                                                
       HTR 0,0,189           6475                                               
       OCT 006534000000       27                                                
       HTR 0,0,10            6534                                               
       OCT 006635000000       27                                                
       HTR 0,0,180           6635                                               
       OCT 006710000000       27                                                
       HTR 0,0,150           6710                                               
       OCT 006736000000       41                                                
       HTR 0,0,113           6736                                               
       OCT 006737000000       41                                                
       HTR 0,0,113           6737                                               
       OCT 006744000000       41                                                
       HTR 0,0,70            6744                                               
       OCT 006762000000       43                                                
       HTR 0,0,40            6762                                               
       OCT 006765000000       37                                                
       HTR 0,0,44            6765                                               
       OCT 006767000000       39                                                
       HTR 0,0,71            6767                                               
       OCT 007023000000       27                                                
       HTR 0,0,181           7023                                               
       OCT 007027000000       37                                                
       HTR 0,0,40            7027                                               
       OCT 007045000000       43                                                
       HTR 0,0,14            7045                                               
       OCT 007052000000       37                                                
       HTR 0,0,130           7052                                               
       OCT 007053000000       37                                                
       HTR 0,0,122           7053                                               
       OCT 007056000000       37                                                
       HTR 0,0,130           7056                                               
       OCT 007057000000       37                                                
       HTR 0,0,122           7057                                               
       OCT 007070000000       37                                                
       HTR 0,0,72            7070                                               
       OCT 007073000000       39                                                
       HTR 0,0,182           7073                                               
       OCT 007075000000       27                                                
       HTR 0,0,125           7075                                               
       OCT 007076000000       27                                                
       HTR 0,0,125           7076                                               
       OCT 007100000000       55                                                
       HTR 0,0,29            7100                                               
       OCT 007103000000       27                                                
       HTR 0,0,131           7103                                               
       OCT 007110000000       43                                                
       HTR 0,0,156           7110                                               
       OCT 007112000000       27                                                
       HTR 0,0,114           7112                                               
       OCT 007123000000       27                                                
       HTR 0,0,73            7123                                               
       OCT 007135000000       27                                                
       HTR 0,0,132           7135                                               
       OCT 007143000000       55                                                
       HTR 0,0,188           7143                                               
       OCT 007250000000       27                                                
       HTR 0,0,123           7250                                               
       OCT 007303000000       41                                                
       HTR 0,0,14            7303                                               
       OCT 007320000000       27  DO NEST                                       
       HTR 0,0,5             7320   DO NESTING                                  
       OCT 007454000000      75                                                 
       HTR 0,0,26           7454                                                
       OCT 007555000000       21                                                
       HTR 0,0,127           7555                                               
       OCT 007563000000       21                                                
       HTR 0,0,126           7563                                               
       OCT 007620000000       21                                                
       HTR 0,0,190           7620                                               
       OCT 007627000000       21                                                
       HTR 0,0,64            7627                                               
       OCT 007632000000      36                                                 
       HTR 0,0,9              7632                                              
       OCT 007720000000       21                                                
       HTR 0,0,63            7720                                               
       OCT 007751000000       21                                                
       MZE 22,0,192          7751                                               
       OCT 007751000000       36                                                
       HTR 0,0,50            7751                                               
       OCT 007760000000       30                                                
       HTR 0,0,42            7760                                               
       OCT 016004000000      75                                                 
       HTR 0,0,26          16004                                                
ERLIST HTR 0,0,ERLIST-1-LOCREC    DEC HAS NUMBER OF ENTRIES SO FAR              
       ORG 1884              WAS 83534                                          
ENDPCH LXD DRUM,4                                                               
       RDR 4                                                                    
       LDA DRUM                                                                 
       TRA 0                                                                    
MACEN  BCD 7                                                                    
       BCD  PRESS START IF YOU WISH TO RE-RUN PROBLEM                           
       BCD                                                                      
       BCD  OR KEY IN 076000 000141                                             
       BCD                                                                      
       BCD  AND PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING             
XZY                                                                             
       REM EXPOSE EXTERNAL SYMBOLS RPC
0      HED                                                                      
PRINT  SYN E$PRINT                                                              
SPEND  SYN E$SPEND                                                              
ERAS   SYN E$ERAS
ZERO   SYN E$ZERO
PRNT4  SYN E$PRNT4
PRNT2  SYN E$PRNT2
HTR4   SYN E$HTR4
LIST   SYN E$LIST
SYM    SYN E$SYM
FX4PR  SYN E$FX4PR
LXDA   SYN E$LXDA
DONE   SYN E$DONE
       WST 10,1                                                                 
       END                                                                      
       ORG 3                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 3                 STOP NOT IN THIS LIST                              
       CLA ERWORD                                                               
       ARS 18                                                                   
       TSX OCTBCD,4                                                             
       SLW NOLIST                                                               
       TSX PRINT,4                                                              
       HTR PR,0,PR+14                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
NOLIST HTR                                                                      
       BCD   THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERROR LI        
       BCD 1ST.                                                                 
X                                                                               
       END                                                                      
       ORG 4                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 4                 1 DOUBLE PRIME                                     
       LXD 24,1              IN DEC OF 24,1 NUMBER OF ENTRIES                   
       TIX A,1,1             MADE BY NON-ARITHMETIC DIAGNOSTIC                  
       LXD ZERO,1                                                               
A      SXD NXTER,1           SET END OF ERROR LIST TEST                         
       LXD ZERO,1                                                               
AB     WPR                   SPACE BETWEEN ERROR COMMENTS                       
       LXD ZERO,2                                                               
       CLA LIST,1                                                               
       ANA DECMSK                                                               
       SUB PREFX1            GET UNCOMPLIMENTED LOCATION                        
       ANA DECMSK                                                               
AE     CAS ER1PRM,2          2 WORD ENTRIES IN THIS LIST                        
       TRA AC                                                                   
       TRA BHAV                                                                 
AC     TXI AD,2,2                                                               
AD     TXL AE,2,62           62 STOPS IN LIST SO FAR                            
       TRA NO                CANNOT IDENTIFY                                    
BHAV   CLA ER1PRM+1,2                                                           
       STA BA                                                                   
BA     TRA                                                                      
NO     BST 1                 SPACE BACK TO PRINT RECORD ZERO                    
       BST 1                                                                    
       STO ERWORD            AND SAVE OCTAL LOCATION                            
       TRA LXDA                                                                 
NXTER  TXL AB,1,0            NUMBER OF ERROR ENTRIES MINUS 1                    
       WPR                   FINISHED WITH ERROR LIST, SPACE PRINTER            
       CLA HTR4                                                                 
       STO DONE+3                                                               
       TRA SPEND                                                                
TEIFNO CLA LIST-1,1          BETA, WHICH IS DUPLICATED IN SOURCE                
       ANA ADDMSK            PROGRAM, IS IN ADDRESS 0F LIST                     
       TSX BINDEC,4                                                             
       SLW TBETA                                                                
       TSX PRINT,4                                                              
       HTR PRTEIF,0,PRTEIF+13                                                   
       TXI NXTER,1,2         2WORD ENTRIES IN ERROR LIST                        
PRTEIF BCD 2                                                                    
       BCD 3THE FORMULA NUMBER                                                  
TBETA  HTR                                                                      
       BCD 7 IS DUPLICATED IN THE SOURCE PROGRAM                                
MINB1  CLA ADTMI             SELECT ADDRESS OF PARTICULAR TIFGO ENTRY           
       PAX 0,4               FOR PRINT ROUTINE                                  
       STA WHICHA                                                               
       CAL N1                AND PICK UP BCD FOR COMMENT                        
       TXI BETAPR,4,34       ADD LENGTH OF COMMENT TO ADDRESS                   
MINB2  CLA ADTMI                                                                
       PAX 0,4                                                                  
       STA WHICHA                                                               
       CAL N2                                                                   
       TXI BETAPR,4,34                                                          
MINB3  CLA ADTMI                                                                
       PAX 0,4                                                                  
       STA WHICHA                                                               
       CAL N3                                                                   
       TXI BETAPR,4,34                                                          
TSXTFO CLA ADTZR                                                                
       PAX 0,4                                                                  
       STA WHICHA                                                               
       CAL N                                                                    
       TXI BETAPR,4,34                                                          
BTIFG1 CLA ADT1                                                                 
       PAX 0,4                                                                  
       STA WHICHA                                                               
       CAL SOMN                                                                 
       TXI BETAPR,4,34                                                          
BTIFG2 CLA ADT2                                                                 
       TRA BTIFG1+1                                                             
B1TIF3 CLA ADT3                                                                 
       TRA MINB1+1                                                              
B2TIF3 CLA ADT3                                                                 
       TRA MINB2+1                                                              
B1TIF4 CLA ADT4                                                                 
       TRA MINB1+1                                                              
B2TIF4 CLA ADT4                                                                 
       TRA MINB2+1                                                              
B1TIF5 CLA ADT5                                                                 
       TRA MINB1+1                                                              
B2TIF5 CLA ADT5                                                                 
       TRA MINB2+1                                                              
TIF6B  CLA ADT6                                                                 
       TRA TSXTFO+1                                                             
DONOBT CLA ADDO              SAME PROCESS AS FOR TIFGO ENTRIES                  
       PAX 0,4                                                                  
       STA WHICHA                                                               
       CAL B                                                                    
       TXI BETAPR,4,14                                                          
SOMN   BCD 1SOME N                                                              
N      BCD 1N                                                                   
N1     BCD 1N1                                                                  
N2     BCD 1N2                                                                  
N3     BCD 1N3                                                                  
B      BCD 1B                                                                   
BETAPR SXD WHICHA,4          SOME TIFGO, OR DO, STATEMENT REFERS TO             
       SLW BETAWD            A NONEXISTANT BETA                                 
       LDQ BETAWD            MOVE WORD INTO COMMENT                             
       CAL BETAWD-1                                                             
       ARS 18                                                                   
       LGL 18                                                                   
       SLW BETAWD-1                                                             
       LGL 18                                                                   
       LDQ BLANKS                                                               
       LGL 18                                                                   
       SLW BETAWD                                                               
       CLA LIST,1                                                               
       TSX EXBETA,4                                                             
       TSX LAJUST,4                                                             
       SLW FORMNB                                                               
       LDQ FORMNB            MOVE EXTERNAL FORMULA NUMBER                       
       CAL FORMNB-1          INTO COMMENT                                       
       ARS 6                                                                    
       LGL 6                                                                    
       SLW FORMNB-1                                                             
       LGL 30                                                                   
       LDQ BLANKS                                                               
       LGL 6                                                                    
       SLW FORMNB                                                               
       TSX PRINT,4                                                              
       HTR NOBETA,0,NOBETA+27                                                   
       TSX PRINT,4                                                              
WHICHA                                                                          
       TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                         
NOBETA BCD 2                                                                    
       BCD 3STATEMENT NUMBER                                                    
FORMNB HTR                                                                      
       BCD  REFERS TO A NON-EXISTENT FORMULA NUMBER CORRESPONDING TO            
BETAWD BCD 6                                                                    
       BCD 5IN THE TYPE OF STATEMENT                                            
ADTMI  HTR TISMIN                                                               
ADTZR  HTR TISZRO                                                               
ADT1   HTR TIS1                                                                 
ADT2   HTR TIS2                                                                 
ADT3   HTR TIS3                                                                 
ADT4   HTR TIS4                                                                 
ADT5   HTR TIS5                                                                 
ADT6   HTR TIS6                                                                 
ADDO   HTR DOS                                                                  
TISMIN BCD 4                                                                    
       BCD   A  IF ( E ) N1, N2, N3                                             
       BCD                                                                      
       BCD                                                                      
TISZRO BCD 4                                                                    
       BCD   A  GO TO N                                                         
       BCD                                                                      
       BCD                                                                      
TIS1   BCD 4                                                                    
       BCD   A  GO TO L ( N1, N2, NM )                                          
       BCD                                                                      
       BCD                                                                      
TIS2   BCD 4                                                                    
       BCD   A  GO TO ( N1, N2, NM ) J                                          
       BCD                                                                      
       BCD                                                                      
TIS3   BCD 4                                                                    
       BCD   A  IF ( SENSE SWITCH K ) N1, N2                                    
       BCD 9                                                                    
       BCD 1OR                                                                  
       BCD   A  IF ( SENSE LIGHT K ) N1, N2                                     
TIS4   BCD 4                                                                    
       BCD   A  IF DIVIDE CHECK N1, N2                                          
       BCD                                                                      
       BCD                                                                      
TIS5   BCD 4                                                                    
       BCD   A  IF ACCUMULATOR OVERFLOW N1, N2                                  
       BCD 9                                                                    
       BCD 1OR                                                                  
       BCD   A  IF QUOTIENT OVERFLOW N1, N2                                     
TIS6   BCD 4                                                                    
       BCD   A  ASSIGN K TO N                                                   
       BCD                                                                      
       BCD                                                                      
DOS    BCD 4                                                                    
       BCD   A  DO B I = N1, N2, N3                                             
TSXH   LXD XTABLE,4          FIND THE KIND OF TIFGO ENTRY WHICH                 
       CLA LIST,1            IS TRYING TO TURN CONTROL OVER TO A                
       ALS 18                NON-EXECUTABLE STATEMENT                           
       ANA DECMSK                                                               
       SUB PREFX1                                                               
       ANA DECMSK                                                               
TSHCAS CAS XTABLE,4                                                             
       TRA TSXH1                                                                
       TRA HVNOX                                                                
TSXH1  TIX TSHCAS,4,2                                                           
       TRA NO                CANNOT IDENTIFY, PRINT OCTAL LOCATION              
HVNOX  CLA XTABLE+1,4                                                           
       STA TSHTRA                                                               
TSHTRA TRA                                                                      
       OCT 000316000000                                                         
       HTR SAVEB1                                                               
       OCT 000327000000                                                         
       HTR SAVEB2                                                               
       OCT 000337000000                                                         
       HTR SAVEB3                                                               
       OCT 000352000000                                                         
       HTR TIFOB                                                                
       OCT 000374000000                                                         
       HTR TRADX1                                                               
       OCT 000421000000                                                         
       HTR TRADX2                                                               
       OCT 000443000000                                                         
       HTR TIF3B1                                                               
       OCT 000453000000                                                         
       HTR TIF3B2                                                               
       OCT 000467000000                                                         
       HTR TIF4B1,                                                              
       OCT 000477000000                                                         
       HTR TIF4B2                                                               
       OCT 000513000000                                                         
       HTR TIF5B1                                                               
       OCT 000523000000                                                         
       HTR TIF5B2                                                               
XTABLE HTR 0,0,24                                                               
SAVEB1 CLA ADTMI                                                                
       TRA NOXBTA                                                               
SAVEB2 TRA SAVEB1                                                               
SAVEB3 TRA SAVEB1                                                               
TIFOB  CLA ADTZR                                                                
       TRA NOXBTA                                                               
TRADX1 CLA ADT1                                                                 
       TRA NOXBTA                                                               
TRADX2 CLA ADT2                                                                 
       TRA NOXBTA                                                               
TIF3B1 CLA ADT3                                                                 
       TRA NOXBTA                                                               
TIF3B2 TRA TIF3B1                                                               
TIF4B1 CLA ADT4                                                                 
       TRA NOXBTA                                                               
TIF4B2 TRA TIF4B1                                                               
TIF5B1 TRA TIF5B2                                                               
TIF5B2 CLA ADT5                                                                 
NOXBTA STA ADDTD             A TIFGO STATEMENT HAS ATTEMPTED TO                 
       ADD DEC34             TURN OVER CONTROL OF THE PROGRAM TO A              
       ALS 18                NON EXECUTABLE STATEMENT                           
       STD ADDTD                                                                
       CLA LIST-1,1          GET EXTERNAL NUMBER OF TIFGO ENTRY                 
       TSX EXBETA,4                                                             
       TSX LAJUST,4                                                             
       SLW ERAS                                                                 
       CAL TIFOR                                                                
       ARS 12                                                                   
       LDQ ERAS                                                                 
       LGL 12                                                                   
       SLW TIFOR                                                                
       LGL 24                                                                   
       LDQ BLANKS                                                               
       LGL 12                                                                   
       SLW TIFOR+1                                                              
       CLA LIST-1,1          GET EXTERNAL NUMBER OF STATEMENT                   
       ARS 18                WHICH IS NOT EXECUTABLE                            
       TSX EXBETA,4                                                             
       TSX LAJUST,4                                                             
       SLW ERAS                                                                 
       CAL NONB-1                                                               
       LDQ ERAS                                                                 
       ARS 6                                                                    
       LGL 6                                                                    
       SLW NONB-1                                                               
       LGL 30                                                                   
       LDQ BLANKS                                                               
       LGL 6                                                                    
       SLW NONB                                                                 
       TSX PRINT,4                                                              
       HTR BTNONX,0,BTNONX+28                                                   
       TSX PRINT,4                                                              
ADDTD  HTR                                                                      
       TXI NXTER,1,2         2WORD ENTRY IN ERROR LIST                          
BTNONX BCD 2                                                                    
       BCD 2STATEMENT NU                                                        
       BCD 1MBER                                                                
NONB   HTR                                                                      
       BCD 9IS NOT EXECUTABLE.  IT IS REFERRED TO BY STATEMENT NUM              
TIFOR  BCD 7BER                                                                 
       BCD 6WHICH IS OF THE FOLLOWING TYPE                                      
DEC34  HTR 34                                                                   
DOBTNX CLA LIST-1,1          BETA IS NOT AN EXECUTABLE STATEMENT                
       STO ALFBET            IN ALPHA DO BETA                                   
       CLA LIST-2,1                                                             
       STO SYM                                                                  
       TSX PRINT,4                                                              
       HTR DOBTX,0,DOBTX+12                                                     
       TSX FX4PR,4           PRINT DO STATEMENT                                 
       TXI NXTER,1,3         3 WORD ENTRY IN ERROR LIST                         
DOBTX  BCD 2                                                                    
       BCD  THE RANGE OF THIS DO ENDS WITH A NON-EXECUTABLE STATEMENT           
CONBET CLA LIST-1,1          IN ALPHA DO BETA, BETA IS A CONDITIONAL            
       STO ALFBET            TRANSFER, THAT IS, A TIFGO ENTRY                   
       CLA LIST-2,1                                                             
       STO SYM                                                                  
       TSX PRINT,4                                                              
       HTR CONBT,0,CONBT+13                                                     
       TSX FX4PR,4           PRINT DO STATEMENT                                 
       TXI NXTER,1,3         3 WORD ENTRY IN ERROR LIST                         
CONBT  BCD 2                                                                    
       BCD  THE RANGE OF THIS DO ENDS WITH A CONDITIONAL TRANSFER STATEM        
       BCD 1ENT                                                                 
DOALNX CLA LIST-1,1          ALPHA PLUS 1, IN ALPHA D0 BETA,                    
       STO ALFBET            IS NOT EXECUTABLE                                  
       CLA LIST-2,1                                                             
       STO SYM                                                                  
       TSX PRINT,4                                                              
       HTR DOALX,0,DOALX+15                                                     
       TSX FX4PR,4           PRINT DO STATEMENT                                 
       TXI NXTER,1,3         3 WORD ENTRIES IN ERROR LIST                       
DOALX  BCD 2                                                                    
       BCD  THE STATEMENT IMMEDIATELY FOLLOWING THIS DO IS NOT AN EXECUT        
       BCD 3ABLE STATEMENT                                                      
CHBTSX CLA LIST,1            THE SYMBOL, OR A VARIABLE IN A DO STATEMENT        
       ALS 18                DOES NOT BEGIN WITH I J K ETC                      
       ANA DECMSK                                                               
       SUB PREFX1            CONVERT TSX TO NUMBER OF STOP WHERE THIS           
       ANA DECMSK                                                               
       LXA ZERO,4            WAS PICKED UP                                      
CHBCAS CAS BLIST-1,4         DETERMINE WHETHER SYMBOL, N1, N2 OR N3             
       TRA CHBTXI                                                               
       TRA HVCHB                                                                
CHBTXI TXI CHBTXL,4,2                                                           
CHBTXL TXL CHBCAS,4,6                                                           
       TRA NO                CANNOT IDENTIFY, PRINT ERROR RECORD ZERO           
HVCHB  CAL BLIST,4           BCD FOR N1,N2 OR N3, BUT INDEXING                  
       TZE CHBDO             SYMBOL IS ZERO, WILL BE PROCESS BY ITSELF          
       LDQ BLIST,4                                                              
       CAL THE               MOVE PARAMETER INTO COMMENT                        
       ARS 12                                                                   
       LGL 12                                                                   
       SLW THE                                                                  
       LGL 6                                                                    
       LDQ THE+1                                                                
       RQL 6                 SHIFT FIRST BLANK OUT OF MQ                        
       LGL 30                                                                   
       SLW THE+1                                                                
       CLA LIST-2,1          ARRANGE TO PRINT DO STATEMENT                      
       STO ALFBET                                                               
       CLA LIST-3,1                                                             
       STO SYM                                                                  
       CAL LIST-1,1          REMOVE ZEROS FROM VARIABLE NAME AND                
       TSX ZEROUT,4          ADJUST TO RIGHT                                    
       TSX RAJUST,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL DOPRAM            PUT HALF OF WORD IN COMMENT                        
       ARS 12                                                                   
       LGL 12                                                                   
       SLW DOPRAM                                                               
       LGL 24                                                                   
       LDQ DOPRAM+1          PUT IN OTHER HALF                                  
       RQL 24                                                                   
       LGL 12                                                                   
       SLW DOPRAM+1                                                             
       TSX PRINT,4                                                              
       HTR VRBL,0,VRBL+14                                                       
       TSX FX4PR,4           PRINT DO STATEMENT                                 
       TSX PRINT,4                                                              
       HTR VRPR,0,VRPR+11                                                       
       TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                       
VRBL   BCD 2                                                                    
       BCD  AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N.  IN THE         
       BCD 2DO STATEMENT                                                        
VRPR   BCD 2                                                                    
THE    BCD 1THE                                                                 
       BCD 3  INDEXING PARAMET                                                  
DOPRAM BCD 1ER,                                                                 
       BCD 4    , IS INCORRECT.                                                 
       OCT 000716000000                                                         
       BCD 13RD              IJKN3 IN NON-ARITH DIAG                            
       OCT 000703000000                                                         
       BCD 12ND              IJKN2                                              
       OCT 000670000000                                                         
       BCD 11ST              IJKN1                                              
       OCT 000656000000      IJKSYM                                             
BLIST  HTR 0                 ZERO INDICATES TO PR0GRAM THIS IS SYMBOL           
CHBDO  CLA LIST-2,1          ARRANGE TO PRINT DO STATEMENT                      
       STO ALFBET                                                               
       CLA LIST-3,1                                                             
       STO SYM                                                                  
       TSX PRINT,4                                                              
       HTR CHDOPR,0,CHDOPR+19                                                   
       TSX FX4PR,4                                                              
       TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                       
CHDOPR BCD 2                                                                    
       BCD  AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N.  THE IND        
       BCD 7EX SYMBOL IS INCORRECT IN THE STATEMENT                             
CHATSX LXD ZERO,2            AN ILLEGAL CHARACTER HAS BEEN FOUND IN             
       CLA LIST,1            SOME NAME                                          
       ALS 18                UNCOMPLIMENTED LOCATION WILL SHOW                  
       ANA DECMSK            KIND OF STATEMENT USING THIS NAME                  
       SUB PREFX1                                                               
       ANA DECMSK                                                               
CB     CAS CHA2WD,2          IS THIS FROM ONE OF THE SIZ, COMMON                
       TRA TXIC              FUNCTION ETC., STATEMENTS                          
       TRA PR2WD                                                                
TXIC   TXI CA,2,2                                                               
CA     TXL CB,2,6                                                               
CC     CAS CHA3WD,2          OR DOES THE NAME APPEAR IN A D0 STATEMENT          
       TRA CTIX                                                                 
       TRA PR3WD                                                                
CTIX   TIX CC,2,2                                                               
       TRA NO                PRINT UNIDENTIFYABLE STOP                          
       OCT 000131000000                                                         
       HTR FRSB              TSXA IN NON ARITH DIAG                             
       OCT 000143000000                                                         
       HTR SZ                TSXB                                               
       OCT 000163000000                                                         
       HTR SBAR              TSXC                                               
CHA2WD OCT 000175000000                                                         
       HTR CMON              TSXD                                               
       OCT 000653000000                                                         
       HTR 0                 PUNSYN                                             
       OCT 000665000000                                                         
       BCD 1 1ST I           PUNN1                                              
       OCT 000700000000                                                         
       BCD 1 2ND I           PUNN2                                              
       OCT 000713000000                                                         
       BCD 1 3RD I           PUNN3                                              
CHA3WD                                                                          
PR2WD  CLA CHA2WD+1,2        PRINT IDENTIFICATION OF STATEMENT                  
       STA CHACLA            IN WHICH NAME WAS FOUND                            
       LXD ZERO,2            TRANSFER 8 WORDS ABOUT STATEMENT                   
CHACLA CLA 0,2               INTO COMMENT                                       
       STO DA,2                                                                 
       TXI CHATXH,2,-1                                                          
CHATXH TXH CHACLA,2,-8                                                          
       CAL LIST-1,1                                                             
       TSX ZEROUT,4          UNPACK NAME AND MOVE TO RIGHT                      
       TSX RAJUST,4                                                             
       SLW D                                                                    
       TSX PRINT,4                                                              
       HTR PRCHA,0,PRCHA+19                                                     
       TXI NXTER,1,2         2 WORD ENTRY IN ERROR LIST                         
PRCHA  BCD 2                                                                    
       BCD 2THE SYMBOL,                                                         
D      HTR                                                                      
       BCD 6, CONTAINS AN ILLEGAL CHARACTER.  IT                                
DA     BCD 8                                                                    
CMON   BCD 8 APPEARS IN A COMMON STATEMENT.                                     
SZ     BCD 8 APPEARS IN A DIMENSION STATEMENT.                                  
FRSB   BCD 8 APPEARS AS THE NAME OF A FORTRAN FUNCTION.                         
SBAR   BCD 8 APPEARS AS AN ARGUMENT OF A SUBROUTINE.                            
PR3WD  CLA CHA3WD+1,2        1ST,2ND,OR 3RD PARAMETER                           
       TZE SYMDO             ZERO IF SYMBOL REFERED TO                          
       STO PAR                                                                  
       CAL LIST-1,1          UNPACK NAME AND MOVE TO RIGHT                      
       TSX ZEROUT,4                                                             
       TSX RAJUST,4                                                             
       SLW WRPAR                                                                
       TSX PRINT,4                                                              
       HTR PARAPR,0,PARAPR+17                                                   
       CLA LIST-2,1          PRINT ALPHA TO BETA STATEMENT AND                  
       STO ALFBET            SYMBOL                                             
       CLA LIST-3,1                                                             
       STO SYM                                                                  
       TSX FX4PR,4                                                              
       TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                       
PARAPR BCD 2                                                                    
       BCD 6THERE IS AN ILLEGAL CHARACTER IN THE                                
PAR    HTR                                                                      
       BCD 3NDEXING PARAMETER                                                   
WRPAR  HTR                                                                      
       BCD 4, OF THE DO STATEMENT                                               
SYMDO  TSX PRINT,4                                                              
       HTR SYMDPR,0,SYMDPR+14                                                   
       CLA LIST-2,1                                                             
       STO ALFBET            PRINT ALPHA DO BETA FOR SYMBOL                     
       CLA LIST-3,1          WITH ILLEGAL CHARACTER                             
       STO SYM                                                                  
       TSX FX4PR,4                                                              
       TXI NXTER,1,4         4 WORD ENTRIES IN ERROR LIST                       
SYMDPR BCD 2                                                                    
       BCD  THERE IS AN ILLEGAL CHARACTER IN THE INDEXING SYMBOL OF THE         
       BCD 2DO STATEMENT                                                        
NOTRA  CLA LIST,1            ALPHA+1,INTERNAL FORMULA NUMBER,                   
       ANA ADDMSK            IN ADDRESS OF LIST. THIS IS NUMBER OF AN           
       TSX EXBETA,4          EXECUTABLE STATEMENT WHICH FOLLOWS A               
       TSX LAJUST,4          TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER          
       SLW EXTN1             TRANSFERED TO IN THE FLOW OF THE PROBLEM           
       TSX PRINT,4                                                              
       HTR PRNOTR,0,PRNOTR+18                                                   
       TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                         
PRNOTR BCD 2                                                                    
       BCD  A PART OF THE PROGRAM CANNOT BE REACHED.  IT IS LOCATED AT O        
       BCD 5R JUST BELOW STATEMENT NUMBER                                       
EXTN1  HTR                                                                      
FRETIF CLA LIST,1            INTERNAL FORMULA NUMBER                            
       TSX EXBETA,4          IN ADDRESS OF LIST. SECTION 4 WILL STOP            
       TSX LAJUST,4          WHEN THERE ARE MORE BRANCHES THAN                  
       SLW FRALFA            NECESSARY FOR A TIFGO ENTRY.                       
       TSX PRINT,4                                                              
       HTR PRFREQ,0,PRFREQ+15                                                   
       TXI NXTER,1,1         1 WORD ENTRY IN ERROR LIST                         
PRFREQ BCD 2                                                                    
       BCD  A FREQUENCY STATEMENT CONTAINS TOO MANY BRANCHES FOR THE FOR        
       BCD 2MULA NUMBER                                                         
FRALFA HTR                                                                      
NOTEQV CAL LIST-1,1          THIS IS STILL IN BCD FORM, BUT MAY BE              
       TSX ZEROUT,4          FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME           
       SLW EQWD              HAS BEEN ASSIGNED INCONSISTANT VALUES IN           
       LDQ EQWD              EQUIVALENCE STATEMENTS                             
       CAL EQWD-1                                                               
       ARS 12                MOVE WORD INTO REST OF COMMENT                     
       LGL 12                                                                   
       SLW EQWD-1                                                               
       LGL 24                                                                   
       LDQ BLANKS                                                               
       LGL 12                                                                   
       SLW EQWD                                                                 
       TSX PRINT,4                                                              
       HTR PREQ,0,PREQ+13                                                       
       TXI NXTER,1,2         2 WORD ENTRIES IN ERROR LIST                       
PREQ   BCD 2                                                                    
       BCD  AN INCONSISTENT EQUIVALENCE STATEMENT HAS BEEN MADE ABOUT           
EQWD   HTR                                                                      
BADWC  TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA LIST-1,1                                                             
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL BDWD                                                                 
       ARS 24                                                                   
       LGL 24                                                                   
       SLW BDWD                                                                 
       LGL 12                                                                   
       LDQ BLANKS                                                               
       LGL 24                                                                   
       SLW BDWD+1                                                               
       TSX PRINT,4                                                              
       HTR PRBDWC,0,PRBDWC+72                                                   
       TRA ENDMAC                                                               
NOIDEN TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA LIST-1,1                                                             
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL IDENWD                                                               
       ARS 18                                                                   
       LGL 18                                                                   
       SLW IDENWD                                                               
       LGL 18                                                                   
       LDQ IDENWD+1                                                             
       RQL 18                                                                   
       LGL 18                                                                   
       SLW IDENWD+1                                                             
       TSX PRINT,4                                                              
       HTR PRNOI,0,PRNOI+17                                                     
       TSX PRINT,4                                                              
       HTR MACHER,0,MACHER+32                                                   
       TRA ENDMAC                                                               
WHATIF TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR NOTIF,0,NOTIF+13                                                     
       TSX PRINT,4                                                              
       HTR MACHER,0,MACHER+12                                                   
ENDMAC CLA HTR4              SET RETURN SO PROBLEM CAN BE                       
       STO DONE              RE-RUN FOR MACHINE ERROR                           
       TRA RESTRT                                                               
PRBDWC BCD 2                                                                    
       BCD  ERROR IN READING RECORD FROM TAPE 2.  RECORD IDENTIFICATION         
BDWD   BCD  IS                                                                  
       BCD  WORD COUNT DOES NOT AGREE WITH COUNT IN RECORD.                     
       BCD 8                                                                    
MACHER BCD 2                                                                    
       BCD  PROBABLY MACHINE ERROR WHEN TABLE WAS COMPILED BY 1 PRIME.          
       BCD                                                                      
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
PRNOI  BCD 2                                                                    
       BCD 9RECORD FROM TAPE 2 CANNOT BE IDENTIFIED.  THIS RECORD               
IDENWD BCD 1HAS                                                                 
       BCD 5    IN ADDRESS OF FIRST WORD.                                       
NOTIF  BCD 2                                                                    
       BCD  ENTRY IN TIFGO, RECORD 6, FILE 5, TAPE 2, CANNOT BE IDENTIFI        
       BCD 1ED.                                                                 
       OCT 000301000000                                                         
       HTR WHATIF                                                               
       OCT 001125000000                                                         
       HTR CHBTSX                                                               
       OCT 000650000000                                                         
       HTR DOALNX                                                               
       OCT 000641000000                                                         
       HTR DOBTNX                                                               
       OCT 000727000000                                                         
       HTR CONBET                                                               
       OCT 000623000000                                                         
       HTR DONOBT                                                               
       OCT 001062000000                                                         
       HTR TSXH                                                                 
       OCT 000534000000                                                         
       HTR TIF6B                                                                
       OCT 000521000000                                                         
       HTR B2TIF5                                                               
       OCT 000511000000                                                         
       HTR B1TIF5                                                               
       OCT 000475000000                                                         
       HTR B2TIF4                                                               
       OCT 000465000000                                                         
       HTR B1TIF4                                                               
       OCT 000451000000                                                         
       HTR B2TIF3                                                               
       OCT 000441000000                                                         
       HTR B1TIF3                                                               
       OCT 000417000000                                                         
       HTR BTIFG2                                                               
       OCT 000372000000                                                         
       HTR BTIFG1                                                               
       OCT 000350000000                                                         
       HTR TSXTFO                                                               
       OCT 000335000000                                                         
       HTR MINB3                                                                
       OCT 000325000000                                                         
       HTR MINB2                                                                
       OCT 000314000000                                                         
       HTR MINB1                                                                
       OCT 000775000000                                                         
       HTR NOTEQV                                                               
       OCT 000762000000                                                         
       HTR FRETIF                                                               
       OCT 000070000000                                                         
       HTR BADWC                                                                
       OCT 000110000000                                                         
       HTR NOIDEN                                                               
       OCT 000576000000                                                         
       HTR NOTRA                                                                
       OCT 000212000000                                                         
       HTR TEIFNO            IE.,TSXE FROM NON-ARITH DIAP                       
ER1PRM OCT 001110000000                                                         
       HTR CHATSX                                                               
X                                                                               
       END                                                                      
       ORG 5                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 5,                7320  FT  27                                       
ERNBR  SYN 3778              OCTAL 7302                                         
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       LXD ERNBR,1                                                              
       TIX DONX1,1,2                                                            
DONX1  SXD DOTST,1                                                              
       LXD ZERO,1                                                               
NXTDO  CLA LIST,1                                                               
       TZE ONEDO                                                                
       CLA MORDOS            DO NOT PRINT COMMENT FOR SUCCEEDING                
       TNZ DO1               ERRORS                                             
       TSX PRINT,4                                                              
       HTR NONEST,0,NONEST+13                                                   
       SXD MORDOS,4                                                             
       WPR                                                                      
DO1    CLA LIST,1                                                               
       STO ALFBET                                                               
       CLA LIST-1,1                                                             
       STO SYM                                                                  
       TSX FX4PR,4           PRINT 1ST DO                                       
       CLA LIST-2,1          AND 2ND                                            
       STO ALFBET                                                               
       CLA LIST-3,1                                                             
       STO SYM                                                                  
       TSX FX4PR,4                                                              
       WPR                                                                      
       TXI DOTST,1,4                                                            
DOTST  TXL NXTDO,1,0                                                            
       WPR                                                                      
       TSX PRINT,4                                                              
       HTR ENDNST,0,ENDNST+9                                                    
       TRA SPEND                                                                
ONEDO  STZ MORDOS                                                               
       WPR                                                                      
       TSX PRINT,4                                                              
       HTR DOPR,0,DOPR+14                                                       
       CLA LIST-1,1                                                             
       STO ALFBET                                                               
       CLA LIST-2,1                                                             
       STO SYM                                                                  
       TSX FX4PR,4                                                              
       TXI DOTST,1,3                                                            
NONEST BCD 2                                                                    
       BCD  THE DO STATEMENTS IN THE FOLLOWING LIST ARE NOT CORRECTLY NE        
       BCD 1STED                                                                
ENDNST BCD 2                                                                    
       BCD 7CORRECT THE DO NESTING BEFORE REASSEMBLY.                           
DOPR   BCD 2                                                                    
       BCD  THE STATEMENT NUMBER ENDING A DO IS ABOVE IT IN THE SOURCE P        
       BCD 2ROGRAM.                                                             
MORDOS HTR 0                                                                    
X                                                                               
       END                                                                      
       ORG 6                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 6                  106  FT  53                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
RDDR   RDR 4                 NOR BUFFER NOW ON DRUM 4.                          
       LDA A                                                                    
       LXA L(15),1                                                              
COPYW  CPY ERAS+15,1         COPY FIRST WORD OF 4 WORD ENTRY.                   
       CPY ERAS+16,1         IGNORE NEXT THREE.                                 
       CPY ERAS+16,1                                                            
       CPY ERAS+16,1                                                            
       TIX COPYW,1,1                                                            
       LXA L(15),1                                                              
NEXT   CLA ERAS+15,1         IF NOT LOCATION SYMBOL OF CIT,                     
       TNZ PROCES            WORD WILL BE ZERO.                                 
       TIX NEXT,1,1                                                             
       CLA L(15)                                                                
       ALS 2                                                                    
       ADD A                                                                    
       STA A                                                                    
       SUB BUFSIZ                                                               
       TNZ RDDR                                                                 
       CLA ZERO                                                                 
PROCES ARS 18                IN THE DECREMENT THERE IS THE                      
       TSX EXBETA,4          ALPHA OF SOME STATEMENT NUMBER.                    
       SLW ERAS                                                                 
       CAL PR1                                                                  
       ARS 24                                                                   
       LDQ ERAS                                                                 
       LGL 24                                                                   
       SLW PR1                                                                  
       LGL 12                                                                   
       LDQ BLANKS                                                               
       LGL 24                                                                   
       SLW PR1+1                                                                
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA SPEND                                                                
A      HTR8200               STARTING DRUM ADDRESS                              
L(15)  HTR 15                                                                   
BUFSIZ HTR 4032              SIZE OF NOR BUFFER + INITIAL ADDRESS.              
PR     BCD 2                                                                    
       BCD  THE SET OF DO FORMULAS WHICH BEGINS OR TERMINATES IN THE VIC        
       BCD 4INITY OF STATEMENT NUMBE                                            
PR1    BCD 6R                                                                   
       BCD  HAS GIVEN RISE TO TOO MANY INSTRUCTIONS.  REWRITE PROGRAM AN        
       BCD  D SIMPLIFY DO NESTING                                               
       BCD  OR REDUCE THE NUMBER OF SUBSCRIPT COMBINATIONS.                     
X                                                                               
       END                                                                      
       ORG 7                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 7                 4040  FT  51                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       RDR 4                 TAGTAG TABLE ON DRUM 4.                            
       LDA A                                                                    
       CPY ERAS              COPY FIRST WORD OF 4 WORD ENTRY.                   
       CLA ERAS                                                                 
       ARS 18                                                                   
       TSX EXBETA,4                                                             
       SLW ERAS                                                                 
       CAL PR1                                                                  
       ARS 12                                                                   
       LDQ ERAS                                                                 
       LGL 12                                                                   
       SLW PR1                                                                  
       LGL 24                                                                   
       LDQ PR2                                                                  
       RQL 24                                                                   
       LGL 12                                                                   
       SLW PR2                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA SPEND                                                                
A      HTR81076                                                                 
PR     BCD 2                                                                    
       BCD 9TAGTAG TABLE SIZE HAS BEEN EXCEEDED.  DO STATEMENT NUM              
PR1    BCD 1BER 12                                                              
PR2    BCD 1345* I                                                              
       BCD 9S ONE OF A NEST OF DO STATEMENTS                                    
       BCD  WHICH CONTAINS, OR HAS GIVEN RISE TO, TOO MANY SUBSCRIPT COM        
       BCD  BINATIONS.  REWRITE SOURCE PROGRAM.                                 
X                                                                               
       END                                                                      
       ORG 8                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 8                 4160  FT  34                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+18                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  PROGRAM HAS MORE THAN 50 DO STATEMENTS IN A NEST.  REWRITE P        
       BCD 6ROGRAM WITH SIMPLER DO STRUCTURE.                                   
X                                                                               
       END                                                                      
       ORG 9                 FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE,                                       
       ORG LOCREC                                                               
       TXH 9                 5037  FT  34                                       
       REM 9                 7632  FT  36                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       LXD877777,1                                                              
       TXL DRMTAG,1,1                                                           
       TXL CHGTAG,1,2                                                           
       TXL NAMKEY,1,3                                                           
       TXL TRASTO,1,4                                                           
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  TSXCOM TABLE EXCEEDS BUFFER SIZE.  THERE ARE TOO MANY RELATI        
       BCD  VE CONSTANT DEFINITIONS.                                            
       BCD  THE TABLE IS CUMULATIVE OVER THE ENTIRE PROBLEM.  REWRITE SO        
       BCD  URCE PROGRAM.                                                       
CHGTAG TSX PRINT,4                                                              
       HTR PR1,0,PR1+82                                                         
       TRA SPEND                                                                
PR1    BCD 2                                                                    
       BCD  CHGTAG TABLE EXCEEDS BUFFER SIZE.  AN ENTRY IS MADE IN THIS         
       BCD  TABLE WHEN THERE ARE AT LEAST TWO                                   
       BCD  SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,         
       BCD  AND LEADING DIMENSIONS                                              
       BCD  WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO        
       BCD  NTROLLING DOS IN COMMON.                                            
       BCD  THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM.  REWR        
       BCD  ITE SOURCE PROGRAM.                                                 
DRMTAG CLA DRTG                                                                 
       STO PR3                                                                  
       TRA TRASTO                                                               
NAMKEY CLA NMKY                                                                 
       STO PR3                                                                  
TRASTO TSX PRINT,4                                                              
       HTR PR2,0,PR2+52                                                         
       TRA SPEND                                                                
PR2    BCD 2                                                                    
PR3    BCD  TRASTO TABLE EXCEEDS BUFFER SIZE.  THE SUBSCRIPT COMBINATION        
       BCD  S AND FLOW STRUCTURE IS TOO COMPLEX                                 
       BCD  WITHIN DO NESTS.  THIS TABLE IS CUMULATIVE OVER ALL NESTS.          
       BCD  REWRITE SOURCE PROGRAM AND                                          
       BCD  SIMPLIFY SUBSCRIPT COMBINATIONS OR DO NEST STRUCTURE.               
DRTG   BCD 1DRMTAG                                                              
NMKY   BCD 1NAMKEY                                                              
X                                                                               
       END                                                                      
       ORG 10                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 10                6044  FT  27                                       
       REM 10                6534  FT  27                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+27                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  TRANSFER ADDRESS LEVEL IS GREATER THAN 20.  REPROGRAM TO ELI        
       BCD  MINATE TRANSFERS TO DOS                                             
       BCD 5WITH LEVELS GREATER THAN 20.                                        
X                                                                               
       END                                                                      
       ORG 11                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 11                6065  FT  27                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       CLA 3264              6300 OCTAL                                         
       ARS 18                                                                   
       TSX EXBETA,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL PR1                                                                  
       ARS 6                                                                    
       LGL 6                                                                    
       SLW PR1                                                                  
       LGL 30                                                                   
       LDQ BLANKS                                                               
       LGL 6                                                                    
       SLW PR2                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+16                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD 2STATEMENT NU                                                        
PR1    BCD 1MBER                                                                
PR2    BCD 1                                                                    
       BCD  TRANSFERS INTO THE RANGE OF A DO FROM OUTSIDE ITS RANGE.            
X                                                                               
       END                                                                      
       ORG 12                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 12                6234  FT  51                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       CLA 2724              VCTR - OCTAL 5244                                  
       ARS 18                                                                   
       TSX EXBETA,4                                                             
       SLW BETA                                                                 
       LDQ BETA                                                                 
       CAL BLANKS                                                               
       LGL 30                                                                   
       SLW BETA                                     -                           
       LDQ BETA+1                                                               
       LGL 30                                                                   
       SLW BETA+1                                                               
       TSX PRINT,4                                                              
       HTR PR,0,PR+40                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD 6TOO MANY DOS END AT STATEMENT NUMBER                                
  BETA BCD 1 12345                                                              
       BCD  .  TH IS CONDITION, IN CONJUNCTION WITH SUBSCRIPT CONFIGURAT        
       BCD 3IONS,                                                               
       BCD  HAS RESULTED IN TOO MANY INSTRUCTIONS.  REWRITE PROGRAM AND         
       BCD 8SEPARATE DO ENDS BY USING CONTINUE STATEMENTS.                      
X                                                                               
       END                                                                      
       ORG 13                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 13                6432  FT  27                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  THE VARIABLE PARAMETER OF A DO IS REDEFINED BY THE INDEX SYM        
       BCD 8BOL OF A DO STATEMENT WITHIN THE DO.                                
X                                                                               
       END                                                                      
       ORG 14                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 14                7303  FT  4I                                       
       REM 14                7O45  FT  43                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  AN INTERMEDIATE CORE TABLE IS FULL.  REWRITE SOURCE PROGRAM         
       BCD  AND MODIFY THE NUMBER OF PURE RELATIVE CONSTANT                     
       BCD  SUBSCRIPT COMBINATIONS, IE., SUBSCRIPTS, NO SYMBOL OF WHICH         
       BCD 5IS UNDER CONTROL OF A DO.                                           
X                                                                               
       END                                                                      
       ORG 15                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 15                 270  FT  56                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+82                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  CHGTAG TABLE EXCEEDS BUFFER SIZE.  AN ENTRY IS MADE IN THIS         
       BCD  TABLE WHEN THERE ARE AT LEAST TWO                                   
       BCD  SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,         
       BCD  AND LEADING DIMENSIONS                                              
       BCD  WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO        
       BCD  NTROLLING DOS IN COMMON.                                            
       BCD  THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM.  REWR        
       BCD  ITE SOURCE PROGRAM.                                                 
X                                                                               
       END                                                                      
       ORG 16                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 16                 750  FT  56                                       
       REM  16                 747  FT  56                                      
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+19                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  A FORTRAN FUNCTION HAS BEEN DEFINED AT A POINT IN THE SOURCE        
       BCD 7 PROGRAM OTHER THAN AT ITS BEGINNING.                               
X                                                                               
       END                                                                      
       ORG 17                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 17                2155  FT  56                                       
       TSX PRINT,4                                       .,                     
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+13                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  A MULTIVARIATE OPEN SUBROUTINE HAS ONLY ONE ARGUMENT SPECIFI        
       BCD 1ED.                                                                 
X                                                                               
       END                                                                      
       ORG 18                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 18                2163  FT  56                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+15                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  MORE ARGUMENTS HAVE BEEN SUPPLIED THAN ARE REQUIRED BY AN OP        
       BCD 3EN SUBROUTINE.                                                      
X                                                                               
       END                                                                      
       ORG 19                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 19                 434  FT  62                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+33                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  FLOW OF PROGRAM IS TOO COMPLEX.  NEXT ENTRY CANNOT BE MADE I        
       BCD  N LIST OF BASIC BLOCKS.                                             
       BCD  REWRITE PROGRAM WITH FEWER TRANSFER ADDRESSES, OR DO IN TWO         
       BCD 1PARTS.                                                              
X                                                                               
       END                                                                      
       ORG 20                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 20                 454  FT  64                                       
       REM 20                 707  FT  64                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+16                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  A PART OF THE SOURCE PROGRAM HAS NO POSSIBLE PATH OF FLOW TO        
       BCD 4 IT.  CHECK PROGRAM.                                                
X                                                                               
       END                                                                      
       ORG 21                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 21                 643  FT  64                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+17                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  MORE THAN 25 DISTINCT SYMBOLS USED IN ASSIGNED GO TO STATEME        
       BCD 5NTS.  SIMPLIFY SOURCE PROGRAM.                                      
X                                                                               
       END                                                                      
       ORG 22                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 22                 756  FT  64                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  FIXDOS TABLE IS FULL.  THERE ARE TOO MANY TRANSFERS TO DO ST        
       BCD 8ATEMENTS.  REWRITE SOURCE PROGRAM.                                  
X                                                                               
       END                                                                      
       ORG 23                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 23                1041  FT  64                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+26                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  SET TABLE IS FULL.  THERE ARE TOO MANY ASSIGN OR SENSE LIGHT        
       BCD   STATEMENTS, OR TOO MANY TRANSFERS TO DOS.                          
       BCD 4REWRITE SOURCE PROGRAM.                                             
X                                                                               
       END                                                                      
       ORG 24                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 24                3156  FT  64                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  FLOW OF PROGRAM IS TOO COMPLEX.  TRA TABLE HAS TOO MANY ENTR        
       BCD  IES.  REWRITE PROGRAM WITH                                          
       BCD 8FEWER TRANSFER ADDRESSES, OR DO IN TWO PARTS.                       
X                                                                               
       END                                                                      
       ORG 25                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 25                2655  FT  75                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+19                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  SIZE OF REGION TABLE EXCEEDS 50 ENTRIES.  PROBABLY TOO MANY         
       BCD 7SEPARATE DO NESTS.  REPROGRAM PROBLEM.                              
X                                                                               
       END                                                                      
       ORG 26                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 26               16004  FT  75                                       
       REM 26                7447  FT  75                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  SECTION 5 TABLES EXCEED DRUM SIZE.  PROBLEM IS TOO LONG, OR         
       BCD 8HAS TOO MANY TRANSFERS.  REPROGRAM PROBLEM.                         
X                                                                               
       END                                                                      
       ORG 27                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 27                 533  FT  92                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  THERE HAVE BEEN NO REFERENCES MADE IN THE PROGRAM TO A VARIA        
       BCD 8BLE WHICH WAS LISTED AS A SUBROUTINE ARGUMENT.                      
X                                                                               
       END                                                                      
       ORG 28                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 28                 604  FT  92                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+19                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  THERE HAVE BEEN OVER 1,000 REFERENCES TO SUBROUTINE ARGUMENT        
       BCD 7S IN THE PROGRAM.  MODIFY SOURCE PROGRAM.                           
X                                                                               
       END                                                                      
       ORG 29                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 29                7100  FT  56                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+46                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  OPEN SUBROUTINE NOT IN DICTIONARY USED BY SECTION 3.  THIS I        
       BCD  NDICATES THAT THE SYSTEM TAPE                                       
       BCD  WAS IMPROPERLY EDITED WHEN ADDITION WAS MADE TO DICTIONARY O        
       BCD  F OPEN SUBROUTINES USED BY                                          
       BCD 4SECTION 1 AND SECTION 3.                                            
X                                                                               
       END                                                                      
       ORG 30                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 30                 425  FT  67                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                                                 
       STD HTR4                                                                 
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  SOURCE PROGRAM CONTAINS AN ILLEGAL PATH OF FLOW, OR A MACHIN        
       BCD  E ERROR HAS RESULTED IN AN IMPOSSIBLE                               
       BCD  HALT AFTER A DIVIDE CHECK TEST.  CHECK SOURCE PROGRAM.              
X                                                                               
       END                                                                      
       ORG 31                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 31                 277  FT 113                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+51                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                        -                        
       STD HTR4                                                                 
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  AN ATTEMPT TO FIND A NAME IN THE INTERNALLY DEFINED VARIABLE        
       BCD   TABLE HAS FAILED.  IF THE SOURCE PROGRAM BEING                     
       BCD  COMPILED IS EXTREMELY LARGE, THIS STOP MAY INDICATE AN OVERL        
       BCD  AP OF TABLES IN CORE MEMORY.  NAME IN QUESTION                      
       BCD  IS STORED IN LEFT MOST 20 BITS OF LOCATION 157.                     
X                                                                               
       END                                                                      
       ORG 32                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 32                 341  FT  96                                       
       REM 32                 341  FT  9B                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+56                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                                                 
       STD HTR4                                                                 
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  AN ATTEMPT HAS BEEN MADE TO ASSIGN TWO OR MORE STORAGE LOCAT        
       BCD  IONS TO THE SAME VARIABLE NAME.  FAILURE OF                         
       BCD  SECTION 1 PRIME OR SECTION 5 PRIME IN THE PREPARATION OF THE        
       BCD   TABLES OF EQUIVALENCE CLASSES HAS OCCURRED,                        
       BCD  OR THERE IS AN INCONSISTANCY IN COMMON, EQUIV, AND DIM SENTE        
       BCD 4NCES IN SOURCE LANGUAGE.                                            
X                                                                               
       END                                                                      
       ORG 33                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 33                 352  FT 113                                       
       RDR 4                                                                    
       LDA A                                                                    
       CPY ERAS                                                                 
       CAL ERAS                                                                 
       ARS 18                                                                   
       LDQ BLANKS                                                               
       LGL 18                                                                   
       SLW OP                                                                   
       TSX PRINT,4                                                              
       HTR PR,0,PR+46                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                                                 
       STD HTR4                                                                 
       TRA SPEND                                                                
A      HTR8726                                                                  
PR     BCD 2                                                                    
       BCD  AN ATTEMPT TO FIND AN OPERATION ABBREVIATION IN THE TABLE OF        
       BCD   SHARE OPERATIONS HAS FAILED.  IF THE SOURCE                        
       BCD  PROGRAM BEING COMPILED IS EXTREMELY LARGE THIS MAY INDICATE         
       BCD  AN OVERLAP OF TABLES IN CORE MEMORY.                                
       BCD 3THE OPERATION IS                                                    
OP     BCD 1                                                                    
X                                                                               
       END                                                                      
       ORG 34                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 34                 377  FT 115                                       
       RDR 4                                                                    
       LDA A                                                                    
       CPY ERWRD                                                                
       CAL BLANKS                                                               
       LDQ ERWRD                                                                
       LGL 30                                                                   
       SLW ERWRD                                                                
       LGL 6                                                                    
       LDQ BLANKS                                                               
       LGL 30                                                                   
       SLW ERWRD+1                                                              
       TSX PRINT,4                                                              
       HTR PR,0,PR+54                                                           
       TRA SPEND                                                                
A      HTR81376                                                                 
PR     BCD 2                                                                    
       BCD  ERROR IN CARD SEQUENCE OF LIBRARY PROGRAM ON SYSTEM TAPE 1.         
       BCD   CARD READ SHOULD BE                                                
       BCD  A CONTINUATION OF LIBRARY PROGRAM REQUESTED, BUT PROGRAM CAR        
       BCD  D HAS BEEN FOUND INSTEAD.                                           
       BCD 47 LEFT ROW OF CARD READS                                            
ERWRD  BCD 2                                                                    
       BCD 6FIND ERROR AND REWRITE LIBRARY.                                     
X                                                                               
       END                                                                      
       ORG 35                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 35                 543  FT  115                                      
       TSX PRINT,4                                                              
       HTR PR,0,PR+36                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM THE SYSTEM TAPE 1.  FIVE A        
       BCD  TTEMPTS HAVE BEEN MADE TO READ THIS                                 
       BCD  RECORD CORRECTLY.  MAY BE NECESSARY TO REWRITE LIBRARY FILE         
       BCD 4 ON THE SYSTEM TAPE.                                                
X                                                                               
       END                                                                      
       ORG 36                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 36                 441  FT  96                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                                                 
       STD HTR4                                                                 
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  A SUBROUTINE CALL NAME OR A LIBRARY FUNCTION HAS BEEN USED A        
       BCD  S A VARIABLE NAME, OR THERE HAS BEEN A MACHINE                      
       BCD  ERROR IN COMPILING THE NAME.  CHECK SOURCE PROGRAM.                 
X                                                                               
       END                                                                      
       ORG 37                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 37                 562  FT 113                                       
       TSX PRINT,4                                                              
       HTR PR,0,PR+48                                                           
       SWT 6                                                                    
       TRA DIGRTN                                                               
       CLA PRNT4                                                                
       STO PRNT2                                                                
       CLA ZERO                                                                 
       STD HTR4                                                                 
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  THE ASSIGNMENT OF INSTRUCTION STORAGE LOCATIONS DOES NOT CHE        
       BCD  CK WITH THAT GIVEN IN A PREVIOUS RECORD.                            
       BCD  IF THE SOURCE PROGRAM BEING COMPILED IS EXTREMELY LARGE, THI        
       BCD  S STOP MAY INDICATE                                                 
       BCD 6AN OVERLAP OF TABLES IN MEMORY.                                     
X                                                                               
       END                                                                      
       ORG 38                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       REM END OF FILE**************************************************        
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 38                 425  FT  98                                       
       REM 38                 107  FT  92                                       
       REM 38                 277  FT  92                                       
       REM 38                 260  FT  96                                       
       REM 38                 465  FT  96                                       
       REM 38                 260  FT  98                                       
       REM 38                 247  FT 101                                       
       REM 38                 245  FT 105                                       
       REM 38                 241  FT 1I5                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD ZERO,3                                                               
D      CLA A,1                                                                  
       SUB ERWORD                                                               
       TZE B                                                                    
       TXI C,1,-13                                                              
C      TXH D,1,-13*8                                                            
       TSX PRINT,4                                                              
       HTR ER,0,ER+72                                                           
       HTR E                                                                    
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 38                                               
       BCD  TO BE READ IN.  THIS RECORD COMPARES THE LOCATION TO A LIST         
       BCD  OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                    
       BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1453, 1453 PLUS 13, ET        
       BCD  C.  PRESS START IF YOU WISH TO                                      
       BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                   
B      CLA A1SIX,1                                                              
       STO PR1SIX,2                                                             
       TXI F,2,-1                                                               
F      TXL G,2,-6                                                               
       TXI B,1,-1                                                               
G      CLA A1SIX+1,1                                                            
       STO PR2                                                                  
       CLA A1SIX+2,1                                                            
       STO PR3                                                                  
       CLA A1SIX+3,1                                                            
       STO PR4TWO                                                               
       CLA A1SIX+4,1                                          -                 
       STO PR4TWO+1                                                             
       CLA A1SIX+5,1                                                            
       STO PR5TWO                                                               
       CLA A1SIX+6,1                                                            
       STO PR5TWO+1                                                             
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
E      TRA DIGRTN                                                               
A      OCT 000425000000      SECTION VI RECORD L62                              
A1SIX  BCD 6NG TRANSFER VECTOR TABLE                                            
A2     BCD 1RUM 3.                                                              
A3     BCD 1 411.                                                               
A4TWO  BCD 2IS IN 413.                                                          
A5TWO  BCD 2IN 625.   CO                                                        
       OCT 000260000000      SECTION VI RECORD L 61 OR 62                       
       BCD 6NG EQUIT TABLE                                                      
       BCD 1RUM 1.                                                              
       BCD 1 241.                                                               
       BCD 2IS IN 361.                                                          
       BCD 2IN 362.   CO                                                        
       OCT 000465000000      SECTION VI RECORD L61                              
       BCD 6NG SIZE TABLE                                                       
       BCD 1RUM 2.                                                              
       BCD 1 450.                                                               
       BCD 2IS IN 453.                                                          
       BCD 2IN 362.   CO                                                        
       OCT 000247000000      SECTION VI - RECORD L 64                           
       BCD 6NG FORSUB TABLE                                                     
       BCD 1RUM 3.                                                              
       BCD 1 233.                                                               
       BCD 2IS IN 235.                                                          
       BCD 2IN 372.   CO                                                        
       OCT 000245000000      SECTION VI - RECORD L66                            
       BCD 6NG FORSUB TABLE                                                     
       BCD 1RUM 3.                                                              
       BCD 1 231.                                                               
       BCD 2IS IN 233.                                                          
       BCD 2IN 556.   CO                                                        
       OCT 000241000000      SECTION VI - RECORD L 73                           
       BCD 6NG TRANSFER VECTOR TABLE                                            
       BCD 1RUM 3.                                                              
       BCD 1 225.                                                               
       BCD 2IS IN 227.                                                          
       BCD 2IN 1054.  CO                                                        
       OCT 000277000000      SECTION PRE 6                                      
       BCD 6NG SIZE TABLE                                                       
       BCD 1RUM 2.                                                              
       BCD 1 262.                                                               
       BCD 2IS IN 265.                                                          
       BCD 2IN 1351.  CO                                                        
       OCT 000107000000      SECTION PRE 6                                      
       BCD 6NG TRANSFER VECTOR TABLE                                            
       BCD 1RUM 3.                                                              
       BCD 1 73.                                                                
       BCD 2IS IN 75.                                                           
       BCD 2IN 1366.  CO                                                        
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1SIX BCD 6NG TRANSFER VECTOR TABLE                                            
       BCD                                                                      
       BCD 1FROM D                                                              
PR2    BCD 1RUM 3.                                                              
       BCD 5  COPY LOOP BEGINS AT LOCATION                                      
PR3    BCD 1 411.                                                               
       BCD 4  STARTING DRUM ADDRESS                                             
PR4TWO BCD 8IS IN 413.                                                          
       BCD 3DRUM CHECK SUM IS                                                   
PR5TWO BCD 3IN 625.   COMPUTED                                                  
       BCD   CHECK SUM IS NOT STORED, THEREFORE IT IS NOT AVAILABLE.            
       BCD 4                                                                    
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.          
X                                                                               
       END                                                                      
       ORG 39                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 39                  47  FT  56                                       
       REM 39                 734  FT  45                                       
       REM 39                 123  FT  47                                       
       REM 39                 140  FT  56                                       
       REM 39                 305  FT  56                                       
       REM 39                  41  FT  60                                       
       REM 39                 607  FT  60                                       
       REM 39                  70  FT  92                                       
       REM 39                 246  FT  92                                       
       REM 39                 442  FT  96                                       
       REM 39                 500  FT  96                                       
       REM 39                 230  FT 101                                       
       REM 39                 222  FT 105                                       
       REM 39                 222  FT 115                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA ERWORD                                                               
       ADD RECORD                                                               
       STO X                                                                    
       LXD ZERO,3                                                               
D      CLA A,1                                                                  
       SUB X                                                                    
       TZE B                                                                    
       TXI C,1,-11                                                              
C      TXH D,1,-11*14                                                           
       TSX PRINT,4                                                              
       HTR ER,0,ER+72                                                           
       HTR E                                                                    
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 39                                               
       BCD  TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O        
       BCD  F 14 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                    
       BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1456, 1456 PLUS 11, ET        
       BCD  C.  PRESS START IF YOU WISH TO                                      
       BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED                    
B      CLA A1FOR,1                                                              
       STO PR1FOR,2                                                             
       TXI F,2,-1                                                               
 F     TXL G,2,-4                                                               
       TXI B,1,-1                                                               
G      CLA A1FOR+1,1                                                            
       STO PR2                                                                  
       CLA A1FOR+2,1                                                            
       STO PR3                                                                  
       CLA A1FOR+3,1                                                            
       STO PR4TWO                                                               
       CLA A1FOR+4,1                                                            
       STO PR4TWO+1                                                             
       CLA A1FOR+5,1                                                            
       STO PR5                                                                  
       CLA A1FOR+6,1                                                            
       STO PR6                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
E      TRA DIGRTN                                                               
A      OCT 000047000072      SECTION II - FT 58                                 
A1FOR  BCD 4 TRASTO TABLE                                                       
A2     BCD 1RUM 3.                                                              
A3     BCD 1 36.                                                                
A4TWO  BCD 2S IN 2332.                                                          
A5     BCD 1O 2345                                                              
A6     BCD 12346.                                                               
       OCT 000041000074      SECTION III - FT 60                                
       BCD 4 TSXCOM TABLE                                                       
       BCD 1RUM 3.                                                              
       BCD 1 30.                                                                
       BCD 2S IN 1147.                                                          
       BCD 1O 1226                                                              
       BCD 11227.                                                               
       OCT 000607000074      SECTION III - FT 60                                
       BCD 4 FIXCON TABLE                                                       
       BCD 1RUM 2.                                                              
       BCD 1 577.                                                               
       BCD 2S ZERO.                                                             
       BCD 1O 1226                                                              
       BCD 11227.                                                               
       OCT 000123000057      SECTION II - FT 47   BLOCK 5                       
       BCD 4 FIXCON TABLE                                                       
       BCD 1RUM 2.                                                              
       BCD 1 71.                                                                
       BCD 2S ZERO.                                                             
       BCD 1O 124                                                               
       BCD 1125.                                                                
       OCT 000734000055      SECTION II - FT 45   BLOCK 4                       
       BCD 4 FIXCON TABLE                                                       
       BCD 1RUM 2.                                                              
       BCD 1 710.                                                               
       BCD 2S ZERO.                                                             
       BCD 1O 1007                                                              
       BCD 11010.                                                               
       OCT 000070000134      SECTION PRE 6 - FT 92                              
       BCD 4 TRANSFER VECTOR TABLE                                              
       BCD 1RUM 3.                                                              
       BCD 1 56.                                                                
       BCD 2S IN 60.                                                            
       BCD 1O 4574                                                              
       BCD 14575.                                                               
       OCT 000246000134      SECTION PRE 6 - FT 92                              
       BCD 4 SIZE TABLE                                                         
       BCD 1RUM 2.                                                              
       BCD 1 234.                                                               
       BCD 2S IN 237.                                                           
       BCD 1O 1350                                                              
       BCD 11351.                                                               
       OCT 000442000140      SECTION VI - FT 96   L 61                          
       BCD 4 SIZE TABLE                                                         
       BCD 1RUM 2.                                                              
       BCD 1 430.                                                               
       BCD 2S IN 433.                                                           
       BCD 1O 366                                                               
       BCD 1362.                                                                
       OCT 000500000140      SECTION VI - FT 96   L 62                          
       BCD 4 EQUIT TABLE                                                        
       BCD 1RUM 1.                                                              
       BCD 1 466.                                                               
       BCD 2S IN 471.                                                           
       BCD 1O 370                                                               
       BCD 1362.                                                                
       OCT 000230000145      SECTION VI - FT 101   L 64                         
       BCD 4 FORSUB TABLE                                                       
       BCD 1RUM 3.                                                              
       BCD 1 215.                                                               
       BCD 2S IN 217.                                                           
       BCD 1O 704                                                               
       BCD 1372.                                                                
       OCT 000222000151      SECTION VI - FT 105   L 66                         
       BCD 4 FORSUB TABLE                                                       
       BCD 1RUM 3.                                                              
       BCD 1 210.                                                               
       BCD 2S IN 212.                                                           
       BCD 1O 723                                                               
       BCD 1556.                                                                
       OCT 000222000163      SECTION VI - FT 115   L 73                         
       BCD 4 TRANSFER VECTOR TABLE                                              
       BCD 1RUM 3.                                                              
       BCD 1 210.                                                               
       BCD 2S IN 212.                                                           
       BCD 1O 3206                                                              
       BCD 11054.                                                               
       OCT 000140000070      SECTION III - FT 56                                
       BCD 4 CHGTAG TABLE                                                       
       BCD 1RUM 3.                                                              
       BCD 1 127.                                                               
       BCD 2S IN 2170.                                                          
       BCD 1O 5737                                                              
       BCD 15740.                                                               
       OCT 000305000070      SECTION III - FT 56                                
       BCD 4 SXDTX TABLE                                                        
       BCD 1RUM 1.                                                              
       BCD 1 274.                                                               
       BCD 2S IN 2213.                                                          
       BCD 1O 5737                                                              
       BCD 15740.                                                               
PR     BCD 2                                                                    
       BCD 8CHECK SUM ERROR IN READING THE WORD COUNT OF THE                    
PR1FOR BCD 4 TRANSFER VECTOR TABLE                                              
       BCD 8                                                                    
       BCD 1FROM D                                                              
PR2    BCD 1RUM 3.                                                              
       BCD 5  COPY LOOP BEGINS AT LOCATION                                      
PR3    BCD 1 123.                                                               
       BCD 4 STARTING DRUM ADDRESS I                                            
PR4TWO BCD 8S IN 1234.                                                          
       BCD 5WORD COUNT HAS BEEN COPIED INT                                      
PR5    BCD 10 1234                                                              
       BCD 4 AND ITS CHECK SUM INTO                                             
PR6    BCD  1234.                                                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ENTRY CORRECTLY.          
X                                                                               
       END                                                                      
       ORG 40                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 40                4444  FT  51                                       
       REM 40                6357  FT  29                                       
       REM 4O                7027  FT  36                                       
       REM 40                6762  FT  43                                       
       REM 40                1141  FT  45                                       
       REM 40                 216  FT  47                                       
       REM 40                 161  FT  56                                       
       REM 40                 334  FT  56                                       
       REM 4O                 107  FT  58                                       
       REM 4O                 627  FT  60                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD ZERO,1                                                               
D      CLA A,1                                                                  
       SUB ERWORD                                                               
       TZE B                                                                    
       TXI C,1,-9                                                               
C      TXH D,1,-9*10                                                            
       TSX PRINT,4                                                              
       HTR ER,0,ER+72                                                           
       HTR E                                                                    
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 40                                               
       BCD  TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O        
       BCD  F 10 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                    
       BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1452, 1452 PLUS 9 ETC.        
       BCD    PRESS START IF YOU WISH TO                                        
       BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                    
B      CLA A1TWO,1                                                              
       STO PR1TWO                                                               
       CLA A1TWO+1,1                                                            
       STO PR1TWO+1                                                             
       CLA A2,1                                                                 
       STO PR2                                                                  
       CLA A3TWO,1                                                              
       STO PR3TWO                                                               
       CLA A3TWO+1,1                                                            
       STO PR3TWO+1                                                             
       CLA A4TWO,1                                                              
       STO PR4TWO                                                               
       CLA A4TWO+1,1                                                            
       STO PR4TWO+1                                                             
       CLA A5,1                                                                 
       STO PR5                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+73                                                           
E      TRA DIGRTN                                                               
A      OCT 004666000000      SECTION II - BLOCK 5                               
A1TWO  BCD 2 FIXCON TABL                                                        
A2     BCD 12.                                                                  
A3TWO  BCD 2TION 4605.                                                          
A4TWO  BCD 2 IN 5214.                                                           
A5     BCD 1F 1 WO                                                              
       OCT 001141000000      SECTION II - BLOCK 4                               
       BCD 2 FIXCON TABL                                                        
       BCD 12.                                                                  
       BCD 2TION 1060.                                                          
       BCD 2 IN 1401                                                            
       BCD 1F 1 WO                                                              
       OCT 000627000000      SECTION III - FT60                                 
       BCD 2 FIXCON TABL                                                        
       BCD 12.                                                                  
       BCD 2TION 610.                                                           
       BCD 2 IN 1143.                                                           
       BCD 1F 1 WO                                                              
       OCT 000161000000      SECTION III - FT56                                 
       BCD 2 CHGTAG TABL                                                        
       BCD 13.                                                                  
       BCD 2TION 141.                                                           
       BCD 2 IN 2172.                                                           
       BCD 1F 2 WO                                                              
       OCT 007027000000      SECTION II - BLOCK 3                               
       BCD 2 FORVAL TABL                                                        
       BCD 12.                                                                  
       BCD 2TION 6776.                                                          
       BCD 2 IN 6706.                                                           
       BCD 1F 2 WO                                                              
       OCT 006762000000      SECTION II - BLOCK 3-C                             
       BCD 2 TSXCOM TABL                                                        
       BCD 13.                                                                  
       BCD 2TION 6723.                                                          
       BCD 2 IN 6716.                                                           
       BCD 1F 2 WO                                                              
       OCT 006357000000      SECTION II - BLOCK2 - STATE B                      
       BCD 2 FORVAL TABL                                                        
       BCD 12.                                                                  
       BCD 2TION 6211.                                                          
       BCD 2 IN 6362.                                                           
       BCD 1F 2 WO                                                              
       OCT 000107000000      SECTION III - FT 58                                
       BCD 2 TRASTO TABL                                                        
       BCD 13.                                                                  
       BCD 2TION 56.                                                            
       BCD 2 IN 2336.                                                           
       BCD 1F 3 WO                                                              
       OCT 000334000000      SECTION III                                        
       BCD 2  SXDTX TABL                                                        
       BCD 11.                                                                  
       BCD 2TION 306.                                                           
       BCD 2 IN 2214.                                                           
       BCD 1F 2 WO                                                              
       OCT 000216000000      SECTION II - BLOCK 5                               
       BCD 2  ADTAG TABL                                                        
       BCD 13.                                                                  
       BCD 2TION 150.                                                           
       BCD 2 IN 217.                                                            
       BCD 1F 4 WO                                                              
PR     BCD 2                                                                    
       BCD 7CHECK SUM ERROR IN READING AN ENTRY OF THE                          
PR1TWO BCD 2 FIXCON TABL                                                        
       BCD 2E FROM DRUM                                                         
PR2    BCD 92.                                                                  
       BCD 4COPY LOOP BEGINS AT LOCA                                            
PR3TWO BCD 2TION 1234.                                                          
       BCD 4STARTING DRUM ADDRESS IS                                            
PR4TWO BCD 2 IN 1234.                                                           
       BCD 8                                                                    
       BCD 4THIS TABLE IS COMPOSED O                                            
PR5    BCD 1F 1 WO                                                              
       BCD  RD ENTRIES AND A CHECK SUM FOR EACH ENTRY.                          
       BCD 5                                                                    
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE ENTIRE TABLE CORREC        
       BCD 1TLY.                                                                
X                                                                               
       END                                                                      
       ORG 41                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 41                5560  FT  34                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD 0,2               IR 2EQUALS 2 FOR STATE B, BCD IS SET UP            
       TXH PRIN,2,1                                                             
       CLA A1                                                                   
       STO PR1                                                                  
       CLA A2                                                                   
       STO PR2                                                                  
       CLA A3                                                                   
       STO PR3                                                                  
       CLA A4                                                                   
       STO PR4                                                                  
       CLA A5                                                                   
       STO PR5                                                                  
PRIN   TSX PRINT,4                                                              
       HTR PR,0,PR+74                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 7CHECK SUM ERROR IN READING DRUM 1.  THE ST                          
PR1    BCD 1ATE B                                                               
       BCD  CODING USED BY SECTION II, BLOCK 2, HAS BEEN                        
       BCD 2                                                                    
       BCD  READ INTO LOCATIONS 5566 THROUGH 6565.  THE COMPUTED CHECK S        
       BCD  UM, LOCATION 5561, IS COMPARED TO THE PERMANENT                     
       BCD 1STATE                                                               
PR2    BCD 3B SUM IN LOCATION                                                   
PR3    BCD 65562.  COPY LOOP BEGINS AT LOCATION                                 
PR4    BCD 55534.  STARTING DRUM ADDRESS I                                      
PR5    BCD 5S 1000.                                                             
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS BLOCK OF PROGRAM C        
       BCD 2ORRECTLY.                                                           
A1     BCD 1ATE A                                                               
A2     BCD 1A SUM                                                               
A3     BCD 15563.                                                               
A4     BCD 15555.                                                               
A5     BCD 1S ZERO                                                              
X                                                                               
       END                                                                      
       ORG 42                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 42                7760  FT  30                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD 0,2               IR2 EQUALS 2 FOR STATE B, BCD IS SETUP             
       TXH PRIN,2,1                                                             
       CLA A1                                                                   
       STO PR1                                                                  
       CLA A2                                                                   
       STO PR2                                                                  
       CLA A3                                                                   
       STO PR3                                                                  
       CLA A4                                                                   
       STO PR4                                                                  
       CLA A5                                                                   
       STO PR5                                                                  
PRIN   TSX PRINT,4                                                              
       HTR PR,0,PR+96                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 7CHECK SUM ERROR IN READING DRUM 1.  THE ST                          
PR1    BCD 1ATE B                                                               
       BCD  CODING USED BY SECTION II, BLOCK 2, HAS JUST                        
       BCD 2                                                                    
       BCD 8BEEN WRITTEN ON THE DRUM, BEGINNING AT LOCATION                     
PR2    BCD 11000.                                                               
       BCD   TO VERIFY THAT THIS HAS BEEN DONE CORRECTLY,                       
       BCD 1                                                                    
       BCD  IT IS READ BACK INTO 4566 THROUGH 5565.  THE COMPUTED CHECK         
       BCD  SUM, LOCATION 7773, IS COMPARED TO A PERMANENT                      
       BCD 1STATE                                                               
PR3    BCD 3B SUM IN LOCATION                                                   
PR4    BCD 17763.                                                               
       BCD   THE SUBROUTINE WHICH WRITES AND READS THE DRUM BEGINS AT 77        
PR5    BCD 530.                                                                 
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO WRITE AND READ THIS BLOCK OF        
       BCD 4 PROGRAM CORRECTLY.                                                 
A1     BCD 1ATE A                                                               
A2     BCD 1ZERO.                                                               
A3     BCD 1A SUM                                                               
A4     BCD 17764.                                                               
A5     BCD 132.                                                                 
X                                                                               
       END                                                                      
       ORG 43                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 43                4006  FT  51                                       
       REM 43                4007  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA ERWORD            4007 IF ALPHA STATE, BCD NOT SET UP                
       SUB ALPHA             FOR ALPHA                                          
       TMI PRIN                                                                 
       CLA A1                                                                   
       STO PR1                                                                  
       CLA A2                                                                   
       STO PR2                                                                  
       CLA A3                                                                   
       STO PR3                                                                  
PRIN   TSX PRINT,4                                                              
       HTR PR,0,PR+62                                                           
       TRA DIGRTN                                                               
A1     BCD 1M 2.                                                                
A2     BCD 1THE AL                                                              
A3     BCD 1PHA ST                                                              
ALPHA  OCT 004007000000                                                         
PR     BCD 2                                                                    
       BCD 5CHECK SUM ERROR IN READING DRU                                      
PR1    BCD 1M 1.                                                                
PR2    BCD 1THE  B                                                              
PR3    BCD  ETA STATE CODING USED BY SECTION II, BLOCK 5, HAS BEEN READ         
       BCD 3                                                                    
       BCD  INTO 6226 THROUGH 7225, STARTING FROM DRUM ADDRESS 1751.  TH        
       BCD  E DRUM CHECK SUM IS IN 5202.                                        
       BCD  THE COMPUTED CHECK SUM IS IN 5203.  FIVE ATTEMPTS HAVE BEEN         
       BCD  MADE TO READ THIS BLOCK OF PROGRAM CORRECTLY                        
X                                                                               
       END                                                                      
       ORG 44                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 44                6765  FT  36                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN                                                      
       CLA 3570              OCTAL 6762 - DEC HAS CONTENTS IR1                  
       ARS 18                                                                   
       ANA ADDMSK                                                               
       STO ERAS                                                                 
       CLA PR1                                                                  
       SUB ERAS                                                                 
       TSX OCTBCD,4                                                             
       SLW PR1                                                                  
       CAL PR1-1                                                                
       LDQ PR1                                                                  
       ARS 18                                                                   
       LGL 18                                                                   
       SLW PR1-1                                                                
       LGL 18                                                                   
       LDQ BLANKS                                                               
       LGL 18                                                                   
       SLW PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING NAME TABLE FROM DRUM 3.                  
       BCD                                                                      
       BCD  COPY LOOP BEGINS AT LOCATION 6731.  STARTING DRUM ADDRESS IS        
       BCD   IN 6707.                                                           
       BCD 9COMPUTED CHECK SUM IS IN 6771. DRUM CHECK SUM IS IN                 
PR1    OCT 000000006771                                                         
       BCD                                                                      
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.          
X                                                                               
       END                                                                      
       ORG 45                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 45                1006  FT  45                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+95                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING TABLE IRV FROM DRUM 3.  EITHER TH        
       BCD  E WORD COUNT, LOCATION 1007,                                        
       BCD  DOES NOT AGREE WITH ITS OWN CHECK SUM, LOCATION 1010, OR THE        
       BCD   COMPUTED CHECK SUM OF THE TABLE,                                   
       BCD  LOCATION 1011, DOES NOT AGREE WITH THE DRUM CHECK SUM.  THE         
       BCD  DRUM CHECK SUM HAS BEEN COPIED                                      
       BCD  INTO LOCATION  (435 PLUS WORD COUNT).  COPY LOOP BEGINS AT L        
       BCD  OCATION 752.  STARTING DRUM ADDRESS IS 1304.                        
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE WORD COUNT AND THE         
       BCD 3TABLE CORRECTLY.                                                    
X                                                                               
       END                                                                      
       ORG 46                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 46                  72  FT  60                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                                                                    
       LDA A                                                                    
       CPY ERAS              IR1 IN DEC-WILL SHOW WHERE CHECK SUM IS            
       CLA ERAS              UNCOMPLIMENT                                       
       ANA DECMSK                                                               
       SUB PREFX1                                                               
       ARS 18                                                                   
       STZ ERAS                                                                 
       STA ERAS                                                                 
       CLA PR1                                                                  
       SUB ERAS                                                                 
       TSX OCTBCD,4                                                             
       SLW PR1                                                                  
       CAL PR1-1                                                                
       LDQ PR1                                                                  
       ARS 12                                                                   
       LGL 12                                                                   
       SLW PR1-1                                                                
       LGL 24                                                                   
       LDQ BLANKS                                                               
       LGL 12                                                                   
       SLW PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
A      HTR81227                                                                 
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING TSXCOM TABLE FROM DRUM 3.                
       BCD                                                                      
       BCD  COPY LOOP BEGINS AT LOCATION 42.  STARTING DRUM ADDRESS IS I        
       BCD  N 1150.                                                             
       BCD 9COMPUTED CHECK SUM IS IN 1226.  DRUM CHECK SUM IS IN                
PR1    OCT 000000001230                                                         
       BCD                                                                      
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.          
X                                                                               
       END                                                                      
       ORG 47                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 47                1I35  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+112                                                          
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING DOCARE TABLE FROM DRUM 1.  THIS T        
       BCD  ABLE WAS WRITTEN AS A 1 WORD ENTRY AND A                            
       BCD  CHECK SUM OF THAT ENTRY BEGINNING AT 2 ON THE DRUM.  THE 1 W        
       BCD  ORD ENTRIES ARE COPIED BACKWARDS                                    
       BCD  INTO CORES BEGINNING 4216.  THEIR CHECK SUMS ARE COPIED BACK        
       BCD  WARDS INTO CORES BEGINNING AT 4363.                                 
       BCD  A LOGICAL SUM OF EACH OF THE RESULTING TABLES IS DONE.  CHEC        
       BCD  K SUM OF THE ENTRIES IS IN 105.                                     
       BCD  CHECK SUM OF THE CHECK SUMS IS IN 106.  THE COPY LOOP BEGINS        
       BCD   AT LOCATION 1102.                                                  
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 48                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 48                 341  FT 677                                       
       REM 48                3143  FT  64                                       
       REM 48                 103  FT  67                                       
       REM 48                 160  FT  67                                       
       REM 46                 263  FT  67                                       
       REM 48                  64  FT  71                                       
       REM 48                 256  FT  73                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD ZERO,3                                                               
C1     CLA A,1                                                                  
       SUB ERWORD                                                               
       TZE B                                                                    
       TXI C,1,-1                                                               
C      TXH C1,1,-14*7                                                           
       TSX PRINT,4                                                              
       HTR ER,0,ER+72                                                           
       HTR D                                                                    
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 48                                               
       BCD  TO BE READ IN.  THIS RECORD COMPARES THE LOCATION TO A LIST         
       BCD  OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH                    
       BCD  HAS FAILED.  THE ERRORS ARE LISTED IN 1471, 1471 PLUS 14, ET        
       BCD  C.  PRESS START IF YOU WISH TO                                      
       BCD  RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.                   
B      CLA A+1,1                                                                
       STO PR1,2                                                                
       TXI B1,2,-1                                                              
B1     TXI B2,1,-1                                                              
B2     TXH B,2,-7                                                               
       CLA A+1,1                                                                
       STO PR2TWO                                                               
       CLA A+2,1                                                                
       STO PR2TWO+1                                                             
       CLA A+3,1                                                                
       STO PR3TWO                                                               
       CLA A+4,1                                                                
       STO PR3TWO+1                                                             
       CLA A+5,1                                                                
       STO PR4                                                                  
       CLA A+6,1                                                                
       STO PR5                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
D      TRA DIGRTN                                                               
A      OCT 000341000000 IN SECTI0N IV - PART 3                                  
A1     BCD 7NG FRET TABLE FROM DRUM 2.                                          
A2TWO  BCD 2TION 300.                                                           
A3TWO  BCD 2 IN 50.                                                             
A4     BCD 1 56.                                                                
A5     BCD 155.                                                                 
       OCT 003143000000 IN SECTION IV - PART 2                                  
       BCD 7NG TIFRD TABLE FROM DRUM 1.                                         
       BCD 2TION 3066.                                                          
       BCD 2 IN 41.                                                             
       BCD 1 121.                                                               
       BCD 1127.                                                                
       OCT 000263000000 IN SECTION IV - PART 3                                  
       BCD 7NG TRA TABLE FROM DRUM 1.                                           
       BCD 2TION 230.                                                           
       BCD 2 ZERO.                                                              
       BCD 1 56.                                                                
       BCD 155.                                                                 
       OCT 000256000000  IN SECTION IV - PART 6                                 
       BCD 7NG BBLIST TABLE FROM DRUM 3.                                        
       BCD 2TION 234.                                                           
       BCD 2 IN 63.                                                             
       BCD 1 70.                                                                
       BCD 167.                                                                 
       OCT 000160000000      IN SECTION IV - PART 3                             
       BCD 7NG SET TABLE FROM DRUM 3.                                           
       BCD 2TION 137.                                                           
       BCD 2 IN 47.                                                             
       BCD 1 56.                                                                
       BCD 155.                                                                 
       OCT 000103000000      IN SECTION IV - PART 3                             
       BCD 7NG SET TABLE FROM DRUM 3.                                           
       BCD 2TION 62.                                                            
       BCD 2 IN 47.                                                             
       BCD 1 56.                                                                
       BCD 155.                                                                 
       OCT 000064000000 IN SECTION IV - PART 5                                  
       BCD 7NG DOLIST TABLE FROM DRUM 1.                                        
       BCD 2TION 42.                                                            
       BCD 2 IN 36.                                                             
       BCD 1 37.                                                                
       BCD 140.                                                                 
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1    BCD 7NG FRET TABLE FROM DRUM 2.                                          
       BCD 9                                                                    
       BCD 4COPY LOOP BEGINS AT LOCA                                            
PR2TWO BCD 2TION 3.                                                             
       BCD 4STARTING DRUM ADDRESS IS                                            
PR3TWO BCD   IN 50.                                                             
       BCD 4COMPUTED CHECK SUM IS IN                                            
PR4    BCD 1 56.                                                                
       BCD 4   DRUM CHECK SUM IS IN                                             
PR5    BCD  55.                                                                 
       BCD 1                                                                    
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.          
X                                                                               
       END                                                                      
       ORG 49                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 49                4570  FT  34                                       
SUBORG SYN84612              THIS IS SUBORG+3                                   
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                                                                    
       LDA TAG                                                                  
       CPY TAG                                                                  
       CLA TAG               SAME INSTRUCTIONS AS                               
       LRS 9                 SECTION II - BLOCK 2 - 4527 THRO 4542              
       PAX 0,6                                                                  
       PXD                                                                      
       LLS 9                 AT END OF TIX, ADDRESS OF AC HAS                   
       STO SUBES1            DRUM ADDRESS OF FIRST WORD OF                      
       ALS 1                 ENTRY AND IR 2 HAS  1 - 2 WORDS + SUM              
       STO SUBES2                                2 - 4 WORDS + SUM              
       CLA SUBORG,4                              3 - 6 WORDS + SUM              
       ADD SUBES1                                                               
SUB030 ADD SUBES2                                                               
       TIX SUB030,4,1                                                           
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                SHIFT OUT FIRST 2 BLANKS                           
       CAL PR2                                                                  
       LGL 18                                                                   
       SLW PR2                                                                  
       LGL 6                                                                    
       LDQ PR3                                                                  
       LGL 30                                                                   
       SLW PR3                                                                  
       CLA A+1,2                                                                
       STO PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+142                                                          
       TRA DIGRTN                                                               
TAG    HTR83700                                                                 
SUBES1                                                                          
SUBES2                                                                          
       BCD 1NG A 6                                                              
       BCD 1NG A 4                                                              
A      BCD 1NG A 2                                                              
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1    BCD 1NG A 2                                                              
       BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.           
       BCD 5                                                                    
       BCD 5THE DRUM ADDRESS OF THE ENTRY                                       
PR2    BCD 1   IS                                                               
PR3    BCD 1.  FI                                                               
       BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                  
       BCD 3                                                                    
       BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                   
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES        
       BCD   AND THEIR CHECK SUMS.                                              
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 50                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 50                7751  FT  36                                       
TAG    SYN86626                                                                 
SUBORG SYN87773              THIS IS SUBORG + 3                                 
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA TAG               SAME INSTRUCTIONS AS 7710 THRO 7723                
       LRS 9                 IN SECTION II - BLOCK 3 - INIT.                    
       PAX 0,6                                                                  
       PXD                   AT END OF TIX, ADDRESS OF AC HAS                   
       LLS 9                 DRUM ADDRESS OF FIRST WORD OF ENTRY                
       STO SUBES1                                                               
       ALS 1                 AND IR 2 HAS  1  - 2 WORDS + SUM                   
       STO SUBES2                          2 - 4 WORDS + SUM                    
       CLA SUBORG,4                       3 - 6 WORDS + SUM                     
       ADD SUBES1                                                               
SUB030 ADD SUBES2                                                               
       TIX SUB030,4,1                                                           
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                SHIFT OUT FIRST 2 BLANKS                           
       CAL PR2                                                                  
       LGL 18                                                                   
       SLW PR2                                                                  
       LGL 6                                                                    
       LDQ PR3                                                                  
       LGL 30                                                                   
       SLW PR3                                                                  
       CLA A+1,2                                                                
       STO PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+142                                                          
       TRA DIGRTN                                                               
       BCD 1NG A 6                                                              
       BCD 1NG A 4                                                              
A      BCD 1NG A 2                                                              
SUBES1                                                                          
SUBES2                                                                          
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1    BCD 1NG A 2                                                              
       BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.           
       BCD 5                                                                    
       BCD 5THE DRUM ADDRESS OF THE ENTRY                                       
PR2    BCD 1   IS                                                               
PR3    BCD 1.  FI                                                               
       BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                  
       BCD 3                                                                    
       BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                   
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES        
       BCD   AND THEIR CHECK SUMS.                                              
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 51                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 51               11231  FT 445                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                                                                    
       LDA ADSBTG                                                               
       CPY SUBTAG                                                               
       CLA SUBTAG            MOSTLY SAME INSTRUCTIONS AS 1153 THRO              
       LRS 9                 1166 IN SECTION II, BLOCK 4                        
       PAX 0,6                                                                  
       PXD                                                                      
       LLS 9                                                                    
       STO SUBES1                                                               
       ALS 1                                                                    
       STO SUBES2                                                               
       PXD 0,4               MODIFY ADDRESS TO BE SAME                          
       ARS 18                AS SUBORG+3,4                                      
       STO ERAS                                                                 
       CLA ADSBRG                                                               
       SUB ERAS                                                                 
       STA ERAS                                                                 
       RDR 4                                                                    
       LDA ERAS                                                                 
       CPY SUBORG                                                               
       CLA SUBORG            ATEND OF TIX, AC ADDRESS IS                        
       ADD SUBES1            ADDRESS OF ENTRY ON DRUM AND                       
SUB030 ADD SUBES2            IR2 CONTAINS  1 - 2 WORDS + CHECK SUM,             
       TIX SUB030,4,1        2 - 4 WORDS + SUM, OR  3 - 6 WORDS + SUM           
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                SHIFT OUT FIRST 2 BLANKS                           
       CAL PR2                                                                  
       LGL 18                                                                   
       SLW PR2                                                                  
       LGL 6                                                                    
       LDQ PR3                                                                  
       LGL 30                                                                   
       SLW PR3                                                                  
       CLA A+1,2                                                                
       STO PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+142                                                          
       TRA DIGRTN                                                               
SUBTAG                                                                          
ADSBTG OCT 000000001237                                                         
SUBES1                                                                          
SUBES2                                                                          
SUBORG                                                                          
ADSBRG OCT 000000001235                                                         
       BCD 1NG A 6                                                              
       BCD 1NG A 4                                                              
A      BCD 1NG A 2                                                              
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1    BCD 1NG A 2                                                              
       BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.           
       BCD 5                                                                    
       BCD 5THE DRUM ADDRESS OF THE ENTRY                                       
PR2    BCD 1   IS                                                               
PR3    BCD 1.  FI                                                               
       BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                  
       BCD 3                                                                    
       BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                   
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES        
       BCD   AND THEIR CHECK SUMS.                                              
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 52                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 52                4307  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
SUBTAG SYN 2265              4331 OCTAL                                         
SUBORG SYN 2263              4327 OCTAL - THIS IS SUBORG + 3                    
       CLA SUBTAG            SAME AS INSTRUCTIONS 4246 THRO                     
       LRS 9                 4261 IN SECTION II                                 
       PAX 0,6                                                                  
       PXD                   AT END OF TIX, AC ADDRESS HAS                      
       LLS 9                 DRUM ADDRESS OF ENTRY AND                          
       STO SUBES1            IR 2 EQUALS  1 FOR 2 WORD + CHECKSUM               
       ALS 1                              2 FOR 4 WORD + SUM                    
       STO SUBES2                         3 FOR 6 WORD + SUM                    
       CLA SUBORG,4                                                             
       ADD SUBES1                                                               
SUB030 ADD SUBES2                                                               
       TIX SUB030,4,1                                                           
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                SHIFT 0UT FIRST 2 BLANKS                           
       CAL PR2                                                                  
       LGL 18                                                                   
       SLW PR2                                                                  
       LGL 6                                                                    
       LDQ PR3                                                                  
       LGL 30                                                                   
       SLW PR3                                                                  
       CLA A+1,2                                                                
       STO PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+142                                                          
       TRA DIGRTN                                                               
SUBES1                                                                          
SUBES2                                                                          
       BCD 1NG A 6                                                              
       BCD 1NG A 4                                                              
A      BCD 1NG A 2                                                              
PR     BCD 2                                                                    
       BCD 4CHECK SUM ERROR IN READI                                            
PR1    BCD 1NG A 2                                                              
       BCD   WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.           
       BCD 5                                                                    
       BCD 5THE DRUM ADDRESS OF THE ENTRY                                       
PR2    BCD 1   IS                                                               
PR3    BCD 1.  FI                                                               
       BCD  VE ATTEMPTS HAVE BEEN MADE TO READ                                  
       BCD 3                                                                    
       BCD  THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.                   
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES        
       BCD   AND THEIR CHECK SUMS.                                              
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 53                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 53                 150  FT  75                                       
       RDR 4                                                                    
       LDA D273              THIS IS THA ACL WITH ADDRESS OF                    
       CPY D273              DRUM CHECK SUM IN CORES                            
       CLA D273                                                                 
       STA GETSUM                                                               
GETSUM CLA                                                                      
       STO DRMSUM            HAVE ACTUAL DRUM CHECK SUM                         
       RDR 4                                                                    
       LDA D307              HAVE COMPUTED CHECK SUM FROM                       
       CPY D307              PERMANENT LOCATION                                 
       RDR 4                                                                    
       LDA D313              HAVE DRUM SELECT AND                               
       CPY D313              INITIAL DRUM ADDRESS                               
       SLT8141               TURN OFF SENSE LIGHT 1                             
       NOP                                                                      
       CLA PREFX1                                                               
       SUB MEM4K                                                                
       TNZ LX                                                                   
       PSE8141               TURN ON SENSE LIGHT 1, MEMORY IS 4K                
LX     LXD 0,2               IR2 WAS SAVED IN DEC LOC ZERO                      
       PXD 0,2                                                                  
       SUB PREFX1                                                               
       ANA DECMSK                                                               
       LXA TAB,2                                                                
CAS    CAS TAB,2                                                                
       TRA TIXT                                                                 
       TRA HAVE                                                                 
TIXT   TIX CAS,2,5                                                              
       TSX PRINT,4           CANNOT IDENTIFY TABLE  VERRRY BAD                  
       HTR ER,0,ER+202                                                          
       HTR DIGRTN                                                               
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 53                                               
       BCD  TO BE READ IN.  THIS RECORD COMPARES THE 2S COMPLIMENT OF IN        
       BCD  DEX REGISTER 2 TO A LIST OF 4 TABLE STOPS,                          
       BCD  BUT NO MATCH HAS BEEN FOUND.                                        
       BCD                                                                      
       BCD  THE CONTENTS OF IR 2 WERE SAVED IN THE DECREMENT OF LOCATION        
       BCD   ZERO.                                                              
       BCD  THIS DECREMENT SHOULD EQUAL ....                                    
       BCD                                                                      
       BCD                   77744   STAG TABLE                                 
       BCD                                                                      
       BCD                   77733   SUCC TABLE                                 
       BCD                                                                      
       BCD                   77721   PRED TABLE                                 
       BCD                                                                      
       BCD                   77707   BBB TABLE                                  
       BCD                                                                      
       BCD PRESS START IF YOU WISH TO RESTORE MACHINE TO CONDITION IN WH        
       BCD  ICH ERROR OCCURRED.                                                 
HAVE   CLA TAB+1,2           BCD NAME OF TABLE                                  
       STO PR1                                                                  
       CLA TAB+4,2           BCD LINE ABOUT SIZE OF TABLE ENTRIES               
       STO PRTAB                                                                
       SLN 1                                                                    
       TRA MEM8K                                                                
       TIX MEM8K,2,1                                                            
MEM8K  CLA TAB+2,2           THIS IS ADDRESS OF 1ST WORD IN                     
       STO BUFADR            BUFFER FOR WHATEVER K                              
       CLA D273              SUBTRACT ADDRESS OF 1ST WORO IN                    
       ANA ADDMSK            BUFFER FROM ADDRESS OF DRUM CHECK SUM              
       SUB BUFADR                                                               
       STO WDC               NOW HAVE ACTUAL WORD COUNT                         
       TSX OCTBCD,4          CONVERT TO BCD AND STORE IN COMMENT                
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                                                                   
       CAL PR6                                                                  
       LGL 18                                                                   
       SLW PR6                                                                  
       LGL 6                                                                    
       LDQ PR7                                                                  
       LGL 30                                                                   
       SLW PR7                                                                  
       CLA BUFADR            CONVERT ADDRESS OF 1ST WORD OF                     
       TSX OCTBCD,4          CORE BUFFER AND STORE IN COMMENT                   
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL ADMEM                                                                
       LGL 18                                                                   
       SLW ADMEM                                                                
       LGL 18                                                                   
       LDQ BLANKS                                                               
       LGL 18                                                                   
       SLW ADMEM+1                                                              
       CLA D313              FIND NUMBER OF DRUM                                
       ALS 7                                                                    
       PDX 0,1                                                                  
       CLA DRM,1             BCD TABLE                                          
       STO PR4                                                                  
       CLA D313                                                                 
       ANA DRUMSK            ADD WORD COUNT TO ADDRESS OF                       
       STA DRMADR            1ST WORD ON DRUM,  SPLIT DRUM                      
       ADD WDC               IF BITS CAN BE MOVED INTO DECREMENT                
       ALS 7                                                                    
       PDX 0,2                                                                  
       TXL ISDR4,2,0                                                            
       TXI SPLIT,1,1                                                            
SPLIT  CAL DRM,1             NEXT BCD WORD FROM TABLE INTO                      
       LDQ BLANKS            COMMENT                                            
       LGL 6                                                                    
       SLW PR5                                                                  
       CLA PRSPLT            EXPAND FIRST COMMENT TO SHOW                       
       STO TSX1              SPLIT BUFFER                                       
ISDR4  TXL GETLDA,1,2        IFF BUFFER ON DRUM 4, IT IS CLOBBERED              
       CLA PRALL             PRINT SAME                                         
       STO TSX2                                                                 
GETLDA CLA DRMADR            CONVERT ADDRESS OF 1ST WORD ON                     
       TSX OCTBCD,4          THE DRUM AND STORE IN COMMENT                      
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                                                                   
       CAL PR2                                                                  
       LGL 12                                                                   
       SLW PR2                                                                  
       LGL 12                                                                   
       LDQ PR3                                                                  
       LGL 24                                                                   
       SLW PR3                                                                  
       CLA D273              CONVERT AND STORE ADDRESS IN CORES                 
       TSX OCTBCD,4          OF DRUM CHECK SUM                                  
       SLW PR9                                                                  
       LDQ D307              CONVERT ALL OF 36 BIT WORD TO PRINT                
       LGL 15                COMPUTED CHECK SUM                                 
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       PXD                                                                      
       LGL 6                                                                    
       SLW ERAS+1            IE, STORE 00000B                                   
       PXD                                                                      
       LGL 6                                                                    
       ALS 6                                                                    
       ADD ERAS+1                                                               
       LGL 24                                                                   
       SLW PR8                                                                  
       LDQ D307                                                                 
       LGL 15                                                                   
       PXD                                                                      
       LGL 12                                                                   
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 18                                                                   
       ALS 6                                                                    
       ADD ERAS+1                                                               
       LGL 6                                                                    
       ALS 6                                                                    
       ADD ERAS+1                                                               
       LGL 12                                                                   
       SLW PR8+1                                                                
       LDQ D307                                                                 
       LGL 27                                                                   
       PXD                                                                      
       LGL 9                                                                    
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       RQL 18                                                                   
       LGL 18                                                                   
       LDQ BLANKS                                                               
       LGL 18                                                                   
       SLW PR8+2                                                                
       LDQ DRMSUM            CONVERT AND STORE ALL OF 36 BIT                    
       PXD                   DRUM CHECK SUM                                     
       LGL 3                                                                    
       ALS 6                                                                    
       ORS PR10                                                                 
       LGL 15                                                                   
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       RQL 6                                                                    
       STQ PR10+1                                                               
       LDQ DRMSUM                                                               
       LGL 18                                                                   
       PXD                                                                      
       LGL 15                                                                   
       STQ ERAS+2                                                               
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                                                                   
       ALS 6                                                                    
       ADD ERAS+1                                                               
       LGL 24                                                                   
       SLW PR10+2                                                               
       LDQ ERAS+2                                                               
       PXD                                                                      
       LGL 3                                                                    
       LDQ BLANKS                                                               
       LGL 30                                                                   
       SLW PR10+3                                                               
       TSX PRINT,4                                                              
TSX1   HTR PR,0,PR+22                                                           
       TSX PRINT,4                                                              
       HTR PRCR,0,PRCR+10                                                       
       TSX PRINT,4                                                              
PRTAB                                                                           
       TSX PRINT,4                                                              
TSX2   HTR PRSZ,0,PRSZND                                                        
       TRA DIGRTN                                                               
       BCD 1DRUM 4                                                              
       BCD 1DRUM 3                                                              
       BCD 1DRUM 2                                                              
DRM    BCD 1DRUM 1                                                              
STIR   HTR80,0,34            STAG  DEC HAS IR2 C0MPLEMENTED                     
       BCD 1 STAG            IF TABLE STAG  IR 2 IS 77744                       
       HTR85263              BUFFER ADDRESS FIRST WORD 8K                       
       HTR85061              DITTO 4K                                           
       HTR PRA,0,PRA+22                                                         
       HTR80,0,45            SUCC  IR2 IS 77733                                 
       BCD 1 SUCC                                                               
       HTR816734             8K                                                 
       HTR87555              4K                                                 
       HTR PRB,0,PRB+12                                                         
       HTR80,0,57            PRED  IR2 IS 77721                                 
       BCD 1 PRED                                                               
       HTR815674             8K                                                 
       HTR87337              4K                                                 
       HTR PRC,0,PRC+12                                                         
       HTR80,0,71            BBB  IR2 IS 77707                                  
       BCD 1  BBB                                                               
       HTR812533             8K                                                 
       HTR86442              4K                                                 
       HTR PRD,0,PRD+12                                                         
TAB    HTR TAB-STIR                                                             
D273   HTR8273               COPY ACL WITH ADDRESS 0F DRUM SUM IN CORES         
DRMSUM                       DRUM SUM FROM ADDRESS FOUND ABOVE                  
D307   HTR8307               COMPUTED SUM PICKED UP FROM 307 AND STORED         
D313   HTR8313               DRUM SELECT AND INITIAL ADDRESS FROM 313           
MEM4K  OCT 010000000000                                                         
BUFADR                       CORE ADDRESS 0F 1ST WORD OF TABLE                  
WDC                          ACTUAL WORD COUNT STORED HERE                      
DRMADR                       D313 ANA 3777 IS ADDRESS 1ST WORD ON DRUM          
DRUMSK HTR83777                                                                 
PRSPLT HTR PR,0,PR+32                                                           
PRALL  HTR PRSZ,0,X                                                             
PR     BCD 2                                                                    
       BCD 7CHECK SUM ERROR IN READING A BUFFER OF THE                          
PR1    BCD 1 STAG                                                               
       BCD 4TABLE, BEGINNING AT ADDR                                            
PR2    BCD 1  ESS            CHANGED TO ESS 12                                  
PR3    BCD 1 ON              CHANGED TO 34 0N                                   
PR4    BCD 6DRUM 1                                                              
       BCD 3AND CONTINUED ON D                                                  
PR5    BCD 7RUM 2.                                                              
PRCR   BCD 2                                                                    
       BCD 6IN CORES, THE BUFFER BEGINS AT LOCAT                                
ADMEM  BCD 2   ION           C+ANGED TO ION 12345                               
PRA    BCD 2                                                                    
       BCD  THE STAG TABLE HAS A 4 BIT ENTRY FOR EACH TAGGED INSTRUCTION        
       BCD   COMPILED.  EACH STAG WORD HOLDS 9 ENTRIES.                         
PRB    BCD 2                                                                    
       BCD  THE SUCC TABLE HAS 1 WORD ENTRIES.                                  
PRC    BCD 2                                                                    
       BCD  THE PRED TABLE HAS 1 WORD ENTRIES.                                  
PRD    BCD 2                                                                    
       BCD  THE BBB TABLE HAS 6 WORD ENTRIES.                                   
PRSZ   BCD 2                                                                    
       BCD 8THE TABLE WAS WRITTEN ON THE DRUM FROM A BUFFER                     
PR6    BCD 1   OF            (+ANGED TO OF 123                                  
PR7    BCD 1 WORD            CHANGED TO 4 WORD                                  
       BCD  S OCTAL.                                                            
       BCD  EACH BUFFER IS FOLLOWED BY ITS CHECK SUM.                           
       BCD                                                                      
       BCD 7THE COMPUTED CHECK SUM IN LOCATION 307 IS                           
PR8    BCD  0 00000 0 00000                                                     
       BCD 3                                                                    
       BCD 5THE DRUM CHECK SUM IN LOCATION                                      
PR9    BCD 1 12345                                                              
PR10   BCD   IS 0                                                               
       BCD 4                                                                    
       BCD                                                                      
       BCD                                                                      
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS SECTION OF THE TAB        
       BCD  LE CORRECTLY FROM THE DRUM.                                         
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  NOTE - IF THE CHECK SUM DISCREPANCY IS LARGE, IT MAY INDICAT        
       BCD  E A PART OF THE PROGRAM CANNOT BE REACHED.                          
PRSZND BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY HAVE BEEN WRITTEN                            
       BCD  ON TO DRUM 4, DESTROYING THE TABLES AND THEIR CHECK SUMS.           
       BCD                                                                      
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 54                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 54                 222  FT  94                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+162                                                          
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE        
       BCD   FROM DRUM 4.                                                       
       BCD  THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C        
       BCD  ORE LOCATION 165.                                                   
       BCD  ITS CHECK SUM IS COPIED FROM 3 INTO 223.  THE COPY LOOP BEGI        
       BCD  NS AT 210.                                                          
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL        
       BCD  Y.                                                                  
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,        
       BCD   ITS CHECK SUM, AND THE TABLE.                                      
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 55                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 55                 222  FT 107                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+162                                                          
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE        
       BCD   FROM DRUM 4.                                                       
       BCD  THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C        
       BCD  ORE LOCATION 2112.                                                  
       BCD  ITS CHECK SUM IS COPIED FROM 3 INTO 533.  THE COPY LOOP BEGI        
       BCD  NS AT 210.                                                          
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL        
       BCD  Y.                                                                  
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,        
       BCD   ITS CHECK SUM, AND THE TABLE.                                      
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 56                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 56                 241  FT 107                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                 165 OCTAL, CONTAINS WORD COUNT                     
       LDA A                                                                    
       CPY ERAS                                                                 
       CLA ERAS                                                                 
       ARS 18                                                                   
       STO ERAS+10                                                              
       TSX BINDEC,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       CAL PR2                                                                  
       RQL 6                                                                    
       LGL 30                                                                   
       SLW PR2                                                                  
       CLA TEIFNO                                                               
       SUB ERAS+10                                                              
       TSX OCTBCD,4                                                             
       SLW ERAS                                                                 
       LDQ ERAS                                                                 
       LGL 12                                                                   
       CAL PR1                                                                  
       LGL 24                                                                   
       SLW PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+182                                                          
       TRA DIGRTN                                                               
TEIFNO OCT 00000002112                                                          
A      HTR8165                                                                  
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING THE EIFNO TABLE FROM DRUM 4.             
       BCD                                                                      
       BCD  THE DRUM ADDRESS OF THE FIRST ENTRY IS 4.  THE TABLE IS COPI        
       BCD 1ED INT                                                              
PR1    BCD 1    O                                                               
       BCD 1 AND I                                                              
PR2    BCD 1     S                                                              
       BCD 6 WORDS LONG.                                                        
       BCD  THE DRUM CHECK SUM IS IN 533.  THE COMPUTED CHECK SUM IS NOT        
       BCD   STORED, THEREFORE IT IS NOT AVAILABLE.                             
       BCD  THE COPY LOOP BEGINS AT LOCATION 223.                               
       BCD                                                                      
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE EIFNO TABLE CORRECT        
       BCD  LY.                                                                 
       BCD                                                                      
       BCD                                                                      
       BCD  IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES        
       BCD  , 2048 WORDS OF MEMORY                                              
       BCD  HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,        
       BCD   THE TABLE, AND ITS CHECK SUM.                                      
       BCD  MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE         
       BCD  CHECK SUM ERROR ON THE DRUM.                                        
X                                                                               
       END                                                                      
       ORG 57                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 57                1274  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                                                                    
       LDA A                                                                    
       CPY ERAS                                                                 
       CLS OTA               FORM LOCATION OF FIRST WORD IN TABLE               
       ADD ERAS                                                                 
       TSX OCTBCD,4                                                             
       LDQ BLANKS                                                               
       LGL 6                                                                    
       SLW PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+76                                                           
       TRA DIGRTN                                                               
A      HTR81256              LOCATION 0F WORD COUNT OF FLOCON TABLE             
OTA    PXD85453              ADDRESS OF LAST TABLE ENTRY PLUS ONE.              
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING FLOCON TABLE FROM DRUM 2.  COPY L        
       BCD  OOP BEGINS AT LOCATION 1250.                                        
       BCD 9STARTING DRUM ADDRESS IS IN 551.   THE TABLE BEGINS AT              
PR1    BCD 1 1234                                                               
       BCD  AND CONSISTS OF BLOCKS OF FIFTY WORDS,                              
       BCD  EACH BLOCK PRECEDED BY ITS OWN CHECK SUM.  CHECK SUMMING IS         
       BCD  DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMENT.                       
       BCD  IT IS NOT STORED.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THE         
       BCD 4ENTIRE TABLE CORRECTLY.                                             
X                                                                               
       END                                                                      
       ORG 58                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 58                1345  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING DIM1 TABLE FROM DRUM 3.  COPY LOO        
       BCD  P BEGINS AT LOCATION 1316.  STARTING DRUM                           
       BCD  ADDRESS IS IN 614.  THE TABLE IS COMPOSED OF TWO WORD ENTRIE        
       BCD  S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                        
       BCD  CHECK SUMMING IS DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMEN        
       BCD  T.  IT IS NOT STORED.  FIVE ATTEMPTS                                
       BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                  
X                                                                               
       END                                                                      
       ORG 59                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 59                1377  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING DIM2 TABLE FROM DRUM 3.  COPY LOO        
       BCD  P BEGINS AT LOCATION 1350.  STARTING DRUM                           
       BCD  ADDRESS IS IN 621.  THE TABLE IS COMPOSED OF TWO WORD ENTRIE        
       BCD  S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                        
       BCD  CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE        
       BCD  MENT.  IT IS NOT STORED.  FIVE ATTEMPTS                             
       BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                  
X                                                                               
       END                                                                      
       ORG 60                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 60                1444  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CHECK SUM ERROR IN READING DIM3 TABLE FROM DRUM 3.  COPY LOO        
       BCD  P BEGINS AT LOCATION 1413.  STARTING DRUM                           
       BCD  ADDRESS IS IN 626.  THE TABLE IS COMPOSED OF THREE WORD ENTR        
       BCD  IES, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.                      
       BCD  CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE        
       BCD  MENT.  IT IS NOT STORED.  FIVE ATTEMPTS                             
       BCD  HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.                  
X                                                                               
       END                                                                      
       ORG 61                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 61                1031  FT  24                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TIFGO TABLE, TAPE 2, FILE 5, RECORD 6.        
       BCD    COPY LOOP BEGINS AT LOCATION 771.                                 
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 62                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 62                1221  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING A CIT RECORD FROM TAPE 3.  COPY LOOP B        
       BCD  EGINS AT LOCATION 1173.                                             
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 63                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 63                7720  FT  21                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+74                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING A RECORD FROM TAPE 2.  THIS RECORD IS         
       BCD  A TABLE ASSEMBLED BY SECTION 1 PRIME                                
       BCD  FROM ENTRIES ON TAPE 3 INTO A BUFFER AND WRITTEN ON TAPE 2.         
       BCD   SUBROUTINE WHICH WRITES THE TAPE BEGINS AT                         
       BCD  LOCATION 7656.  THE RECORD HAS BEEN READ BACK INTO LOCATION         
       BCD  7632 AND THE RTT INSTRUCTION HAS FAILED                             
       BCD  EACH TIME.  FIVE ATTEMPTS HAVE BEEN MADE TO WRITE THIS RECOR        
       BCD 2D CORRECTLY.                                                        
X                                                                               
       END                                                                      
       ORG 64                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 64                7627  FT  21                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+74                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING A RECORD FROM TAPE 4.  THIS RECORD IS         
       BCD  A TABLE IDENTIFICATION WORD AND AN ENTRY                            
       BCD  MADE BY SECTION 1 ON TAPE 4.  SECTION 1 PRIME IS ATTEMPTING         
       BCD  TO PUT ALL THE SIMILAR ENTRIES INTO ONE                             
       BCD  BUFFER BEFORE WRITING THE TABLE ON TAPE 2.  COPY LOOP BEGINS        
       BCD   AT LOCATION 7550.  RECORD IDENTIFICATION                           
       BCD  IS AT 7631.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECOR        
       BCD 2D CORRECTLY.                                                        
X                                                                               
       END                                                                      
       ORG 65                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 65                  61  FT  47                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING 2 WORD RECORD FROM TAPE 2, FILE 7.  CO        
       BCD  PY LOOP IS AT LOCATION 30.                                          
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 66                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 66                 116  FT  53                                       
       REM 66                 132  FT  53                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 1.  COPY LOOP        
       BCD   IS AT LOCATION 51.                                                 
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 67                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 67                4026  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2, FILE 6.  COPY LOOP        
       BCD   IS AT LOCATION 4012.                                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 68                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 68                4054  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TAGTAG RECORD FROM TAPE 4, FILE 2.  CO        
       BCD  PY LOOP IS AT LOCATION 4027.                                        
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 69                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 69                4155  FT  34                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1.  COP        
       BCD  Y LOOP IS AT LOCATION 4116.                                         
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 70                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 70                6744  FT  41                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  INCORRECT RECORD TAPE 2, FILE 7.  RECORD IS 2 WORDS, EACH IS        
       BCD   RECORD COUNT OF FILE 6.  RECORD HAS BEEN                           
       BCD  READ 6 TIMES AND FAILED EACH TIME TO FIND THE WORDS EQUAL.          
X                                                                               
       END                                                                      
       ORG 71                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 71                6767  FT  39                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 2, FILE 6.  COP        
       BCD  Y LOOP IS AT LOCATION 6730.                                         
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 72                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 72                7070  FT  36                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+67                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1.  REC        
       BCD  ORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                            
       BCD  COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD         
       BCD  OF EACH ENTRY, COPY AT LOCATION 7054 COPIES                         
       BCD  OTHER 7 WORDS INTO ERASABLE STORAGE AND RETURNS TO 7043 FOR         
       BCD  NEXT ENTRY.  FIVE ATTEMPTS HAVE BEEN MADE                           
       BCD 5TO READ THIS RECORD CORRECTLY.                                      
X                                                                               
       END                                                                      
       ORG 73                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 73                7123  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       LXD ZERO,4                                                               
       CLA 3669              7125 OCTAL                                         
C      CAS TABLE,4                                                              
       TRA A                                                                    
       TRA HAVE                                                                 
A      TXI B,4,3                                                                
B      TXL C,4,15                                                               
       TSX PRINT,4                                                              
       HTR ER,0,ER+92                                                           
       HTR D                                                                    
ER     BCD 2                                                                    
       BCD  LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO        
       BCD  STIC RECORD NUMBER 73                                               
       BCD  TO BE READ IN.  THIS RECORD COMPARES THE IDENTIFICATION WORD        
       BCD   OF A TAPE RECORD, LOCATION 7125, TO A LIST                         
       BCD  OF 6 POSSIBLE TAPE IDENTIFICATION WORDS, BUT THE SEARCH HAS         
       BCD  FAILED.  TABLE IDENTIFICATION WORDS                                 
       BCD  ARE IN 1463, 1463 PLUS 3, ETC.  PRESS START IF YOU WISH TO R        
       BCD  ESTORE MACHINE TO CONDITION IN WHICH                                
       BCD  ERROR OCCURRED.                                                     
HAVE   LDQ TABLE-2,4                                                            
       CAL PR1                                                                  
       LGL 12                                                                   
       SLW PR1                                                                  
       LGL 24                                                                   
       LDQ PR2                                                                  
       LGL 12                                                                   
       SLW PR2                                                                  
       CAL TABLE-1,4                                                            
       LDQ PR3                                                                  
       LGL 24                                                                   
       SLW PR3                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
D      TRA DIGRTN                                                               
       BCD 1FORVAL                                                              
       BCD 1     9           NUMBER OF RECORD IN FILE 5                         
       HTR 6                 IDENTIFICATION IN RECORD                           
       BCD 1FORVAR                                                              
       BCD 1    10                                                              
       HTR 5                                                                    
       BCD 1FORTAG                                                              
       BCD 1    11                                                              
       HTR 4                                                                    
       BCD 1 TRAD                                                               
       BCD 1     7                                                              
       HTR 3                                                                    
       BCD 1 TIFGO                                                              
       BCD 1     6                                                              
       HTR 2                                                                    
       BCD 1 TDO                                                                
       BCD 1     8                                                              
TABLE  HTR 1                                                                    
PR     BCD 2                                                                    
       BCD 3TAPE CHECK IN READ                                                  
PR1    BCD 1  ING                                                               
PR2    BCD 1 R                                                                  
       BCD 5ECORD, TAPE 2, FILE 5, RECORD                                       
PR3    BCD 1.  C                                                                
       BCD 9OPY LOOP IS AT LOCATION 7066.                                       
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 74                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 74                  74  FT  56                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+77                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  ERROR CHECKING IS        
       BCD   AT LOCATION 64, BUT THERE ARE                                      
       BCD  3 COPY LOOPS WHICH USE THIS CHECKING.  LOCATION 30 TO READ T        
       BCD  HE 1 WORD RECORD IN FILE 7,                                         
       BCD  LOCATION 43 TO READ FORTAG, THE 11TH RECORD IN FILE 5, OR LO        
       BCD  CATION 557 TO READ A 1 WORD                                         
       BCD  RECORD IN FILE 3.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS        
       BCD 5 RECORD CORRECTLY.                                                  
X                                                                               
       END                                                                      
       ORG 75                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 75                 350  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO        
       BCD  RD 6.  COPY LOOP IS AT LOCATION 324.                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 76                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 76                 375  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR        
       BCD  D 7.  COPY LOOP IS AT LOCATION 352.                                 
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 77                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 77                 410  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING THE FIRST WORD OF FILE 1, TAPE 4.  COP        
       BCD  Y LOOP IS AT LOCATION 401.                                          
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE WORD CORRECTLY        
X                                                                               
       END                                                                      
       ORG 78                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 78                 430  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC        
       BCD  ORD 1.  COPY LOOP IS AT LOCATION 400.                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 79                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 79                 446  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC        
       BCD  ORD 2.  COPY LOOP IS AT LOCATION 432.                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 80                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 80                 510  FT  56                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT RECORD FROM TAPE 2. FILE 2.  COPY         
       BCD  LOOP IS AT LOCATION 506.                                            
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 81                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 81                 520  FT  56                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING COMPDO RECORD FROM TAPE 4, FILE 2.  CO        
       BCD  PY LOOP IS AT LOCATION 516.                                         
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 82                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 82                 674  FT  60                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+35                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING A RECORD FROM THE TIFGO FILE.  THIS IS        
       BCD   THE 8TH FILE OF TAPE 2.  COPY LOOP IS AT                           
       BCD  LOCATION 654.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS REC        
       BCD 3ORD CORRECTLY.                                                      
X                                                                               
       END                                                                      
       ORG 83                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 83                 720  FT  60                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING A RECORD FROM TAPE 3, FILE 1.  THIS FI        
       BCD  LE IS A MERGE OF THE COMPAIL AND COMPDO FILES.                      
       BCD  COPY LOOP IS AT LOCATION 700.  FIVE ATTEMPTS HAVE BEEN MADE         
       BCD 5TO READ THIS RECORD CORRECTLY.                                      
X                                                                               
       END                                                                      
       ORG 84                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 84                 303  FT  73                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP        
       BCD   IS AT LOCATION 265.                                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 85                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 85                 350  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP        
       BCD   IS AT LOCATION 327.                                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 86                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 86                 517  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO        
       BCD  RD 6.  COPY LOOP IS AT LOCATION 522.                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 87                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 87                 553  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR        
       BCD  D 7.  COPY LOOP IS AT LOCATION 556.                                 
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 88                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 88                 716  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING FRET RECORD FROM TAPE 2, FILE 5, RECOR        
       BCD  D 12.  COPY LOOP IS AT LOCATION 721.                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 89                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 89                IO23  FT  64                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       CLA DECONE            SET CONTROL FOR BST                                
       STD 0                                                                    
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1.  COPY LOOP        
       BCD   IS AT LOCATION 1026.                                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 90                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 90                1175  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING DOTAG RECORD, TAPE 2, FILE 6.  COPY LO        
       BCD  OP IS AT LOCATION 1200.                                             
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 91                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 91                 327  FT  86                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L        
       BCD  OCATION 330.                                                        
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 92                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 92                 437  FT  84                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L        
       BCD  OCATION 325.                                                        
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 93                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 93                1240  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 3.  COPY LOOP        
       BCD   IS AT LOCATION 1241.                                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 94                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 94                3540  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L        
       BCD  OCATION 3534.                                                       
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 95                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 95                4453  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L        
       BCD  OCATION 4421.                                                       
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 96                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 96                  46  FT  90                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L        
       BCD  OCATION 32.                                                         
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 95                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 95                4453  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 4.  COPY LOOP IS AT L        
       BCD  OCATION 4421.                                                       
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 96                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 96                  46  FT  90                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L        
       BCD  OCATION 32.                                                         
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 97                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 97                 330  FT  90                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+35                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L        
       BCD  OCATION 304 AND READS FROM FILE 3,                                  
       BCD  4, 5, 7, 9 OR 10.  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS        
       BCD 3 RECORD CORRECTLY.                                                  
X                                                                               
       END                                                                      
       ORG 98                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 98                 141  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING SUBROUTINE DEFINITION TABLE FROM TAPE         
       BCD  2, RECORD 2, FILE 5.                                                
       BCD  COPY LOOP IS AT LOCATION 135.  FIVE ATTEMPTS HAVE BEEN MADE         
       BCD 5TO READ THIS RECORD CORRECTLY.                                      
X                                                                               
       END                                                                      
       ORG 99                FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 99                 356  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+27                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT TABLE, TAPE 3.  COPY LOOP IS AT LO        
       BCD  CATION 352.  FIVE ATTEMPTS HAVE BEEN MADE TO                        
       BCD 5READ THIS RECORD CORRECTLY.                                         
X                                                                               
       END                                                                      
       ORG 100               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 100                562  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING OP TABLE FROM TAPE 2, FILE 6.  COPY LO        
       BCD  OP IS AT LOCATION 556.                                              
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 101               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 101                765  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+27                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT TABLE, TAPE 3.  COPY LOOP IS AT LO        
       BCD  CATION 761.  FIVE ATTEMPTS HAVE BEEN MADE TO                        
       BCD 5READ THIS RECORD CORRECTLY.                                         
X                                                                               
       END                                                                      
       ORG 102               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 102               1135  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING HOLARG TABLE FROM TAPE 2, RECORD 4, FI        
       BCD  LE 5.  COPY LOOP IS AT LOCATION 1131.                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 103               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 103                245  FT   9                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L        
       BCD  OCATION 220.  FIVE ATTEMPTS HAVE BEEN MADE                          
       BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P        
       BCD  ROCESS LISTING TAPES FOR OUTPUT.                                    
X                                                                               
       END                                                                      
       ORG 104               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 104                264  FT   7                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 2.  COPY LOOP IS AT L        
       BCD  OCATION 265.  FIVE ATTEMPTS HAVE BEEN MADE                          
       BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P        
       BCD  ROCESS LISTING TAPES FOR OUTPUT.                                    
X                                                                               
       END                                                                      
       ORG 105               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 105               3730  FT  115                                      
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING TAPE RECORD OF CARD IMAGE FROM TAPE 3.        
       BCD    COPY LOOP IS AT LOCATION 3655.                                    
       BCD  THIS STOP MAY ALSO BE DUE TO AN INCORRECT RECORD WHICH CONTA        
       BCD  INS MORE THAN 25 WORDS.                                             
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 106               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 106                311  FT   9                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD FROM TAPE 3.  COPY LOOP IS AT L        
       BCD  OCATION 263.  FIVE ATTEMPTS HAVE BEEN MADE                          
       BCD  TO READ THIS RECORD CORRECTLY.  PROGRAM CANNOT CONTINUE TO P        
       BCD  ROCESS LISTING TAPES FOR OUTPUT.                                    
X                                                                               
       END                                                                      
       ORG 107               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 107                410  FT  96                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING COMMON TABLE FROM TAPE 2, RECORD 3, FI,       
       BCD  LE 5.  COPY LOOP IS AT LOCATION 404.                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 108               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 108                460  FT  98                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING SUBDEF TABLE FROM TAPE 2, RECORD 2, FI        
       BCD  LE 5.  COPY LOOP IS AT LOCATION 454.                                
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 109               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 109                223  FT 113                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING CIT, TAPE 4, IN THE SECOND PASS OF CIT        
       BCD   TAPE RECORD.  COPY LOOP IS AT LOCATION 217.                        
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 110               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 110                255  FT 103                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE CHECK IN READING RECORD OF COMPILED INSTRUCTIONS FROM T        
       BCD  APE 4.  COPY LOOP IS AT LOCATION 251.                               
       BCD  FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.         
X                                                                               
       END                                                                      
       ORG 111               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 111               1OO1  FT  24                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO TABLE, FILE        
       BCD   5, RECORD 6.  THE FORTAG TABLE, RECORD 11,                         
       BCD  HAS JUST BEEN WRITTEN ON TAPE 2.  BEGINNING AT LOCATION 764,        
       BCD   SIX BST INSTRUCTIONS ARE GIVEN                                     
       BCD  BEFORE THE RDS.  THE CPY AT 775 SHOWS THAT THIS RECORD IS NO        
       BCD  T TIFGO (IDENTIFICATION WORD IN 7745).                              
       BCD  THE RECORD IDENTIFICATION OF THE TAPE IS IN 7747.                   
X                                                                               
       END                                                                      
       ORG 112               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 112                123  FT  53                                       
       REM 1I2                I24  FT  53                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  END OF RECORD NOT PROPERLY REACHED, TAPE 3, FILE 1.  TEST WO        
       BCD  RD IN RECORD SHOWS THAT COPY AT                                     
       BCD 8LOCATION 122 SHOULD CAUSE END OF RECORD SKIP.                       
X                                                                               
       END                                                                      
       ORG 113               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 113               6736  FT  41                                       
       REM 113               6737  FT  41                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  ERROR IN READING THE SINGLE 2 WORD RECORD FROM TAPE 2, FILE         
       BCD  7.  TAPE SHOULD BE POSITIONED AFTER                                 
       BCD  FILE MARK, FILE 7.  BEGINNING AT 6730, TWO BST S ARE GIVEN,         
       BCD  THEN AN RTB AND THREE CPY S.                                        
       BCD  COPY AT LOCATION 6735 SHOULD CAUSE END OF RECORD SKIP.              
X                                                                               
       END                                                                      
       ORG 114               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 114               7112  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+51                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT POSITIONED CORRECTLY TO READ RECORD FROM FILE         
       BCD  5.  COPY LOOP AT LOCATION 7060 READS                                
       BCD  RECORDS 6 THROUGH 11 AND HAS FOUND THAT IDENTIFICATION OF RE        
       BCD  CORD, LOCATION 7127,                                                
       BCD 9DOES NOT MATCH EXPECTED IDENTIFICATION, LOCATION 7125.              
X                                                                               
       END                                                                      
       ORG 115               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 115                 51  FT  56                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+72                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ FORTAG, FILE 5, R        
       BCD  ECORD 11.  ROUTINE AT LOCATION 31                                   
       BCD  READS THE 1 WORD RECORD OF FILE 7 WHICH IS RECORD COUNT OF F        
       BCD  ILE 6.  7 IS ADDED TO THIS COUNT AND                                
       BCD  THE TAPE IS BACKSPACED OVER FILE 6, FILE MARK AND THE LAST 4        
       BCD   RECORDS IN FILE 5.  RECORD IDENTIFICATION                          
       BCD  IN LOCATION 2326 SHOWS THAT THIS IS NOT FORTAG RECORD.              
X                                                                               
       END                                                                      
       ORG 116               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 116                331  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+53                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO RECORD.  RD        
       BCD  S LOOP AT LOCATION 30 HAS SPACED TAPE 2                             
       BCD  FORWARD FROM BEGINNING OF 3RD FILE TO BEGINNING OF TIFGO, FI        
       BCD  LE 5, RECORD 6.  IDENTIFICATION WORD                                
       BCD  OF RECORD IN LOCATION 5471, SHOWS THAT THIS IS NOT TIFGO REC        
       BCD 1ORD.                                                                
X                                                                               
       END                                                                      
       ORG 117               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 117                357  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TRAD, FILE 5, REC        
       BCD  ORD 7.  RECORD 6, TIFGO, HAS                                        
       BCD  JUST BEEN READ SUCCESSFULLY, BUT IDENTIFICATION WORD, LOCATI        
       BCD  ON 6766, SHOWS THAT NEXT RECORD IS NOT TRAD.                        
       BCD  COPY LOOP IS AT LOCATION 352.                                       
X                                                                               
       END                                                                      
       ORG 118               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 118                524  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+80                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FAILURE TO READ CORRECT RECORD FROM TAPE 2, FILE 5.  TAPE SH        
       BCD  OULD BE POSITIONED TO READ RECORD 6, TIFGO,                         
       BCD  RECORD 7, TRAD, OR RECORD 12, FRET.  ONE OF THE ROUTINES WHI        
       BCD  CH USES INFORMATION FROM THESE RECORDS HAS                          
       BCD  FOUND THAT THE IDENTIFICATION OF THE RECORD DOES NOT MATCH T        
       BCD  HE EXPECTED IDENTIFICATION.  THE ROUTINE                            
       BCD  READING A PARTICULAR RECORD IS AT LOCATION 435 FOR TIFGO, LO        
       BCD 8CATION 525 FOR TRAD, OR LOCATION 643 FOR FRET.                      
X                                                                               
       END                                                                      
       ORG 119               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 119                314  FT  90                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       RDR 4                                                                    
       LDA AA                                                                   
       CPY ERAS                                                                 
       PXD 0,0                                                                  
       LDQ ERAS                                                                 
       LGL 3                 FIRST OCTAL NUMBER INTO COMMENT                    
       ORS A                                                                    
       LGL 15                                                                   
       TSX OCTBCD,4                                                             
       SLW B                 B 23456                                            
       LDQ ERAS              FIX TAG FIELD                                      
       RQL 18                                                                   
       CAL BLANKS                                                               
       ALS 3                                                                    
       LGL 3                                                                    
       SLW C                                                                    
       CLA ERAS                                                                 
       TSX OCTBCD,4          B 89101112                                         
       SLW D                                                                    
       LDQ D                                                                    
       CAL C                                                                    
       LGL 24                8788910                                            
       SLW C                                                                    
       LGL 12                                                                   
       LDQ BLANKS                                                               
       LGL 24                                                                   
       SLW D                 11128888                                           
       TSX PRINT,4                                                              
       HTR PR,0,PR+62                                                           
       TRA DIGRTN                                                               
AA     HTR8612                                                                  
PR     BCD 2                                                                    
       BCD  TAPE 2 IS NOT CORRECTLY POSITIONED.  CURRENT FILE 5 RECORD I        
       BCD 2DENTIFICATIO                                                        
     A BCD 1N IS 0                                                              
     B HTR                                                                      
     C HTR                                                                      
     D BCD 5                                                                    
       BCD  AND DOES NOT MATCH EXPECTED RECORD IDENTIFICATION WHICH WAS         
       BCD  IN THE ACCUMULATOR AND IS NOT STORED.                               
       BCD  THIS SUBROUTINE BEGINS AT 304 AND IS USED TO READ IN ANY OF         
       BCD  THE RECORDS IN FILE 5, TAPE 2.                                      
X                                                                               
       END                                                                      
       ORG 120               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 120                 36  FT  53                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+16                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF RECORD, TAPE 4.  COPY LOOP AT LOCATION 30 IS SP        
       BCD 4ACING OVER FIRST FILE.                                              
X                                                                               
       END                                                                      
       ORG 121               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 121               4417  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+17                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF RECORD, TAPE 4.  COPY LOOP AT LOCATION 4413 IS         
       BCD 5ARRANGED TO FIND END OF FILE.                                       
X                                                                               
       END                                                                      
       ORG 122               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 122               7053  FT  36                                       
       REM 122               7057  FT  36                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+35                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF RECORD READING DOTAG RECORD FROM TAPE 3, FILE 1        
       BCD  .  RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                      
       BCD  COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD         
       BCD 3OF EACH ENTRY.                                                      
X                                                                               
       END                                                                      
       ORG 123               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 123               7250  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF RECORD TAPE 2, FILE 5.  COPY AT LOCATION 7245 S        
       BCD  HOULD TRANSFER TO                                                   
       BCD  RDS AT LOCATION 7244, OR CAUSE FILE SKIP AT END OF FILE 5.          
X                                                                               
       END                                                                      
       ORG 124               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 124                 62  FT  53                                       
       REM 124                 63  FT  53                                       
       REM 124                 66  FT  53                                       
       REM 124                 67  FT  53                                       
       REM 124                 72  FT  53                                       
       REM 124                 73  FT  53                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+55                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF RECORD OR FALSE END OF FILE IN READING, TAPE 3,        
       BCD   FILE 1, FROM VARIABLE LENGTH RECORD WHICH                          
       BCD  SHOULD HAVE BEEN WRITTEN AS A SERIES OF 4 WORD ENTRIES.  COP        
       BCD  Y LOOP AT LOCATION 53 READS                                         
       BCD  4 WORDS AT A TIME AND CHECKS AGAINST THIS IN READING 2ND, 3R        
       BCD 3D AND 4TH WORD.                                                     
X                                                                               
       END                                                                      
       ORG 125               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 125               7075  FT  27                                       
       REM 125               7076  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+47                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE OR FALSE END OF RECORD IN READING RECORD F        
       BCD  ROM TAPE 2, FILE 5.  RECORDS IN THIS FILE                           
       BCD  ARE MINIMUM 2 WORDS, IDENTIFICATION WORD AND WORD COUNT.  CO        
       BCD  PY LOOP AT LOCATION 7070 DOES NOT ATTEMPT                           
       BCD 5TO READ MORE THAN 2 WORDS.                                          
X                                                                               
       END                                                                      
       ORG 126               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 126               7563  FT  21                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING A RECORD FROM TAPE 4.  COPY LOO        
       BCD  P BEGINS AT LOCATION 7552.                                          
       BCD  THE COPY AT LOCATION 7561 IS AT LEAST THE SECOND ONE GIVEN A        
       BCD  ND IS PROGRAMMED TO FIND                                            
       BCD  AN END OF RECORD SKIP.                                              
X                                                                               
       END                                                                      
       ORG 127               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 127               7555  FT  21                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING THE FIRST WORD OF A RECORD FROM        
       BCD   TAPE 4.  COPY LOOP IS AT LOCATION 7552.                            
       BCD  THE COPY AT LOCATION 7553 DOES NOT ATTEMPT TO READ MORE THAN        
       BCD   THE IDENTIFICATION WORD OF THESE RECORDS,                          
       BCD  WHICH ARE AT LEAST TWO WORDS LONG.                                  
X                                                                               
       END                                                                      
       ORG 128               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 128               4035  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TAGTAG RECORD FROM TAPE 4, FILE        
       BCD   2.  COPY LOOP IS AT LOCATION 4027.                                 
       BCD  COPY AT 4033 IS PROGRAMMED TO FIND END OF RECORD SKIP.              
X                                                                               
       END                                                                      
       ORG 129               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 129               4161  FT  34                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+26                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE         
       BCD  1.  COPY LOOP AT LOCATION 4157 SHOULD CAUSE                         
       BCD 4END OF RECORD SKIP.                                                 
X                                                                               
       END                                                                      
       ORG 130               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARd FOR DE                                        
       ORG LOCREC                                                               
       TXH 130               7052  FT  36                                       
       REM I30               7056  FT  36                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+35                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE         
       BCD  1.  RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.                     
       BCD  COPY LOOP AT LOCATION 7043 ONLY READS FIRST AND SECOND WORD         
       BCD 3OF EACH ENTRY.                                                      
X                                                                               
       END                                                                      
       ORG 131               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 131               7103  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+53                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5.  RE        
       BCD  CORDS IN THIS FILE ARE MINIMUM 2 WORDS,                             
       BCD  IDENTIFICATION AND WORD COUNT.  COPY AT LOCATION 7101 IS AT         
       BCD  LEAST THIRD COPY GIVEN, AND IS PROGRAMMED                           
       BCD  TO FIND END OF RECORD SKIP.  COPY LOOP BEGINS AT LOCATION 70        
       BCD 170.                                                                 
X                                                                               
       END                                                                      
       ORG 132               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 132               7135  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+47                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5, REC        
       BCD  ORD 8.  COPY LOOP IS GENERAL                                        
       BCD  SUBROUTINE AT LOCATION 7060.  COPY AT LOCATION 7133 IS PROGR        
       BCD  AMMED TO FIND END OF RECORD SKIP                                    
       BCD 5FOR THIS SPECIFIC RECORD.                                           
X                                                                               
       END                                                                      
       ORG 133               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 133                 60  FT  56                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+38                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING FORTAG RECORD TAPE 2, FILE 5, R        
       BCD  ECORD 11.  THERE ARE 14 RECORDS                                     
       BCD  IN THIS FILE.  COPY LOOP IS AT LOCATION 43.  COPY AT LOCATIO        
       BCD 6N 56 SHOULD FIND END OF RECORD SKIP.                                
X                                                                               
       END                                                                      
       ORG 134               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 134                340  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TIFGO FROM TAPE 2, FILE 5, RECO        
       BCD  RD 6.  THERE ARE 14 RECORDS IN THIS FILE.                           
       BCD  COPY AT LOCATION 336 SHOULD FIND END OF RECORD SKIP.                
X                                                                               
       END                                                                      
       ORG 135               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 135                366  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TRAD RECORD TAPE 2, FILE 5, REC        
       BCD  ORD 7.  THERE ARE 14 RECORDS                                        
       BCD  IN THIS FILE.  COPY LOOP IS AT LOCATION 352.  COPY AT LOCATI        
       BCD 7ON 364 SHOULD FIND END OF RECORD SKIP.                              
X                                                                               
       END                                                                      
       ORG 136               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 136                417  FT  58                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TRALEV RECORD FROM TAPE 4, FILE        
       BCD   1, RECORD 1.  COPY LOOP IS AT LOCATION 401.                        
       BCD 9COPY AT LOCATION 415 SHOULD FIND END OF RECORD SKIP.                
X                                                                               
       END                                                                      
       ORG 137               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 137                454  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TIFGO RECORD FROM TAPE 2, FILE         
       BCD 85, RECORD 6.  COPY LOOP IS AT LOCATION 447.                         
X                                                                               
       END                                                                      
       ORG 138               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 138                534  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+20                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TRAD RECORD FROM TAPE 2, FILE 5        
       BCD 8, RECORD 7.  COPY LOOP IS AT LOCATION 530.                          
X                                                                               
       END                                                                      
       ORG 139               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 139                336  FT  86                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, WHICH SHOUL        
       BCD  D HAVE BEEN POSITIONED AFTER FILE MARK                              
       BCD  AT THE END OF THE 8TH FILE.  COPY LOOP IS AT LOCATION 325.          
X                                                                               
       END                                                                      
       ORG 140               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 140               1211  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,X                                                               
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3.  TH        
       BCD  ESE ARE 15 WORD RECORDS AND                                         
       BCD  THERE IS AN END OF FILE MARK.  COPY LOOP IS AT LOCATION 1172        
X                                                                               
       END                                                                      
       ORG 141               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 141               1221  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+28                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3.  TH        
       BCD  IS FILE DOES NOT HAVE A FILE MARK AT THE END.                       
       BCD 6COPY LOOP IS AT LOCATION 1172.                                      
X                                                                               
       END                                                                      
       ORG 142               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 142                37  FT  90                                        
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+52                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING CIT RECORD FROM TAPE 3, WHICH S        
       BCD  HOULD HAVE BEEN POSITIONED AFTER FILE MARK.                         
       BCD  COPY LOOP BEGINS AT LOCATION 30 WITH 2 BST INSTRUCTIONS.  CO        
       BCD  PY AT 35 IS PROGRAMMED                                              
       BCD  TO FIND END OF RECORD SKIP.                                         
X                                                                               
       END                                                                      
       ORG 143               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 143                321  FT  90                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+42                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING A RECORD FROM TAPE 2.  COPY LOO        
       BCD  P IS AT LOCATION 305 AND READS FROM                                 
       BCD  FILE 3, 4, 5, 7, 9 OR 10.  COPY AT LOCATION 317 IS PROGRAMME        
       BCD  D TO FIND END OF RECORD SKIP.                                       
X                                                                               
       END                                                                      
       ORG 144               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 144               1341  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+18                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 2, F        
       BCD 6ILE 5.  COPY LOOP IS AT LOCATION 135.                               
X                                                                               
       END                                                                      
       ORG 145               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 145               1347  FT  92                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+19                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 4, F        
       BCD 7ILE 5.  COPY LOOP IS AT LOCATION 1131.                              
X                                                                               
       END                                                                      
       ORG 146               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 146               3672  FT  115                                      
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING TAPE RECORD OF CARD IMAGE FROM         
       BCD  TAPE 3.  COPY AT LOCATION 3670 SHOULD                               
       BCD  CAUSE END OF RECORD SKIP.  COPY LOOP IS AT LOCATION 3655.           
X                                                                               
       END                                                                      
       ORG 147               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 147                427  FT  96                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+33                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING THE COMMON RECORD FROM TAPE 2,         
       BCD  RECORD 3, FILE 5.  COPY LOOP IS AT LOCATION 404.                    
       BCD  COPY AT LOCATION 414 IS PROGRAMMED TO FIND END OF RECORD SKI        
       BCD 1P.                                                                  
X                                                                               
       END                                                                      
       ORG 148               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 148                624  FT  98                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+34                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FALSE END OF FILE IN READING SUBDEF TABLE FROM TAPE 2, RECOR        
       BCD  D 2, FILE 5.  COPY LOOP IS AT                                       
       BCD  LOCATION 454.  COPY AT 464 IS PROGRAMMED TO FIND END OF RECO        
       BCD 2RD SKIP.                                                            
X                                                                               
       END                                                                      
       ORG 149               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 149               6004  FT  32                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  A SUBSCRIPT COMBINATION, AT LEAST 1 INDEX OF WHICH IS UNDER         
       BCD  CONTROL OF A DO, IS BEING EXAMINED.                                 
       BCD  A SUBSCRIPT HAS BEEN FOUND WITHOUT SUCH AN INDEX.  THE LOGIC        
       BCD 7 OF THE PROGRAM MAKES THIS IMPOSSIBLE.                              
X                                                                               
       END                                                                      
       ORG 150               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 150               6710  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  ROUTINE AT LOCATION 6711 SHOULD BE ABLE TO CONTINUE ANALYSIS        
       BCD   OF NEXT DO IN NEST.  CURRENT LEVEL FOR AN                          
       BCD  INNER DO HAS BEEN REDUCED TO 1.  LOGIC OF THE PROGRAM MAKES         
       BCD 5THIS IMPOSSIBLE.                                                    
X                                                                               
       END                                                                      
       ORG 151               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 151               6373  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  A DO NESTED WITHIN ANOTHER DO HAS BEEN FOUND TO HAVE A LEVEL        
       BCD   ASSIGNMENT LESS THAN OR EQUAL TO 1.                                
       BCD  THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. THE LEVEL CO        
       BCD 5UNT IS IN INDEX REGISTER 2.                                         
X                                                                               
       END                                                                      
       ORG 152               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 152               6376  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+46                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  INDEX REGISTER 1 HAS BEEN INCREMENTED BEYOND THE MAXIMUM SET        
       BCD  TING PERMISSABLE IN THIS SECTION OF PROGRAM,                        
       BCD  DESPITE A TEST IN THE ROUTINE WHICH PREVENTS THIS.  PROGRAM         
       BCD  SHOULD BE ABLE TO OBTAIN DOTAG ENTRY                                
       BCD 4FOR NEXT OUTER DO.                                                  
X                                                                               
       END                                                                      
       ORG 153               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 153               5742  FT  27                                       
       REM 153               5763  FT  27                                       
       REM 153               5764  FT  27                                       
TIFX   SYN 3270              6306 OCTAL                                         
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       CLA TIFX              CURRENT INDEX TO TIFGO ENTRIES                     
       ARS 18                                                                   
       STA TIFGO                                                                
       CLA TIFZ              ADDRESS OF TIFGO BUFFER, THIS IS NOW               
       SUB TIFGO             CN DRUM 4                                          
       STA A                                                                    
       RDR 4                                                                    
       LDA A                                                                    
       CPY TIFGO             INTERNAL NUMBER OF TIFGO IN DECREMENT              
       CLA TIFGO                                                                
       ARS 18                GET EXTERNAL STATEMENT NUMBER                      
       TSX EXBETA,4                                                             
       SLW TIFGO              123 FROM ABOVE INTO COMMENT                       
       CAL COMA                                                                 
       ARS 18                                                                   
       LDQ TIFGO                                                                
       LGL 18                                                                   
       SLW COMA                                                                 
       LGL 18                45 FROM ABOVE INTO REST OF COMMENT                 
       LDQ COMB                                                                 
       RQL 18                SHIFT 2 CHARACTERS OUT OF MQ                       
       LGL 18                                                                   
       SLW COMB                                                                 
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
A                                                                               
PR     BCD 2                                                                    
       BCD 5THE IF OR GO TO STATEMENT NUMB                                      
COMA   BCD 1ER                                                                  
COMB   BCD 1    HA                                                              
       BCD  S BEEN ASSIGNED A CLASSIFICATION HIGHER THAN 6.                     
       BCD 3                                                                    
       BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                     
TIFZ   HTR 1976              3670 OCTAL                                         
TIFGO  HTR 0                                                                    
X                                                                               
       END                                                                      
       ORG 154               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 154               5773  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+40                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  CONTENTS OF DOIND (LOCATION 5230) DO NOT MATCH CONTENTS OF E        
       BCD  ITHER TAG2+1,2  (LOCATION 3650),  TAG2+2,2  OR                      
       BCD  TAG2+3,2.  LOGIC OF PROGRAM MAKES THIS IMPOSSIBLE.  SUBROUTI        
       BCD 8NE WHICH CANNOT FIND MATCH IS AT LOCATION 4204.                     
X                                                                               
       END                                                                      
       ORG 155               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 155               6353  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TABLE SEARCH FAILURE.  LOGIC OF PROGRAM MAKES THIS IMPOSSIBL        
       BCD  E.  SUBROUTINE AT LOCATION 6277 COMPILES                            
       BCD  ARGUMENT (LOCATION 5243) WHICH SUBROUTINE AT LOCATION 6354 I        
       BCD 7S UNABLE TO MATCH IN A BLOCK OF CONSTANTS.                          
X                                                                               
       END                                                                      
       ORG 156               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 156               7110  FT  43                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+33                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  TABLE BEGINNING AT LOCATION 6400 HAS BEEN ORDERED BY ROUTINE        
       BCD   AT LOCATION 7053.                                                  
       BCD  CAS INSTRUCTION AT LOCATION 7105 SHOWS THAT TABLE IS OUT OF         
       BCD 1ORDER.                                                              
X                                                                               
       END                                                                      
       ORG 157               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 157                354  FT  64                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+68                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  NO ENTRY IN TIFRED TABLE FOR A VARIABLE FROM AN ASSIGNED GO         
       BCD  TO STATEMENT IN THE COMPILED INSTRUCTIONS.                          
       BCD  LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.  STOP MAY BE DUE        
       BCD   TO ERROR BY SUBROUTINE AT LOCATION 435 IN THE                      
       BCD  PREVIOUS FORTRAN RECORD, WHICH ACCUMULATES ASSIGNED GO TO EN        
       BCD  TRIES AS IT READS TAPE 2 AND WRITES                                 
       BCD 6THEM AS THE TIFRED TABLE ON DRUM 1.                                 
X                                                                               
       END                                                                      
       ORG 158               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 158                711  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+40                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  MISCOMPILED ENTRY IN FRET TABLE, TAPE 2, FILE 5, RECORD 12.         
       BCD   LAST WORD OF RECORD INTRODUCES                                     
       BCD  NEW STATEMENT NUMBER, BUT NO ENTRIES FOLLOW WHICH WOULD GIVE        
       BCD 8 FREQUENCY INFORMATION ABOUT THE STATEMENT.                         
X                                                                               
       END                                                                      
       ORG 159               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 159                556  FT  64                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+48                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  MISCOMPILED ENTRY IN CIT TABLE.  THE TYPE OF STATEMENT A IF         
       BCD  (E) N1, N2, N3                                                      
       BCD  IS TRANSLATED TO TZE, TPL AND TRA.  A TZE HAS BEEN FOUND IN         
       BCD  TABLE OF COMPILED INSTRUCTIONS,                                     
       BCD 6WHICH IS NOT IN THIS SEQUENCE.                                      
X                                                                               
       END                                                                      
       ORG 160               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 160               3001  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+7                                                            
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 5MISCOMPILED GO TO STATEMENT.                                        
X                                                                               
       END                                                                      
       ORG 161               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 161               3253  FT  88                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+7                                                            
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 5MISCOMPILED IF STATEMENT.                                           
X                                                                               
       END                                                                      
       ORG 162               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 162                345  FT   5                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+17                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  MISCOMPILED NAME.  IMPOSSIBLE BCD CHARACTER AS THE FIRST CHA        
       BCD 5RACTER IN A SYMBOLIC ADDRESS.                                       
X                                                                               
       END                                                                      
       ORG 163               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 163                443  FT 103                                       
       REM  163                520  FT 113                                      
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+6                                                            
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 4MISCOMPILED SYNONYM.                                                
X                                                                               
       END                                                                      
       ORG 164               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 164                252  FT 105                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+12                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  MISCOMPILED NAME.  FORSUB ENTRY NOT IN SYMBOL TABLE.                
X                                                                               
       END                                                                      
       ORG 165               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 165                312  FT 113                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+11                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD 9MISCOMPILED NAME. VARIABLE NAME NOT IN SYMBOL TABLE.                
X                                                                               
       END                                                                      
       ORG 166               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 166                661  FT  75                                       
       REM 166               1022  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+18                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  INDEX REGISTER FOR CURRENT TAG HAS NOT BEEN CHOSEN.  LOGIC O        
       BCD 6F PROGRAM MAKES THIS IMPOSSIBLE.                                    
X                                                                               
       END                                      -,                              
       ORG 167               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 167                301  FT  67                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+37                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  SUBROUTINE AT LOCATION 276 HAS ATTEMPTED TO READ ANOTHER BUF        
       BCD  FER OF THE FRET TABLE ON DRUM 2.  A PREVIOUS                        
       BCD  PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHOW THAT ALL         
       BCD 5FRET ENTRIES ARE IN CORE.                                           
X                                                                               
       END                                                                      
       ORG 168               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 168               3064  FT  64                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  SUBROUTINE AT LOCATION 3064 HAS ATTEMPTED TO READ ANOTHER BU        
       BCD  FFER OF THE TIFRD TABLE FROM DRUM 1.                                
       BCD  A PREVIOUS PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHO        
       BCD 7W THAT ALL TIFRD ENTRIES ARE IN CORE.                               
X                                                                               
       END                                                                      
       ORG 169               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 169                762  FT  75                                       
       REM 169               1634  FT  75                                       
       REM 169               1777  FT  75                                       
       REM 169               4031  FT  75                                       
       REM 169               4303  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+15                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  PERMUTATION NUMBER MATCH NOT FOUND.  LOGIC OF PROGRAM MAKES         
       BCD 3THIS IMPOSSIBLE.                                                    
X                                                                               
       END                                                                      
       ORG 170               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 170               1307  FT  22                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+70                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  ERROR IN COMPUTING CHECK SUM OF FLOCON TABLE.  THIS TABLE CO        
       BCD  NSISTS OF BLOCKS OF FIFTY WORDS, EACH BLOCK                         
       BCD  PRECEDED BY ITS OWN CHECK SUM.  THE ACL INSTRUCTION AT LOCAT        
       BCD  ION 1261 HAS PICKED UP THE CHECK SUM OF                             
       BCD  THE NEXT BLOCK AND THE TNX INSTRUCTION AT 1263 SHOWS THAT TH        
       BCD  ERE ARE NO ENTRIES IN THE BLOCK.                                    
       BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                     
X                                                                               
       END                                                                      
       ORG 171               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 171               1076  FT  45                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR        
       BCD  UCTION AT LOCATION 1075.  TLQ INSTRUCTION                           
       BCD  AT LOCATION 1073 HAS JUST PROVED THAT WORD FROM LOCATION 140        
       BCD 76 IS LESS THAN WORD IN LOCATION 1410.                               
X                                                                               
       END                                                                      
       ORG 172               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 172               4623  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+39                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR        
       BCD  UCTION AT LOCATION 4622.  TLQ INSTRUCTION                           
       BCD  AT LOCATION 4620 HAS JUST PROVED THAT WORD FROM LOCATION 524        
       BCD 73 IS LESS THAN WORD IN LOCATION 5246.                               
X                                                                               
       END                                                                      
       ORG 173               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 173               5232  FT  34                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+19                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE ERROR RETURN FROM SUBROUTINE AT LOCATION 5566.  L        
       BCD 7OGIC OF PROGRAM MAKES THIS IMPOSSIBLE.                              
X                                                                               
       END                                                                      
       ORG 174               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 174               4124  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 4122 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 175               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 175               4157  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 4155 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 176               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 176               4405  FT  34                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 4403 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 177               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 177               4533  FT  51                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 4531 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 178               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 178               5721  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 5717 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 179               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 179               6253  FT  32                                       
       REM 179               6256  FT  32                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 6251 OR 6254. ROUTINE ANALYSES DIFFERENT                        
       BCD 9SUBSCRIPTS AFTER DUPLICATES HAVE BEEN ELIMINATED.                   
X                                                                               
       END                                                                      
       ORG 180               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 180               6635  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 6633 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 181               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 181               7023  FT  27                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 7021 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS                    
X                                                                               
       END                                                                      
       ORG 182               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 182               7073  FT  39                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+31                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT        
       BCD  ION 7071 WHICH COMPARES                                             
       BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.                   
X                                                                               
       END                                                                      
       ORG 183               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 183                425  FT  73                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 421 HAVE NOT BEE        
       BCD  N EXECUTED.                                                         
       BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
X                                                                               
       END                                                                      
       ORG 184               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 184                510  FT  73                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 501 HAVE NOT BEE        
       BCD  N EXECUTED.                                                         
       BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
X                                                                               
       END                                                                      
       ORG 185               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 185               1234  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1226 HAVE NOT BE        
       BCD  EN EXECUTED.                                                        
       BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
X                                                                               
       END                                                                      
       ORG 186               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 186               1261  FT  62                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+30                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1253 HAVE NOT BE        
       BCD  EN EXECUTED.                                                        
       BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.                         
X                                                                               
       END                                                                      
       ORG 187               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 187               2230  FT  75                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+13                                                           
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  DIVIDE CHECK.  LOGIC OF PROGRAM IS SUCH THAT THIS IS IMPOSSI        
       BCD 1BLE.                                                                
X                                                                               
       END                                                                      
       ORG 188               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 188                377  FT  56                                       
       REM 188                424  FT  56                                       
       REM 188                613  FT  56                                       
       REM 188                654  FT  56                                       
       REM I88               1000  FT  56                                       
       REM 188               1115  FT  56                                       
       REM I88               1320  FT  56                                       
       REM 188               1531  FT  56                                       
       REM 188               1767  FT  56                                       
       REM 188               7143  FT  56                                       
       REM I88                132  FT  60                                       
       REM 188                173  FT  60                                       
       REM 168                227  FT  60                                       
       REM 188                252  FT  60                                       
       REM 188                334  FT  60                                       
       REM 188                423  FT  60                                       
       REM 188                442  FT  60                                       
       REM I8B                521  FT  60                                       
       REM 188                544  FT  60                                       
       REM 188                305  FT  60                                       
       REM 188                363  FT  60                                       
       TSX PRINT,4                                                              
       HTR MACHIN,0,MACHIN+5                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+114                                                          
       TRA DIGRTN                                                               
PR     BCD 2                                                                    
       BCD  FAILURE OF CAS INSTRUCTION OR INDEX REGISTERS IN EXAMINING 4        
       BCD   WORD ENTRY FROM ONE OF THE RECORDS LISTED.                         
       BCD  ENTRY IS SHOWN TO BE GREATER THAN 4 WORDS.  LOGIC OF THE PRO        
       BCD  GRAM MAKES THIS IMPOSSIBLE.                                         
       BCD 2                                                                    
       BCD  CIT RECORD, TAPE 2, FILE 2                                          
       BCD                                                                      
       BCD  COMPDO RECORD, TAPE 4, FILE 2                                       
       BCD                                                                      
       BCD  DOFILB RECORD, TAPE 2, FILE 8                                       
       BCD                                                                      
       BCD  MERGED COMPAIL AND COMPDO RECORDS, TAPE 3, FILE 1                   
X                                                                               
       END                                                                      
       ORG 189               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 189               6063  FT  32                                       
       REM 189               6475  FT  32                                       
       REM 189               5273  FT  34                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       RDR 4                                                                    
       LDA A                                                                    
       CPY ALFBET                                                               
       CPY SYM                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+32                                                           
       TSX FX4PR,4                                                              
       TSX PRINT,4                                                              
       HTR PR1,0,PR1+32                                                         
       TRA SPEND                                                                
A      HTR831                                                                   
PR     BCD 2                                                                    
       BCD  AN INTERMEDIATE CORE TABLE IS FULL.  THE SUBSCRIPT COMBINATI        
       BCD  ONS AND FLOW STRUCTURE                                              
       BCD  ARE TOO COMPLEX WITHIN A DO NEST.  THE STATEMENT                    
PR1    BCD 2                                                                    
       BCD  IS THE OUTERMOST DO OF THE NEST WHICH HAS CAUSED THE OVERFLO        
       BCD  W.  REWRITE NEST AND SIMPLIFY                                   -,  
       BCD  SUBSCRIPT COMBINATIONS OR FLOW STRUCTURE.                           
X                                                                               
       END                                                                      
       ORG 190               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 190               7620  FT  21                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       CLA ADDMSK            PUT AWAY TABLE IDENTIFICATION WORD                 
IDWD   SYN87513              TABLE IDENTIFICATION AT LOC 7513                   
       ANA IDWD                                                                 
       STO ERAS                                                                 
       LXA ZERO,1                                                               
SEARCH CLA TBLWD,1           TABLE SEARCH                                       
       SUB ERAS                                                                 
       TZE PACK                                                                 
       TXI A,1,-2                                                               
A      TXH SEARCH,1,-32                                                         
       TSX PRINT,4                                                              
       HTR ER,0,ER+78                                                           
       HTR E                                                                    
E      TRA DIGRTN                                                               
ER     BCD 2                                                                    
       BCD  A TABLE COMPILED BY SECTION 1 PRIME HAS EXCEEDED THE BUFFER         
       BCD  SIZE.  THIS DIAGNOSTIC RECORD COMPARES                              
       BCD  THE TABLE IDENTIFICATION WORD IN THE ADDRESS OF 7513 TO A LI        
       BCD  ST OF 16 POSSIBLE TABLES.                                           
       BCD  THE SEARCH HAS FAILED.  THE ALLOWED TABLE IDENTIFICATION NUM        
       BCD  BERS ARE IN LOCATIONS 1464,                                         
       BCD  1464 PLUS 2, ETC.  PRESS START IF YOU WISH TO RESTORE MACHIN        
       BCD 6E TO STATE IN WHICH ERROR OCCURRED.                                 
PACK   CAL TBLWD+1,1                                                            
       SLW PR1                                                                  
       TSX PRINT,4                                                              
       HTR PR,0,PR+14                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
PR1    BCD 1                                                                    
       BCD   TABLE HAS EXCEEDED THE BUFFER SIZE.  REWRITE SOURCE PROGRAM        
       BCD 1.                                                                   
TBLWD  HTR 15                                                                   
       BCD 1TSTOPS                                                              
       HTR 14                                                                   
       BCD 1NONEXC                                                              
       HTR 13                                                                   
       BCD 1HOLARG                                                              
       HTR 12                                                                   
       BCD 1COMMON                                                              
       HTR 11                                                                   
       BCD 1SUBARG                                                              
       HTR 10                                                                   
       BCD 1FORMAT                                                              
       HTR 9                                                                    
       BCD 1CLOSUB                                                              
       HTR 8                                                                    
       BCD 1EQUIT                                                               
       HTR 7                                                                    
       BCD 1FRET                                                                
       HTR 6                                                                    
       BCD 1FORVAL                                                              
       HTR 5                                                                    
       BCD 1FORVAR                                                              
       HTR 4                                                                    
       BCD 1FORTAG                                                              
       HTR 3                                                                    
       BCD 1TRAD                                                                
       HTR 2                                                                    
       BCD 1TIFGO                                                               
       HTR 1                                                                    
       BCD 1TDO                                                                 
       HTR 0                                                                    
       BCD 1TEIFNO                                                              
X                                                                               
       END                                                                      
       ORG 191               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 191               1160  FT  22                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+22                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  NO INSTRUCTIONS WERE COMPILED.  CORRECT SOURCE PROGRAM TO HA        
       BCD  VE AT LEAST ONE EXECUTABLE STATEMENT.                               
X                                                                               
       END                                                                      
       ORG 192               FORCE NEW RECORD                                                           
       RST 10,1                                                                 
       HTR X-1,0,LOCREC      CARD FOR DE                                        
       ORG LOCREC                                                               
       TXH 192               7751  FT  21                                       
       TSX PRINT,4                                                              
       HTR SOURCE,0,SOURCE+6                                                    
       TSX PRINT,4                                                              
       HTR PR,0,PR+14                                                           
       TRA SPEND                                                                
PR     BCD 2                                                                    
       BCD  THERE ARE NO STATEMENT NUMBERS IN THE SOURCE PROGRAM.  CORRE        
       BCD 2CT PROGRAM.                                                         
X                                                                               
       REM BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II                                     
       FIN
</pre>
</body>
</html>
« March 2024 »
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: